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 |
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:
| 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 | ||
| cCarta | X X X X X X X X X X X X X X |
Retorno
aMedicao
...
| 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 |
Retorno: aMedicao - array_of_record - Obrigatório (Detalhamento conforme parâmetro recebido)
| Bloco de código | ||||
|---|---|---|---|---|
|
...
| |||||
#INCLUDE "TOTVS.CH"
|
...
| Bloco de código |
|---|
/*/{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[23]
PrivateLocal aMedicaocOperacao := {}
Aadd(aMedicao,{})
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])) // Data medição,{}) // 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
|
Variáveis
...
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas