Histórico da Página

Ponto-de-Entrada: QP215MED- Alterações no Array de medições da tela de resultados.

Abrangências:	Protheus 12
Versões:	Protheus 12.1.23, Protheus 12.1.25, Protheus 12.1.27
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Português (Brasil) , Espanhol , Inglês

Descrição:

Este ponto de entrada permite que o usuário efetue modificações no array de medições da tela de resultados. O ponto de entrada é executado sempre, mesmo em Resultados que já possuem medições preenchidas.

Programa Fonte

QIPA215.PRW

Sintaxe

QP215MED - Alterações no array de medições da tela de resultados.

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

Referência

aMedicao

Array of Record

1 - Data da Medição

2 - Hora da Medição

3 - Amostra

4 - Código do Ensaiador

5 - Nome do Ensaiador

6 - Resultado da Medição

7 - Laudo da Medição

8 - Código do Método

9 - Revisão Documento

10 - Chave de Ligação

11 - Código da Filial do Usuário

12 - Alias

13 - Recno

14 - Marca de deleção

X

Retorno

aMedicao

(array_of_record)

Exemplo:

Bloco de código

/*/{Protheus.doc} QP215MED
User function para informar medi
@type function
@version 
@author thiago.rover
@since 25/06/2020
@return return_type, return_description
/*/
User Function QP215MED()

Local cCarta     := PARAMIXB[2]
Private aMedicao := {}

    Aadd(aMedicao,{})

If cCarta == "IND" .Or. cCarta == "TXT"  

    Aadd(aMedicao[Len(aMedicao)],PADR(CTOD("25/06/2020"),TAMSX3("QPR_DTMEDI")[1]))  // Data medição
    Aadd(aMedicao[Len(aMedicao)],PADR("10:28",TAMSX3("QPR_HRMEDI")[1]))             // Hora da medição
    Aadd(aMedicao[Len(aMedicao)],VAL(PADR("1",TAMSX3("QPR_AMOSTR")[1])))            // Amostra 
    Aadd(aMedicao[Len(aMedicao)],PADR("009",TAMSX3("QPR_ENSR")[1]))                 // Código do Ensaiador
    Aadd(aMedicao[Len(aMedicao)],PADR("Administrador",TAMSX3("QAA_NOME")[1]))       // Nome do Ensaiador
    Aadd(aMedicao[Len(aMedicao)],PADR("10",TAMSX3("QPS_MEDICA")[1]))                // Resultado Medição
    Aadd(aMedicao[Len(aMedicao)],PADR("A",TAMSX3("QPR_RESULT")[1]))                 // Laudo da Medição
    Aadd(aMedicao[Len(aMedicao)],PADR("",TAMSX3("QPR_METODO")[1]))                  // Codigo do Método
    Aadd(aMedicao[Len(aMedicao)],PADR("",TAMSX3("QPR_RVDOC")[1]))                   // Revisão Documento
    Aadd(aMedicao[Len(aMedicao)],PADR("00000134",TAMSX3("QPR_CHAVE")[1]))           // Chave de ligação	
    Aadd(aMedicao[Len(aMedicao)],PADR("01",TAMSX3("QPR_FILMAT")[1]))                // Cod. da Filial do Usuario
    Aadd(aMedicao[Len(aMedicao)],"QPS")                                             // Alias
    Aadd(aMedicao[Len(aMedicao)],12)                                                // Recno
    Aadd(aMedicao[Len(aMedicao)],.F.)                                               // Marca de deleção

Else //Repetir a linha do campo QPS_MEDICA de acordo com a quantidade de medições escolhidas para a carta
    Aadd(aMedicao[Len(aMedicao)],PADR(CTOD("25/06/2020"),TAMSX3("QPR_DTMEDI")[1]))  // Data medição
    Aadd(aMedicao[Len(aMedicao)],PADR("10:28",TAMSX3("QPR_HRMEDI")[1]))             // Hora da medição
    Aadd(aMedicao[Len(aMedicao)],VAL(PADR("1",TAMSX3("QPR_AMOSTR")[1])))            // Amostra 
    Aadd(aMedicao[Len(aMedicao)],PADR("009",TAMSX3("QPR_ENSR")[1]))                 // Código do Ensaiador
    Aadd(aMedicao[Len(aMedicao)],PADR("Administrador",TAMSX3("QAA_NOME")[1]))       // Nome do Ensaiador
    Aadd(aMedicao[Len(aMedicao)],PADR("10",TAMSX3("QPS_MEDICA")[1]))                // Resultado Medição 1
    Aadd(aMedicao[Len(aMedicao)],PADR("10",TAMSX3("QPS_MEDICA")[1]))                // Resultado Medição 2
    Aadd(aMedicao[Len(aMedicao)],PADR("10",TAMSX3("QPS_MEDICA")[1]))                // Resultado Medição 3
    Aadd(aMedicao[Len(aMedicao)],PADR("10",TAMSX3("QPS_MEDICA")[1]))                // Resultado Medição 4
    Aadd(aMedicao[Len(aMedicao)],PADR("10",TAMSX3("QPS_MEDICA")[1]))                // Resultado Medição 5
    Aadd(aMedicao[Len(aMedicao)],PADR("A",TAMSX3("QPR_RESULT")[1]))                 // Laudo da Medição
    Aadd(aMedicao[Len(aMedicao)],PADR("",TAMSX3("QPR_METODO")[1]))                  // Codigo do Método
    Aadd(aMedicao[Len(aMedicao)],PADR("",TAMSX3("QPR_RVDOC")[1]))                   // Revisão Documento
    Aadd(aMedicao[Len(aMedicao)],PADR("00000134",TAMSX3("QPR_CHAVE")[1]))           // Chave de ligação	
    Aadd(aMedicao[Len(aMedicao)],PADR("01",TAMSX3("QPR_FILMAT")[1]))                // Cod. da Filial do Usuario
    Aadd(aMedicao[Len(aMedicao)],"QPS")                                             // Alias
    Aadd(aMedicao[Len(aMedicao)],12)                                                // Recno
    Aadd(aMedicao[Len(aMedicao)],.F.)      
    
ENDIF

Return aMedicao

Variáveis

Nome

Tipo

Escopo

Pode Alterar

descrição

Array of Record

Global

Não

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão 6

Chave