joemil

vejam o blog do Mauro Negruni: http://www.mauronegruni.com.br/2013/09/18/porto-alegre-sera-palco-do-lancamento-nacional-da-nota-fiscal-eletronica-para-o-consumidor-final/

tb nao envio as NFS-e no SPED Fiscal, so no PIS/COFINS

é. esse governo apertando o cerco cada vez mais. so falta dar o devido retorno dos impostos. ainda bem q ja to bem adiantando para a emissao da NFC-e. so falta a impressao agora. to fazendo a impressao em FastReport. pelo q li no manual q postei, pode-se imprimir em A4. pode mesmo? assim q tiver pronto o layout da impressao eu posto aqui pra galera

pessoal, o erro na geracao do QRCode estava no manual mesmo, tem um espaco apos a letra 'd' no final da terceira linha. esse espaco acho q nao existe na tag. coloquei o espaco e funcionou igual ao manual. mas ainda acho q esse espaco nao existe no link do qrcode

veja o manual no link: https://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&ved=0CCwQFjAA&url=http%3A%2F%2Fwww.nfe.fazenda.gov.br%2Fportal%2FexibirArquivo.aspx%3Fconteudo%3DjKHRw%2520g4V%2520E%3D&ei=8NxKUqzNOomS9QS86YCwAw&usg=AFQjCNHozXgGX-0zbCSRbWtioAASoDrXeQ&sig2=EbK5mlYLwPW5JRoIcI1FBw&bvm=bv.53371865,d.dmg eu fiz mais ou menos assim: Memo1.Lines.Clear; // MONTA Texto := 'chNFe=' + edChave.Text { chave da NFCe }+ '&nVersao=' + edVersao.Text { versão do QRCode - 100 }+ '&tpAmb=' + edAmb.Text { ambiente 1-producao, 2-homologacao }+ IfThen(Length(edCPF.Text) > 0, '&cDest=' + edCPF.Text, '') { cpf/cnpj do destinatario }+ '&dhEmi=' + TextToHex(edData.Text) { data/hora no formato 2012-09-27T16:20:34-03:00 }+ '&vNF=' + edTotal.Text { total do cupom 100.00 } + '&vICMS=' + edICMS.Text { valor do icms 18.00 }+ '&digVal=' + TextToHex(edDigestValue.Text) { tag digest value do xml } '&cIdToken=' + edToken.Text { numero do token 000001 }; Hash_SHA1 := ACBrEAD1.CalcularHash(UTF8Encode(Texto), dgstSHA1); Texto := Texto + edToken2.Text; Memo1.Text := 'http://www.hom.nfe.sefaz.mt.gov.br/portal/consultarNFCe.jsp?' + Texto + '&cHashQRCode=' + Hash_SHA1;

uhuuu. agora sim deu certo. consegui enviar varias notas para o ambiente de testes. so nao testei ainda o QR Code

opa, valeu, ja to atualizando aqui pra fazer os testes. (prazo ta curtoooooooooooooooo hehehe)

tb nao estou conseguindo enviar o xml para o ambiente de testes. nao retorna erro, mas tb nao envia. aqui no MT vai comecar o piseiro dia 01/10

nem fazendo o 2 exemplo (pag 20 do manual), tb nao bate. precisa converter o hash pra algum outro padrao?

pra tirar a duvida fiz o seguinte: colei o texto abaixo em alguns sites de calculam hash sha1 online: chNFe=43120910585504000174650010000000541123456781&nVersao=100&tpAmb=2&dhEmi=323031322d30392d32375431363a32303a33342d30333a3030&vNF=1000.00&vICMS=180.00&digVal=37327151612b623074616f514f3966414a7766646c5875715176383d&cIdToken=0000011058550420130001 usei estes 2 sites pra verificar http://sha1-hash-online.waraxe.us/ http://www.xorbin.com/tools/sha1-hash-calculator e o resultado realmente é o mesmo do delphi. acho q tem alguma coisa no manual q ta errada hehehe. e eu aqui batendo cabeca

ja coloquei ate UTF8Encode, mas nao bate com o hash do exemplo do manual.

tb nao deu. gera do mesmo jeito q outros exemplos estou usando este manual: http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=jKHRw%20g4V%20E= Exemplo Hipotético 1 (pag. 19) copiei e colei os dados do pdf, coloquei nos edits de um formulario, e o codigo esta assim: procedure TForm1.Button1Click(Sender: TObject); var Texto, Cripto: string; begin Memo1.Lines.Clear; Texto := 'chNFe=' + edChave.Text + '&nVersao=' + edVersao.Text + '&tpAmb=' + edAmb.Text + IfThen(Length(edCPF.Text) > 0, '&cDest=' + edCPF.Text, '') + '&dhEmi=' + TextToHex(edData.Text) + '&vNF=' + edTotal.Text + '&vICMS=' + edICMS.Text + '&digVal=' + TextToHex(edDigestValue.Text) + '&cIdToken=' + edToken.Text + edToken2.Text; Cripto := ACBrEAD1.CalcularHash(Texto, dgstSHA1); Memo1.Text := 'http://www.hom.nfe.sefaz.mt.gov.br/portal/consultarNFCe.jsp?' + Texto + '&cHashQRCode=' + Cripto; if GerarQRCode(Memo1.Text, 100, 100) then begin Image1.Picture.LoadFromFile('qr_code.png'); frxReport1.Clear; frxReport1.LoadFromFile('nfce.fr3'); frxReport1.ShowReport; end else ShowMessage('Erro ao gerar o QR Code.'); end; deve ser gerado o hash sobre o texto: chNFe=43120910585504000174650010000000541123456781&nVersao=100&tpAmb=2& dhEmi=323031322d30392d32375431363a32303a33342d30333a3030&vNF=1000.00&vIC MS=180.00&digVal=37327151612b623074616f514f3966414a7766646c5875715176383d &cIdToken=0000011058550420130001 q deveria ser: 3FACB55248244D98C658FC8A826413BCEF10A4AE mas no delphi: 12B5B46581A7D9B3163083AEBDA23594BC24A1C6 copiei e colei o texto do pdf. a programacao ta assim: procedure TForm1.Button1Click(Sender: TObject); var Texto, Cripto: string; begin Memo1.Lines.Clear; Texto := 'chNFe=' + edChave.Text + '&nVersao=' + edVersao.Text + '&tpAmb=' + edAmb.Text + IfThen(Length(edCPF.Text) > 0, '&cDest=' + edCPF.Text, '') + '&dhEmi=' + TextToHex(edData.Text) + '&vNF=' + edTotal.Text + '&vICMS=' + edICMS.Text + '&digVal=' + TextToHex(edDigestValue.Text) + '&cIdToken=' + edToken.Text + edToken2.Text; Cripto := ACBrEAD1.CalcularHash('chNFe=43120910585504000174650010000000541123456781&nVersao=100&tpAmb=2&dh' + 'Emi=323031322d30392d32375431363a32303a33342d30333a3030&vNF=1000.00&vICMS' + '=180.00&digVal=37327151612b623074616f514f3966414a7766646c5875715176383d&c' + 'IdToken=0000011058550420130001', dgstSHA1); Memo1.Text := 'http://www.hom.nfe.sefaz.mt.gov.br/portal/consultarNFCe.jsp?' + Texto + '&cHashQRCode=' + Cripto; if GerarQRCode(Memo1.Text, 100, 100) then begin Image1.Picture.LoadFromFile('qr_code.png'); frxReport1.Clear; frxReport1.LoadFromFile('nfce.fr3'); frxReport1.ShowReport; end else ShowMessage('Erro ao gerar o QR Code.'); end; e o hash: 2BFEFC89DDEBF732EC53238482E1C8ECE9F25B36

ola pessoal, alg tem alguma rotina pra gerar o SHA1 do codigo gerado no qrCode? ja testei varias no delphi, mas nao gera igual ao exemplo do manual. o qr code to gerando pelo google mesmo por enqto.

pelo q estao falando aqui, as empresas novas q tiverem q usar cupom fiscal (ECF) ja devem ter NFC-e a partir de 01/10/2013, e quem tiver q trocar de ECF tb. mas ainda nao olhei no site da sefaz pra saber a obrigatoriedade disso. agora to precisando gerar o SHA-1 do QR Code. alg conhece alguma funcao q funcione? ja testei varias no delphi, mas sempre da diferente do exemplo do manual

valeu

opa Sergio, tudo bem? eu tenho aqui uma Bematech nao fiscal, como faco pro fast imprimir nela? outra duvida: qual propriedade do acbr eu pego o texto pra ser inserido no qr Code?

Ola pessoal, pesquisei mas nao encontrei. o ACBr ja tem a impressao da NFC-e?? sou do MT, e aqui ja vai ser obrigatorio essa modalidade

ola pessoal, tvz alg possa me ajudar to fazendo o envio do RPS em PHP, porem estou recebendo esta mensagem: Erro SOAP..: O servidor nao pode processar a solicitacao. ---> Valor nao pode ser nulo. Nome do parametro: s entao gostaria de saber se alg pode me passar como devo montar o header pra poder enviar, e quais sao os parametros exigidos pela funcao RecepcionarLoteRps outra coisa tb: nao estou conseguind consumir o WS. o rps q estou tentando enviar é um q foi gerado pelo proprio ACBrNFSe. a funcao q gero esta assim: $operation = "RecepcionarLoteRps"; $params = array( 'VersaoSchema' => 1, 'MensagemXML' => $xmlDoc->saveXML() ); $result = $this->connectionSoap->$operation( $params );

ola italo, qdo vc abre o demo, tem o combo cbCidades. a cidade Nova Mutum nao constava na lista. dai adicionei ela

eu uso ele e baixo por http, assim: http:www.control.com.br/pasta/arquivo.exe e funciona normal uso pra baixar as atualizacoes do sistema. o arquivo q baixo é um .rar convertido para .exe, assim, qdo termina de baixar, ja descompacta

duvidas: usando Delphi HTML5 Builder, o acesso ao sqLite é local? e como estao as novidades para android no Rad Stuido Mobile?

aqui to usando ammy admin, pra mim q sou somente eu q atende os clientes, ta funcionando blz. alguns atendo pelo TeamViewer tb, mas tem o limite dos 5 min (ainda nao tenho verba pra comprar uma licenca dele hehehe - mas é o melhor). comprei uma licenca do ammy e ta rodando legal. tb coloquei um atalho no sistema q o cliente clica e me passa o id pelo skype, depois adiciona na lista e pronto.

fala pessoal, tudo na paz? to tentando enviar um RPS para Nova Mutum-MT (provedor agili), e esta dando o erro (to usando o demo): adicionei a cidade ao componente cbCidades: Nova Mutum/5106224/MT acabei de atualizar o componente e a cidade nao estava na lista

o endereco para informacoes: http://portal.saude.gov.br/portal/saude/profissional/visualizar_texto.cfm?idtxt=38004 e nao adianta ligar no suporte, q eles nao dao suporte (?????)

ola pessoal, nao sei se este é o local correto, se nao for, podem mudar, ok? to tentando conectar com o webservice da Horus, mas sempre ocorre os erros: Invalid User ou java.lang.NullPointerException o webService é no endereco: http://aplicacao-homologacao.saude.gov.br/horus-ws-basico/RecebeDadosWS?wsdl a funcao importada pelo WSDL Importer: function GetRecebeDadosWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): RecebeDadosWS; to usando este codigo: procedure TForm1.Button1Click(Sender: TObject); var xRecebeDados: RecebeDadosWS; myByteArray: TByteDynArray; memStream: TMemoryStream; retorno: horus_ws_resposta; uf, proto, data, user: wideString; begin memstream := TMemoryStream.Create; try xml.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'horus_entrada.xml'); xml.SaveToStream(memstream); setLength(myByteArray, memStream.Size); if memstream.size > 0 then move(PAnsiChar(memStream.Memory)^, myByteArray[0], memStream.size); xRecebeDados := GetRecebeDadosWS(false,'', HttpRio1); retorno := xRecebeDados.recebeDados(myByteArray); {uf := '510020'; proto := '962'; data := '24/07/2013'; user := '[email protected]'; retorno := xRecebeDados.consultarInconsistenciasPorMunicipio(uf, proto, data, user);} ShowMessage('Mensagem de Retorno do WS' + #13 + #13 + retorno.horus_ws_mensagem.mensagem_global); finally memStream.Free; end; {myByteArray := FileToByteArray(ExtractFilePath(ParamStr(0)) + 'horus_entrada.xml'); xRecebeDados := GetRecebeDadosWS(false); //,'', HttpRio1); retorno := xRecebeDados.recebeDados(myByteArray);} end; a funcao recebeDados pede como parâmetro um TByteDynArray, q é o xml convertido tb ja tentei usar assim: xRecebeDados := GetRecebeDadosWS(false); qdo passo o HTTPRio como parâmetro, o evento RIOHTTPWebNode1BeforePost esta assim: procedure TForm1.RIOHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer); var user, pass: widestring; begin user := '[email protected]'; pass := 'dnshorus1234'; if not InternetSetOption(Data, INTERNET_OPTION_USERNAME, PChar(user {HTTPRIO1.HTTPWebNode.UserName}), Length(user {HTTPRIO1.HTTPWebNode.UserName})) then ShowMessage('Erro: ' + #13 + SysErrorMessage(GetLastError)); if not InternetSetOption(Data, INTERNET_OPTION_PASSWORD, PChar(pass {HTTPRIO1.HTTPWebNode.Password}), Length(pass {HTTPRIO1.HTTPWebNode.Password})) then ShowMessage('Erro: ' + #13 + SysErrorMessage(GetLastError)); end; os fontes, o xml e o wsdl estao nos anexos. se alg puder dar uma forca, assim q ficar ok, posto o resultado aqui. valew usando D7. ja fiz a atualizacao do WSDL Importer Horus.rar