Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Hederson Bisewski

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 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
languagedelphi
themeMidnight
firstline1
titleExemplo
linenumberstrue
User Function QP215E01()
  
    Local aConteudos := {}
    Local aEnsaios   := Nil
    Local aTamanhos aTitulos := {} 
    Local aTitulos aTamanhos  := {}
    Local cOperacao  := Nil
    Local nNovos     := 0
 
    aTitulos  := { "Nivel1", "Campo Teste" }
Un.Medida"}
    aTamanhos := { 70}
    nNovos    := Len(aTitulos)
 
    If ParamIXB != Nil
    aConteudos    aEnsaios     := {;
ParamIXB[2]
         (Posicione("SX5",1,xFilial("SX5")  + "Q6" + QP7->QP7_NIVEL,"X5_DESCRI")) + (Posicione("SX5",1,xFilial("SX5")  + "Q6" + QP8->QP8_NIVEL,"X5_DESCRI")),; 
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 := {;
                (cAliasOPQP7)->QP7_ENSAIO + "_QP7_"+ cValtoChar(Random(0,1000));
            }
        ElseIf cOperacao == "QP8"
            aConteudos := {;
                (cAliasOPQP7)->QP8_ENSAIO + "_QP8_"+ cValtoChar(Random(0,1000));
           "Valor teste";}
    } 

   EndIf
 aTamanhos
 := { 70, 50EndIf
 }

Return {aConteudos,aTitulos,aTamanhos}