Variáveis para Regra de Integração

Definir Alfa VNotSai;
VNotSai = "SELECT E140NFV.CODSNF, E140NFV.NUMNFV, E140NFV.CODCLI, E140NFV.TNSPRO, E140NFV.NOPPRO, \
E140NFV.TNSSER, E140NFV.NOPSER, E140NFV.DATEMI, E140NFV.DATSAI, E140NFV.VLRLIQ, \
E140NFV.VLRBIC, E140NFV.VLRICM, E140NFV.VLRBIP, E140NFV.VLRIPI, E140NFV.SITNFV, \
E140NFV.VLRBSI, E140NFV.VLRSIC, E140NFV.VLRBIS, E140NFV.VLRISS, E140NFV.VLRBIR, \
E140NFV.VLRIRF, E140NFV.VLRLOU, E140NFV.QTDITP, E140NFV.QTDITS, E140NFV.VLRLPR, \
E140NFV.VLRFRE, E140NFV.VLRSEG, E140NFV.VLREMB, E140NFV.VLRENC, E140NFV.VLROUT, \
E140NFV.TIPNFS, E140NFV.CODEDC, E140NFV.VLRDAR, E140NFV.VLRBFU, E140NFV.VLRFUN, \
E140NFV.CODRAI, E140NFV.VLRBIN, E140NFV.VLRINS, E140NFV.VLRBSD, E140NFV.VLRISD, \
E140NFV.CIFFOB, E140NFV.VERCAL, E140NFV.USUGER, E140NFV.DATGER, E140NFV.HORGER, \
E140NFV.PERICF, E140NFV.ICMFRE, E140NFV.VLRBPI, E140NFV.VLRPIS, E140NFV.CODCPG, \
E140NFV.REMDES, E140NFV.CODCL1, E140NFV.TIPRDE, E140NFV.CGCRDE, E140NFV.INSRDE, \
E140NFV.ESTRDE, E140NFV.MUNRDE, E140NFV.CODCL2, E140NFV.CODTRA, E140NFV.PLAVEI, \
E140NFV.UFSVEI, E140NFV.KMTDIS, E140NFV.FORCAL, E140NFV.PREIMP, E140NFV.VLRBCR, \
E140NFV.VLRCOR, E140NFV.VLRBCT, E140NFV.VLRCRT, E140NFV.VLRBPT, E140NFV.VLRPIT, \
E140NFV.VLRBCL, E140NFV.VLRCSL, E140NFV.VLRBOR, E140NFV.VLROUR, E140NFV.VLRBII, \
E140NFV.VLRIIM, E140NFV.VLRRIS, E140NFV.NUMRDE, E140NFV.VLRDSE, E140NFV.VLRDPR, \
E140NFV.VLRDS1, E140NFV.VLRDS2, E140NFV.VLRDS3, E140NFV.VLRDS4, E140NFV.VLRDZF, \
E140NFV.PESBRU, E140NFV.PESLIQ, E140NFV.DATCEX, E140NFV.NUMNSU, E140NFV.DATNSU, \
E140NFV.HORNSU, E140NFV.VLRBPF, E140NFV.VLRPIF, E140NFV.VLRBCF, E140NFV.VLRCFF, \
E140NFV.CODMS1, E140NFV.CODMS2, E140NFV.CODMS3, E140NFV.CODMS4, E140NFV.SEQENT, \
E140NFV.QTDEMB, E140NFV.CODFPG, E140NFV.SNFNCF, E140NFV.NUMNCF, E140NFV.CHVNEL, \
E140NFV.CODVIA, E140NFV.SEQPCO, E140NFV.SEQPEN, E140NFV.SECCAT, E140NFV.VLRADE, \
E140NFV.SOMFRE, E140NFV.SITNEL, E140NFV.CODMTR, E140NFV.HORSAI, E140NFV.TOTCID \
FROM E140NFV, E020SNF \
WHERE E140NFV.CODEMP = {CODEMP} AND \
E140NFV.CODFIL = {CODFIL} AND \
E140NFV.DATEMI >= {DATSAI} AND \
E140NFV.DATEMI <= {DATEMI} AND \
E140NFV.SITNFV IN ('2','3') AND \
((E140NFV.NOPPRO LIKE '1%' OR E140NFV.NOPPRO LIKE '2%' OR \
E140NFV.NOPPRO LIKE '3%' OR E140NFV.NOPPRO LIKE '4%' OR \
E140NFV.NOPPRO LIKE '5%' OR E140NFV.NOPPRO LIKE '6%' OR \
E140NFV.NOPPRO LIKE '7%' OR E140NFV.NOPPRO LIKE '8%') OR \
E140NFV.NOPPRO = ' ' AND E140NFV.NOPSER <> ' ')) AND \
E020SNF.CODEMP = {CODEMP} AND \
E020SNF.CODFIL = {CODFIL} AND \
E020SNF.CODEMP = E140NFV.CODEMP AND \
E020SNF.CODFIL = E140NFV.CODFIL AND \
E020SNF.CODSNF = E140NFV.CODSNF AND \
E020SNF.UTIIMP = ''S'' AND \
((E020SNF.DISAUT <> 6) OR (E020SNF.DISAUT = 6 AND E140NFV.SITNEL IN (3, 5, 8, 9, 13))) AND \
(E140NFV.NUMCFI = 0 OR E140NFV.NUMCFI IS NULL)";

Definir Alfa VIteSai;
VIteSai = "SELECT SEQIPV, CODPRO, CODDER, CODFAM, CPLIPV, CODCLF, QTDFAT, \
UNIMED, PERIPI, PERICM, VLRBRU, VLRDSC, VLRDS1, VLRDS2, \
VLRDS3, VLRDS4, VLRDFA, VLRDZF, VLRDAR, VLRBIC, VLRICM, \
VLRBSI, TNSPRO, VLRIPI, VLRLPR, NUMNFC, VLRBSP, VLRSTP, \
VLRBSC, VLRSTC, VLRBID, VLRIPD, VLRICS, VLRBSD, VLRISD, \
VLRBIP, VLRIIC, VLROIC, VLRIIP, VLROIP, VLRFRE, VLRSEG, \
VLREMB, VLRENC, VLROUT, NOPPRO, CODSTR, CODTRD, VLRLIQ, \
CTARED, VLRBPI, VLRPIS, FILNFC, CODFOR, NUMNFC, SNFNFC, \
SEQIPC, VLRBCR, VLRCOR, CODTIC, VLROUD, CODTST, PERIIM, \
VLRBII, VLRIIM, VLRRIS, CODBEM, VLRFUN, VLRBFU, PERFUN, \
SEQNFI, DESIMP, PERPIT, VLRBPT, VLRPIT, PERCRT, VLRBCT, \
VLRCRT, PERCSL, VLRBCL, VLRCSL, PEROUR, VLRBOR, VLROUR, \
PERIRF, VLRBIR, VLRIRF, PESBRU, PESLIQ, VLRBPF, PERPIF, \
VLRPIF, VLRBCF, PERCFF, VLRCFF, CSTIPI, CSTPIS, CSTCOF, \
CODCCU, VLRCID, TOTCID, CODMS1, CODMS2, CODMS3, CODMS4, \
CODDFS, VLRAJS \
FROM E140IPV \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VRatSai;
VRatSai = "SELECT CODEMP, CODFIL, NUMNFV, SEQRAT, DATBAS, CRIRAT, CTARED, PERCTA, \
VLRCTA, CODCCU, PERRAT, VLRRAT, OBSRAT \
FROM E140RAT \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VSerSai;
VSerSai = "SELECT SEQISV, CODSER, QTDFAT, UNIMED, VLRBIS, PERISS, VLRISS, \
VLRLSE, VLRBIR, PERIRF, VLRIRF, VLRBIN, PERINS, VLRINS, \
CODTRI, NOPSER, VLRLOU, PERICM, CPLISV, CODCLF, PERIPI, \
VLRBIP, VLRIPI, VLRIIP, VLROIP, VLRBIC, VLRDSC, VLRDS1, \
VLRDS2, VLRDS3, VLRDS4, VLRDZF, VLRDAR, CODSTR, CODTRD, \
VLRENC, VLROUT, VLRIIC, VLROIC, VLRBSI, VLRICS, VLRBSD, \
VLRISD, VLRICM, TNSSER, VLRLIQ, CTARED, VLRBPI, VLRPIS, \
FILNFC, CODFOR, NUMNFC, SNFNFC, SEQISC, VLRBCR, VLRCOR, \
PERCRT, VLRBCT, VLRCRT, PERPIT, VLRBPT, VLRPIT, PERCSL, \
VLRBCL, VLRCSL, PEROUR, VLRBOR, VLROUR, CODTIC, VLROUD, \
CODTST, VLRRIS, DESIMP, VLRDFA, VLRBPF, PERPIF, VLRPIF, \
VLRBCF, PERCFF, VLRCFF, CSTIPI, CSTPIS, CSTCOF, CODCCU, \
CODMS1, CODMS2, CODMS3, CODMS4, CODDFS, VLRAJS \
FROM E140ISV \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VConTra;
VConTra = "SELECT SEQCCT, DATEMI, CODEDC, CODSEL, CODSSL, NUMNFT, VLRTOT, QTDMER, UNIMED, CHVNEL, VLRMER, PESBRU, PESLIQ \
FROM E140CCT \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VProSer;
VProSer = "SELECT SEQIPV, SEQLPS, EMPRLC, FILRLC, SNFRLC, NFVRLC, ISVRLC \
FROM E140LPS \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VProLns;
VProLns = "SELECT SEQIPV, SEQLNP, EMPRLC, FILRLC, SNFRLC, NFVRLC, IPVRLC \
FROM E140LNP \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VSerLns;
VSerLns = "SELECT SEQISV, SEQLNS, EMPRLC, FILRLC, SNFRLC, NFVRLC, ISVRLC \
FROM E140LNS \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VProLne;
VProLne = "SELECT SEQIPC, SEQLNP, EMPRLC, FILRLC, FORRLC, SNFRLC, NFCRLC, IPCRLC \
FROM E440LNP \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODFOR = {CODFOR} AND \
CODSNF = {CODSNF} AND \
NUMNFC = {NUMNFC}";

Definir Alfa VSerLne;
VSerLne = "SELECT SEQISC, SEQLNS, EMPRLC, FILRLC, FORRLC, SNFRLC, NFCRLC, ISCRLC \
FROM E440LNS \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODFOR = {CODFOR} AND \
CODSNF = {CODSNF} AND \
NUMNFC = {NUMNFC}";

Definir Alfa VParSai;
VParSai = "SELECT CODPAR, NUMTIT, CODTPT, VCTPAR, VLRPAR, OBSPAR, USUGER, DATGER, HORGER \
FROM E140PAR \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODSNF = {CODSNF} AND \
NUMNFV = {NUMNFV}";

Definir Alfa VParEnt;
VParEnt = "SELECT CODPAR, NUMTIT, CODTPT, VCTPAR, VLRPAR, OBSPAR, USUGER, DATGER, HORGER \
FROM E440PAR \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
CODFOR = {CODFOR} AND \
CODSNF = {CODSNF} AND \
NUMNFC = {NUMNFC}";

Definir Alfa VLotSai;
VLotSai = "SELECT E140DLS.DATENT, E140DLS.OBSDLS, E140DLS.SEQIPV, E140DLS.SEQDLS, E140DLS.NUMSEP, \
E140DLS.CODDEP, E140DLS.CODLOT, E140DLS.DATVLT, E140DLS.QTDEST, E140IPV.CODPRO, \
E140IPV.CODDER \
FROM E140IPV, E140DLS \
WHERE E140IPV.CODEMP = {CODEMP} AND \
E140IPV.CODFIL = {CODFIL} AND \
E140IPV.NUMNFV = {NUMNFV} AND \
E140IPV.CODSNF = {CODSNF} AND \
E140IPV.CODEMP = E140DLS.CODEMP AND \
E140IPV.CODFIL = E140DLS.CODFIL AND \
E140IPV.CODSNF = E140DLS.CODSNF AND \
E140IPV.NUMNFV = E140DLS.NUMNFV AND \
E140IPV.SEQIPV = E140DLS.SEQIPV";

Definir Alfa VLotEnt;
VLotEnt = "SELECT E440DLS.DATENT, E440DLS.OBSDLS, E440DLS.SEQIPC, E440DLS.SEQDLS, E440DLS.NUMSEP, E440DLS.CODFOR, \
E440DLS.CODSNF, E440DLS.NUMNFC, E440DLS.CODDEP, E440DLS.CODLOT, E440DLS.QTDEST, E440IPC.CODPRO, \
E440IPC.CODDER, E440DLS.DATVLT \
FROM E440IPC, E440DLS \
WHERE E440IPC.CODEMP = {CODEMP} AND \
E440IPC.CODFIL = {CODFIL} AND \
E440IPC.NUMNFC = {NUMNFC} AND \
E440IPC.CODSNF = {CODSNF} AND \
E440IPC.CODFOR = {CODFOR} AND \
E440IPC.CODEMP = E440DLS.CODEMP AND \
E440IPC.CODFIL = E440DLS.CODFIL AND \
E440IPC.CODFOR = E440DLS.CODFOR AND \
E440IPC.CODSNF = E440DLS.CODSNF AND \
E440IPC.NUMNFC = E440DLS.NUMNFC AND \
E440IPC.SEQIPC = E440DLS.SEQIPC";

Definir Alfa VExcEnt;
VExcEnt = "DELETE FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0 AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660NFC.CODEMP AND \
E440NFC.CODFIL = E660NFC.CODFIL AND \
E440NFC.CODFOR = E660NFC.CODFOR AND \
E440NFC.NUMNFC = E660NFC.NUMNFI AND \
E440NFC.CODSNF = E660NFC.CODSNF)";

Definir Alfa VExcIte;
VExcIte = "DELETE FROM E660INC \
WHERE E660INC.CODEMP = {1} AND \
E660INC.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660INC.CODEMP AND \
E440NFC.CODFIL = E660INC.CODFIL AND \
E440NFC.CODFOR = E660INC.CODFOR AND \
E440NFC.NUMNFC = E660INC.NUMNFI AND \
E440NFC.CODSNF = E660INC.CODSNF) AND \
EXISTS (SELECT 1 \
FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.CODEMP = E660INC.CODEMP AND \
E660NFC.CODFIL = E660INC.CODFIL AND \
E660NFC.CODFOR = E660INC.CODFOR AND \
E660NFC.NUMNFI = E660INC.NUMNFI AND \
E660NFC.NUMNFF = E660INC.NUMNFF AND \
E660NFC.CODSNF = E660INC.CODSNF AND \
E660NFC.CODTNS = E660INC.CODTNS AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0)";

Definir Alfa VExcRtc;
VExcRtc = "DELETE FROM E660RTC \
WHERE E660RTC.CODEMP = {1} AND \
E660RTC.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660RTC.CODEMP AND \
E440NFC.CODFIL = E660RTC.CODFIL AND \
E440NFC.CODFOR = E660RTC.CODFOR AND \
E440NFC.NUMNFC = E660RTC.NUMNFI AND \
E440NFC.CODSNF = E660RTC.CODSNF) AND \
EXISTS (SELECT 1 \
FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.CODEMP = E660RTC.CODEMP AND \
E660NFC.CODFIL = E660RTC.CODFIL AND \
E660NFC.CODFOR = E660RTC.CODFOR AND \
E660NFC.NUMNFI = E660RTC.NUMNFI AND \
E660NFC.NUMNFF = E660RTC.NUMNFF AND \
E660NFC.CODSNF = E660RTC.CODSNF AND \
E660NFC.CODTNS = E660RTC.CODTNS AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0)";

Definir Alfa VExcCip;
VExcCip = "DELETE FROM E660CIP \
WHERE E660CIP.CODEMP = {1} AND \
E660CIP.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660CIP.CODEMP AND \
E440NFC.CODFIL = E660CIP.CODFIL AND \
E440NFC.CODFOR = E660CIP.CODFOR AND \
E440NFC.NUMNFC = E660CIP.NUMNFI AND \
E440NFC.CODSNF = E660CIP.CODSNF) AND \
EXISTS (SELECT 1 \
FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.CODEMP = E660CIP.CODEMP AND \
E660NFC.CODFIL = E660CIP.CODFIL AND \
E660NFC.CODFOR = E660CIP.CODFOR AND \
E660NFC.NUMNFI = E660CIP.NUMNFI AND \
E660NFC.NUMNFF = E660CIP.NUMNFF AND \
E660NFC.CODSNF = E660CIP.CODSNF AND \
E660NFC.CODTNS = E660CIP.CODTNS AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0)";

Definir Alfa VExcDlc;
VExcDlc = "DELETE FROM E660DLC \
WHERE E660DLC.CODEMP = {1} AND \
E660DLC.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660DLC.CODEMP AND \
E440NFC.CODFIL = E660DLC.CODFIL AND \
E440NFC.CODFOR = E660DLC.CODFOR AND \
E440NFC.CODSNF = E660DLC.CODSNF AND \
E440NFC.NUMNFC = E660DLC.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.CODEMP = E660DLC.CODEMP AND \
E660NFC.CODFIL = E660DLC.CODFIL AND \
E660NFC.CODFOR = E660DLC.CODFOR AND \
E660NFC.CODSNF = E660DLC.CODSNF AND \
E660NFC.NUMNFI = E660DLC.NUMNFI AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0) AND \
EXISTS (SELECT 1 \
FROM E440DLS \
WHERE E440DLS.CODEMP = {1} AND \
E440DLS.CODFIL = {2} AND \
E440DLS.CODEMP = E660DLC.CODEMP AND \
E440DLS.CODFIL = E660DLC.CODFIL AND \
E440DLS.CODFOR = E660DLC.CODFOR AND \
E440DLS.CODSNF = E660DLC.CODSNF AND \
E440DLS.NUMNFC = E660DLC.NUMNFI AND \
E440DLS.SEQIPC = E660DLC.SEQIPC AND \
E440DLS.SEQDLS = E660DLC.SEQDLS)";

Definir Alfa VExcPac;
VExcPac = "DELETE FROM E660PAC \
WHERE E660PAC.CODEMP = {1} AND \
E660PAC.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660PAC.CODEMP AND \
E440NFC.CODFIL = E660PAC.CODFIL AND \
E440NFC.CODFOR = E660PAC.CODFOR AND \
E440NFC.CODSNF = E660PAC.CODSNF AND \
E440NFC.NUMNFC = E660PAC.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.CODEMP = E660PAC.CODEMP AND \
E660NFC.CODFIL = E660PAC.CODFIL AND \
E660NFC.CODFOR = E660PAC.CODFOR AND \
E660NFC.CODSNF = E660PAC.CODSNF AND \
E660NFC.NUMNFI = E660PAC.NUMNFI AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0) AND \
EXISTS (SELECT 1 \
FROM E440PAR \
WHERE E440PAR.CODEMP = {1} AND \
E440PAR.CODFIL = {2} AND \
E440PAR.CODEMP = E660PAC.CODEMP AND \
E440PAR.CODFIL = E660PAC.CODFIL AND \
E440PAR.CODFOR = E660PAC.CODFOR AND \
E440PAR.CODSNF = E660PAC.CODSNF AND \
E440PAR.NUMNFC = E660PAC.NUMNFI AND \
E440PAR.CODPAR = E660PAC.CODPAR)";

Definir Alfa VExcLnc;
VExcLnc = "DELETE FROM E660LNC \
WHERE E660LNC.CODEMP = {1} AND \
E660LNC.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660LNC.CODEMP AND \
E440NFC.CODFIL = E660LNC.CODFIL AND \
E440NFC.CODFOR = E660LNC.CODFOR AND \
E440NFC.CODSNF = E660LNC.CODSNF AND \
E440NFC.NUMNFC = E660LNC.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.CODEMP = E660LNC.CODEMP AND \
E660NFC.CODFIL = E660LNC.CODFIL AND \
E660NFC.CODFOR = E660LNC.CODFOR AND \
E660NFC.CODSNF = E660LNC.CODSNF AND \
E660NFC.NUMNFI = E660LNC.NUMNFI AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0) AND \
EXISTS (SELECT 1 \
FROM E440LNP \
WHERE E440LNP.CODEMP = {1} AND \
E440LNP.CODFIL = {2} AND \
E440LNP.CODEMP = E660LNC.CODEMP AND \
E440LNP.CODFIL = E660LNC.CODFIL AND \
E440LNP.CODFOR = E660LNC.CODFOR AND \
E440LNP.CODSNF = E660LNC.CODSNF AND \
E440LNP.NUMNFC = E660LNC.NUMNFI AND \
E440LNP.SEQIPC = E660LNC.SEQIPC) OR \
EXISTS (SELECT 1 \
FROM E440LNS \
WHERE E440LNS.CODEMP = {1} AND \
E440LNS.CODFIL = {2} AND \
E440LNS.CODEMP = E660LNC.CODEMP AND \
E440LNS.CODFIL = E660LNC.CODFIL AND \
E440LNS.CODFOR = E660LNC.CODFOR AND \
E440LNS.CODSNF = E660LNC.CODSNF AND \
E440LNS.NUMNFC = E660LNC.NUMNFI AND \
E440LNS.SEQISC = E660LNC.SEQIPC) OR \
EXISTS (SELECT 1 \
FROM E660DGC \
WHERE E660DGC.CODEMP = {1} AND \
E660DGC.CODFIL = {2} AND \
E660DGC.CODEMP = E660LNC.CODEMP AND \
E660DGC.CODFIL = E660LNC.CODFIL AND \
E660DGC.CODFOR = E660LNC.CODFOR AND \
E660DGC.CODSNF = E660LNC.CODSNF AND \
E660DGC.NUMNFI = E660LNC.NUMNFI))";

Definir Alfa VExcDgc;
VExcDgc = "DELETE FROM E660DGC \
WHERE E660DGC.CODEMP = {1} AND \
E660DGC.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E440NFC \
WHERE E440NFC.CODEMP = {1} AND \
E440NFC.CODFIL = {2} AND \
E440NFC.CODEMP = E660DGC.CODEMP AND \
E440NFC.CODFIL = E660DGC.CODFIL AND \
E440NFC.CODFOR = E660DGC.CODFOR AND \
E440NFC.CODSNF = E660DGC.CODSNF AND \
E440NFC.NUMNFC = E660DGC.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFC \
WHERE E660NFC.CODEMP = {1} AND \
E660NFC.CODFIL = {2} AND \
E660NFC.CODEMP = E660DGC.CODEMP AND \
E660NFC.CODFIL = E660DGC.CODFIL AND \
E660NFC.CODFOR = E660DGC.CODFOR AND \
E660NFC.CODSNF = E660DGC.CODSNF AND \
E660NFC.NUMNFI = E660DGC.NUMNFI AND \
E660NFC.DATENT >= {3,d} AND \
E660NFC.DATENT <= {4,d} AND \
E660NFC.NUMLOT = 0)";

Definir Alfa VExcSai;
VExcSai = "DELETE FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0 AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660NFV.CODEMP AND \
E140NFV.CODFIL = E660NFV.CODFIL AND \
E140NFV.CODSNF = E660NFV.CODSNF AND \
E140NFV.NUMNFV = E660NFV.NUMNFI)";

Definir Alfa VExcIts;
VExcIts = "DELETE FROM E660INV \
WHERE E660INV.CODEMP = {1} AND \
E660INV.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660INV.CODEMP AND \
E140NFV.CODFIL = E660INV.CODFIL AND \
E140NFV.CODSNF = E660INV.CODSNF AND \
E140NFV.NUMNFV = E660INV.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.CODEMP = E660INV.CODEMP AND \
E660NFV.CODFIL = E660INV.CODFIL AND \
E660NFV.CODSNF = E660INV.CODSNF AND \
E660NFV.NUMNFI = E660INV.NUMNFI AND \
E660NFV.NUMNFF = E660INV.NUMNFF AND \
E660NFV.CODTNS = E660INV.CODTNS AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0)";

Definir Alfa VExcRtv;
VExcRtv = "DELETE FROM E660RTV \
WHERE E660RTV.CODEMP = {1} AND \
E660RTV.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660RTV.CODEMP AND \
E140NFV.CODFIL = E660RTV.CODFIL AND \
E140NFV.CODSNF = E660RTV.CODSNF AND \
E140NFV.NUMNFV = E660RTV.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.CODEMP = E660RTV.CODEMP AND \
E660NFV.CODFIL = E660RTV.CODFIL AND \
E660NFV.CODSNF = E660RTV.CODSNF AND \
E660NFV.NUMNFI = E660RTV.NUMNFI AND \
E660NFV.NUMNFF = E660RTV.NUMNFF AND \
E660NFV.CODTNS = E660RTV.CODTNS AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0)";

Definir Alfa VExcCct;
VExcCct = "DELETE FROM E660CCT \
WHERE E660CCT.CODEMP = {1} AND \
E660CCT.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660CCT.CODEMP AND \
E140NFV.CODFIL = E660CCT.CODFIL AND \
E140NFV.CODSNF = E660CCT.CODSNF AND \
E140NFV.NUMNFV = E660CCT.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.CODEMP = E660CCT.CODEMP AND \
E660NFV.CODFIL = E660CCT.CODFIL AND \
E660NFV.CODSNF = E660CCT.CODSNF AND \
E660NFV.NUMNFI = E660CCT.NUMNFI AND \
E660NFV.NUMNFF = E660CCT.NUMNFF AND \
E660NFV.CODTNS = E660CCT.CODTNS AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0)";

Definir Alfa VExcDlv;
VExcDlv = "DELETE FROM E660DLV \
WHERE E660DLV.CODEMP = {1} AND \
E660DLV.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660DLV.CODEMP AND \
E140NFV.CODFIL = E660DLV.CODFIL AND \
E140NFV.CODSNF = E660DLV.CODSNF AND \
E140NFV.NUMNFV = E660DLV.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.CODEMP = E660DLV.CODEMP AND \
E660NFV.CODFIL = E660DLV.CODFIL AND \
E660NFV.CODSNF = E660DLV.CODSNF AND \
E660NFV.NUMNFI = E660DLV.NUMNFI AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0) AND \
EXISTS (SELECT 1 \
FROM E140DLS \
WHERE E140DLS.CODEMP = {1} AND \
E140DLS.CODFIL = {2} AND \
E140DLS.CODEMP = E660DLV.CODEMP AND \
E140DLS.CODFIL = E660DLV.CODFIL AND \
E140DLS.CODSNF = E660DLV.CODSNF AND \
E140DLS.NUMNFV = E660DLV.NUMNFI AND \
E140DLS.SEQIPV = E660DLV.SEQIPV AND \
E140DLS.SEQDLS = E660DLV.SEQDLS)";

Definir Alfa VExcPav;
VExcPav = "DELETE FROM E660PAV \
WHERE E660PAV.CODEMP = {1} AND \
E660PAV.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660PAV.CODEMP AND \
E140NFV.CODFIL = E660PAV.CODFIL AND \
E140NFV.CODSNF = E660PAV.CODSNF AND \
E140NFV.NUMNFV = E660PAV.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.CODEMP = E660PAV.CODEMP AND \
E660NFV.CODFIL = E660PAV.CODFIL AND \
E660NFV.CODSNF = E660PAV.CODSNF AND \
E660NFV.NUMNFI = E660PAV.NUMNFI AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0) AND \
EXISTS (SELECT 1 \
FROM E140PAR \
WHERE E140PAR.CODEMP = {1} AND \
E140PAR.CODFIL = {2} AND \
E140PAR.CODEMP = E660PAV.CODEMP AND \
E140PAR.CODFIL = E660PAV.CODFIL AND \
E140PAR.CODSNF = E660PAV.CODSNF AND \
E140PAR.NUMNFV = E660PAV.NUMNFI AND \
E140PAR.CODPAR = E660PAV.CODPAR)";

Definir Alfa VExcLnv;
VExcLnv = "DELETE FROM E660LNV \
WHERE E660LNV.CODEMP = {1} AND \
E660LNV.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660LNV.CODEMP AND \
E140NFV.CODFIL = E660LNV.CODFIL AND \
E140NFV.CODSNF = E660LNV.CODSNF AND \
E140NFV.NUMNFV = E660LNV.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.CODEMP = E660LNV.CODEMP AND \
E660NFV.CODFIL = E660LNV.CODFIL AND \
E660NFV.CODSNF = E660LNV.CODSNF AND \
E660NFV.NUMNFI = E660LNV.NUMNFI AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0) AND \
(EXISTS (SELECT 1 \
FROM E140LPS \
WHERE E140LPS.CODEMP = {1} AND \
E140LPS.CODFIL = {2} AND \
E140LPS.CODEMP = E660LNV.CODEMP AND \
E140LPS.CODFIL = E660LNV.CODFIL AND \
E140LPS.CODSNF = E660LNV.CODSNF AND \
E140LPS.NUMNFV = E660LNV.NUMNFI AND \
E140LPS.SEQIPV = E660LNV.SEQIPV) OR \
EXISTS (SELECT 1 \
FROM E140LNP \
WHERE E140LNP.CODEMP = {1} AND \
E140LNP.CODFIL = {2} AND \
E140LNP.CODEMP = E660LNV.CODEMP AND \
E140LNP.CODFIL = E660LNV.CODFIL AND \
E140LNP.CODSNF = E660LNV.CODSNF AND \
E140LNP.NUMNFV = E660LNV.NUMNFI AND \
E140LNP.SEQIPV = E660LNV.SEQIPV) OR \
EXISTS (SELECT 1 \
FROM E140LNS \
WHERE E140LNS.CODEMP = {1} AND \
E140LNS.CODFIL = {2} AND \
E140LNS.CODEMP = E660LNV.CODEMP AND \
E140LNS.CODFIL = E660LNV.CODFIL AND \
E140LNS.CODSNF = E660LNV.CODSNF AND \
E140LNS.NUMNFV = E660LNV.NUMNFI AND \
E140LNS.SEQISV = E660LNV.SEQIPV) OR \
EXISTS (SELECT 1 \
FROM E140REN \
WHERE E140REN.CODEMP = {1} AND \
E140REN.CODFIL = {2} AND \
E140REN.CODEMP = E660LNV.CODEMP AND \
E140REN.CODFIL = E660LNV.CODFIL AND \
E140REN.CODSNF = E660LNV.CODSNF AND \
E140REN.NUMNFV = E660LNV.NUMNFI))";

Definir Alfa VExcDgv;
VExcDgv = "DELETE FROM E660DGV \
WHERE E660DGV.CODEMP = {1} AND \
E660DGV.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E140NFV \
WHERE E140NFV.CODEMP = {1} AND \
E140NFV.CODFIL = {2} AND \
E140NFV.CODEMP = E660DGV.CODEMP AND \
E140NFV.CODFIL = E660DGV.CODFIL AND \
E140NFV.CODSNF = E660DGV.CODSNF AND \
E140NFV.NUMNFV = E660DGV.NUMNFI) AND \
EXISTS (SELECT 1 \
FROM E660NFV \
WHERE E660NFV.CODEMP = {1} AND \
E660NFV.CODFIL = {2} AND \
E660NFV.CODEMP = E660DGV.CODEMP AND \
E660NFV.CODFIL = E660DGV.CODFIL AND \
E660NFV.CODSNF = E660DGV.CODSNF AND \
E660NFV.NUMNFI = E660DGV.NUMNFI AND \
E660NFV.DATEMI >= {3,d} AND \
E660NFV.DATEMI <= {4,d} AND \
E660NFV.NUMLOT = 0)";

Definir Alfa VExcExf;
VExcExf = "DELETE FROM E660EXF \
WHERE E660EXF.CODEMP = {1} AND \
E660EXF.CODFIL = {2} AND \
EXISTS ( SELECT 1 \
FROM E440EXF, E440NFC \
WHERE E440EXF.CODEMP = E440NFC.CODEMP AND \
E440EXF.CODFIL = E440NFC.CODFIL AND \
E440EXF.CODFOR = E440NFC.CODFOR AND \
E440EXF.NUMNFC = E440NFC.NUMNFC AND \
E440EXF.CODSNF = E440NFC.CODSNF AND \
E440EXF.CODEMP = {1} AND \
E440EXF.CODFIL = {2} AND \
E440NFC.DATENT >= {3,d} AND \
E440NFC.DATENT <= {4,d} AND \
E440EXF.CODEMP = E660EXF.CODEMP AND \
E440EXF.CODFIL = E660EXF.CODFIL AND \
E440EXF.CODFOR = E660EXF.CODFOR AND \
E440EXF.CODSNF = E660EXF.CODSNF AND \
E440EXF.NUMNFC = E660EXF.NUMNFI AND \
E440EXF.SEQEXF = E660EXF.SEQEXF)";

Definir Alfa VAtuEnt;
VAtuEnt = "UPDATE E440NFC \
SET INTIMP = 'S' \
WHERE CODEMP = {1} AND \
CODFIL = {2} AND \
NUMNFC = {3} AND \
CODFOR = {4} AND \
CODSNF = {5} AND \
INTIMP <> 'S'";

Definir Alfa VAtuSai;
VAtuSai = "UPDATE E140NFV \
SET INTIMP = 'S' \
WHERE CODEMP = {1} AND \
CODFIL = {2} AND \
CODSNF = {3} AND \
NUMNFV = {4} AND \
INTIMP <> 'S'";

Definir Alfa VPctRtc;
VPctRtc = "SELECT SUM(VLRCTA) AS VLRCTA \
FROM (SELECT DISTINCT RAT.NUMPRJ,RAT.CODFPJ,RAT.CTAFIN,RAT.CTARED,RAT.VLRCTA \
FROM E440RAT RAT\
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.CODFOR = {CODFOR} \
AND RAT.NUMNFC = {NUMNFC} \
AND RAT.CODSNF = {CODSNF} \
AND RAT.CTARED = {CTARED}";

Definir Alfa VTctRtc;
VTctRtc = "SELECT SUM(VLRCTA) AS TOTVLR \
FROM (SELECT DISTINCT RAT.NUMPRJ,RAT.CODFPJ,RAT.CTAFIN,RAT.CTARED,RAT.VLRCTA \
FROM E440RAT RAT\
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.CODFOR = {CODFOR} \
AND RAT.NUMNFC = {NUMNFC} \
AND RAT.CODSNF = {CODSNF}";

Definir Alfa VPctRtv;
VPctRtv = "SELECT SUM(VLRCTA) AS VLRCTA \
FROM (SELECT DISTINCT RAT.NUMPRJ,RAT.CODFPJ,RAT.CTAFIN,RAT.CTARED,RAT.VLRCTA \
FROM E140RAT RAT\
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.NUMNFV = {NUMNFV} \
AND RAT.CODSNF = {CODSNF} \
AND RAT.CTARED = {CTARED}";

Definir Alfa VTctRtv;
VTctRtv = "SELECT SUM(VLRCTA) AS VLRCTA \
FROM (SELECT DISTINCT RAT.NUMPRJ,RAT.CODFPJ,RAT.CTAFIN,RAT.CTARED,RAT.VLRCTA \
FROM E140RAT RAT\
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.NUMNFV = {NUMNFV} \
AND RAT.CODSNF = {CODSNF}";

Definir Alfa VPrtRtc;
VPrtRtc = "SELECT SUM(RAT.VLRRAT) AS VLRRAT \
FROM E440RAT RAT \
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.CODFOR = {CODFOR} \
AND RAT.CODSNF = {CODSNF} \
AND RAT.NUMNFC = {NUMNFC} \
AND RAT.CTARED = {CTARED} \
AND RAT.CODCCU = {CODCCU}";

Definir Alfa VTrtRtc;
VTrtRtc = "SELECT SUM(RAT.VLRRAT) AS VLRRAT \
FROM E440RAT RAT \
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.CODFOR = {CODFOR} \
AND RAT.CODSNF = {CODSNF} \
AND RAT.NUMNFC = {NUMNFC} \
AND RAT.CTARED = {CTARED}";

Definir Alfa VPrtRtv;
VPrtRtv = "SELECT SUM(RAT.VLRRAT) AS VLRRAT \
FROM E140RAT RAT \
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.CODSNF = {CODSNF} \
AND RAT.NUMNFV = {NUMNFV} \
AND RAT.CTARED = {CTARED} \
AND RAT.CODCCU = {CODCCU}";

Definir Alfa VTrtRtv;
VTrtRtv = "SELECT SUM(RAT.VLRRAT) AS VLRRAT \
FROM E140RAT RAT \
WHERE RAT.CODEMP = {CODEMP} \
AND RAT.CODFIL = {CODFIL} \
AND RAT.CODSNF = {CODSNF} \
AND RAT.NUMNFV = {NUMNFV} \
AND RAT.CTARED = {CTARED}";

Definir Alfa VMovExp;
VMovExp = "SELECT CodEmp, CodFil, NumEbq, CodTra, PlaVei, NomMot, DocMot, FonEbq, DsnEbq, \
ObsEbq, DatSai, HorSai, UsuGer, DatGer, HorGer, CodMtr, SitEbq, DatFec, \
HorFec, TipEbq, DocExp, NumDec, DatDec, NatExp, NumExp, DatExp, ChcEbq, \
DatChc, DatAvb, TipChc, CodPai, IntImp \
FROM E145EBQ \
WHERE E145EBQ.CODEMP = {CODEMP} AND \
E145EBQ.CODFIL = {CODFIL} AND \
E145EBQ.DATAVB >= {DATINI} AND \
E145EBQ.DATAVB <= {DATFIM} AND \
E145EBQ.SITEBQ = '2' AND \
E145EBQ.TIPEBQ = 'E'";

Definir Alfa VDocNfx;
VDocNfx = "SELECT CodEmp, CodFil, NumEbq, SeqEbq, FilNfv, SnfNfv, NumNfv \
FROM E145NFV \
WHERE CODEMP = {CODEMP} AND \
CODFIL = {CODFIL} AND \
NUMEBQ = {NUMEBQ} \
ORDER BY SEQEBQ";

Definir Alfa VExcExp;
VExcExp = "DELETE FROM E660EXP \
WHERE E660EXP.CODEMP = {1} AND \
E660EXP.CODFIL = {2} AND \
E660EXP.DATAVB >= {3,d} AND \
E660EXP.DATAVB <= {4,d} AND \
EXISTS (SELECT 1 \
FROM E145EBQ \
WHERE E145EBQ.CODEMP = {1} AND \
E145EBQ.CODFIL = {2} AND \
E145EBQ.NUMEBQ = E660EXP.NUMEBQ)";

Definir Alfa VExcNfx;
VExcNfx = "DELETE FROM E660NFX \
WHERE E660NFX.CODEMP = {1} AND \
E660NFX.CODFIL = {2} AND \
EXISTS (SELECT 1 \
FROM E660EXP \
WHERE E660EXP.CODEMP = {1} AND \
E660EXP.CODFIL = {2} AND \
E660EXP.NUMEBQ = E660NFX.NUMEBQ AND \
E660EXP.DATAVB >= {3,d} AND \
E660EXP.DATAVB <= {4,d}) AND \
EXISTS (SELECT 1 \
FROM E145EBQ \
WHERE E145EBQ.CODEMP = {1} AND \
E145EBQ.CODFIL = {2} AND \
E145EBQ.NUMEBQ = E660NFX.NUMEBQ AND \
E145EBQ.DATAVB >= {3,d} AND \
E145EBQ.DATAVB <= {4,d}) AND \
EXISTS (SELECT 1 \
FROM E145NFV \
WHERE E145NFV.CODEMP = {1} AND \
E145NFV.CODFIL = {2} AND \
E145NFV.NUMEBQ = E660NFX.NUMEBQ AND \
E145NFV.SEQEBQ = E660NFX.SEQEBQ)";

Definir Alfa VAtuExp;
VAtuExp = "UPDATE E145EBQ \
SET INTIMP = 'S' \
WHERE CODEMP = {1} AND \
CODFIL = {2} AND \
NUMEBQ = {3}";

Definir Alfa VRelEnt;
VRelEnt = "SELECT CodEmp, CodFil, CodFor, NumNfc, CodSnf, SeqExf, FilRlc, ForRlc, NumRlc, SnfRlc \
FROM E440EXF \
WHERE E440EXF.CODEMP = {CODEMP} AND \
E440EXF.CODFIL = {CODFIL} AND \
E440EXF.CODFOR = {CODFOR} AND \
E440EXF.NUMNFC = {NUMNFC} AND \
E440EXF.CODSNF = {CODSNF}";