#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