Histórico da Página

...

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

...

Programa Fonte: QIPA215.PRW

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

Sintaxe: aMedicao := QP215MED(ExecBlock("QP215MED",.F.,.F.,{aMedicao, cCarta, cRoteiro, cOperacao, cLabor, cEnsaio})

Parâmetros:

Nome	Tipo	Descrição
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
cCarta	Caractere	Tipo da Carta do ensaio corrente
cRoteiro	Caractere	Roteiro Atual
cOperacao	Caractere	Operação Atual
cLabor	Caractere	Laboratório Atual
cEnsaio	Caractere	Ensaio Atual

...

Bloco de código

language	cpp
title	Exemplo
linenumbers	true
collapse	true

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} QP215MED
User function para informar medimediçã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[Len(aMedicao)],PADR(CTOD("25/06/2020"),TAMSX3("QPR_DTMEDI")[1])),{})                                                               // DataInicializando a mediçãoposiçã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

Árvore de páginas

Versões comparadas

Versão antiga 11

Nova versão Atual

Chave