FIXQRYR- Query estándar de ajuste de base reinf

#Include "Protheus.ch"
#include 'tbiconn.ch'

User Function FIXQRYR()
    Local aQuery As Array
    Local cQuery As Character 
    
    //Inicializa variables
    aQuery := Aclone(PARAMIXB)
    cQuery := aQuery[3]
    
    Do Case
        Case aDados[1] == "02" //Módulo de compras
            cQuery := "selección de las facturas de entrada elegibles para envío al reinf"        
            
            /* Lista de campos mínimo que obligatoriamente deben formar parte de la instrucción SELECT:
                
                F1.F1_FILIAL, F1.F1_TIPO, F1.F1_DOC, F1.F1_SERIE, F1.F1_FORNECE, F1.F1_LOJA, D1.D1_ITEM, D1.D1_COD, 
                F2Q.F2Q_NATREN, F1.F1_DTDIGIT
            */
        Case aDados[1] == "05" //Módulo de facturación 
            cQuery := "selección de las facturas de salida elegibles para envío al reinf"
            
            /* Lista de campos mínimo que obligatoriamente deben formar parte de la instrucción SELECT:
                
                SC6.R_E_C_N_O_ AS RECSC6, F2Q.F2Q_NATREN, SD2.D2_VALIRRF, SD2.D2_BASEIRR, SD2.D2_SERIE, SD2.D2_DOC
            */
            
            //OBS: La construcción de esta consulta no debe informarse order by"
        OtherWise //Módulo financiero
            If aDados[2] == "P" //Query para selección de los títulos cuentas por pagar
                 cQuery := "selección de los títulos por pagar elegibles para envío al reinf"
                
                /* Lista de campos mínimo que obligatoriamente deben formar parte de la instrucción SELECT:
                    
                    SE2.E2_FILIAL, SE2.E2_PREFIXO, SE2.E2_NUM, SE2.E2_PARCELA, SE2.E2_TIPO, SE2.E2_FORNECE, SE2.E2_LOJA, SE2.E2_FILORIG, "
                    SE2.E2_PIS, SE2.E2_COFINS, SE2.E2_CSLL, SE2.E2_IRRF, SE2.E2_VALOR, SE2.E2_SALDO, SE2.E2_BASEIRF, SE2.E2_BASEPIS, SE2.E2_BASECOF, "
                    SE2.E2_BASECSL, SE2.R_E_C_N_O_, SED.ED_NATREN, SED.ED_CALCIRF, SED.ED_CALCPIS, SED.ED_CALCCOF, SED.ED_CALCCSL, SED.ED_PERCIRF, "
                    SED.ED_PERCPIS, SED.ED_PERCCOF, SED.ED_PERCCSL, SA2.A2_RECPIS, SA2.A2_RECCOFI, SA2.A2_RECCSLL, SA2.A2_CALCIRF "
                */
            ElseIf aDados[2] == "R" //Query para selección de los títulos del cuentas por pagar
                cQuery := "selección de los títulos por cobrar, con autorretención del IRRF elegibles para envío al reinf"            
                
                /* Lista de campos mínimo que obligatoriamente deben formar parte de la instrucción SELECT:
                    
                    SE1.E1_FILIAL, SE1.E1_PREFIXO, SE1.E1_NUM, SE1.E1_PARCELA, SE1.E1_TIPO, SE1.E1_CLIENTE, SE1.E1_LOJA, SE1.E1_FILORIG, SE1.E1_PIS,
                    SE1.E1_COFINS, SE1.E1_CSLL, SE1.E1_IRRF, SE1.E1_VALOR, SE1.E1_SALDO, SE1.E1_BASEIRF, SE1.E1_BASEPIS, SE1.E1_BASECOF, SE1.E1_BASECSL,
                    SE1.R_E_C_N_O_, SED.ED_NATREN, SED.ED_CALCIRF, SED.ED_CALCPIS, SED.ED_CALCCOF, SED.ED_CALCCSL, SED.ED_PERCIRF, SED.ED_PERCPIS,
                    SED.ED_PERCCOF,SED.ED_PERCCSL
                */
            Else //Query para selección de las bajas del cuentas por pagar
                cQuery := "selección de las bajas del cuentas por pagar elegibles para envío al reinf"
            
                /* Lista de campos mínimo que obligatoriamente deben formar parte de la instrucción SELECT:
                
                    FK2.FK2_FILIAL, FK2.FK2_IDFK2, FK2.FK2_IDDOC, FK2_NATURE, FK2_FILORI, FK2.FK2_ORIGEM, FK2.FK2_VALOR, FKW.FKW_FILIAL, 
                    FKW.FKW_IDDOC, FKW.FKW_NATREN, FK7.FK7_FILTIT, FK7.FK7_PREFIX, FK7.FK7_NUM, FK7.FK7_PARCEL, FK7.FK7_TIPO, FK7.FK7_CLIFOR, 
                    FK7.FK7_LOJA
                */            
            EndIf
    EndCase
Return cQuery