Hetosoft Sistemas

NFC-e try Form_NFe.ACBrNFe1.NotasFiscais.Clear; criar nfc-e Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); // resultado Form_NFe.ACBrNFe1.WebServices.Enviar.cStat = 100 except showmessage ( inttostrt( Form_NFe.ACBrNFe1.WebServices.Enviar.cStat ) ) end; blz, tudo ok ai eu desativo minha internet e tento enviar outra nota try Form_NFe.ACBrNFe1.NotasFiscais.Clear; criar nfc-e Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); except //mostra o ultimo status que foi 100 e era pra ser 0 showmessage ( inttostrt( Form_NFe.ACBrNFe1.WebServices.Enviar.cStat ) ) //fica 100 end; fica salvo o ultimo cSat memo usando , como façor para limpa o ACBrNFe1.WebServices.Enviar.cStat

blz, Barcode2D_QRCode1.Barcode:= NotaUtil.GetURLQRCode( Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb, copy( Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4,44 ), Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.signature.DigestValue, IDTOKEN, TOKEN ); Brigadoooooooo.

Estou usando esta funcao para imprimir uma nfc-e off-line ( //FAZER NFC-E OFF-LINE Form_NFe.ACBrNFe1.Configuracoes.Geral.FormaEmissao := teOffLine; CriarNFCe(1, vAux, vNumLote ); Form_NFe.ACBrNFe1.NotasFiscais.Assinar; Form_NFe.ACBrNFe1.NotasFiscais.Valida; ) //IMPRIMIR Form_NFe.ACBrNFe1.NotasFiscais.Clear; Form_NFe.ACBrNFe1.NotasFiscais.LoadFromFile(RAIZ+'\SQL_PDV\NFe\EnvioDeResposta\'+chave+'-nfe.xml'); Barcode2D_QRCode1.Barcode:= NotaUtil.GetURLQRCode( Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal, IDTOKEN, TOKEN ); mais quando é teOffLine fica em Branco Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal ai o QRCode fica invalido , o que poço fazer ? //antes o qrcode ficava invalido, mais quando consultava(com leito de qrcode) ele, mostrava na web espere 48 horas, agora so mostra erro QRcode invalido, e quando enviavamos para sefaz e consultava(com leito de qrcode) de novo a nfc-e, mostrava o nfc-e tudo, so dizia que o qrcode tava invalido, agora so mostra erro QRcode invalido e nao mostra o nfc-e

Senhores tenho uma dúvida a vários dias estou testando a Manifestação do Destinatário usando o monitor, sempre que pesquisei retornava apenas uma NF, hoje fui fazer uma pesquisa e me retornou 3 NF isto está correto? posso obter varias notas em uma única consulta? NFE.ConsultaNFeDest(03953552000102, 0, 0, 12174685469) OK: versao=1.01 tpAmb=1 verAplic=1.1.1 cStat=138 xMotivo=Documento localizado para o destinatario dhResp=27/01/2015 10:05:55 indCont=1 ultNSU=12175185469 [RESNFE001] NSU=12174742631 chNFe=xxxxxxxxxxxxxxxxxxxxxx0010005969521111020011 CNPJ=xxxxxxxxxx0153 xNome=MEDRAR COM. PROD. ALIMENTICIO LTDA IE=131938010 dEmi=20/01/2015 tpNF=1 vNF=46,15 digVal=gxVnwWaQmWyFhT9AKPQgB6XZfZs= dhRecbto=20/01/2015 16:18:50 cSitNFe=1 cSitConf=0 [RESNFE002] NSU=12174742651 chNFe=xxxxxxxxxxxxxxxxxxxxxx0010005969531111020019 CNPJ=xxxxxxxxxx0153 xNome=MEDRAR COM. PROD. ALIMENTICIO LTDA IE=131938010 dEmi=20/01/2015 tpNF=1 vNF=171,45 digVal=uxFPb0P92S+yoCN90hLMspSkXVw= dhRecbto=20/01/2015 16:18:50 cSitNFe=1 cSitConf=0 [RESNFE003] NSU=12174742689 chNFe=xxxxxxxxxxxxxxxxxxxxxx0010005969541111020016 CNPJ=xxxxxxxxxx0153 xNome=MEDRAR COM. PROD. ALIMENTICIO LTDA IE=131938010 dEmi=20/01/2015 tpNF=1 vNF=255,59 digVal=N8gfUncWm9TshJxiCL4yeQ3UBi4= dhRecbto=20/01/2015 16:18:50 cSitNFe=1 cSitConf=0

Obrigado André pela ajuda consegui enviar.

Obrigado André pela ajuda consegui enviar.

No manual do acbr pag. 18 diz: Sintaxe dos Comandos ACBr OBJETO.Comando [( param1 [,param2, param3, paramN...])] .... § Texto ou “String”: Para especificar "Strings" nos parâmetros use sempre aspas duplas ("). Outra duvida no seu comando esta: NFE.EnviarEvento("[EVENTO] idLote=2... no meu: NFE.EnviarEvento("[EVENTO], "1",... tenho que colocar a palavra "idLote=" no comando? obs: tentei sem as aspas e deu o mesmo erro. NFE.EnviarEvento("[EVENTO], 1, [EVENTO001], XXXXXXXXXXXXXXXXXXX0550010000066101000066100, 91, XXXXXXXXX00170, 22/01/2015 09:11:50, 4") ERRO: ERRO: Nenhum Evento adicionado ao Lote

blz, vou modifica minha funcoes que esta tudo com //nao ta funcionando ShowMessage(IntToStr( ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat) ); para ShowMessage(IntToStr( ACBrNFe1.WebServices.Enviar.cStat ) ); pode confirma, teve mais alguma mudanca alem disso ?

estou enviando o comando: NFE.EnviarEvento("[EVENTO], "1", [EVENTO001], "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", 35, "xxxxxxxxxxxxxx", 10/02/2014 07:37:38, 2") ERRO: ERRO: Nenhum Evento adicionado ao Lote esse comando esta correto? tem algum exemplo usando Monitor? obs: onde esta "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", "xxxxxxxxxxxxxx" informa o nr da chave e cnpj.

Moderador = voltar as versões até descobrir em qual funcionava do jeito que você quer. Essa mudança que ocoreu em nfe.enviar depois da ultima atualizaçao só eu to questionando ?

Eu quero ou todos que ? ou niguem ta questionando isto ?

Nao, era muito antiga, nao tinha ainda o DANFE da NFC-e estou com a versao 8221 baixei agora 21-01-2015 11:24 peguei o demo e continua iqual, dando erro em vez de ser só retorna o retorno

acho que foi a 8204 ou 8208 ou mais recente um pouco

Só uma pergunta para eu poder comerça modifica meu sistema . Ao enviar NF-e, e na hora nao tem internet da um ERRO(Except) agora na ultima versao do acbrnfe se o retorno nao for 100 - Autorizado o uso da NF da ERRO(Except) em todos retorno Vai continuar assim ? obrigado pela atenção .

Régys Silveira sua Pergunta Qual são os codigos retornados que não deveriam levantar a exceção? Todos menos o cStat = 0 se for 0 é porque nem conseguio comunicao com a sefaz ai pode da exceção como era antes.

try ACBrNFe1.Enviar(vNumLote,False,Sincrono); //retorno da sefaz //ex: //cStat = 100 tudo ok //cStat = 204 DUPLICAMENTO DA NFC-e //ShowMessage(IntToStr( ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat) ); ShowMessage(IntToStr( ACBrNFe1.WebServices.Enviar.cStat ) ); except //Quando esta sem internet ou sefaz fora do ar on E: Exception do begin ShowMessage(E.Message +#13+ 'cStat='+IntToStr( ACBrNFe1.WebServices.Enviar.cStat )); end; end; só min confirma a funcao ACBrNFe1.WebServices.Enviar.cStat deu certo min mostou o que eu quero cSata = 204 (DUPLICAMNETO) mais agora o acbr vai da ERRO quando acontece um cStat diferente de 100 ? e nao vai ser mais como antes que dava ERRO so quando tava sem internet ou sefaz fora do AR. vou ter que muda meus dos modulo e todoas as fucoes que vai enviar.

mais o que mudou para anterior para a nova é que nao dava erro quando era duplicamento e sim só o retorno. nao ia pro except. o servidor e o meu pdv ta tudo em cima de try enviar se status 100 gravo no banco se status 539 showmesse(duplicamento na nota) e nao gravo no banco except showmessage(sem internet) end;

sim ACBrNFe1.Enviar(vNumLote,False,True); a ACBrNFe1.Enviar(vNumLote,False,False); da o mesmo erro

MT, HOMOLOGACAO, WINDOWS 8 estou com o demo, procedure TForm1.btnCriarEnviarNFCeClick(Sender: TObject); var vAux, vNumLote, vSincrono : String; Sincrono : boolean; begin { if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then exit; if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then exit; vSincrono := '1'; if not(InputQuery('WebServices Enviar', 'Envio Síncrono(1=Sim, 0=Não)', vSincrono)) then exit; vNumLote := OnlyNumber(vNumLote); if Trim(vNumLote) = '' then begin MessageDlg('Número do Lote inválido.',mtError,[mbok],0); exit; end; if (Trim(vSincrono) <> '1') and (Trim(vSincrono) <> '0') then begin MessageDlg('Valor Inválido.',mtError,[mbok],0); exit; end; if (Trim(vSincrono) = '1') then Sincrono := True else Sincrono := False; } vAux := '849'; Sincrono := True; vNumLote := OnlyNumber('02'); ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(cbVersaoDF.ItemIndex); //GerarNFCe(vAux); if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); end; try ACBrNFe1.Enviar(vNumLote,False,Sincrono); //retorno da sefaz //ex: //cStat = 100 tudo ok //cStat = 539 DUPLICAMENTO DA NFC-e ShowMessage(IntToStr( ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat) ); except //Quando esta sem internet ou sefaz fora do ar on E: Exception do begin ShowMessage(E.Message ); end; end; 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); ACBrNFe1.NotasFiscais.Clear; end; e estou simulando um Duplicamento de NFC-e entao era prara min retorna um status de duplicamento certo ? mais da erro e cai direto no except mais na messagem do except E.Message mostra Duplicamento de NFC-e e o retorno cSat fica com Zero(0) Que dizer que em vem de so retorna um retono falando que a Duplicamento de NFC-e da erro except e o retorno fica zero. obrigado pela atnecao, to ficando louco ja,

desculpa mais preciso de uma resposta, ja to com varios clientes com varias nfc-e com problema, porfavor só fala o que posso fazer?

Senhores caso alguém precise de ajuda com esta problema no cliente o socket retorna a consulta pelo comando Socket.ReceiveText;

nao sei mais o que fazer da dando erro nos clientes.

1) o que fez? que seja como antes 2) o que esperava encontrar? min mostrar o status do retorno cStat=539 3) o que encontrou? status do retorno cStat=0 Quando envio uma NFC-e com o comando enviar.... 1-se estar sem internet ou a sefaz estar fora do ar da erro e cai no except certo ? 2-quando esta com intenet e a sefaz estar normal tempos que ter o retorno cStat, ex: envie uma nota duplicada era para retorna isto Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=539 //539 - DUPLICAMENTO DA NFC-e so que agora cai no except como se fosse um erro e debugando volto pro codigo e esta com Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=0 try Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); //retorno do sefaz //100 = autorizado //539 - DUPLICAMENTO DA NFC-e showmessage(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat); except //sem internet ou sefaz fora do ar on E: Exception do begin MessagemH(1, E.Message ); end; end; agradeço desde de ja, tem as imagem acima. tava tudo ok, mais atualzei meu acbr pos ja tava bastante atrasado, a versao nova tem a opcao de imprimri o danfe da NFC-e, mais ta com este probleminha

Para esclarecer melhor a duvida por exemplo ao fazer a consulta sem usar o monitor é usado este comando: MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.ConsNFeDest.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.ConsNFeDest.RetornoWS); // ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX LoadXML(MemoResp, WBResposta); quando eu uso o socket com monitor a maquina cliente não acesso o WebServices como obter a resposta da consulta na maquina cliente?

try Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); // AUMENTAR NUMERO NFC-E //539 - DUPLICAMENTO DA NFC-e //204 - DUPLICIDADE DA CHAVE IF (Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=539) or (Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=204) THEN BEGIN MESU COMANDOS end; IF Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=100 THEN begin MESU COMANDOS END; except on E: Exception do begin if tipo=0 then MessagemH(1, E.Message ); end; end; O ERRO É DE DUPLICIDADE que dizer Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=539 mais vai direto para o Except em vem de entra no codigo e o cStat fica 0 Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat = 0 o que eu façor? O Demo ACBrNFe ta a mesma coisa ACBrNFe1.Enviar(vNumLote,False,Sincrono); 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; envio da erro e pula direto para o ACBrNFe1.NotasFiscais.Clear; e antes so dava erro quando estava sem internet ou site da sefaz tava fora do ar olhando a diferenca do Enivar da versao antida da nova function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean; begin //retirado por recomendação do documento disponível em http://www.nfe.fazenda.gov.br/PORTAL/docs/Consumo_Indevido_Aplicacao_Cliente_v1.00.pdf { if not(Self.StatusServico.Executar) then begin if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then TACBrNFe( FACBrNFe ).OnGerarLog(Self.StatusServico.Msg); raise EACBrNFeException.Create(Self.StatusServico.Msg); end; } self.Enviar.FLote := ALote; self.Enviar.FSincrono := ASincrono; if not(Self.Enviar.Executar) then begin if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then TACBrNFe( FACBrNFe ).OnGerarLog(Self.Enviar.Msg); raise EACBrNFeException.Create(Self.Enviar.Msg); end; if (FConfiguracoes.Geral.ModeloDF = moNFe) or (not ASincrono) then begin Self.Retorno.Recibo := Self.Enviar.Recibo; if not(Self.Retorno.Executar) then begin if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then TACBrNFe( FACBrNFe ).OnGerarLog(Self.Retorno.Msg); raise EACBrNFeException.Create(Self.Retorno.Msg); end; end; Result := true; end; function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean; begin FEnviar.FLote := ALote; FEnviar.FSincrono := ASincrono; if not Enviar.Executar then Enviar.GerarException(Enviar.Msg); if not ASincrono then begin FRetorno.Recibo := FEnviar.Recibo; if not FRetorno.Executar then FRetorno.GerarException(FRetorno.Msg); end; Result := True; end;