Histórico da Página

#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} CN310QRY
    Permite customizar a query no Reajuste de Contrato. 
    Podemos incluir itens do contrato, ajustar as condições na clausula Where.
    Ponto de Entrada acionado no momento de incluir o Reajuste.
@type function
@version 
@since 11/03/2024
@return Query customizada
/*/
User Function CN310QRY()

    Local cNewQry   := ""
    Local cQuery    := ParamIxb[1]  // Query iniciaada pelo programa
    Local nIndQry   := ParamIxb[2]  // Indice da query [1] = Trecho dos itens do contrato. [2] = Trecho dos contratos sem itens.
    Local nIndPQry  := ParamIxb[3]  // Indice trecho da query [1] = Campos do SELECT. [2] = Condições do WHERE.
    Local cQry01    := ""

    If nIndQry == 1 .And. nIndPQry == 1 // ADICIONAR CAMPOS NO SELECT (COM ITENS)

        cQry01 += ", CNB.CNB_PRODUT "
        cQry01 += ", CNB.CNB_DESCRI "

    ElseIf nIndQry == 2 .And. nIndPQry == 1 // ADICIONAR CAMPOS NO SELECT (SEM ITENS)
 
        cQry01 += ", cast(' ' as varchar("+Alltrim(Str(TamSX3("CNB_PRODUT")[1]))+")) as CNB_PRODUT "  
        cQry01 += ", cast(' ' as varchar("+Alltrim(Str(TamSX3("CNB_DESCRI")[1]))+")) as CNB_DESCRI " 
    
    EndIf

    cNewQry := cQry01

Return(cNewQry)

#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} CN310QRY
    Permite customizar a query no Reajuste de Contrato. 
    Podemos incluir itens do contrato, ajustar as condições na clausula Where.
    Ponto de Entrada acionado no momento de incluir o Reajuste.
@type function
@version 
@since 11/03/2024
@return Query customizada
/*/
User Function CN310QRY()

    Local cNewQry   := ""
    Local cQuery    := ParamIxb[1]  // Query iniciaada pelo programa
    Local nIndQry   := ParamIxb[2]  // Indice da query [1] = Trecho dos itens do contrato. [2] = Trecho dos contratos sem itens.
    Local nIndPQry  := ParamIxb[3]  // Indice trecho da query [1] = Campos do SELECT. [2] = Condições do WHERE.
    Local cQry01    := ""

    If nIndQry == 1 .And. nIndPQry == 2 // ADICIONAR CONDICOES NA CLAUSULA WHERE
    
        cQry01 += " AND	NOT EXISTS ( "
        cQry01 += "     SELECT	1 "
        cQry01 += "     FROM	" + RetSqlName("CND") + " "
        cQry01 += "     WHERE	CND_CONTRA	= CN9.CN9_NUMERO "
        cQry01 += "     AND		CND_REVISA	= CN9.CN9_REVISA "
        cQry01 += " ) "
    
    ElseIf nIndQry == 2 .And. nIndPQry == 2 // ADICIONAR CONDICOES NA CLAUSULA WHERE
    
        cQry01 += " AND	NOT EXISTS ( "
        cQry01 += "     SELECT	1 "
        cQry01 += "     FROM	" + RetSqlName("CND") + " "
        cQry01 += "     WHERE	CND_CONTRA	= CN9.CN9_NUMERO "
        cQry01 += "     AND		CND_REVISA	= CN9.CN9_REVISA "
        cQry01 += " ) "
    
    EndIf

    cNewQry := cQry01

Return(cNewQry)