| 001 |
REL_RECNOM |
RD0->RD0_NOME |
P |
RD0 |
xFilial("RD0") + GdFieldGet("REL_RECLAM") |
|
| 002 |
REL_FUNASS |
EntGetInfo("SRA", "RA_MAT", M->REL_RECLAM) |
P |
|
|
|
| 003 |
REL_DESLIG |
Iif (RD0->RD0_MSBLQL == '1', (EntGetInfo('SRA', 'RA_DEMISSA', M->RE0_RECLAM)), '') |
P |
|
|
|
| 004 |
REL_LIMITE |
RelLimiteX7Regra() |
P |
|
|
|
| 005 |
RE0_RECLAM |
M->RE0_RECLAM := GdFieldGet("REL_RECLAM") |
P |
|
|
M->RE0_TPACAO=="1" |
| 006 |
RE0_RECNOM |
M->RE0_RECNOM := RD0->RD0_NOME |
P |
RD0 |
xFilial("RD0") + M->REL_RECLAM |
M->RE0_TPACAO=="1" |
| 007 |
REL_CC |
RelCcRel() |
P |
|
|
|
| 008 |
REL_CODFUN |
RelCodFunRel() |
P |
|
|
|
| 009 |
REL_DESFUN |
RelDesFunRel() |
P |
SRJ |
xFilial("SRJ") + GdFieldGet("REL_CODFUN") |
|