Histórico da Página
...
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 Entrada | MDTA6954() |
|---|---|
| Chamada | Após a validação das linhas de EPI entregue ao funcionário. |
| Pré-Requisito | Não há. |
| Evento | Validação da tela de Funcionário x EPI. |
| Retorno | Retorno lógico com a validação personalizada. |
03. DEMAIS INFORMAÇÕES
| Função | MDTA6954() |
|---|---|
| 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) Não há. |
| Retorno | .T. - Retorno Lógico da validação. |
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas