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" |