joemil

é NFe. o valor dos impostos ja é impresso proximo ao total da nota, mas nao informa a fonte. posso colocar nas informacoes complementares o texto: 'VALOR APROX. DOS IMPOSTOS-FONTE:IBPT'

valeu regys, vc como sempre atencioso e prestativo. outra duvida agora: como informo q a fonte foi o IBPT? coloco direto nas inf. complementares? ha algum lugar pra informar isso?

ola pessoal, vou iniciar o uso do IBPTax, e queria saber qual o link usado pra baixar o arquivo atualizado. pesquisei no forum, mas nao encontrei (acho mto confusa aquela pesquisa do google hehehe) se alg puder ajudar, agradeco

tb acho q deveria da segunda forma q o manoel santos postou. eu to fazendo assim: cdsBoletosCodCedente.AsString := ACBrBoleto1.Banco.MontarCampoCodigoCedente(titulo); e nao ta mostrando o codigo do cedente no boleto, e sim o numero da conta. alterei meu codigo no mesmo lugar indicado pelo manoel santos. apesar q uso esta informacao apenas na impressao do boleto, mas alterei pra ficar igual ao do banco. paralelamente, o arquivo remessa parece estar ok

e ai galera, tudo na paz? seguinte, to tentando enviar uma NFSe para o provedor Betha, mas como faco para mudar de linha da descricao do servico? pesquisei no forum, mas nao achei resposta

Ola pessoal, to fazendo os testes de envio do RPS para o provedor Betha, porem nao ta gravando o XML da NFSe (procurei no forum mas nao achei, caso alg tiver o link, por gentileza, inclua-o na respota) to usando o comando: ConfiguraNFSe; nroLote := '9'; protocolo := '93295748728213'; {ACBrNFSe1.ConsultarSituacao(SoNumeros(View_EmpresasCNPJ.AsString), View_EmpresasInsc_Municipal.AsString, Protocolo, nroLote);} ACBrNFSe1.ConsultarLoteRps(nroLote, Protocolo, SoNumeros(View_EmpresasCNPJ.AsString), View_EmpresasInsc_Municipal.AsString); procedure CofiguraNFSe: procedure TdmDados.ConfiguraNFSe; var xPasta, PathMensal: string; Ok: Boolean; begin xPasta := Pasta_Arquivos + 'NFSe\'+View_EmpresasNome.AsString; ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := View_EmpresasCertificado_NFS_ACBr.AsString; ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral := True; ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe := True; ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True; ACBrNFSe1.Configuracoes.Arquivos.PathCan := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.Arquivos.PathNFSe := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.Arquivos.Salvar := True; PathMensal := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe(0); ACBrNFSe1.Configuracoes.Geral.PathSchemas := DirPath + 'ACBrNFSe_Schemas\' + StringReplace(View_EmpresasProvedor_NFSe.AsString, ' ', '', [rfReplaceAll]); ; //edtSchemas.Text; ACBrNFSe1.Configuracoes.Geral.Salvar := True; //ckSalvar.Checked; ACBrNFSe1.Configuracoes.Geral.PathSalvar := xPasta; //edtPathLogs.Text; ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := StrToInt(View_EmpresasCodIBGE.AsString); //StrToIntDef(edtCodCidade.Text, 0); ACBrNFSe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok, View_EmpresasNFSe_Ambiente.AsString); ACBrNFSe1.Configuracoes.WebServices.Visualizar := False; //ckVisualizar.Checked; ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := ''; //edtSenhaWeb.Text; ACBrNFSe1.Configuracoes.WebServices.UserWeb := ''; //edtUserWeb.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyHost := ''; //edtProxyHost.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyPort := ''; //edtProxyPorta.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyUser := ''; //edtProxyUser.Text; ACBrNFSe1.Configuracoes.WebServices.ProxyPass := ''; //edtProxySenha.Text; ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); o XML de retorno: <ConsultarSituacaoLoteRpsResposta> <NumeroLote>9</NumeroLote> <Situacao>4</Situacao> <ListaMensagemRetorno/> </ConsultarSituacaoLoteRpsResposta> o sistema gera os arquivos das pastas RPS e Ger (conforme anexo), mas nao me retorna a NFSe. qual a funcao usada para salvar o XML da NFSe??

ola pessoal, como esta o desenvolvimento do componente? tvz vou precisar tb e no q puder ajudar

ola pessoal, to tentando instalar o DACTe do FastReport, mas recebo o erro ao clicar em instalar: --------------------------- Delphi 7: delphi32.exe - Ponto de entrada não encontrado --------------------------- Não foi possível localizar o ponto de entrada do procedimento @Frxpdffile@initialization$qqrv na biblioteca de vínculo dinâmico frxe7.bpl. to usando D7, FR v. 4.12.6 fiz uma pesquisa mas nao encontrei alguma solucao. caso tenha algum posto com a solucao, por favor indique aqui, please. valew

Seria isto? tentei executar por fora do delphi tb. mesma coisa. to usando D7

agora ta ocorrendo o seguinte: se adiciono a linha: ACBrMail1.AddAttachment('f:\clientes.csv') o projeto fecha, mas nao envia o email com anexo, e se tento compilar novamente (F9), nao compila, so pisca o delphi e volta no mesmo lugar. o antivirus ta excluindo o executavel (Norton 360) e nao deixa compilar se nao coloco anexo, vai normal assim nao envia: ACBrMail1.AddAttachment('f:\clientes.csv'); ACBrMail1.Send; assim envia normal: // ACBrMail1.AddAttachment('f:\clientes.csv'); ACBrMail1.Send; mas o antivirus exclui o executavel de qq forma alguma dica? usei o exemplo q foi postado aqui neste post. e onde esta o demo?

fiz um teste simples aqui (gmail) e ta ok. parabens.

tb estou com o problema. atualizei o acbr, copei as dlls para a pasta SysWow64, mas continua o mesmo erro: Win 7 64 Certificado A3 - Serasa Leitora Perto CCID ja baixei todas as cadeias do site da serasa, o SafeSign versao 3.0.80 - 64Bits mais alguma dica?

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.