Painel de líderes

Solivan, só lembrando o ACBr já tem a geração do BarCode.

Olá Edson, Primeiro gostaria de agradecer sua compreensão e o fato de respeitar a decisão de não incluirmos mais o RecuperarXML no projeto ACBr. Também gostaria de elogiar você por tomar atitude de fazer alguma coisa por algo que lhe é importante. Muitos parecem apenas estar dispostos a reclamar que não aparece alguém pra fazer alguma coisa. Eu costumo dizer que você pode ser o alguém. Em segundo lugar, parece que o pessoal que reclama esquece que este projeto nasceu aqui. Num certo momento decidimos que não seria bom pra nós continuá-lo e isso deveria ser respeitado. Não deveria importar o motivo da decisão, mas mesmo assim alguns dos moderadores já explicaram. A questão é que o projeto continuou aberto e qualquer um poderia pegar de onde parou e continuar. Nem mesmo trancamos todos os tópicos sobre o assunto achando que isso talvez pudesse passar a impressão errada. Agora, devido a confusão, já estamos pensando em fazer o contrário... Então, como sugestão, para evitar qualquer desgaste ou confusão maior, estou sugerindo que você faça as seguintes alterações no projeto: Remova a referência ao site do fórum do ACBr nas telas do programa. Ponha os links para a página nova que você criou no SourceForge. Isso vai ajudar a concentrar todos que querem ajudar lá e você poderá ter mais retorno. Na tela de "sobre o programa" e nos comentários do código fonte, adicione uma explicação que você está usando o código baseado num projeto que foi descontinuado pelo ACBr. Isso pode ajudar outros a perceber que a versão que está no seu projeto é atualizada e talvez assim queiram lhe ajudar. Dê uma identidade nova ao projeto. Crie uma nova versão, novo nome, novos ícones, sei lá... alguma coisa assim. profit Acho que é isso.

Boa tarde maikews, Segundo a legislação, a Nota Fiscal hoje é um arquivo eletrônico no formato XML, assinado digitalmente pelo emitente e protocolado pela SEFAZ autorizadora do mesmo. Portanto o XML nas condições acima é um Documento Fiscal válido Juridicamente, logo não se trata de um arquivo XML qualquer. Na legislação consta também que o Emitente é obrigado a disponibilizar o XML assinado e protocolado de forma imediata ao destinatário da mercadoria assim que ele obter o protocolo de autorização da SEFAZ. E se uma transportadora for envolvida no transporte dessa mercadoria, ela também tem o direito de receber o XML da NF-e. No meu entendimento a maneira mais simples de disponibilizar um arquivo de computador a outra pessoa, é simplismente envia-lo por e-mail. O Destinatário e a transportadora no caso tem a obrigação de solicitar o arquivo junto ao emitente, principalmente o Destinatário, pelo simples fato de que ambos, emitente e destinatário devem possuir e guardar pelo tempo legal (5 anos) o XML da NF-e para fins de fiscalização. Caso o emitente se recuse a disponibilizar, o destinatário pode e deve no meu entendimento denunciar junto ao Fisco a atitude do mesmo. A SEFAZ não pode e não vai disponibilizar o XML de um transação comercial para Deus e todo mundo. Veja bem não estamos falando de um XML qualquer, trata-se de um documento fiscal. Não estou criticando ninguem apenas interpretando a legislação.

Para quem ainda esta com problemas pra gerar o qrCode vou postar aqui da maneira que esta funcionando, pelo menos para o MT: procedure TfrmDanfeECF.GerarQrCode; var s_aux, dh_emi, s_hash: string; begin dh_emi := GetUTC( CodigoParaUF(facbr.NotasFiscais.Items[0].NFe.Ide.cUF), StrToDateTime(FormatDateTime('dd/mm/yyyy',facbr.NotasFiscais.Items[0].NFe.Ide.dEmi)+' '+ FormatDateTime('hh:mm:ss', facbr.NotasFiscais.Items[0].NFe.Ide.dEmi))); dh_emi := StrToHex( FormatDateTime('yyyy-mm-dd',facbr.NotasFiscais.Items[0].NFe.Ide.dEmi)+'T'+ FormatDateTime('hh:mm:ss', facbr.NotasFiscais.Items[0].NFe.Ide.dEmi)+dh_emi ); if (FAcbr.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; end; if (FAcbr.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FToken := Copy(FAcbr.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+IntToStr(YearOf(Now))+'0001'; end; s_aux :='chNFe=<chaveacesso>'+ '&nVersao=100'+ '&tpAmb=<ambiente>'+ IIf(facbr.NotasFiscais.Items[0].NFe.Dest.CNPJCPF<>'', '&cDest=<cnpj_dest>', '')+ '&dhEmi=<data_hora>'+ '&vNF=<valor>'+ '&vICMS=<valor_icms>'+ '&digVal=<digito_val>'+ '&cIdToken=<id_token><token>'; s_aux := StringReplace(s_aux, '<chaveacesso>', SomenteNumeros(facbr.NotasFiscais.Items[0].NFe.infNFe.ID), []); s_aux := StringReplace(s_aux, '<ambiente>', TpAmbToStr(facbr.NotasFiscais.Items[0].NFe.Ide.tpAmb), []); s_aux := StringReplace(s_aux, '<data_hora>', dh_emi, []); s_aux := StringReplace(s_aux, '<valor>', StringReplace(FormatFloat('##,##0.00',facbr.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF),',','.',[]),[] ); s_aux := StringReplace(s_aux, '<valor_icms>', StringReplace(FormatFloat('##,##0.00',facbr.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS),',','.',[]),[] ); s_aux := StringReplace(s_aux, '<digito_val>', StrToHex(facbr.NotasFiscais.Items[0].NFe.signature.DigestValue), []); s_aux := StringReplace(s_aux, '<id_token>', FIdToken, []); s_aux := StringReplace(s_aux, '<cnpj_dest>', facbr.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, []); with TACBrEAD.Create(nil) do try s_hash := StringReplace(s_aux,'<token>',FToken,[]); s_hash := CalcularHash(s_hash, dgstSHA1); finally Free; end; s_aux := StringReplace(s_aux,'<token>', '',[]) + '&cHashQRCode='+s_hash; s_aux := GetSiteConsulta( CodigoParaUF(FAcbr.NotasFiscais.Items[0].NFe.Ide.cUF), FAcbr.NotasFiscais.Items[0].NFe.Ide.tpAmb ) +'?'+ s_aux; MontarQrCode(s_aux); end; Notem que, quando for gerar o hash, deve ser feito com IdToken e Com o Token, para homologação deve ser IdToken = '000001', e Token, (primeiros 8 digitos do CNPJ)+Ano+0001. Quando for gerar o qrCode deve remover o "token" e deixar apenas o IdToken senão não vai fechar e vai retornar o erro 100. pra quem tiver interesse segue uma string do qr_code funcionando. http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131115319954000139650050000001031175076630&nVersao=100&tpAmb=2&dhEmi=323031332D31312D30375431363A33343A35322D30333A3030&vNF=111.01&vICMS=19.98&digVal=486256502F3478596278784230314470377466474E4151356949553D&cIdToken=000001&cHashQRCode=56A39A17537CAB21C1632887C332BE95CD1BD51F Abaixo a string sob a qual foi gerado o hash STRING: chNFe=51131115319954000139650050000001031175076630&nVersao=100&tpAmb=2&dhEmi=323031332D31312D30375431363A33343A35322D30333A3030&vNF=111.01&vICMS=19.98&digVal=486256502F3478596278784230314470377466474E4151356949553D&cIdToken=0000011531995420130001 HASH: 56A39A17537CAB21C1632887C332BE95CD1BD51F