AF060GAT - Disparador en la rutina de transferencia de activos

Punto de entrada que servirá como disparador en la rutina de transferencia de activos en los campos de destino de datos contables de los entes (Cuenta contable, Centro de costo, Clase de valor e Ítem contable).

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

Portugués(Brasil)

Microsiga_Protheus11

Todos

Todas

cCpoAtu = Campo actual cCodigo = Código de los datos contables.

Array actualizado con las nuevas informaciones

If ExistBlock("AF060GAT")

cCpoAtu := ReadVar() //Campo que se actualizará

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