AF060Val - Asset validation when it already exists in the target branch

The entry point AF060Val validates the asset when it already exists in the target branch when using the Automatic Transfer.

With the execution of the entry point, the message: Asset already exists in the Target Branch. To transfer it, the item must be incremented keeping the base code. Continue? stops being displayed and must be treated by the entry point.

#INCLUDE "Protheus.ch"

User Function AF060Val()

Local lRet := .T.

If MsgYesNo("Asset already exists in the Target Branch. To transfer it, the item must be incremented keeping the base code. Continue?")

      lRet := .T. Else

       lRet := .F.

EndIf

Return lRet

Portuguese(Brazil)

Microsiga Protheus10 and Microsiga Protheus11

All

All

lRet

lRet := Execblock("AF060Val",.F.,.F.)

ATFA060.PRW