function setValidarCuentas($ForzarCorreccion = false)
 {
     $msg = "";
     $msg .= "============== VALIDANDO CUENTAS DE CAPTACION\t==========\r\n";
     $msg .= "============== FECHA:     " . fechasys() . "             ==========\r\n";
     /**
      * Valida si la Cuenta de captacion por defecto existe 
      * @since 2010-12-31
      */
     $xPCta = new cCuentaALaVista(CTA_GLOBAL_CORRIENTE, DEFAULT_SOCIO);
     if ($xPCta->setContarCuenta() == 0) {
         $msg .= "LA Cuenta por DEFECTO no EXISTE\r\n";
         $xPCta->setNuevaCuenta(99, 1, DEFAULT_SOCIO, "", DEFAULT_CREDITO, "", "", DEFAULT_GRUPO, false, 10);
         $msg .= $xPCta->getMessages("txt");
     }
     $xTb = new cSAFETabla(TCAPTACION_CUENTAS);
     $SqlCta = $xTb->getQueryInicial() . "\n\t\t\t\tFROM\n\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\tINNER JOIN `captacion_cuentastipos` `captacion_cuentastipos`\n\t\t\t\t\t\tON `captacion_cuentas`.`tipo_cuenta` = `captacion_cuentastipos`.\n\t\t\t\t\t\t`idcaptacion_cuentastipos`\n\t\t\t\t\t\t\tINNER JOIN `captacion_subproductos` `captacion_subproductos`\n\t\t\t\t\t\t\tON `captacion_cuentas`.`tipo_subproducto` = `captacion_subproductos`\n\t\t\t\t\t\t\t.`idcaptacion_subproductos` ";
     $rs = getRecordset($SqlCta);
     while ($rw = mysql_fetch_array($rs)) {
         $xCta = new cCuentaDeCaptacion($rw["numero_cuenta"], $rw["numero_socio"]);
         $xCta->init($rw);
         $msg .= $xCta->setValidar($ForzarCorreccion);
         //$msg		.= $xCta->getMessages("txt");
     }
     return $msg;
 }