Igor Cibiac

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

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

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.

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.

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

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.

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.

Bom dia! Emitindo normalmente.

Bom dia, acabei de tentar e ainda a mesma situação. Vou tentar contato com o provedor.

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!

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.

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.

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

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.

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

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

Bom dia! Estou realizando a migração e não usarei mas o componente depreciado. Favor, fechar o tópico. Obrigado.

Bom dia Italo. Obrigado pelo retorno. Vou migrar o projeto para o novo componente. Grato.

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

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

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

Bom dia Italo, Obrigado pelo retorno e prestatividade.

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

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

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