Un nouveau Webinaire est programmé jeudi 17 mars à 11h.
Dans
cette session de 20 minutes, vous découvrirez les différentes
possibilités pour automatiser des tâches, des traitements (services
Windows, daemon Linux, tâches planifiées Windows, ...)
Après la diffusion en directe, la vidéo restera disponible avec ce même lien.
Retrouvez l'ensemble des webinaires sur notre site :
Nesta sessãode 20 minutos,você vai descobrir asdiferentes possibilidades paraautomatizar tarefas, tratamentos (serviços do Windows, daemonLinux, as tarefas do Windowsprogramadas,...)
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
