Histórico da Página

Localização: Está localizado na função a260Processa que tem o objetivo de de processar a inclusão.Quando: É executado no momento que está criando o sublote na tranferencia.Finalidade: Se o ponto passar o valor lógico .F. o sistema trabalha com o padrão, atribui o proximo numero de lote disponivel para o armazém informado na tranferência.Se o ponto passar o valor lógico  .T.  ele atribui o mesmo sublote para o armazem informado na tranferencia.

ExecBlock("MT260NLOT",.F.,.F.,{cCodOrig,cCodDest})

MATA260.PRX E MATA261.PRX

MT260NLOT - Opção para o tipo de SubLote. ( [ ParamIXB[1] ], [ ParamIXB[2] ], [ ParamIXB[3] ], [ ParamIXB[4] ] ) --> lRet

lRet(logico)
• .F. atribui o proximo numero de lote disponivel para o armazem informado na tranferencia..T. atribui o mesmo sublote para o armazem informado na tranferencia.

USER FUNCTION MT260NLOT()Local lRet 	  := .F.Local cPrdOri := ParamIXB[1] //-- Produto OrigemLocal cPrdDes := ParamIXB[2]	//-- Produto Destino Local cLotOri := ParamIXB[3]	//-- Lote OrigemLocal cLotDes := ParamIXB[4]	//-- Lote DestinoIf cPrdOri <> cPrdDes .Or. cLotOri <> cLotDes	lRet := .F.Else	lRet := .T.EndIfRETURN ( lRet )