Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 4 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Funcionário x EPI (MDTA695)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

Criado ponto de entrada MDTA6954 na rotina de Funcionário x EPI (MDTA695) chamado na validação da tela de Funcionário x EPI, após validar as linhas de EPIs, como última validação a ser realizada. Através desse ponto de entrada é possível realizar validações e gravações específicas.


Ponto de EntradaMDTA6954()
ChamadaApós a validação das linhas de EPI entregue ao funcionário.
Pré-RequisitoNão há.
EventoValidação da tela de Funcionário x EPI.
RetornoRetorno lógico com a validação personalizada.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA6954()
Parâmetros

Local aCols1, Array, Variável contendo as linhas do GetDados - EPI's.

Local aHead1, Array, Variável contendo a estrutura do aCols.

Local nX, Array, carrega as variáveis.

Local lRet, Lógico, retorna sempre Verdadeiro (True).

Retorno.T. - Retorno Lógico da validação.



Exemplo
#include "protheus.ch"
#include "rwmake.ch"      

User Function MDTA6954()

    Local lRet   := .T.
    Local aCols1 := {}
    Local aHead1 := {}
    Local nX     // Carrega variáveis

    // Verifica se os parâmetros foram passados corretamente
    If Type("ParamIXB") == "A"
        aCols1 := aClone(ParamIXB[1])
        aHead1 := aClone(ParamIXB[2])
    EndIf

    If Len(aCols1) > 0
        nDtEnt := aScan(aHead1, { |x| AllTrim(Upper(x[2])) == "TNF_DTENTR" })

        For nX := 1 To Len(aCols1)
            If !aCols1[nX][Len(aCols1[nX])]
                If aCols1[nX, nDtEnt] > (dDataBase - 2)
                    lRet := .F.
                EndIf
            EndIf
        Next nX
    EndIf

    If !lRet
        lRet := MsgYesNo("Alerta de data entrega. Confirma ?", "EPI's")
    Else
        MsgInfo("Não houveram inconsistências de data entrega.", "EPI's")
    EndIf

Return lRet


04. ASSUNTOS RELACIONADOS