AF060GAT - Trigger in the asset transfer routine

An entry point that will work as a trigger in the asset transfer routine, in the target fields of accounting data of entities (Ledger Account, Cost Center, Value Class, and Accounting Item).

User Function AF060GAT()
Local cCampoA   := Paramixb[1]  
Local cCod          :=Paramixb[2]
Local aVal            :={}
 
If cCampoA == 'N3_CUSTBEM' 
                AADD(aVal,{'N3_CCCORR',cCod})
                AADD(aVal,{'N3_CCDESP',cCod})
                AADD(aVal,{'N3_CCCDEP',cCod})
                AADD(aVal,{'N3_CCCDES',cCod})
EndIF
 
Return aVal

Portuguese(Brazil)

Microsiga_Protheus11

All

All

cCpoAtu = Current field cCodigo = Code of the accounting data.

Array updated with the new information

If ExistBlock("AF060GAT")

cCpoAtu := ReadVar() //The field to be updated

aValue := {} //Array

aValue := Execblock("AF060GAT",.F.,.F., { cCpoAtu, cCodigo, aVar } )

Local cCampoA:= Paramixb[1]
Local cCod:=Paramixb[2]
Local aVarivel:=Paramixb[3]
Local aVal:={}

ATFA060.PRX