Histórico da Página
...
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 := 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 montagem de folder; 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 | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function QP215E01(cOperacao, aEnsaios) Local aConteudos := {} Local aEnsaios := Nil Local aTamanhos := {} Local aTitulos := {} Local nCampo Local cOperacao := 0 Nil Local nCamposnNovos := 0 Local nEnsaio aTitulos := 0 Local nIndResult{ "Un.Medida"} aTamanhos := { 0 Local70} nNovos := 0Len(aTitulos) aTitulos := { "Nivel1", "Campo Teste" } If ParamIXB != Nil aEnsaios aTamanhos := { 70, 50 } nNovos ParamIXB[2] cOperacao := Len(aTitulos) 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 == "FOLDERQP8" For nEnsaio := 1 To Len(aEnsaios) nCampos := Len(aResultados[nPosOpe,3, nFldLab, nEnsaio]) For nCampo := 1 To Len(aTitulos) nIndResult := (nCampos - nNovos + nCampo) //If aEnsaios[nEnsaio][nIndResult] == aEnsaios[nEnsaio][nIndResult] aResultados[nPosOpe, 3, nFldLab, nEnsaio, nIndResult] += " aConteudos := {; (cAliasOPQP7)->QP8_ENSAIO + "_QP8_"+ cValtoChar(Random(0,1000)); //EndIf Next nCampo Next nEnsaio EndIf } EndIf EndIf Return {aConteudos,aTitulos,aTamanhos} |