#include "Protheus.ch"
Static aHeadx
Static aColx
Static lSalvei := .F.
User Function A012ALTG()
Local nx
aHeadx := ParamIxb[1]
aColx := ParamIxb[2]
lSalvei := .T.
MsgAlert("Entrei no Ponto de Entrada A012ALTG")
//exibe 3 primeiros campos do aHeadx
For nX := 1 TO 3
MsgAlert( "Campo " +Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next
Return
//acols pode ser manipulado pelo ponto de entrada baixo
User Function A012RCOL()
Local nx
MsgAlert("Entrei no Ponto de Entrada A012RCOL")
If lSalvei
//exibe 3 primeiros campos do aHeadx
For nX := 1 TO 3
MsgAlert("Campo "+Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next
EndIf
Return |