TUTURB_DT_AF060DES_Valida_Filial_Destino

O ponto de entrada AF060DES permite ao usuário fazer validações da filial de destino selecionada.

A chamada deste ponto de entrada interrompe a validação do controle de permissões de acesso do usuário.

#INCLUDE "PROTHEUS.CH"

User Function AF060DES()
Local lRetorno := .T.
Local cFil := ParamIXB[1] // Filial de Destino
Local dUltdOrig := ParamIXB[2] // Data ultima depreciação Origem
Local dUltdDest := ParamIXB[3] // Data ultima depreciação Destino

If MsgYesNo('AF060DES - Confirma a filial ' + cFil + ' como filial de destino?')
lRetorno := .T.
Else
lRetorno := .F.
EndIf

Return lRetorno

Português(Brasil)

Microsiga_Protheus11, 12

Todos

Todas

cFilDest := ParamIXB[1] // Filial de Destino
dUltDeprOr := ParamIXB[2] // Data ultima depreciação Origem
dUltDeprDs := ParamIXB[3] // Data ultima depreciação Destino

lRetorno - Se verdadeiro (.T.) continua o processo

lRet := ExecBlock("AF060DES",.F.,.F., {cFilDest,dUltDeprOr,dUltDeprDs})

ATFA060.PRW