;** SS_0000 ********************************************************************
;*  Usuarios                                                                   *
;*******************************************************************************
;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 Usuarios                                                               *
;*******************************************************************************
Proc Usuarios()
private s, arquivo, arqnew,NR ,vartemp

Aguarde("Aguarde, Exportando Usu rios")

ClearAll

arquivo=VSDGPASTA+"tmp0000.txt"
arqnew =VSDGPASTA+"usuario.csv"

NR=NRecords("\\Sistemas\\Mobilets\\pd_us")
inicio=true

FileWrite        arquivo from "ID,NOME,SENHA,DEPARTAMENTO,EMAIL\n"    

Edit "\\Sistemas\\Mobilets\\pd_us" 
Scan
  Barra(NR, RecNo())
  AGUARDE(BARRA_STRING)

  If [Inativo]="S" 
     Then loop   
  EndIf

  s=  monta_string([ID                     ])+","
  s=s+monta_string([Nome                   ])+","
  s=s+monta_string([Senha                  ])+","
  s=s+monta_string([Departamento           ])+","
  s=s+monta_string([Email                  ])+"\n"

  FileWrite append arquivo from s    
  
EndScan
Do_It!
ClearAll

FileRead  arquivo to   vartemp
FileWrite arqnew  from vartemp    

LimpAguarde()

EndProc ;Usuarios()

Usuarios()

Release procs Usuarios
