function jsaSetCreditosADespedidos($credito, $fecha, $observaciones)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->getFechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_DESTINO_DESCARTADOS);
$xCred->setResetPersonaAsociada($fecha, $observaciones);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_DESVINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xRN = new cReglaDeNegocio();
$xEmp = new cEmpresas($xCred->getClaveDeEmpresa());
$xEmp->init();
$oP = $xCred->getOPersona();
$xRN->setVariables(array("nombre_de_persona" => $oP->getNombreCompleto(), "mensaje" => $observaciones, "saldo_del_credito" => $xCred->getSaldoActual(), "nombre_de_la_empresa" => $xEmp->getNombreCorto()));
$xRN->setExecuteActions($xRN->reglas()->RN_NOMINA_AL_DESPEDIR);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
function jsaSetGenerarPolizaPorRecibo($numero)
{
if (setNoMenorQueCero($numero) > 0) {
//return $tab -> getString();
$Recibo = $numero;
$msg = "";
$Regenerar = true;
//( strtoupper($id2) == "SI") ? true : false;
$xUCont = new cUtileriasParaContabilidad();
$xBtn = new cHButton();
if ($Regenerar == true) {
$msg .= $xUCont->setRegenerarPrepolizaContable(false, $Recibo);
}
$xUCont->setPolizaPorRecibo($Recibo);
$idPol = trim($xUCont->getIDPoliza());
$xPolCW = new cPolizaCompacW(0);
$xPolCW->initByID($idPol);
$xPolCW->setRun();
$strDown = $xPolCW->setExport();
if (MODO_DEBUG == true) {
$xLog = new cFileLog();
$xLog->setWrite($xUCont->getMessages());
$xLog->setClose();
$strDown .= $xLog->getLinkDownload("TR.Log");
}
//return $xBtn->getBasic("TR.Modificar Poliza","jsModificarPoliza('$idPol')", $xBtn->ic()->EDITAR, "cmdeditpoliza") . $strDown ;
} else {
return "NO HAY REGISTRO QUE GENERAR [{$numero}]";
}
}
function jsaGuardarReestructura($credito, $monto, $pagos, $periocidad, $tasa, $observaciones, $producto, $tipopago)
{
$tasa = $tasa / 100;
$xCred = new cCredito($credito);
$xCred->init();
$xCred->setReconvenido($monto, 0, $tasa, $periocidad, $pagos, $observaciones, false, false, $tipopago, $producto);
$xF = new cFileLog();
$xF->setWrite($xCred->getMessages());
$xF->setClose();
return $xCred->getMessages(OUT_HTML) . $xF->getLinkDownload("Descarga de Log");
}
if ($ClaveUnica != 0) {
my_query($sql);
}
$msg .= "{$ClaveEntidad}\t{$claveMunicipio}\t{$ClaveLocalidad}\tAgregando la Localidad {$NombreLocalidad} con codigo {$ClaveUnica}\r\n";
}
$iReg++;
}
}
@fclose($gestor);
$html = new cHTMLObject();
//$htmlmsg = $html->setInHTML($msg);
$xlog = new cFileLog("carga_batch-localidades-" . date("Ymd"), true);
$xlog->setWrite($msg);
$xBtn = new cHButton("");
echo $xBtn->getSalir();
$xlog->setClose();
echo $xlog->getLinkDownload("Archivo de Resultados de la Carga");
//echo "<p class ='aviso'>$htmlmsg</p>";
//echo $msg;
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO SE ACEPTA</p>";
}
}
}
}
if (!isset($iReg)) {
$iReg = 0;
}
?>
</fieldset>
</form>
function jsaVincularEmpresa($credito, $observaciones, $empresa)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->get();
// FechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_NOMINA);
$xCred->setResetPersonaAsociada($fecha, $observaciones, $empresa);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_VINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
} else {
$msg .= "WARN\tLINEA OMITIDA\r\n";
}
}
$msg .= $xCred->getMessages();
$msg .= $xPlan->getMessages();
$mObj = $xPlan->getObjRec();
if ($mObj != null) {
$mObj->setFinalizarRecibo(true);
$msg .= $mObj->getMessages(OUT_TXT);
}
}
$msg .= $xFil->getMessages();
if (MODO_DEBUG == true) {
$xFl = new cFileLog();
$xFl->setWrite($msg);
$xFl->setClose();
$xFRM->addHTML($xFl->getLinkDownload("archivo de eventos"));
} else {
echo JS_CLOSE;
}
echo $xFRM->get();
}
echo $xHP->setBodyEnd();
//$jsb->show();
?>
<!-- HTML content -->
<script>
</script>
<?php
$xHP->end();
break;
}
} else {
$msg .= "{$socio}\tNO.EXIST\t0\t{$sdoCW}\t0\tSocio No existe en la Sucursal\r\n";
}
}
$html = new cHTMLObject();
$fileDw = getSucursal() . "-compacw-comparacion_auxiliares_del_catalogo-" . date("ydmHsi");
$fileDi = getSucursal() . "-{$TipoDeImportacion}-diferencias_compaqw-vs-safe_" . date("ydmHsi");
$cF = new cFileLog($fileDw);
$cFd = new cFileLog($fileDi);
$cF->setWrite($msg);
$cF->setClose();
//
$cFd->setWrite($msgD);
$cFd->setClose();
echo $cFd->getLinkDownload("Archivo de diferencias");
echo $cF->getLinkDownload("Datos del proceso de Comparacion");
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO ES SOPORTADO</p>";
}
}
}
?>
</fieldset>
</form>
<?php
}
if (!isset($iReg)) {
$iReg = 0;
}
} else {
$msg .= "{$iReg}\tOMITIDO\t{$socio}\tSocio[{$socio}] y Dato Omitido\r\n";
}
}
$iReg++;
}
}
fclose($gestor);
$html = new cHTMLObject();
if ($TipoDeSalida == "comparable") {
$msg = "SOCIO,NOMBRE,MONTO,CUENTA,ESTATUS\r\n";
$msg .= $txt;
}
$cF = new cFileLog();
$cF->setWrite($msg);
$cF->setClose();
echo $cF->getLinkDownload("Mostrar Datos del Proceso");
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO ES SOPORTADO</p>";
}
}
}
}
if (!isset($iReg)) {
$iReg = 0;
}
?>
</fieldset>
</form>
</body>
<script >
function Common_c5fe0408555dbf392918c6f77a4d01b2($params)
{
$stdDiv = STD_LITERAL_DIVISOR;
$DPar = explode($stdDiv, $params, 10);
//mensajes
//grupo
$xTip = new cTipos();
//
$socio = $xTip->cInt($DPar[0]);
$credito = $xTip->cInt($DPar[1]);
$letra = $xTip->cInt($DPar[2]);
$capital = $xTip->cFloat($DPar[3]);
$interes = $xTip->cFloat($DPar[4]);
$iva = $xTip->cFloat($DPar[5]);
$ahorro = $xTip->cFloat($DPar[6]);
$nota = $xTip->cChar($DPar[7]);
$numero = $xTip->cInt($DPar[8]);
$limit = $xTip->cInt($DPar[9]);
$msg = "====================== MOVIMIENTO {$numero} DE {$limit} ====================\r\n";
//Datos del Credito
$Cred = new cCredito($credito, $socio);
$Cred->initCredito();
$DCred = $Cred->getDatosDeCredito();
$saldo = $DCred["saldo_actual"] - $capital;
$contrato_captacion = $DCred["contrato_corriente_relacionado"];
$grupo = $DCred["grupo_asociado"];
$msg .= $Cred->getMessages();
if (isset($_SESSION["recibo_en_proceso"])) {
$recibo = $_SESSION["recibo_en_proceso"];
$fecha = fechasys();
$_SESSION["total_recibo_en_proceso"] += $capital + $interes + $ahorro;
$xRec = new cReciboDeOperacion(200, false, $recibo);
$xRec->setNumeroDeRecibo($recibo, true);
$xRec->setNumeroDeRecibo($recibo, true);
$DRec = $xRec->getDatosInArray();
$cheque = $DRec["cheque_afectador"];
$tipopago = $DRec["tipo_pago"];
$recibofiscal = $DRec["recibo_fiscal"];
$xRec->setGenerarPoliza();
$msg .= "{$socio}\t{$credito}\tCREDITO\tMovimiento {$i} del Credito {$credito} del Socio {$socio} con Saldo {$saldo}\r\n ";
$msg .= "{$socio}\t{$credito}\tMONTOS\tCapital: {$capital} || Interes: {$interes} || Ahorro: {$ahorro} \r\n";
//Agregando Capital
if ($capital > 0) {
$xRec->setNuevoMvto($fecha, $capital, 120, $letra, $nota . ";SDO:" . $saldo, 1, TM_ABONO, $socio, $credito);
$arrCred = array("saldo_actual" => $saldo);
$Cred->setUpdate($arrCred);
}
//Agregando Interes
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $interes, 140, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//agregando el IVA
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $iva, 151, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//Agregando Ahorro
if ($ahorro > 0) {
$xC = new cCuentaALaVista($contrato_captacion);
if (!isset($contrato_captacion) or $contrato_captacion == CTA_GLOBAL_CORRIENTE or $contrato_captacion == 0) {
$contrato_captacion = $xC->setNuevaCuenta(2, 1, $socio, "CUENTA_AUTOMATICA", $credito);
$msg .= "{$socio}\t{$credito}\tNuevaCta\tse dio de alta a la cuenta {$contrato_captacion}\r\n";
//2011-nov-30 se agrego la actualizacion del contrato relacionado
$arrCred = array("contrato_corriente_relacionado" => $contrato_captacion);
$Cred->setUpdate($arrCred);
}
$xC = new cCuentaALaVista($contrato_captacion);
$xC->setSocioTitular($socio);
$xC->setReciboDeOperacion($recibo);
$xC->setDeposito($ahorro, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo);
$msg .= $xC->getMessages("txt");
$msg .= "{$socio}\t{$credito}\tAhorro\t El Saldo Quedo en " . $xC->getNuevoSaldo() . "\r\n";
}
$msg .= "{$socio}\t{$credito}\tObservacion\t {$nota}\r\n";
$msg .= $xRec->getMessages("txt");
} else {
$msg .= "NO_SE_HA_DEFINIDO_UN_RECIBO";
}
$xLog = new cFileLog("log_de_recibo_" . $recibo);
$xLog->setWrite($msg);
$xLog->setClose();
$MsgEnd = "";
if ($numero == $limit) {
$xRec->setForceUpdateSaldos();
$xRec->setFinalizarRecibo(true);
//$MsgEnd .= "**** proceso terminado ****";
}
//retorna el id del control de origen para neutralizar
return "-{$numero}";
}
}
if ($deposito > 0) {
$xCta->setDeposito($deposito);
}
$msg .= $xCta->getMessages();
}
}
$conteo++;
}
$xFRM->addAviso($msg);
$xFRM->addSubmit();
}
if (MODO_DEBUG == true) {
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
$xFRM->addToolbar($xF->getLinkDownload("TR.Archivo de eventos", ""));
}
}
/*$xFRM->addJsBasico();
$xFRM->addCreditBasico();*/
echo $xFRM->get();
?>
<script>
var mact = "<?php
echo MQL_ADD;
?>
";
function setEnviarDocto(){
$("#id-frmcargamasiva").attr("action", "vista.carga-masiva.frm.php?action=" + mact);
$("#id-frmcargamasiva").submit();
$asucursal = $id2;
$ql = new MQL();
$sql = "SHOW TABLES IN " . MY_DB_IN;
$rs = $ql->getDataRecord($sql);
foreach ($rs as $row) {
$tabla = $row["Tables_in_" . MY_DB_IN];
$isql = "UPDATE {$tabla} SET sucursal='{$asucursal}' WHERE sucursal='{$desucursal}' ";
$ql->setRawQuery($isql);
$ql->setRawQuery("UPDATE {$tabla} SET sucursal=LOWER(sucursal)");
}
break;
}
if ($command != false) {
//Graba los Mensajes del LOG y cierra el Archivo
$xFLog->setWrite($msg);
$xFLog->setClose();
echo $xFLog->getLinkDownload("Registro de Eventos");
}
?>
</fieldset>
<?php
$jxc->drawJavaScript(false, true);
?>
<script >
var mFrm = document.frmUtils;
function myInfoUtil(){
jsinfo_util();
<?php
echo $jsExtra;
function jsaSetAplicarPerfiles($id)
{
$xP = new cSystemPermissions();
$xP->setAplicarPerfil();
$xFil = new cFileLog();
$xFil->setWrite($xP->getMessages());
$xFil->setClose();
return $xFil->getLinkDownload("Cambios");
}
function addLog($msg)
{
//if(MODO_DEBUG == true){
$xFL = new cFileLog(false, true);
$xFL->setWrite($msg);
$xFL->setClose();
unset($msg);
$this->addToolbar($xFL->getLinkDownload("TR.LOG_FILE", ""));
//}
}
$fecha = $rw["fecha_afectacion"];
$detalles = $rw["detalles"];
if ($cuenta_movible != $cuenta) {
$mvto = 0;
$saldo = 0;
$init = "<tr><td colspan='8' ><hr /></td></tr>";
} else {
$mvto++;
$init = "";
}
$saldo += $importe * $rw["afectacion"];
$txt .= "{$socio}\t{$cuenta}\t{$mvto}\t{$fecha}\t" . round($importe, 2) . "\t" . $arrConvMvto[$rw["afectacion"]] . "\t" . round($saldo, 2) . "\t{$detalles}\r\n";
$cuenta_movible = $cuenta;
$limit++;
if ($limit == 35000) {
$x = new cFileLog($filename . "_hasta_" . $cuenta);
$x->setWrite($txt);
$x->setClose();
echo $x->getLinkDownload("Archivo para Importar") . "<br />";
$limit = 0;
$txt = "";
}
}
?>
</body>
<script >
function initComponents(){
//window.print();
}
</script>
</html>
$xRec = new cReciboDeOperacion();
$xRec->setNumeroDeRecibo($recibo, true);
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha(true));
$xFRM->addHTML($xRec->getJsPrint(true));
if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) {
if ($ReciboIDE != 0) {
$xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de impuestos", "jsPrintIDE()", "imprimir", "idrec-ide", false));
}
}
if (MODO_DEBUG == true) {
$msg .= $xCta->getMessages();
$msg .= $xRec->getMessages();
$xFL = new cFileLog(false, true);
$xFL->setWrite($msg);
$xFL->setClose();
$xFRM->addToolbar($xFL->getLinkDownload("TR.Archivo de sucesos", ""));
}
$xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de deposito", "jsImprimirRecibo()", "imprimir", "idrec-dep", false));
} else {
$msg .= "ERROR\tLA CUENTA NO ES OPERATIVA EN LA FECHA {$Fecha}\r\n";
}
$xFRM->addToolbar($xBtn->getIrAlInicio(true));
}
$xFRM->addAviso($msg, "idmsg", true);
}
echo $xFRM->get();
?>
</body>
<script >
$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fechaop, 1, 12, "CIERRE_DE_COLOCACION_{$fechaop}", DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, DEFAULT_GRUPO);
$xRec->setNumeroDeRecibo($idrecibo);
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\t" . EACP_NAME . " \r\n";
$messages .= "=========================\t\t" . getSucursal() . " \r\n";
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\tINICIANDO EL CIERRE DE COLOCACION ====================\r\n";
$messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n";
//reconstruir db de pagos
$ql->setRawQuery("CALL `proc_historial_de_pagos` ");
$xCUtils = new cUtileriasParaCreditos();
$messages .= $xCUtils->setEstatusDeCreditos($idrecibo, $fechaop, false, true);
if (date("Y-m-t", strtotime($fechaop)) == date("Y-m-d", strtotime($fechaop))) {
$messages .= $xCUtils->setGenerarMvtoFinDeMes($xF->getDiaInicial(), $xF->getDiaFinal());
}
if (CREDITO_CIERRE_FORZAR_DEVENGADOS == true) {
$messages .= $xCUtils->setReestructurarSDPM_Planes(true, false, false, false, $xF->getDiaInicial(), false);
$messages .= $xCUtils->setReestructurarSDPM(true, false, false, false, false, $xF->getDiaInicial(), false);
$messages .= $xCUtils->setRegenerarInteresDevengado(false, $xF->get(), $xF->get());
}
$messages .= $xCUtils->setAcumularIntereses();
$xRec->setFinalizarRecibo(true);
$xLog->setWrite($messages);
$xLog->setClose();
if (ENVIAR_MAIL_LOGS == true) {
$xLog->setSendToMail("TR.Eventos del Cierre del colocacion");
}
if ($parser != false) {
header("Location: ./cierre_de_captacion.frm.php?s=true&k=" . $key . "&f={$fechaop}");
}
//}
function setExport($FechaInicial = false, $FechaFinal = false)
{
$wByFi = $FechaInicial == false ? "" : " WHERE fecha_de_alta>='{$FechaInicial}' ";
$wByFf = $FechaFinal == false ? "" : " AND fecha_de_alta<='{$FechaFinal}' ";
$sucursal = getSucursal();
$arrTipos = array("AD" => "A", "AA" => "B", "PD" => "C", "PA" => "D", "CD" => "E", "CA" => "F", "RD" => "G", "RA" => "H", "OD" => "K", "OA" => "L", "ED" => "I", "EA" => "J");
//safe => Compaq
$arrMayor = array("3" => "1", "4" => "2", "1" => "3", "2" => "4");
//3 safe mayor
$WriteText = "F 00000000000000\r\n";
//cuenta de flujo de efectivo
$sql = "SELECT numero, equivalencia, nombre, tipo, ctamayor, afectable, centro_de_costo, fecha_de_alta, digitoagrupador \r\n \t\t\tFROM contable_catalogo {$wByFi} {$wByFf} \r\n \t\t\tORDER BY numero\r\n \t\t\t";
$rs = mysql_query($sql, cnnGeneral());
if (!$rs) {
//Codigo de Control de Error
saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|||Numero: " . mysql_errno() . "|||Instruccion SQL: \n " . $sql);
}
//$WriteText .= "$sql\r\n";
while ($rw = mysql_fetch_array($rs)) {
//XXX: Si el titulo asignar 0 a superior
//$WriteText .= "C ";
//CompAQi
$WriteText .= "C ";
//$WriteText .= substr(str_pad($rw["numero"], 20, " ", STR_PAD_RIGHT), 0, 20);
$WriteText .= substr(str_pad($rw["numero"], 30, " ", STR_PAD_RIGHT), 0, 30);
$WriteText .= " ";
$WriteText .= substr(str_pad(trim($rw["nombre"]), 50, " ", STR_PAD_RIGHT), 0, 50);
$WriteText .= " ";
$WriteText .= substr(str_pad("", 50, " ", STR_PAD_RIGHT), 0, 50);
$WriteText .= " ";
//cuenta superior, mod a 30. compaqi
//$WriteText .= substr(str_pad( cuenta_superior( $rw["numero"] ), 20, " ", STR_PAD_RIGHT), 0, 20);
$WriteText .= $rw["ctamayor"] == 1 ? substr(str_pad(cuenta_superior("0"), 30, " ", STR_PAD_RIGHT), 0, 30) : substr(str_pad(cuenta_superior($rw["numero"]), 30, " ", STR_PAD_RIGHT), 0, 30);
$WriteText .= " ";
$WriteText .= $arrTipos[$rw["tipo"]];
$WriteText .= " ";
$WriteText .= "0 ";
//Baja
$WriteText .= $arrMayor[$rw["ctamayor"]];
$WriteText .= " ";
$WriteText .= "0 ";
$WriteText .= date("Ymd", strtotime($rw["fecha_de_alta"]));
$WriteText .= " ";
//Actualizacion ContPAQi
$WriteText .= "81 ";
//Sistema de Origen
$WriteText .= " 1 ";
//Moneda
$WriteText .= " 0 ";
//Digito Agrupador
$WriteText .= "0 ";
//Segmento de Negocio
$WriteText .= "0 ";
//Mvto.Segmento de Negocio
$WriteText .= "\r\n";
//$WriteText .= "01 01 0000 000\r\n";
}
$nombre = "{$sucursal}-catalogo-contable-" . date("Ymd", strtotime(fechasys())) . "-" . rand(0, 1000) . "";
$xFile = new cFileLog($nombre);
$xFile->setWrite($WriteText);
$xFile->setClose();
return $xFile->getLinkDownload($nombre);
}
