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) Local aConteudos := {} Local aEnsaios := Nil Local aTamanhos := {} Local aTitulos := {} Local cOperacao := Nil Local nNovos := 0 aTitulos := { "Un.Medida"} aTamanhos := { 70} 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 If cOperacao == "QP7" aConteudos := {; (Posicione("SX5",1,xFilial("SX5") + "Q6" + QP7(cAliasOPQP7)->QP7_NIVEL,"X5_DESCRI")) + (Posicione("SX5",1,xFilial("SX5") + "Q6" + QP8->QP8_NIVEL,"X5_DESCRI")),; ENSAIO + "_QP7_"+ cValtoChar(Random(0,1000)); } ElseIf cOperacao == "Valor testeQP8"; } EndIf aTitulosaConteudos := {; "Nivel1", "Campo Teste" } (cAliasOPQP7)->QP8_ENSAIO + "_QP8_"+ cValtoChar(Random(0,1000)); } aTamanhosEndIf := { 70, 50 }EndIf Return {aConteudos,aTitulos,aTamanhos} |