Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CT105QRY - Adição de campo na aglutinação


Abrangências:Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todas TotvsDbAccess


Descrição:
O ponto de entrada CT105QRY é utilizado para manipulação da string de query de contabilização do fonte ctba105.
Esse ponto de entrada, deverá ser utilizado para casos onde o usuário quer adicionar algum campo na aglutinação.
Programa Fonte
CTBA105
Sintaxe

CT105QRY - Adição de campo na aglutinação ( [ cQuery ], [ lAglut ] ) --> cQuery

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

cQuery

Caracter

String contendo a query para a filtragem dos dados










lAglut

Array of Record

Controle de aglutinação dos dados










Retorno: cQuery
    Tipo:(caracter)
  • Conteúdo da query já manipulado.
Exemplos:


Exemplo básico
#INCLUDE "Protheus.ch"

User Function CT105QRY()

    cQuery := ParamIXB[1] // RECEBE A QUERY DO SISTEMA
    lAglut := ParamIXB[2] // RECEBE O PARÂMETRO DO SISTEMA SE AGLUTINA = .T. SE NÃO AGLUTINA = .F. 

    If  lAglut 
        cQuery 	+= 	 "ADICIONAR AQUI O TRATAMENTO PARA MODIFICAÇÃO DA QUERY"    // QUERY A SER ENVIADA PARA O SISTEMA
    EndIf

Return cQuery  // RETORNA A QUERY MODIFICADA
Trazer campo adicionado manualmente (tabelas CTK,CT5,CT2)
#INCLUDE "Protheus.ch"

User Function CT105QRY()
    cQuery := ParamIXB[1]  // RECEBE A QUERY DO SISTEMA
    lAglut := ParamIXB[2]  // RECEBE O PARÂMETRO DO SISTEMA SE AGLUTINA = .T. SE NÃO AGLUTINA = .F. 
    If  lAglut 
        //ADCIONANDO CAMPO CTK_INFOR ADCIONADO VIA CONFIGURADOR NA TABELA CTK PELO USUARIO
        cQuery 	:= 	 StrTran( cQuery, "FROM", ",CTK_INFOR FROM" ) 
        cQuery 	:= 	 StrTran( cQuery, "ORDER BY", ",CTK_INFOR ORDER BY" )  
    EndIf

Return cQuery  // RETORNA A QUERY MODIFICADA