Hetosoft Sistemas

Consultar pela Chave min retorna isto ate ai blz Identificador : 51131103953552000102650010000005011000005019 Ambiente : 2 Versão Aplicativo : 3.00 Status Código : 100 Status Descrição : Autorizado o uso da NF-e UF : MT Chave Acesso : 51131103953552000102650010000005011000005019 Recebimento : 21/11/2013 14:36:17 Protocolo : 151130000031303 Digest Value : 87w/44wWjure5InXMafTPHWpFVI= Mais como faço para ter so a data do protocolo , estou tentando com o codigo abaixo mais nao retorna nada procedure TForm_NFe.btnConsultarChaveClick(Sender: TObject); var vChave : String; begin if not(InputQuery('WebServices Consultar', 'Chave da NF-e:', vChave)) then exit; ACBrNFe1.WebServices.Consulta.NFeChave := vChave; MudarParaNFeOuNFCe(0); ACBrNFe1.WebServices.Consulta.Executar; MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); LoadConsulta201(ACBrNFe1.WebServices.Consulta.RetWS); ShowMessage(ACBrNFe1.WebServices.Retorno.Recibo);

Quando executa Result := WebServices.EnvEvento.Executar; Da este erro List index out of bounds(0) quando faço uma cc-e com este comando , sabendo que a 2 dias atrás tava tudo ok OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '*-cte.xml'; OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin chave:= Copy( ExtractFileName( OpenDialog1.FileName ) , 0 , 44); ACBrCTe1.EventoCTe.idLote := StrToInt( '1' ); ACBrCTe1.EventoCTe.Evento.Clear; With ACBrCTe1.EventoCTe.Evento.Add Do Begin InfEvento.chCTe := chave; infEvento.cOrgao := StrToInt( edtCodUF.Text ); infEvento.CNPJ := edtEmitCNPJ.Text; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := 1; infEvento.dhEvento := Now; //infEvento.detEvento.xCondUso := ''; //infEvento.detEvento.nProt :=''; numero:=0; infEvento.detEvento.infCorrecao.Clear; ClientDataSet1.First; while not ClientDataSet1.Eof do begin With infEvento.detEvento.infCorrecao.Add Do Begin numero:= numero + 1; //grupoAlterado := 'compl'; //campoAlterado := 'xObs'; //valorAlterado := 'TESTANDO OBS OK'; grupoAlterado := CCeCampos(1, ClientDataSet1Campo.Text ); campoAlterado := CCeCampos(2, ClientDataSet1Campo.Text ); valorAlterado := ClientDataSet1Valor.Text; nroItemAlterado := numero; End; ClientDataSet1.Next; end; End; memoLog.Text:=''; IF MessagemSimouNao(4,'Confirma ( '+chave+' ) ?')=True then ACBrCTe1.EnviarEventoCTe( 1 ); -------------------------------------------------------------------------------------------------- function TACBrCTe.EnviarEventoCTe(idLote: Integer): Boolean; var i: integer; begin if EventoCTe.Evento.Count <= 0 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Nenhum Evento adicionado ao Lote'); raise EACBrCTeException.Create('ERRO: Nenhum Evento adicionado ao Lote'); exit; end; if EventoCTe.Evento.Count > 1 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Conjunto de Eventos transmitidos (máximo de 1) excedido. Quantidade atual: '+IntToStr(EventoCTe.Evento.Count)); raise EACBrCTeException.Create('ERRO: Conjunto de Eventos transmitidos (máximo de 1) excedido. Quantidade atual: '+IntToStr(EventoCTe.Evento.Count)); exit; end; WebServices.EnvEvento.idLote := idLote; {Atribuir nSeqEvento, CNPJ, Chave e/ou Protocolo quando não especificar} for i:= 0 to EventoCTe.Evento.Count -1 do begin try if EventoCTe.Evento.Items.InfEvento.nSeqEvento = 0 then EventoCTe.Evento.Items.infEvento.nSeqEvento := 1; if trim(EventoCTe.Evento.Items.InfEvento.CNPJ) = '' then EventoCTe.Evento.Items.InfEvento.CNPJ := self.Conhecimentos.Items.CTe.Emit.CNPJ; if trim(EventoCTe.Evento.Items.InfEvento.chCTe) = '' then EventoCTe.Evento.Items.InfEvento.chCTe := copy(self.Conhecimentos.Items.CTe.infCTe.ID, (length(self.Conhecimentos.Items.CTe.infCTe.ID)-44)+1, 44); if trim(EventoCTe.Evento.Items.infEvento.detEvento.nProt) = '' then begin if EventoCTe.Evento.Items.infEvento.tpEvento = teCancelamento then EventoCTe.Evento.Items.infEvento.detEvento.nProt := self.Conhecimentos.Items.CTe.procCTe.nProt; end; except end; end; {**} Result := WebServices.EnvEvento.Executar; if not Result then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog(WebServices.EnvEvento.Msg); if WebServices.EnvEvento.Msg <> '' then raise EACBrCTeException.Create(WebServices.EnvEvento.Msg) else raise EACBrCTeException.Create('Erro Desconhecido ao Enviar Evento de CT-e!') end; end;

Fiquei sabendo que (Bahia) com a utilização da NFC-e em estado que tem o PAF não é obrigatório o PDV com PAF e sim só a emissão da NFC-e isto é verídico ? só duvida? a RIO DE JANEIRO já ta, vc achar que SAO PAULO vai demora, ou ainda ta resistindo.

brigadoooooooooooooooo

Onde consigo a lista de Estado com NFC-e e a lista de Estado que o ACBr ja ta incluido. brigadooooooooo.

O Arquivo de REMESSA COM A linha com Segmento R quem criou foi o sistema da caixa instalado meu meu pc o Arquivo de REMESSA SEM A linha com Segmento R foi criado pelo acbrboleto como fazer para acbrboleto criar A linha com Segmento R brigado pela atencao.

Fis o mesmo processo mais pelo proprio soft da caixa, e deu certo vi uma diferenca a linha 1040001300003R 01000000000000000000000000000000000000000000000000116052014000000000000010 REMESSA 10400000 2083981000001200000000000000000000002985834683300000000ANDRADE NERY E GONCALVES LTDA CAIXA ECONOMICA FEDERAL 11405201410005700000405000000 REMESSA-PRODUCAO V232 10400011R0100030 20083981000001203468330000000000000002985834683300000000ANDRADE NERY E GONCALVES LTDA 000000041405201414052014 1040001300001P 0102985834683300000000000149000000000000101122012349 1505201400000000000050000000004N1405201410000000000000000000000100000000000000000000000000000000000000000000000000000012349 1052000090000000000 1040001300002Q 011000001989794106DEODORO COUTO ANDRADE RUA MARISCO CENTRO 78060390VARZEA GRANDE MT0000000000000000 1040001300003R 01000000000000000000000000000000000000000000000000116052014000000000000010 10400015 000005000001000000000000005000000000000000000000000000000000000000000000000 10499999 000001000007 RETORNO DA REMESSA 10400000 2083981000001200000000000000000000002985834683300000000ANDRADE NERY E GONCALVES LTDA CAIXA ECONOMICA FEDERAL 31405201411051800000405000000REMESSA PROCESSADA RET PRE CRI-PRODUCAOV232 10499999 000000000002 REMESSA.txt RETORNO REMESSA.txt

Envio o arquivo de remessa pra banco caixa econômica mais o arquivo de retorno volta com esta massagem REMESSA REJEITADA RET PRE CRI-PRODUCAO 10400000 2083981000001200000000000000000000002985034683300000000HETOSOFT SISTEMAS 08.398.1CAIXA ECONOMICA FEDERAL 51205201419321200001105000000REMESSA REJEITADA RET PRE CRI-PRODUCAO 10400011T0100030 2008398100000120 029850346833 HETOSOFT SISTEMAS 08.398.1 00000011120520140000000000 00 1040001300001W 02000004 153Q47 10400015 00000300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 10499999 000001000005 ARQUIVO ENVIADO 10400000 2083981000001200000000000000000000002985034683300000000HETOSOFT SISTEMAS 08.398.1CAIXA ECONOMICA FEDERAL 11205201417552200001105000000 REMESSA-PRODUCAO 10400011R0100030 20083981000001203468330000000000000002985034683300000000HETOSOFT SISTEMAS 08.398.1 000000111205201400000000 1040001300001P 0102985034683300000000000140000000000062461122027573 0805201400000000006000000000004N1204201410905201400000000000007500000000000000000000000000000000000000000000000000000027573 1302000090000000000 1040001300002Q 012006329061000183ADRIANO MORATA CARNEIRO-ME AV 15 DE NOVEMBRO Nº10483 CENTRO SUL CENTRO SUL 78020300 0000000000000000 10400015 000004000001000000000000600000000000000000000000000000000000000000000000000 10499999 000001000006 --------------- REMESSA.TXT RETORNO REMESSA.txt

procedure TfrmDemo.Button8Click(Sender: TObject); Var i: integer; Titulo : TACBrTitulo; begin ACBrBoleto1.LerRetorno; try For I := 0 to ACBrBoleto1.ListadeBoletos.Count - 1 do begin Titulo := ACBrBoleto1.ListadeBoletos.Objects; Memo1.Lines.Add('Numero do Documento = ' + Titulo.NumeroDocumento); Memo1.Lines.Add('Valor Recebido = ' + FloatToStr(Titulo.ValorRecebido)); Memo1.Lines.Add('Nosso Numero = ' + Titulo.NossoNumero); Memo1.Lines.Add('Nome do Cliente = ' + Titulo.ACBrBoleto.Name); end; finally end; end;

Eu usando cobCaixaEconomica c240 ACBrBoleto1.LerRetorno; da erro neste lugar, erro de data falalndo que 00/00/00 nao data valida, significa que tem alguma configuracao que eu nao fis no ACBrBoleto1 ? procedure TACBrCaixaEconomica.LerRetorno240(ARetorno: TStringList); e como faço para colocar o que leu em um Memo1, obrigado pela atencao.

cara que explicação, muito grato.

Estou usando a funcao baixar nf-e ta tudo ok, mais o retorno tem 2 status , como façor para saber que a nota foi baixada corretamente, estou usando essa funcao TRY ACBrNFe1.DownloadNFe.Download.Chaves.Clear; ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe := Trim(chave); ACBrNFe1.DownloadNFe.Download.CNPJ := edtEmitCNPJ.Text; ACBrNFe1.Download; MemoResp.Lines.Add( ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.xMotivo); MemoResp.Lines.Add( IntToStr(ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat)); MemoResp.Lines.Add( DateTimeToStr(ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.dhResp)); //Status.Log := ' Status......: ' + FInfoStat + ' - ' + FInfoMotivo; //Status.Log := ' Chave Acesso: ' + ChaveAcesso + ' ' + FInfoDataHora; //if ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat=140 then // begin ACBrNFe1.Configuracoes.Geral.Save( RAIZ+'\Controles_SQL\NFe\EnvioDeResposta\Dwn'+Trim(chave)+'-nfe.xml' ,ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.XML); //end; showmess except on E: Exception do begin MessagemH(2,'Erro ao fazer download do XML da NF-e !'+#13+ E.Message); end; end; sabendo que ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat so mostra toda vez o pedito que o 139 Versão : Ambiente : 1 Versão Aplicativo : AN_2.1.0 Status Código : 139 Status Descrição : Pedido de Download processado Recebimento : 11/03/2014 10:17:28

Recebi um notificação sobre a versão 3.10 da nfc-e dizendo que vai funcionar so ate julho, o acbr já at atualizado ? atualizei agora o acbr e ainda ta 3.00 né? obrigado pela atencao. consultei no forum sobre NFC-e 3.10 e nao tem post. -------------- consultando no google vi este post no meu estado em producao fala indisponil, mais em homologacao da este aviso , ta ok é isso mesmo, e porque abaixo mostra 3.10 e veraplic 3.00

Tem como colocar no xml da NFC-e troco ? porque eu imprimir a NFC-e atraves do XML

eu faco nfc-e o xml depois uso o xml para imprimir em impressora usb pego os produtos assim for I := 0 to Det.Count-1 do //AZUL PRODUTOS begin with Det.Items do begin Client_XML.Insert; //Client_XMLNUMERO.Text:=IntToStr(Prod.nItem); Client_XMLCODIGO.Text:= Trim( Prod.cProd ); //Prod.cProd; Client_XMLNOME.Text:= UpperCase( Trim(Prod.xProd) ); //Client_XMLPRODUTO_ORIGINAL.Text:= UpperCase( Trim(Prod.xProd) ); //Client_XMLNCM.Text:=Prod.NCM; Client_XMLUND.Text:=Prod.uCom; Client_XMLQUANT.Text:=FloatToStr(Prod.qCom); Client_XMLVALOR.Text:=FloatToStr(Prod.vUnCom); //Client_XMLDESC.Text:=FloatToStr(Prod.vDesc); Client_XMLTOTAL.Text:=FloatToStr(Prod.vProd); end; end ; como façor para pega os pagamentos -<pag> <tPag>99</tPag> <vPag>6.01</vPag> </pag> brigadooooooooooooo

Esqueci de um detalhe ativa o codigo. unit ACBrBoletoFCQuickFr; uses SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto, QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode, QRWebFilt, QRPDFFilt; procedure TACBrBoletoFCQuick.Imprimir; var frACBrBoletoQuick : TACBRBoletoFCQuickFr; RLLayout: TQuickRep; MultiExport : TQRMultiExport ; FiltroExportacao: TQRPAbstractExportFilter; //HTMLFilter : TQRHTMLDocumentFilter ; begin inherited Imprimir; // Executa verificações padroes frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self); try with frACBrBoletoQuick do begin case LayOut of lCarne : RLLayout:= BoletoCarne; lPadraoEntrega : RLLayout:= LayoutPadraoEntrega; else RLLayout := LayoutBoleto; end; RLLayout.PrinterSettings.Copies := NumCopias ; case Filtro of fiPDF : begin FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); finally FiltroExportacao.Free; end; MultiExport := TQRMultiExport.Create(self); try MultiExport.Report := RLLayout ; MultiExport.ExportFormat := qrxPDF ; MultiExport.FileName := NomeArquivo ; MultiExport.ShowDialog := MostrarSetup ; MultiExport.DPI := 300 ; MultiExport.DoExport ; finally MultiExport.Free ; end ; end ; fiHTML : begin (* Codigo abaixo comentado pois não funciona... HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo ); try RLLayout.ExportToFilter( HTMLFilter ); finally HTMLFilter.Free ; end ; *) raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ; end ; else begin if MostrarPreview then RLLayout.PreviewModal else begin if MostrarSetup then RLLayout.PrinterSetup ; if (RLLayout.Tag = 0) then RLLayout.Print; end ; end end ; end ; finally frACBrBoletoQuick.Free ; end; end;

depois que atualizei o acbr nao ta mais gerando o pdf mais nao da erro , o que pode ser? instalaei o da pasta D:\All_Delphi\ACBr_7\Pacotes\Delphi\ACBrBoleto ACBr_Boleto ACBr_BoletoFC_Quick sabendo que meu qreport é 5.0 D7 e so atualizei o acbr por calsa do CT-e 2.0 // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ {$DEFINE QReport_PDF} // Definições para o compomente ACBrCTe // Define o Pacote de Liberação / Descomente o pacote a ser utilizado // Atenção: descomente apenas uma das definições //------------------------------------------------------------------------------ //{$DEFINE PL_103} //{$DEFINE PL_104} {$DEFINE PL_200}

Estou usando a funcao baixar nf-e ta tudo ok, mais o retorno tem 2 status , como façor para saber que a nota foi baixada corretamente, estou usando essa funcao TRY ACBrNFe1.DownloadNFe.Download.Chaves.Clear; ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe := Trim(chave); ACBrNFe1.DownloadNFe.Download.CNPJ := edtEmitCNPJ.Text; ACBrNFe1.Download; MemoResp.Lines.Add( ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.xMotivo); MemoResp.Lines.Add( IntToStr(ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat)); MemoResp.Lines.Add( DateTimeToStr(ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.dhResp)); //Status.Log := ' Status......: ' + FInfoStat + ' - ' + FInfoMotivo; //Status.Log := ' Chave Acesso: ' + ChaveAcesso + ' ' + FInfoDataHora; //if ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat=140 then // begin ACBrNFe1.Configuracoes.Geral.Save( RAIZ+'\Controles_SQL\NFe\EnvioDeResposta\Dwn'+Trim(chave)+'-nfe.xml' ,ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.XML); //end; showmess except on E: Exception do begin MessagemH(2,'Erro ao fazer download do XML da NF-e !'+#13+ E.Message); end; end; sabendo que ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat so mostra toda vez o pedito que o 139 Versão : Ambiente : 1 Versão Aplicativo : AN_2.1.0 Status Código : 139 Status Descrição : Pedido de Download processado Recebimento : 11/03/2014 10:17:28

Depois de 20 dias Conseguir resolver Pesquisei no google e achei esse tópico. que o Liandrocs resolveu o problema ----------------------- Estao meu codigo ficou assim.... function TForm_Manifesto.Manifestar(tipo: Integer): Boolean; var Chave, idLote, CNPJ, vXMotivo: string; lMsg: string; begin try Chave:=DM11.Client_ManifestoCHAVE_NFE.Text; CNPJ:=Form_NFe.edtEmitCNPJ.Text; Chave := Trim(OnlyNumber(Chave)); idLote := '1'; Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear; with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; if tipo=1 then infEvento.tpEvento := teManifDestConfirmacao else if tipo=2 then infEvento.tpEvento := teManifDestDesconhecimento else if tipo=3 then infEvento.tpEvento := teManifDestOperNaoRealizada else if tipo=4 then infEvento.tpEvento := teManifDestCiencia; //novo 2014 //infEvento.cOrgao:= StrToInt( Form_NFe.edtCodUF.Text ); //infEvento.nSeqEvento:=1; //infEvento.versaoEvento:='1.00'; //infEvento.DescEvento:='Confirmacao da Operacao'; //infEvento.xJust:='';//Operacao nao Realizada end; //Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); try Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); if Form_NFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 657 then begin Form_NFe.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.cOrgao := Form_NFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.cOrgao; if not Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)) then begin with Form_NFe.ACBrNFe1.WebServices.EnvEvento do begin raise Exception.Create('Ocorreram erros ao tentar efetuar a manifestação:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; end; except //SE ERRO DE DATA MUDA O cOrgao Form_NFe.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.cOrgao := 91; Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); if Form_NFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 657 then begin Form_NFe.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.cOrgao := Form_NFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.cOrgao; if not Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)) then begin with Form_NFe.ACBrNFe1.WebServices.EnvEvento do begin raise Exception.Create('Ocorreram erros ao tentar efetuar a manifestação:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; end; end; with Form_NFe.AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin vXMotivo:=xMotivo; lMsg:= 'Id: '+Id+#13+ 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ 'verAplic: '+verAplic+#13+ 'cOrgao: '+IntToStr(cOrgao)+#13+ 'cStat: '+IntToStr(cStat)+#13+ 'xMotivo: '+xMotivo+#13+ 'chNFe: '+chNFe+#13+ 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ 'xEvento: '+xEvento+#13+ 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ 'CNPJDest: '+CNPJDest+#13+ 'emailDest: '+emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: '+nProt; end; if Pos('registrado e vinculado', vXMotivo )>0 then begin { DM11.Client_Manifesto.Edit; DM11.Client_ManifestoSEL.Text:='False'; DM11.Client_ManifestoDATAMANIFESTO.AsDateTime:=Now; DM11.Client_ManifestoTIPOMANIFESTO.Text:=IntToStr(tipo); DM11.Client_Manifesto.ApplyUpdates(-1); } try DM.SQL_PRATUDO.Close; DM.SQL_PRATUDO.CommandText:= 'UPDATE N_MANIFESTO SET DATAMANIFESTO=:A, TIPOMANIFESTO='+IntToStr(tipo)+' '+ 'WHERE ID='+DM11.Client_ManifestoID.Text+' '; DM.SQL_PRATUDO.ParamByName('A').AsDate:= StrToDate( FormatDateTime('dd/mm/yyyy',Now) ); DM.SQL_PRATUDO.ExecSQL; DM.SQL_PRATUDO.Close; DM.SQL_PRATUDO.CommandText:= 'commit'; DM.SQL_PRATUDO.ExecSQL; except MessagemH(1,'Erro ao salvar o evento do manifesto !'); end; end else begin if tipo=1 then NFEM_CancelarProcesso:=1; ShowMessage(lMsg); end; Form_NFe.MemoResp.Lines.Text := UTF8Encode(Form_NFe.ACBrNFe1.WebServices.EnvEvento.RetWS); Form_NFe.memoRespWS.Lines.Text := UTF8Encode(Form_NFe.ACBrNFe1.WebServices.EnvEvento.RetornoWS); // ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX Form_NFe.LoadXML(Form_NFe.MemoResp, Form_NFe.WBResposta); except on E: Exception do begin if tipo=1 then NFEM_CancelarProcesso:=1; MessagemH(2,'Erro ao enviar evento de manifesto !'+#13+ E.Message); end; end; end;

O problema é que nao criar nem uma xml, Descobrir outra coisa, se a nota for de MT da erro de data se a nota for de outro estado da este erro (IMAGEM orgao diverge do orgao autorizado ), os xml deste erro ta anexado. sabendo que to em MT. COMANDO USADO var Chave, idLote, CNPJ, vXMotivo: string; lMsg: string; begin try Chave:=DM11.Client_ManifestoCHAVE_NFE.Text; CNPJ:=Form_NFe.edtEmitCNPJ.Text; Chave := Trim(OnlyNumber(Chave)); idLote := '1'; Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear; with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; if tipo=1 then infEvento.tpEvento := teManifDestConfirmacao else if tipo=2 then infEvento.tpEvento := teManifDestDesconhecimento else if tipo=3 then infEvento.tpEvento := teManifDestOperNaoRealizada else if tipo=4 then infEvento.tpEvento := teManifDestCiencia; end; Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); EnvioDeResposta.rar

tem como vc min passar suas unit do acbr que se refere a este comando. function TForm_Manifesto.Manifestar(tipo: Integer): Boolean; var Chave, idLote, CNPJ, vXMotivo: string; lMsg: string; begin try Chave:=DM11.Client_ManifestoCHAVE_NFE.Text; CNPJ:=Form_NFe.edtEmitCNPJ.Text; Chave := Trim(OnlyNumber(Chave)); idLote := '1'; Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear; with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; if tipo=1 then infEvento.tpEvento := teManifDestConfirmacao else if tipo=2 then infEvento.tpEvento := teManifDestDesconhecimento else if tipo=3 then infEvento.tpEvento := teManifDestOperNaoRealizada else if tipo=4 then infEvento.tpEvento := teManifDestCiencia; //novo 2014 //infEvento.cOrgao:= StrToInt( Form_NFe.edtCodUF.Text ); //infEvento.nSeqEvento:=1; //infEvento.versaoEvento:='1.00'; //infEvento.DescEvento:='Confirmacao da Operacao'; //infEvento.xJust:='';//Operacao nao Realizada end; Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); DESCULPA DUPLICOU AS MENSAGENS

tem como vc min passar suas unit que refere a este comando function TForm_Manifesto.Manifestar(tipo: Integer): Boolean; var Chave, idLote, CNPJ, vXMotivo: string; lMsg: string; begin try Chave:=DM11.Client_ManifestoCHAVE_NFE.Text; CNPJ:=Form_NFe.edtEmitCNPJ.Text; Chave := Trim(OnlyNumber(Chave)); idLote := '1'; Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear; with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; if tipo=1 then infEvento.tpEvento := teManifDestConfirmacao else if tipo=2 then infEvento.tpEvento := teManifDestDesconhecimento else if tipo=3 then infEvento.tpEvento := teManifDestOperNaoRealizada else if tipo=4 then infEvento.tpEvento := teManifDestCiencia; //novo 2014 //infEvento.cOrgao:= StrToInt( Form_NFe.edtCodUF.Text ); //infEvento.nSeqEvento:=1; //infEvento.versaoEvento:='1.00'; //infEvento.DescEvento:='Confirmacao da Operacao'; //infEvento.xJust:='';//Operacao nao Realizada end; Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));

Tem como min passar as suas unit que compoem esse comando Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear; with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; if tipo=1 then infEvento.tpEvento := teManifDestConfirmacao else if tipo=2 then infEvento.tpEvento := teManifDestDesconhecimento else if tipo=3 then infEvento.tpEvento := teManifDestOperNaoRealizada else if tipo=4 then infEvento.tpEvento := teManifDestCiencia; //novo 2014 //infEvento.cOrgao:= StrToInt( Form_NFe.edtCodUF.Text ); //infEvento.nSeqEvento:=1; //infEvento.versaoEvento:='1.00'; //infEvento.DescEvento:='Confirmacao da Operacao'; //infEvento.xJust:='';//Operacao nao Realizada end; Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));

blz, mais o que devo fazer, pós ja fis em outra maquina com o demo do acbrnfe2 e da o mesmo erro, ? italojjr tem como vc manda O SEU ACBRNFE2 demo para eu testa aqui com seu schermas e tudo? porfavor tem como min manda seu codigo para o envio do evento para confirma a nf-e.

<retConsStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"> <tpAmb>1</tpAmb> <verAplic>2.00</verAplic> <cStat>107</cStat> <xMotivo>Servico em Operacao</xMotivo> <cUF>51</cUF> <dhRecbto>2014-03-10T10:27:01</dhRecbto> <tMed>1</tMed> </retConsStatServ> Certinho 10:27 e as pastas D:\All_Delphi\ACBr_7\Fontes\ACBrNFe2 D:\All_Delphi\ACBr_7\Fontes\PCN2 tudo verdinho (atualizados) acbr fórum tem serviço a parte de consultoria remota, para acessar meu pc, seria otimo ,meu cliente ta min deixando loco. ha, o cliente precisa fazer alguma coisa da sefaz para confirma a nota ?