...
With A012RCOL, you can implement logic to ensure compliance and adaptation of the data handled, making sure the column configuration properly reflects the changes made to the asset group and, thus, the records of the register routine.
...
| 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
...
If lSalvei //display 3 first fields of |
...
aHeadx For nX := 1 TO |
...
3 MsgAlert("Field "+Alltrim(Str(nX))+": "+aHeadx[nX,2]) |
...
Next
EndIf
...
Next
EndIf
Return |
| Aviso | ||
|---|---|---|
| ||
|
Handling of EP in the system
ExecBlock("A012RCOL",.F.,.F.,{oAux:aHeader, oAux:aCols, oAux})
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
Return