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 X X X X X X X X X X X X X |
Retorno
aMedicao
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 |