Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Hederson Bisewski

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Brunno De Medeiros Da Costa

Gravado em

Chave

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

...

Descrição:

QP215E01 - Inclusão de campos adicionais nos ensaios dos Resultados

Versões:

Microsiga Protheus 12

Idioma:

Português (Brasil)

Sistemas Operacionais Suportados:

Todos

Compatível com as Bases de Dados:

Todos

Retorno:

aConteudos, aTitulos, aTamanhos

Parâmetro:

cOperacao

→ QP7 - trecho de análise de query QP7, checar alias cAliasOPQP7

→ QP8 - trecho de análise de query QP8, checar alias cAliasOPQP7

→ FOLDER - trecho de troca de folder

Eventos de chamada de Ponto de Entrada:Na abertura da tela de Resultados
Programa Fonte:QIPA215.PRW
Bloco de código
languagedelphi
themeMidnight
firstline1
titleExemplo
linenumberstrue
User Function QP215E01(cOperacao)
 
    Local aConteudos := {} 
    Local aTitulos := {} 
    Local aTamanhos := {} 

	If  cOperacao  aTitulos :== Nil .OR. cOperacao != { "Nivel1", "Campo Teste" }

    FOLDER"
	    //Variável Private disponível para consulta do alias relacionado: cAliasOPQP7 
		aConteudos := {;
    	    (Posicione("SX5",1,xFilial("SX5")  + "Q6" + QP7->QP7_NIVEL,"X5_DESCRI")) + (Posicione("SX5",1,xFilial("SX5")  + "Q6" + QP8->QP8_NIVEL,"X5_DESCRI")),; 
	        "Valor teste";
	    }  
	EndIf

    aTitulos := { "Nivel1", "Campo Teste" }

    aTamanhos := { 70, 50 }

Return {aConteudos,aTitulos,aTamanhos}