Massao Aihara

HUm...essa alteração fod... com o envio da NF-e com observações. ~~ que droga...

Creio que ambos alterem o preço do produto!

Não sei se entendi direito, mas como é um valor total aproximado dos impostos que altera o valor final do produto, creio que os valores destacados na compra do produto, possam ser listados mesmo voce sendo simples, afinal eles alteram o custo da mercadoria que você comprou, alterando seu preço de venda. me corrijam se eu estiver errado.

EFV Todos meus cliente utilizam o mesmo certificado de NF-e para a NFS-e.

Segue alterações: alteracoes.zip

Italo...CONSEGUIII... com a ideia do nosso amigo shdw... eu tinha tentado não remover a quebra no envio, mas na assiantura ainda estava removendo! Assim gerava o erro: "O xml não pode ser alterado depois da assinatura." Oque eu fiz: na função de assinatura do fonte ACBrNFSeUtil na linha 752: ANTES: XMLAssinado := StringReplace( XMLAssinado, #10, '', [rfReplaceAll] ); XMLAssinado := StringReplace( XMLAssinado, #13, '', [rfReplaceAll] ); ALTEREI PARA: if AProvedor <> proGINFES then begin XMLAssinado := StringReplace( XMLAssinado, #10, '', [rfReplaceAll] ); XMLAssinado := StringReplace( XMLAssinado, #13, '', [rfReplaceAll] ); end; e na funcao FiltrarTextoXML no fonte pncAuxiliar na linha 174: ANTES: if RetirarAcentos then begin for i := 1 to Length(aTexto) do begin {$WARNINGS OFF} if Pos(aTexto[i], COM_ACENTO) <> 0 then aTexto[i] := AnsiChar(SEM_ACENTO[Pos(aTexto[i], COM_ACENTO)]); // aTexto[i] := SEM_ACENTO[Pos(aTexto[i], COM_ACENTO)]; if not (aTexto[i] in [' '..'~']) then aTexto[i] := ' '; {$WARNINGS ON} end; end; ALTEREI PARA: if RetirarAcentos then begin for i := 1 to Length(aTexto) do begin {$WARNINGS OFF} if Pos(aTexto[i], COM_ACENTO) <> 0 then aTexto[i] := AnsiChar(SEM_ACENTO[Pos(aTexto[i], COM_ACENTO)]); // aTexto[i] := SEM_ACENTO[Pos(aTexto[i], COM_ACENTO)]; if not (aTexto[i] in [' '..'~']) then if (aTexto[i] <> #13) then if (aTexto[i] <> #10) then aTexto[i] := ' '; {$WARNINGS ON} end; end; So que tem um problema, não tenho com testar o provedor dentro do fonte pncAuxiliar...ai tenho que tratar meus dados antes de passar para o ACBr.

Italo, bom dia. Ja verifiquei alguns topicos aqui sobre quebra de linha, mas a maioria falava sobre a impressão, que não é meu problema. O meu problema é que o cliente quer que o sistema mande a descrição da NFS-e com quebra de linha igual quando se faz a NFSe no site da prefeitura. Pois eles querem que as NFS-e fiquem gravadas "certas" la (¬¬ ... clientes...). Conversando com o suporte do provedor ginfes eles garantiram que se eu passar qualquer quebra de linha o webservice vai aceitar, so que isso não esta acontecendo. Não importa o caractere de quebra que eu passe a descrição do serviço sempre fica em uma linha só. Achei que era problema do provedor ou qualquer outra coisa MAS... debugando o envio da NFS-e, eu identifiquei que a função FiltrarTextoXML do fonte pncAuxiliar remove as quebras de linha. Eu tentei passar RetirarAcentos como FALSE mas não de certo por que os serviços do meu cliente estão todos cadastrados com "ç", "acentos" e etc... tambem tentei fazer uma POG, passando um " | " no lugar da quebra de linha e depois da função fazer um stringreplace, mas ai me retorna um erro dizendo que o xml não pode ser alterado depois da assinatura...~~ tem como me dar uma luz???

Italo, consegui resolver com eles obrigado. agora to tentando achar o caractere que gere a quebra de linha na descrição dos serviços para o provedor ginfes... eles falaram que com o caractere da minha linguagem ia resolver...mas o #13+#10 do delphi não ta dando certo não .,,,

vi esses dias uma discussão de conexão do fb pela internet no firebase mas como rescebo por email (e ja apaguei) não tenho o link da uma olhada http://www.firebase.com.br/fb/pesquisa_lista.html

Boa tarde galera, Italo, pessoal que utiliza o provedor ginfes, estou tentando emitir uma NFS-e em homologação, para São Jose dos Pinhais, e esta me retornando: <ns4:Codigo>E16</ns4:Codigo> <ns4:Mensagem>A data da emissao do RPS nao podera ser superior a data de hoje </ns4:Mensagem> <ns4:Correcao>Informe uma data de emissao de RPS valida</ns4:Correcao> bom, verifiquei a data do meu pc e do meu servidor e estão corretas. Atualizei os componentes mas o problema continuou. Alguem esta passando por isso? Ou eu que fiz algo errado? Segue em anexo os arquivos de envio e resposta .EnvioNFSe.rar EnvioNFSe.rar EnvioNFSe.rar

Boa tarde Juliana, esse nosso problema com o boleto da caixa, e somente com ela, e com um unico cliente, é que se nos gerarmos o codigo de barras conforme o ACBr, hora que o cliente paga, não cai em conta nenhuma... esse trecho que foi implementado é so uma "POG" para o problema, //Alteracao!! if ACBrTitulo.ACBrBoleto.LayoutRemessa = c240 then begin {CRZ} if (ACBrTitulo.Carteira = 'SR') then begin // Esse processo sobrescreve tudo o que foi feito lá em cima.... ANossoNumero := ACBrTitulo.NossoNumero; while (ANossoNumero <> '') and (ANossoNumero[1] = '0') do // Tira zeros à esquerda para não atrapalhar (importante!) begin ANossoNumero := Copy(ANossoNumero, 2, Length(ANossoNumero)); end; CampoLivre := PadL(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente, 5) + PadL(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 4) + '8' + '7' + PadL(ANossoNumero, 14); end; {/CRZ} end; //.......................................................................... queriamos saber se tem alguma alteração na forma de passar os dados que gere o codigo corretamente: Codigo SEM a alteração: 10490.00175 24000.200048 00000.634022 6 56760000023451 Codigo COM a alteração: 10490.01728 05868.70005 00000.063404 9 56760000023451 é o mesmo boleto, se pagar o boleto com a alteração ele cai na conta corretamente, mas se pagar o outro o dinheiro para para o "alem", conta nenhuma... excluindo essa alteração, será nos estamos passando alguma coisa errada ou faltando passar alguma coisa???

Testa no Demo_ACBrNFSe... pelo que vi faz envio para esse provedor sim...

DRomero, Italo conseguiram fazer funcionar para campinas? ainda tem os fontes? Poderia me passar?

mas que erro?

Eu nem tentei mas, e eu precisar cancelar o estorno e ja se passaram 24hrs, eu posso fazer um estorno de estorno?

Verdade. obrigado!!!

Bom dia pessoal, pode parecer uma pergunta idiota mas.... Posso realizar o cancelamento de uma nota de estorno? Eu tentei e o sefaz aceitou (em homologação),...sera que isso é correto ou deve bloquear no meu sistema???

huuuuummmmmm....bom "Nota não processada" é melhor que "Esse RPS não foi enviado..." =P Bom eu estou aguardando a respota do suporte da NFS-e deles...desde ontem....

é, eu to achando esse provedor meio louco tambem... passei por esse negocio da série e agora as minhas notas, em produção, são enviadas, retorna o protocolo, mas hora que consulto, seja por rps ou por protocolo, retorna: "Esse RPS nao foi enviado para a nossa base de dados. Numero do RPS em que ocorreu o erro: 1" mandei meus arquivos de envio e resposta para o suporte deles, para ver oque esta errado ~~...

quando vc trocou a serie para 14, você mudou o ambiente para produção? junto com a mudança de serie me passara outro codigo de tributação do municipio tambem.

Em produção, para mim, a prefeitura falou para usar a 9.

com o certificado do cliente tambem não vai... alguem aqui conseguiu fazer funcionar a homologação de nfs-e de curitiba? acho que vou ter por em produção para testar, ~~

Entendi... é o codigo do municipo que deve ser passado como '999', como vc esta usando a função de ler do xml, ele vai carregar o codigo que estiver no xml (...). então para o seu caso tera que alterar no componente mesmo, tenta isso aqui o (OBS: não testei!!!) no fonte: ACBrNFSeWebServices a linha 1080 - 1081: if (TNFSeCancelarNfse(Self).FCodigoMunicipio = '') then TNFSeCancelarNfse(Self).FCodigoMunicipio:=TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; substitui por isso: if ( (FProvedor = proISSNET) and (FConfiguracoes.WebServices.AmbienteCodigo <> 1) ) then TNFSeCancelarNfse(Self).FCodigoMunicipio := '999' else begin if (TNFSeCancelarNfse(Self).FCodigoMunicipio = '') then TNFSeCancelarNfse(Self).FCodigoMunicipio:=TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; end; e tenta cancelar no ambiente de homologação...

entendi...pois é... é que para homologação o certificado que se usa não é o do cliente... tem todo um "ritual" para curitba...¬¬ eu vou tentar usar o do cliente e ver oque acontece... Vlw!!!

Bom dia amigo, se estiver em ambiente de homologação, se não me engano, você tem que passar o codigo do municipio como '999'.