


;*******************************************************************************
;*                                                                             *
;*******************************************************************************
proc exportar()

If DirExists(diretorio)=0
   Then Cria_Pasta(diretorio)
EndIf
Aguarde("Aguarde, excluindo arquivos temporarios")
FileWrite        PrivDir()+"fundel.txt"  From  "DELT|"+diretorio+"\\*.DB"+"\n"
FileWrite Append PrivDir()+"fundel.txt"  From  "DELT|"+diretorio+"\\*.MB"+"\n"
ExecVisecf(PrivDir()+"fundel.txt","")
Sleep 2000

Aguarde("Aguarde, exportando tabelas")
criartab("\\Sistemas\\Cadastro\\Fichacli", "CLI_FICH")
criartab("\\Sistemas\\Cadastro\\Destinfo", "CLI_INFO")
criartab("\\Sistemas\\Cadastro\\Destmail", "CLI_MAIL")
criartab("\\Sistemas\\Cadastro\\Destmsg",  "CLI_MSG")
criartab("\\Sistemas\\Cadastro\\Destobs",  "CLI_OBS")
criartab("\\Sistemas\\Cadastro\\Destinat", "CLIENTES")

criartab("\\Sistemas\\Estoque\\sdestq",   "ESTOQUE")
criartab("\\Sistemas\\Estoque\\itens",    "ITEM")
criartab("\\Sistemas\\Estoque\\iten_com", "ITEM_COM")
criartab("\\Sistemas\\Estoque\\iten_tec", "ITEM_TEC")

criartab("\\Sistemas\\Estoque\\notaec",  "NOTAE")
criartab("\\Sistemas\\Estoque\\notaei",  "NOTAEIT")
criartab("\\Sistemas\\Estoque\\notaecp", "NOTAEVP")
criartab("\\Sistemas\\Estoque\\notaecv", "NOTAEVV")


criartab("\\Sistemas\\Vendas\\notac",  "NOTA")
criartab("\\Sistemas\\Vendas\\notai",  "NOTAIT")
criartab("\\Sistemas\\Vendas\\notav",  "NOTAVENC")

criartab("\\Sistemas\\Vendas\\transpor",  "TRANSP")
criartab("\\Sistemas\\Vendas\\condpgto",  "CONDPG")


criartab("\\Sistemas\\Vendas\\tbprcab",  "PREC")
criartab("\\Sistemas\\Vendas\\tbprite",  "PRECITEM")

criartab("\\Sistemas\\ctapag\\titulos",  "PAG_TIT")
criartab("\\Sistemas\\ctapag\\titbaixa", "PAG_BX")

criartab("\\Sistemas\\ctarec\\duplic",   "REC_TIT")
criartab("\\Sistemas\\ctarec\\dupbaixa", "REC_BX")

criartab("\\Sistemas\\cheqrec\\chequec", "CHEQC")
criartab("\\Sistemas\\cheqrec\\chequei", "CHEQI")
criartab("\\Sistemas\\cheqrec\\bordchc", "BORDCHQC")
criartab("\\Sistemas\\cheqrec\\bordchi", "BORDCHQI")

criartab("\\Sistemas\\ctacor\\movcont", "CXAMOVIM")
criartab("\\Sistemas\\ctacor\\saldcont","CXASALDO")

limpaguarde()
endproc

;*******************************************************************************
;*                                                                             *
;*******************************************************************************
proc criartab(taborig, tabdest)
private taborig, tabdest

Aguarde("Aguarde, exportando tabela "+tabdest)


{Ask} typein taborig enter check
do_it!
ClearAll

copy "Answer" diretorio+"\\"+tabdest
clearAll


endproc

;*******************************************************************************
;* Rotina Principal Emissao Nota Fiscal ou Romaneio                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,"+
        "\\Sistemas\\Cadastro\\Bib_Show,"+
        "\\Sistemas\\Cadastro\\Bib_Parm,"+
        "\\Sistemas\\Cadastro\\Bib_Bloq,"+
        "\\Sistemas\\Vendas\\Bib_Fat,"+
        "\\Sistemas\\Vendas\\Bib_Vend"

sys_valor()

msg      =""
diretorio=""

drive=upper(substr(directory(),1,2))
switch
  case drive="V:" : diretorio=drive+"\\TMPFISC" msg="FISCAL"
  case drive="X:" : diretorio=drive+"\\TMPGER"  msg="GERENCIAL"
endswitch

if not isblank(diretorio) and ConfGeral("Gerando dados para LSoft ["+msg+"]//"+"Deseja Continuar?")
   then
        exportar()
        
        mensagem("Fim do processo !// //Tabelas ["+msg+"] geradas na pasta -> "+diretorio)
endif
release vars all
release procs all 
