01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro


02. DESCRIÇÃO

Ponto de entrada que permite modificar a Query da Dirf, aonde contempla as validações de Impostos.



Este ponto de entrada pode ser utilizado para manipular a Query que contempla os títulos com Impostos.

Campos obrigatórios.

  • E2_FILIAL
  • E2_FORNECE
  • E2_LOJA
  • E2_CODRET
  • E2_VENCREA
  • E2_PREFIXO
  • E2_NUM
  • E2_PARCELA
  • E2_TIPO
  • E2_NATUREZ
  • E2_BAIXA
  • E2_EMIS1
  • E2_SEQBX
  • E2_EMISSAO
  • E2_VENCTO
  • E2_VALOR
  • E2_INSS
  • E2_IRRF
  • E2_ISS
  • E2_PIS
  • E2_COFINS
  • E2_CSLL
  • E2_PARCIR
  • E2_PARCPIS
  • E2_FILORIG
  • R_E_C_N_O_
  • RECNOPAI
  • E2_TITPAI
  • A2_TPENT


03. EXEMPLO DE UTILIZAÇÃO


User Function FA401QRY()

/*
    mv_par01       	Considera Data ?              
    mv_par02       	Data inicial ?                
    mv_par03       	Data final ?                  
    mv_par04       	Tipo de Fornecedor ?          
    mv_par05       	Verifica data ?               
    mv_par06       	Centralizar na filial ?       
    mv_par07       	Gerar Log de Processamento ?  
    mv_par08       	Seleciona Filiais ?           
    mv_par09       	Considera Data PCC ?          
    mv_par10       	Considera Pagto. Antecipado ? 
    MV_PAR11       	Considera Naturezas?  
*/

    Local cQuery := ""
    
    //Nova Query a ser processada
    Alert(paramixb[1], "Query Original.")     

    cQuery := " SELECT SE2.E2_FILIAL," 
    cQuery += " SE2.E2_FORNECE, "
    cQuery += " SE2.E2_LOJA, "
    cQuery += " SE2.E2_CODRET, " 
    cQuery += " SE2.E2_VENCREA, "
    cQuery += " SE2.E2_PREFIXO, "
    cQuery += " SE2.E2_NUM, "
    cQuery += " SE2.E2_PARCELA, " 
    cQuery += " SE2.E2_TIPO, "
    cQuery += " SE2.E2_NATUREZ, " 
    cQuery += " SE2.E2_BAIXA, "
    cQuery += " SE2.E2_EMIS1, "
    cQuery += " SE2.E2_SEQBX, "
    cQuery += " SE2.E2_EMISSAO, "
    cQuery += " SE2.E2_VENCTO, "
    cQuery += " SE2.E2_VALOR, "
    cQuery += " SE2.E2_INSS, "
    cQuery += " SE2.E2_IRRF, "
    cQuery += " SE2.E2_ISS, "
    cQuery += " SE2.E2_PIS, "
    cQuery += " SE2.E2_COFINS, "
    cQuery += " SE2.E2_CSLL, "
    cQuery += " SE2.E2_PARCIR, "
    cQuery += " SE2.E2_PARCPIS, "
    cQuery += " SE2.E2_FILORIG, "
    cQuery += " SE2.R_E_C_N_O_, "
    cQuery += " Isnull(PAI.R_E_C_N_O_, 0) RECNOPAI, "
    cQuery += " SE2.E2_TITPAI, "
    cQuery += " SA2.A2_TPENT "
    cQuery += " FROM   SE2T10 SE2 "
    cQuery += " LEFT JOIN SE2T10 PAI "
    cQuery += " ON ( SE2.E2_FILIAL = PAI.E2_FILIAL "
    cQuery += " AND PAI.E2_PREFIXO = Rtrim(Substring(SE2.E2_TITPAI, 1, 3)) "
    cQuery += " AND PAI.E2_NUM = Rtrim(Substring(SE2.E2_TITPAI, 4, 9)) "
    cQuery += " AND PAI.E2_PARCELA = Rtrim(Substring(SE2.E2_TITPAI, 13, 1)) "
    cQuery += " AND PAI.E2_TIPO = Rtrim(Substring(SE2.E2_TITPAI, 14, 3)) "
    cQuery += " AND PAI.E2_FORNECE = Rtrim(Substring(SE2.E2_TITPAI, 17, 6)) "
    cQuery += " AND PAI.E2_LOJA = Rtrim(Substring(SE2.E2_TITPAI, 23, 2)) "
    cQuery += " AND PAI.E2_TIPO NOT IN ( 'NCC', 'NDF', 'DIC', 'IR-', "
    cQuery += " 'CS-', 'CF-', 'PI-', 'AB-', "
    cQuery += " 'CF-', 'CS-', 'FU-', 'I2-', "
    cQuery += " 'IM-', 'IN-', 'IR-', 'IS-', "
    cQuery += " 'PI-', 'FC-', 'FE-', 'ISS', "
    cQuery += " 'TX ', 'INS', 'SES', 'PR ', "
    cQuery += " 'PA ', 'TXA' ) "
    cQuery += " AND PAI.D_E_L_E_T_ = ' ' ) "
    cQuery += " JOIN SA2T10 SA2 "
    cQuery += " ON ( SA2.A2_FILIAL = 'D MG    ' "
    cQuery += " AND PAI.E2_FORNECE = SA2.A2_COD "
    cQuery += " AND PAI.E2_LOJA = SA2.A2_LOJA "
    cQuery += " AND SA2.D_E_L_E_T_ = ' ' "
    cQuery += " AND Substring(SA2.A2_FILIAL, 1, 4) = "
    cQuery += " Substring(PAI.E2_FILORIG, 1, 4) "
    cQuery += " AND ( SA2.A2_TIPO = 'X' "
    cQuery += " OR ( SA2.A2_TIPO = 'J' "
    cQuery += " AND SA2.A2_IRPROG != '1' ) ) ) "
    cQuery += " WHERE  SE2.E2_FILIAL = 'D MG 01 ' "
    cQuery += " AND SE2.E2_DIRF IN ( '1', 'S' ) "
    cQuery += " AND SE2.E2_CODRET != ' ' "
    cQuery += " AND SE2.E2_TIPO IN ( 'NCC', 'NDF', 'DIC', 'IR-', "
    cQuery += " 'CS-', 'CF-', 'PI-', 'AB-', "
    cQuery += " 'CF-', 'CS-', 'FU-', 'I2-', "
    cQuery += " 'IM-', 'IN-', 'IR-', 'IS-', "
    cQuery += " 'PI-', 'FC-', 'FE-', 'ISS', "
    cQuery += " 'TX ', 'INS', 'SES', 'PR ', "
    cQuery += " 'PA ', 'TXA' ) "
    cQuery += " AND ( ( SE2.E2_NATUREZ NOT IN ( 'PIS', 'COFINS', 'CSLL' ) "
    cQuery += " AND ( PAI.E2_VENCTO BETWEEN '20191120' AND '20191220' ) ) "
    cQuery += " OR ( SE2.E2_NATUREZ IN ( 'PIS', 'COFINS', 'CSLL' ) "
    cQuery += " AND PAI.E2_VENCTO BETWEEN '20191120' AND '20191220' ) ) "
    cQuery += " AND SE2.D_E_L_E_T_ = ' ' "
    cQuery += " ORDER  BY SE2.E2_FILIAL, "
    cQuery += " SE2.E2_FORNECE, "
    cQuery += " SE2.E2_LOJA, "
    cQuery += " SE2.E2_CODRET, "
    cQuery += " SE2.E2_VENCTO, "
    cQuery += " SE2.E2_PREFIXO, "
    cQuery += " SE2.E2_NUM, "
    cQuery += " SE2.E2_PARCELA, "
    cQuery += " SE2.E2_TIPO "


    //Nova Query a ser processada
    Alert(cQuery, "Query a Ser Substituida.")

Return(cQuery)



04. DEMAIS INFORMAÇÕES

Não há


05. ASSUNTOS RELACIONADOS




<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>