Histórico da Página

O ponto de entrada AF060Val é usado para validar se valida o bem quando já existe na filial de destino, quando transferido via se utiliza a Transferência Automática.

Com a execução do ponto de entrada a mensagem "Bem já Existente existente na Filial Destino. Para ser transferido temos que incrementar o item mantendo o código Base. Prossegue ?" deixará deixa de ser exibida e deverá 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