Histórico da Página

01. GENERAL DATA

02. DESCRIPTION

You can use entry point AF060VAL to validate an asset when a corresponding record already exists in the target branch, when performing the Automatic Transfer. While running this entry point, the system stops displaying the default message "Asset already exists in the Target Branch. To transfer it, the item must be incremented keeping the base code. Continue?" and the entry point starts handling it directly.

...

#INCLUDE "Protheus.ch"

User Function AF060Val()

	Local lRet := .T.

	If MsgYesNo("BemAsset already jaexists Existentein nathe FilialTarget DestinoBranch. ParaTo sertransfer transferidoit, temosthe queitem incrementarmust obe itemincremented mantendokeeping othe codigobase Basecode. ProssegueContinue ?")
		  lRet := .T.
	Else
		   lRet := .F.
	EndIf

Return lRet

...