|
| Inicio → WINDEV 25 → Windev - Monitorar Arquivo numa Pasta - Timer - Arquivo |
| Windev - Monitorar Arquivo numa Pasta - Timer - Arquivo |
| Iniciado por amarildo, mar., 02 2015 6:10 PM - Sem resposta |
| |
| | | |
|
| |
Membro registado
535 mensagems
Popularité : +14 (14 votes) |
|
Publicado em março, 02 2015 - 6:10 PM |
http://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
Procedure timer_fechamento()
_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
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 |
| |
| |
| | | |
|
| | | | |
| | |
|