Segmento:

Manufatura

Parâmetro(s):

País(es):

Todos

A rotina de apontamento de perda, além de apontar a perda dos materiais durante todo o processo de movimentação, também os classifica por motivo, referenciando-se às OPs.Este apontamento gera uma devolução para um produto e um armazém previamente cadastrados, permitindo que a perda seja direcionada para um produto e um armazém que caracterizem "Sucata".

Exemplo:
USER FUNCTION TMATA685()   Local nOpc   := 3 //-Opção de execução da rotina, informado nos parametros quais as opções possiveis  

Local cEnvMod := "PCP"  

Local aCabec := {}

Local aItens := {}

Local aLinha := {}

RpcSetEnv( "99","01",,,cEnvMod,,,,,,)

aCabec := {{"BC_OP"      ,"00000201001  ",NIL}}			

aItens := {{"BC_QUANT"      ,10				        ,NIL},;			

{"BC_PRODUTO"    ,"TESTE          "	,NIL},;			

{"BC_LOCORIG"	 ,"01"		,NIL},;			

{"BC_TIPO" 		 ,"R" 			,NIL},;			

{"BC_DTVALID" 	 ,dDatabase 		,NIL},;			

{"BC_MOTIVO" ,"FH"                         ,NIL}}           			

AAdd(aLinha ,aItens)	

		MsExecAuto ( {|x,y,z| MATA685(x,y,z) }, aCabec, aLinha, 3)

Return

Obs1: Para utilizar o estorno (opc = 6), além das informações do produto, é necessário informar o numero de documento (campo: BC_NUMSEQ) nos parâmetros do MsExecAuto conforme exemplo:
Local cNumDoc := '999999'
MsExecAuto ( {|x,y,z,n| MATA685(x,y,z,n) }, aCabec, aLinha, 3, cNumDoc)