;** CL_0003 ********************************************************************
;*  Carteira de Clientes/Vendedor                                              *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 21/06/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

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc CL_0003_SelecionaDados()
ClearAll

{Ask}{\\Sistemas\\Cadastro\\Destinat}
Moveto [Codigo                 ]       typein "Calc Count As NRegistros"
Moveto [Tipo                   ]       typein "C"
Moveto [Inativo                ]       typein "Not S"
moveto [Codigo do Representante] check 
do_it!
ClearAll

{Ask}{\\Sistemas\\Cadastro\\Represen}
moveto [Codigo do Representante]       typein "_crep"
moveto [Nome fantasia Represent] check
{Ask}{Answer} check
moveto [Codigo do Representante]       typein "_crep!"
do_it!
ClearAll

CL_0003_AdicionaDados()

EndProc

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc CL_0003_AdicionaDados()
ClearAll

View tabeladados
CoEdit "Answer"
Scan
   Moveto tabeladados
   End Down
   [nome   ]=[Answer->Nome Fantasia Represent]+" ["+[Answer->Codigo do Representante]+"]"
   [Valor  ]=[Valor  ] + [Answer->NRegistros  ]

   Moveto "Answer"
EndScan
Do_It!
ClearAll

EndProc

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc CL_0003_GravaCsv()
private s, arquivo, arqnew, inicio, NR, vartemp

Aguarde("Aguarde, Exportando Carteira-Clientes")


Sort tabeladados on "Valor" D
ClearAll

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

NR=NRecords(tabeladados)
inicio=true

FileWrite        arquivo from "label,value\n"    

Edit tabeladados 
Scan
  Barra(NR, RecNo())
  AGUARDE(BARRA_STRING)

  s=  monta_string([nome    ])+","
  s=s+strval([Valor         ])+"\n"

  FileWrite append arquivo from s    
  
EndScan
Do_It!
ClearAll

FileRead  arquivo to   vartemp
FileWrite arqnew  from vartemp    

LimpAguarde()

EndProc

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************

tabeladados=Cria_Temp(PrivDir())
cria_tabela(tabeladados,"nome(A20),Valor(S)")

CL_0003_SelecionaDados()
CL_0003_GravaCsv()

Delete tabeladados

ClearAll
Release Vars tabeladados
Release Procs CL_0003_SelecionaDados, CL_0003_AdicionaDados, CL_0003_GravaCsv
