Victor Sagatio

Sim, atualizei, esta na revisão de hoje, instalei pelo Instalador_AcBr

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!

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á!

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

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