PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial | ERP - versão 5.10.2 (XTended)
Esta versão do sistema foi descontinuada e não recebe atualizações e novas implementações. Acesse a documentação da versão 5.10.3 aqui

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:

ClosedExemplo de regra 
Definir Numero INTNIdeInt;
Definir Alfa INTASqlPen;
Definir Alfa INTASqlEnv;

Se (INTNIdeInt = 199) { @Cota Capital @
  INTASqlPen = "SELECT DISTINCT 1 SEQINT, E085CLI.CGCCPF, 0 VERREG " +
               "  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.CODEMP, E250CTC.CODFIL, E250CTC.CODCLI, E250CTC.IDEUNI IDECTC, " +
               "        (SELECT VLRCTC " + 
               "           FROM (SELECT VLRCTC, CODEMP " + 
               "                   FROM E250VCT ORDER BY DATVGC DESC) DADOS " + 
               "                   LEFT JOIN E070EMP ON E070EMP.CODEMP = DADOS.CODEMP " +
               "          WHERE E070EMP.CODEMP = E250CTC.CODEMP AND ROWNUM <= 1) 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 " +
               "  FROM E085CLI ";
               
  INTASqlEnv = "SELECT 170 CODEMP, 1 CODFIL, E085CLI.CODCLI, E085CLI.NOMCLI, E085CLI.INTNET, " +   
               "       E085CLI.SITCLI, E085CLI.CGCCPF, E085CLI.CODCLI SEQINT, E085CLI.CODCLI, E085CLI.TIPCLI " +           
               "  FROM E085CLI " ;                           

} senao se(INTNIdeInt = 52) { @Fornecedor @
  INTASqlPen = "SELECT DISTINCT E095FOR.CODFOR SEQINT, E095FOR.CGCCPF, 0 VERREG " +
               "  FROM E095FOR ";
               
  INTASqlEnv = "SELECT 170 CODEMP, 1 CODFIL, E095FOR.CODFOR, E095FOR.NOMFOR, E095FOR.INTNET, " +   
               "       E095FOR.SITFOR, E095FOR.CGCCPF, E095FOR.CODFOR SEQINT, E095FOR.CODFOR, E095FOR.TIPFOR " +           
               "  FROM E095FOR " ;                             

} senao se(INTNIdeInt = 85) { @Contas a Receber @
  INTASqlPen = "SELECT DISTINCT 1 SEQINT, E085CLI.CGCCPF, 0 VERREG " +
               "  FROM E301TCR " +
               " INNER JOIN E085CLI ON E085CLI.CODCLI = E301TCR.CODCLI " ;
               
  INTASqlEnv = "SELECT E301TCR.CODEMP, E301TCR.CODFIL, E301TCR.NUMTIT, E301TCR.CODTPT, E301TCR.CODCLI, " +   
               "       1 SEQINT, E301TCR.VLRORI, E301TCR.SITTIT, E301TCR.CODMOE, E301TCR.COTEMI, E301TCR.VLRMOE, " +  
               "       E301TCR.VLRABE, E301TCR.DATEMI, E301TCR.VCTORI, E031MOE.DESMOE, E085CLI.CGCCPF, E085CLI.TIPCLI, " + 
               "       E001TNS.RECDEC, E001TNS.LISMOD " +        
               "  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 ";
 
} senao se(INTNIdeInt = 106) { @Baixa Contas a Receber @
  INTASqlPen = "SELECT DISTINCT 1 SEQINT, E085CLI.CGCCPF, 0 VERREG " +
               "  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 E301TCR.CODEMP, E301TCR.CODFIL, E301TCR.NUMTIT, E301TCR.CODTPT, E301TCR.CODCLI, " +   
               "       1 SEQINT, E301TCR.VLRORI, E301TCR.SITTIT, E301TCR.CODMOE, E301TCR.COTEMI, E301TCR.VLRMOE, " +  
               "       E301TCR.VLRABE, E301TCR.DATEMI, E301TCR.VCTORI, E031MOE.DESMOE, E085CLI.CGCCPF, E085CLI.TIPCLI, " + 
               "       E001TNS.RECDEC, E001TNS.LISMOD " +        
               "  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 ";

} senao se(INTNIdeInt = 84) { @Titulo a pagar @
  INTASqlPen = "SELECT DISTINCT E501TCP.CODFOR SEQINT, E095FOR.CGCCPF, 0 VERREG " +
               "  FROM E501TCP " +
               " INNER JOIN E095FOR ON E095FOR.CODFOR = E501TCP.CODFOR " ;
               
  INTASqlEnv = "SELECT E501TCP.CODEMP, E501TCP.CODFIL, E501TCP.NUMTIT, E501TCP.CODTPT, E501TCP.CODFOR, " +   
               "       E501TCP.CODFOR SEQINT, E501TCP.VLRORI, E501TCP.SITTIT, E501TCP.CODMOE, E501TCP.COTEMI, E501TCP.VLRMOE, " +  
               "       E501TCP.VLRABE, E501TCP.DATEMI, E501TCP.VCTORI, E031MOE.DESMOE, E095FOR.CGCCPF, E095FOR.TIPFOR, " + 
               "       E001TNS.PAGDEC, E001TNS.LISMOD " +        
               "  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 ";  
                            
} senao se(INTNIdeInt = 79) { @Baixa de Título a pagar @
  INTASqlPen = "SELECT DISTINCT E501MCP.CODFOR SEQINT, E095FOR.CGCCPF, 0 VERREG " +
               "  FROM E501MCP " +
               "  LEFT JOIN E095FOR ON E095FOR.CODFOR = E501MCP.CODFOR " ;
               
  INTASqlEnv = "SELECT E501TCP.CODEMP, E501TCP.CODFIL, E501TCP.NUMTIT, E501TCP.CODTPT, E501TCP.CODFOR, " +   
               "       E501TCP.CODFOR SEQINT, E501TCP.VLRORI, E501TCP.SITTIT, E501TCP.CODMOE, E501TCP.COTEMI, E501TCP.VLRMOE, " +  
               "       E501TCP.VLRABE, E501TCP.DATEMI, E501TCP.VCTORI, E031MOE.DESMOE, E095FOR.CGCCPF, E095FOR.TIPFOR, " + 
               "       E001TNS.PAGDEC, E001TNS.LISMOD " +        
               "  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 ";               

} senao se(INTNIdeInt = 118) { @Cotação Moeda @
  INTASqlPen = "SELECT DISTINCT 1 SEQINT, 0 CGCCPF, 0 VERREG, E031MOE.CODMOE, E031IMO.DATMOE, 0 HORCOT " +
               "  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 " +
               "  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 CHVDOC " +
               "  FROM E031MOE " +
               " WHERE COALESCE(E031MOE.INTAGR, 'N') = 'S' " ;
               
  INTASqlEnv = "SELECT E031MOE.CODMOE, E031MOE.DESMOE, E031MOE.SIGMOE, 1 SEQINT " +
               "  FROM E031MOE " ;
               
senao se(INTNIdeInt = 202) { @Saldo Físico @                                            
  
  INTASqlPen = "SELECT NULL SEQINT, NULL VERREG, " +
                     " A.CODEMP, A.CODFIL, A.CGCCPF, A.CODSAF, A.DESSAF, " +       
                     " A.CPTINI, A.CODFAM, A.DESFAM, A.CODPRO, A.DESPRO, " +    
                  "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, " +    
                      "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 " + 
            "UNION ALL " +    
          "SELECT E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, " +    
                      "E113SAF.CPTINI, E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, " +    
                      "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 " +
            "UNION ALL " +    
          "SELECT E439FIX.CODEMP, E439FIX.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, " +    
                      "E113SAF.CPTINI, E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, " +    
                      "0 QTD_ENTREGUE, SUM(E439IPO.QTDFIX) QTD_FIXADO, 0 QTD_DEVOLVIDA, 0 QTD_CONTRATOS, 0 QTD_BLOQUEADO, 0 QTD_ABERTO " +    
                 "FROM E439FIX " +    
                 "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 " +    
                                  "AND ((E440NFC.NUMNFC = E439IPO.NUMNFC) OR (E439IPO.NUMNFC IS NULL)) " +    
                 "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 E095FOR ON E095FOR.CODFOR = E420OCP.CODFOR " +                                
                "INNER JOIN E113SAF ON E113SAF.CODEMP = E420OCP.CODEMP " +    
                                  "AND E113SAF.CODSAF = E420OCP.CODSAF " +                  
                "GROUP BY E439FIX.CODEMP, E439FIX.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, " +    
                      "E113SAF.CPTINI, E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO " +
            "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, " +    
                      "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 " +  
            "UNION ALL " +    
          "SELECT E460CTR.CODEMP, E460CTR.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, " +    
                      "E113SAF.CPTINI, E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, " +    
                      "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 " +
            "UNION ALL " +    
          "SELECT E420OCP.CODEMP, E420OCP.CODFIL, E095FOR.CGCCPF, E113SAF.CODSAF, E113SAF.DESSAF, " +    
                      "E113SAF.CPTINI, E012FAM.CODFAM, E012FAM.DESFAM, E075PRO.CODPRO, E075PRO.DESPRO, " +    
                      "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 " +
           ") A " +       
             "GROUP BY A.CODEMP, A.CODFIL, A.CGCCPF, A.CODSAF, A.DESSAF, " +    
                      "A.CPTINI, A.CODFAM, A.DESFAM, A.CODPRO, A.DESPRO" ;                 
               
  INTASqlEnv = INTASqlPen;               
                                          
}
         
x=1;

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.

ClosedCota Capital
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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.
ClosedCliente
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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.
ClosedFornecedor
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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.
ClosedContas a Receber
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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
ClosedBaixa de títulos Contas a Receber
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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.
ClosedTítulo a pagar
ClosedCampos Pendência
  • 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.
Closed Campos Envio
  • 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.
ClosedBaixa de título a pagar
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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
ClosedCotação Moeda
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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
ClosedMoeda
ClosedCampos Pendência
  • 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: Código da moeda.
ClosedCampos Envio
  • 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.
ClosedSaldo Físico
ClosedCampos Pendência
  • 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.
ClosedCampos Envio
  • 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.

Este artigo ajudou você?

Base de Conhecimento

Portal de Exigências Legais

Documentação em outros idiomas:

English

Español

seniorX Store

Universidade Corporativa

Fórum de Produtos

Trabalhe conosco

Blog

Todos os direitos de cópias reservadas para Senior Sistemas S.A.

A reprodução não autorizada desta publicação, no todo ou em parte, constitui violação dos direitos autorais (Lei 9.610/98).

Ver site completo