pcsoft.br.windevCopyright 2026, PC SOFT2 Mar 2015 18:10:10 Z2 Mar 2015 18:10:10 Zhttp://windevdesenvolvimento.blogspot.com.br/2015/03/monitorando-arquivo-numa-pasta-timer.html Tenho um programa , em que o cliente, tem uma segunda tela. enquanto esta sendo fechado a conta do cliente, precisava aparecer na outra tela, somente algumas informacoes. entao fiz em windev que monitora um arquivo texto que criei. usei o timer [code:wl] PROCEDURE timer_fechamento() //GLOBAL - Clicar no inicio do programa,projeto,code // gdAta_arquivo is date // gtHora_arquivo is time // _data is Date = fDate("ENCERRA_100.TXT") _hora is Time = fTime("ENCERRA_100.TXT") IF _data=gdAta_arquivo AND _hora=gtHora_arquivo THEN ELSE gdAta_arquivo=_data gtHora_arquivo=_hora //trace(_hora) nArquivoid is int nArquivoid = fOpen("ENCERRA_100.TXT",foReadWrite) TableDeleteAll(TABLE_CONSUMO) _CODIGO is int _QUANTIDADE is currency _TOTAL is currency _NOME is string IF nArquivoid<>-1 THEN sLinha is string sFimarquivo is string sPegacampo is string LOOP sLinha = fReadLine(nArquivoid) IF sLinha = EOT THEN BREAK ELSE IF sLinha="" THEN BREAK ELSE sPegacampo = ExtractString(sLinha,firstRank,"|") sFimarquivo= ExtractString(sLinha,nextRank,"|") IF sFimarquivo="FIM" THEN BREAK ELSE IF sFimarquivo="RESUMO" THEN EDT_Numero_encerramento=ExtractString(sLinha,nextRank,"|") EDT_hospedagem=ExtractString(sLinha,nextRank,"|") EDT_apartamento=ExtractString(sLinha,nextRank,"|") EDT_VEICULO=ExtractString(sLinha,nextRank,"|") EDT_VEICULO=EDT_VEICULO + " " +ExtractString(sLinha,nextRank,"|") EDT_VEICULO=EDT_VEICULO + " " +ExtractString(sLinha,nextRank,"|") EDT_OBSERVACAO=ExtractString(sLinha,nextRank,"|") EDT_OBSERVACAO=EDT_OBSERVACAO + " " +ExtractString(sLinha,nextRank,"|") EDT_HORA_ENTRADA=ExtractString(sLinha,nextRank,"|") EDT_HORA_SAIDA=ExtractString(sLinha,nextRank,"|") EDT_TEMPO=ExtractString(sLinha,nextRank,"|") EDT_Numero_Pessoas=ExtractString(sLinha,nextRank,"|") EDT_horas_extras=ExtractString(sLinha,nextRank,"|") EDT_dias_pernoite=ExtractString(sLinha,nextRank,"|") EDT_data_Entrada=ExtractString(sLinha,nextRank,"|") EDT_data_SAIDA=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_CONSUMO=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_eSTADIA=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_EXTRA=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_PERNOITE=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_ESTADIA_1=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_DESCONTO=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_PAGAR=ExtractString(sLinha,nextRank,"|") EDT_TOTAL_TROCO=ExtractString(sLinha,nextRank,"|") ELSE IF sFimarquivo="ITENS" THEN _CODIGO=ExtractString(sLinha,nextRank,"|") _QUANTIDADE=ExtractString(sLinha,nextRank,"|") _TOTAL=ExtractString(sLinha,nextRank,"|") _NOME=ExtractString(sLinha,nextRank,"|") TableAddLine(TABLE_CONSUMO,_CODIGO,_NOME,_QUANTIDADE,_TOTAL) END END END END END END END TableDisplay(TABLE_CONSUMO) nArquivoid = fClose(nArquivoid) END [/code]30WEBDEVpt_BRhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/132-windev-monitorar-arquivo-numa-pasta-timer-arquivo/read.awpmoderateur@pcsoft.fr (Le modérateur)webmaster@pcsoft.fr (Le Webmaster)