Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 10

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

Gravado em

comparado com

Nova versão 11

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

Parâmetro:

cOperacao := ParamIxb[1]

→ QP7 - trecho de análise de query QP7chamado uma vez para cada registro da QP7 relacionado a inspeção, checar alias posicionado cAliasOPQP7;

→ QP8 - trecho de análise de query QP8chamado uma vez para cada registro da QP8 relacionado a inspeção, checar alias posicionado cAliasOPQP7;

→ FOLDER - trecho de troca de folder, checar exemplo de uso abaixo;


aEnsaios := ParamIxb[2] (utilizado quando cOperacao == "FOLDER")

Retorno:

{aConteudos, aTitulos, aTamanhos}


Sendo:

→ aConteudos: array utilizado quando cOperacao for QP7 ou QP8 com os campos (não é usado quando for FOLDER)

→ aTitulos: array com o conteúdo dos títulos dos campos;

→ aTamanhos: array com o tamanho dos campos;

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()
 
    Local aConteudos := {}
	Local aEnsaios   := Nil
    Local aTamanhos  := {}
    Local aTitulos   := {}
	Local cOperacao  := Nil
	Local nCampo nMeuCpo    := 0
	Local nCampos    := 0
	Local nEnsaio    := 0
	Local nIndResult := 0
	Local nNovos     := 0

	aTitulos  := { "Nivel1", "Campo Teste" }
    aTamanhos := { 70, 50 }
	nNovos    := Len(aTitulos)

	If ParamIXB != Nil
		aEnsaios     := ParamIXB[2]
		cOperacao    := ParamIXB[1]
	EndIf

	If  cOperacao  == Nil .OR. cOperacao != "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"+ cValtoChar(Random(0,1000));
	    }  

	ElseIf cOperacao == "FOLDER" 
		For nEnsaio := 1 To Len(aEnsaios)
			nCampos    := Len(aResultados[nPosOpenFldOpe,3, nFldLab, nEnsaio])
			For nCamponMeuCpo := 1 To Len(aTitulos)
				nIndResult                    := (nCampos - nNovos + nCamponMeuCpo)
				//If aEnsaios[nEnsaio][nIndResult] == aEnsaios[nEnsaio][nIndResult]
					aResultados[nPosOpe, 3, nFldLab, nEnsaio, nIndResult] +:= "FOLDER_"+ cValtoChar(Random(0,1000));
				//EndIf
			Next nCamponMeuCpo
		Next nEnsaio

	EndIf

Return {aConteudos,aTitulos,aTamanhos}