function jsa_getDatosDeCredito($solicitud)
{
$xCred = new cCredito($solicitud);
$xCred->initCredito();
$xF = new cFecha();
$xT = new cTipos();
$dCreds = $xCred->getDatosDeCredito();
$periocidad = $xCred->getPeriocidadDePago();
$FMinistracion = $xCred->getFechaDeMinistracion();
$contrato_corriente = $xCred->getContratoCorriente();
$xPlanGen = new cPlanDePagosGenerador();
$xPlanGen->initPorCredito($solicitud);
$FPrimerAb = $xPlanGen->getFechaDePrimerPago();
$xF = new cFecha(0, $FMinistracion);
$FM_d = $xF->dia();
$FM_a = $xF->anno();
$FM_m = $xF->mes();
$xF2 = new cFecha(1, $FPrimerAb);
$xF2->set($FPrimerAb);
$PA_d = $xF2->dia();
$PA_a = $xF2->anno();
$PA_m = $xF2->mes();
$tab = new TinyAjaxBehavior();
//setLog("$PA_d --- $PA_m ---- $PA_a - - - - - $FPrimerAb");
$tab->add(TabSetvalue::getBehavior('ideldia1', $FM_d));
$tab->add(TabSetvalue::getBehavior('idelmes1', $FM_m));
$tab->add(TabSetvalue::getBehavior('idelanno1', $FM_a));
$tab->add(TabSetvalue::getBehavior('ideldia0', $PA_d));
$tab->add(TabSetvalue::getBehavior('idelmes0', $PA_m));
$tab->add(TabSetvalue::getBehavior('idelanno0', $PA_a));
$tab->add(TabSetvalue::getBehavior('idDescripcionSolicitud', $xCred->getShortDescription()));
$tab->add(TabSetvalue::getBehavior('idcuenta', $contrato_corriente));
//$xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_CATORCENAL
if ($xCred->getTipoEnSistema() == CREDITO_PRODUCTO_NOMINA) {
$tab->add(TabSetvalue::getBehavior('idFormaDePago', $xCred->getTipoDePago()));
//setLog("El pago es " . $xCred->getPeriocidadDePago() );
if ($xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_CATORCENAL) {
$tab->add(TabSetvalue::getBehavior('idtipo_plan_pagos', CREDITO_TIPO_DIAS_DE_PAGO_PERSONALIZADOS));
}
}
return $tab->getString();
}
/**
* @deprecated @since 2014.09.20
*/
function getFechaDePago($fecha_de_referencia, $numeral)
{
$xGen = new cPlanDePagosGenerador();
$xGen->setDiasDeAbonoFijo($this->mDiaDeAbono1, $this->mDiaDeAbono2, $this->mDiaDeAbono3);
$xGen->setPagosAutorizados($this->mPagosAutorizados);
$xGen->setPeriocidadDePago($this->mPeriocidadDePago);
$xGen->setTipoDePlanDePago($this->mTipoDePlanDePago);
$xGen->setSaldoInicial($this->mSaldoInicial);
$xGen->setSaldoFinal($this->mSaldoFinal);
return $xGen->getFechaDePago($fecha_de_referencia, $numeral);
}
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;
}