Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 12

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

Gravado em

comparado com

Nova versão Atual

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 - chamado uma vez para cada registro da QP7 relacionado a inspeção, checar alias posicionado cAliasOPQP7;

→ QP8 - chamado uma vez para cada registro da QP8 relacionado a inspeção, checar alias posicionado cAliasOPQP7;

→ FOLDER - trecho de troca montagem 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 nMeuCpocOperacao    := 0Nil
	Local nCampos    := 0
	Local nEnsaioLocal nNovos     := 0
	Local nIndResult := 0
	Local nNovos     := 0

	aTitulos  := { "Nivel1", "Campo Teste" Un.Medida"}
    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 := {;
    	 If cOperacao == (Posicione("SX5",1,xFilial("SX5")QP7"
    + "Q6" + QP7->QP7_NIVEL,"X5_DESCRI")) + (Posicione("SX5",1,xFilial("SX5")  + "Q6" + QP8->QP8_NIVEL,"X5_DESCRI")),; 
	aConteudos := {;
                (cAliasOPQP7)->QP7_ENSAIO + "Valor teste_QP7_"+ cValtoChar(Random(0,1000));
	    }

	ElseIf cOperacao == "FOLDER" 
		For nEnsaio   }
  := 1 To Len(aEnsaios)
			nCampos   ElseIf cOperacao := Len(aResultados[nFldOpe,3, nFldLab, nEnsaio])
			For nMeuCpo := 1 To Len(aTitulos)
				nIndResult== "QP8"
            aConteudos := {;
           := (nCampos - nNovos + nMeuCpo)
				aEnsaios[nEnsaio, nIndResult] := "FOLDER(cAliasOPQP7)->QP8_ENSAIO + "_QP8_"+ cValtoChar(Random(0,1000))
			Next nMeuCpo
		Next nEnsaio

	EndIf
;
            }
        EndIf
 
    EndIf
 
Return {aConteudos,aTitulos,aTamanhos}