joemil

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

up

ola pessoal, tb estou com problemas na geracao da linha digitavel/codigo de barras do boleto Itau (por enqto so to usando ele) informo os dados: Conta: 01272 DigitoConta: 5 CodigoCedente: 01272 porem o numero da conta/cedente nao fica na posicao correta na linha digitavel/codigo de barras como devo informar o numero da conta/cedente para o componente? isso acontece toda vez q atualizo o ACBr. ja modifiquei o ACBRBoletoItau varias vezes, so q desta vez nao me lembro onde alterei, e a unit q havia alterado nao encontrei. e tb ta indo errado no arquivo remessa

ja encontrei: Numero do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; Data do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento;

ola pessoal, to iniciando o uso do ACBrNFSe novamente e tenho as duvidas: 1. apos enviar o RPS, como faco pra pegar o nº do protocolo? direto do xml ou tem algum propriedade pra isso? 2. apos consultar, como pego o numero da nfse e o codigo de verificacao? tb do xml?

ola pessoal, nao consegui fazer a pesquisa pq minha ta uma m.... se tiver algum post com a resposta, por gentileza, me informe fiz o preenchimento do campo vTotTrib, tanto pelo item, como pelo total da nota. o meu danfe ta informando invalid na hora da impressao: fiz assim: ITENS: with Imposto do begin vTotTrib := sqlItensVendasNF_Total_Trib.Value; .... TOTAL Total.ICMSTot.vTotTrib := sqlVendasNF_Total_Trib.Value; essa é a forma correta de preencher esses campos?

ola pessoal, nao to conseguindo instalar a danfe FR, pelo instalador tb nao instala qdo abro o pacote, consigo compilar ou dar um build, mas na hora q instala, da o erro: o q pode causar esse erro? to usando D7, FR v.4.12 enterprise

ola pessoal, estou tentando cancelar uma nota e tb to com problema. to usando este codigo (dica do regis: http://www.regys.com.br/como-enviar-um-evento-de-cancelamento-utilizando-o-acbrnfe/): NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); // Criar o cancelamento NFe.EventoNFe.Evento.Clear; //NFe.EventoNFe.idLote := NumeroLote; with NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := sqlVendasNFE_Serie.AsString; infEvento.CNPJ := OnlyNumber(sqlEmpresaCNPJ.AsString); infEvento.dhEvento := NOW; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := sqlVendasNFE_Protoc.Asstring; infEvento.detEvento.xJust := vAux; end; // Enviar o evento de cancelamento if NFe.EnviarEventoNFe(NumeroLote) then begin with NFe.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt( 'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código: %d' + sLineBreak + 'Motivo: %s', [EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; // retornos {DataHoraEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; CodigoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; MotivoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;} end; end else begin with NFe.WebServices.EnvEvento do begin raise Exception.Create( 'Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; mas recebo a mensagem de erro: porem a nota foi enviada hj de manha (04/04/2013 às 09:42:00)

ola pessoal, tenho aqui 2 projetos (principais) q usam o ACBr. Qdo dou um Build no primeiro, compila normal, mas no segundo da um monte de warnings (principalmente) no arquivo JwaWinBase.pas. e nao termina nunca de compilar. a diferenca principal de um pro outro é q o primeiro usa ZeosLib, dxRibbon (devexpress) e nao usa ACBrNFSe (este compila normal), e o outro nao tem dxRibbon, usa MyDAC e tem ACBrNFSe (este nao termina de compilar) o arquivo com as mensagens esta em anexo (é mto grande hehehe) algumas mensagens: To usando Delphi 7 JwaWinBase.txt

ta aqui, mas acho q ele ta pegando o fpTamanhoConta do ACBrBoleto.pas (10 digitos) e nao do ACBrBoletoItau (5 digitos), por isso fiz essa POG ACBrBancoItau.pas

mudei esta linha no ACBrBancoItau.pas: agora ta correto a linha digitavel