function jsaGetLetras($idcredito)
{
$idcred = setNoMenorQueCero($idcredito);
$xF = new cFecha();
if ($idcred > DEFAULT_CREDITO) {
$xCred = new cCredito($idcred);
$xCred->init();
if ($xCred->getEsAfectable() == false or $xCred->getSaldoActual() <= 0) {
if (MODO_CORRECION == true) {
$xTxt = new cHText();
$xTxt->setDivClass("");
return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
} else {
return $xCred->getMessages();
}
} else {
if ($xCred->getPeriocidadDePago() == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
//
$xTxt = new cHText();
$xTxt->setDivClass("");
return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
} else {
$plan = $xCred->getNumeroDePlanDePagos();
if ($plan != false) {
$xPlan = new cPlanDePagos($plan);
$xPlan->init();
$parcs = $xPlan->getParcsPendientes();
//$txt = "";
$arrD = array();
foreach ($parcs as $p) {
//setLog( $p[SYS_NUMERO]. " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " ". getFMoney($p[SYS_TOTAL]));
if (setNoMenorQueCero($p[SYS_TOTAL]) > 0) {
$arrD[$p[SYS_NUMERO]] = $p[SYS_NUMERO] . " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " " . getFMoney($p[SYS_TOTAL]);
}
}
$xSel = new cHSelect();
$xSel->addOptions($arrD);
$xSel->setEnclose(false);
return $xSel->get("idparcialidad", "TR.Numero de Parcialidad", $xCred->getPeriodoActual() + 1);
} else {
if (MODO_CORRECION == true) {
$xTxt = new cHText();
$xTxt->setDivClass("");
return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
}
}
}
}
}
}
$tdEsp = "";
if ($BCapital->getIsMember($rw["tipo_operacion"]) == true) {
$tdEsp = "<td class='mny'>{$monto}</td><td /><td /><td />";
} elseif ($BInteres->getIsMember($rw["tipo_operacion"]) == true) {
$tdEsp = "<td /><td class='mny'>{$monto}</td><td /><td />";
$ints += $rw["monto"];
} elseif ($BIva->getIsMember($rw["tipo_operacion"]) == true) {
$tdEsp = "<td /><td /><td class='mny'>{$monto}</td><td />";
$iva += $rw["monto"];
} else {
$tdEsp = "<td /><td /><td /><td class='mny'>{$monto}</td>";
$otros += $rw["monto"];
}
$xF->set($rw["fecha_operacion"]);
$cssFecha = $xF->mes() != $mes ? " class='otromes' " : " class='date' ";
$mtd = "<tr>\n\t\t\t\t\t<td {$cssFecha}>" . $xF->getFechaDDMM() . "</td>\n\t\t\t\t\t<td onclick=\"msgbox('Total Recibo " . $rw["total_recibo"] . "')\">" . $rw[2] . "</td>\n\t\t\t\t\t<td>" . $rw[3] . "</td>\n\t\t\t\t\t<td class='ajustar'>" . $rw[4] . "</td>\n\t\t\t\t\t{$tdEsp}\n\t\t\t\t\t<td class='mny'>{$sdos}</td>\n\t\t\t\t\t<td class='ajustar'>{$observa}</td>\n\t\t\t\t</tr>";
//parche de credito
if (strtotime($rw["fecha_operacion"]) < strtotime($fecha_inicial) or strtotime($rw["fecha_operacion"]) > strtotime($fecha_final)) {
$mtd = "";
}
$mes = $xF->mes();
$trs .= $mtd;
$i++;
//Imprime en pantalla el Aviso de NO COINCIDENCIA
}
//$sdo1 =
if (round($sdo, 2) != round($sdoTemp, 2)) {
if (FORCE_CUADRE_EN_OPERACIONES == true) {
if ($cFC->getEstadoActual() == CREDITO_ESTADO_AUTORIZADO or $cFC->getEstadoActual() == CREDITO_ESTADO_SOLICITADO) {
$sdo = 0;
}
}
$_SESSION["current_file"] = addslashes($theFile);
//<===== FIN_H
//=====================================================================================================
$xInit = new cHPage("", HP_SERVICE);
$txt = "";
$ql = new MQL();
$lis = new cSQLListas();
$xF = new cFecha();
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$credito = parametro("credito", DEFAULT_CREDITO, MQL_INT);
$tipo = parametro("tipo", false, MQL_INT);
$estado = parametro("estado", false, MQL_INT);
$rs = array();
if (setNoMenorQueCero($persona) > DEFAULT_SOCIO) {
//$xSoc = new cSocio($persona); $xSoc->init();
//$tipo = ( setNoMenorQueCero($tipo) > 0) ? $tipo : SYS_TODAS;
$estado = setNoMenorQueCero($estado) > 0 ? $estado : SYS_TODAS;
$SinSaldo = ($estado == CREDITO_ESTADO_AUTORIZADO or $estado == CREDITO_ESTADO_SOLICITADO) ? true : false;
$sql = $lis->getListadoDeCreditos($persona, $SinSaldo, $estado);
$datos = $ql->getDataRecord($sql);
foreach ($datos as $row) {
$describe = $xF->getFechaDDMM($row["otorgado"]) . " " . $row["producto"] . "*" . $row["periocidad"] . " " . $row["periodo"] . "*" . $row["saldo"];
$rs[$row["credito"]] = $describe;
}
//}
}
header('Content-type: application/json');
echo json_encode($rs);
//setLog(json_encode($rs));
//setLog($sql);
/**
* Actualiza Recibos de Operaciones
**/
$sqlS = "UPDATE operaciones_recibos SET tipo_pago = \"ninguno\" WHERE tipo_pago = \"\" OR IsNULL(tipo_pago) ";
my_query($sqlS);
/**
* Actualiza los Periodos a Formatos Validos en el Caso que el sistema les haya asigando otro valor
*/
$sqlPeriodosCorrectos = "UPDATE operaciones_mvtos\r\n\t\t\t\t\t\t\t\tSET periodo_mensual = DATE_FORMAT(fecha_afectacion, '%c'),\r\n\t\t\t\t\t\t\t\tperiodo_anual = DATE_FORMAT(fecha_afectacion, '%Y'),\r\n\t\t\t\t\t\t\t\tperiodo_semanal = DATE_FORMAT(fecha_afectacion, '%w')\r\n\t\t\t\t\t\t\t\t";
$x1 = my_query($sqlPeriodosCorrectos);
$messages .= $x1[SYS_INFO];
$xSys = new cSystemTask();
$xDB = new cSAFEData();
//crear backup //
if ($xF->getDiaFinal() == $xF->get() or date("N", $xF->getInt()) == 5) {
$messages .= "BACKUP\tRespaldo a la fecha " . $xF->getFechaDDMM() . "\r\n";
$xDB->setCheckDatabase();
$messages .= $xSys->setBackupDB_WithMail();
}
//cerrar el log
$xLog->setWrite($messages);
$xLog->setClose();
if (ENVIAR_MAIL_LOGS == true) {
$xLog->setSendToMail("TR.Eventos del Cierre del Sistema");
}
//Stored procedures
$ql->setRawQuery("CALL `proc_listado_de_ingresos` ");
//$ql->setRawQuery("CALL `proc_historial_de_pagos` ");
$ql->setRawQuery("CALL `sp_clonar_actividades` ");
$ql->setRawQuery("CALL `proc_perfil_egresos_por_persona` ");
$ql->setRawQuery("CALL `proc_creditos_letras_pendientes` ");
$oFrm->addToolbar($xhBtn->getBasic("TR.PAGO COMPLETO", "jsGetPago('pc')", "dinero", "pc1", false));
$defaultPago = OPERACION_PAGO_LETRA_COMPLETA;
break;
}
$oFrm->addToolbar($xhBtn->getRegresar("../index.xul?p=frmcaja/frmcobrosdecreditos.php", true));
$oFrm->addToolbar($xhBtn->getBasic("TR.Recargar", "jsCargarFrame()", "refrescar", "idrefrescar", false));
if (MODO_DEBUG == true and $xCred->getTipoEnSistema() != CREDITO_PRODUCTO_NOMINA) {
$xLog = new cFileLog(false, true);
$xLog->setWrite($msg);
$xLog->setClose();
$oFrm->addToolbar($xLog->getLinkDownload("Log de descargas", ""));
}
$xSelP->addEvent("showInCommand()", "onblur");
$xTxt = new cHText("idobservaciones");
$html = "";
$oFrm->addFooterBar("<h3>FECHA DE PAGO : [" . $xF->getFechaDDMM($Fecha) . "] NUMERO DE PARCIALIDAD: [{$parcialidad}]</h3>");
$html .= $xCred->getFicha(false, "", false, true);
$xHCob->setEvents("onblur='jsGetPago()'");
$html .= $xHCob->get(false, "", "", false);
$html .= $xTxt->get("idobservaciones", "", "Observaciones");
$html .= "<iframe id=\"idFPrincipal\" src=\"./../principal.php\" width='100%' height=\"800px\" ></iframe>";
$oFrm->addHElem($html);
echo $oFrm->get();
echo $xHP->setBodyEnd();
?>
<script>
var iSRC = "./frmprocesarpago.php?<?php
echo "p={$socio}|{$solicitud}|{$parcialidad}|{$periocidad}|";
?>
";
var ixsrc = "./frmcobrosdecreditos2.php?<?php
function jsaGetDatosEmpresa($idEmpresa)
{
$xEmp = new cEmpresas($idEmpresa);
$xF = new cFecha();
$ql = new MQL();
$xl = new cSQLListas();
$observaciones = "";
$xEmp->init();
$persona = $xEmp->getClaveDePersona();
$xF = new cFecha(0);
$opts = "";
$exT = "";
$periocidad = $xEmp->getPeriocidadPref();
$periodo = $periocidad == CREDITO_TIPO_PERIOCIDAD_SEMANAL ? $xF->semana() : $xF->quincena();
$periodo = intval($xEmp->getPeriodo()) < 1 ? $periodo : intval($xEmp->getPeriodo());
$data = $ql->getDataRecord($xl->getListadoDePeriodoPorEmpresa($idEmpresa));
$variacion = "0";
$fecha_inicial = $xF->getFechaMX();
$fecha_final = $xF->getFechaMX();
$control = 0;
$ctrl = "<label for=\"idperiodo\">Periodo {$periodo}</label><input type=\"number\" id=\"idperiodo\" onchange=\"jsGetCobranza()\" onblur=\"jsGetCobranza()\" />";
$contar = 1;
$max = 5;
foreach ($data as $rw) {
$idsel = "";
$idclave = $rw["codigo"];
$xPer = $xEmp->getOPeriodo(false, false, $idclave);
if ($periodo == $xPer->periodo_marcado()->v() and $periocidad == $xPer->periocidad()->v()) {
$control = $idclave;
$periodo = $xPer->periodo_marcado()->v();
$periocidad = $xPer->periocidad()->v();
$fecha_final = $xPer->fecha_final()->v();
$fecha_inicial = $xPer->fecha_inicial()->v();
$idsel = " selected=\"true\" ";
}
if ($contar <= $max) {
$opts .= "<option value=\"" . $idclave . " \"{$idsel}>" . $rw["nombre_periocidad"] . "[" . $xPer->periodo_marcado()->v() . "]";
$opts .= " - DEL: " . $xF->getFechaDDMM($rw["fecha_inicial"]) . " - " . $xF->getFechaDDMM($rw["fecha_final"]) . " SALDO " . getFMoney($rw["saldo"]) . "</option>";
}
$contar++;
}
if ($opts != "") {
$ctrl = "<label for='idperiodo'>Periodo</label><select id=\"idperiodo\" name=\"idperiodo\" onblur=\"jsGetCobranza()\" onchange=\"jsGetCobranza()\">{$opts}</select>";
}
$ctrl .= "<input type=\"hidden\" id=\"idvariacion\" value=\"{$variacion}\" />";
$ctrl .= "<input type=\"hidden\" id=\"idperiodo\" value=\"{$periodo}\" />";
$ctrl .= "<input type=\"hidden\" id=\"idperiocidad\" value=\"{$periocidad}\" />";
$ctrl .= "<input type=\"hidden\" id=\"idclavedepersona\" value=\"{$periocidad}\" />";
return $ctrl;
}