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