function jsGetCreditosByCriteria($convenio, $estatus, $periocidad, $oficial)
{
$ByConvenio = "";
$ByEstatus = "";
$ByPeriocidad = "";
$ByOficial = "";
$ByInclude = "";
if ($estatus != "todas") {
$ByEstatus = " AND\n\t\t(`creditos_solicitud`.`estatus_actual` = {$estatus}) ";
}
if ($oficial != "todas") {
$ByOficial = "\tAND\n\t(`creditos_solicitud`.`oficial_credito` = {$oficial})";
}
if ($convenio != "todas") {
$ByConvenio = "\t AND\n\t(`creditos_solicitud`.`tipo_convenio` ={$convenio}) ";
}
if ($periocidad != "todas") {
$ByPeriocidad = " AND (`creditos_solicitud`.`periocidad_de_pago` ={$periocidad})";
}
$sqlCred = "SELECT\n\t`socios_general`.`codigo`,\n\tCONCAT(\n\t\t`socios_general`.`apellidopaterno`, ' ',\n\t\t`socios_general`.`apellidomaterno`, ' ',\n\t\t`socios_general`.`nombrecompleto`\n\t\t)\tAS 'nombre',\n\t`creditos_solicitud`.`grupo_asociado`,\n\t`creditos_solicitud`.`contrato_corriente_relacionado`,\n\n\t`creditos_solicitud`.`numero_solicitud`,\n\t`creditos_solicitud`.`tipo_convenio`,\n\t`creditos_solicitud`.`fecha_ministracion`,\n\t`creditos_solicitud`.`fecha_vencimiento`,\n\t`creditos_solicitud`.`pagos_autorizados`,\n\t`creditos_solicitud`.`saldo_actual`,\n\t`creditos_solicitud`.`monto_parcialidad` ,\n\t`creditos_solicitud`.`ultimo_periodo_afectado`,\n\t`creditos_solicitud`.`tasa_ahorro`,\n\t`creditos_solicitud`.`periocidad_de_pago`\nFROM\n\t`socios_general` `socios_general`\n\t\tINNER JOIN `creditos_solicitud` `creditos_solicitud`\n\t\tON `socios_general`.`codigo` = `creditos_solicitud`.`numero_socio`\nWHERE\n\t(`creditos_solicitud`.`saldo_actual` >=" . TOLERANCIA_SALDOS . ")\n\t{$ByEstatus}\n\t{$ByInclude}\n\t{$ByPeriocidad}\n\t{$ByConvenio}\n\t{$ByOficial}\n\t";
$rs = mysql_query($sqlCred, cnnGeneral());
$tds = "";
$xTbl = "";
$ix = 0;
$SqlConv = "SELECT\n\t\t\t\t\t\t\t`creditos_tipoconvenio`.`idcreditos_tipoconvenio`,\n\t\t\t\t\t\t\t`creditos_tipoconvenio`.`descripcion_tipoconvenio`\n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`creditos_tipoconvenio` `creditos_tipoconvenio`\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`creditos_tipoconvenio`.`idcreditos_tipoconvenio` !=99) ";
$SConvenio = new cSelect("c-{$ix}-conv", "i-{$ix}-conv", $SqlConv);
$SConvenio->setEsSql();
while ($rw = mysql_fetch_array($rs)) {
//Informacion del credito
$socio = $rw["codigo"];
$nombre = htmlentities($rw["nombre"]);
$credito = $rw["numero_solicitud"];
$grupo = $rw["grupo_asociado"];
$contrato = $rw["contrato_corriente_relacionado"];
$convenio = $rw["tipo_convenio"];
$ministrado = $rw["fecha_ministracion"];
$vencimiento = $rw["fecha_vencimiento"];
$pagos = $rw["pagos_autorizados"];
$saldo = $rw["saldo_actual"];
$parcialidad = $rw["monto_parcialidad"];
$periodo = $rw["ultimo_periodo_afectado"];
$tasa_ahorro = $rw["tasa_ahorro"];
$vperiocidad = $rw["periocidad_de_pago"];
$Cred = new cCredito($credito, $socio);
//opciones Especiales
$CtrlGroup = "hidden";
$CtrlAhorro = "text";
$CtrlPeriocidad = "text";
//Convenio
$SConvenio->setOptionSelect($convenio);
$SConvenio->addEvent("onchange", "markMe", $ix);
$iConv = $SConvenio->show();
$DConv = $Cred->getDatosDeProducto($convenio);
$clase_grupal = $DConv["tipo_de_integracion"];
$OConv = $Cred->getOProductoDeCredito($convenio);
//Variaciones de los controles
if ($OConv->getEsProductoDeGrupos() == true) {
$CtrlGroup = "text";
}
if ($tasa_ahorro == 0) {
$CtrlAhorro = "hidden";
}
if ($vperiocidad == 360) {
$CtrlPeriocidad = "hidden";
}
$tds .= "<tr>\n\t\t\t\t\t\t<td><input type='hidden' id='i-{$ix}-soc' name='c-{$ix}-soc' value='{$socio}' />{$socio}</td>\n\t\t\t\t\t\t<td>{$nombre}</td>\n\t\t\t\t\t\t<td><input type='hidden' id='i-{$ix}-cred' name='c-{$ix}-cred' value='{$credito}' />{$credito}</td>\n\t\t\t\t\t\t<td><input type='{$CtrlGroup}' id='i-{$ix}-grup' name='c-{$ix}-grup' value='{$grupo}' size='3' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='{$CtrlAhorro}' id='i-{$ix}-capt' name='c-{$ix}-capt' value='{$contrato}' size='10' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td>{$iConv}</td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-fminis' name='c-{$ix}-fminis' value='{$ministrado}' size='10' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-fvenc' name='c-{$ix}-fvenc' value='{$vencimiento}' size='10' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='{$CtrlPeriocidad}' id='i-{$ix}-pagos' name='c-{$ix}-pagos' value='{$pagos}' size='3' class='mny' /></td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-saldo' name='c-{$ix}-saldo' value='{$saldo}' size='12' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-parc' name='c-{$ix}-parc' value='{$parcialidad}' size='10' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='{$CtrlPeriocidad}' id='i-{$ix}-per' name='c-{$ix}-per' value='{$periodo}' size='3' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<th><input type=\"checkbox\" id=\"chk-{$ix}\" /></th>\n\t\t\t\t\t</tr>";
$ix++;
}
$xTbl = "<table width='100%'>\n\t\t\t\t<tr>\n\t\t\t\t\t<th>Socio</th>\n\t\t\t\t\t<th>Nombre</th>\n\t\t\t\t\t<th>Num.<br/>Solicitud</th>\n\t\t\t\t\t<th>Grupo</th>\n\t\t\t\t\t<th>Contrato<br />de Ahorro</th>\n\t\t\t\t\t<th>Convenio</th>\n\t\t\t\t\t<th>Ministracion</th>\n\t\t\t\t\t<th>Vencimiento</th>\n\t\t\t\t\t<th>Pagos</th>\n\t\t\t\t\t<th>Saldo</th>\n\t\t\t\t\t<th>Parcialidad</th>\n\t\t\t\t\t<th>#Letra</th>\n\t\t\t\t\t<th></th>\n\t\t\t\t</tr>\n\t\t\t\t<tbody>\n\t\t\t\t\t{$tds}\n\t\t\t\t</tbody>\n\t\t\t\t</table>\n\t\t\t\t<input type='hidden' name='cCount' id='idCount' value = '{$ix}' />";
return $xTbl;
}
$credito = $cT->cInt($datos[1]);
$producto = $cT->cInt($datos[2]);
$monto = $cT->cFloat($datos[3]);
$ministracion = $cT->cFecha($datos[4]);
$vencimiento = $cT->cFecha($datos[5]);
$pagos = $cT->cInt($datos[6]);
$periocidad = $cT->cInt($datos[7]);
$saldo = $cT->cFloat($datos[8]);
$UltimaOperacion = $cT->cFecha($datos[9]);
$ContratoCorriente = $cT->cInt($datos[10]);
if ($socio == 0) {
$msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
} else {
$xCred = new cCredito();
//Crear Contrato corriente si el producto tiene ahorro
$DConv = $xCred->getDatosDeProducto($producto);
$tasaAhorro = $cT->cFloat($DConv["tasa_ahorro"]);
if ($ContratoCorriente == 0 and $tasaAhorro > 0) {
$xCapta = new cCuentaALaVista(false);
$ContratoCorriente = $xCapta->setNuevaCuenta(99, DEFAULT_SUBPRODUCTO_CAPTACION, $socio, "CUENTA POR IMPORTACION", $credito);
$msg .= "{$iReg}\t{$socio}\t{$credito}\tAgregando una Cuenta Corriente {$ContratoCorriente} NUEVO\r\n";
}
//Agregar
$ok = $xCred->add($producto, $socio, $ContratoCorriente, $monto, $periocidad, $pagos, 0, CREDITO_DEFAULT_DESTINO, $credito, DEFAULT_GRUPO, "", "CREDITO IMPORTADO #{$iReg}", DEFAULT_USER, $ministracion);
if ($ok == true) {
///Inicializar
//autorizar
$xCred->setAutorizado($monto, $pagos, $periocidad, CREDITO_TIPO_AUTORIZACION_AUTOMATICA, $ministracion, "CREDITO IMPORTADO #{$iReg}", false, $ministracion, 2, false, $vencimiento, CREDITO_ESTADO_AUTORIZADO, $monto, 0, $UltimaOperacion);
$xCred->init();
//ministrar
$xCred->setForceMinistracion();
$diasaut = $ds_sol["plazo_en_dias"];
$sucess = true;
if ($estatus != CREDITO_ESTADO_SOLICITADO) {
$msg .= "ERROR\tEL CREDITO YA HA SIDO MODIFICADO, NO SE PUEDE AUTORIZAR\r\n";
$sucess = false;
}
if ($estatus == CREDITO_ESTADO_AUTORIZADO) {
$msg .= "ERROR\tEL CREDITO ESTA AUTORIZADO MAS NO MINISTRADO, SE PERMITE MODIFICACION\r\n";
$sucess = true;
}
if ($idmonto > $montosolicitado) {
$msg .= "ERROR\tEL CREDITO AUTORIZADO NO PUEDE SER MAYOR AL SOLICITADO\r\n";
$sucess = false;
}
//Datos del Convenio
$dconv = $xCred->getDatosDeProducto();
$OConv = $xCred->getOProductoDeCredito();
$tipo_de_integracion = $dconv["tipo_de_integracion"];
/* OBTIENE EL PERIODO EN QUE SE DEBIO AUTORIZAR */
$periodo = $ds_sol["periodo_solicitudes"];
$fechaaut = $xF->getFechaISO($fecha1);
// $_POST["elanno0"] . "-" . $_POST["elmes0"] . "-" . $_POST["eldia0"];
$fecha_ministracion_propuesta = $xF->getFechaISO($fecha2);
//$_POST["elanno1"] . "-" . $_POST["elmes1"] . "-" . $_POST["eldia1"];
$fechaultmvto = $fechaaut;
//Fecha de Ultimo Movimiento = Fecha de Autorizacion;
if ($idmonto <= TOLERANCIA_SALDOS) {
//Cambiar a 0 de saldo autorizado y 50 de estatus
$xCred->setCancelado($idautorizacion, $fechaaut);
$sucess = false;
}
