Ir para conteúdo
  • Cadastre-se

armando.boza

Membros
  • Total de ítens

    248
  • Registro em

  • Última visita

  • Days Won

    3

Tudo que armando.boza postou

  1. Regys, na linha 235 ainda está: if Item.Count = 13 then Acho que teria que ser 12 pra dar certo.
  2. Eles alteraram o nome do arquivo para 14.2.b, mas dentro do arquivo, na coluna versão, ainda consta 14.2.a.
  3. Eu que agradeço Italo, pelo seu esforço e dedicação.
  4. 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.
  5. 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?
  6. 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.
  7. armando.boza

    Nfse Rolândia Pr

    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.
  8. 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
  9. 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');
  10. 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.
  11. 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;
  12. 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
  13. 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.
  14. Realmente, se tivesse uma planilha dessa iria facilitar, estou pensando em migrar para o ACBrBoleto mas tenho essas dúvidas tb.
  15. 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.
  16. 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.
  17. Boa tarde Italo. Atualizei os meus fontes hoje e executei o acbrinstall pra recompilar tudo, mas está dando erro em 2 pacotes. Erro ao compilar o pacote ACBr_SPED.dpk Erro ao compilar o pacote ACBr_PAF.dpk No log de erro aparece o seguinte: acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrSpedPisCofins.pas(71) Error: Undeclared identifier: 'TDate' acbr\Fontes\ACBrSPED\ACBRSP~3\ACBrEPCBloco_C_Events.pas(72) Fatal: Could not compile used unit 'ACBrSpedPisCofins' Tenho que recompilar algo antes de executar o acbrinstall?
  18. Bom dia Juliomar. Sei que o fórum trata em específico sobre o ACBrCTe, tanto que vou usá-lo no meu sistema, só resolvi perguntar aqui, sobre o emissor de sp, pois sei que o fórum é mais rápido do que o suporte da sefaz e que alguém poderia estar passando pelo mesmo problema que eu. Afinal o fórum é para troca de informações em comum entre os membros. E tb pq tenho a dúvida de usar direto a 2.0 ou a 1.0.4 ainda.
  19. Bom dia pessoal. Estou iniciando a implementação do CTe no meu sistema devido à necessidade de um cliente meu. Bom, nunca tive contato com CTe, então decidi instalar o emissor gratuito de SP pra tirar umas idéias e ver o funcionamento, só que não consigo instalar, quando clico no arquivo jnlp ele abre a janela do java mas depois de um tempo dá erro e aborta a instalação. Alguém ai sabe se o emissor está instalando normal ou está com problema mesmo? Outra dúvida, já faço para a versão 2.0 ou uso a 1.0.4? Para o PR. Att Armando
  20. Esse problema já está me dando trabalho, é só o cliente atualizar o windows ou o internet explorer que aquelas opções de "Verificar revogação" voltam a ficar marcadas. Opções da internet > Avançado > final da lista O correto é ficar assim: ( ) Verificar revogação de certificados servidor* (x) verificar se ha assinaturas em programas baixados ( ) Verificar se há revogação de certificados do editor Mas após a atualização ele marca as duas de revogação e começam os erros. Pergunto, será que teria como a gente, através de nosso sistema, verificar e desmarcar isso direto?
  21. Vc tem que referenciar qual NFe está sendo complementada. with Ide.NFref.Add do begin refNFe := qNFComplementarNFE_CHAVE.AsString; //chave da Nfe à ser complementada end;
  22. Creio que o maior problema são os protocolos entre as UFs, cada um tem uma particularidade nos cálculos, se tivesse um meio de integrar esses protocolos iria ser fantástico.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.