Histórico da Página

...
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"  

//Regra aplicada para ensaios tipo IND ou 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 //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[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 6

Nova versão 7

Chave
