Histórico da Página

User Function QP215E01()
 
    Local aConteudos := {}
	Local aEnsaios   := Nil
    Local aTamanhos  := {}
    Local aTitulos   := {}
	Local cOperacao  := Nil
	Local 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[nFldOpe,3, nFldLab, nEnsaio])
			For nMeuCpo := 1 To Len(aTitulos)
				nIndResult                    := (nCampos - nNovos + nMeuCpo)
				aEnsaios[nEnsaio, nIndResult] := "FOLDER_"+ cValtoChar(Random(0,1000))
			Next nMeuCpo
		Next nEnsaio

	EndIf

Return {aConteudos,aTitulos,aTamanhos}