Identificador de Regra
INT-115PRPCM01
Módulo: INT - Integrações.
Finalidade: Este identificador permite a customização das informações enviadas para o App do Produtor Rural.
Regra:
Definir Numero INTNIdeInt; Definir Alfa INTASqlPen; Definir Alfa INTASqlEnv; Se (INTNIdeInt = 199) { @Cota Capital @ INTASqlPen = "SELECT DISTINCT 1 SEQINT, E085CLI.CGCCPF, 0 VERREG, E250CTC.IDEUNI AS CHVDOC " + " FROM E250CTC " + " INNER JOIN E085CLI ON E085CLI.CODCLI = E250CTC.CODCLI " + " WHERE EXISTS (SELECT 1 FROM E250ICT WHERE E250ICT.IDECTC = E250CTC.IDEUNI AND E250ICT.TIPICT = 'C') "; INTASqlEnv = "SELECT SUM(VLRVCT) AS VLRITG, 1 SEQINT, E085CLI.CGCCPF, E250CTC.IDEUNI AS CHVDOC, " + " E250CTC.CODEMP, E250CTC.CODFIL, E250CTC.CODCLI, E250CTC.IDEUNI IDECTC, " + " (SELECT VLRCTC " + " FROM (SELECT TOP 1 VLRCTC, CODEMP " + " FROM E250VCT ORDER BY DATVGC DESC) DADOS " + " LEFT JOIN E070EMP ON E070EMP.CODEMP = DADOS.CODEMP " + " WHERE E070EMP.CODEMP = E250CTC.CODEMP) VLRCTC " + " FROM E250CTC " + " INNER JOIN E250ICT ON E250ICT.IDECTC = E250CTC.IDEUNI " + " INNER JOIN E085CLI ON E085CLI.CODCLI = E250CTC.CODCLI " + " WHERE EXISTS (SELECT 1 FROM E250ICT WHERE E250ICT.IDECTC = E250CTC.IDEUNI AND E250ICT.TIPICT = 'C') " + " AND E250ICT.TIPICT = 'C' " + " GROUP BY E085CLI.CGCCPF, E250CTC.CODEMP, E250CTC.CODFIL, " + " E250CTC.CODCLI, E250CTC.IDEUNI "; } senao se(INTNIdeInt = 10) { @Cliente @ INTASqlPen = "SELECT DISTINCT E085CLI.CODCLI SEQINT, E085CLI.CGCCPF, 0 VERREG, E085CLI.CODCLI AS CHVDOC " + " FROM E085CLI "; INTASqlEnv = "SELECT 170 CODEMP, 1 CODFIL, E085CLI.CODCLI, E085CLI.NOMCLI, E085CLI.INTNET, " + " E085CLI.SITCLI, E085CLI.CGCCPF, E085CLI.CODCLI SEQINT, E085CLI.TIPCLI, " + " E085CLI.CODFOR, E085CLI.CODCLI AS CHVDOC " + " FROM E085CLI " ; } senao se(INTNIdeInt = 52) { @Fornecedor @ INTASqlPen = "SELECT DISTINCT E095FOR.CODFOR SEQINT, E095FOR.CGCCPF, 0 VERREG, E095FOR.CODFOR AS CHVDOC " + " FROM E095FOR "; INTASqlEnv = "SELECT 170 CODEMP, 1 CODFIL, E095FOR.CODFOR, E095FOR.NOMFOR, E095FOR.INTNET, " + " E095FOR.SITFOR, E095FOR.CGCCPF, E095FOR.CODFOR SEQINT, E095FOR.TIPFOR, " + " E095FOR.CODCLI, E095FOR.CODFOR AS CHVDOC " + " FROM E095FOR " ; } senao se(INTNIdeInt = 85) { @Contas a Receber @ INTASqlPen = "SELECT DISTINCT 1 SEQINT, E085CLI.CGCCPF, 0 VERREG, " + " CONCAT(E301TCR.CODEMP, ';', E301TCR.CODFIL, ';', E301TCR.NUMTIT, ';', E301TCR.CODTPT) AS CHVDOC " + " FROM E301TCR " + " INNER JOIN E085CLI ON E085CLI.CODCLI = E301TCR.CODCLI " ; INTASqlEnv = "SELECT 1 SEQINT, E031MOE.DESMOE, E085CLI.CGCCPF, E085CLI.TIPCLI, " + " E001TNS.RECDEC, E001TNS.LISMOD, E070FIL.CEPFIL, E070FIL.CEPCOB, E070FIL.RECTBC, E070FIL.RECVDM, " + " E070FIL.RECVJM, E070FIL.RECVMM, E070FIL.RECTPM, E070FIL.RECTBP, E070FIL.RECPOR, E070FIL.PAGTDC, " + " E070FIL.RECPDI, E070FIL.RECPDF, E070FIL.CXBPDI, E070FIL.CXBPDF, E070FIN.RECJOA, E070FIN.RECJOD, " + " E070FIN.RECMOA, E301TCR.*, " + " CONCAT(E301TCR.CODEMP, ';', E301TCR.CODFIL, ';', E301TCR.NUMTIT, ';', E301TCR.CODTPT) AS CHVDOC " + " FROM E301TCR " + " LEFT JOIN E031MOE ON E031MOE.CODMOE = E301TCR.CODMOE " + " LEFT JOIN E085CLI ON E085CLI.CODCLI = E301TCR.CODCLI " + " LEFT JOIN E001TNS ON E001TNS.CODEMP = E301TCR.CODEMP " + " AND E001TNS.CODTNS = E301TCR.CODTNS " + " LEFT JOIN E070FIL ON E070FIL.CODEMP = E301TCR.CODEMP " + " AND E070FIL.CODFIL = E301TCR.CODFIL " + " LEFT JOIN E070FIN ON E070FIN.CODEMP = E070FIL.CODEMP " + " AND E070FIN.CODFIL = E070FIL.CODFIL "; } senao se(INTNIdeInt = 106) { @Baixa Contas a Receber @ INTASqlPen = "SELECT DISTINCT 1 SEQINT, E085CLI.CGCCPF, 0 VERREG, " + " CONCAT(E301MCR.CODEMP, ';', E301MCR.CODFIL, ';', E301MCR.NUMTIT, ';', E301MCR.CODTPT, ';', E301MCR.SEQMOV) AS CHVDOC " + " FROM E301MCR " + " INNER JOIN E301TCR ON E301TCR.CODEMP = E301MCR.CODEMP " + " AND E301TCR.CODFIL = E301MCR.CODFIL " + " AND E301TCR.NUMTIT = E301MCR.NUMTIT " + " AND E301TCR.CODTPT = E301MCR.CODTPT " + " INNER JOIN E085CLI ON E085CLI.CODCLI = E301TCR.CODCLI " ; INTASqlEnv = "SELECT 1 SEQINT, E031MOE.DESMOE, E085CLI.CGCCPF, E085CLI.TIPCLI, " + " E001TNS.RECDEC, E001TNS.LISMOD, E070FIL.CEPFIL, E070FIL.CEPCOB, E070FIL.RECTBC, E070FIL.RECVDM, " + " E070FIL.RECVJM, E070FIL.RECVMM, E070FIL.RECTPM, E070FIL.RECTBP, E070FIL.RECPOR, E070FIL.PAGTDC, " + " E070FIL.RECPDI, E070FIL.RECPDF, E070FIL.CXBPDI, E070FIL.CXBPDF, E070FIN.RECJOA, E070FIN.RECJOD, " + " E070FIN.RECMOA, E301TCR.*, " + " CONCAT(E301MCR.CODEMP, ';', E301MCR.CODFIL, ';', E301MCR.NUMTIT, ';', E301MCR.CODTPT, ';', E301MCR.SEQMOV) AS CHVDOC " + " FROM E301MCR " + " INNER JOIN E301TCR ON E301TCR.CODEMP = E301MCR.CODEMP " + " AND E301TCR.CODFIL = E301MCR.CODFIL " + " AND E301TCR.NUMTIT = E301MCR.NUMTIT " + " AND E301TCR.CODTPT = E301MCR.CODTPT " + " LEFT JOIN E031MOE ON E031MOE.CODMOE = E301TCR.CODMOE " + " LEFT JOIN E085CLI ON E085CLI.CODCLI = E301TCR.CODCLI " + " LEFT JOIN E001TNS ON E001TNS.CODEMP = E301TCR.CODEMP " + " AND E001TNS.CODTNS = E301TCR.CODTNS " + " LEFT JOIN E070FIL ON E070FIL.CODEMP = E301TCR.CODEMP " + " AND E070FIL.CODFIL = E301TCR.CODFIL " + " LEFT JOIN E070FIN ON E070FIN.CODEMP = E070FIL.CODEMP " + " AND E070FIN.CODFIL = E070FIL.CODFIL "; } senao se(INTNIdeInt = 84) { @Titulo a pagar @ INTASqlPen = "SELECT DISTINCT E501TCP.CODFOR SEQINT, E095FOR.CGCCPF, 0 VERREG, " + " CONCAT(E501TCP.CODEMP, ';', E501TCP.CODFIL, ';', E501TCP.NUMTIT, ';', E501TCP.CODTPT, ';', E501TCP.CODFOR) AS CHVDOC " + " FROM E501TCP " + " INNER JOIN E095FOR ON E095FOR.CODFOR = E501TCP.CODFOR " ; INTASqlEnv = "SELECT E501TCP.CODFOR SEQINT, E031MOE.DESMOE, E095FOR.CGCCPF, E095FOR.TIPFOR, " + " E001TNS.PAGDEC, E001TNS.LISMOD, E070FIL.CEPCOB, E070FIL.CEPFIL, E070FIL.PAGVJM, E070FIL.PAGVMM, " + " E070FIL.PAGVDM, E501TCP.*, " + " CONCAT(E501TCP.CODEMP, ';', E501TCP.CODFIL, ';', E501TCP.NUMTIT, ';', E501TCP.CODTPT, ';', E501TCP.CODFOR) AS CHVDOC " + " FROM E501TCP " + " LEFT JOIN E031MOE ON E031MOE.CODMOE = E501TCP.CODMOE " + " LEFT JOIN E095FOR ON E095FOR.CODFOR = E501TCP.CODFOR " + " LEFT JOIN E001TNS ON E001TNS.CODEMP = E501TCP.CODEMP " + " AND E001TNS.CODTNS = E501TCP.CODTNS " + " LEFT JOIN E070FIL ON E070FIL.CODEMP = E501TCP.CODEMP " + " AND E070FIL.CODFIL = E501TCP.CODFIL " ; } senao se(INTNIdeInt = 79) { @Baixa de Título a pagar @ INTASqlPen = "SELECT DISTINCT E501MCP.CODFOR SEQINT, E095FOR.CGCCPF, 0 VERREG, " + " CONCAT(E501MCP.CODEMP, ';', E501MCP.CODFIL, ';', E501MCP.NUMTIT, ';', E501MCP.CODTPT, ';', E501MCP.CODFOR, ';', E501MCP.SEQMOV) AS CHVDOC " + " FROM E501MCP " + " LEFT JOIN E095FOR ON E095FOR.CODFOR = E501MCP.CODFOR " ; INTASqlEnv = "SELECT E501TCP.CODFOR SEQINT, E031MOE.DESMOE, E095FOR.CGCCPF, E095FOR.TIPFOR, " + " E001TNS.PAGDEC, E001TNS.LISMOD, E070FIL.CEPCOB, E070FIL.CEPFIL, E070FIL.PAGVJM, E070FIL.PAGVMM, " + " E070FIL.PAGVDM, E501TCP.*, " + " CONCAT(E501MCP.CODEMP, ';', E501MCP.CODFIL, ';', E501MCP.NUMTIT, ';', E501MCP.CODTPT, ';', E501MCP.CODFOR, ';', E501MCP.SEQMOV) AS CHVDOC " + " FROM E501MCP " + " INNER JOIN E501TCP ON E501TCP.CODEMP = E501MCP.CODEMP " + " AND E501TCP.CODFIL = E501MCP.CODFIL " + " AND E501TCP.NUMTIT = E501MCP.NUMTIT " + " AND E501TCP.CODTPT = E501MCP.CODTPT " + " AND E501TCP.CODFOR = E501MCP.CODFOR " + " LEFT JOIN E031MOE ON E031MOE.CODMOE = E501TCP.CODMOE " + " LEFT JOIN E095FOR ON E095FOR.CODFOR = E501TCP.CODFOR " + " LEFT JOIN E001TNS ON E001TNS.CODEMP = E501TCP.CODEMP " + " AND E001TNS.CODTNS = E501TCP.CODTNS " + " LEFT JOIN E070FIL ON E070FIL.CODEMP = E501TCP.CODEMP " + " AND E070FIL.CODFIL = E501TCP.CODFIL " ; } senao se(INTNIdeInt = 118) { @Cotação Moeda @ INTASqlPen = "SELECT DISTINCT 1 SEQINT, 0 CGCCPF, 0 VERREG, E031MOE.CODMOE, E031IMO.DATMOE, 0 HORCOT, " + " CONCAT(E031IMO.CODMOE, ';', E031IMO.DATMOE) AS CHVDOC " + " FROM E031IMO " + " INNER JOIN E031MOE ON E031MOE.CODMOE = E031IMO.CODMOE " + " WHERE COALESCE(E031MOE.INTAGR, 'N') = 'S' " + " AND E031MOE.TIPMOE <> 'H' "; INTASqlEnv = "SELECT E031IMO.CODMOE, E031MOE.DESMOE, E031MOE.SIGMOE, E031IMO.DATMOE, E031IMO.VLRPRE, E031IMO.VLRCOT, " + " 1 SEQINT, E031MOE.TIPCON, 0 HORCOT, " + " CONCAT(E031IMO.CODMOE, ';', E031IMO.DATMOE) AS CHVDOC " + " FROM E031IMO " + " INNER JOIN E031MOE ON E031MOE.CODMOE = E031IMO.CODMOE " ; } senao se(INTNIdeInt = 117) { @Moeda @ INTASqlPen = "SELECT DISTINCT 1 SEQINT, 0 CGCCPF, 0 VERREG, E031MOE.CODMOE AS CHVDOC " + " FROM E031MOE " + " WHERE COALESCE(E031MOE.INTAGR, 'N') = 'S' " ; INTASqlEnv = "SELECT E031MOE.CODMOE, E031MOE.DESMOE, E031MOE.SIGMOE, 1 SEQINT, E031MOE.CODMOE AS CHVDOC, " + " 'S' AS INTAGR, 1 AS TEMREGISTRO " + " FROM E031MOE " ; } senao se(INTNIdeInt = 202) { @Saldo Físico @ INTASqlPen = "SELECT DISTINCT 1 SEQINT, NULL CODINT, 202 IDEINT, 0 VERREG, A.CODEMP, A.CODFIL, A.CGCCPF, A.CODSAF, " + " A.CPTINI, A.CODFAM, A.DESFAM, A.CODPRO, A.DESPRO, A.UNIMED, CONCAT(A.CODSAF, ' - ', A.DESSAF) AS DESSAF, " + " CONCAT(A.CODEMP, ';', A.CODFIL, ';', A.CODSAF, ';', A.CODFAM, ';', A.CODPRO, ';', A.CGCCPF) AS CHVDOC, " + " SUM(QTD_ENTREGUE) QTD_ENTREGUE, SUM(QTD_FIXADO) QTD_FIXADO, SUM(QTD_DEVOLVIDA) QTD_DEVOLVIDA, " + " SUM(QTD_CONTRATOS) QTD_CONTRATOS, SUM(QTD_BLOQUEADO) QTD_BLOQUEADO, SUM(QTD_ABERTO) QTD_ABERTO " + "FROM ( " + " SELECT E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED, " + " SUM(E420IPO.QTDPED) QTD_ENTREGUE, 0 QTD_FIXADO, 0 QTD_DEVOLVIDA, 0 QTD_CONTRATOS, 0 QTD_BLOQUEADO, 0 QTD_ABERTO " + " FROM E420OCP " + " INNER JOIN E420IPO ON E420IPO.CODEMP = E420OCP.CODEMP " + " AND E420IPO.CODFIL = E420OCP.CODFIL " + " AND E420IPO.NUMOCP = E420OCP.NUMOCP " + " INNER JOIN E113SAF ON E113SAF.CODEMP = E420OCP.CODEMP " + " AND E113SAF.CODSAF = E420OCP.CODSAF " + " INNER JOIN E075PRO ON E075PRO.CODEMP = E420IPO.CODEMP " + " AND E075PRO.CODPRO = E420IPO.CODPRO " + " INNER JOIN E012FAM ON E012FAM.CODEMP = E075PRO.CODEMP " + " AND E012FAM.CODFAM = E075PRO.CODFAM " + " INNER JOIN E095FOR ON E095FOR.CODFOR = E420OCP.CODFOR " + " WHERE E420OCP.PRCOCP = 14 " + " GROUP BY E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, " + " E113SAF.CPTINI, E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED " + " UNION ALL " + " SELECT E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED, " + " 0 QTD_ENTREGUE, 0 QTD_FIXADO, SUM(E420IPO.QTDCAN) QTD_DEVOLVIDA, 0 QTD_CONTRATOS, 0 QTD_BLOQUEADO, 0 QTD_ABERTO " + " FROM E420OCP " + " INNER JOIN E420IPO ON E420IPO.CODEMP = E420OCP.CODEMP " + " AND E420IPO.CODFIL = E420OCP.CODFIL " + " AND E420IPO.NUMOCP = E420OCP.NUMOCP " + " INNER JOIN E075PRO ON E075PRO.CODEMP = E420IPO.CODEMP " + " AND E075PRO.CODPRO = E420IPO.CODPRO " + " INNER JOIN E012FAM ON E012FAM.CODEMP = E075PRO.CODEMP " + " AND E012FAM.CODFAM = E075PRO.CODFAM " + " INNER JOIN E095FOR ON E095FOR.CODFOR = E420OCP.CODFOR " + " INNER JOIN E113SAF ON E113SAF.CODEMP = E420OCP.CODEMP " + " AND E113SAF.CODSAF = E420OCP.CODSAF " + " WHERE E420OCP.PRCOCP = 14 " + " GROUP BY E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED " + " UNION ALL " + " SELECT E439FIX.CODEMP, E439FIX.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED, " + " 0 QTD_ENTREGUE, SUM(COALESCE(E439IPO.QTDFIX, E440IPC.QTDREC)) QTD_FIXADO, 0 QTD_DEVOLVIDA, 0 QTD_CONTRATOS, 0 QTD_BLOQUEADO, 0 QTD_ABERTO " + " FROM E095FOR " + " INNER JOIN E439FIX ON (E439FIX.CODFOR = E095FOR.CODFOR OR " + " CONVERT(CHAR, E095FOR.CODFOR) IN (E439FIX.ABGFOR)) " + " LEFT JOIN E439IPO ON E439IPO.CODEMP = E439FIX.CODEMP " + " AND E439IPO.CODFIL = E439FIX.CODFIL " + " AND E439IPO.NUMFIX = E439FIX.NUMFIX " + " LEFT JOIN E440NFC ON E440NFC.CODEMP = E439FIX.CODEMP " + " AND E440NFC.FILFIX = E439FIX.CODFIL " + " AND E440NFC.NUMFIX = E439FIX.NUMFIX " + " LEFT JOIN E440IPC ON E440IPC.CODEMP = E440NFC.CODEMP " + " AND E440IPC.CODFIL = E440NFC.CODFIL " + " AND E440IPC.CODFOR = E440NFC.CODFOR " + " AND E440IPC.NUMNFC = E440NFC.NUMNFC " + " AND E440IPC.CODSNF = E440NFC.CODSNF " + " AND ((E440IPC.SEQIPC = E439IPO.SEQIPC) OR (E439IPO.SEQIPC IS NULL)) " + " INNER JOIN E420IPO ON E420IPO.CODEMP = COALESCE(E439IPO.CODEMP, E440IPC.CODEMP) " + " AND E420IPO.CODFIL = COALESCE(E439IPO.FILOCP, E440IPC.FILOCP) " + " AND E420IPO.NUMOCP = COALESCE(E439IPO.NUMOCP, E440IPC.NUMOCP) " + " AND E420IPO.SEQIPO = COALESCE(E439IPO.IPOOCP, E440IPC.SEQIPO) " + " INNER JOIN E075PRO ON E075PRO.CODEMP = E420IPO.CODEMP " + " AND E075PRO.CODPRO = E420IPO.CODPRO " + " INNER JOIN E012FAM ON E012FAM.CODEMP = E075PRO.CODEMP " + " AND E012FAM.CODFAM = E075PRO.CODFAM " + " INNER JOIN E420OCP ON E420OCP.CODEMP = E420IPO.CODEMP " + " AND E420OCP.CODFIL = E420IPO.CODFIL " + " AND E420OCP.NUMOCP = E420IPO.NUMOCP " + " INNER JOIN E113SAF ON E113SAF.CODEMP = E420OCP.CODEMP " + " AND E113SAF.CODSAF = E420OCP.CODSAF " + " WHERE E420OCP.PRCOCP = 14 " + " GROUP BY E439FIX.CODEMP, E439FIX.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED " + " UNION ALL " ; INTASqlPen = INTASqlPen +" SELECT E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED, " + " 0 QTD_ENTREGUE, 0 QTD_FIXADO, 0 QTD_DEVOLVIDA, 0 QTD_CONTRATOS, 0 QTD_BLOQUEADO, SUM(E420IPO.QTDABE) QTD_ABERTO " + " FROM E420OCP " + " INNER JOIN E420IPO ON E420IPO.CODEMP = E420OCP.CODEMP " + " AND E420IPO.CODFIL = E420OCP.CODFIL " + " AND E420IPO.NUMOCP = E420OCP.NUMOCP " + " INNER JOIN E075PRO ON E075PRO.CODEMP = E420IPO.CODEMP " + " AND E075PRO.CODPRO = E420IPO.CODPRO " + " INNER JOIN E012FAM ON E012FAM.CODEMP = E075PRO.CODEMP " + " AND E012FAM.CODFAM = E075PRO.CODFAM " + " INNER JOIN E095FOR ON E095FOR.CODFOR = E420OCP.CODFOR " + " INNER JOIN E113SAF ON E113SAF.CODEMP = E420OCP.CODEMP " + " AND E113SAF.CODSAF = E420OCP.CODSAF " + " WHERE E420OCP.PRCOCP = 14 " + " GROUP BY E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED " + " UNION ALL " + " SELECT E460CTR.CODEMP, E460CTR.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED, " + " 0 QTD_ENTREGUE, 0 QTD_FIXADO, 0 QTD_DEVOLVIDA, SUM(E460CCP.QTDCTR - E460CCP.QTDUTI - E460CCP.QTDCAN) QTD_CONTRATOS, 0 QTD_BLOQUEADO, 0 QTD_ABERTO " + " FROM E460CTR " + " INNER JOIN E460CCP ON E460CCP.CODEMP = E460CTR.CODEMP " + " AND E460CCP.CODFIL = E460CTR.CODFIL " + " AND E460CCP.NUMCTR = E460CTR.NUMCTR " + " INNER JOIN E075PRO ON E075PRO.CODEMP = E460CCP.CODEMP " + " AND E075PRO.CODPRO = E460CCP.CODPRO " + " INNER JOIN E012FAM ON E012FAM.CODEMP = E075PRO.CODEMP " + " AND E012FAM.CODFAM = E075PRO.CODFAM " + " INNER JOIN E095FOR ON E095FOR.CODFOR = E460CTR.CODFOR " + " INNER JOIN E113SAF ON E113SAF.CODEMP = E460CTR.CODEMP " + " AND E113SAF.CODSAF = E460CTR.CODSAF " + " GROUP BY E460CTR.CODEMP, E460CTR.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED " + " UNION ALL " + " SELECT E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED, " + " 0 QTD_ENTREGUE, 0 QTD_FIXADO, 0 QTD_DEVOLVIDA, 0 QTD_CONTRATOS, SUM(E420IPO.QTDBLO) QTD_BLOQUEADO, 0 QTD_ABERTO " + " FROM E420OCP " + " INNER JOIN E420IPO ON E420IPO.CODEMP = E420OCP.CODEMP " + " AND E420IPO.CODFIL = E420OCP.CODFIL " + " AND E420IPO.NUMOCP = E420OCP.NUMOCP " + " INNER JOIN E075PRO ON E075PRO.CODEMP = E420IPO.CODEMP " + " AND E075PRO.CODPRO = E420IPO.CODPRO " + " INNER JOIN E012FAM ON E012FAM.CODEMP = E075PRO.CODEMP " + " AND E012FAM.CODFAM = E075PRO.CODFAM " + " INNER JOIN E095FOR ON E095FOR.CODFOR = E420OCP.CODFOR " + " INNER JOIN E113SAF ON E113SAF.CODEMP = E420OCP.CODEMP " + " AND E113SAF.CODSAF = E420OCP.CODSAF " + " WHERE E420OCP.PRCOCP = 14 " + " GROUP BY E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, E113SAF.CPTINI, " + " E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, E075PRO.UNIMED " + ") A " + "GROUP BY A.CODEMP, A.CODFIL, A.CGCCPF, A.CODSAF, A.DESSAF, A.CPTINI, " + " A.CODFAM, A.DESFAM, A.CODPRO, A.DESPRO, A.UNIMED "; INTASqlEnv = INTASqlPen; } senao se(INTNIdeInt = 02) { @Unidade de medida @ INTASqlPen = "SELECT DISTINCT 1 AS SEQINT, 0 AS CGCCPF, 0 VERREG, E015MED.UNIMED AS CHVDOC " + " FROM E015MED "; INTASqlEnv = "SELECT DISTINCT 1 AS SEQINT, E015MED.UNIMED, E015MED.DESMED, E015MED.UNIMED AS CHVDOC " + " FROM E015MED " ; }
Variáveis Disponibilizadas:
Nome | Tipo | Observações | Retorna Valor |
---|---|---|---|
INTNIdeInt | Inteiro | Código Identificador do tipo de Informação | N |
INTASqlPen | Alfa | SQL customizado de Pendências | S |
INTASqlEnv | Alfa | SQL customizado de Envio | S |
Campos:
Observação
No Select da regra, deve-se conter os campos no cabeçalho conforme o envio e pendências necessárias para cada integração. A lista de campos e suas definições estão categorizados a seguir.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CHVDOC: Chave única da Cota Capital.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- CGCCPF: CPF ou CPNJ do Produtor Rural;
- CODCLI: Código do Cliente;
- IDECTC: Identificador único da movimentação cota capital;
- VLRITG: Valor movimentado da cota capital;
- VLRCTC: Valor da cota capital.
- CHVDOC: Chave única da Cota Capital.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT.
- CHVDOC: Chave única do Cliente.
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- CODCLI: Código do Cliente;
- NOMCLI: Nome do Cliente;
- INTNET: Endereço eletrônico (E-Mail);
- SITCLI: Situação do Cliente;
- CGCCPF: CPF ou CPNJ do Produtor Rural;
- SEQINT: sequencial único para a geração e envio dos dados do produtor.
- CODCLI: Código do Cliente;
- TIPCLI: Tipo do Cliente.
- CHVDOC: Chave única do Cliente.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CHVDOC: Chave única do Fornecedor.
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- CODFOR: Código do Fornecedor;
- NOMFOR: Nome do Fornecedor;
- INTNET: Endereço eletrônico (E-Mail);
- SITCLI: Situação do Fornecedor;
- CGCCPF: CPF ou CPNJ do Produtor Rural;
- SEQINT: Sequencial único para a geração e envio dos dados do produtor.
- CODFOR: Código do Fornecedor;
- TIPFOR: Tipo do Fornecedor;
- CHVDOC: Chave única do Fornecedor.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CHVDOC: Chave única do título a receber.
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- NUMTIT: Número do Título a receber;
- CODTPT: Código do tipo de título a receber;
- CODCLI: Código do cliente do título a receber;
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- VLRORI: Valor original do título a receber;
- SITTIT: Situação do título a receber;
- CODMOE: Código da moeda do título a receber;
- COTEMI: Valor da cotação da moeda na data de emissão do título;
- VLRMOE: Valor original na moeda do título a receber;
- VLRABE: Valor em aberto do título;
- DATEMI: Data de emissão do título a receber;
- VCTORI: Data do vencimento original do título a receber;
- DESMOE: Descrição da moeda ou índice;
- CGCCPF: CPF ou CPNJ do Produtor Rural;
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- TIPCLI: Tipo do Cliente;
- RECDEC: Transação adiciona ou Subtrai
- LISMOD: Módulo pertencente da transação
- CEPFIL: CEP da filial da empresa
- CEPCOB: CEP do endereço de cobrança da filial
- RECTBC: Transação padrão de baixa para títulos de crédito
- RECVDM: Valor mínimo do desconto aceito no contas a receber
- RECVJM: Valor mínimo dos juros de mora aceito no contas a receber
- RECVMM: Valor mínimo da multa aceito no contas a receber
- RECTPM: Transação padrão de entrada manual de títulos
- RECTBP: Transação padrão de baixa de títulos por pagamento
- RECPOR: Código do portador da empresa que identifica carteira
- PAGTDC: Transação desconto comissão pela baixa de título por cancelamento
- RECPDI: Período inicial de validade para movimentação do contas a receber
- RECPDF: Período final de validade para movimentação do contas a receber
- CXBPDI: Período inicial de validade para movimentação da tesouraria
- CXBPDI: Período final de validade para movimentação da tesouraria
- RECJOA: Indicativo se considera o valor de outros acréscimos da Fórmula de Reajuste para cálculo de juros do contas a receber
- RECJOD: Indicativo se considera o valor de outros descontos da Fórmula de Reajuste para cálculo de juros do contas a receber
- RECMOA: Indicativo se considera o valor de outros acréscimos da Fórmula de Reajuste para cálculo de multa do contas a receber
- E301TCR.*: Todos os campos da tabela E301TCR, necessário para o calculo de juros, multa, etc.
- CHVDOC: Chave única do título a receber.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CHVDOC: Chave única da baixa do título do Contas a Receber.
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- NUMTIT: Número do Título a receber;
- CODTPT: Código do tipo de título a receber;
- CODCLI: Código do cliente do título a receber;
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- VLRORI: Valor original do título a receber;
- SITTIT: Situação do título a receber;
- CODMOE: Código da moeda do título a receber;
- COTEMI: Valor da cotação da moeda na data de emissão do título;
- VLRMOE: Valor original na moeda do título a receber;
- VLRABE: Valor em aberto do título;
- DATEMI: Data de emissão do título a receber
- VCTORI: Data do vencimento original do título a receber
- DESMOE: Descrição da moeda ou índice
- CGCCPF: CPF ou CPNJ do Produtor Rural;
- TIPCLI: Tipo do Cliente;
- RECDEC: Transação adiciona ou Subtrai;
- LISMOD: Módulo pertencente da transação;
- CEPFIL: CEP da filial da empresa
- CEPCOB: CEP do endereço de cobrança da filial
- RECTBC: Transação padrão de baixa para títulos de crédito
- RECVDM: Valor mínimo do desconto aceito no contas a receber
- RECVJM: Valor mínimo dos juros de mora aceito no contas a receber
- RECVMM: Valor mínimo da multa aceito no contas a receber
- RECTPM: Transação padrão de entrada manual de títulos
- RECTBP: Transação padrão de baixa de títulos por pagamento
- RECPOR: Código do portador da empresa que identifica carteira
- PAGTDC: Transação desconto comissão pela baixa de título por cancelamento
- RECPDI: Período inicial de validade para movimentação do contas a receber
- RECPDF: Período final de validade para movimentação do contas a receber
- CXBPDI: Período inicial de validade para movimentação da tesouraria
- CXBPDI: Período final de validade para movimentação da tesouraria
- RECJOA: Indicativo se considera o valor de outros acréscimos da Fórmula de Reajuste para cálculo de juros do contas a receber
- RECJOD: Indicativo se considera o valor de outros descontos da Fórmula de Reajuste para cálculo de juros do contas a receber
- RECMOA: Indicativo se considera o valor de outros acréscimos da Fórmula de Reajuste para cálculo de multa do contas a receber
- E301TCR.*: Todos os campos da tabela E301TCR, necessário para o calculo de juros, multa, etc.
- CHVDOC: Chave única da baixa do título a receber
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CHVDOC: Chave única do Título a pagar.
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- NUMTIT: Número do Título a pagar;
- CODTPT: Código do tipo de título a pagar;
- CODFOR: Código do fornecedor do título a pagar;
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- VLRORI: Valor original do título a pagar;
- SITTIT: Situação do título a pagar;
- CODMOE: Código da moeda do título a pagar;
- COTEMI: Valor da cotação da moeda na data de emissão do título;
- VLRMOE: Valor original na moeda do título a pagar;
- VLRABE: Valor em aberto do título;
- DATEMI: Data de emissão do título a pagar;
- VCTORI: Data do vencimento original do título a pagar;
- DESMOE: Descrição da moeda ou índice;
- CGCCPF: CPF ou CPNJ do Produtor Rural;
- TIPFOR: Tipo do Fornecedor;
- PAGDEC: Transação adiciona ou Subtrai;
- LISMOD: Módulo pertencente da transação.
- CEPCOB: CEP do endereço de cobrança da filial
- CEPFIL: CEP da filial da empresa
- PAGVJM: Valor mínimo dos juros aceito no contas a pagar
- PAGVMM: Valor mínimo da multa aceito no contas a pagar
- PAGVDM: Valor mínimo do desconto aceito no contas a pagar
- E501TCP.*: Todos os campos da tabela E501TCP, necessário para o calculo de juros, multa, etc.
- CHVDOC: Chave única do título a pagar
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CHVDOC: Chave única da baixa do título a pagar.
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- NUMTIT: Número do Título a pagar;
- CODTPT: Código do tipo de título a pagar;
- CODFOR: Código do fornecedor do título a pagar;
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- VLRORI: Valor original do título a pagar;
- SITTIT: Situação do título a pagar;
- CODMOE: Código da moeda do título a pagar;
- COTEMI: Valor da cotação da moeda na data de emissão do título;
- VLRMOE: Valor original na moeda do título a pagar;
- VLRABE: Valor em aberto do título;
- DATEMI: Data de emissão do título a pagar;
- VCTORI: Data do vencimento original do título a pagar;
- DESMOE: Descrição da moeda ou índice;
- CGCCPF: CPF ou CPNJ do Produtor Rural;
- TIPFOR: Tipo do Fornecedor;
- PAGDEC: Transação adiciona ou Subtrai;
- LISMOD: Módulo pertencente da transação
- CEPCOB: CEP do endereço de cobrança da filial
- CEPFIL: CEP da filial da empresa
- PAGVJM: Valor mínimo dos juros aceito no contas a pagar
- PAGVMM: Valor mínimo da multa aceito no contas a pagar
- PAGVDM: Valor mínimo do desconto aceito no contas a pagar
- E501TCP.*: Todos os campos da tabela E501TCP, necessário para o calculo de juros, multa, etc.
- CHVDOC: Chave única da baixa do título a pagar
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CODMOE: Código da moeda;
- DATMOE: Data cotação;
- HORCOT: Hora cotação;
- CHVDOC: Chave única da cotação da moeda.
- CODMOE: Código da moeda;
- DESMOE: Descrição da moeda;
- SIGMOE: Sigla da moeda;
- DATMOE: Data cotação;
- VLRPRE: Valor previsão
- VLRCOT: Valor cotação
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- TIPCON: Tipo de conversão
- HORCOT: Hora cotação
- CHVDOC: Chave única da cotação da moeda.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CHVDOC: Chave única da moeda.
- CODMOE: Código da moeda;
- DESMOE: Descrição da moeda;
- SIGMOE: Sigla da moeda;
- SEQINT: Sequencial único para a geração e envio dos dados do produtor.
- INTAGR: Se integra com o agronegócio( S ou N)
- TEMREGISTRO: Se a moeda está cadastrada(1 ou 0)
- CHVDOC: Chave única da moeda
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- CGCCPF: CPF ou CPNJ do produtor rural;
- CODSAF: Código da Safra;
- DESSAF: Descrição da Safra;
- CODFAM: Código da família;
- DESFAM: Descrição da família;
- CODPRO: Código do produto;
- DESPRO: Descrição do produto;
- QTD_ENTREGUE: Quantidade entregue;
- QTD_FIXADO: Quantidade fixada;
- QTD_DEVOLVIDA: Quantidade devolvida;
- QTD_CONTRATOS: Quantidade contratos;
- QTD_BLOQUEADO: Quantidade bloqueada;
- QTD_ABERTO: Quantidade aberta;
- CHVDOC: Chave única do saldo físico.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT;
- CODEMP: Código da Empresa;
- CODFIL: Código da Filial;
- CGCCPF: CPF ou CPNJ do produtor rural;
- CODSAF: Código da Safra;
- DESSAF: Descrição da Safra;
- CODFAM: Código da família;
- CPTINI: Vigência Inicial da Safra;
- DESFAM: Descrição da família;
- CODPRO: Código do produto;
- DESPRO: Descrição do produto;
- QTD_ENTREGUE: Quantidade entregue;
- QTD_FIXADO: Quantidade fixada;
- QTD_DEVOLVIDA: Quantidade devolvida;
- QTD_CONTRATOS: Quantidade contratos;
- QTD_BLOQUEADO: Quantidade bloqueada;
- QTD_ABERTO: Quantidade aberta.
- CHVDOC: Chave única do saldo físico.
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- CGCCPF: CPF ou CPNJ do produtor rural;
- VERREG: Versão do registro a ser integrado. Caso o registro original sofrer alteração, pode-se incrementar esse campo ao utilizar o mesmo SEQINT.
- CHVDOC: Chave única da unidade de medida
- SEQINT: Sequencial único para a geração e envio dos dados do produtor;
- UNIMED: Unidade de medida
- DESMED: Descrição da unidade de medida
- CHVDOC: Chave única da unidade de medida