Histórico da Página

 Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

02. PONTO DE ENTRADA

03. EXEMPLO

#INCLUDE "RWMAKE.ch"
#INCLUDE "PROTHEUS.ch"

//-------------------------------------------------------------------
/*/{Protheus.doc} J069QRY
Ponto de Entrada para complemento da query de validação e filtro de
clientes e escritórios elegíveis no adiantamento.

O trecho de query que este Ponto de Entrada retorna será concatenado
no final da query padrão de validação (cQueryPad).
/*/
//-------------------------------------------------------------------
User Function J069QRY()
Local cQueryPad := PARAMIXB[1] // Query padrão de validação e filtro
Local cTipo     := PARAMIXB[2] // Tipo da validação --> 1 - Cliente / 2 - Escritório
Local cQueryAd  := ""
Local cPreFat   := "" // Pré-fatura para filtro       - Usado quando o cTipo = 1 - Cliente
Local cFatAdc   := "" // Fatura Adicional para filtro - Usado quando o cTipo = 1 - Cliente
Local cFixo     := "" // Parcela de Fixo para filtro  - Usado quando o cTipo = 1 - Cliente
Local cEscrit   := "" // Escritório para filtro       - Usado quando o cTipo = 2 - Escritório

    If cTipo == "1" // Cliente

        If !Empty(cPreFat)
            cQueryAd +=  " UNION " // Pagadores da Pré-Fatura que gerou a fatura
            cQueryAd += " SELECT SA1.A1_COD, SA1.A1_LOJA, SA1.A1_NOME, SA1.R_E_C_N_O_ SA1RECNO "
            cQueryAd +=   " FROM " + RetSqlName("SA1") + " SA1 "
            cQueryAd +=  " INNER JOIN " + RetSqlName("NXG") + " NXG "
            cQueryAd +=     " ON NXG.NXG_FILIAL = '" + xFilial("NXG") + "'"
            cQueryAd +=    " AND NXG.NXG_CLIPG = SA1.A1_COD "
            cQueryAd +=    " AND NXG.NXG_LOJAPG = SA1.A1_LOJA "
            cQueryAd +=    " AND NXG.NXG_CPREFT = '" + cPreFat + "'"
            cQueryAd +=    " AND NXG.D_E_L_E_T_ = ' ' "
            cQueryAd +=  " WHERE SA1.D_E_L_E_T_ = ' ' "
        EndIf

        If !Empty(cFatAdc)
            cQueryAd +=  " UNION " // Pagadores da Fatura Adicional que gerou a fatura
            cQueryAd += " SELECT SA1.A1_COD, SA1.A1_LOJA, SA1.A1_NOME, SA1.R_E_C_N_O_ SA1RECNO "
            cQueryAd +=   " FROM " + RetSqlName("SA1") + " SA1 "
            cQueryAd +=  " INNER JOIN " + RetSqlName("NXG") + " NXG "
            cQueryAd +=     " ON NXG.NXG_FILIAL = '" + xFilial("NXG") + "'"
            cQueryAd +=    " AND NXG.NXG_CLIPG = SA1.A1_COD "
            cQueryAd +=    " AND NXG.NXG_LOJAPG = SA1.A1_LOJA "
            cQueryAd +=    " AND NXG.NXG_CFATAD = '" + cFatAdc + "'"
            cQueryAd +=    " AND NXG.D_E_L_E_T_ = ' ' "
            cQueryAd +=  " WHERE SA1.D_E_L_E_T_ = ' ' "
        EndIf

        If !Empty(cFixo)
            cQueryAd +=  " UNION " // Pagadores da parcela fixa que gerou a fatura
            cQueryAd += " SELECT SA1.A1_COD, SA1.A1_LOJA, SA1.A1_NOME, SA1.R_E_C_N_O_ SA1RECNO "
            cQueryAd +=   " FROM " + RetSqlName("SA1") + " SA1 "
            cQueryAd +=  " INNER JOIN " + RetSqlName("NXG") + " NXG "
            cQueryAd +=     " ON NXG.NXG_FILIAL = '" + xFilial("NXG") + "'"
            cQueryAd +=    " AND NXG.NXG_CLIPG = SA1.A1_COD "
            cQueryAd +=    " AND NXG.NXG_LOJAPG = SA1.A1_LOJA "
            cQueryAd +=    " AND NXG.NXG_CFIXO = '" + cFixo + "'"
            cQueryAd +=    " AND NXG.D_E_L_E_T_ = ' ' "
            cQueryAd +=  " WHERE SA1.D_E_L_E_T_ = ' ' "
        EndIf

    ElseIf cTipo == "2" // Escritório

        cQueryAd +=  " UNION "
        cQueryAd += " SELECT NS7.NS7_COD, NS7.NS7_NOME, NS7.R_E_C_N_O_ NS7RECNO "
        cQueryAd +=   " FROM " + RetSqlName("NS7") + " NS7 "
        cQueryAd +=  " WHERE NS7.NS7_COD = '" + cEscrit + "' "
        cQueryAd +=    " AND NS7.NS7_ATIVO = '1' "
        cQueryAd +=    " AND NS7.D_E_L_E_T_ = ' ' "

    EndIf

Return cQueryAd