Otavio Mafessoni
Membros-
Total de ítens
28 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Otavio Mafessoni postou
-
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.
-
Bom dia Juliana, Por enquanto nada...Cobrei uma posição deles hoje novamente, mas ainda estou aguardando.
-
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!
-
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
-
Boa tarde pessoal, Estou aguardando uma posição do banco sobre isso...
-
Boa tarde, Em anexo está o manual de cobrança enviado hoje pelo pessoal do banco. ManualCBRcnab240.pdf
-
@Juliana Tamizou Segue em anexo...IEDCBR4987604202024748.ret
-
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.
-
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
-
@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
-
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;
-
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.
-
@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.
-
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?
-
Muito obrigado, facilitou muito. Abraço.
-
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?
-
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/
-
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!
-
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
-
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.
-
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.
-
Italo, Desculpa, mas não entendi... Eu estou enviado 3.10 na propriedade infNFe.Versao <infNFe Id="NFe41150409610964000126550020000048391308237668" versao="3.10">
-
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 41150409610964000126550020000048741670855641-nfe.xml
-
Kiko, estão sim, ate porque existem os campos para alimentar, de qualquer coisa irei atualizar novamente, e postarei se houve mudanças.
-
em anexo... 41150409610964000126550020000048481849331470-NFe.xml