Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "totvs.ch" /*/{Protheus.doc} User Function FINGRVALC (Ponto de entrada para validar gravacao do arquivo FRT) @type Function @author Cassio S Dias @since 06/12/2023 @version 12.1.2310 @param param_name, param_type, param_descr @return return_var, return_type, return_description @see (links_or_referenceshttps://tdn.totvs.com/x/2AlAM) /*/ User Function FINGRVALC(paramixb) as logical Local aValid as array Local lGrvOk as logical Local nValLim as numeric lGrvOk :=.T. nValLim:= 50000 aValid := paramixb //paramixb[1]COD USER //paramixb[2]COD GESTOR //paramixb[3]TIPO DE MOV //paramixb[4]MOEDA //paramixb[5]DATA //paramixb[6]SEQ //paramixb[7]SALDO If FRT->(DbSeek(xFilial("FRT")+aValid[1]+aValid[2]+aValid[4]+aValid[3]+DTOS(aValid[5])+aValid[6])) if aValid[7]> nValLim if MSGYESNO( "Identificado valor maior que valor limite. Confirma Gravação?", "FINGRVALC - Confirmação" ) lGrvOk :=.T. else lGrvOk :=.F. ENDIF ENDIF Endif Return lGrvOk |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas