Histórico da Página

Informações Gerais

Especificação
Produto	Microsiga Protheus	Módulo	SIGAWMS - Gestão de Armazenagem
Segmento Executor

Distribuição e

Supply Chain - Logística

Projeto

¹

M_DL_WMS002

IRM

¹

PCREQ-

_

9339

Requisito

¹

PCREQ-

_

9340

Subtarefa

¹

Chamado²

 

PDRDL-

_

2452

Release de Entrega Planejada

11.80.14

Réplica

 

País	(

x

X ) Brasil  (  ) Argentina  (  )

Mexico

México  (  ) Chile  (  ) Paraguai  (  ) Equador

(  ) USA  (  )

Colombia  

Colômbia   (  ) Outro _____________

.

Outros

 

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

.

 

Objetivo

Permitir a junção (aglutinação) de quantidades iguais de um mesmo produto dentro de uma mesma carga ou, prevendo alterações futuras, de um mesmo plano de execução movimentação a fim de otimizar a busca de saldo as movimentações no armazém priorizando a expedição de endereços de tipo pulmão quando a junção dos pedidos que compõe a carga ou plano solicitarem uma quantidade maior que uma norma do produto.

Esta alteração, diferente da aglutinação dos movimentos do novo WMSdas atividades, 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çãoAdequar o processo de aglutinação para permitir as movimentações por onda (plano de movimentação), que possibilitará a aglutinação de serviços de entrada e saída independente da carga ou cliente, será criado na ordem de serviço a indicação de qual plano a ordem de serviço pertence e assim juntar as quantidades dos produtos. 

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 relacionamento 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.

Conter no dicionário o parâmetro MV_WMSACEX que pode ser criado aplicando o update WMSU0033, acessado via WMSUMAIN.

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

• cCodPln > Código do plano de
execução
• movimentaçã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 cCodPln da classe corresponde ao campo DCF_CODPLN 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).

 

Dentro do método ExecuteDCF da classe WMSDTCOrdemServicoExecute

logo após a validação se o 'Self:cIdDCF' está preenchido

após as validações e antes de iniciar o bloco transaction, 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_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 cCodPln estiver preenchido, o plano, quando estiver vazio,considerar e a

função WMSCarga

função WMSCarga() e a carga ao invés do plano. Quando MV_WMSACEX for '2', considerar no filtro o cliente e loja somente quando o plano estiver vazio.

Prevendo alterações futuras referente ao plano de

execução

movimentação, o endereço que precisa ser considerado

no select

no select varia dependendo do serviço que está sendo executado. Quando for um serviço de separação (Self:oServico:ChkSepara()), considerar armazém e endereço origem, pelo contrário, armazém e endereço destino, 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
" AND DCF.DCF_CARGA = '"+Self:GetCarga()+"'"
EndIf
If Self:oServico:ChkSepara()
" AND DCF.DCF_LOCAL = '"+Self:oOrdEndOri:GetArmazem()+"'"
" AND DCF.DCF_ENDER = '"+Self:oOrdEndOri:GetEnder()+"'"
Else
" AND DCF.DCF_LOCDES = '"+Self:oOrdEndDes:GetArmazem()+"'"
" AND DCF.DCF_ENDDES = '"+Self:oOrdEndDes:GetEnder()+"'"
EndIf
" 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.

Retornar os campos DCF_ID

, DCF_NUMSEQ

, DCF_QUANT, R_E_C_N_O_

e

, adicionar cada linha no array

aOrdAglu.

aOrdAglu e criar na ultima posição um vetor vazio que posteriormente será carregado com as atividades do serviço e suas quantidades.

Este array

Este array

sempre precisará conter pelo menos um registro, que será o DCF atual. Para isso, preencher

com o que encontrar no select e por último adicionar com

a primeira posição os valores do objeto

a

da DCF atual e depois com o que encontrar no select. No inicio do método, certificar que

o array

o array inicialize como vazio.

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 para 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 nQtdOrdSer.

 

Voltando para o

Ordenar o array por IDDCF com a função aSort para garantir a ordem na execução assim como as quantidades na hora da criação dos movimentos em passos posteriores.

No 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.

Como o array sempre conterá pelo menos uma ordem de serviço, basta criar

Criar um laço de repetição pelo tamanho

de

do array aOrdAglu.

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) quando Len(aOrdAglu) > 1, 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.

No método ExecutePrd, antes do comando 'For' de aProdutos, definir os campos na ultima posição do array aOrdAglu. Percorrer o tamanho de aOrdAglu e adicionar mais espaço para quando o produto for partes e então adicionar a quantidade multiplicada pelo múltiplo do componente neste sub-array de aOrdAglu.

Antes de chamar a execução da função (oFuncao:ExecFuncao) atribuir o array aOrdAglu ao objeto do movimento,

como deixamos o registro atual como ultima posição do array, não será preciso voltar o DCF

assim como aRecD12 e aLibD12

Em WMSDTCMovimentosServicoArmazem método AssignD12 antes do comando 'For' de  aAtividade, realizar o rateio para a tarefa da quantidade total solicitada dentre os ID DCF que estão no array, isso determinará quanto cada ID DCF será atendido pela quantidade total do movimento, conforme exemplo:

nQtSol := Self:nQtdMovto

nOrdPrd := Self:oOrdServ:nProduto

nOrdTar := Self:oOrdServ:nTarefa

For nI := 1 To Len(Self:aOrdAglu)

aAgluMov := Self:aOrdAglu[nI][POSTAREFA][nOrdPrd][nOrdTar]

If (aAgluMov[POSQTDSOL] - aAgluMov[POSQTDATD]) > 0

aAgluMov[POSIDDCF] := Self:oOrdServ:GetIdDCF()

If nQtSol > (aAgluMov[POSQTDSOL] - aAgluMov[POSQTDATD])

nQtSol -= (aAgluMov[POSQTDSOL] - aAgluMov[POSQTDATD])

aAgluMov[POSQTDMOV] := (aAgluMov[POSQTDSOL] - aAgluMov[POSQTDATD]) //Utiliza todo o saldo

Else

aAgluMov[POSQTDMOV] := nQtSol

nQtSol := 0

EndIf

// Grava o total atendido

aAgluMov[POSQTDATD] += aAgluMov[POSQTDMOV]

If nQtSol == 0

Exit

EndIf

EndIf

Next nI

Ao final da execução das atividades será preciso zerar as quantidades distribuídas da movimentação, ou seja, zerar a posição com a quantidade da movimentação de todos os sub-arrays de aOrdAglu.

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

, substituindo...

conforme exemplo:

// Grava relacionamento movimento servico armazem

nOrdPrd := Self:oOrdServ:nProduto

nOrdTar := Self:oOrdServ:nTarefa

For nI := 1 To Len(Self:aOrdAglu)

aAgluMov := Self:aOrdAglu[nI][POSTAREFA][nOrdPrd][nOrdTar]

If aAgluMov[POSQTDMOV] > 0

cIdDCF := aAgluMov[POSIDDCF]

nQtdMovto := aAgluMov[POSQTDMOV]

nQtdMovto2 := ConvUm(Self:oMovPrdLot:GetProduto(),nQtdMovto,0,2)

oRelacMov:SetIdOrig(cIdDCF)

oRelacMov:SetIdDCF(Self:aOrdAglu[nI][1])

oRelacMov:SetIdMovto(IIF(lAglutina,D12->D12_IDMOV,cIdMovto))

oRelacMov:SetIdOpera(IIF(lAglutina,D12->D12_IDOPER,cIdOpera)

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.

Igualmente a atualização do status, este laço de repetição sempre acontecerá a partir desta alteração, pois o array conterá pelo menos uma DCF.

 

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.

 

If oRelacMov:LoadData()

oRelacMov:SetQuant(oRelacMov:GetQuant()+nQtdMovto)

oRelacMov:SetQuant2(oRelacMov:GetQuant2()+nQtdMovto2)

oRelacMov:UpdateDCR()

Else

oRelacMov:SetQuant(nQtdMovto)

oRelacMov:SetQuant2(nQtdMovto2)

oRelacMov:RecordDCR()

EndIf

nQtdTotal += nQtdMovto

EndIf

Next nI

nQtdMovto := nQtdTotal

nQtdMovto2 := ConvUm(Self:oMovPrdLot:GetProduto(),nQtdMovto,0,2)

Finalmente, será preciso alterar o processo de conferência de saída para considerar o array de ordens de serviço aglutinadas. A conferência de saída (DLConfSai()) não deve gerar movimentos aglutinados, por isso é preciso considerar todos os identificados da DCF para que cada movimento seja criado com a quantidade correta. Em WMSBCCConferenciaSaida método ProcConfSai alterar o select das movimentações buscando por todos os identificadores da DCF do array ao invés do posicionado, conforme exemplo:

" AND DCR.DCR_IDDCF IN ('000001','000002','000003','000004') "

Criar no update do projeto (WMSNEWUPD) o campo com as informações abaixo em Dicionário de Dados.

Rotina	Tipo de Operação	Opção de Menu	Regras de Negócio
WMSDTCOrdemServico	Alteração

 

 

WMSDTCOrdemServicoExecute	Alteração

 

 

WMSDTCMovimentosServicoArmazem	Alteração

 

 

WMSUXXXXCriaçãoExecutado via WMSUMAIN 

 

WMSNEWUPD	Alteração

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

  o saldo do produto.

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