;* GAMDBNFE ********************************************************************
;*  Gera MDB c/ Rela‡Æo de nota a tirar e importar no Excel                    *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 19/08/2011 por Anivel Augusto Rodrigues
;Ultima Alteracao: 19/08/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Fun‡äes para VISE                          
;Ultima Alteracao: 01/12/2011 por Bruno Carvalho
;Motivo Alteracao: Altera‡Æo de "Abcprdox -> Vabc"
;Ultima Alteracao: 12/07/2012 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes nome tabela aaxlsnfe->tmp_xls  - SIM       

;*******************************************************************************
; Rotina Gera XLS                                                              *
;*******************************************************************************
Proc GERA_XLSNFE()

EmptY("tmp_xls")

{Ask} {\\Sistemas\\Cadastro\\Destinat}
Moveto [Codigo                ] TypeIn "_cdclie"
Moveto [Endereco_Eletronico   ] TypeIn "_email"
{Ask} {FaturaC}
Moveto [Numero da OF          ] TypeIn "_of"
Moveto [Codigo                ] TypeIn "_cdclie"
Moveto [Nome Fantasia EmitDest] TypeIn "_nf"
Moveto [Razao Social          ] TypeIn "_rz"
Moveto [Cidade                ] TypeIn "_cidad"
Moveto [CGC                   ] TypeIn "_cgc"
Moveto [Valor Nota Fiscal     ] TypeIn "_vrnf"
Moveto [Numero_Carregamento   ] TypeIn "000001"
{Ask} {tmp_xls} TypeIn "Fast Insert"
Moveto [Numero da OF          ] TypeIn "_of"
Moveto [Nome Fantasia EmitDest] TypeIn "_nf"
Moveto [Razao Social          ] TypeIn "_rz"
Moveto [CGC                   ] TypeIn "_cgc"
Moveto [Valor Nota Fiscal     ] TypeIn "_vrnf"
Moveto [Cidade                ] TypeIn "_cidad"
Do_It!
ClearAll

Tabela_cnv=Cria_Temp(PrivDir())
Copy "tmp_xls" Tabela_cnv

Comando="c:\\vise\\Vabc.exe \""+
        Tabela_cnv+".db\" \""+ARQUIVOD+"\" 2"
Executa_Programa(comando)
Sleep 1000

EndProc

;*******************************************************************************
; Principal                                                                    *
;*******************************************************************************
Aguarde("Gerando arquivo")
Do_It!
ClearAll

ARQUIVOD=Directory()+"nfe"+AlinhM(StrVal(Month(Today())),2)+"_"+SubStr(StrVal(Year(Today())),3,2)+".mdb"

Gera_XLSNFE()

LimpAguarde()
Mensagem("Arquivo gerado : "+ARQUIVOD)

Release Vars Tabela_cnv, ARQUIVOD
Release Procs GERA_XLSNFE
