Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Antonio Sombra

Membros
  • Posts

    15
  • Joined

  • Last visited

Recent Profile Visitors

359 profile views

Antonio Sombra's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputation

  1. amigos o xml é modelo 59, e não sei como importar os dados
  2. showmessage(ListBox1.Items[ListBox1.ItemIndex]); aqui mostra o caminho de onde pegar o xml mostrou o caminho correto ACBrNFe1.NotasFiscais.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]); aqui carrega e nao sei pq da o erro coloquei um showmessage( ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID ) aqui da o erro deu o mesmo ERRO AD23180500632675000153592300323900018560160540.xml ai esta um xml
  3. if NOT Form1.Saidcf.Locate('chave',COPY(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,4,44) , []) then quando ele tenta verificar a chave da o seguinte erro
  4. BOM DIA Alterei o Campo para ModeloDF para moNFCe Estou tentando, mas nao ta funcionando poderia olhar e ver onde estou pecando var i,y,x,n,p: integer; data:string; VlistE,VlistS:variant; begin Form1.Saidcf.Active:=true; ListBox1.ItemIndex:=0; i:=0; x:=0; n:=0; p:=0; try while ListBox1.ItemIndex<Listbox1.Count - 1 do begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]); Label22.Caption:='Importação de Nfe: '+ListBox1.Items[ListBox1.ItemIndex]; form6.Refresh; i:=0; n:=n+1; if NOT Form1.Saidcf.Locate('chave',COPY(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,4,44) , []) then begin if ((copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.CFOP,01,01)='5')or(copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.CFOP,01,01)='6')) then begin i:=0; for i := 0 to ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Count - 1 do begin Form1.Saidcf.Insert; // Form1.SaidcfOBS.value := ACBrNFe1.NotasFiscais.Items[0].NFe.InfAdic.infAdFisco; Form1.Saidcfnome.value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.xProd; Form1.Saidcfemp_cnpj.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; Form1.Saidcfmes.Value := copy(datetostr(ACBrNFe1.NotasFiscais.Items[0].NFe.ide.dEmi),04,02); Form1.Saidcfano.Value := copy(datetostr(ACBrNFe1.NotasFiscais.Items[0].NFe.ide.dEmi),07,04); // data:= Form1.Saidcfmes.Value+'-'+Form1.Saidcfano.Value; Form1.SaidcfNR_CF.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.ide.nNf; Form1.SaidcfCOO.AsInteger := ACBrNFe1.NotasFiscais.Items[0].NFe.ide.nNf; Form1.SaidcfChave.Value:= COPY(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,4,44); Form1.SaidcfPRO_COD.AsString := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.cProd; Form1.SaidcfPRO_QUANT.Value :=ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.qCom; Form1.SaidcfPRECO.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.vDesc ; Form1.SaidcfVALOR.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.Vprod ; Form1.SaidcfDESCONTO.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.vUnCom ; Form1.SaidcfCfop.Value:=ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.CFOP; Form1.SaidcfItem.Value:=ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.nItem; Form1.Saidcfdata.AsDateTime:=ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi; Form1.SaidcfCALC.VALUE:='*'; Form1.SaidcfSER.AsString:='CFE'; Form1.SaidcfCPF.Value:=ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF; Form1.Saidcfdata.Value:=ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.uCom; Form1.Saidcfdata.Value:=ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.NCM; Form1.SaidcfCALC.VALUE:='*'; form1.produtos.Insert; form1.produtosPRO_COD.AsString := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.cProd; form1.produtospro_descricao.value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.xProd;; form1.produtosund.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.uTrib ; form1.produtospro_ncm.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.NCM ; form1.produtosPRECO.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.vUnCom ; form1.produtosemp_cnpj.Value := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; form1.produtos.ApplyUpdates(0); Form1.Saidcf.Post; Form1.Saidcf.ApplyUpdates(0); Form1.Saidcf.refresh; p:=p+1; end; end; end; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]); Label22.Caption:='Importação de Nfe: '+ListBox1.Items[ListBox1.ItemIndex]; form6.Refresh; i:=0; n:=n+1; end; showmessage('Arquivos importados com sucesso'+#13+ 'Notas : '+inttostr(n)+#13+ 'Itens : '+inttostr(p)+#13+ 'Ultima: '+COPY(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,4,44)+#13+ 'Mês/Ano:'+data); Form6.Refresh; except On E:Exception do ShowMessage('Ocorreu um erro no VlistE ' + E.Message+#13+ copy(datetostr(ACBrNFe1.NotasFiscais.Items[0].NFe.ide.dEmi),07,04)+#13+ copy(datetostr(ACBrNFe1.NotasFiscais.Items[0].NFe.ide.dEmi),04,02)+#13+ COPY(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,4,44)+#13+ inttostr(ACBrNFe1.NotasFiscais.Items[0].NFe.ide.nNf)); end; end;
  5. os arquivos São NFC-e (cupons fiscais eletronicos) os xml eu tenho, quero importar as informações para um banco de dados com as nf-e eu uso o acbrnf form1.SaidOBS.value := Form1.ACBrNFe1.NotasFiscais.Items[0].NFe.InfAdic.infAdFisco; form1.saidnome.value := Form1.ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Prod.xProd;; form1.saidemp_cnpj.Value := Form1.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; form1.saidmes.Value := copy(datetostr(Form1.ACBrNFe1.NotasFiscais.Items[0].NFe.ide.dEmi),04,02); form1.saidano.Value := copy(datetostr(Form1.ACBrNFe1.NotasFiscais.Items[0].NFe.ide.dEmi),07,04); quero saber se tem como fazer com os cupons??
  6. BOM DIA Pessoal preciso importar vários xml de cupons fiscais emitidos (cliente perdeu a base), para recompor a movimentação dos produtos e preciso de orientação para fazer usando o ACBR
  7. só tem arquivos na pasta acbr conforme o arquivo sdir acbr.txt,
  8. apaguei todos os arquivos acbr da minha máquina instalei novamente e persiste o problema.
  9. Não removi nada de nenhuma Unit, estou achando estranho
  10. sim, mas não acho essa unit você poderia me ajudar? como faço pra corrigir?
  11. log_Delphi_7.txtsim, marquei.a opção pra remover tudo antes de instalar!
  12. Boa noite amigos desinstalei o acbr e precisei instalar novamente e esta apresentando o seguinte erro: [Warning] ACBrDFeXsMsXml.pas(315): Return value of function 'TDFeSSLXmlSignMsXml.VerificarAssinatura' might be undefined [Error] ACBrDFeWebService.pas(449): Undeclared identifier: 'QuebraLinha' [Fatal Error] ACBrNFeWebServices.pas(45): Could not compile used unit 'ACBrDFeWebService.pas' já refiz a instalação uma 100x e não da certo
  13. Bom dia pessoal ja tentei com vários exemplos do Forum e nao consegui pegar as informaçãoes dos eventos das nf-e preciso acompanhar os eventos e nao consigo Eventos da NF-e Protocolo Data Autorização Data Inclusão AN Autorização de Uso 123150016306472 30/03/2015 às 14:03:36 30/03/2015 às 14:03:36 Registro Passagem NF-e (Órgão Autor: CE) 123150022784367 04/05/2015 às 18:00:42-03:00 04/05/2015 às 19:11:06 se alguém puder postar um modelo (lembrando usei os do forum e nao consegui)
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.