| 001 |
EWH_DESSRV |
EWD->EWD_DESSRV |
P |
EWD |
XFILIAL("EWD") + M->EWH_CODSRV |
|
| 002 |
EWH_CDTINI |
EWD->EWD_CDTINI |
P |
EWD |
XFILIAL("EWD") + M->EWH_CODSRV |
|
| 003 |
EWH_CDTFIM |
EWD->EWD_CDTFIM |
P |
EWD |
XFILIAL("EWD") + M->EWH_CODSRV |
|
| 004 |
EWH_CODPRC |
EWD->EWD_CODPRC |
P |
EWD |
XFILIAL("EWD") + M->EWH_CODSRV |
|
| 005 |
EWH_PRCUNI |
U_AM103PRU() |
P |
|
|
|
| 006 |
EWH_PRVFIM |
iif(!Empty(EWD->EWD_CDTPRV), &(EWD->EWD_CDTPRV), ctod('//')) |
P |
|
|
|
| 007 |
EWH_DIAS |
IIF(AM103VADATE('DIAS')<1, 1, AM103VADATE('DIAS')) |
P |
|
|
|
| 008 |
EWH_PRCTOT |
EWH->EWH_PRCUNI/(1-(EWH->EWH_ALISS)/100) |
P |
|
|
|
| 009 |
EWH_QTDPER |
IIF(AM103CALCGAT('PER')<1, 1, AM103CALCGAT('PER')) |
P |
|
|
RETORNO('QTD') |
| 010 |
EWH_VL_TOT |
AM103VLRTOT() |
P |
|
|
RETORNO('VLTOT') |
| 011 |
EWH_VL_PRV |
IIF(AM103CALCGAT(VLPRV)<0, 0, AM103CALCGAT(VLPRV)) |
P |
|
|
RETORNO('VLPRV') |
| 012 |
EWH_DT_INI |
iif(!Empty(EWD->EWD_CDTINI), &(EWD->EWD_CDTINI), ctod('//')) |
P |
|
|
|
| 013 |
EWH_CDTPRV |
iif(!Empty(EWD->EWD_CDTPRV), &(EWD->EWD_CDTPRV), ctod('//')) |
P |
|
|
|
| 014 |
EWH_DT_FIM |
iif(!Empty(EWD->EWD_CDTFIM), &(EWD->EWD_CDTFIM), ctod('//')) |
P |
|
|
|
| 015 |
EWH_QTD |
iif(!Empty(EW8->EW8_FORMUL), &(EW8->EW8_FORMUL), 0) |
P |
|
|
|