Produto:

SIGAWMS - Gestão de Armazenagem

Passo a passo:

O cadastro de Serviços x Tarefas permite a configuração de serviços que serão informados obrigatoriamente em todos os documentos que geram integração com o WMS. Por padrão, estes serviços são a base para a geração dos registros que possibilitam a movimentação de estoque dos produtos e execução de processos complementares - como conferência, montagem de volumes, distribuição de produtos, entre outros - dentro do armazém.

Todo serviço possui ao menos uma tarefa que, por sua vez, deve estar vinculada diretamente a uma operação. As operações que estão disponíveis atualmente são:

0 - Customizada
1 - Endereçamento
2 - Endereçamento Crossdocking
3 - Separação
4 - Separação Crossdocking
5 - Reabastecimento
6 - Conferência Entrada
7 - Conferência Saída
8 - Transferência

Os processos de 1 a 8 são funcionalidades padrão do sistema, que englobam diversas regras de negócio e boas práticas de mercado para a geração automática dos movimentos de distribuição, no momento da execução de um serviço WMS. Estes movimentos podem ou não ser executados posteriormente por meio de coletores de dados de rádio frequência.

Devido à necessidade que alguns clientes possuem de executar regras ou rotinas específicas, que não existem ou não são contempladas pelo produto padrão, o WMS também disponibiliza a operação 0.

A operação 0 é executada como qualquer outra, ou seja, no mesmo momento e da mesma forma que as demais operações. A diferença é que todas as regras de negócio e geração dos movimentos fica sob responsabilidade do desenvolvedor da rotina específica. O sistema apenas realiza a chamada da função customizada.

Cadastro

O cadastro de uma tarefa customizada por ser realizado independentemente do tipo de serviço, seja ele uma saída, uma entrada ou um movimento interno. Além disso, um serviço pode ser composto apenas por tarefas vinculadas a operações padrão, somente por tarefas de operação customizada ou misto.

Exemplo do cadastro de operação customizada - campo Operação

Sempre que a operação 0 - Customizada for atribuída a uma tarefa, será necessário informar também a Função a Executar (DC5_FUNEXE). Em versões anteriores do sistema este campo era utilizado como base para execução de todos os serviços WMS.

Exemplo de cadastro de operação customizada - campo Função a Executar

Exemplo de cadastro de operação customizada - consulta padrão de Funções a Executar

Para que a função a executar apareça na consulta padrão do campo, é necessário cadastrá-la por meio do módulo Configurador no arquivo SX5 - Tabelas Genéricas (tabela L6).

Execução

Toda função customizada receberá por parâmetro o objeto oMovimento e a variável cAcao, nesta ordem, onde:

oMovimento: instância da classe WMSBCCCustomizacao que é derivada (herda as informações) da classe WMSDTCMovimentosServicoArmazem.

cAcao: ação que está sendo executada no momento da chamada da função customizada. Quando o valor recebido for igual a 1, quer dizer que a função está sendo chamada no momento da execução de uma ordem de serviço; quando o valor recebido for igual a 2, quer dizer que a função está sendo chamada pela rotina de convocação ativa do coletor de dados.

Não é obrigatório que as regras de negócio implementadas para a ação 1 gerem movimentos de distribuição (D12), e nem que a ação 2 execute algum processo. Porém, a customização sempre deve tratar as duas ações para que o sistema não apresente inconsistências em tela.

Exemplo:

A ação 1 poderia gerar dados em uma tabela específica, os quais seriam considerados por uma rotina acessada através do menu do ACD; ou até mesmo executar regras de negócio que não teriam relação com um processo de coletor e encerrar a customização neste ponto. Porém, ambas as situações deverão prever a chamada da ação 2, que neste caso poderia apenas retornar verdadeiro (.T.).

Observações:

Documentação válida apenas para o WMS com controle de estoque exclusivo (D14).

#INCLUDE "RWMAKE.CH"

/*
+------------------------------------------------------------------------------+
|User Function Customizazada -> Recebe dois parametros, onde:                  |
+------------------------------------------------------------------------------+
|oMovimento |Objeto que contém as informações da movimentação                  |
|           | Este objeto pode ser uma das instâncias das classes padrão:     |
|           | Onde:                                                            |
|           |  cAcao == '1' -> WMSBCCCustomizacao() herdada de da classe       |
|           |                  WMSDTCMovimentosServicoArmazem()                |
|           |  cAcao == '2' -> WMSDTCMovimentosServicoArmazem()                |
+-----------+------------------------------------------------------------------+
|cAcao      | Ponto onde foi chamada a função customizada:                     |
|           | '1' - Na execução da OS                                          |
|           | '2' - Na execução do Coletor                                     |
+-----------+------------------------------------------------------------------+
*/

/*
********************************************************************************
                 DE -> PARA = aParam150 -> oMovimento
********************************************************************************

	aParam150     := Array(34)
	aParam150[01] -> oMovimento:oMovPrdLot:GetProduto()   //-- Produto
	aParam150[02] -> oMovimento:oMovEndOri:GetArmazem()   //-- Armazém Origem
	aParam150[03] -> oMovimento:oOrdServ:GetDocto()       //-- Documento
	aParam150[04] -> oMovimento:oOrdServ:GetSerie()       //-- Serie
	aParam150[05] -> oMovimento:oOrdServ:GetNumSeq()      //-- Sequencial
	If cAcao == '1'
		aParam150[06] -> oMovimento:GetQuant()             //-- Quantidade Ordem Serviço
	Else
		aParam150[06] -> oMovimento:GetQtdMov()            //-- Quantidade Movimentação
	EndIf
	aParam150[07] -> Date()                               //-- Data da Movimentacao
	aParam150[08] -> Time()                               //-- Hora da Movimentacao
	aParam150[09] -> oMovimento:oMovServic:GetServico()   //-- Servico
	aParam150[10] -> oMovimento:oMovTarefa:GetTarefa()    //-- Tarefa
	aParam150[11] -> oMovimento:oMovTarefa:GetAtivid()    //-- Atividade
	aParam150[12] -> oMovimento:oOrdServ:GetCliFor()      //-- Cliente/Fornecedor
	aParam150[13] -> oMovimento:oOrdServ:GetLoja()        //-- Loja
	aParam150[14] -> Nil                                  //-- Tipo da Nota Fiscal - Obsoleto
	aParam150[15] -> Nil                                  //-- Item da Nota Fiscal - Obsoleto
	aParam150[16] -> "0"                                  //-- Tipo de Movimentacao - Obsoleto
	aParam150[17] -> oMovimento:oOrdServ:GetOrigem()      //-- Origem de Movimentacao
	aParam150[18] -> oMovimento:oMovPrdLot:GetLoteCtl()   //-- Lote
	aParam150[19] -> oMovimento:oMovPrdLot:GetNumLote()   //-- Sub-Lote
	aParam150[20] -> oMovimento:oMovEndOri:GetEnder()     //-- Endereco Origem
	aParam150[21] -> oMovimento:oMovEndOri:GetEstFis()    //-- Estrutura Fisica Origem
	aParam150[22] -> oMovimento:oOrdServ:GetRegra()       //-- Regra de Apanhe (1=LOTE/2=NUMERO DE SERIE/3=DATA)
	aParam150[23] -> oMovimento:oOrdServ:GetCarga()       //-- Carga
	aParam150[24] -> oMovimento:GetIdUnit()               //-- Nr. do Pallet
	aParam150[25] -> oMovimento:oMovEndDes:GetArmazem()   //-- Armazém Destino
	aParam150[26] -> oMovimento:oMovEndDes:GetEnder()     //-- Endereco Destino
	aParam150[27] -> oMovimento:oMovEndDes:GetEstFis()    //-- Estrutura Fisica Destino
	aParam150[28] -> oMovimento:oMovServic:GetOrdem()     //-- Ordem da Tarefa
	aParam150[29] -> oMovimento:oMovTarefa:GetOrdem()     //-- Ordem da Atividade
	aParam150[30] -> oMovimento:oMovTarefa:GetFuncao()    //-- Funcao do Recurso Humano
	aParam150[31] -> oMovimento:oMovTarefa:GetTpRec()     //-- Recurso Fisico
	aParam150[32] -> oMovimento:oOrdServ:GetIdDCF()       //-- Identificador do DCF
	aParam150[34] -> oMovimento:GetIdMovto()              //-- Identificador exclusivo do Movimento no D12
*/

User Function DLAponta(oMovimento,cAcao)
Local lRet := .T.

   // Executa as ações complementares
   // Para efeito de teste esta função vai replicar o registro da ordem de serviço (DCF) para a tabela D12
   // Ou seja, irá gerar um registro de movimentação (convocação) exatamente igual à DCF
   
	If cAcao == '1' // Na execução da OS
		//-- Status movimento
		oMovimento:cStatus := '4'
		//Copiando a quantidade para o movimento
		oMovimento:SetQtdMov(oMovimento:GetQuant())
		If !oMovimento:AssignD12()
			lRet := .F.
		EndIf
	ElseIf cAcao == '2' // Na execução do Coletor
		lRet := U_AptColUsr(oMovimento) // Chama rotina customizada de coletor
	EndIf
   
Return lRet

// Função para simples apontamento de tempo. Abrirá no coletor uma tela para que o
// usuário informe a hora de início da movimentação.
User Function AptColUsr(oMovimento)
Local lRet := .T.

	// Se o movimento não tiver sido iniciado
	If oMovimento:GetStatus() $ '3|4' .And. Empty(oMovimento:GetDataIni())
		If (lRet := WmsQuestion("Confirma o inicio da atividade?"))
			oMovimento:SetRecHum(__cUserID)
			oMovimento:SetStatus("3")
			oMovimento:SetDataIni(Date())
			oMovimento:SetHoraIni(Time())
			oMovimento:UpdateD12()
		EndIf
	ElseIf oMovimento:GetStatus() == '3' .And. !Empty(oMovimento:GetDataIni())
		If (lRet := WmsQuestion("Confirma a finalização da atividade?"))
			oMovimento:SetStatus("1")
			oMovimento:SetRecHum(__cUserID)
			oMovimento:SetDataFim(Date())
			oMovimento:SetHoraFim(Time())
			oMovimento:UpdateD12()
		EndIf
	Else
		WMSVTAviso("Atividade inconsistente.")
		lRet := .F.
	EndIf

	WMSAltSts(.F.) // Informa para o produto padrão que não deve alterar a situação do movimento

Return lRet