Histórico da Página
Realiza a validação da variação dia do contador.
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Manufatura. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | Manutenção de Ativos e Gestão de Frotas. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Tickets relacionados | 3209234. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado): Informe o requisito relacionado (Issue) | DNG-1450 / DNG-2033 / DNG-2256. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
País(es): | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Tabelas Utilizadas: | Informe as tabelas utilizadas. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Pode lhe interessar: | http://tdn.totvs.com/x/YqG1F | Pacote: | Informe o [linkdopacote] |
Ponto de Entrada
Descrição: | Ponto de entrada para realizar a validação na acionado ao fim da validação de variação dia do contador, permitindo a customização do retorno desta validação. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | MNTUTIL_CONTADOR | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Função: | NGVALIVARD() | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parametros: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno: | Nome
|
|
|
|
Exemplo:
#Include 'ProtheusBloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch' |
User Function |
Local aCab:= PARAMIXB[1]
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCab NGCHECVAR()
Local lRet := .T.
Local lSaida := ParamIXB[1] // Define se a mensagem deve ser apresentada em tela
Local cBem := ParamIXB[2] // Código do bem
Local nPosCont := ParamIXB[3] // Posição do Contador
Local dDataLei := ParamIXB[4] // Data de leitura
Local cHoraLei := ParamIXB[5] // Hora da leitura
Local nTipCont := ParamIXB[6] // Tipo do contador 1 = Primeiro contador ;2 = Segundo contador
Local nVarDCal := ParamIXB[7] // Variação do dia calculada
Local nVarBem := ParamIXB[8] // Variação do dia do bem
Local aChkVar := ParamIXB[9] // ParamIXB[9][1] - validação do sistema, ParamIXB[9][2] - Mensagem a ser apresentada para o usuário, ParamIXB[9][3] - Valor da variação dia
Local nVarDChk := ParamIXB[10] // Variação anterior do bem
Local cMsg := "Variação dia é superior à do bem"
If nVarDCal > nVarBem
lRet := .F.
If lSaida
MsgInfo(cMsg)
Else
// A mensagem só será utilizada no ExecAuto do MNTA735 - Retorno CheckList e MNTA851 - Parte Diária
aChkVar := { lRet, cMsg, nVARDCAL }
EndIf
EndIf
Return IIf( lSaida, lRet, aChkVar ) |