JGarcia

Boa tarde Consegui resolver // 422: Result := cobSafraBradesco; 422: Result := cobBancoSafra; Alterei essa instrução no ACBrBoleto. deu certo... Obrigado Juliana Valeu ImdSistemas pelo retorno.

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.

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.

? 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

Obs.. O arquivo remessa sai certinho Fontes atualizados

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.

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

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.

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...

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.

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

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.

Blz Italo, vou continuar tentando. Abraços.

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

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.