Novos Fontes do ACBrNFSe

[Victor Silva Mendes]

Os novos fontes compilados em qr3 não serão mais disponibilizados ?

[Italo Giurizzato Junior]

Boa tarde Victor,

 

Você se refere aos fontes do DANFSE feito em Quick Report, correto?

 

Se sim, a resposta é não, eu pelo menos não tenho nenhuma maquina com a versão 3.0 do Quick Report instalada para poder disponibilizar os fontes nesta versão.

 

E aproveitanto esta postagem, que comunicar que amanhã dia 10/03/2014 vou disponibilizar uma nova Unit que faz a leitura do XML de um RPS ou NFS-e.

 

Essa nova unit visa deixar mais compacta e mais claro o código, pois os nossos colaboradores estavam criando uma procedure nova para cada provedor, agora vai bastar incluir o nome do provedor a uma das listas.

 

Uma vez que temos provedor que se utiliza ainda da versão 1.00 e outros já utilizam a versão 2.00 do layout da ABRASF.

 

Obviamente ficando de fora os provedores já implementados que não seguem o ABRASF.

 

Peço a compreenção de todos, pois algo pode não funcionar de primeira, mas com o retorno de vocês, podemos lapidar essa unit.

 

Desde já muito obrigado e até segunda-feira.

[Leonardo Gregianin]

Boa tarde Victor,

 

Você se refere aos fontes do DANFSE feito em Quick Report, correto?

 

Se sim, a resposta é não, eu pelo menos não tenho nenhuma maquina com a versão 3.0 do Quick Report instalada para poder disponibilizar os fontes nesta versão.

 

E aproveitanto esta postagem, que comunicar que amanhã dia 10/03/2014 vou disponibilizar uma nova Unit que faz a leitura do XML de um RPS ou NFS-e.

 

Essa nova unit visa deixar mais compacta e mais claro o código, pois os nossos colaboradores estavam criando uma procedure nova para cada provedor, agora vai bastar incluir o nome do provedor a uma das listas.

 

Uma vez que temos provedor que se utiliza ainda da versão 1.00 e outros já utilizam a versão 2.00 do layout da ABRASF.

 

Obviamente ficando de fora os provedores já implementados que não seguem o ABRASF.

 

Peço a compreenção de todos, pois algo pode não funcionar de primeira, mas com o retorno de vocês, podemos lapidar essa unit.

 

Desde já muito obrigado e até segunda-feira.

 

Muito bom Ítalo, ficou bem mais claro de se enteder o código. Vou testar.

[Italo Giurizzato Junior]

Bom dia Leonardo,

 

Atualize os fontes e teste por favor, detectando algum problema, de um retorno.

[Renato Santana]

Bom dia Senhores 

preciso de uma ajuda, na function TProvedorGinfesV3.GetRetornoWS(Acao: TnfseAcao; RetornoWS: AnsiString): AnsiString;

 

esta dando erro de não estar declarado o SeparaDados

alquem pode me ajudar onde eu declaro 

[Rômulo da Costa de Souza]

Boa Tarde Italo

 

    Tive que fazer umas Mudanças nos fontes, porque estava com problemas ao consultar uma nota utilizando um RPS, estava pegando o CNPJ do tomador do serviço para montar o xml de consulta isso no provedor Betha, já no provedor Digifred quando efetuava um cancelamento de uma NFSe não estava setando a tag CNPJ, com o CNPJ do prestador do serviço, estou enviando os arquivos para análise.

 

Desde já Agradeço a atenção.

ACBR_NFSe.rar

[Italo Giurizzato Junior]

Boa tarde Rômulo,

 

Muito obrigado pela colaboração, já esta disponivel a sua alteração.

[Lucas Koepsel]

Bom dia Italo, tudo bem com você?

 

a função ImprimeCanhoto do QuickReport da NFSe nao está funcionando. a estou ativando mas nao esta saindo no pdf.

[Italo Giurizzato Junior]

Bom dia Lucas,

 

Vamos a pergunta classica, todos os fontes de todas as pastas estão atualizados?

 

No papel o canhoto é impresso, mas ao gerar o PDF não aparece, é isso que ocorre?

[Juliomar Marchetti]

Terá que efetuar o checkout do svn mas usando somente esta parte do endereço 

svn://svn.code.sf.net/p/acbr/

[lincoln]

ola italo boa tarde, a mina rps estva tudo certo deois que atualizei o componente esta dando erro

segue o ero se puder me ajduar muitoobrigado

 

   NFSeRetorno.TabServicosExt := FConfiguracoes.Arquivos.TabServicosExt;

 

undeclared identifier

 

no aguardo muito obrigado

[jeffdelphi]

Boa noite, Estou com problemas com o provedor SpeedGov, teria como adicionar a cidade de Petrolina-PE? Fiz algumas alterações no arquivo, não sei com proceder para as alterações mais irei informa os arquivos e alterações efetuadas:

 

Arquivo ACBrNFSeWebServices.pas

 

adicionado o provedor proSpeedGov em function GetLastErrorText: string;

 

 if not (FProvedor in [proGovBr, proSimplISS, proAbaco, proISSNet, pro4R, proSpeedGov,

                       proFiorilli, proProdata, proCoplan, proThema, proVirtual,

                       proPVH, proFreire, proTecnos, proPronim, proPublica, proEgoverneISS])

 

Arquivo ACBrProvedorSpeedGov.pas em function TProvedorSpeedGov.GetConfigURL(ACodCidade: Integer): TConfigURL;

 

  2611101: begin // Petrolina/PE

            ConfigURL.HomNomeCidade := 'pet';

            ConfigURL.ProNomeCidade := 'pet';

           end;

 

 

Arquivo pnfsConversao.pas em function CodCidadeToProvedor(const ACodigo: Integer): string;

 

  2301000,  // Aquiraz/CE

  2611101  // Petrolina/PE

         : Provedor := 'SpeedGov';

 

 

já consigo enviar o RPS, assim que enviado dar o erro de conversão, e logo após não consigo consultar através da ACBrNFSe1.ConsultarNFSeporRps, mais a mesma ja fica no estado processando, alguém poderia me ajudar.

 

Obrigado

Jefferson M Correia

[email protected]

Petrolina-PE

 

 

[Italo Giurizzato Junior]

Bom dia Lincoln,

 

Você tem certeza que todos os fontes estão atualizados?

 

Não tem nenhum deles com uma bolinha vermelha ou triangulo amarelo?

[Italo Giurizzato Junior]

Bom dia Jefferson,

 

Erro de conversão? 

 

Isso é um erro no componente ou trata-se de uma rejeição do provedor?

 

Se é no componente em qual unit ocorre, em qual linha?

[marcopoloviana]

Bom dia Lincoln,

 

Você tem certeza que todos os fontes estão atualizados?

 

Não tem nenhum deles com uma bolinha vermelha ou triangulo amarelo?

Bom dia Italo,

 Estou com mesmo problea e estao todos os arquivos atualizados. Erro na mesma linha de TabServicosExt... na pasta tem o arquivo Tabservicos.txt mas nao achei nenhuma orientacao e nenhum post com orientacao sua, conforme citado pelo Juliomar Machetti, sobre um post seu como que deve ser feito.  abs

[Juliomar Marchetti]

Bom dia Italo,

 Estou com mesmo problea e estao todos os arquivos atualizados. Erro na mesma linha de TabServicosExt... na pasta tem o arquivo Tabservicos.txt mas nao achei nenhuma orientacao e nenhum post com orientacao sua, conforme citado pelo Juliomar Machetti, sobre um post seu como que deve ser feito.  abs

Chegou a ler o post dele (Italo), perguntando sobre os arquivos do svn se estão todos ok e sem bolinha vermelha?

[marcopoloviana]

Chegou a ler o post dele (Italo), perguntando sobre os arquivos do svn se estão todos ok e sem bolinha vermelha?

1 - relatamos q foi feita atualizacao;

2 - confirmamos q nao tem nada em vermelho ou amarelo, TUDO FOI ATUALIZADO

3 - continuo aguardando link pra o tal post com orientacao do italo ou de qualquer pessoa que tenha o erro ou saiba a solucao mesmo sem ter passado pelo erro.

 

Acho que ganhamos mais tempo sendo diretos ao assunto do que respondendo com perguntas noa acham?, principalmente quando as respostas ja estao no post...

 

abs

[Dênio Galdino]

Boa Tarde, não estou conseguindo compilar o exemplo em Delphi da NFSe.

Por algum motivo não consigo instalar corretamento o QuickReport. E quando tento compilar tenho outro erro.

Vou anexar as duas imagens, se algum puder me ajudar, já estou a duas semanas sofrendo com a NFS de Belo Horizonte.

 

[Juliomar Marchetti]

1 - relatamos q foi feita atualizacao;

2 - confirmamos q nao tem nada em vermelho ou amarelo, TUDO FOI ATUALIZADO

3 - continuo aguardando link pra o tal post com orientacao do italo ou de qualquer pessoa que tenha o erro ou saiba a solucao mesmo sem ter passado pelo erro.

 

Acho que ganhamos mais tempo sendo diretos ao assunto do que respondendo com perguntas noa acham?, principalmente quando as respostas ja estao no post...

 

abs

Bom você não respondeu se recompilou os pacotes, atualizar o svn é uma coisa recompilar eles é outra!!

 

estamos na tentativa e erro, no caso não temos  o seu ambiente aqui, nem sabemos o que você no  micro então é na base da pergunta e resposta

se tiver modo diferente pra resolver favor postar que podemos estar usando esse novo método!

[Juliomar Marchetti]

Boa Tarde, não estou conseguindo compilar o exemplo em Delphi da NFSe.

Por algum motivo não consigo instalar corretamento o QuickReport. E quando tento compilar tenho outro erro.

Vou anexar as duas imagens, se algum puder me ajudar, já estou a duas semanas sofrendo com a NFS de Belo Horizonte.

Boa tarde, seu problema pode estar em ter ainda a versão que veio com o delphi instalado nele e juntamente a outra!

também verifique se os bpl estão no local correto no caso do delphi 7

[marcopoloviana]

Bom você não respondeu se recompilou os pacotes, atualizar o svn é uma coisa recompilar eles é outra!!

 

estamos na tentativa e erro, no caso não temos  o seu ambiente aqui, nem sabemos o que você no  micro então é na base da pergunta e resposta

se tiver modo diferente pra resolver favor postar que podemos estar usando esse novo método!

 

Sim, atualização efetuada, recompilação e instalação com sucesso, Delphi 7. Na realidade, renomeei a pasta acbr anterior e baixei tudo de novo e refiz a instalação. Segue linha e msg do erro no ACBrNFSeWebServices:

Linha 3345:

NFSeRetorno.TabServicosExt := FConfiguracoes.Arquivos.TabServicosExt;

Erro:

Unideclared identifier  'TabServicosExt;'

 

 

Linha3489:

if FConfiguracoes.Arquivos.NomeLongoNFSe then

Erro:

Unideclared identifier  'NomeLongoNFSe'

 

 

 

Abs

[Juliomar Marchetti]

Sim, atualização efetuada, recompilação e instalação com sucesso, Delphi 7. Na realidade, renomeei a pasta acbr anterior e baixei tudo de novo e refiz a instalação. Segue linha e msg do erro no ACBrNFSeWebServices:

Linha 3345:

NFSeRetorno.TabServicosExt := FConfiguracoes.Arquivos.TabServicosExt;

Erro:

Unideclared identifier  'TabServicosExt;'

 

 

Linha3489:

if FConfiguracoes.Arquivos.NomeLongoNFSe then

Erro:

Unideclared identifier  'NomeLongoNFSe'

 

 

 

Abs

Vamos tratar o assunto em um único local?

continuemos somente em 

[jeffdelphi]

Boa noite italojr, na realidade acho que o erro vem do componente. pois o arquivo fica no servidor, é processado e aceito, ao usar ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName) nao abre o arquivo xml no uso do ACBrNFSe1.ConsultarNFSeporRps, consigo enviar normalmente, erro acontece somente na ConsultarNFSeporRps. Como se ele não conseguisse abrir o arquivo xml. existe alguma possibilidade para incluir a cidade de Petrolina-PE para o servidor SpeedGov?

 

Obrigado

Jefferson M Correia

[email protected]

Petrolina-PE

[Italo Giurizzato Junior]

Boa noite Marco,

 

O componente possui na unit pnfsConversao.pas uma function onde informamos o código do serviço e este retorna a sua descrição.

 

O que eu fiz foi possibilitar uma segunda alternativa onde você determina se deseja a descrição que encontra-se na unit ou no arquivo chamado TabServicos.txt

 

O componente agora possui uma propriedade chamada TabServicosExt cujo valor padrão False.

 

Detalhe importante o arquivo TabServicos.txt tem que ser salvo na mesma pasta do executável.

[Italo Giurizzato Junior]

Boa noite Dênio,

 

Vasculhe o HD da maquina em busca do arquivo qrpt70.bpl se não me falha a memória é esta extensão.

 

Ao encontrar renomeie esse arquivo para qrpt70_xxx, isso deve resolver o problema.