Oi, Everton.

 

No momento tou sem tempo de acessar o msn, pois n empresa nao posso, so chego em casa tarde da noite e nos finais de semana vou para o interior, pelo menos ate setembro meu tempo vai ta corrido.

Manda Pro meu e-mail: claudiocipriano@oi.com.br ou claudiosipriano@hotmail.com

 

Claudio Cipriano

 

 

zeuzz,

kra vc ta vendendo a sua dll no lugar errado, aki eh um forum para troca de ideias, informacoes e experiencias.

Vc deve oferce-la no mercado livre ou pago.

 

flw,

 

Claudio Cipriano

 

 

 

 

 

 

 

 

Eu também gostaria de saber como fazer na mão.

 

vi num site uma DLL, é free mas não cancela notas, se quiser cancelar tem de pagar

 

 

 

thurma tenho essa rotina, mas esta dando erro no leiaute mas já é um começo

    vdatai = Year(Me.datai) & Format(Month(Me.datai), "00") & Format(Day(Me.datai), "00")
    vdataf = Year(Me.dataf) & Format(Month(Me.dataf), "00") & Format(Day(Me.dataf), "00")
        abrir = abrirconexao(Me.Dir1, Me.File1)
       
         sql = "SELECT Count(TNF.idnota) AS ContarDeidnota From TNF"
         sql = sql & " where  year(TNF.emissao) & format(month(TNF.emissao),'00') & format(day(TNF.emissao),'00')  Between '" & vdatai & "' and '" & vdataf & "' "
        Set bdados = Conexao.Execute(sql)
       
        totalnf = Nz(bdados(0), 0)
        ProgressBar1 = 0
        totreg = 0
        Open Me.Dir1 & "empresa.txt" & Right(mesano, 2) For Output As #1
       
        
         sql = "SELECT * From TNF "
         sql = sql & " where  year(TNF.emissao) & format(month(TNF.emissao),'00') & format(day(TNF.emissao),'00')  Between '" & vdatai & "' and '" & vdataf & "' order by idnota"
        Set dyn = Conexao.Execute(sql)

    If dyn.EOF Then Exit Sub
   
    Print #1, "NOTA FISCAL|" & totalnf & "|"
    formapgto = "1"
    Print #1, "A|1.01|NF-e|"
'    linha = "D|"
'    linha = linha & cnpjemitente & "|"
'    linha = linha & orgaoemitente & "|"
'    linha = linha & matricula & "|"
'    linha = linha & nomeagente & "|"
'    linha = linha & telefone & "|"
'    linha = linha & ufagente & "|"
'    linha = linha & ndoc & "|"
'    linha = linha & emissao & "|"
'    linha = linha & somapedi & "|"
'    linha = linha & "|"
'    Print #1, linha
    While Not dyn.EOF
        linha = "B"
        linha = linha & "|355030|"
        linha = linha & Mid(dyn!natureza, 7, 90) & "|"
        linha = linha & Replace(Left(dyn!natureza, 5), ".", "") & "|"
        linha = linha & formapgto & "|"
        linha = linha & "55|"
        linha = linha & "0|"
        linha = linha & "|" & Left(dyn!idnota, 5) & "|"
        linha = linha & Year(emissao) & Format(Month(emissao), "00") & Format(Day(emissao), "00") & "|"
        linha = linha & Year(emissao) & Format(Month(emissao), "00") & Format(Day(emissao), "00") & "|"
        If Left(cfop, 1) > 4 Then
           linha = linha & "1|"
        Else
           linha = linha & "0|"
        End If
        linha = linha & "355030|"
        linha = linha & "1|"
        linha = linha & "1|"
        linha = linha & "|"
        linha = linha & "1|"
        linha = linha & "3|"
        linha = linha & "|1.00"
        Print #1, linha
        linha = "B13|"
        linha = linha & "|"
        Print #1, linha
        linha = "B14|"
        linha = linha & "55|"
        linha = linha & Year(emissao) & "|" & Format(Month(emissao), "00") & "|"
        linha = linha & Me.cnpj & "|"
        linha = linha & "01|"
        linha = linha & "1" & "|"
        linha = linha & nfnota & "|"
        linha = "C|"
        linha = linha & Me.empresa & "|"
        linha = linha & Me.fantasia & "|"
        vinscricao = Replace(Me.inscricao, ".", "")
        linha = linha & vinscricao & "|"
        linha = linha & "|"
        linha = linha & "|"
        linha = linha & "|"
        Print #1, linha
        linha = "C02|"
        vcnpj = Replace(Me.cnpj, ".", "")
        vcnpj = Replace(vcnpj, "-", "")
        vcnpj = Replace(vcnpj, "/", "")
        linha = linha & vcnpj & "|"
        Print #1, linha
        linha = "C05|"
        linha = linha & Me.endereco & "|"
        linha = linha & Me.numero & "|"
        linha = linha & Me.complemento & "|"
        linha = linha & Me.bairro & "|"
        linha = linha & codigomunicipio & "|"
        linha = linha & Me.cidade & "|"
        linha = linha & Me.uf & "|"
        linha = linha & Me.cep & "|"
        linha = linha & "Brasil" & "|"
        linha = linha & Me.fone & "|"
        Print #1, linha
        
         Me.ProgressBar1 = ProgressBar1 + 1
         If Me.ProgressBar1 > 99 Then Me.ProgressBar1 = 0
        linha = "E|"
        Set db = Conexao.Execute("select * from Tcotacao where id=" & dyn!idpedido) ' busca o id do pedido para achar o id do cliente
        If db.EOF Then GoTo proximo
        Set dados = Conexao.Execute("select * from Tcliente where id=" & db!idcliente)
        If dados.EOF Then GoTo proximo
        razao = mudaletra(db!cliente)
        ie = dados!ie
        ie = Replace(ie, "-", "")
        ie = Replace(ie, ".", "")
        ie = Replace(ie, "/", "")
        ie = Replace(ie, ",", "")
        If ie = "" Then ie = "Isento"
        endereco = mudaletra(dyn!enderecocob)
        numero = Right(enderecocob, 5) ' dyn!numero
        complemento = "" ' dyn!complemento
        bairro = mudaletra(dyn!bairrocob)
        cidade = mudaletra(dyn!cidadecob)
        uf = dyn!ufcob
        cep = dyn!cepcob
        cep = Replace(cep, "-", "")
       
        linha = linha & razao & "|"
        linha = linha & ie & "|"
        linha = linha & "|"
        cnpj = Replace(dados!cnpj, "-", "")
        cnpj = Replace(cnpj, ".", "")
        cnpj = Replace(cnpj, "/", "")
       
        linha = linha & cnpj & "|"
        Print #1, linha
        linha = "E05|" & endereco & "|"
        linha = linha & numero & "|"
        linha = linha & complemento & "|"
        linha = linha & bairro & "|"
        linha = linha & "55" & "|"
        linha = linha & cidade & "|"
        linha = linha & uf & "|"
        linha = linha & cep & "|"
        linha = linha & "|"
        linha = linha & "|Brasil|"
        linha = linha & "|"
        Print #1, linha
       
        Set dados = Conexao.Execute("select * from Tnfsaida  where id=" & Left(dyn!idnota, 5))
        Item = 1
        While Not dados.EOF
            linha = "H|" & Item
            linha = linha & "|"
            Print #1, linha
            linha = "I|" & dados!codigoproduto & "|"
            linha = linha & "GTN-8" & "|"
            linha = linha & mudaletra(dados!descricao) & "|"
            linha = linha & "|"
            linha = linha & "|"
            linha = linha & "|"
            linha = linha & cfop & "|"
            linha = linha & mudaletra(dados!unidade) & "|"
            linha = linha & dados!qde_entregue & "|"
            linha = linha & dados!preco & "|"
            linha = linha & dados!preco * dados!qde_entregue & "|"
            linha = linha & "GTN-8" & "|"
            linha = linha & "00" & "|"
            linha = linha & "0.00" & "|"
            linha = linha & "0.00" & "|"
            linha = linha & "|"
            linha = linha & "|"
            linha = linha & "|"
            dados.MoveNext
        Wend
proximo:
        dyn.MoveNext
    Wend

    Me.ProgressBar1 = 0
    Linha20 = 0
    Linha40 = 0
Close #1
Conexao.Close
MsgBox "processo finalizado"