Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
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á
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas