VIDEO SOBRE MONITORAR ARQUIVO NUMA PASTA - TIMER - ARQUIVO
Tenho um programa em clarion, 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()
//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
TableDisplay(TABLE_CONSUMO)
nArquivoid = fClose(nArquivoid)
END
