Histórico da Página

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

O plano de expedição consiste na aglutinação dos mesmos produtos de diferentes cargas/pedidos ao executar uma ordem de serviço de expedição. A ideia é que seja possível selecionar as ordens de serviço que serão consideradas na aglutinação. Neste primeiro momento, é levado em consideração apenas produtos de pedidos da mesma montagem de carga, posteriormente será criado uma tela para selecionar inclusive pedidos de cargas diferentes. Esta ação otimiza Permitir a junção (aglutinação) de quantidades iguais de um mesmo produto dentro de uma mesma carga ou, prevendo alterações futuras, um plano de execução a fim de otimizar a busca de saldo no armazém priorizando a expedição de endereços de tipo pulmão quando a junção dos pedidos que compõe o a carga ou plano solicitarem uma quantidade maior que uma norma do produto.

Esta alteração, diferente da aglutinação dos movimentos do novo WMS, configurada pelo cadastro de tarefa x atividade, aglutina as quantidade das ordens de serviço que geram um movimento de uma norma, priorizando a retirado do pulmão de forma mais eficiente.

É objetivo também prever a criação de um plano de execução, que possibilitará a aglutinação de serviços de entrada e saída independente da carga ou cliente.

Definição da Regra de Negócio

Alteração:

A execução das ordens de serviço pelo WMSA150 realiza uma busca das DCF selecionadas e uma por uma posiciona no registro e chama o método ExecuteDCF, a ideia é logo após o posicionamento utilizar das características do registro para buscar as ordens que podem ser aglutinadas. Encontrado os dados, será somado a variável da quantidade do DCF posicionado no objeto com as quantidades de todas as ordens de serviço do array e a partir desse ponto segue o fluxo normal, mas será precisa alterar também o status de cada DCF, para que não seja executada em seguida, e a criação da DCR para respeitar o array de ordens aglutinadas encontradas, o que mantém o funcionamento do estornorelacionamento com a ordem de serviço original.

Detalhes Alteração:

Primeiramente, é de conhecimento que a alteração é aplicável somente para o novo WMS, ou seja, o parâmetro MV_WMSNEW precisa estar igual a .T., assim como o ambiente de desenvolvimento. Também deve conter no dicionário o parâmetro MV_WMSACEX que pode ser criado aplicando o update WMSU0033, acessado via WMSUMAIN. Ele irá definir se a funcionalidade estará ativa ou não, tendo valores: 0 – Não aglutina (Default); 1 – Aglutina por Carga; 2 – Aglutina por Carga/Cliente.

A alteração inicia-se com a criação de dois atributos da classe WMSDTCOrdemServico:

• • • cPlnExp cCodPln > Código do plano de expediçãoexecução
    • aOrdAglu > Array de ordens de serviço aglutinadas

*Lembrando que a criação de cada atributo precisa vir com os métodos Getters e Setters correspondentes.

Como o atributo cPlnExp cCodPln da classe corresponde ao campo DCF_PLNEXPCODPLN que será criado, ele precisa ser considerado nos métodos LoadData (utilizar FieldPos ao atribuir o valor) , RecordDCF e UpdateDCF (utilizar o método Getter e Setter criado).

Quando o parâmetro MV_WMSACEX for diferente de '0', o serviço em execução for uma separação (Self:oServico:ChkSepara()) e o DCF possuir o valor de carga ou plano de expedição preenchidos, dentro Dentro do método ExecuteDCF da classe WMSDTCOrdemServicoExecute logo após a validação se o 'Self:cIdDCF' está preenchido, criar a chamada de um método que realizará a busca das ordens de serviço semelhantes e adicionará ao array aOrdAglu. Este método precisa ser criado na WMSDTCOrdemServico para futuras aplicações.

O select de busca precisa prever a informação do campo DCF_PLNEXP CODPLN e para o filtro deve ser utilizado os atributos da classe.

O filtro precisa respeitar serviço, armazém, produto, lote, sub-lote, endereço, status diferente de '3=Executado' e quando o atributo cPlnExp cCodPln estiver preenchido, o plano de expedição, quando estiver vazio,considerar e a função WMSCarga() e a carga ao invés do plano de expedição. Quando MV_WMSACEX for '2', considerar no filtro o cliente e loja somente quando o plano estiver vazio, conforme exemplo:

" SELECT DCF.DCF_ID, DCF.DCF_NUMSEQ, DCF.DCF_QUANT, DCF.R_E_C_N_O_ RECNODCF"

" FROM "+RetSqlName("DCF")+" DCF"

" WHERE          DCF.DCF_FILIAL = '"+xFilial("DCF")+"'"

" AND DCF.DCF_SERVIC = '"+Self:oServico:GetServico()+"'"

" AND DCF.DCF_CODPRO = '"+Self:oProdLote:GetProduto()+"'"

If !Empty(Self:GetPlnExp())

" AND DCF.DCF_PLNEXP = '"+Self:GetPlnExp()+"'"

ElseIf WmsCarga(Self:GetCarga())

If SuperGetMv("MV_WMSACEX",.F.,"0") == '2' // Se aglutina por cliente

" AND DCF.DCF_CLIFOR = '"+Self:GetCliFor()+"'"

" AND DCF.DCF_LOJA   = '"+Self:GetLoja()+"'"

EndIf

If !Empty(Self:GetPlnExp())

AND DCF.DCF_PLNEXP = '"+Self:GetPlnExp()+" '

ElseIf WmsCarga(Self:GetCarga())

AND DCF.DCF_CARGA = '"+Self:GetCarga()+"'"

EndIf

" AND DCF.DCF_LOCAL  = '"+Self:oOrdEndOri:GetArmazem()+"'"

" AND DCF.DCF_ENDER  = '"+Self:oOrdEndOri:GetEnder()+"'"

" AND DCF.DCF_LOTECT = '"+Self:oProdLote:GetLoteCtl()+"'"

" AND DCF.DCF_NUMLOT = '"+Self:oProdLote:GetNumLote()+"'"

" AND DCF.DCF_STSERV <> '3'"

" AND DCF.R_E_C_N_O_ <> "+Self:GetRecno()

" AND DCF.D_E_L_E_T_ = ' '"

*Importante manter esta ordem no filtro do select para que o banco de dados utilize do índice mais apropriado. Deixar um comentário a respeito.

Retornar os campos DCF_ID, DCF_NUMSEQ, DCF_QUANT, R_E_C_N_O_ e adicionar cada linha no array aOrdAglu., inclusive o registro correspondente ao DCF atual do objeto.

Este array sempre precisará conter pelo menos um registro, que será o DCF atual. Para isso, inicializar o array com os valores do objeto e caso encontre algo no select, adicionar as ordens de serviço restantes.

Inicializar uma variável nQtdOrdSer, que conterá a quantidade sumarizada da aglutinação, com o Self:nQuant do objeto atual e incrementar na mesma variável cada DCF_QUANT retornado do select de ordens de serviço possíveis de aglutinação. Após isso, substituir o valor do Self:nQuant por nQtdOrdSerIncrementar em uma variável o DCF_QUANT para que depois seja substituído a quantidade do objeto Self:nQuant pela quantidade sumarizada.

Voltando para o método ExecuteDCF da classe WMSDTCOrdemServicoExecute, alterar o bloco que atualiza o status da DCF posicionada no objeto para repetir para cada recno do aOrdAglu quando Len(aOrdAglu) > 0.

O bloco que precisa repetir para atualizar o status é:

// Atualiza status

Self:SetStServ('3')

Self:SetOk("")

Self:UpdateDCF()

Self:UpdStatus()

Porém será preciso reposicionar o objeto para atualizar cada DCF. Utilizar o método GoToDCF(nRecno), passando o recno de cada DCF do array por parâmetro. Ao terminar o laço de atualização do status, é preciso voltar a DCF posicionada original para que o Self:UnLockDCF() realize sua função corretamente, assim como o restante do processo.

*Importante manter o funcionamento atual do método quando o sistema não utilizar a funcionalidade, ou seja, quando o parâmetro MV_WMSACEX for igual a '0' ou Len(aOrdAglu) == 0.

Assim como a atualização do status para cada ordem de serviço, é preciso criar os registros DCR das ordens aglutinadas. Na classe WMSDTCMovimentosServicoArmazem método RecordD12, alterar o bloco "Grava relacionamento movimento serviço armazém" para cada ordem de serviço do array quando Len(aOrdAglu) > 0, substituindo...

oRelacMov:SetIdDCF(cIdDCF)

oRelacMov:SetSequen(cSequen)

pelos valores do array aOrdAglu.

Os registros DCR desse movimento precisam ter o mesmo DCR_IDORI, que seria o iddcf do próprio objeto, não precisando ser alterado; DCR_IDMOV, DCR_IDOPER e DCR_QUANT com o mesmo valor do método; DCF_IDDCF e DCR_SEQUEN correspondente a cada registro do array.

Neste passo não é preciso voltar o objeto oRelacMov para o valor posicionado original, mas ele deve continuar com o funcionamento atual quando Len(aOrdAglu) == 0 e, como não estamos na classe WMSDTCOrdemServico, validar se o array tem sua definição correta (Type("Self:oOrdServ:aAgluDCF") == "A") antes de validar o tamanho.

Criar um arquivo de update respeitando as características para execução via WMSUMAIN para a criação do campo DCF_PLNEXP. Utilizar a última nomenclatura disponível.

Exemplo de Aplicação:

• Configurar o parâmetro MV_WMSACEX com o valor '1=Aglutina por Carga' ou '2=Aglutina por Carga/Cliente'

• Criar vários pedidos de venda que realizam montagem de carga e que geram o serviço WMS na montagem de carga, com os mesmos produtos entre eles.

• Criar uma ou mais cargas com os pedidos criados

• Ao executar os serviços, os movimentos da D12 devem juntar a quantidade dos produtos iguais em um único movimento respeitando a norma.

• Verificar se os dados da DCR consistem

• Estornar e executar várias vezes para garantir que o estorno não deixe lixo na base 

Tabelas Utilizadas

• DCF – Ordem de Serviço

• D12 – Movimentos Serviço WMS

• DCR – Relacionamento Movimentos Distribuição

Dicionário de Dados

Arquivo : DCF – Ordem de Serviço