Ir para conteúdo
  • Cadastre-se

JGarcia

Membros
  • Total de ítens

    19
  • Registro em

  • Última visita

Últimos Visitantes

651 visualizações

JGarcia's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

1

Reputação

  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 Cedente.Conta. ja atualizei os fontes via SVN e nao consigo. e o banco quer para segunda feira no maximo.
  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').AsString); BDados.ACBrBoleto1.Cedente.ContaDigito := Trim(BDados.IBQuery1.FieldByName('CC_DV').AsString); 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 funcao acima esta correta. mas acredito que o acbr nao esta lendo ela. e nao sei onde ele esta buscando.
  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, Trim(Edit7.Text), // email do remetente Trim(Edit1.Text), // e-mail do destinatário Trim(Edit6.Text), // Assunto Memo1.Lines, // Mensagem cbEmailSSL, // SSL True, // Enviar em PDF sCC, // sCC nil, // Anexos True, // Pede Confirmação de Recebimento True, // Aguarda o Envio Trim(BDados.TbEmpresaNOMEEMP.Text), // Nome do remetente True); // TLS eSucesso := true; ShowMessage('01'); except on e: Exception do begin eSucesso := false; ShowMessage(e.Message); ShowMessage('02'); end; end; sCC.Free; O ShowMessage('01') é retornado em qualquer situação, dando erro ou não. Se alguem ja passou por isso... e puder me dar uma luz.. eu ficarei grato. Abraços... Jadir Garcia.
  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: <MensagemRetorno> <Codigo>E157</Codigo> <Mensagem> Usuario nao esta autorizado a utilizar esse servico para esse contribuinte. </Mensagem> <Correcao>Solicite ao contribuinte autorizacao para utilizar o servico em seu nome.</Correcao> independente de eu configurar o demo para producao ou hologacao é sempre a mesma resposta. vou anexar o lote gerado. Eu sei q devo ta fazendo algo errado, mas não consigo saber onde é a minha falha. onde eu vejo no lote ou no rps para qual ambiente esta sendo enviado? Abraços.. Jadir Garcia. 33-env-lot.xml 33-rec.xml
  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.
×
×
  • 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.