Histórico da Página
Realiza a validação da variação dia do contador.
Características do Requisito
Linha de Produto: | Informe a linha de produtoMicrosiga Protheus. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Informe o segmentoManufatura. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | Informe o móduloManutenção de Ativos e Gestão de Frotas. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Cadastros Iniciais: | Relacione os cadastros necessários que precisam ser preenchidos antes da utilização desse requisito. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetro(s): | Informe os parâmetros utilizados. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Ponto de Entrada: | Informe o ponto de entrada relacionado (link). | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Tickets relacionados | 3209234 | Tickets relacionados | Informe o(s) chamado(s) relacionado(s). | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado): Informe o requisito relacionado (Issue) | DNG-1450 / DNG-2033 / DNG-2256. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
País(es): | Informe o(s) Pais(es)Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Informe o(s) Banco(s) de Dados utilizado(s). | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Tabelas Utilizadas: | Informe as tabelas utilizadas. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Todos. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Informe o(s) sistema(s) operacional(is) utilizados. | Todos. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Pode lhe interessar: | http://tdn.totvs.com/x/YqG1F | Pacote: | Informe o [linkdopacote] |
Ponto de Entrada
Descrição: | Informe o Menu em que estará localizada a rotina | ||
Localização: | Informe o Submenu em que estará localizada a rotina | ||
Eventos: | Informe o Título da rotina | ||
Programa Fonte: | Informe o Fonte da rotina | ||
Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | Retorno: | |
Nome | Tipo | Descrição | Obrigatório |
|
|
|
Exemplo:
#Include 'Protheus.ch'
User Function CN120ALT()
Local aCab:= PARAMIXB[1]
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCabPonto de entrada acionado ao fim da validação de variação dia, permitindo a customização do retorno desta validação. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | MNTUTIL_CONTADOR | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Função: | NGVALIVARD() | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parametros: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno: |
|
Exemplo:
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch'
User Function 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 ) |