;** SS_0001 ********************************************************************
;*  Informativo                                                                *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 12/09/2019 por Anivel Augusto Rodrigues
;Ultima Alteracao: 12/09/2019 por Anivel Augusto Rodrigues      
;Motivo Alteracao: Ajustes filewrite inicial
;Ultima Alteracao: 23/10/2019 por Anivel Augusto Rodrigues  
;Motivo Alteracao: Ajustes mensagem

;*******************************************************************************
;* Gera Informativo                                                            *
;*******************************************************************************
Proc Informativo()
private s, arquivo, arqnew, vartemp 

Aguarde("Aguarde, Exportando Informativo")

ClearAll

arquivo=VSDGPASTA+"tmp0000.txt"
arqnew =VSDGPASTA +"inform.csv"
         
s=  "\"Dados referente "+rtrim(MesExt(numval(VSDGMES)))+"/"+strval(VSDGANO)
s=s+", ate "+format("D13",VSDGDTFIM)+" as "+VSDGHRFIM+"\","
s=s+"\"https://www.vise.inf.br/suporte/INFORMATIVO.png\",\"ion-stats-bars\",\"[ VISERP - Vise Informatica ]\""
s=s+"\n"

FileWrite        arquivo from "value,image,icon,label\n"    
FileWrite append arquivo from s    

FileRead  arquivo to   vartemp
FileWrite arqnew  from vartemp    

LimpAguarde()

EndProc ;Informativo()

Informativo()

Release procs Informativo
