Novos Fontes do ACBrNFSe

[Juliomar Marchetti]

Hum 

então abra o arquivo de exemplo e veja senão é o form ou datamodule onde está o componente que ficou como problema modifiquei e recompile

[Luighi]

Hum 

então abra o arquivo de exemplo e veja senão é o form ou datamodule onde está o componente que ficou como problema modifiquei e recompile

 

 

Como? nao entendi a sua dica pode explicar melhor?

[Juliomar Marchetti]

Como? nao entendi a sua dica pode explicar melhor?

Você falou que o problema está no exemplo? então abra os fontes desse exemplo e  faça alguma mudança no form e recompile o projeto de exemplo

com certeza irá sanar seu problema

[Luighi]

Você falou que o problema está no exemplo? então abra os fontes desse exemplo e  faça alguma mudança no form e recompile o projeto de exemplo

com certeza irá sanar seu problema

 

Tentei modificar algo e o mesmo erro aconteceu...

 

Fui debugando e o erro extoura no metodo: procedure TACBrNFSeDANFSeQR.ImprimirDANFSe(NFSe : TNFSe = nil);

 

logo apos a linha:

fqrDANFSeQRRetrato := TfqrDANFSeQRRetrato.Create(Self);

 

quando ele vai criar o formulário....

[Italo Giurizzato Junior]

Bom dia Luighi,

 

Você esta compilando a aplicação com a opção Build que esta no menu Project?

 

Não existe nenhuma DCU antiga perdida ?

 

O Delphi esta configurado para salvar os arquivos DCU em uma pasta especifica ou são salvos na mesma pasta do fonte (padrão) ?

[Luighi]

Bom dia Luighi,

 

Você esta compilando a aplicação com a opção Build que esta no menu Project?

 

Não existe nenhuma DCU antiga perdida ?

 

O Delphi esta configurado para salvar os arquivos DCU em uma pasta especifica ou são salvos na mesma pasta do fonte (padrão) ?

 

 

Bom dia,

 

Consegui resolver o problema ontem, no fim da tarde o problema era a versão antiga do QuickReport 4, pois mesmo deletando ele do Delphi ele deixa rastros na maquina em uma pasta, ai quando eu mandava executar ele entrava nessa pasta da versão antiga. O QuickReport 5.02 estava instalado corretamente.

Após elimina-lá, funcionou normalmente.

 

Obrigado pela atenção. Até...

[Rômulo da Costa de Souza]

Boa tarde Pessoal

Gostaria de ver com vcs, se alguem já fez algum teste de NFSe para a cidade de Santa Rosa-RS?

[Lucas Koepsel]

Pessoal,

 

para solucionar o meu caso, peguei o schemas da prefeitura, e percebi que o arquivo que eles disponibilizaram é antigo, porém reduziram os problemas...

 

além disto, precisei realizar as seguintes alterações:

 

unit pnfsNFSeW

modificacao linha 310

 

de

if FProvedor <> proGovBR

      then Gerador.wCampoNFSe(tcDe2, '#22', 'ValorIssRetido', 01, 15, 0, NFSe.Servico.Valores.ValorIssRetido, '')

      else Gerador.wCampoNFSe(tcDe2, '#22', 'ValorIssRetido', 01, 15, 1, NFSe.Servico.Valores.ValorIssRetido, '');

 

para

 if FProvedor = proGovBR

      then Gerador.wCampoNFSe(tcDe2, '#22', 'ValorIssRetido', 01, 15, 0, NFSe.Servico.Valores.ValorIssRetido, '')

 

modificacao

 

if FProvedor in [proFreire, ProGovBR]

     then begin

       Gerador.wCampoNFSe(tcDe2, '#27', 'DescontoIncondicionado', 01, 15, 1, NFSe.Servico.Valores.DescontoIncondicionado, '');

       Gerador.wCampoNFSe(tcDe2, '#28', 'DescontoCondicionado  ', 01, 15, 1, NFSe.Servico.Valores.DescontoCondicionado, '');

     end

     else begin

       Gerador.wCampoNFSe(tcDe2, '#27', 'DescontoIncondicionado', 01, 15, 0, NFSe.Servico.Valores.DescontoIncondicionado, '');

       Gerador.wCampoNFSe(tcDe2, '#28', 'DescontoCondicionado  ', 01, 15, 0, NFSe.Servico.Valores.DescontoCondicionado, '');

     end;

 

para

 

if FProvedor in [proFreire]

     then begin

       Gerador.wCampoNFSe(tcDe2, '#27', 'DescontoIncondicionado', 01, 15, 1, NFSe.Servico.Valores.DescontoIncondicionado, '');

       Gerador.wCampoNFSe(tcDe2, '#28', 'DescontoCondicionado  ', 01, 15, 1, NFSe.Servico.Valores.DescontoCondicionado, '');

     end

     else begin

       Gerador.wCampoNFSe(tcDe2, '#27', 'DescontoIncondicionado', 01, 15, 0, NFSe.Servico.Valores.DescontoIncondicionado, '');

       Gerador.wCampoNFSe(tcDe2, '#28', 'DescontoCondicionado  ', 01, 15, 0, NFSe.Servico.Valores.DescontoCondicionado, '');

     end;

 

 

gostaria da sugestão de vocês quanto as mudanças.

[gguarezi]

Bom dia Ítalo!

Tudo bem?

 

Estou implementando a NFSe para o município de Macapá/AP, fui testar a transmissão para o webservice da Fiorilli, porém quando configuro código do município de Macapá, o programa retorna um erro "Código do Município [1600303] não encontrado". Debugando os fontes percebi que não havia a conversão do município para o provedor na função CodCidadeToProvedor() existente na unit pnfsConversao. Vendo isso, implementei a conversão, gostaria de saber como faço para contribuir com o projeto, pois penso que mais pessoas possam vir a ter o mesmo problema que eu quando necessitarem desenvolver a NFSe para Macapá/AP. Gostaria de saber também se procedi da maneira correta, pois não tenho muita experiência no desenvolvimento de NFSe e utilização do componente.

 

Att

Gabriel Guarezi

[ALA]

Lucas as alterações que vc realizou foi para qual prefeitura ? Qual era o problema ?

[Lucas Koepsel]

PRefeitura de Catanduva/SP

nao validava o XML

[Rigotti]

Boa tarde, também estou com problemas para envia para GovBr, município de Ijui/Rs, já faz uns dias que não estava sendo possível emitir mas estava correndo uma briga por causa do ISS então achava-se que era por causa do ISS, mas no retorno passado pela prefeitura o erro é que o lote não estava sendo assinado, verifiquei nos fontes e realmente está para não assinar, alterei para assinar o lote, porem retorna outro erro de  "Linha: 1 - Coluna: 789 - O elemento 'Valores' apresenta elemento filho 'ValorIssRetido' invalido. Lista de possiveis elementos esperados: 'OutrasRetencoes, BaseCalculo, Aliquota'.". No meu xml ele gera a tag "ValorIssRetido", mesmo eu não informando nenhum valor. Segue em anexo o modelo de xml que me foi passado pela prefeitura e os shcemas.

lotexml.xml

serviços a serem consumidos (1).rar

[ALA]

Estou com o mesmo problema para Contagem/MG

 

Editado 24 Janeiro, 2014 por ALA

[Elias Rodrigues]

Também estou com problema em Contagem. toda consulta que faço para Contagem /MG da o seguinte erro "Erro Desconhecido ao Consultar a Situação do Lote!" consequentemente  não consigo pegar o retorno da nota. Isso ocorreu após a última atualização.

[ALA]

Estou com o mesmo problema. Para minimizar estou realizando a consulta por RPs.

[Elias Rodrigues]

tentei essa opção e da o seguinte erro: "Erro Desconhecido ao Consultar a NFS-e por RPS!"

[ALA]

Estou utilizando desta forma:

 

  mem_Retorno.Lines.Clear;
               mem_RetornoWS.Lines.Clear;
               Nfe.ACBrNFSe.NotasFiscais.Clear;
               Nfe.ACBrNFSe.NotasFiscais.LoadFromFile(opn_DlgAbrir.FileName);
               lcst_Numero_RPS := Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero;
               lcst_Data_Rps   := Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps;
               Nfe.ACBrNFSe.ConsultarNFSeporRps( Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                                 Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                                 TipoRPSToStr( Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo),
                                                 Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.Cnpj,
                                                 Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal);
               mem_Retorno.Lines.Text   := UTF8Encode(Nfe.ACBrNFSe.WebServices.ConsNfseRps.RetWS);
               mem_RetornoWS.Lines.Text := UTF8Encode(Nfe.ACBrNFSe.WebServices.ConsNfseRps.RetWS);
               if Trim( Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao ) <> EmptyStr then
               begin
                     ShowMessage( 'Código de Verificação: ' + Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao );
                     lcst_Arquivo  := NFe.ACBrNFSe.Configuracoes.Arquivos.PathNFSe + '\' + FormatDateTime( 'yyyymm', Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissao ) + '\NFSe\' + Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero + '-nfse.xml';
                     if not FileExists( lcst_Arquivo ) then
                        lcst_Arquivo  := NFe.ACBrNFSe.Configuracoes.Arquivos.PathNFSe + '\' + FormatDateTime( 'yyyymm', Date ) + '\NFSe\' + Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero + '-nfse.xml';

                    { // GRAVAR O PROTOCOLO NO BD
                     lcst_Arquivo  := NFe.ACBrNFSe.Configuracoes.Arquivos.PathNFSe + '\' + FormatDateTime( 'yyyymm', StrToDate( Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Competencia ))+ '\NFSe\' + Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero + '-nfse.xml';
                     mem_Retorno.Lines.SaveToFile( lcst_Arquivo );}
                     NFe.ACBrNFSe.NotasFiscais.Clear;
                     NFe.ACBrNFSe.NotasFiscais.LoadFromFile( lcst_Arquivo );

                     // BUSCA O XML DA NFE E GRAVA OS DADOS ABAIXO //
                     if DM_GERALNFE.AtualizarNotaFiscal( NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero, // numero da nfe gerado pela prefeitura
                                                         EmptyStr,  // numero/ protocolo
                                                         EmptyStr,  // pk
                                                         NFe.ACBrNFSe.NotasFiscais.Items[0].XML,
                                                         utco_ArquivoGerado,
                                                         EmptyStr,
                                                         EmptyStr,
                                                         NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao,
                                                         utco_NFe_Autorizada,
                                                         lcst_Arquivo,
                                                         NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps, // data de emissao da nfe do Dygnus
                                                         lcst_Numero_RPS   )  then                               // número da NF no Dygnus
                     begin
                        if Application.MessageBox( PChar( 'A Nota Fiscal ' + LeftZeroFill( StrToInt64( NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero) , 6 ) +' foi atualizada com sucesso. Deseja Imprimir o DANFE ?' ) ,'Confirmação', MB_YESNO+MB_ICONQUESTION ) = idYes then
                        begin
                           NFe.ACBrNFSe.NotasFiscais.Clear;
                           NFe.ACBrNFSe.NotasFiscais.LoadFromFile( lcst_Arquivo );
                           if FileExists( lcst_Arquivo ) then
                              Imprimir_DANFSe( False )
                           else
                              ShowMessage( 'Arquivo não encontrado para impressão do DANFSe: ' + lcst_Arquivo );
                        end;
                        pc_Principal.ActivePageIndex  := 0;
                     end;
               end; // if

[Elias Rodrigues]

Ala tem como você me mandar os xsd que você está usando?

[ALA]

Em anexo

[Elias Rodrigues]

da o mesmo erro pesquisando o Schema. Você que no Webservice da Prefeitura tudo que você envia fica em processamento?

[Rômulo da Costa de Souza]

Boa Tarde italojjr

Andei fazendo uns ajustes para a cidade de Uruguaiana-RS, onde utilizava o Provedor GovBr, porém não está funcionando, ai mudei para o provedor Pronim e funcionou corretamente, até mesmo já está em um cliente meu e tambem para Frederico Westphalen-RS, provedor Digifred, estou enviando os fontes e gostaria que vc analisasse e se possivel disponibilizasse na versão.

 

Desde Já Obrigado pela Atenção.

Arquivos.rar

[Italo Giurizzato Junior]

Boa noite Rômulo,

 

Muito obrigao, vou analisar e assim que possível vou disponibilizar.

[lucascr]

Boa tarde,

 

Baixei os fontes pelo SVN, mas não veio a pasta ...\Fontes\ACBrNFSe 

 

Alguém pode me ajudar...

[Juliomar Marchetti]

Tem certeza que está usando o endereço correto do svn

veja abaixo em minha assinatura tem o link com a explicação do endereço !

[EFV]

Ola pessoal novamente venho a pedir auxilio, estou começando a desenvolver o modulo nfse em meu sistema só que não tenho nem ideia por onde começar eu quero desenvolver para o servidor betha, gostaria de saber alguém pode disponibilizar algum modelo do layout, para que eu possa me basear no modelo para eu desenvolver o meu, desde já conto com a colaboração dos colegas obrigado