Monitorando Arquivo Numa Pasta / Timer / Arquivo

---

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   
    END
    TableDisplay(TABLE_CONSUMO)
    nArquivoid = fClose(nArquivoid)
END

---