TUTURB_DT_AF060DES_Valida_Filial_Destino

Description

Entry point AF060DES allows the customer to validate from the target branch selected.

Notes

The call of this entry point stops the validation of the user access permissions control.

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="4f626a5b-5ede-4474-a984-71d5dd2e3da0"><ac:plain-text-body><![CDATA[

Examples

#INCLUDE "PROTHEUS.CH" User Function AF060DES() Local lRetorno := .T. Local cFil := ParamIXB[1] // Target Branch Local dUltdOrig := ParamIXB[2] // Date of the last Source depreciationLocal dUltdDest := ParamIXB[3] // Date if the last Target depreciationIf MsgYesNo('AF060DES - Confirm branch ' + cFil + ' as target branch?') lRetorno := .T. Else lRetorno := .F. EndIf Return lRetorno

]]></ac:plain-text-body></ac:structured-macro>

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus11, 12

Operating Systems Supported

All

Compatible with the following Databases

All

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="5c0bdfee-e590-4ec7-8fd5-e028391c22f5"><ac:plain-text-body><![CDATA[

Parameters

CFilDest := ParamIXB[1] // Target branchdUltDeprOr := ParamIXB[2] // Last source depreciation datedUltDeprDs := ParamIXB[3] // Last target depreciation date

]]></ac:plain-text-body></ac:structured-macro>

Return

lRetorno - If True (.T.), the process continues

Call events of the Entry Point

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

Source Program

ATFA060.PRW