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 |
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 | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
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} |