Linha Microsiga Protheus

Árvore de páginas

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
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: aMedicao := ExecBlock("QP215MED",.F.,.F.,{aMedicao, cCarta, cRoteiro, cOperacao, cLabor, cEnsaio})

Parâmetros:

NomeTipoDescrição
aMedicaoArray 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

cCartaCaractereTipo da Carta do ensaio corrente
cRoteiroCaractereRoteiro Atual
cOperacaoCaractereOperação Atual
cLaborCaractereLaboratório Atual
cEnsaioCaractereEnsaio Atual


Retorno: aMedicao - array_of_record - Obrigatório (Detalhamento conforme parâmetro recebido)


Exemplo 
#INCLUDE "TOTVS.CH"

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

Local aMedicao  := PARAMIXB[1]
Local cCarta    := PARAMIXB[2]
Local cRoteiro  := PARAMIXB[3]
Local cOperacao := PARAMIXB[4]
Local cLabor    := PARAMIXB[5]
Local cEnsaio   := PARAMIXB[6]
 
If cCarta == "IND" .Or. cCarta == "TXT"  //Regra aplicada para ensaios tipo IND ou TXT
    Aadd(aMedicao,{})                                                               // Inicializando a posiçã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 //Demais tipos de carta. Repetir a linha do campo QPS_MEDICA de acordo com a quantidade de medições escolhidas para a carta
    Aadd(aMedicao,{})                                                               // Inicializando a posição     
    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
  • Sem rótulos