Ir para conteúdo
  • Cadastre-se

Victor Sagatio

Membros
  • Total de ítens

    5
  • Registro em

  • Última visita

Posts postados por Victor Sagatio

  1. Olá,

    Baixei o acbr hoje pelo SVN e quando fui compilar a aplicação deu esses erros:

    [Error] ACBrBancoBradesco.pas(641): Undeclared identifier: 'toRetornoConfirmacaoEmailSMS'
    [Error] ACBrBancoBradesco.pas(642): Undeclared identifier: 'toRetornoEmailSMSRejeitado'
    [Error] ACBrBancoBradesco.pas(643): Undeclared identifier: 'toRetornoAlterarPrazoLimiteRecebimento'
    [Error] ACBrBancoBradesco.pas(644): Undeclared identifier: 'toRetornoDispensarPrazoLimiteRecebimento'
    [Error] ACBrBancoBradesco.pas(648): Undeclared identifier: 'toRetornoAlterarSacadorAvalista'
    [Error] ACBrBancoBradesco.pas(652): Undeclared identifier: 'toRetornoProtestoImediatoFalencia'
    [Error] ACBrBancoBradesco.pas(655): Undeclared identifier: 'toRetornoChequePendenteCompensacao'
    [Error] ACBrBancoBradesco.pas(659): Undeclared identifier: 'toRetornoBaixaTituloNegativadoSemProtesto'
    [Error] ACBrBancoBradesco.pas(681): Undeclared identifier: 'toRetornoConfirmacaoPedidoExclNegativacao'
    [Error] ACBrBancoBradesco.pas(705): Undeclared identifier: 'toRetornoConfirmacaoRecebPedidoNegativacao'
    [Error] ACBrBancoBradesco.pas(729): Undeclared identifier: 'toRetornoConfirmacaoEmailSMS'
    [Error] ACBrBancoBradesco.pas(730): Undeclared identifier: 'toRetornoEmailSMSRejeitado'
    [Error] ACBrBancoBradesco.pas(730): Duplicate case label
    [Error] ACBrBancoBradesco.pas(731): Undeclared identifier: 'toRetornoAlterarPrazoLimiteRecebimento'
    [Error] ACBrBancoBradesco.pas(731): Duplicate case label
    [Error] ACBrBancoBradesco.pas(732): Undeclared identifier: 'toRetornoDispensarPrazoLimiteRecebimento'
    [Error] ACBrBancoBradesco.pas(732): Duplicate case label
    [Error] ACBrBancoBradesco.pas(736): Undeclared identifier: 'toRetornoAlterarSacadorAvalista'
    [Error] ACBrBancoBradesco.pas(736): Duplicate case label
    [Error] ACBrBancoBradesco.pas(740): Undeclared identifier: 'toRetornoProtestoImediatoFalencia'
    [Error] ACBrBancoBradesco.pas(740): Duplicate case label
    [Error] ACBrBancoBradesco.pas(743): Undeclared identifier: 'toRetornoChequePendenteCompensacao'
    [Error] ACBrBancoBradesco.pas(743): Duplicate case label
    [Error] ACBrBancoBradesco.pas(747): Undeclared identifier: 'toRetornoBaixaTituloNegativadoSemProtesto'
    [Error] ACBrBancoBradesco.pas(747): Duplicate case label
    [Error] ACBrBancoBradesco.pas(769): Undeclared identifier: 'toRetornoConfirmacaoPedidoExclNegativacao'
    [Error] ACBrBancoBradesco.pas(769): Duplicate case label
    [Error] ACBrBancoBradesco.pas(793): Undeclared identifier: 'toRetornoConfirmacaoRecebPedidoNegativacao'
    [Fatal Error] ACBrBoleto.pas(1088): Could not compile used unit 'ACBrBancoBradesco.pas'
     

    Alguem me ajuda.....

    Valeu!

  2. Bom dia, sou novo na implementação do acbr Boletos, porem percebi que a leitura do retorno para o itau, quando é pessoa fisica, gera uma serie de erros, iniciando isso no CPF que ao invés de entender como CPF ele tenta validar o CNPJ e da já da erro logo no inicio.

    Eu faço a leitura dessa forma :

    
      if cdsRetorno.Active then
        while not cdsRetorno.IsEmpty do cdsRetorno.Delete
      else cdsRetorno.CreateDataSet;
    
      ACBrBoleto1.NomeArqRetorno:= ExtractFileName(ePath.Text);
      ACBrBoleto1.DirArqRetorno := ExtractFileDir(ePath.Text);
      mNumBco:=cdsCnab_CcrNUMBCO.AsInteger;
      if not mQualBco(mNumBco) then Exit;
    
      ACBrBoleto1.LayoutRemessa := c400;
      ACBrBoleto1.LeCedenteRetorno:= true;
      
    //aqui eu tentei passar essa parametro para ver se ele entendia que era PF, porem sem sucesso no acbrValidador ele ja entra como PJ
      if Length(Trim(cdsCnab_CcrCEDCGC.AsString)) > 11
        then ACBrBoleto1.Cedente.TipoInscricao := pJuridica
        else ACBrBoleto1.Cedente.TipoInscricao := pFisica;
    
      ACBrBoleto1.LerRetorno;

    Agradeço desde já!

  3. procedure TFLog.BitBtn1Click(Sender: TObject);
    var
    body:TStringList;
    begin
      ACBrMail1.Username:=dm.cdsEmpE_USER.AsString;               //usuario
      ACBrMail1.Password:=dm.cdsEmpE_PASS.AsString;               //senha
      ACBrMail1.setssl:=iif(dm.cdsEmpE_RAUT.AsString='S',true,false);      // autenticação ssl?
      ACBrMail1.settls:=iif(dm.cdsEmpE_RTLS.AsString='S',true,false);      // autenticação tls?
      ACBrMail1.Host:=dm.cdsEmpE_SMTP.AsString;                   //host
      ACBrMail1.Port:=dm.cdsEmpE_PORT.AsString;                   //porta
    
      ACBrMail1.From:=dm.cdsEmpE_FROM.AsString;               //remetente
      ACBrMail1.FromName:=dm.cdsEmpNOMEMP.AsString;              //Nome do remetente
    
      ACBrMail1.addaddress('[email protected]','Contato ');  //destinatário
      ACBrMail1.Subject:='Cliente testando envio de email';     //assunto
    
      body:=TStringList.Create;
      body.Add('Teste de envio!');
      ACBrMail1.Body:= body;            //corpo do email
    
      try
        ACBrMail1.Send;;
        Application.MessageBox('SUCESSO !','INFORMAÇÃO',MB_ICONINFORMATION);
      except
        Application.MessageBox('TESTE FALHOU !','AVISO',MB_ICONERROR);
      end;
    
    end;

    Eu uso o meu assim, lembrando que essa é uma mensagem teste, que eu coloquei em um btn qualquer coisa estou à disposição

  4. Olá, bom dia, acabei de atualizar para o trunk2 e me deparei com um problema no envio de boletos por e-mail.

     

    if cb_Eml.checked then begin
                // configuração componente envio e-mail
              ACBrMail1.Username:=dm.cdsEmpE_USER.AsString;
              ACBrMail1.Password:=Dm.cdsEmpE_PASS.AsString;
              ACBrMail1.Port:=dm.cdsEmpE_PORT.AsString;
              ACBrMail1.Host:=dm.cdsEmpE_SMTP.AsString;
              ACBrMail1.SetSSL:=iif(Dm.cdsEmpE_RAUT.AsString='N',false,true);
              ACBrMail1.SetTLS:=false;
    
                mProgress_Add('Processando Documento','Eviando e-mail: '+
                iif(cdsGerEMLCOB.AsString<>'',cdsGerEMLCOB.AsString,
                  cdsGerEMLAGT.AsString),1);
    
              //Envia Email para EMLCOB (caso não tenha EMLAGT)
              try
                    ACBrBoleto1.EnviarEmail(iif(cdsGerEMLCOB.AsString<>'',
                    cdsGerEMLCOB.AsString,cdsGerEMLAGT.AsString),
                    cdsCCRE_ASST.AsString,DBMemo1.Lines,true,nil,nil);
    

      quando eu vou enviar, ele para nessa parte, 

    if not Assigned(FMAIL) then
        raise Exception.Create( ACBrStr('Componente ACBrMail não associado') );

    Se alguém puder me ajudar ai, sou iniciante em delphi e foi me passada essa tarefa :) 

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