reij

gente ninguem sabe me dizer nada a respeito???

Bom dia a todos esou com um pequeno problema desenvolvi um sistema que importa/manifesta as nfe's usando o acbrnfe porem tenho notado algo não importa notas de devolução/brindes/bonificação alguem pode me dar uma dica do porque de não acontecer isso elas nunca aparecem quando faço a pesquisa desde ja grato pela atenção

Boa tarde alguém sabe me dizer como fazer pra resolver um problema que estou tendo ao pesquisar nfe's usando o acbrnfe que é o de na pesquisa não aparecer nenhuma nota fiscal de simples remessa, ou de bonificação ou de remessa/retorno pra conserto Alguém poderia me ajudar desde ja agradeço

Bom dia a todos tenho um aplicativo que faz manifestação, download, impressão de nfe....... que funciona muito bem com certificados da própria empresa agora chegou pra mim o pedido para fazer o sistema funcionar com um certificado do contador da empresa que trabalha com mais 7 certificados digitais tudo via procuração usando o certificado dela porem não funcionou, queria saber se é existe uma forma de fazer o sistema funcionar, usando acbrnfe, fazer a pesquisa e manifestação das notas usando um certificado destes que usa procuração

obrigado ítalo pela ajuda farei conforme vc orientou de mandar codigos em anexo quanto ao nseqevento realmente esqueci e quanto a a questão da justificativa quando o manifestação for de operação não realizada.acho que não a esqueci não veja if cbxtipoop.ItemIndex = 3 then begin infEvento.tpEvento := teManifDestOperNaoRealizada; end; adicionar a clausula que esqueci e verificar se resolve o problema e deu um retorno desde ja grato pela ajuda

Bom dia a todos postei esta mesma mensagem no forum acbrndfe porem como la é dedicada a este componente e não o uso então resolvi postar aqui tambem que é onde sempre posto, os moderadorespodem remove-lo caso assim decidam. Estou tendo alguns problemas em um programinha que faz a manifestação das nfe's que são disparadas contra o cnpj da empresa que é o seguinte procedure TF_Importador.SpeedButton1Click(Sender: TObject); var Chave, idLote, CNPJ: string; lMsg: string; i, codregional : integer; begin//1 if Application.MessageBox('Voçê realmente deseja manifestar esta(s)nfe(s)','Aviso',1 + 0) = 1 then begin// 2 inicio do messagebox try configuracoes; Dm.XmlNfe.DisableControls; idLote := InttoStr(Dm.inc_gen('GEN_LOTE_MANIF_ID')); Chave:=''; CNPJ := ''; CNPJ := trim(DM.empresa2CNPJ.AsString); dm.XmlNfe.First; //=========inicio do laço while not dm.XmlNfe.Eof do begin //3 if dm.XmlNfeFLAG.AsString = 'M' then begin //idLote := InttoStr(Dm.inc_gen('GEN_LOTE_MANIF_ID')); Chave := trim(DM.XmlNfeCHAVE.AsString); with dm.ACBrNFe1.EventoNFe.Evento.Add do begin //inicio do evento adionar // InfEvento.cOrgao := 0; if CkAmbNac.Checked = true then //inicio da condição de busca por orgão autorizador begin InfEvento.cOrgao := 91; end else begin codregional := null; codregional:= StrtoInt(copy(dm.XmlNfeCHAVE.AsString, 0, 2)); if codregional in [12, 27, 13, 16, 29, 23, 53, 32, 52, 21, 31, 50, 51, 15, 25, 26, 22, 41, 33, 24, 11, 14, 43, 42, 28, 35, 17 ] then begin // showmessage('1'+IntToStr(codregional)); InfEvento.cOrgao := codregional; // showmessage(IntToStr(InfEvento.cOrgao)); end; end; //fim da condição de busca por orgão autorizador { infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now;} if cbxtipoop.ItemIndex = 0 then begin infEvento.tpEvento := teManifDestConfirmacao; end; if cbxtipoop.ItemIndex = 1 then begin infEvento.tpEvento := teManifDestCiencia; end; if cbxtipoop.ItemIndex = 2 then begin infEvento.tpEvento := teManifDestDesconhecimento; end; if cbxtipoop.ItemIndex = 3 then begin infEvento.tpEvento := teManifDestOperNaoRealizada; end; infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; end; //tiro aqui #fim dcde dm.ACBrNFe1.EventoNFe.Evento.Add // end; dm.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); with dm.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin dm.XmlNfe.Edit; dm.XmlNfePROTOC_XML.AsString := nProt; dm.XmlNfeDT_MANIF.AsDateTime := dhRegEvento; dm.XmlNfeXMOTIVO.AsString := xMotivo; dm.XmlNfeMANIFESTADA.AsString := 'S'; dm.XmlNfeFLAG.AsString := 'S'; dm.xmlnfeREG_EVENTO.AsString := xEvento; dm.XmlNfeDES_SIT_MANIF.AsString := 'Ciência da Operação'; dm.XmlNfe.post; // dm.XmlNfe.ApplyUpdates(0); lMsg:= 'Id: '+Id+#13+ //id de retorno 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ //(taProducao, taHomologacao); 'verAplic: '+verAplic+#13+//versão do aplicativo 'cOrgao: '+IntToStr(cOrgao)+#13+ //valor inteiro 'cStat: '+IntToStr(cStat)+#13+ //valor do tipo inteiro 'xMotivo: '+xMotivo+#13+ //string 'chNFe: '+chNFe+#13+ //chave nfe 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ // teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada); 'xEvento: '+xEvento+#13+ //string 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ //valor inteiro 'CNPJDest: '+CNPJDest+#13+ //cnpj do emitente// 'emailDest: '+emailDest+#13+//email destinatario 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+//data e hora da manifestação 'nProt: '+nProt; //numero de protocolo// end; //fim do laço wilhe end;//coloc aqui dm.XmlNfe.Next; end; dm.XmlNfe.ApplyUpdates(0); ShowMessage(lMsg); dm.ACBrNFe1.EventoNFe.Evento.Clear; // end; //=========fim do laço Except on e: exception do begin //3 showmessage('Erro ao Manifestar nfe' + e.message); dm.XmlNfe.CancelUpdates; end; //3fim do messagebox end; //2 Dm.XmlNfe.EnableControls; dm.XmlNfe.First; end; //1 end; problema 1 - sempre que tento manifestar mais de uma nota fiscal de uma unica vez da a seguinte mensagem "rejeição - duplicidade de evento" porem manifesta todas as notas ficais sem problemas porem o retorno que tenho em xmotivo é sempre este problema 2 - quando tento manifestar usando o código do próprio estado autorizador da a seguinte mensagem "código do órgão diverge do órgão autorizador" alguém poderia me dar uma força com isso porque é somente isto que esta dando erro dcesde ja grato pela ajuda

Bom dia a todos estou tendo alguns problemas em um programinha que faz a manifestação das nfe's que são disparadas contra o cnpj da empresa que é o seguinte procedure TF_Importador.SpeedButton1Click(Sender: TObject); var Chave, idLote, CNPJ: string; lMsg: string; i, codregional : integer; begin//1 if Application.MessageBox('Voçê realmente deseja manifestar esta(s)nfe(s)','Aviso',1 + 0) = 1 then begin// 2 inicio do messagebox try configuracoes; Dm.XmlNfe.DisableControls; idLote := InttoStr(Dm.inc_gen('GEN_LOTE_MANIF_ID')); Chave:=''; CNPJ := ''; CNPJ := trim(DM.empresa2CNPJ.AsString); dm.XmlNfe.First; //=========inicio do laço while not dm.XmlNfe.Eof do begin //3 if dm.XmlNfeFLAG.AsString = 'M' then begin //idLote := InttoStr(Dm.inc_gen('GEN_LOTE_MANIF_ID')); Chave := trim(DM.XmlNfeCHAVE.AsString); with dm.ACBrNFe1.EventoNFe.Evento.Add do begin //inicio do evento adionar // InfEvento.cOrgao := 0; if CkAmbNac.Checked = true then //inicio da condição de busca por orgão autorizador begin InfEvento.cOrgao := 91; end else begin codregional := null; codregional:= StrtoInt(copy(dm.XmlNfeCHAVE.AsString, 0, 2)); if codregional in [12, 27, 13, 16, 29, 23, 53, 32, 52, 21, 31, 50, 51, 15, 25, 26, 22, 41, 33, 24, 11, 14, 43, 42, 28, 35, 17 ] then begin // showmessage('1'+IntToStr(codregional)); InfEvento.cOrgao := codregional; // showmessage(IntToStr(InfEvento.cOrgao)); end; end; //fim da condição de busca por orgão autorizador { infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now;} if cbxtipoop.ItemIndex = 0 then begin infEvento.tpEvento := teManifDestConfirmacao; end; if cbxtipoop.ItemIndex = 1 then begin infEvento.tpEvento := teManifDestCiencia; end; if cbxtipoop.ItemIndex = 2 then begin infEvento.tpEvento := teManifDestDesconhecimento; end; if cbxtipoop.ItemIndex = 3 then begin infEvento.tpEvento := teManifDestOperNaoRealizada; end; infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; end; //tiro aqui #fim dcde dm.ACBrNFe1.EventoNFe.Evento.Add // end; dm.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); with dm.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin dm.XmlNfe.Edit; dm.XmlNfePROTOC_XML.AsString := nProt; dm.XmlNfeDT_MANIF.AsDateTime := dhRegEvento; dm.XmlNfeXMOTIVO.AsString := xMotivo; dm.XmlNfeMANIFESTADA.AsString := 'S'; dm.XmlNfeFLAG.AsString := 'S'; dm.xmlnfeREG_EVENTO.AsString := xEvento; dm.XmlNfeDES_SIT_MANIF.AsString := 'Ciência da Operação'; dm.XmlNfe.post; // dm.XmlNfe.ApplyUpdates(0); lMsg:= 'Id: '+Id+#13+ //id de retorno 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ //(taProducao, taHomologacao); 'verAplic: '+verAplic+#13+//versão do aplicativo 'cOrgao: '+IntToStr(cOrgao)+#13+ //valor inteiro 'cStat: '+IntToStr(cStat)+#13+ //valor do tipo inteiro 'xMotivo: '+xMotivo+#13+ //string 'chNFe: '+chNFe+#13+ //chave nfe 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ // teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada); 'xEvento: '+xEvento+#13+ //string 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ //valor inteiro 'CNPJDest: '+CNPJDest+#13+ //cnpj do emitente// 'emailDest: '+emailDest+#13+//email destinatario 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+//data e hora da manifestação 'nProt: '+nProt; //numero de protocolo// end; //fim do laço wilhe end;//coloc aqui dm.XmlNfe.Next; end; dm.XmlNfe.ApplyUpdates(0); ShowMessage(lMsg); dm.ACBrNFe1.EventoNFe.Evento.Clear; // end; //=========fim do laço Except on e: exception do begin //3 showmessage('Erro ao Manifestar nfe' + e.message); dm.XmlNfe.CancelUpdates; end; //3fim do messagebox end; //2 Dm.XmlNfe.EnableControls; dm.XmlNfe.First; end; //1 end; problema 1 ===> sempre que manifesto mais de uma nfe de uma só vez ele sempre retorna mensagens de erro tipo duplicidade de eventos na tag xmotivo porem manifesta sem nenhum problema esse erro somente acontece quando tento manifestar mais de uma nfe de uma unica vez problema 2====> quando tento usar em o código do estado para fazer a manifestação da a mensagem de erro que o código do Orgão difere do Orgão autorizador alguém pode me dar uma ajuda

verdadde ítalo so depois quando comparei os dois cnpj's é que me toquei pra isso realmente era esse o erro e resolvi o problema, so que estou com outra duvida como faço para listar o numero da nota fiscal nesse negocio porque ele não aparece e ja procurei nos layouts e nada vc pode me dizer se na consulta é possivel ´puxar o numero da nota fiscal tambem

so uma correção esse clear ai da procedure que manifesta ja foi retirado e mesmo assim continua dando erro. nesse momento estou tentando manifestar uma nota da empresa 2 creio que o sistema esteja visualizando ocnpj do certificado da empresa1 porem é só um chute porem deve ser isso que esta dando divergencia entre os cnpj do emitente e do certificad

boa tarde a todos estou comum pequeno problema que é o seguinte ao tentar manifestar uma nota fiscal ta dando o seguinte erro Cnpj base docertificado difere do certificado do emitente uso as seguintes rotinas 4 empresas cadastradas o banco de dados para selecionar o certificado certo uso a seguinte rotina procedure TF_Importador.configuracoes; begin dm.empresa2.Locate('CODEMP', lblcod.Caption,[]); Dm.Acbrnfe1.NotasFiscais.Clear;//tentaiva de resolver o problema if dm.empresa2TP_AMB_NFE.AsString = '1' then begin dm.ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao; end else if dm.empresa2TP_AMB_NFE.AsString = '2' then begin dm.ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao; end; //=======salva ou não salva if dm.empresa2SALVA_XML.AsString = 'S' then begin dm.ACBrNFe1.Configuracoes.Geral.Salvar := True; end else if dm.empresa2SALVA_XML.AsString = 'N' then begin dm.ACBrNFe1.Configuracoes.Geral.Salvar := False; end; //=======fimde salva ou não salva dm.ACBrNFe1.Configuracoes.Certificados.Senha := trim(dm.Empresa2SENHA_CERT.AsString); dm.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := trim(dm.Empresa2NUMSERIE_CERT.AsString); // dm.ACBrNFe1.Configuracoes.Geral.Salvar := False; dm.ACBrNFe1.Configuracoes.Geral.PathSalvar := dm.Empresa2CAMINHOXML.AsString; dm.ACBrNFe1.Configuracoes.WebServices.UF := dm.Empresa2UF_WEBSERVER.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyHost := dm.Empresa2HOST_PROXY.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyPort := dm.Empresa2PORTA_PROXY.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyUser := dm.Empresa2USER_PROXY.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyPass := dm.Empresa2SENHA_PROXY.AsString; end; //para outras rotinas como consulta funciona muito bem as configurações porem para manifestar ta dando erro. procedure que manifesta a nfe procedure TF_Importador.SpeedButton1Click(Sender: TObject); var Chave, idLote, CNPJ: string; lMsg: string; begin configuracoes; idLote := InttoStr(Dm.inc_gen('GEN_LOTE_MANIF_ID')); Chave:=''; CNPJ := ''; Chave := trim(DM.XmlNfeCHAVE.AsString); showmessage(chave); CNPJ := trim(DM.XmlNfeCNPJ_CPF.AsString); showmessage(CNPJ); dm.ACBrNFe1.EventoNFe.Evento.Clear; with dm.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; dm.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); with dm.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin dm.XmlNfe.Edit; dm.XmlNfePROTOC_XML.AsString := nProt; dm.XmlNfeDT_MANIF.AsDateTime := dhRegEvento; dm.XmlNfeXMOTIVO.AsString := xMotivo; dm.XmlNfeMANIFESTADA.AsString := 'S'; dm.XmlNfe.ApplyUpdates(0); lMsg:= 'Id: '+Id+#13+ //id de retorno 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ //(taProducao, taHomologacao); 'verAplic: '+verAplic+#13+//versão do aplicativo 'cOrgao: '+IntToStr(cOrgao)+#13+ //valor inteiro 'cStat: '+IntToStr(cStat)+#13+ //valor do tipo inteiro 'xMotivo: '+xMotivo+#13+ //string 'chNFe: '+chNFe+#13+ //chave nfe 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ // teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada); 'xEvento: '+xEvento+#13+ //string 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ //valor inteiro 'CNPJDest: '+CNPJDest+#13+ //cnpj do emitente// 'emailDest: '+emailDest+#13+//email destinatario 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+//data e hora da manifestação 'nProt: '+nProt; //numero de protocolo// end; ShowMessage(lMsg); end; alguem pode me ajudar

Boa noite a todos estou comeste problema atualizei o acbrnfe e agora da o seguinte problema dando o seguinte erro "o aplicativo não pode ser iniciado porque esta faltando acbrcomum.bpl" e quando tento instalar usando os pacotes quando tento compilar pcn2 da erro dizendo que esta faltando pcncademidfe.pas ou seja estou sem opções do que fazer alguem pode me dizer oque fazer tenho dois delphis instalados na máquina so que não tenho mais nenhuma referencia ao acbrnfe no outro delphi e sempre da esseerro alguem pode me dar uma dica

atualizei o pacote acbr no mes passado não me lembro se apos o dia 12 porem continua dando o mesmo erro

pode ser tambem que seja este problema como uso delphi 2006 toda vez que sempre que tento instalar o acbrboleto na unit acbrboletoFCfortes da erro nesta linha $IFDEF FPC} RLFiltro.Pages := RLLayout.Pages ; RLFiltro.Run; {$ELSE} // RLFiltro.FilterPages( RLLayout.Pages );//tenho sempre que comentar esta linha {$ENDIF}

os fontes do acbr estão atualizados, e continua dando o mesmo erro estou pra tentar fazer isso manualmente, pois sempre sai cortado, será que é por que uso uma versão do fortes report que ja tem algum tempo e nunca foi atualizada(para delphi 2006)

boa tarde a todos estou com um pequeno problema, que é o seguinte estou usando o demo do acbrboleto com fortes report ele gera até que bem os boletos a visualização é muito boa porem na hora de imprimir sai tudo cortado do lado direito do boleto é alguns campos saen completamente distorcidos como o campo com o numero do banco que sae entrando no proximo campo, o codigo de baras tambem cortado a data o valor tudo que estiver a direita aparentemente vai mais pra direita ainda se alguem puder me ajudar ficarei grato

pensei que este forum fosse um lugar para receber ajuda porem não recebi nenhuma muito obrigado por nada

o que vc acha que pode ser, pode me ajudar, veio não da erro mais não é normal vc pra poder imprimir duas notas ter que sair do sistema e entrar de novo pra poder imprimir a sesguinte vc não acha poderia me dar uma força com relação a isto

é exatamente isso o que acontece 1-Clico no botão Criar Enviar e digito a nota 10(a nota é impressa corretamente) 2-Clico no botão Criar Enviar e digito a nota 11(a nota 10 é impressa ao invés da 11)

usando o demo vc digita o numero do lote e da nota fiscal

clico no botão criar e enviar ele pega o numero da nota fiscal que é exibido na grade atraves de um clientdataset ouse ja vaux := IntToStr(VnfeNumero.asInteger) esse é o numero da nota do mesmo jeito faço como o numero do lote que pego de umgenerator do firebird

procedure TForm1.btnCriarEnviarClick(Sender: TObject); var vAux, vNumLote : String; begin if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then exit; if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then exit; vNumLote := OnlyNumber(vNumLote); if Trim(vNumLote) = '' then begin MessageDlg('Número do Lote inválido.',mtError,[mbok],0); exit; end; ACBrNFe1.NotasFiscais.Clear; GerarNFe(vAux); ACBrNFe1.Enviar(vNumLote); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoResp, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); // MemoDados.Lines.Add('cStat: '+ ACBrNFe1.WebServices.Retorno.NFeRetorno; ACBrNFe1.NotasFiscais.Clear; end;

não testei com o demo mais essa função foi copiada de la, por isso deve estar ocorrendo o mesmo tambem tem a questão separei cada evento geração e assinatura; validação e envio e da a mesma coisa, será que o problema é no meu componente, pois não da mensagem de erro consulto sem problemas as nfe geradas mais so imprimo todas se sair do sistema e voltar

bom dia a todos estou com um problema de dificil solução para mim pois estou gerando as nfes muito bem porem para imprimir todas preciso sair do sistema e entrar de novo e usar a opção imprimir danfe pois tanto usando o metodo criar e enviar como separando todos os métodos, sempre imprime a primeira danfe poderiam me ajudar o codigo pra emissão da nfe é o seguinte var vAux, vNumLote, lote : String; ini : Tinifile; begin Vaux := IntToStr(CnfeNUMNOTA.AsInteger); F_dmm.LoteNfe.Insert; f_dmm.LoteNfeNUMLOTE.AsInteger := F_dmm.inc_gen('GEN_LOTENFE_ID'); vNumLote := IntToStr(F_dmm.inc_gen('GEN_LOTENFE_ID')); // vNumLote := IntToStr(f_dmm.LoteNfeNUMLOTE.AsInteger); f_dmm.LoteNfeDATAENVIO.AsDateTime := now; //Lote := OnlyNumber(Vnumlote); VnumLote := OnlyNumber(Vnumlote); if Trim(vNumLote) = '' then begin MessageDlg('Número do Lote inválido.',mtError,[mbok],0); abort; end; ACBrNFe1.NotasFiscais.Clear; GerarNFe(vAux); INI:=TIniFile.Create('C:\Admin\Projeto\NFE.ini'); ACBrNFeDANFERave1.RavFile := Ini.ReadString( 'Geral','caminhodanfe' ,'') ; ACBrNFe1.Enviar(StrToInt(VnumLote)); // ACBrNFe1.Enviar(vNumLote); MemoDados.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoDados, WBResposta); PnWs.Visible := true; MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); cnfe.Edit; cnfeCHAVE.AsString := AcbrNfe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; cnfeRECIBO.AsString := AcbrNfe1.WebServices.Retorno.NFeRetorno.nRec; // F_dmm.NotaSaidaDATA_AUTORIZACAO.AsDateTime := AcbrNfe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0]. cnfeProtocolo.AsString := AcbrNfe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; cnfeMOTIVO.AsString := ACBrNFe1.WebServices.Retorno.xMotivo; cnfeIMPRIMIU.AsString := 'S'; cnfe.ApplyUpdates(0); F_dmm.LoteNfe.ApplyUpdates(0); F_dmm.NotaSaida.Close; F_dmm.NotaSaida.Open; ACBrNFe1.NotasFiscais.Clear; INI.Free; end; as danfes são geradas sem problemas porem so imprime a primeira e não estou enviando ou imprimindo tudode uma vez não cada nota tem um lote, ja não sei mais o que fazer poderiam me ajudar desde ja grato pela ajuda