Hetosoft Sistemas

quando Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); e recebo a massagem erro: 539 (imagem) duplicamento preciso saber que a nfc-e que ta na sefaz é o mesmo, cupom que to tentando enivar entao , pego a chavedeacesso da messagem (imagem) eu tive que pega a string da massagem e copiar chave e o protocolo com msmChaveAcesso:=''; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=204 then begin msmChaveAcesso:= copy( Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4,44 ); end; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=539 then begin msmChaveAcesso:= SoNumeros( copy(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo, 55, 45 )); msmProtocolo:= SoNumeros( copy(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo, 104, 16 )); if Length(msmChaveAcesso)<>44 then begin msmChaveAcesso:=''; end; end; ai faço a consulta , pra saber a data da nfc-e para verifica se e a mesma data da nfc-e que to tentando enviar pego assim se for a mesma data, pego a chavedeacesso e protocoque da messagem, e colo no bando de dados, as vezes envio a sefaz nao retorna nada, quando tento enviar de novo da duplicamento. duplicar:=2; Form_NFe.memoLog.Clear; //Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe; if msmChaveAcesso<>'' then Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave := msmChaveAcesso else Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave := ChaveOriginal; Form_NFe.MudarParaNFeOuNFCe(0); Form_NFe.ACBrNFe1.WebServices.Consulta.Executar; Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat:=0; function PegaLinhaDeUmMumu:string; var i : integer; Linha: string; begin Result:=''; for i := 0 to Form_NFe.memoLog.Lines.Count - 1 do begin Linha:=Form_NFe.memoLog.Lines.Strings; if pos('Recebimento',Linha)<>0 then begin Result:=Copy(Linha,15,10); //ShowMessage(Result); end; end; end; if PegaLinhaDeUmMumu<>'' then begin try dataduplicar:= StrToDate(PegaLinhaDeUmMumu); //DataProtocolo nao pode ser menor que a data do cupom if dataduplicar >= StrToDate(cupomData) then begin //cupom iqual duplicar:=1; vresChaveAcesso := Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave; vresProtocolo := Form_NFe.ACBrNFe1.WebServices.Consulta.Protocolo; end else duplicar:=3; //1 except duplicar:=2; //1 end; end else duplicar:=2; //1 //novo se for iqual nao duplicar 0=sim 1=nao Imagem(ns) anexada(s)

resumindo nao vou pode usar esta função, que pena. sRecibo := ACBrNFe.WebServices.Enviar.Recibo; ACBrNFe.WebServices.Retorno.Recibo := sRecibo; if ACBrNFe.WebServices.Retorno.Executar then begin for i := 0 to (ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Count - 1) do begin sDataHora := DateTimeToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.dhRecbto); sProtocolo := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.nProt; sStat := IntToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.cStat); sMotivo := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.xMotivo; sChave := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe; // Atualizar o banco de dados end; end;

Não sei , serio, envio com este codigo (NFC-e) Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); qual o melhor para NFC-e sincrono ou assincrono

A variável sRecibo, Ta retornando '' nada, o que deve ser ? var sRecibo : string; -------------------------- Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); sRecibo := Form_NFe.ACBrNFe1.WebServices.Enviar.Recibo;

Ha entendi, desculpa, vc mudou no componente.

a imagem acima mostra uma mensagem com chave de acesso e um protocolo, mensagem de erro, como façor para colocar em um variável vChave vProtocolo

Alguém pode min ajuda ?

Não adiante continuar mostrando 6 linhas.

Aceita add as 8 mais so mostra no danfe 6 e a fonte ta bem grande né. a imagem com rave e com quickreport

Cara nao tem eu usei o .... pode ser, ou instalo de novo mais manualmente ?

Cara to muito acustumado com reportbuilder, mais tem impressao do nfc-e com QuickReport, porque tentei mais nao deu certo ? de uma olhada na configuração que fis

Estou usando ACBrNFeDANFEQR1 em vem do RAVE e so mostra 5 linhas nas informações adicionais, é isto mesmo, porque no RAVE mostrava 8 linhas?

Não to coseguindo configurar o componente do ReportBuilder coloco o conteudo 2DBarCode1.Data := e o BarCodeType := bcQRCode mais o codigo fica invalido, mais o conteudo ta correto, pos ja uso em um componete Barcode2D_QRCode1 tem que fazer mais alguma configuracao ? obrigado pela atencao. if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo1.Lines.Clear; Memo1.Text := URL + 'chNFe=' + Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + tokem; Hash_SHA1 := Form_NFe.ACBrEAD1.CalcularHash(UTF8Encode(Memo1.Text), dgstSHA1); Memo1.Text := Memo1.Text + '&cHashQRCode=' + Hash_SHA1; 2DBarCode1.Data := Memo1.Text;

RESOLVI colocando estes codigos unit ACBrNFeDANFeQR; if APreview then begin QRNFe.PrinterSettings.Copies := FNumCopias; // Incluido por Italo em 15/10/2010 // Incluido por Italo em 13/01/2011 {$IFDEF QReport_PDF} QRNFe.PrevShowSearch := False; QRNFe.PrevShowThumbs := False; QRNFe.PreviewInitialState := wsMaximized; QRNFe.PrevInitialZoom := qrZoomToWidth; QRNFe.PreviewDefaultSaveType := stPDF; QRExportFilterLibrary.AddFilter(TQRPDFDocumentFilter); {$ENDIF}

ja recompilei, na verdade desinstalei tudo, e instalei de novo. e a segunda imagem ta configurado, tiNFCe a propriedade TipoDANFE. o que deve ser ?

Atualizei o acbr agora 15:10 na revisao 7152 e continuar o mesmo, tirei o RAVE e agora to sem PDF, os clientes tao ficando loucos, hhh, o que eu façor ? ----------------------------------- Descobrir uma coisa tenho cte e nfe no meu sistema quando clico imprimir danfe do cte e e depois imprimir danfe da nfe, ai tem a opcao salvar em pdf que dizer se eu abri um cte ante da nfe , funciona salvar em pdf, se eu abri nfe primeiro nao tem opcao salvarem pdf o que deve ser?

Atualizei o acbr agora 13:54 na revisao 7152 atualizei o acbr e nao impprimir o danfe nfc-e o que pode ser?

nao é no CTE é no NFe que unit fica o filtro do ACBrNFeDANFEQR1 para PDF ha, sobre o ACBr.inc ta ok // 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}

tenho cte com ACBrCTeDACTeQR1 e o cliente manda imprimir mais antes ele gosta de clicar em salvar , e salvar em pdv, aparece a opcoes salvar .qr e .pdv mias na nfe com ACBrNFeDANFEQR1 so tem opcao .qr o que pode ser ?

acbrnfe2 ja tem a impressao do danfe para NFC-e com QuickReport ?

Dest.indIEDest := inNaoContribuinte;

brigadooooooo, ta aparecendo um erro que nao tinha, Um cliente com cpf e endereco completo sera que é por causa da versao 3.10 ? vendo alguns topicos tem que preencher Dest.indIEDest := ; mais Dest.indIEDest :=9 ; Dest.indIEDest :='9' ; da errado , como preencher correto ?

Atualizei o Schemas para PL_008a 3.10 mais nao fis nada a nao ser muda para ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; deu certo, xml ficou tudo 3.10. seria só isto mesmo ?

Coloquei para 3.10 ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; mais nao mudou nada no xml, continuar 3.00 nos dois xml sabendo que um fiz 3.00 e o outro 3.10 51140703953552000102650020000000501000000500-nfe.xml 51140703953552000102650020000000511000000515-nfe.xml 51140703953552000102650020000000501000000500-nfe.xml 51140703953552000102650020000000511000000515-nfe.xml

Resumindo... quando mando Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); e recebo a massagem erro: 539 (imagem) tem como pega a chavedeacesso e o protocolo com algum comando ex: ShowMessage(ACBrNFe1.WebServices.Consulta.Protocolo); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS); eu tive que pega a string da massagem e copiar chave e o protocolo com copy( messagem, 94,44 ) e copy( messagem,142,15 )