Ir para conteúdo
  • Cadastre-se

Otavio Mafessoni

Membros
  • Total de ítens

    28
  • Registro em

  • Última visita

Tudo que Otavio Mafessoni postou

  1. 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.
  2. Bom dia Juliana, Por enquanto nada...Cobrei uma posição deles hoje novamente, mas ainda estou aguardando.
  3. 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!
  4. 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
  5. Boa tarde pessoal, Estou aguardando uma posição do banco sobre isso...
  6. Boa tarde, Em anexo está o manual de cobrança enviado hoje pelo pessoal do banco. ManualCBRcnab240.pdf
  7. @Juliana Tamizou Segue em anexo...IEDCBR4987604202024748.ret
  8. 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.
  9. 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
  10. @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
  11. 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;
  12. 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.
  13. @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.
  14. 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?
  15. Muito obrigado, facilitou muito. Abraço.
  16. 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?
  17. 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. 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!
  19. 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
  20. 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.
  21. Otavio Mafessoni

    Importação XML SAT

    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.
  22. Italo, Desculpa, mas não entendi... Eu estou enviado 3.10 na propriedade infNFe.Versao <infNFe Id="NFe41150409610964000126550020000048391308237668" versao="3.10">
  23. 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
  24. Kiko, estão sim, ate porque existem os campos para alimentar, de qualquer coisa irei atualizar novamente, e postarei se houve mudanças.
  25. em anexo... 41150409610964000126550020000048481849331470-NFe.xml
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.