Otavio Mafessoni

27 Maio, 2020

Bom dia,

Só para deixar o pessoal a parte... Minha situação foi um pouco inusitada pois o banco relatou que o código de convenio e a carteira eram muito antigos e não eram mais utilizados.

Para resolver meu problema deveria ser gerado um novo código de convenio e também utilizar outra carteira.

Ainda vou decidir o que fazer, mas aparentemente não é nada com o componente.

Agradeço pela atenção de todos que tentaram me ajudar.

22 Abril, 2020

Bom dia Juliana,

Por enquanto nada...Cobrei uma posição deles hoje novamente, mas ainda estou aguardando.

17 Abril, 2020

Pessoal, consegui resolver configurando o ACBR dessa forma.

ACBrNFe.Configuracoes.Geral.SSLLib :=libWinCrypt;
ACBrNFe.Configuracoes.Geral.SSLCryptLib :=cryWinCrypt;
ACBrNFe.Configuracoes.Geral.SSLHttpLib :=httpWinHttp;
ACBrNFe.Configuracoes.Geral.SSLXmlSignLib:=xsLibXml2;

Obrigado!

16 Abril, 2020

Bom dia pessoal,

Apos atualizar o componente, começou a não enviar as NF-e, não foi alterado nada no código, apenas atualizado.

Validei no Sefaz RS e consta o mesmo erro, pelo que li no fórum tem uma configuração "IdentarXML" marquei para false mas continua o mesmo erro.

Caso for alguma inconsistência no XML, alguém sabe como posso fazer os testes?

Adicionei em anexo um XML com o erro.

41200409610964000126550020000102871856842485-nfe.xml

15 Abril, 2020

Boa tarde pessoal,

Estou aguardando uma posição do banco sobre isso...

13 Abril, 2020

Boa tarde,

Em anexo está o manual de cobrança enviado hoje pelo pessoal do banco.

ManualCBRcnab240.pdf

13 Abril, 2020

@Juliana Tamizou Segue em anexo...IEDCBR4987604202024748.ret

13 Abril, 2020

Caso eu remova os "00" ele da o erro:Tamanho Máximo do Nosso Número é: 5

O nosso numero que eu informo é o que vem no retorno bancário, com 10 posições.

OBS: Alguns vem com digito, fica com 11 posições.

13 Abril, 2020

Bom dia,

O banco me passou essas informações...

Agencia : 0495 - 2 PATO BRANCO               Conta   :      6245 - 6
Carteira: 11 SIMPLES COM REGISTRO            Variacao: 01 - 9
Convenio: 0066826     Contrato: 12802823

9 Abril, 2020

@Juliana Tamizou Segue abaixo as informações... Tambem adicionei em anexo o boleto gerado pelo componente e outro pelo gerenciador do banco.

with AACBrBoleto do
begin
ACBrBoletoFC := AACBrBoletoFC;
ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + 'Logos';
ACBrBoletoFC.Filtro := fiNenhum;
ACBrBoletoFC.LayOut := lPadrao;
ACBrBoletoFC.MostrarPreview := True;
ACBrBoletoFC.MostrarProgresso := True;
ACBrBoletoFC.MostrarSetup := True;
AACBrBoletoFC.FastReportFile := ExtractFilePath(Application.ExeName)+'Boleto.fr3';

LayoutRemessa := c240;

Banco.TipoCobranca := cobBancoDoBrasil;
Cedente.Nome := XPert Tecnologia em Automação
Cedente.Logradouro := R. Argentina,199
Cedente.Bairro := Jardim América
Cedente.CEP := 85.502-040
Cedente.Cidade := PATO BRANCO
Cedente.UF := PR
Cedente.CNPJCPF := 01.425.713/0001-60
Cedente.NumeroRes := (46) 2101 - 0101
Cedente.Telefone := (46) 2101 - 0101
Cedente.TipoInscricao := pJuridica
Cedente.CodigoCedente := 000066826001411019
Cedente.Agencia := 0495
Cedente.AgenciaDigito := 2
Cedente.Conta := 000000006245
Cedente.ContaDigito := 6
Cedente.Convenio := 0066826
end;

Titulo := ACBrBoleto.CriarTituloNaLista;
with Titulo do
begin
Vencimento := 05/05/2020
DataDocumento := 06/04/2020
NumeroDocumento := 459144
EspecieDoc := DM
Aceite := atNao
DataProcessamento := 05/05/2020
Carteira := 11
NossoNumero := 6144712004
ValorDocumento := 655
Sacado.NomeSacado := POSTO MAGNOLIA LTDA
Sacado.CNPJCPF := 35.123.447/0007-28
Sacado.Logradouro := BR 316 KM 265
Sacado.Numero := 0
Sacado.Bairro := CENTRO
Sacado.Cidade := SANTA INES
Sacado.UF := MA
Sacado.CEP := 65.300-000
Sacado.Pessoa := pJuridica
ValorAbatimento := 0
LocalPagamento := NAO SERA ACEITO DEPOSITO EM C/C
ValorMoraJuros := 0
ValorDesconto := 0
ValorAbatimento := 0
DataMoraJuros := 05/05/2020
DataDesconto := 0
DataAbatimento := 0
DataProtesto := 0
PercentualMulta := 2
Mensagem.Text := NAO SERA ACEITO DEPOSITO EM C/C
end;

459144-Componente.pdf 459144-Banco.pdf

9 Abril, 2020

Boa tarde Juliana,

É do Banco do Brasil.

Abaixo as configurações. Falta algo sera?

with AACBrBoleto do
begin
ACBrBoletoFC := AACBrBoletoFC;
ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + 'Logos';
ACBrBoletoFC.Filtro := fiNenhum;
ACBrBoletoFC.LayOut := lPadrao;
ACBrBoletoFC.MostrarPreview := True;
ACBrBoletoFC.MostrarProgresso := True;
ACBrBoletoFC.MostrarSetup := True;
AACBrBoletoFC.FastReportFile := ExtractFilePath(Application.ExeName)+'Boleto.fr3';

case FieldByName('LAYOUT').AsInteger of
0: LayoutRemessa := c240;
1: LayoutRemessa := c400;
end;

Banco.TipoCobranca := RetornaBanco(FieldByName('CODIGO').AsInteger);
Cedente.Nome := FieldByName('Nome').AsString;
Cedente.Logradouro := FieldByName('ENDERECO').AsString + ',' + FieldByName('NUMERO').AsString;
Cedente.Bairro := FieldByName('BAIRRO').AsString;
Cedente.CEP := FieldByName('CEP').AsString;
Cedente.Cidade := FieldByName('CIDADE').AsString;
Cedente.UF := FieldByName('ESTADO').AsString;
Cedente.CNPJCPF := FieldByName('CNPJ').AsString;
Cedente.NumeroRes := FieldByName('TELEFONE').AsString;
Cedente.Telefone := FieldByName('TELEFONE').AsString;
Cedente.TipoInscricao := pJuridica;
Cedente.CodigoCedente := FieldByName('NroCedente').AsString;
Cedente.Agencia := FieldByName('NROAGENCIA').AsString;
Cedente.AgenciaDigito := FieldByName('DIGITOAGENCIA').AsString;
Cedente.Conta := FieldByName('NROCONTA').AsString;
Cedente.ContaDigito := FieldByName('DIGITOCONTA').AsString;
Cedente.Convenio := FieldByName('CONVENIO').AsString;
end;

Titulo := ACBrBoleto.CriarTituloNaLista;
with Titulo do
begin
Vencimento := qryConsulta.FieldByName('DtaVcto').AsDateTime;
DataDocumento := qryConsulta.FieldByName('DtaEmissao').AsDateTime;
NumeroDocumento := qryConsulta.FieldByName('Numero').AsString;
EspecieDoc := 'DM';

if qryContas.FieldByName('ACEITE').AsBoolean then
Aceite := atSim
else Aceite := atNao;

DataProcessamento := qryConsulta.FieldByName('DtaVcto').AsDateTime;
Carteira := qryConsulta.FieldByName('Carteira').AsString;
NossoNumero := qryConsulta.FieldByName('NossoNumero').AsString;
rVlr := TruncFloat(qryConsulta.FieldByName('Valor').AsFloat, 2, False);
ValorDocumento := rVlr;
Sacado.NomeSacado := qryConsulta.FieldByName('RAZAOSOCIAL').AsString;
Sacado.CNPJCPF := qryConsulta.FieldByName('CNPJCPF').AsString;
Sacado.Logradouro := qryConsulta.FieldByName('Endereco').AsString;
Sacado.Numero := qryConsulta.FieldByName('Numero').AsString;
Sacado.Bairro := qryConsulta.FieldByName('Bairro').AsString;
Sacado.Cidade := qryConsulta.FieldByName('Cidade').AsString;
Sacado.UF := qryConsulta.FieldByName('UF').AsString;
Sacado.CEP := qryConsulta.FieldByName('CEP').AsString;

if Length(Sacado.CNPJCPF) > 14 then
Sacado.Pessoa := pJuridica
else Sacado.Pessoa := pFisica;

ValorAbatimento := 0;
LocalPagamento := qryContas.FieldByName('LOCALPGTO').AsString;
ValorMoraJuros := qryContas.FieldByName('JUROSMORA').AsFloat;
ValorDesconto := 0;
ValorAbatimento := 0;
DataMoraJuros := qryConsulta.FieldByName('DtaVcto').AsDateTime;
DataDesconto := 0;
DataAbatimento := 0;
DataProtesto := 0;
PercentualMulta := qryContas.FieldByName('PERCMULTA').AsFloat;
Mensagem.Text := qryContas.FieldByName('INSTRUCOES').AsString;
end;

9 Abril, 2020

Estranho, meu convenio é de 7 dígitos e o banco retorna o nosso numero com 10 dígitos, mas o componente gera o nosso numero com 17 dígitos.

9 Abril, 2020

@BigWings Obrigado pela resposta.

Na verdade eu não gero o nosso numero, espero o banco processar e registro no meu sistema o mesmo código.

Mas mesmo assim... Percebi que quando imprimo o PDF pelo componente, no campo nosso numero ele adiciona na frente do código o numero do convenio, e tirando segunda via pelo próprio banco não é feito isso, talvez seja isso o meu problema, mas não sei como resolver.

9 Abril, 2020

Bom dia pessoal,

Estou com um problema e não sei como resolver.

Meu sistema gera remessa e recebe o retorno tudo certinho. Também consigo gerar o PDF do boleto, mas quando vou fazer o pagamento pelo codigo de barra ele diz que o boleto está sem registro no banco.

Mas tem registro porque eu confirmo no gerenciador do banco e esta la.

Sera alguma configuração que não estou sabendo fazer?

Alguém já teve esse problema?

18 Novembro, 2019

Muito obrigado, facilitou muito.

Abraço.

18 Novembro, 2019

Bom dia,

Estou com o mesmo problema mas no modelo DANFSEPadrao, isso ocorreu apos atualizar o componente.

@fefevilela para ajustar fez alterações direto no relatório ou alguma configuração no componente?

21 Junho, 2018

Boa tarde,

Houve alteração do Web Service do provedor Pronim na cidade de Pato Branco - PR

Novo link para o ambiente de PRODUÇÃO via Web Service Versão 2.03– XML:

http://nfse2.patobranco.pr.gov.br/nfse.portal.integracao/services.svc

Novo link para o ambiente de TESTES via Web Service da Versão 2.03 – XML é:

http://nfse2.patobranco.pr.gov.br/nfse.portal.integracao.teste/services.svc

Novo link para o ambiente de PRODUÇÃO para emissão de Nota pelo SITE:

http://nfse2.patobranco.pr.gov.br/nfse.portal

TESTES

http://nfse2.patobranco.pr.gov.br/nfse.portal.teste/

18 Abril, 2018

Exatamente.

Acabei de resolver.

O problema é que na minha função ConfigurarACBRNFe eu estava passando as seguintes configurações...

FACBrNFe.Configuracoes.Geral.SSLLib := libCapicom;
//FACBrNFe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
//FACBrNFe.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
//FACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;

Comentei as demais deixando somente a SSLLib, e validou normalmente.

Obrigado!

18 Abril, 2018

Boa tarde pessoal,

Atualizei ontem o repositório e desde então as NF-e que estamos gerando não está conseguindo assinar. Fiz algumas buscas e vários falaram que deveria ser chamado a função de assinar antes de validar, segue meu codigo..

if BuscaXML then
begin
sXmlFile := ExtractFilePath(ParamStr(0))+'nfe\env\'+Chave+'-ProcNFe.xml';
if not FileExists(sXmlFile) then
sXmlFile := ExtractFilePath(ParamStr(0))+'nfe\env\'+Chave+'-nfe.xml';

ACBRNFE.NotasFiscais.Clear;
ACBRNFE.NotasFiscais.LoadFromFile(sXmlFile);
end;

ConfigurarACBRNfe(False);
ACBRNFe.NotasFiscais[0].Assinar;
ACBRNFe.NotasFiscais[0].Validar; ////AQUI ELE DA ERRO.
Result := ACBrNFe.Enviar(NroLote);
if Result then
sMotivo := ACBrNFe.WebServices.Retorno.NFeRetorno.nRec
else sMotivo := 'Problemas no envio da nota';

Retorna esse erro...

Falha na validação dos dados da nota: 8769

1871 - Element '{http://www.portalfiscal.inf.br/nfe}NFe': Missing child element(s). Expected is one of ( {http://www.portalfiscal.inf.br/nfe}infNFeSupl, {http://www.w3.org/2000/09/xmldsig#}Signature ).

---------------------------
OK
---------------------------

Em anexo está meu XML.

Agradeço muito se alguém puder me ajudar.

41180409610964000126550020000087698132154930-nfe.xml

22 Agosto, 2016

Olá Sérgio.

Preciso importar pro meu sistema os arquivos já gerados por outro sistema, provavelmente meu cliente quer fazer alguma exportação dos dados para contabilidade.

22 Agosto, 2016

Boa tarde pessoal, tudo bem? Preciso da ajuda de vocês...

Gostaria de saber se pelo componente eu consigo fazer a importação dos XML do SAT.

Se sim, se puder me mostrar um exemplo eu ficaria muito agradecido.

Obrigado e aguardo respostas.

27 Abril, 2015

Italo, Desculpa, mas não entendi...

Eu estou enviado 3.10 na propriedade infNFe.Versao

24 Abril, 2015

Bom dia, atualizado o componente, agora gera esse erro:

Content for element '{http://www.portalfiscal.inf.br/nfe}dest'is incomplete according to the DTD/Schema.

Expecting: {http://www.portalfiscal.inf.br/nfe}indIEDest.

---------------------------

OK

---------------------------

sendo que eu informo a Tag 9

Dest.indIEDest := inNaoContribuinte;

Dest.IE := '';

41150409610964000126550020000048741670855641-nfe.xml

15 Abril, 2015

Kiko, estão sim, ate porque existem os campos para alimentar, de qualquer coisa irei atualizar novamente, e postarei se houve mudanças.

15 Abril, 2015

em anexo...

41150409610964000126550020000048481849331470-NFe.xml

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Otavio Mafessoni

Sobre nós...

Informação Importante