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 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 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");
}
$xConv = new cProductoDeCredito($tipoconvenio);
$xConv->init();
if (USE_OFICIAL_BY_PRODUCTO == true) {
$oficial_de_seguimiento = $xConv->getOficialDeSeguimiento();
}
if ($esrenovado == true) {
$TipoDeAutorizacion = CREDITO_AUTORIZACION_RENOVADO;
$msg .= "WARN\tCredito marcado como Renovado \r\n";
}
$xCred = new cCredito();
$result = $xCred->add($tipoconvenio, $persona, $contrato_corriente, $monto_solicitado, $periocidad, $numeropagos, $dias_solicitados, $rubro_destino, false, $grupo_asociado, $amp_destino, $observaciones, $oficial_de_credito, $fecha_solicitud, $tipo_de_pago, INTERES_POR_SALDO_INSOLUTO, false, $fecha_ministracion, $xSoc->getClaveDeEmpresa(), $TipoDeAutorizacion);
if ($result == false) {
$xFRM->addToolbar($xBtn->getRegresar("solicitud_de_credito.frm.php", true));
$xFRM->addAviso($xHP->lang(MSG_ERROR_SAVE));
$xFL = new cFileLog();
$xFL->setWrite($xCred->getMessages(OUT_TXT));
$xFL->setWrite($xSoc->getMessages());
$xFL->setClose();
$xFRM->addToolbar($xFL->getLinkDownload("Log de eventos", ""));
$xFRM->addAviso($xCred->getMessages());
} else {
$xCred->init();
$credito = $xCred->getNumeroDeCredito();
//Si es Automatizado
$xCat = new cCreditosOtrosDatos();
if ($tieneprops == true) {
$xCred->setOtrosDatos($xCat->AML_CON_PROPIETARIO, "1");
}
if ($tieneprovs == true) {
$xCred->setOtrosDatos($xCat->AML_CON_PROVEEDOR, "1");
}
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;
$xTxt = new cFileLog(false, true);
$sqlSoc = "SELECT\n\t* \nFROM\n\t`socios_general` `socios_general` /*\n\t\tINNER JOIN `general_tmp` `general_tmp` \n\t\tON `socios_general`.`codigo` = `general_tmp`.`field_id1` */";
$rs = mysql_query($sqlSoc, cnnGeneral());
$tr = "";
while ($rw = mysql_fetch_array($rs)) {
$curp = strtoupper($rw["curp"]);
$app1 = $rw["apellidopaterno"];
$app2 = $rw["apellidomaterno"];
$nombre = $rw["nombrecompleto"];
$socio = $rw["codigo"];
if (strlen($curp) < 18) {
$curp = "";
}
if (strpos($curp, "IMPORT") >= 1) {
$curp = "";
$xTxt->setWrite("{$socio}\tCURP\tEs una CURP no valida\r\n");
}
$findEstado = "";
$fechaNac = date("Ymd", strtotime($rw["fechanacimiento"]));
$estadoNac = $rw["lugarnacimiento"];
$xTxt->setWrite("{$socio}\tel estado de Nacimiento es {$estadoNac}\r\n");
//Obtiene el Estado segun la CURP
if (strlen($curp) == 18) {
$findEstado = substr($curp, 11, 2);
$xTxt->setWrite("{$socio}\tCURP\tSe propone {$tmpEstado} de una CURP de {$curp}\r\n");
//$fechaNac = substr($curp, 5, 2);
} else {
//Purgar estado
$estadoNac = str_ireplace("SAN ", "SAN_", $estadoNac);
$estadoNac = str_ireplace("LA ", "LA_", $estadoNac);
$estadoNac = str_ireplace("EL ", "EL_", $estadoNac);
//Imprime la Ficha del socio
$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 >
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}";
}
$desucursal = $id;
$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
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>
$NombreOtorgante = $xCR->getNombreOtorgante();
$DomicilioDevolucion = "";
//str_replace(",", ";", EACP_DOMICILIO_CORTO);
//============================== ELEMENTOS DE CONTROL
$linea .= "{$TotalSaldosActuales}|{$TotalSaldosVencidos}|{$TotalElementosNombres}|{$TotalElementosDireccion}|{$TotalElementosEmpleo}|{$TotalElementosCuenta}|{$NombreOtorgante}|{$DomicilioDevolucion}";
//
if ($xSoc->getEsPersonaFisica() == true) {
if ($toJson == true) {
$arrLinea = explode("|", $linea);
$jsonNew = array();
foreach ($itemJson as $ix => $item) {
$jsonNew[$item] = isset($arrLinea[$ix]) ? $arrLinea[$ix] : "ERORR";
}
$lineaJson[] = $jsonNew;
} else {
echo $linea . "\r\n";
}
} else {
//OMITIDO
$xLog->add("WARN\t{$idpersona}-{$idcredito}\t{$sucres}\tOmitir por ser Persona Moral " . $xSoc->getNombre() . "\r\n", $xLog->DEVELOPER);
}
$icnt++;
}
if (MODO_DEBUG) {
$xFil = new cFileLog();
$xFil->setWrite($xLog->getMessages());
$xFil->setSendToMail($xHP->getTitle(), ADMIN_MAIL);
}
if ($toJson == true) {
echo _json_encode($lineaJson, JSON_PRETTY_PRINT);
}
echo json_encode($arr);
} else {
if ($production == true and $errors == false and $operaciones > 0) {
$archivo = $xLayout->getClave() . $xT->cSerial(6, $casfin) . $FechaTitulo . "." . $xT->cSerial(3, $supervisor);
//header("Content-type: text/x-csv");
header("Content-type: text/plain");
//header("Content-type: application/csv");
header("Content-Disposition: attachment; filename={$archivo}");
echo $rpt;
if ($definitivo == true) {
//Guardar
$sqlUpdate = " UPDATE `aml_risk_register` SET `estado_de_envio` = 1, `fecha_de_envio`= " . $xF->getInt() . "\n\t\t\tWHERE (SELECT `tipo_de_riesgo` FROM `aml_risk_catalog` WHERE `clave_de_control`= `aml_risk_register`.`tipo_de_riesgo`= " . AML_CLAVE_OPERACIONES_INUSUALES . "\n\t\t\tAND (getFechaByInt(`aml_risk_register`.`fecha_de_reporte`) <='{$FechaFinal}')\n\t\t\tAND (`aml_risk_register`.`estado_de_envio` =0)";
$query->setRawQuery($sqlUpdate);
//enviar por mail al administrador
$xLog = new cFileLog($archivo, true);
$xLog->setWrite($rpt);
$xLog->setSendToMail($xHP->getTitle(), ARCHIVO_MAIL);
}
} else {
$xRPT = new cReportes();
$xRPT->setOut(OUT_HTML);
$xRPT->addContent($xRPT->getHInicial($xHP->getTitle(), $FechaInicial, $FechaFinal));
$arrTitulos = array();
foreach ($Estructura as $indice => $propiedades) {
$xCampo = new cReportes_LayoutTipos($propiedades);
$arrTitulos[] = $xCampo->getNombre();
}
$xHTable->addTitles($arrTitulos);
if ($msg != "") {
$xRPT->addFooterBar("<h3>El reporte contiene los siguientes errores</h3>" . $msg);
}
$altitud = $datos[$IDAltitud];
$longitud = $datos[$IDLongitud];
$sql = "INSERT INTO catalogos_localidades(clave_unica, nombre_de_la_localidad, clave_de_estado, clave_de_municipio, clave_de_localidad, longitud, altitud, latitud) \n\t \t\t\t\t\t\t\t\t\t\t\t\t\tVALUES({$ClaveUnica}, '{$NombreLocalidad}', {$ClaveEntidad}, {$claveMunicipio}, {$ClaveLocalidad}, '{$longitud}', '{$altitud}', '{$latitud}') ";
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;
}
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);
}
if ($gestor) {
while (!feof($gestor)) {
$bufer = fgets($gestor, 4096);
//$bufer = stream_get_line($gestor, "\r\n");
if (!isset($bufer)) {
$msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
} else {
$bufer = trim($bufer);
$datos = explode(",", $bufer, 6);
$socio = $cT->cInt($datos[0]);
}
$iReg++;
}
}
fclose($gestor);
$xLog->setWrite($msg);
echo $xLog->getLinkDownload("Archivo del proceso");
} 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>
</body>
<script >
}
} 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>
$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 jsaSetGenerarPolizaPorRecibo($numero)
{
if (setNoMenorQueCero($numero) > 0) {
$Recibo = $numero;
$xPol = new cPoliza(false);
$idpoliza = "";
$msg = "";
if ($xPol->setPorRecibo($numero) == true) {
$idpoliza = $xPol->getCodigo();
} else {
$xUCont = new cUtileriasParaContabilidad();
$xUCont->setRegenerarPrepolizaContable(false, $Recibo);
$xUCont->setPolizaPorRecibo($Recibo);
$idpoliza = $xUCont->getIDPoliza();
$msg .= $xUCont->getMessages();
}
$msg .= $xPol->getMessages();
//exportar
$xPolCW = new cPolizaCompacW(0);
$xPolCW->initByID($idpoliza);
$xPolCW->setRun();
$msg .= $xPolCW->getMessages();
$strDown = $xPolCW->setExport();
if (MODO_DEBUG == true) {
$xLog = new cFileLog();
$xLog->setWrite($msg);
$strDown .= $xLog->getLinkDownload("TR.Eventos");
}
$xBtn = new cHButton();
return $xBtn->getBasic("TR.Modificar Poliza", "jsModificarPoliza('{$idpoliza}')", $xBtn->ic()->EDITAR, "cmdeditpoliza") . $strDown;
} else {
return "NO HAY REGISTRO QUE GENERAR [{$numero}]";
}
}
