...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
ExecBlock("A012RCOL",.F.,.F.,{oAux:aHeader, oAux:aCols, oAux}) |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function A012RCOL()
Local nx
MsgAlert("Entered into Entry Point A012RCOL")
If lSalvei
//display 3 first fields of aHeadx
For nX := 1 TO 3
MsgAlert("Field "+Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next
EndIf
Return |
| Aviso | ||
|---|---|---|
| ||
|
Handling of EP in the system
...
|
...
EP Example
User Function A012RCOL()
Local nx
MsgAlert("Entered into Entry Point A012RCOL")
If lSalvei
//display 3 first fields of aHeadx
For nX := 1 TO 3
MsgAlert("Field "+Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next
EndIf
...