Hetosoft Sistemas

Ja mudei para brasilia , manaus agora para cuiaba que é minha cidade, mais nada, cara to meio doido ja , heheh o erro continua. Schemas.rar

Opa vamos la, eu usei o schemas que vc postou, e a PathSchemas ta correto, pos se eu renomea pasta Schemas- da erro de schemas estao o caminho da correto, ja coloquei regional brasilia ja fis de tudo, se tiver como min manda só o .exe do demo do acbrnfe2 que vc testou ai, vou usar o .exe seu com o shemas que vc postou, pode ser tem como min manda. vou testa na minha maquina. brigadoooooooooooo. ( ha ja teste no windows 8 e windows 7 e da o memso erro de data )

Opa vamos la, eu usei o schemas que vc postou, e a PathSchemas ta correto, pos se eu renomea pasta Schemas- da erro de schemas estao o caminho da correto, ja coloquei regional brasilia ja fis de tudo, se tiver como min manda só o .exe do demo do acbrnfe2 que vc testou ai, vou usar o .exe seu com o shemas que vc postou, pode ser tem como min manda. vou testa na minha maquina. brigadoooooooooooo. ( ha ja teste no windows 8 e windows 7 e da o memso erro de data )

Estou criando outro post para fica bem diferenciado, nao fis nada ate agora esperando uma posição sua , nada mesmo, nao mudei schelmas nem executavel, o caso é neste estante as 15:53 em MT, fis uma carta de correcao e tudo ok, (vou fica louco) sabendo que onte a noite tambem consegui fazer, ja hoje de manha tava dando este erro acima no post anteriro. e agora ja fis mais de 6 cc-e e tudo ok. acho que ta tudo ok agora vou testa mais a tarde e a noite.

Italo coloquei esse shelmas na minha pasta C:\Controles_SQL\NFe\Schemas mais continuar com erro de data Usando o ACBr Demo atualizado. tambem da este erro., Uso este codigos 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:=0; infEvento.nSeqEvento:=1; infEvento.versaoEvento:='1.00'; //infEvento.DescEvento:='Confirmacao da Operacao'; //infEvento.xJust:='';//Operacao nao Realizada end; Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); 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); 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 if tipo=1 then NFEM_CancelarProcesso:=1; MessagemH(2,'Erro ao enviar evendo de manifesto !'); end; end;

Oi italo estavo errado , na pressa de da certo a carta eletrônica, quando clicava em Imprimir evento eu mirava pro 2 xml da cte e nao 1 do cte e outra do xml do evento. foi mal. mais so pra fica louco, hoje de manha to tentando fazer outra carta de correcao em outra cte que fis hoje, e por incrível que pareca deu esse erro, sabendo que nao mudei nada e ontem a noite eu fis carta correcao . Esse é o codigo que usei ontem procedure TForm_CTe.Button1Click(Sender: TObject); var chave:string; numero:Integer; begin //Testado ClientDataSet1.First; If ClientDataSet1Campo.Text='' then begin MessagemH(1,'Sem correções !'); Abort; end; 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;; 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 CAMPO ALTERADO OBS'; nroItemAlterado := numero; End; ClientDataSet1.Next; end; End; memoLog.Text:=''; IF MessagemSimouNao(4,'Confirma ( '+chave+' ) ?')=True then ACBrCTe1.EnviarEventoCTe( 1 ); end; end;

Na verdade os erros é porque estavo tentando fazer a carta de correcao em um xml 1.04 atualizei acbr para cte 2.0 fis um cte com xml 2.0 blz fez certinho a carta e recebeu a resposta ok so que agora é quando imprimir , que dizer imprimir evento. da este erro (imagem) e ai esta os xml, tenei usar isso, mais de uma alteracao deu erro List index out of bounds , pode ter mais de uma alteracao ou um di cada vez. ClientDataSet1.First; while not ClientDataSet1.Eof do begin With infEvento.detEvento.infCorrecao.Add Do Begin grupoAlterado := CCeCampos(1, ClientDataSet1Campo.Text ); campoAlterado := CCeCampos(2, ClientDataSet1Campo.Text ); valorAlterado := ClientDataSet1Valor.Text; End; ClientDataSet1.Next; end; 51140209911489000128570010000011591000011597-cte.xml 5114020991148900012857001000001159100001159711011001-procEventoCTe.xml

desinstalei todo o acbr baixei atualizacao via totorise, instalei tudo de novo om intalador do acbr, fis uma nf-e de homogacao <?xml version="1.0" encoding="UTF-8"?> -<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">-<infNFe versao="2.00" Id="NFe51140203953552000102550010000000511000000518">-<ide> e esta na versao 2.0 excluir tudo na pasta C:\Controles_SQL\NFe\Schemas onde fica meu shcemas coloque a ultima versao do schemas da versao 2.0 que é a site http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=/fwLvLUSmU8= PL_006s Esquemas XML NF-e - Pacote de Liberação No. 8b (11/12/2013) (ZIP) depois testei colocando essa schelma na pasta C:\Controles_SQL\NFe\Schemas tambem Esquemas XML NF-e - Manifestacão Destinatário v1.01 (21/03/2012) (ZIP) depois adicionando tamem a versao mais nova do schelmas do manivesto Esquemas XML NF-e - Manifestacão Destinatário v1.02 (06/09/2012) (ZIP) continuar o mesmo erro de data ai coloquei tambem a ultima versao do schelam 3.10 que é a Esquemas XML NF-e - Pacote de Liberação No. 8b (11/12/2013) (ZIP) mais nao adianta o cliente ja ta min deixando loco eheheh, teria como min min manda sua pasta chelmas. e porque ta fazendo a nf-e na versao 2.0 nao seria a 3.10? muito obrigado pela atencao.

Estou com a versao 2.00 do compontente CTe e estou usando carta de correcao. procedure TForm_CTe.Button1Click(Sender: TObject); var chave:string; begin //Testado ClientDataSet1.First; If ClientDataSet1Campo.Text='' then begin MessagemH(1,'Sem correções !'); Abort; end; 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.versaoEvento := '1.00'; infEvento.detEvento.xCondUso := ''; infEvento.detEvento.descEvento := 'Carta de Correcao'; infEvento.detEvento.xCondUso := 'A Carta de Correcao e disciplinada pelo Art. 58-B do CONVENIO/SINIEF 06/89: '+ 'Fica permitida a utilizacao de carta de correcao, para regularizacao de erro ocorrido na emissao de documentos '+ 'fiscais relativos a prestacao de servico de transporte, desde que o erro nao esteja relacionado com: I - as '+ 'variaveis que determinam o valor do imposto tais como: base de calculo, aliquota, diferenca de preco, quantidade,'+ ' valor da prestacao;II - a correcao de dados cadastrais que implique mudança do emitente, tomador, remetente ou do'+ ' destinatario;III - a data de emissao ou de saida.'; infEvento.detEvento.infCorrecao.Clear; ClientDataSet1.First; while not ClientDataSet1.Eof do begin With infEvento.detEvento.infCorrecao.Add Do Begin //grupoAlterado := 'ide'; //campoAlterado := 'CFOP'; //valorAlterado := '5352'; grupoAlterado := 'compl'; campoAlterado := 'xObs'; valorAlterado := 'TESNTANDO OBS'; //grupoAlterado := CCeCampos(1, ClientDataSet1Campo.Text ); //campoAlterado := CCeCampos(2, ClientDataSet1Campo.Text ); //valorAlterado := ClientDataSet1Valor.Text; End; ClientDataSet1.Next; end; End; ACBrCTe1.EnviarEventoCTe( 1 ); end; end; O Erro sabendo que ja vi este post e baixei http://www.cte.fazenda.gov.br/listaConteudo.aspx?tipoConteudo=0xlG1bdBass= Schemas XML CT-e - Pacote de Liberação 2.00 (ZIP) - (NT 2013.013) - CORREÇÃO

grupoAlterado := sGrupo; campoAlterado := sCampo; valorAlterado := sValor; tenhao a seguinte duvida <infCarga> <vCarga>35273.73</vCarga> <proPred>VASILHAMES E ENVASADOS</proPred>- <infQ> <cUnid>03</cUnid> <tpMed>UD</tpMed> <qCarga>1001.0000</qCarga> <infQ> pra eu muda a vCarga seria grupoAlterado := infCarga; campoAlterado := vCarga; valorAlterado := 36000,00; blz mais se eu quiser muda cUnid seria ? grupoAlterado := infQ; campoAlterado := cUnid; valorAlterado := 04; obrigado pela atencao. ha, estou fazendo esta funcoes no 1.4 - aqui em MT ou tem que ser o 2.0 ?

oi Italo tudo bem, e ai conseguio alguma coisa, tentei também varias coisa aqui e nada.

Depois da ultima atualização do site da sefaz ficamos sem poder baixar xml pra quem usar o projeto RecuperarXML (que foi descontinuado) aqui ta a unit corrigida. RecuperarXML.rar

Estou usando D:\All_Delphi\ACBr - All\Exemplos\ACBrNFe2\Delphi\Schemas\V200\PL_006s <?xml version="1.0"?> -<NFe xmlns="http://www.portalfiscal.inf.br/nfe">-<infNFe Id="NFe51131003953552000102550010000000401000000402" versao="2.00">-<ide><cUF>51</cUF><cNF>00000040</cNF><natOp>VENDA DO PRODUTO NO ESTADO</natOp><indPag>2</indPag><mod>55</mod><serie>1</serie><nNF>40</nNF><dEmi>2013-10-23</dEmi><dSaiEnt>2013-10-23</dSaiEnt><hSaiEnt>10:22:13</hSaiEnt><tpNF>1</tpNF><cMunFG>5108402</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>2</cDV><tpAmb>2</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>1.0.0.0</verProc> Tentei com os quatro opcoes e nada. qual a próxima opção, se pude tem como min manda o schemas que vc ta usando . ja nao sei mais o que fazer. obrigado pela atencao. -------------------- Montei uma maquina virtual baixei a ultama atualizacao do acbr, instalei usei o exemplo D:\All_Delphi\ACBr_7\Exemplos\ACBrNFe2\Delphi Confirmacao da Operacao adicional ao evento ACBrNFe1.EventoNFe.Evento.Clear; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; infEvento.cOrgao := 51; infEvento.nSeqEvento := 1; infEvento.versaoEvento := '1.00'; //infEvento.DescEvento := 'Confirmacao da Operacao'; //infEvento.xDescEvento := 'Confirmacao da Operacao'; end; pois se eu abilitar comando abaixo da erros. //infEvento.DescEvento := 'Confirmacao da Operacao'; //infEvento.xDescEvento := 'Confirmacao da Operacao'; e ainda continuar com erros

Estou tentando usar o evento Confirma manifesto pelo que eu vi é de data mais tentei corrigir mais ainda nao conseguri. obrigado pela atencao. 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:=''; //if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Chave da NF-e', Chave)) then // exit; Chave := Trim(OnlyNumber(Chave)); idLote := '1'; //if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Identificador de controle do Lote de envio do Evento', idLote)) then // exit; //CNPJ := ''; //if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then // exit; Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear; with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; //infEvento.dhEvento := now; infEvento.dhEvento := StrToDateTime( FormatDateTime( 'dd/mm/yyyy hh:mm:ss', 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));

Estou usando este comando var chave:string; begin InputQuery('Coloque chave de acesso !', '44 Números ', chave); if Length(Trim(chave))=44 then begin ACBrNFe1.DownloadNFe.Download.Chaves.Clear; ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe := Trim(chave); ACBrNFe1.DownloadNFe.Download.CNPJ := edtEmitCNPJ.Text; if ACBrNFe1.WebServices.DownloadNFe.Executar then begin 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; end; end; Mais nao recebo retorno do motivo , sabendo que se eu ir na pasta onde salvar os xml xml version="1.0"?> -<retDownloadNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"><tpAmb>1</tpAmb><verAplic>AN_2.1.0</verAplic><cStat>139</cStat><xMotivo>Pedido de Download processado</xMotivo><dhResp>2014-02-21T17:57:20</dhResp>-<retNFe><chNFe>51140206272199001327550010011298171011298171</chNFe><cStat>633</cStat><xMotivo>Rejeicao: NF-e indisponivel para download devido a ausencia de Manifestacao do Destinatario</xMotivo></retNFe></retDownloadNFe Rejeicao: NF-e indisponivel para download devido a ausencia de Manifestacao do Destinatario sei qual o motivo, tem como essa messagem aparecer no meu MemoResp.text obrigado pela atencao. -------------------------------------------- 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

Um cleinte recebeu isso, sera que o acbr boleto ja ta modificado ? Conforme determinado pelo Banco Central do Brasil por meio das circulares 3.598 e 3.656, em vigor a partir de 28/06/2013: Devem ser utilizadas as Novas Nomenclaturas abaixo citadas nos boletos: Beneficiário: antigo Cedente Pagador: antigo Sacado Agencia\Código do Beneficiário: antigo Agencia\Codigo do Cedente: IMPORTANTE: FICA PROIBIDO Boletos sem valor FICA PROIBIDO Boletos sem vencimento ou com as Informações "vencimento à vista" e "contra apresentação" O texto após literal instruções não padrão: Na mesma linha da literal "instruções", e com o mesmo tamanho de fonte, deve ser inserida a mensagem: “ INSTRUÇÕES DE RESPONSABILIDADE DO BENEFICIÁRIO. QUALQUER DÚVIDA SOBRE ESTE BOLETO, CONTATE O BENEFICIÁRIO.”.

Blz, mais fiz a correções se alguém quiser .... ta ai. RecuperarXML.rar

vc alterou blz, ja ta baixando mais sem os produtos Na unit ACBrHTMLtoXML, alterar a linha: if Trim(Versao)<>'2.00' then para: if (Trim(Versao)<>'2.00') and (Trim(Versao)<>'XML2.00') then vc ja conseguii resolver ?

Uso o projeto RecuperarXML a muito tempo teve varias mudancas sobre a versao 2.00 que mudei e tava ok ate ontem, Dava erro na verdade baixava o xml mais ficava com loop eterno, vi uma dica aqui no fórum Falei tanto que esqueci de postar a "solução". Na unit ACBrHTMLtoXML, alterar a linha: if Trim(Versao)<>'2.00' then para: if (Trim(Versao)<>'2.00') and (Trim(Versao)<>'XML2.00') then blz o loop eterno resolvel mais os produtos nao vem, verifique no site da site olhando o codigo fonte que este dado mudou ArquivoItens := SeparaAte('Dados do Transporte',ArquivoRestante,ArquivoItens); para ArquivoItens := SeparaAte('Dados dos Produtos e Serviços',ArquivoRestante,ArquivoItens); mais mesmo assim a var ArquivoItens retorna vazio e os produtos nao vem. site sefaz <div id="Prod"> <fieldset> <legend class="titulo-aba">Dados dos Produtos e Serviços</legend> <div> <table class="prod-serv-header"> <tr> <td class="fixo-prod-serv-numero"> <label>Num.</label> </td> <td class="fixo-prod-serv-descricao"> <label>Descrição</label> </td> <td class="fixo-prod-serv-qtd"> <label>Qtd.</label> </td> <td class="fixo-prod-serv-uc"> <label>Unidade Comercial</label> </td> <td class="fixo-prod-serv-vb"> <label>Valor(R$)</label> </td>

Post Falei tanto que esqueci de postar a "solução". Na unit ACBrHTMLtoXML, alterar a linha: if Trim(Versao)<>'2.00' then para: if (Trim(Versao)<>'2.00') and (Trim(Versao)<>'XML2.00') then Pelo que vi, na consulta completa mudou somente a versão: de "2.00" para "XML2.00" []´s Edson.

estavo usando o caminho https://acbr.svn.sourceforge.net/svnroot/acbr mais da erro falando que mudou para https://svn.code.sf.net/p/acbr/code/!svn/vcc/default eu queria para pode pegar o exemplo D:\All_Delphi\ACBr - All Pastas\tags\Projetos\RecuperarXML com as pastas ACBrFramework branches tags tools trunk Ta dando erro , Ele baixa o gif termina o processoBar, mais paraliza e da erro de e depois da imagem de erro , da outro Out of memony.

Postado 07 February 2014 - 11:56 AM Meu cliente recebeu uma notificacao de qrcode faltando informacoes, Informar codigo de segurnaca TOKEN eu sei ate qual é esse codigo, exsite o numero do token e o codigo token, mais onde colocar quando zero o qrcode ? em amexo carta da SEFAZ-MT e o conteudo do QRCode try if trim( dm.Client_NNFCeNUMEROTOKEM.text )<> '' then tokem := FormatFloat('000000',dm.Client_NNFCeNUMEROTOKEM.asinteger) else tokem := '000001'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt..../consultanfce?' else URL := 'http://homologacao.s...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;

Meu cliente recebeu uma notificacao de qrcode faltando informacoes, Informar codigo de segurnaca TOKEN eu sei ate qual é esse codigo, exsite o numero do token e o codigo token, mais onde colocar quando zero o qrcode ? try if trim( dm.Client_NNFCeNUMEROTOKEM.text )<> '' then tokem := FormatFloat('000000',dm.Client_NNFCeNUMEROTOKEM.asinteger) else tokem := '000001'; 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;

estou tentando ver status nfc-e homologacao em mato grosso e da esta mensagem Ambiente : 1 Versão Aplicativo : $entidade.verAplic Status Código : 999 Status Descrição : Rejeicao: Erro nao catalogado UF : Recebimento : Tempo Médio : 0 Retorno : Observação : mais em producao da ok Ambiente : 1 Versão Aplicativo : 3.00 Status Código : 107 Status Descrição : Servico em Operacao UF : MT Recebimento : 03/02/2014 10:40:39 Tempo Médio : 1 Retorno : Observação : mais eu tavo usando em homologação para fazer teste de nfc-e, nao mudei nada .

Fiquei um tempo fora do forum, mais ja tem previsao que quando vai sar a impressao da nfc-e pelo proprio componente ou nao vai ter mesmo, sabendo que o meu nfc-e ja ta funcionando no cliente, fiz pelo reportbuilder, um ótimo 2014 para os criadores do acbr forum