function setActualizarPrimerPago($default_fecha = "2014-01-01")
{
$xLi = new cSQLListas();
$query = new MQL();
$sql = $xLi->getInicialDeCreditos() . " WHERE `creditos_solicitud`.`fecha_de_primer_pago` ='{$default_fecha}'";
// AND `creditos_solicitud`.`periocidad_de_pago` != " . CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO . " ";
$data = $query->getDataRecord($sql);
$msg = "";
$FechaFinal = "";
$ByPersona1 = "";
$ByPersona3 = "";
$rsPagos = $query->getDataRecord("SELECT * FROM `creditos_abonos_parciales` WHERE periodo_socio = 1 ");
// /*WHERE (`creditos_abonos_parciales`.`fecha_de_pago` <='$FechaFinal') $ByPersona1 */");
$DPagos = array();
foreach ($rsPagos as $dpags) {
$credito = $dpags["docto_afectado"];
$DPagos[$credito][] = $dpags;
}
$rsCal = $query->getDataRecord("SELECT * FROM `letras` WHERE periodo_socio = 1 ");
// /*WHERE (`fecha_de_pago` <='$FechaFinal') $ByPersona3 */");
$DCal = array();
foreach ($rsCal as $dscal) {
$credito = $dscal["docto_afectado"];
$DCal[$credito][] = $dscal;
}
foreach ($data as $rows) {
$idcredito = $rows["numero_solicitud"];
$antes = $rows["fecha_de_primer_pago"];
$periocidad = $rows["periocidad_de_pago"];
$FPrimerAb = false;
$Tipo = "";
if ($periocidad == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
$xCred = new cCredito($idcredito);
$xCred->init($rows);
$FPrimerAb = $xCred->getFechaDevencimientoLegal();
} else {
//info pagos
$d1 = isset($DCal[$idcredito]) ? $DCal[$idcredito] : false;
$d2 = isset($DPagos[$idcredito]) ? $DPagos[$idcredito] : false;
if ($d2 == false) {
if ($d1 != false) {
$Tipo = "PLAN";
$record = $d2[0];
$FPrimerAb = $record["fecha_de_pago"];
}
} else {
$Tipo = "PAG";
$record = $d2[0];
$FPrimerAb = $record["fecha_de_pago"];
}
if ($FPrimerAb == false) {
$xPlanGen = new cPlanDePagosGenerador();
$xPlanGen->initPorCredito($idcredito, $rows);
$FPrimerAb = $xPlanGen->getFechaDePrimerPago();
$Tipo = "EST";
}
}
$msg .= "WARN\t{$idcredito}\t{$Tipo}\tLa fecha de Primer abono es {$FPrimerAb} de {$antes}\r\n";
$query->setRawQuery("UPDATE creditos_solicitud SET `fecha_de_primer_pago`='{$FPrimerAb}' WHERE numero_solicitud = {$idcredito} ");
}
return $msg;
}
function getQueryInicial($tabla = false)
{
$this->init($tabla);
$ql = "";
$xli = new cSQLListas();
switch ($this->mTabla) {
case TCAPTACION_CUENTAS:
$sql = $xli->getInicialDeCuentas();
break;
case TCREDITOS_REGISTRO:
$sql = $xli->getInicialDeCreditos();
break;
case TPERSONAS_ACTIVIDAD_ECONOMICA:
$sql = $xli->getInicialPersonasActividadEc();
break;
case TPERSONAS_DIRECCIONES:
$sql = "SELECT `socios_vivienda`.*, `socios_vivienda`.`idsocios_vivienda` AS 'id'\tFROM socios_vivienda ";
break;
case TPERSONAS_RELACIONES:
$sql = $xli->getInicialPersonasRelaciones();
break;
}
return $sql;
}
