Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 17

changes.mady.by.user Alexandre Takaki

Gravado em

comparado com

Nova versão 18

changes.mady.by.user Alexandre Takaki

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Descrição:

Permite customizar/alterar a query no Reajuste Automático.

Podemos incluir campos customizados dos itens do contrato ou alterar as condições na clausula Where da query.

Eventos:

Executado na Inclusão do reajuste

Programa Fonte:

CNTA310.PRW

Fu

nção:

CN310Inc

Parâmetros:
PosiçãoTipoDescrição
PARAMIXB[1]CaracterQuery montada até o momento
PARAMIXB[2]Inteiro1 ref. trecho de contratos com itens e 2 ref. trecho de contratos sem itens
PARAMIXB[3]Inteiro1 para campos do select e 2 para condições do where
Retorno:

Valor

Tipo

Descrição

cNewQryCaracter

Query customizada

Bloco de código
languagexml
themeEclipse
firstline1
titleExemplo
linenumberstrue
#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)

...