Identificador de Regra

Definir Alfa VGerImp;
Definir Alfa VExcImp;

/*SQL Usado na integração dos registros*/

VGerImp = "SELECT *  FROM E440IMP " +
"WHERE E440IMP.CODEMP = {CODEMP} AND " +
"E440IMP.CODFIL = {CODFIL} AND " +
"E440IMP.CODFOR = {CODFOR} AND " +
"E440IMP.NUMNFC = {NUMNFC} AND " +
"E440IMP.CODSNF = {CODSNF} AND E440IMP.CODIMP = 'FTH' ORDER BY " +
" CODEMP, CODFIL, CODFOR, NUMNFC, CODSNF, SEQIPC";

/*SQL usado na exclusão dos registros*/

VExcImp = "DELETE FROM E660IMP " +

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

x=y;