armando.boza

Ainda não Bruno.

Entrei em contato com o IBPT e disseram que vão providenciar a correção logo logo.

Muito obrigado Régys.

Regys, no fonte na linha 223 consta como: if Item.Count = 12 then Não seria 13 então? devido as colunas?

kkkkkkkkkkkkk que sorte a minha hein.

Então tem problema no meu arquivo, eu peguei em \Exemplos\ACBrIBPTax\tabela e aqui constam apenas 12 colunas. Olha o anexo que estou mandando.

Bom dia pessoal. Recebi hoje email da Secretaria da Fazenda do Paraná informando que a NFCe já está disponível para adesão voluntária. Segue link com webservices de produção e homologação. http://www.sped.fazenda.pr.gov.br/modules/conteudo/conteudo.php?conteudo=97 Se alguém ai puder atualizar o componente com as URLs ficaremos gratos.

Regys, na linha 235 ainda está: if Item.Count = 13 then Acho que teria que ser 12 pra dar certo.

Eles alteraram o nome do arquivo para 14.2.b, mas dentro do arquivo, na coluna versão, ainda consta 14.2.a.

Eu que agradeço Italo, pelo seu esforço e dedicação.

Bom dia Clever. Tb estou com a mesma situação, tive que criar um campo no cadastro de códigos de prestação de serviço onde o cliente informa o código NBS equivalente ao código da LC 116, para dai sim conseguir pegar a alíquota da tabela.

Bom dia Italo. Testes realizados, provedor PRONIM mesmo. Queira por favor adicionar este trecho no fonte: ACBrProvedorPronim 4122404: begin // Rolandia/PR ConfigURL.HomNomeCidade := ''; ConfigURL.HomRecepcaoLoteRPS := ''; ConfigURL.HomConsultaLoteRPS := ''; ConfigURL.HomConsultaNFSeRPS := ''; ConfigURL.HomConsultaSitLoteRPS := ''; ConfigURL.HomConsultaNFSe := ''; ConfigURL.HomCancelaNFSe := ''; ConfigURL.ProNomeCidade := ''; ConfigURL.ProRecepcaoLoteRPS := 'http://nfse.rolandia.pr.gov.br/NFSEws/Services.svc'; ConfigURL.ProConsultaLoteRPS := 'http://nfse.rolandia.pr.gov.br/NFSEws/Services.svc'; ConfigURL.ProConsultaNFSeRPS := 'http://nfse.rolandia.pr.gov.br/NFSEws/Services.svc'; ConfigURL.ProConsultaSitLoteRPS := 'http://nfse.rolandia.pr.gov.br/NFSEws/Services.svc'; ConfigURL.ProConsultaNFSe := 'http://nfse.rolandia.pr.gov.br/NFSEws/Services.svc'; ConfigURL.ProCancelaNFSe := 'http://nfse.rolandia.pr.gov.br/NFSEws/Services.svc'; end; E no pnfsConversao . . . 4322400, // Uruguaiana/RS 4122404 // Rolandia/PR : Provedor := 'Pronim'; Seriam só estes locais pra adicionar informações Italo?

Vou fazer desta maneira Italo. O único problema é que eles realmente não tem ambiente de teste, falei com o responsável da prefeitura e ele pediu pra testar no oficial mesmo.

Boa tarde pessoal. Estou querendo implementar a NFSe de Rolândia - PR (IBGE: 4122404), eles usam o provedor GOVBR. Webservice: http://nfse.rolandia.pr.gov.br/NFSEWS/Services.svc Site: http://nfse.rolandia.pr.gov.br/nfse/ Fui adicioná-la aos fontes do acbr para testar mas me deparei com uma questão, o Ítalo criou um provedor chamado PRONIM, então não sei se uso esse provedor PRONIM ou o GOVBR mesmo. Detalhe, eles não tem ambiente de teste, somente de produção.

Obrigado Italo.

Boa noite Italo, obrigado por acertar a programação que mencionei acima. // Alterado por Italo em 10/09/2014 if NFSe.Servico.Valores.ValorLiquidoNfse = 0 then Contudo ainda falta um ajuste, a linha 1184 tem que ser comentada pq a base de cálculo já é extraída do xml na linha 997 em 'ValoresNfse'. if Leitor.rExtrai(3, 'ValoresNfse') <> '' then begin NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); NFSe.Servico.Valores.Aliquota := Leitor.rCampo(tcDe3, 'Aliquota'); NFSe.Servico.Valores.ValorIss := Leitor.rCampo(tcDe2, 'ValorIss'); NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse'); end; // fim ValoresNfse

Bom dia pessoal, alguém poderia ajustar os fontes com as correções que citei? No fonte pnfsNFSeR linha 1188 remover/comentar este trecho: { Alterado Por Cleiver em - 22-08-2014 } if NFSe.Servico.Valores.BaseCalculo = 0 then NFSe.Servico.Valores.ValorLiquidoNfse := NFSe.Servico.Valores.ValorServicos - NFSe.Servico.Valores.ValorDeducoes - NFSe.Servico.Valores.DescontoCondicionado - NFSe.Servico.Valores.DescontoIncondicionado; if NFSe.Servico.Valores.BaseCalculo = 0 then NFSe.Servico.Valores.BaseCalculo := NFSe.Servico.Valores.ValorLiquidoNfse; NFSe.Servico.Valores.ValorIss := (NFSe.Servico.Valores.BaseCalculo * NFSe.Servico.Valores.Aliquota)/100; E remover/comentar tb a linha 1182, pq a base de cálculo já é extraída da parte "ValoresNfse" linha 995, essa linha 1182 acaba zerando a base de cálculo. NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo');

Comentei esse trecho inteiro e tb a linha 1182 NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo'); Pq a base de cálculo já é extraída da parte "ValoresNfse" linha 995, essa linha 1182 acabava zerando a base de cálculo. Com essas alterações a impressão ficou correta.

Pessoal, acho que encontrei o problema. No fonte pnfsNFSeR linha 1188. Foi alterado para recalcular o valor líquido e base de cálculo. { Alterado Por Cleiver em - 22-08-2014 } if NFSe.Servico.Valores.BaseCalculo = 0 then NFSe.Servico.Valores.ValorLiquidoNfse := NFSe.Servico.Valores.ValorServicos - NFSe.Servico.Valores.ValorDeducoes - NFSe.Servico.Valores.DescontoCondicionado - NFSe.Servico.Valores.DescontoIncondicionado; if NFSe.Servico.Valores.BaseCalculo = 0 then NFSe.Servico.Valores.BaseCalculo := NFSe.Servico.Valores.ValorLiquidoNfse; NFSe.Servico.Valores.ValorIss := (NFSe.Servico.Valores.BaseCalculo * NFSe.Servico.Valores.Aliquota)/100;

Bom dia pessoal, estou com problema na impressão da DANFSe, o campo valor líquido está imprimindo um valor incorreto. No fonte até está passando corretamente (ACBrNFSeDANFSeRLRetrato linha 333) rllValorLiquido.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorLiquidoNfse );//Astrogildo em 13/12/12 E no arquivo xml também está correto o campo do valor líquido, porém ao imprimir ele está descontando o campo "ValorDeducoes", se observarem no site da prefeitura esse campo não é descontado do valor líquido, ele é descontado apenas da base de cálculo. Segue em anexo impressão pelo acbr, impressão pelo site da prefeitura e arquivo xml da nota. 14-nfse.xml

Bom dia pessoal, tenho NFSe em Londrina-PR e estou implementando a de Maringá agora. Me surgiu uma dúvida, pra todas as NFSe de Maringá tenho que passar número de RPS? pq aqui em Londrina não precisa, uso RPS somente quando há indisponibilidade do webservice.

Realmente, se tivesse uma planilha dessa iria facilitar, estou pensando em migrar para o ACBrBoleto mas tenho essas dúvidas tb.

Pensando na facilidade e agilidade de manutenção eu fico com o fortes. Agora como está o fast beta do lazarus? se estiver estável ai seria interessante manter tb. Eu particularmente uso o fortes à anos e me dou bem com ele.

O XE6 não vem com Rave?

Bom dia pessoal. Como todos sabem, na maioria das vezes em que o windows se atualiza ele marca aquelas opções de certificados revogados em "Opções da internet > Avançado" e, pelo menos comigo, gera uma grande quantidade de suporte à clientes. O correto é ficar assim: ( ) Usar SSL 2.0 (x) Usar SSL 3.0 (x) Usar TSL 1.0 ( ) Usar TSL 1.1 ( ) Usar TSL 1.2 ( ) Verificar revogação de certificados servidor* (x) verificar se ha assinaturas em programas baixados ( ) Verificar se há revogação de certificados do editor Então no final do ano passado até cheguei a comentar em um tópico se teria como modificar esses dados diretamente pelo delphi, pra facilitar nossa vida, mas não tinha ninguém com essa informação. Pois bem, essa semana tive um tempinho e comecei a mexer com isso e creio que encontrei uma solução, segue abaixo programação para alterar o registro do windows com as opções corretas. Já testado em alguns clientes e até o momento funcionando perfeitamente. (Testado em windows XP, 7, 2003 server) uses Registry; procedure TFPrincipal.FormCreate(Sender: TObject); var Registro: TRegistry; begin //acertando opções da internet (revogados / SSL / TSL) //verificar revogação de certificados do servidor Registro := TRegistry.Create(KEY_WRITE); Registro.RootKey := HKEY_CURRENT_USER; if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('CertificateRevocation', 0); end; registro.CloseKey; //verificar se há certificados revogados do fornecedor if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing', true) then begin Registro.WriteInteger('State', 146944); end; registro.CloseKey; //Usar SSL 3.0 / Usar TSL 1.0 if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('SecureProtocols', 160); end; registro.CloseKey; registro.Free; end; Espero ajudar o pessoal do ACBr com essa contribuição. Um abraço a todos.