Histórico da Página

#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]))  // 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