AF060Val - Validação do bem quando já existe na filial de destino

O ponto de entrada AF060Val valida o bem quando já existe na filial de destino, ao utilizar a Transferência Automática.

Com a execução do ponto de entrada a mensagem: Bem já existente na Filial Destino. Para ser transferido temos que incrementar o item mantendo o código Base. Prossegue ? deixa de ser exibida e deve ser tratada pelo ponto de entrada.

#INCLUDE "Protheus.ch"

User Function AF060Val()
Local lRet := .T.


If MsgYesNo("Bem ja Existente na Filial Destino. Para ser transferido temos que incrementar o item mantendo o codigo Base. Prossegue ?")
      lRet := .T.
Else
       lRet := .F.
EndIf

Return lRet

Português(Brasil)

Microsiga Protheus10 e Microsiga Protheus11

Todos

Todas

lRet

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

ATFA060.PRW