Description

Entry Point AF251EAC() handles the aCols of folder Complements of routine Acquisition by Transfer.

Notes

Entry Point AF251EAC() handles the aCols of folder Complements of routine Acquisition by Transfer and allows copying the aCols from folder Asset Data.

Examples

User Function AF251EAC()
Local aHeader := paramixb[1]
Local aCols := paramixb[2]
Local aHeaderComp := paramixb[3]
Local aColsComp := paramixb[4]
Alert("Ponto de Entrada Executado")
aColsComp[1][1] := "Teste Manipulação aCols"
aColsComp[1][2] := aCols[1][2]
aColsComp[1][3] := aCols[1][3]
aColsComp[1][4] := aCols[1][4]
aColsComp[1][5] := aCols[1][5]
aColsComp[1][6] := aCols[1][6]
aColsComp[1][7] := aCols[1][7]
aColsComp[1][8] := aCols[1][8]
aColsComp[1][9] := aCols[1][9]
Return {aHeader , aCols , aHeaderComp , aColsComp }
//aColsComp (aCols da pasta Complementos)
//aCols (aCols da pasta Dados do Bem)

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus11

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

aHeader, aCols, aHeaderComp, aColsComp

Return

aHeader, aCols, aHeaderComp, aColsComp

Call events of the Entry Point

If ValType (aEdtAcols) =="A" .And. Len (aEdtAcols)==4
aHeader := aClone(aEdtAcols1 )
aCols := aClone(aEdtAcols2 )
aHeaderComp := aClone(aEdtAcols3 )
aColsComp := aClone(aEdtAcols4 )
EndIf
EndIf

Source Program

ATFA251.PRW