AF060Val - Validación del bien cuando existe en la sucursal de destino

El punto de entrada AF060Val valida el bien cuando existe en la sucursal de destino, al utilizar la Transferencia automática.

Con la ejecución del punto de entrada el mensaje: Bien existente en la Sucursal destino. Para transferirlo tenemos que incrementar el ítem manteniendo el código Base. ¿Prosigue ? deja de mostrarse y debe tratarse por el punto de entrada.

#INCLUDE "Protheus.ch"

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


If MsgYesNo("Bien existente en la Sucursal destino. Para transferirlo tenemos que incrementar el ítem manteniendo el código Base. ¿Prosigue ?")
      lRet := .T.
Else
       lRet := .F.
EndIf

Return lRet

Portugués(Brasil)

Microsiga Protheus10 y Microsiga Protheus11

Todos

Todas

lRet

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

ATFA060.PRW