Descripción

El punto de entrada AF060DES permite al usuario realizar validaciones de la sucursal de destino seleccionada.

Observaciones

La activación de este punto de entrada interrumpe la validación del control de permisos de acceso del usuario.

Ejemplos

#INCLUDE "PROTHEUS.CH"

User Function AF060DES()
Local lRetorno := .T.
Local cFil := ParamIXB[1] // Sucursal de destino 
Local dUltdOrig := ParamIXB[2] // Fecha última depreciación Origen
Local dUltdDest := ParamIXB[3] // Fecha última depreciación Destino 

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

Return lRetorno

Idioma

Portugués(Brasil)

Versiones

Microsiga_Protheus11, 12

Sistemas operativos compatibles

Todos

Compatible con las bases de datos

Todas

Parámetros

cFilDest := ParamIXB[1] // Sucursal de destino 
dUltDeprOr := ParamIXB[2] // Fecha última depreciación Origen
dUltDeprDs := ParamIXB[3] // Fecha última depreciación Destino

Devolución

lRetorno - Si fuera verdadero (.T.) continua el proceso

Eventos de activación del Punto de entrada

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

Programa fuente

ATFA060.PRW