Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Ana Karolina Holmes Coelho

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Roberta Schneider Borchardt

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoRH

Módulo:

Modulos_totvs_rh
ModulosTOTVSRHTOTVS 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 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, ArrayNumérico, carrega Carrega as variáveis.

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

Retorno.T. - Retorno Lógico da validaçãolRet, Retorna verdadeiro ou falso.



Bloco de código
languagejava
themeEclipse
firstline1
titleExemplo
linenumberstrue
#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

...