Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

JGarcia

Membros
  • Content Count

    19
  • Joined

  • Last visited

Community Reputation

1 Neutral

About JGarcia

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Location
    Brasil

Recent Profile Visitors

543 profile views
  1. Boa tarde Consegui resolver // 422: Result := cobSafraBradesco; 422: Result := cobBancoSafra; Alterei essa instrução no ACBrBoleto. deu certo... Obrigado Juliana Valeu ImdSistemas pelo retorno.
  2. bom dia. uso Fast "BoletoFR.fr3". No proprio ACbrBoletoDemo que vem como exemplo, não chama essa função, o boleto sai exatamente como eu mandei acima. eu preciso mudar mesmo que seja o fonte acbr por enquanto, mas nao consigo saber qual funcao esta chamando.
  3. boa tarde Não da certo Tbem Juliana e a conta é 580712-2 nao pode ser da forma que vc citou. function TACBrBancoSafra.MontarCampoCodigoCedente( const ACBrTitulo: TACBrTitulo): string; begin with ACBrTitulo.ACBrBoleto.Cedente do begin Result := PadLeft(Agencia, 4, '0') + PadLeft(AgenciaDigito, 1, '0') + '/' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); end; end; esta função é exatamente oq o banco quer. mas o acbr não le ela e mais esta pegando Cedente.Convenio para formar o codigo do beneciario e não C
  4. ? bom dia Juliana. BDados.ACBrBoleto1.Cedente.Agencia := '1450' BDados.ACBrBoleto1.Cedente.AgenciaDigito := '0' BDados.ACBrBoleto1.Cedente.Conta := '580712' BDados.ACBrBoleto1.Cedente.ContaDigito := '2' Mas a questao esta no formato do campo O Banco quer o campo Agencia/Codigo do beneficiario dessa forma: 14500/005807122 o Acbr imprime no boleto 01450/58071-2 segue anexo
  5. Obs.. O arquivo remessa sai certinho Fontes atualizados
  6. Agência Safra: 14500 - Cuiaba Conta Safra: 580712-2 O Banco quer o campo Agencia/Codigo do beneficiario 14500/005807122 o Acbr imprime no boleto 01450/58071-2 estou passando dessa forma para o componente; 422 : BDados.ACBrBoleto1.Banco.TipoCobranca := cobBancoSafra; {422} BDados.ACBrBoleto1.Cedente.Agencia := Trim(BDados.IBQuery1.FieldByName('Agencia').AsString); BDados.ACBrBoleto1.Cedente.AgenciaDigito := Trim(BDados.IBQuery1.FieldByName('AG_DV').AsString); BDados.ACBrBoleto1.Cedente.Conta := Trim(BDados.IBQuery1.FieldByName('Conta'
  7. Bom dia Ramon. Obrigado por responder... mas não é isso não... mesmo que eu retire o eSucesso e o ShowMessage('01') e deixe apenas o precedimento EnviarEmail()... Ele não executa a exceção. Mesmo que falhe o envio..(O componente ACBR mostra a exceção) mas ela não é tratada pelo except. Abracos.... Jadir Garcia
  8. Boa tarde... Talvez ja tenha a solução em algum lugar, mas não consegui encontrar. Mas seguinte... Geração, impressão, pdf..... dos boletos tudo 100%. (Show de bola); Apenas não consigo tratar a exceção caso o envio do boleto via email falhe. A exceção é exibida na tela... mas o Try... except não a reconhece. sCC:=TStringList.Create; sCC.Clear; // Usando para add outros e-mail como Com-Cópia try ACBrBoleto1.EnviarEmail(edtSmtpHost, edtSmtpPort, edtSmtpUser, edtSmtpPass,
  9. Blz. Jeter e Anderson.. É isso mesmo, o controle é feito na hora q eu gero o boleto, basta eu alimentar a lista novamente no final do dia e gerar a remessa. Valeu mesmo pela ajuda.... Abraços...
  10. Bom dia .. Boleto 100%.... Só uma divida em relação ao gerar remessa; Tipo assim: o cliente faz varios serviços durante o dia, ou seja, emite a nfse e o boleto e entrega ao cliente dele. até aí blz. Mas como eu faço para no final do dia gerar o arquivo remessa desses boletos? sendo que o componente zera a lista de boletos caso eu saia do sistema. Abraços Jadir Garcia.
  11. JGarcia

    AcbrNFSe

    Opa.. blz.. Juliomar.. vou fazer isso.. Obrigado.. Abraços.
  12. JGarcia

    AcbrNFSe

    Bom dia Italo.. Deu tudo certo aqui comigo. NFSe 100% (Show de bola); Boleto 100%.... Só uma divida em relação ao gerar remessa; Tipo assim: o cliente faz varios serviços durante o dia, ou seja, emite a nfse e o boleto e entrega ao cliente dele. até aí blz. Mas como eu faço para no final do dia gerar o arquivo remessa desses boletos? sendo que o componente zera a lista de boletos caso eu saia do sistema. Abraços Jadir Garcia.
  13. JGarcia

    AcbrNFSe

    Blz Italo, vou continuar tentando. Abraços.
  14. JGarcia

    AcbrNFSe

    Bom dia Italo. Eu sei q vc não tem culpa por eu não estar conseguindo. Mas derrepente alguem ja pasou por isso e pode me dar uma luz. Compilei o Demo_ACBrNFSe com delphi2007 e win7 estou usando Gerar e enviar lote RPS Pedi a liberação para o ambiente de homologacao do iss.net Cuiaba, MT. Ja recebi o email de confirmacao da liberacao ja acessei o ISS.NET online com a senha q me passaram, e estão la os 50 RPS liberados para homologacao. Tenho certificado A1 valido. Configurei tudo certinho no demo Ajustei o AlimentaComponente() para homologacao no IssNet. mas o retorno é sempre o mesmo:
  15. JGarcia

    AcbrNFSe

    Bom dia Italo... grato pela sua resposta. Pelo visto vc dorme bem pouco heim. vou providenciar o cadastro e logo mais posto o resultado. Abraços... Jadir Garcia.
×
×
  • Create New...