if ($xEmp->isInit() == true) {
$alias = $xEmp->getNombreCorto();
//$iddirectivo=
$iddirectivo = $xEmp->getClaveDeContacto();
$directivo = $xEmp->getNombreContacto();
$idsocio = $xEmp->getClaveDePersona();
$periocidad1 = $xEmp->getPeriocidadPref();
$lstPeriodos = $xEmp->getListaDePeriocidad();
$periocidad2 = isset($lstPeriodos[1]) ? $lstPeriodos[1] : $periocidad1;
$producto = $xEmp->getProductoPref();
$mails = $xEmp->getEmailsDeEnvio();
$oficial = $xEmp->getClaveDeOficial();
$mail1 = isset($mails[0]) ? $mails[0] : "";
$mail2 = isset($mails[1]) ? $mails[1] : "";
$mail3 = isset($mails[2]) ? $mails[2] : "";
$diasaviso1 = $xEmp->getDiasDeAviso($periocidad1, MQL_STRING);
$diasaviso2 = $xEmp->getDiasDeAviso($periocidad2, MQL_STRING);
$diasnomina1 = $xEmp->getDiasDeNomina($periocidad1, MQL_STRING);
$diasnomina2 = $xEmp->getDiasDeNomina($periocidad2, MQL_STRING);
$diaspago1 = $xEmp->getDiasDePago($periocidad1, MQL_STRING);
$diaspago2 = $xEmp->getDiasDePago($periocidad2, MQL_STRING);
$step = MQL_MOD;
}
}
function jsaGetNombreDirector($persona)
{
$xSocio = new cSocio($persona);
$xSocio->init();
//idelmes0 idelanno0 ideldia0
$tab = new TinyAjaxBehavior();
//$tab -> add(TabSetvalue::getBehavior("idNumeroSocio", $socio));
function getListadoDeCobranza($empresa, $periocidad, $variacion, $periodo, $fechaInicial = false, $fechaFinal = false, $uso = false)
{
$ByPeriodo = $periocidad == "todos" ? "" : " AND creditos_solicitud.periocidad_de_pago = {$periocidad} ";
$xF = new cFecha();
$fechaFinal = $xF->getFechaISO($fechaFinal);
$fechaInicial = $xF->getFechaISO($fechaInicial);
$xQl = new MQL();
$xEmp = new cEmpresas($empresa);
$creditoON = array();
$DDias = $xEmp->getDiasDeAviso();
$sqletras = "SELECT\t`creditos_solicitud`.`persona_asociada`, `letras`.* \n\t\t\t\t\t\tFROM\t`creditos_solicitud` `creditos_solicitud`\t\tINNER JOIN `letras` `letras`\tON `creditos_solicitud`.`numero_solicitud` = `letras`.`docto_afectado` \n \t\t\t\t\tWHERE\t(`creditos_solicitud`.`persona_asociada` ={$empresa}) ";
//setLog($sqletras);
$rsCal = $xQl->getDataRecord($sqletras);
$DCal = array();
foreach ($rsCal as $dscal) {
$ixcredito = $dscal["docto_afectado"];
$ixperiodo = $dscal["periodo_socio"];
$DCal["{$ixcredito}-{$ixperiodo}"] = $dscal["letra"];
}
$ByMinistracion = "";
$periodo = $periodo + $variacion;
//filtrar domicilio -> socio -> credito -> letra
$sql = "SELECT\n creditos_solicitud.numero_socio AS 'persona',\n CONCAT(\n (CASE WHEN (socios_general.dependencia != creditos_solicitud.persona_asociada) THEN '(*)' ELSE '' END ), \n socios_general.nombrecompleto, ' ',\n socios_general.apellidopaterno, ' ',\n socios_general.apellidomaterno \n\t) AS 'nombre', \n\n creditos_solicitud.numero_solicitud AS 'credito',\n \n\tgetParcialidadPorFecha(ultimo_periodo_afectado, {$variacion}, '{$fechaFinal}', `primeras_letras`.`fecha_de_pago`, fecha_ministracion) AS 'letra',\n `creditos_solicitud`.`pagos_autorizados` AS 'pagos',\n \n creditos_solicitud.monto_parcialidad AS 'monto'\n\tFROM\n\t\t`creditos_solicitud` `creditos_solicitud` \n\t\t\tINNER JOIN `creditos_periocidadpagos` `creditos_periocidadpagos` \n\t\t\tON `creditos_solicitud`.`periocidad_de_pago` = \n\t\t\t`creditos_periocidadpagos`.`idcreditos_periocidadpagos` \n\t\t\t\tINNER JOIN `primeras_letras` `primeras_letras` \n\t\t\t\tON `creditos_solicitud`.`numero_solicitud` = `primeras_letras`.\n\t\t\t\t`docto_afectado` \n\t\t\t\t\tINNER JOIN `socios_general` `socios_general` \n\t\t\t\t\tON `creditos_solicitud`.`numero_socio` = `socios_general`.\n\t\t\t\t\t`codigo`\n \n WHERE \n `creditos_solicitud`.persona_asociada\t= {$empresa}\n AND saldo_actual > " . TOLERANCIA_SALDOS . "\n AND (`primeras_letras`.`fecha_de_pago` <= '{$fechaFinal}' OR creditos_solicitud.ultimo_periodo_afectado >= 2)\n {$ByPeriodo}\n AND (creditos_solicitud.ultimo_periodo_afectado+(1+({$variacion}))) > 0\n AND (creditos_solicitud.ultimo_periodo_afectado+(1+({$variacion}))) <= creditos_solicitud.pagos_autorizados\n ORDER BY ultimo_periodo_afectado DESC, fecha_ministracion,\n\tsocios_general.nombrecompleto\n ";
//setLog($sql);
$dato = $xQl->getDataRecord($sql);
$tr = "";
$xBt = new cHImg();
$ixx = 1;
$numero = 0;
$suma = 0;
$xT = new cTipos();
foreach ($dato as $rw) {
$credito = $rw["credito"];
$creditoON[$credito] = $credito;
$letra = $rw["letra"];
$lmonto = $xT->cFloat($rw["monto"], 2);
$numero++;
$suma += $lmonto;
$cssN = "";
$notas = "";
$cls = $ixx == 2 ? " class='trOdd' " : "";
$dif = 0;
if (isset($DCal["{$credito}-{$letra}"])) {
$dlmonto = round($DCal["{$credito}-{$letra}"], 2);
$dif = round($dlmonto - $lmonto, 2);
if ($dif != 0) {
if ($dif > 0.01 or $dif < -0.01) {
$notas = "Diferencia por {$dif} en la Parcialidad {$letra}, Plan de Pagos : " . $dlmonto . " Monto de Parcialidad : " . $lmonto;
$cls = " class='warn' ";
} else {
//+01 -01
$lmonto = round($dlmonto, 2);
$cls = " class='warn' ";
}
}
}
$td = "<tr{$cls} id='tr-{$credito}'>";
$td .= "<th>" . $rw["persona"] . "</th>";
$td .= "<td>" . $rw["nombre"] . "</td>";
$td .= "<td>" . $rw["credito"] . "</td>";
$td .= "<td><input type=\"number\" id=\"periodo-{$credito}\" value=\"" . $rw["letra"] . "\" /></td>";
$td .= "<th>" . $rw["pagos"] . "</th>";
$td .= "<td><input type=\"number\" id=\"monto-{$credito}\" value=\"" . $lmonto . "\" /></td>";
$td .= "<td><input type=\"text\" id=\"notas-{$credito}\" value=\"" . "" . "\"/></td>";
//$td .= "<td><input type=\"number\" id=\"saldo-$credito\" value=\"" . $rw["monto"] . "\" /></td>";
$td .= "<td class='toolbar-24' id=\"options-{$credito}\">";
$td .= $xBt->get24("calendar.png", " onclick=\"getPlanDePagos(" . $rw["credito"] . ")\" ");
$td .= $xBt->get24("day.png", " onclick=\"generarPlanDePagos(" . $rw["credito"] . ")\" ");
$td .= $xBt->get24("order.png", " onclick=\"getEstadoDeCuenta(" . $rw["credito"] . ")\" ");
$td .= $xBt->get24("link.png", " onclick=\"desvincular(" . $rw["credito"] . ")\" ");
$td .= "<div class='coolCheck'><input type='checkbox' id='chk_{$credito}' onclick='jsSetAlimentarEnvio(this, " . $rw["credito"] . ")' /><label for='chk_{$credito}'></label></div>";
if ($dif == 0) {
$td .= $xBt->get24("view.png", " onclick=\"setOcultar(" . $rw["credito"] . ")\" ");
}
$td .= "</td>";
$td .= "</tr>";
$ixx = $ixx >= 2 ? 1 : $ixx + 1;
if ($notas != "") {
$td .= "<tr><td class='aviso' colspan='8'>{$notas}</td></tr>";
}
$tr .= $td;
}
//filtrar domicilio -> socio -> credito -> letra
$sql = "SELECT\n creditos_solicitud.numero_socio AS 'persona',\n CONCAT(\n (CASE WHEN (socios_general.dependencia != creditos_solicitud.persona_asociada) THEN '(*)' ELSE '' END ),\n socios_general.nombrecompleto, ' ',\n socios_general.apellidopaterno, ' ',\n socios_general.apellidomaterno\n ) AS 'nombre',\n \n creditos_solicitud.numero_solicitud AS 'credito',\n \n getParcialidadPorFecha(ultimo_periodo_afectado, {$variacion}, '{$fechaFinal}', `primeras_letras`.`fecha_de_pago`, fecha_ministracion) AS 'letra',\n `creditos_solicitud`.`pagos_autorizados` AS 'pagos',\n \n creditos_solicitud.monto_parcialidad AS 'monto'\n FROM\n `creditos_solicitud` `creditos_solicitud`\n INNER JOIN `creditos_periocidadpagos` `creditos_periocidadpagos`\n ON `creditos_solicitud`.`periocidad_de_pago` =\n `creditos_periocidadpagos`.`idcreditos_periocidadpagos`\n INNER JOIN `primeras_letras` `primeras_letras`\n ON `creditos_solicitud`.`numero_solicitud` = `primeras_letras`.\n `docto_afectado`\n INNER JOIN `socios_general` `socios_general`\n ON `creditos_solicitud`.`numero_socio` = `socios_general`.\n `codigo`\n \n WHERE `creditos_solicitud`.persona_asociada\t= {$empresa}\n \n ORDER BY ultimo_periodo_afectado DESC, fecha_ministracion,\n socios_general.nombrecompleto\n ";
//setLog($sql);
$dato = $xQl->getDataRecord($sql);
$xT = new cTipos();
foreach ($dato as $rw) {
if (!isset($creditoON[$credito])) {
$credito = $rw["credito"];
$letra = $rw["letra"];
$lmonto = $xT->cFloat($rw["monto"], 2);
$cssN = "";
$notas = "";
$cls = $ixx == 2 ? " class='trOdd' " : "";
$td = "<tr{$cls} id='tr-{$credito}'>";
$td .= "<th>" . $rw["persona"] . "</th>";
$td .= "<td>" . $rw["nombre"] . "</td>";
$td .= "<td>" . $rw["credito"] . "</td>";
$td .= "<td>" . $rw["letra"] . "</td>";
$td .= "<th>" . $rw["pagos"] . "</th>";
$td .= "<td>" . $lmonto . "</td>";
$td .= "<td>" . $notas . "</td>";
$td .= "<td class='toolbar-24' id=\"options-{$credito}\">";
$td .= "</td>";
$td .= "</tr>";
$tr .= $td;
}
}
//$xT = new cHTabla();
$tfoot = "<tr><th colspan='3'>TOTALES</td><th><input id=\"idconteo\" value=\"0\" type=\"number\"></th>";
$tfoot .= "<td /><th><input id=\"idsuma\" value=\"0\" type=\"number\"></th><td colspan='2'><input type='text' id='idenletras' disabled='true' /></td></tr>";
return "<table class='listado'>{$tr} {$tfoot}</table>";
}
