[IMPORTAR XML DO CF-E]

ok

 

[IMPORTAR XML DO CF-E]

amigos o xml é modelo 59,

 

e não sei como importar os dados

 

 

[IMPORTAR XML DO CF-E]

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

[IMPORTAR XML DO CF-E]

     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

 

 

[IMPORTAR XML DO CF-E]

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;

 

[IMPORTAR XML DO CF-E]

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??

 

 

[IMPORTAR XML DO CF-E]

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

[AOpcoes.QuebraLinha]

Obrigado, problema resolvido.

 

[AOpcoes.QuebraLinha]

1 hora atrás, Antonio Sombra disse:

apaguei todos os arquivos acbr da minha máquina

instalei novamente e persiste o problema.

 

só tem arquivos na pasta acbr conforme o arquivo 

sdir acbr.txt, 

[AOpcoes.QuebraLinha]

55 minutos atrás, Juliomar Marchetti disse:

Não foi você foi as implementações que foram feitas nos componentes.

então a sugestão novamente, procure todos os locais no seu micro que possam ter fontes do ACBr e remova

e certifique-se que só tem em um local.

apaguei todos os arquivos acbr da minha máquina

instalei novamente e persiste o problema.

 

[AOpcoes.QuebraLinha]

1 hora atrás, Juliomar Marchetti disse:

Então tu tem os fontes somente em um lugar de micro?

pois ele instalou tudo mas o erro está mostrando uma unit com uma propriedade que foi removida.

Não removi nada de nenhuma Unit, estou achando estranho

[AOpcoes.QuebraLinha]

sim, mas não acho essa unit

 

você poderia me ajudar?

 

como faço pra corrigir?

[AOpcoes.QuebraLinha]

log_Delphi_7.txtsim, marquei.a opção pra remover tudo antes de instalar!

[AOpcoes.QuebraLinha]

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

 

 

 

[RetEventoNFe]

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)