| 001 |
EJY_EXPORT |
EJW->EJW_EXPORT |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
RS400Info("EJY_TPPROC")=="A" |
| 002 |
EJY_LOJEXP |
EJW->EJW_LOJEXP |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
RS400Info("EJY_TPPROC")=="A" |
| 003 |
EJY_DSCEXP |
Posicione("SA2", 1, xFilial("SA2") + M->EJY_EXPORT + M->EJY_LOJEXP, "A2_NOME") |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
RS400Info("EJY_TPPROC")=="A" |
| 004 |
EJY_IMPORT |
EJW->EJW_IMPORT |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
RS400Info("EJY_TPPROC")=="V" |
| 005 |
EJY_LOJIMP |
EJW->EJW_LOJIMP |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
RS400Info("EJY_TPPROC")=="V" |
| 006 |
EJY_DSCIMP |
Posicione("SA1", 1, xFilial("SA1") + M->EJY_IMPORT + M->EJY_LOJIMP, "A1_NOME") |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
RS400Info("EJY_TPPROC")=="V" |
| 007 |
EJY_END |
SA2->A2_END |
P |
SA2 |
If(RS400Info("EJY_TPPROC")=="A", xFilial("SA2") + M->EJY_EXPORT + M->EJY_LOJEXP, "") |
RS400Info("EJY_TPPROC")=="A" |
| 008 |
EJY_END |
SA1->A1_END |
P |
SA1 |
If(RS400Info("EJY_TPPROC")=="V", xFilial("SA1") + M->EJY_IMPORT + M->EJY_LOJIMP, "") |
RS400Info("EJY_TPPROC")=="V" |
| 009 |
EJY_PAIS |
SA2->A2_PAIS |
P |
SA2 |
If(RS400Info("EJY_TPPROC")=="A", xFilial("SA2") + M->EJY_EXPORT + M->EJY_LOJEXP, "") |
RS400Info("EJY_TPPROC")=="A" |
| 010 |
EJY_PAIS |
SA1->A1_PAIS |
P |
SA1 |
If(RS400Info("EJY_TPPROC")=="V", xFilial("SA1") + M->EJY_IMPORT + M->EJY_LOJIMP, "") |
RS400Info("EJY_TPPROC")=="V" |
| 011 |
EJY_NIF |
SA2->A2_NIFEX |
P |
SA2 |
If(RS400Info("EJY_TPPROC")=="A", xFilial("SA2") + M->EJY_EXPORT + M->EJY_LOJEXP, "") |
RS400Info("EJY_TPPROC")=="A" |
| 012 |
EJY_NIF |
SA1->A1_NIF |
P |
SA1 |
If(RS400Info("EJY_TPPROC")=="V", xFilial("SA1") + M->EJY_IMPORT + M->EJY_LOJIMP, "") |
RS400Info("EJY_TPPROC")=="V" |
| 013 |
EJY_DSCPAI |
RS400Info("EJY_DSCPAI") |
P |
|
|
|
| 014 |
EJY_MOEDA |
EJW->EJW_MOEDA |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
|
| 015 |
EJY_CODEMP |
EJW->EJW_CODEMP |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
|
| 016 |
EJY_LOJEMP |
EJW->EJW_LOJEMP |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
|
| 017 |
EJY_CGC |
EJW->EJW_CGC |
P |
EJW |
xFilial("EJW") + RS400Info("EJY_TPPROC") + M->EJY_PROCES |
|
| 018 |
EJY_PROCES |
RS400AtuReg() |
P |
|
|
|
| 019 |
EJY_PROCES |
RS400InfCpl() |
P |
|
|
|
| 020 |
EJY_PROCES |
RS400InfCpl() |
P |
|
|
|
| 021 |
EJY_MOTNIF |
SA2->A2_MOTNIF |
P |
SA2 |
If(RS400Info("EJY_TPPROC")=="A", xFilial("SA2") + M->EJY_EXPORT + M->EJY_LOJEXP, "") |
RS400Info("EJY_TPPROC")=="A" |
| 022 |
EJY_MOTNIF |
EXJ->EXJ_MOTNIF |
P |
EXJ |
If(RS400Info("EJY_TPPROC")=="V", xFilial("EXJ") + M->EJY_IMPORT + M->EJY_LOJIMP, "") |
RS400Info("EJY_TPPROC")=="V" |
| 023 |
EJY_TIPVIN |
If(SuperGetMv("MV_ESS0027", , 9) >= 10, PS400TipoVinc(RS400Info("EJY_TPPROC")), "") |
P |
|
|
RS400Info("EJY_TPPROC")=="A" |
| 024 |
EJY_TIPVIN |
If(SuperGetMv("MV_ESS0027", , 9) >= 10, PS400TipoVinc(RS400Info("EJY_TPPROC")), "") |
P |
|
|
RS400Info("EJY_TPPROC")=="V" |