Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

Ponto de entrada que permite a alteração da query que é executada no momento da consulta de títulos recebidos na rotina de consulta de posição de clientes (FINC010).

Importante

Os campos repassados no SELECT não podem ser retirados da consulta. Podem ser apenas adicionados desde que seja utilizado em conjunto com o ponto de entrada: FC010BXHE

02. PARÂMETROS

PosiçãoTipoDescrição
1CaractereConsulta atual em SQL

03. RETORNO

TipoDescrição
CaractereNova consulta em SQL

04. EXEMPLO DE UTILIZAÇÃO

#include "protheus.ch"

User Function F010CQTR()
    Local cQuery := paramixb [1]

    cQuery := "SELECT E1_FILORIG, E1_PREFIXO, E1_NUM, E1_PARCELA, E1_TIPO, E1_MOEDA, E1_EMISSAO, "
    cQuery += "E1_VENCTO, E1_VENCREA, E5_DATA, E5_DTDISPO, E1_VALOR, E1_VLCRUZ, E5_VLJUROS, "
    cQuery += "E5_VLMULTA, E5_VLCORRE, E5_VLDESCO, E5_VALOR, E5_VLMOED2, E5_TXMOEDA, E5_VLACRES, "
    cQuery += "E1_NATUREZ, E1_NUMLIQ, E5_BANCO, E5_AGENCIA, E5_CONTA, E5_HISTOR, E5_MOTBX,E5_VLDECRE, "
    cQuery += "E5_CNABOC, E5_TIPODOC, E1_VALJUR, E1_MULTA, E1_TXMOEDA,E1_ORIGEM, E1_LOJA, E1_NFELETR, E1_CLIENTE, "
    cQuery += "SE5.R_E_C_N_O_ SE5RECNO, SE5.E5_DOCUMEN E5_DOCUMEN "

    cQuery += "FROM "+RetSqlName("SE1")+" SE1,"
    cQuery += RetSqlName("SE5")+" SE5 "
    cQuery += "WHERE SE1.E1_FILIAL='01' AND "
    cQuery += "SE1.E1_CLIENTE='1 ' AND "
    cQuery += "SE1.E1_LOJA='01' AND "
    cQuery += "SE1.E1_EMISSAO>='20040101' AND "
    cQuery += "SE1.E1_EMISSAO<='20131231' AND "
    cQuery += "SE1.E1_VENCREA>='20130101' AND "
    cQuery += "SE1.E1_VENCREA<='20130104' AND "
    cQuery += "SE1.E1_TIPO<>'PR ' AND "
    cQuery += "SE1.E1_TIPO<>'RA ' AND "
    cQuery += "SE1.E1_PREFIXO>=' ' AND "
    cQuery += "SE1.E1_PREFIXO<='ZZZ' AND "
    cQuery += "SE1.E1_ORIGEM <> 'FINA087A' AND "
    cQuery += "SE1.E1_TIPO NOT LIKE '__-' AND "
    cQuery += "SE1.E1_TIPO NOT IN ('RA ','PA ','NCC','NDF') AND "
    cQuery += "SE1.D_E_L_E_T_<>'*' AND "
    cQuery += "SE5.E5_FILIAL='01' AND "
    cQuery += "SE5.E5_NATUREZ=SE1.E1_NATUREZ AND "
    cQuery += "SE5.E5_PREFIXO=SE1.E1_PREFIXO AND "
    cQuery += "SE5.E5_NUMERO=SE1.E1_NUM AND "
    cQuery += "SE5.E5_PARCELA=SE1.E1_PARCELA AND "
    cQuery += "SE5.E5_TIPO=SE1.E1_TIPO AND "
    cQuery += "SE5.E5_CLIFOR=SE1.E1_CLIENTE AND "
    cQuery += "SE5.E5_LOJA=SE1.E1_LOJA AND "
    cQuery += "SE5.E5_RECPAG='R' AND "
    cQuery += "SE5.E5_SITUACA<>'C' AND "
    cQuery += "SE5.E5_MOTBX <> 'FAT' AND "
    cQuery += "SE5.E5_MOTBX <> 'LIQ' AND "
    cQuery += "SE5.D_E_L_E_T_<>'*' AND NOT EXISTS ("
    cQuery += "SELECT A.E5_NUMERO "
    cQuery += "FROM "+RetSqlName("SE5")+" A "
    cQuery += "WHERE A.E5_FILIAL='01' AND "
    cQuery += "A.E5_NATUREZ=SE5.E5_NATUREZ AND "
    cQuery += "A.E5_PREFIXO=SE5.E5_PREFIXO AND "
    cQuery += "A.E5_NUMERO=SE5.E5_NUMERO AND "
    cQuery += "A.E5_PARCELA=SE5.E5_PARCELA AND "
    cQuery += "A.E5_TIPO=SE5.E5_TIPO AND "
    cQuery += "A.E5_CLIFOR=SE5.E5_CLIFOR AND "
    cQuery += "A.E5_LOJA=SE5.E5_LOJA AND "
    cQuery += "A.E5_SEQ=SE5.E5_SEQ AND "
    cQuery += "A.E5_TIPODOC='ES' AND "
    cQuery += "A.E5_RECPAG<>'R' AND "
    cQuery += "A.D_E_L_E_T_<>'*')"
    
    Alert ("Seguem as informações que são levadas para Query"+cQuery)
Return cQuery