Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada para incluir campos adicionais no Resultado, pasta Laboratório - Ensaios

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
Exemplo
User Function QP215E01()
  
    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 := {;
                (cAliasOPQP7)->QP7_ENSAIO + "_QP7_"+ cValtoChar(Random(0,1000));
            }
        ElseIf cOperacao == "QP8"
            aConteudos := {;
                (cAliasOPQP7)->QP8_ENSAIO + "_QP8_"+ cValtoChar(Random(0,1000));
            }
        EndIf
 
    EndIf
 
Return {aConteudos,aTitulos,aTamanhos}