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.
Importante
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
F050ROT
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
- Adiciona ou altera dados na seleção de títulos de impostos (F401QRY3).
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas