[Gerar PDF Boleto Banco do Brasil registrado via API]

Boa tarde, pode encerrar o tópico, consegui resolver.

 

Grato pelo auxilio.

[NFSe Receife]

Boa tarde, pode encerrar o tópico, consegui resolver.

 

Obrigado pelo auxilio.

[Gerar PDF Boleto Banco do Brasil registrado via API]

Obrigado pelo retorno Juliomar.

Irei revisar as configurações, como no fortes sempre cai na condição em anexo, ainda não consegui identificar fácil a impressão da linha digitavel retornada no registro.

Talvez esteja no local errado tbm, irei olhar o exemplo novamente, pois a UNIT ACBrBoletoFCFortesFr está desta forma.

 

 

[Gerar PDF Boleto Banco do Brasil registrado via API]

Boa tarde!

Consegui realizar a utilização do Banco do Brasil via API, porém verifiquei não o PDF gerado altera a linha digitavel retornada no registro.

Há alguma forma de imprimir essa linha digitável? Verifiquei no componente ao imprimir, ele sempre monta a linha digital.

 

[Dados de duplicata em danfe fastreport não aparece]

Ao gerar o DANFE FastReport, não é dastacado as informações de duplicata.

 

Verificado no arquivo ACBrNFeDAFEFRDM existe o método CarregaDuplicatas, onde está com o seguinte código:

 

procedure TACBrNFeFRClass.CarregaDuplicatas;
var
  i: Integer;
begin
  cdsDuplicatas.Close;
  cdsDuplicatas.CreateDataSet;
  if (FDANFEClassOwner is TACBrNFeDANFEClass) and
     Not ((TACBrNFeDANFEClass(FDANFEClassOwner).ExibeCampoFatura) and
          (FNFe.Ide.indPag = ipVista) and (FNFe.infNFe.Versao <= 3.10)) then
  begin

    with cdsDuplicatas do
    begin
      for i := 0 to (NFe.Cobr.Dup.Count - 1) do
      begin
        Append;
        with FNFe.Cobr.Dup[i] do
        begin
          FieldByName('ChaveNFe').AsString  := FNFe.infNFe.ID;
          FieldByName('NDup').AsString      := NDup;
          FieldByName('DVenc').AsString     := FormatDateBr(DVenc);
          FieldByName('VDup').AsFloat       := VDup;
        end;
        Post;
      end;
    end;
  end;
end;

 

 

Alterado para:

 

procedure TACBrNFeFRClass.CarregaDuplicatas;
var
  i: Integer;
begin
  cdsDuplicatas.Close;
  cdsDuplicatas.CreateDataSet;
  if   Not ((TACBrNFeDANFEClass(FDANFEClassOwner).ExibeCampoFatura) and
          (FNFe.Ide.indPag = ipVista) and (FNFe.infNFe.Versao <= 3.10)) then
  begin

    with cdsDuplicatas do
    begin
      for i := 0 to (NFe.Cobr.Dup.Count - 1) do
      begin
        Append;
        with FNFe.Cobr.Dup[i] do
        begin
          FieldByName('ChaveNFe').AsString  := FNFe.infNFe.ID;
          FieldByName('NDup').AsString      := NDup;
          FieldByName('DVenc').AsString     := FormatDateBr(DVenc);
          FieldByName('VDup').AsFloat       := VDup;
        end;
        Post;
      end;
    end;
  end;
end;

É apresentado corretamente da forma citada, para facilitar irei anexar os dois arquivos, com e sem modificação.

Caso tenha alguma sugestão ou orientação, favor compartilhar.

 

Grato!ACBrNFeDANFEFRDM.pasACBrNFeDANFEFRDM Modificado.pasACBrNFeDANFEFRDM Modificado.pasACBrNFeDANFEFRDM.pas

[NFSe Receife]

Bom dia!

 

Estou iniciando a emissão de NFSe para Recife, utilizando já o componente ACBrNFSeX.

O Rps está sendo enviado e está chegando na prefeitura corretamente, porém não consigo o retorno. Desta forma, não consigo via aplicação imprimir o danfe após a emissão.

Alguém que já emite para esse muncipio, consegue me auxiliar nas configurações do componente? 

Consegui fazer a emissão somente no assincrono.

[Erro ao enviar NFSex Aparecida de Goiânia X999]

Boa tarde!

Passei por essa situação e o problema era o código do item serviço que estava errado com o CNAE que estava sendo utilizado, depois de corrigir, a nota foi emitida com sucesso.

[Retorno vazio municipio Goiânia/GO]

Bom dia!

Emitindo normalmente.

[Retorno vazio municipio Goiânia/GO]

Bom dia, acabei de tentar e ainda a mesma situação.

Vou tentar contato com o provedor.

[Retorno vazio municipio Goiânia/GO]

Boa tarde!

 

Acessei nfse.goiania.go.gov.br/ws/nfse.asmx?WSDL normalmente, porém estou com a mesma situação dos demais, xml retornando vazio.

Tentando contato com provedor, se alguém tiver noticias, reportar para os demais.

 

Grato!

[Tipo de instrução 09 em remessa bancária BRB]

Bom dia!

 

Obrigado pelo retorno, estarei realizando atualização.

 

Pode fechar o tópico por gentiliza, agreço a todos envolvidos no processo e até a próxima.

[Tipo de instrução 09 em remessa bancária BRB]

Bom dia.

O banco me passou que essa informação deve ser preenchida 09 para indicar instrução de protesto. Estou anexando a resposta do banco solicitando a inclusão do valor e depois de alterado a resposta confirmando a homologação.

[Tipo de instrução 09 em remessa bancária BRB]

Esse retorno foi feito pelo banco, e a unit atual possivelmente foi feita conforme a necessidade de algum usuário, pois não localizei a regra no layout.

Estou anexando o layout que o banco forneceu.

 

 

BRB Cobrança - Manual e Leiaute.zip

[Tipo de instrução 09 em remessa bancária BRB]

Bom dia.

 

Alteração foi feita na procedure GerarRegistroTransacao400, na linha 314. Estava com        if Trim(Instrucao1) = '00' then e alterei para   if AnsiMatchText(Trim(Instrucao1),['00', '01']) = True then.

 

Anexando a parte do código alterado.

[Tipo de instrução 09 em remessa bancária BRB]

Ao gerar uma remessa bancária, por mais que as informações de instrução 1 e 2 estejam preecnhidas, as mesmas são sobrepostas conforme validações de juros e multa.

 

Para manter a informação que precisava, tive que fazer um ajuste na unit do brb e a homologação com banco deu certo.

 

Estou anexando o arquivo para análise e se estiver em conformidade, publicar no svn.

Aguardo retorno, obrigado.

ACBrBancoBRB.pas

[Ajustado arquivo de impressão NFCe com zoom forts]

Ao realizar a prévia de impressão da NFCe utilzando o forts, quando aplicado o zoom algumas informações são ocultadas.

Realizei alteração de alinhamento das informações e resolveu o problema.

 

Estou anexando o arquivo para análise e se estiver correto disponibilizar no SVN.

 

Obrigado.

ACBrDANFCeFortesFr.dfm

[Item Lista Serviço provedor proISSNet]

Bom dia!

Estou realizando a migração e não usarei mas o componente depreciado.

 

Favor, fechar o tópico.

 

Obrigado.

[Item Lista Serviço provedor proISSNet]

Bom dia Italo.

 

Obrigado pelo retorno.

 

Vou migrar o projeto para o novo componente.

 

Grato.

[Item Lista Serviço provedor proISSNet]

Estou tentando emitir uma nota fiscal de serviço via RSP para o provedor proISSNet no municipio de Aparecida de Goiania com o item 1.07 que pertence ao CNAE 6209100.

Estou recebendo esssa excessão O item LC 116/2003 informado nao corresponde ao CNAE informado Numero do RPS em que ocorreu o erro: 200 Entre em contato com a prefeitura ou informe o item LC 116/2003 correto.

O que ocorre é o seguinte, na unit pnfseNFSeR na procedure SetxItemListaServico, é ajustado o codigo do item para 4(quatro) digitos com finalidade de buscar a descrição (pnfsConversao>CodigoToDesc) do serviço para gerar o rps. Reparando nos codigos dos itens, muitos divergem do que está disponivel no site http://sped.rfb.gov.br/pagina/show/1601, foi adicionado um zero a esquerda.

Verificado que no provedor ProTecnos, proBHISS já implementaram uma opção para remover os zeros a esquerda. Adicionei o provedor proISSNet e consegui realizar a emissão corretamente.

Estou anexando o arquivo que realizei alteração para emitir a Nota, no método SetxItemListaServico.

Favor, verificar se está correto o ajuste para disponibilizar no SVN.

Obrigado.

pnfsNFSeR.pas

[Alteração de arquivos ACBrGNREWebServices e pgnreRetConsConfigUF para retorno de configuração da UF conforme receita indicada]

Testei com 2 duas receitas das ufs disponiveis para gerar GNRe, validando com as informações que são apresentadas diretas pelo portal gnre

[Alteração de arquivos ACBrGNREWebServices e pgnreRetConsConfigUF para retorno de configuração da UF conforme receita indicada]

Boa tarde.

 

Estou fazendo uma implementação que é referente a emissão da GNRE, e para tratar possiveis erros na aplicação, estou usando o método de consulta configuração da UF.

Porém não é retornada todas as informações. Como é uma informação relevante, implementei mais informações do retorno.

Estou anexando os arquivos que foram alterados para serem avaliados e se estiver tudo certo, promover para que demais usuários tenham acesso.

Aguardo retorno, obrigado.

pgnreRetConsConfigUF.pas ACBrGNREWebServices.pas

[CPFCNPJTomador informado incorretamente]

Bom dia Italo,

Obrigado pelo retorno e prestatividade.

[CPFCNPJTomador informado incorretamente]

Acabei conseguindo emitir a NFSe.

 

Tiver alterar o arquivo pnfsNFSeR. Estou anexando o arquivo modificado para validação.

Na linha 454, alterei o codigo para:

 

      if (Leitor.rExtrai(4, 'IdentificacaoTomador') <> '') or
         (Leitor.rExtrai(3, 'IdentificacaoTomador') <> '') then
      begin
        NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal := Leitor.rCampo(tcStr, 'InscricaoMunicipal');

        if (Leitor.rExtrai(4, 'CpfCnpj') <> '') or (Leitor.rExtrai(5, 'CpfCnpj') <> '') then Acrescentei a verificação no nível 4
        begin
          if Leitor.rCampo(tcStr, 'Cpf') <> '' then
            NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cpf')
          else
            NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cnpj');
        end;
      end;

 

Antes estava:

 

      if (Leitor.rExtrai(4, 'IdentificacaoTomador') <> '') or
         (Leitor.rExtrai(3, 'IdentificacaoTomador') <> '') then
      begin
        NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal := Leitor.rCampo(tcStr, 'InscricaoMunicipal');

        if Leitor.rExtrai(5, 'CpfCnpj') <> '' then
        begin
          if Leitor.rCampo(tcStr, 'Cpf') <> '' then
            NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cpf')
          else
            NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cnpj');
        end;
      end;

 

Favor, verificar se está correto, nessa alteração que realizei, consegui emitir duas notas normalmente.

 

Aguardo o retorno.

pnfsNFSeR.pas

[CPFCNPJTomador informado incorretamente]

Boa tarde, obrigado pelo retorno.

Verificado o CPF e está correto. Alterei para um CNPJ válido e ocorreu o mesmo retorno.

 

Segue xml enviado.

 

Mandei e-mail para prefeitura mas não me deram retorno.

rps.xml

[CPFCNPJTomador informado incorretamente]

Boa tarde.

Estou realizando a emissão de um RPS para o municio de PARANATINGA - MT, e estou tendo o retorno:

Campo CPFCNPJTomador informado incorretamente. Numero do RPS em que ocorreu o erro: 5001
O campo CPFCNPJTomador e numerico e devera ter tamanho maximo de 14 digitos.

 

Ao examinar o xml gerado, as informações estão corretas, não consigo identificar o problema.

Gostaria de auxílio, estou anexando o xml enviado.

5001-rec.xml nfse-rps5001.xml