/**
* Funcion que devuelve si el Domicilio Principal Existe
* @param integer $idsocio
*/
function Common_56f5780b422f3f0f67183f89e99625c4($idsocio = false)
{
$yatiene = 0;
if (isset($idsocio) and $idsocio != false) {
$sqlya = "SELECT COUNT(idsocios_vivienda) AS \"contado\"\n\t\t\t\tFROM socios_vivienda WHERE socio_numero={$idsocio}\n\t\t\t\tAND principal=\"1\" ";
$yatiene = mifila($sqlya, "contado");
}
return $yatiene;
}
function jsaGetCuotasDeDefuncion($socio)
{
$cuota_pagada = 0;
$fecha_a_tolerar = restardias(fechasys(), DIAS_A_ROTAR_FONDO_DE_DEFUNCION);
$cuota_a_pagar = 100;
$sql = "SELECT SUM(afectacion_real) AS 'monto',\n\t\t\tMAX(fecha_operacion) AS 'fecha_pago'\n\t\t\tFROM operaciones_mvtos\n\t\t\tWHERE tipo_operacion=902\n\t\t\tAND socio_afectado={$socio}\n\t\t\tAND fecha_operacion>='{$fecha_a_tolerar}'\n\t\t";
$cuota_pagada = mifila($sql, "monto");
if ($cuota_pagada < 0) {
$cuota_pagada = 0;
}
$cuota_a_pagar = $cuota_a_pagar - $cuota_pagada;
//TODO: Terminar
$tab = new TinyAjaxBehavior();
$tab->add(TabSetvalue::getBehavior('idmonto', $cuota_a_pagar));
return $tab->getString();
}
function jsaSavePoliza($idejercicio, $idperiodo, $idtipopol, $idpoliza, $idfechapol, $idconceptopol, $cargos, $abonos)
{
$msg = "";
$sqle = "SELECT count(numeropoliza) AS 'ids' FROM contable_polizas\n\tWHERE ejercicio={$idejercicio}\n\tAND periodo={$idperiodo}\n\tAND tipopoliza={$idtipopol}\n\tAND numeropoliza={$idpoliza}";
$hay = mifila($sqle, "ids");
if ($hay == 0) {
$idfechapol = getFechaUS($idfechapol);
$sqlnpol = "INSERT INTO contable_polizas(ejercicio, periodo, tipopoliza, numeropoliza, clase, impresa, concepto, fecha, cargos, abonos, diario)\n VALUES({$idejercicio},\n\t{$idperiodo}, {$idtipopol},\n\t{$idpoliza}, \t1,\n\t'false', '{$idconceptopol}',\n\t'{$idfechapol}', \t{$cargos}, \t{$abonos},\n\t999)";
//echo $sqle;
$xbs = my_query($sqlnpol);
if ($xbs["stat"] != false) {
$msg = "Se ha Agregado la Poliza Exitosamente!!";
}
} else {
//jsaSearchPoliza($idejercicio, $idperiodo, $idtpol, $idpoliza);
}
return $msg;
}
function getDiasHabilesEnRango($fecha_final, $fecha_inicial = false)
{
$fecha_inicial = $fecha_inicial == false ? $this->get() : $fecha_inicial;
// Dias no Laborables(En Ingles) segun las Necesidades de la Empresa
$dias_no_laborables = 0;
$sabados = 0;
$domingos = 0;
$sql = "SELECT COUNT(fecha_marcado) AS 'festivos' FROM general_dias_festivos WHERE `fecha_marcado` >='{$fecha_inicial}' AND `fecha_marcado` <='{$fecha_final}' ";
$dias_no_laborables = mifila($sql, "festivos");
$dias_en_rango = $this->setRestarFechas($fecha_final, $fecha_inicial);
for ($iniciar = 0; $iniciar <= $dias_en_rango; $iniciar++) {
$dia = intval(date("N", strtotime($this->setSumarDias($iniciar, $fecha_inicial))));
if ($dia == 7) {
$dias_no_laborables++;
}
// DOMINGO
if (WORK_IN_SATURDAY == false) {
if ($dia == 6) {
$dias_no_laborables++;
}
}
}
return $dias_no_laborables;
}
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title></title>
</head>
<link href="../css/reporte.css" rel="stylesheet" type="text/css">
<body>
<!-- -->
<?php
echo getRawHeader();
$sql = "SELECT idoperaciones_recibos, numero_socio \nFROM operaciones_recibos where fecha_operacion>='{$id}' AND fecha_operacion<='{$ip}'";
$rs1 = mysql_query($sql);
while ($rw = mysql_fetch_array($rs1)) {
$sqltress = $sqlb18c . " AND valor_afectacion<>0 AND recibo_afectado={$rw['0']}";
$sqlcbt = "SELECT COUNT(idoperaciones_mvtos) AS 'numero' FROM operaciones_mvtos WHERE valor_afectacion<>0 AND recibo_afectado={$rw['0']}";
$nopers = mifila($sqlcbt, "numero");
// echo "<hr></hr>";
if ($nopers > 0) {
echo "<hr></hr>";
minificha(6, $rw[0]);
echo "<hr></hr>";
//echo "$sqltress \n <br>";
sqltabla($sqltress, "", "fieldnames");
}
}
@mysql_free_result($sqltress);
// */
echo getRawFooter();
?>
</body>
</html>
* Funcion que Checa si es afectable
*/
$jxc->exportFunction('nombre_cuenta', array('idcuenta', "frmpolizamvtos"));
$jxc->exportFunction('save_mvto', array('idkeymvto', "idcuenta", "idcargo", "idabono", "idreferencia", "idconcepto", "idfecha", "frmpolizamvtos"));
$jxc->exportFunction('UpdateEditMvto', array('idkeymvtoU', "idCuentaU", "idCargoU", "idAbonoU", "idReferenciaU", "idConceptoU", "idDiarioU", "frmpolizamvtos"), "#idSwCatalogo");
$jxc->exportFunction('listar_cuentas', array('idcuenta'), '#idSwCatalogo');
$jxc->exportFunction('setListaCuentas', array('idcuentaU'), '#idSwCatalogo');
$jxc->exportFunction('jsTAEliminarMvto', array('idkeymvtoToDelete'));
$jxc->process();
if ($poliza != false) {
$sqlpol = "SELECT * FROM contable_polizas WHERE ejercicio={$ejercicio}\n\t\t\tAND periodo={$periodo} AND tipopoliza={$tipo} AND numeropoliza={$poliza}";
$dpol = getFilas($sqlpol);
$fecha = $dpol["fecha"];
$d_concepto = $dpol["concepto"];
$sql_umvto = "SELECT MAX(numeromovimiento) AS 'mmvto' FROM contable_movimientos\n\t\t\tWHERE ejercicio={$ejercicio} AND periodo={$periodo}\n\t\t\tAND numeropoliza={$poliza} AND tipopoliza={$tipo}";
$m_mvto = mifila($sql_umvto, "mmvto") + 1;
$k_mvto = "i@{$ejercicio}@{$periodo}@{$poliza}@{$tipo}@{$m_mvto}";
}
$xHP->init("InitMvtos()");
?>
<form name="frmpolizamvtos" id="idfrmpolizamvtos" method="post">
<?php
$itype = "hidden";
?>
<input type='<?php
echo $itype;
?>
' id='idkeymvtoToDelete' />
<table style="font-weight: normal;">
<tbody id="TBMovimientos">
<tr>
</tr>
</table>
<p class='aviso'>
<input type="button" name="sendme" value="GUARDAR DATOS Y LIMPIAR FORMULARIO" onClick="checkvalue();">
</p>
</form>
<?php
$sqlm = $sqlb15 . " AND solicitud_flujo={$idsolicitud}";
//echo $sqlm;
$mTab = new cTabla($sqlm);
$mTab->addTool(1);
$mTab->addTool(2);
$mTab->Show("", false);
$mTab->setKeyField("idcreditos_flujoefvo");
$sqlss = "SELECT SUM(afectacion_neta) AS 'sumtrim' FROM {$t_cfe} WHERE solicitud_flujo={$idsolicitud}";
$ssmoun = mifila($sqlss, "sumtrim");
echo "<hr>\r\n\t<table align='center'>\r\n\t<tr>\r\n\t\t<th>CAPACIDAD DE PAGO DIARIA:</th>\r\n\t\t<td class='mny'>\$ {$ssmoun}</td>\r\n\t</tr>\r\n\t<tr>\r\n\t\t<th colspan='2'><input type='button' name='cmdrpt' value='Ver / Imprimir Formato de Acuse del Flujo de Efectivo' onClick='rptflujo({$idsolicitud});'></td>\r\n\t</tr>\r\n\t</table>";
?>
<hr>
</body>
<script >
function rptflujo(lasol) {
var misol = lasol;
var varurl = '../rptcreditos/rpt_acuse_flujo_efvo.php?s=' + misol;
var ulan = window.open(varurl);
ulan.focus();
}
<?php
echo $mTab->getJSActions();
?>
</script>
$permiso = getSIPAKALPermissions($theFile);
if ($permiso === false) {
header("location:../404.php?i=999");
}
$_SESSION["current_file"] = addslashes($theFile);
//<===== FIN_H
$iduser = $_SESSION["log_id"];
//=====================================================================================================
include_once "../core/entidad.datos.php";
include_once "../core/core.deprecated.inc.php";
include_once "../core/core.fechas.inc.php";
include_once "../core/core.config.inc.php";
require_once "." . TINYAJAX_PATH . "/TinyAjax.php";
$pUSRNivel = $_SESSION["SN_d567c9b2d95fbc0a51e94d665abe9da3"];
$oficial = elusuario($iduser);
$maxColonia = mifila("SELECT (MAX(idgeneral_colonia) + 1) AS 'ultimo' FROM general_colonias", "ultimo");
$RemoteAction = "xul_local_disable(true)";
$action = $_GET["e"];
if (isset($action)) {
$RemoteAction = "{$action}()";
}
$jxc = new TinyAjax();
//Valores de Control por default
$FActual = date("Y-m-d");
$retrieveKey = $_GET["x"];
$rw = explode("^", "{$maxColonia}^" . DEFAULT_CODIGO_POSTAL . "^ANOTE_EL_NOMBRE_COMPLETO^Colonia^" . DEFAULT_NOMBRE_LOCALIDAD . "^" . DEFAULT_NOMBRE_MUNICIPIO . "^" . DEFAULT_NOMBRE_ESTADO . "^{$FActual}^4^1^" . getSucursal());
//Genera Valores por el GET KEY recibido
if (isset($retrieveKey)) {
if (is_string($retrieveKey)) {
$retrieveKey = "'{$retrieveKey}'";
}
function getPeriodo()
{
if ($this->mPeridoActivo == null) {
$sql = "SELECT MAX(periodo_socio) AS 'parcialidad' FROM operaciones_mvtos WHERE recibo_afectado=" . $this->mCodigoDeRecibo;
$this->mPeridoActivo = mifila($sql, "parcialidad");
}
return $this->mPeridoActivo;
}
function getUltimoFolio($salvar = true)
{
//$ejercicio, $periodo, $tipo
$ejercicio = $this->mEjercicioPoliza;
$periodo = $this->mPeriodoPoliza;
$tipo = $this->mTipoDePoliza;
$numero = 1;
$SQL = "SELECT (MAX(numero) + 1) AS 'id'\n\t\t\t\tFROM general_folios_poliza\n\t\t\t\tWHERE ejercicio={$ejercicio}\n\t\t\t\tAND periodo={$periodo}\n\t\t\t\tAND tipo={$tipo}";
//setLog($SQL);
$numero = mifila($SQL, "id");
//TODO: Agregar evaluacion de tipos
if (!isset($numero) or is_null($numero) or $numero == "NULL" or $numero <= 0) {
$numero = 1;
}
return $numero;
}
function setContarCuentaBySocio($socio, $subproducto = 10)
{
$sql_hay = "SELECT COUNT(numero_cuenta) AS 'cuentame'\n\t\t\t\t\t\t\tFROM captacion_cuentas\n\t\t\t\t\t\t\tWHERE numero_socio=" . $socio . "\n\t\t\t\t\t\t\tAND tipo_subproducto={$subproducto} ";
$cuentas = mifila($sql_hay, "cuentame");
return $cuentas;
}
/**
* Evalua si existe un socio
* @param string $user
* @return boolean
*/
function existe($user = false)
{
$user = $user == false ? $this->mCodeUser : $user;
$existentes = 0;
if (isset($user) and $user != false) {
$sql = "SELECT COUNT(idusuarios) AS 'existentes' FROM t_03f996214fba4a1d05a68b18fece8e71 WHERE idusuarios = {$user}";
$existentes = mifila($sql, "existentes");
}
return $existentes == 0 ? false : true;
}
function jrsVerifyExistPoliza($args)
{
$hay = 0;
$Dclave = explode(STD_LITERAL_DIVISOR, $args, STD_MAX_ARRAY_JS);
$ejercicio = $Dclave[0];
$periodo = $Dclave[1];
$tipopoliza = $Dclave[2];
$numeropoliza = $Dclave[3];
$sqle = "SELECT count(numeropoliza) AS 'ids' FROM contable_polizas\n\tWHERE ejercicio={$ejercicio}\n\tAND periodo={$periodo}\n\tAND tipopoliza={$tipopoliza}\n\tAND numeropoliza={$numeropoliza}";
$hay = mifila($sqle, "ids");
return $hay;
}
exit($msg_rpt_exit . $fhtm);
}
$idsolicitud = $rwrec[3];
$idsocio = $rwrec[2];
$domicilio = sociodom($idsocio);
$x = getDatosSocio($idsocio);
$rfc = $x[4];
$curp = $x[5];
$iddocto = $rwrec["docto_afectado"];
if ($idsocio != 1) {
$nombre = getNombreSocio($idsocio);
} else {
$rfc = "N/A";
$curp = "N/A";
$domicilio = "PARTE RELACIONADA DE LA EMPRESA";
$nombre = mifila($sqlrec, "cadena_distributiva");
}
echo "<hr>\n\t\t<table border='0' width='100%'>\n\t\t<tr>\n\t\t\t<th width='10%'>Referencia:</th>\n\t\t\t<td with='10%'>{$idrecibo} | {$iddocto}</td>\n\t\t\t<td width='80%'>" . DEFAULT_NOMBRE_LOCALIDAD . ", " . DEFAULT_NOMBRE_ESTADO . "; " . fecha_larga($rwrec[1]) . "</td>\n\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th>Socio</th>\n\t\t\t<td colspan='2'>[ {$idsocio} ] {$nombre}</td>\n\t\t\t\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th>Domicilio</th>\n\t\t\t<td colspan='2'>{$domicilio}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th>R.F.C./C.U.R.P.</th>\n\t\t\t<td>{$rfc} / {$curp}</td>\n\t\t\t<td />\n\t\t</tr>\n\t\t</table>\n\t\t<hr>";
$monto = getFMoney($rwrec[5]);
$letras = convertirletras($rwrec[5]);
$parrafo = "";
if ($rwrec[4] == 32) {
$parrafo = "<p>ESTA CANTIDAD TENDRA UN CARACTER DEVOLUTIVO, CONFORME A LAS POLITICAS VIGENTES DE LA SOCIEDAD;\n\t\t\t EN DADO CASO QUE NO LO RETORNE DIRECTAMENTE EN CAJA, SER&Acute; CARGADO A MI CUENTA Y SE DESCONTARA DIRECTAMENTE\n\t\t\t A MI SALARIO AL NO PRESENTAR PAGO ANTES DE LA FECHA DE VENCIMIENTO</p>";
} elseif ($rwrec[4] == 31) {
$parrafo = "<p>ESTA CANTIDAD TENDRA UN CARACTER DEVOLUTIVO, CONFORME A LAS POLITICAS VIGENTES DE LA SOCIEDAD;\n\t\t\t EN DADO CASO QUE NO LO RETORNE DIRECTAMENTE EN CAJA, SER� CARGADO A MI CUENTA Y SE DESCONTARA DIRECTAMENTE\n\t\t\t A MI SALARIO AL NO PRESENTAR PAGO ANTES DE LA FECHA DE VENCIMIENTO</p>";
} else {
$parrafo = "";
}
$tiporec = eltipo("operaciones_recibostipo", $rwrec[4]);
// RECIBO
echo "<table width ='100%'>\n\t\t\t\t<tr>\n\t\t\t\t\t<td> RECIBI DE <b>" . EACP_NAME . "</b> LA CANTIDAD DE \$ <b>{$monto}</b> --- SON :(<b>{$letras}</b>)---;\n\t\t\t\t\t\tCANTIDAD RECIBIDA POR CONCEPTO DE <b>{$tiporec}</b> EN EFECTIVO, A MI ENTERA SATISFACCION.\n\t\t\t\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td>\n\t\t\t\t\t\t{$parrafo}\n\t\t\t\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td>OBSERVACIONES: {$rwrec['7']}<td>\n\t\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t</table>\n\t\t<hr>";
include_once "../core/core.deprecated.inc.php";
include_once "../core/core.fechas.inc.php";
include_once "../libs/sql.inc.php";
include_once "../core/core.config.inc.php";
$idsolicitud = $_GET["solicitud"];
/* verifica solicitud */
if (!$idsolicitud) {
echo "<p class='aviso'>NO EXISTE EL NUMERO DE SOLICITUD</p>";
exit;
}
$isql = "SELECT numero_solicitud, numero_socio FROM creditos_solicitud WHERE numero_solicitud = {$idsolicitud}";
if (db_regs($isql) < 1) {
echo "<p class='aviso'>NO EXISTE EL NUMERO DE SOLICITUD</p>";
exit;
}
$idsocio = mifila($isql, "numero_socio");
/*--------------- DATOS DEL MONTO PRESTADO Y CUBIERTO ---------------------- */
//$tipoflujo = $_POST["tipoflujo"];
$origenflujo = $_POST["origenflujo"];
$montoflujo = $_POST["montoflujo"];
$perflujo = $_POST["periocidadflujo"];
$observaciones = $_POST["observaciones"];
$describalo = $_POST["describalo"];
$fecha = fechasys();
$sqltf = "SELECT * FROM creditos_origenflujo WHERE idcreditos_origenflujo={$origenflujo}";
$dflujo = obten_filas($sqltf);
$tipoflujo = $dflujo["tipo"];
/* -------- Afectacion neta segun Movimiento --------------*/
$afectacionneta = $montoflujo / $perflujo;
/* si son semanal(7) se divide entre 7 para ser diario*/
$afectacionneta = $afectacionneta * $dflujo["afectacion"];
while (!feof($gestor)) {
$bufer = fgets($gestor, 4096);
//$bufer = stream_get_line($gestor, "\r\n");
if (!isset($bufer)) {
$msg .= "La Linea({$iReg}) no se leyo({$bufer})\r\n";
} else {
$datos = explode(",", trim($bufer), 3);
$cuenta = trim($datos[0]);
$nombre = strtoupper(trim($datos[1]));
$estatus = $arrEstatus[substr($cuenta, 0, 6)];
$TCuenta = isset($arrTCuenta[substr($cuenta, 0, 12)]) ? $arrTCuenta[substr($cuenta, 0, 12)] : 0;
$monto = $cT->cFloat(trim($datos[2]));
$modalidad = 1;
$aDCuenta = explode("-", $cuenta);
$socio = $cT->cInt($aDCuenta[5]);
$sucursal = mifila("SELECT sucursal FROM socios_general WHERE codigo = {$socio} LIMIT 0,1 ", "sucursal");
if ($sucursal != getSucursal()) {
$sucursal = "otra";
}
//1-3-01-02
if (substr($cuenta, 7, 2) == "02") {
$modalidad = 3;
}
if ($monto > 0 and $socio != 0) {
if ($TipoDeImportacion == "credito") {
$sqlD = "DELETE FROM sisbancs_temp_creditos WHERE cuenta_contable = '{$cuenta}' ";
my_query($sqlD);
//
if ($socio != 0) {
$sqlI = "INSERT INTO sisbancs_temp_creditos(numero_de_socio, cuenta_contable, nombre,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\testatus, modalidad, saldo, sucursal)\n\t\t\t\t\t\t\t\t\t\t\t\t\tVALUES({$socio}, '{$cuenta}', '{$nombre}', {$estatus}, {$modalidad} , {$monto}, '{$sucursal}') ";
my_query($sqlI);
//Describe Movimientos de Interes
$BInteres = new cBases(1011);
$BIva = new cBases(7021);
$xF = new cFecha();
$xSQL = new cSQLListas();
$ByCredito = $credito != false ? "" : "";
$solo_este_mvto = $f18 == "yes" ? " AND operaciones_mvtos.tipo_operacion={$operacion} " : "";
$SinEstadisticos = " AND operaciones_mvtos.valor_afectacion!=0 AND operaciones_tipos.es_estadistico='0' ";
$solo_con_saldos = " ";
if ($f14 == "yes") {
$SinEstadisticos = "";
}
//if ($f16=="yes"){ $solo_con_saldos = " AND saldo_actual > 0 "; }
$sqlcred = "SELECT numero_socio, numero_solicitud,\tsaldo_actual, monto_autorizado\tFROM creditos_solicitud\tWHERE\tnumero_solicitud={$credito} {$solo_con_saldos}\tORDER BY fecha_vencimiento DESC";
if (isset($credito)) {
$persona = mifila($sqlcred, "numero_socio");
}
$NCreditos = 0;
//
if ($persona) {
$sqlcred = "SELECT numero_socio, numero_solicitud, saldo_actual, monto_autorizado FROM creditos_solicitud\t\tWHERE numero_socio={$persona} {$solo_con_saldos} ORDER BY fecha_ministracion, fecha_vencimiento DESC";
$persona = $persona;
$porSocio = true;
}
$xSoc = new cSocio($persona);
$xSoc->init();
echo $xSoc->getFicha(true);
echo "<hr />";
$mycred = getRecordset($sqlcred);
while ($rwc = mysql_fetch_array($mycred)) {
$solicitud = $rwc["numero_solicitud"];
function getValoresArqueados($fecha = false)
{
$sql = "SELECT SUM(`monto_total_arqueado`) AS 'total' FROM `tesoreria_caja_arqueos` WHERE `codigo_de_caja`='" . $this->mClaveDecaja . "'";
$valor = mifila($sql, "total");
return $valor;
}
function setPolizaPorRecibo($recibo, $generador = false)
{
$sucess = false;
$QL = new MQL();
$xLogg = new cCoreLog();
//$arrEquivEfvo =
//if (GENERAR_CONTABILIDAD == true){
$xLogg->add("=======\tGENERAR POLIZA POR RECIBO NUM {$recibo}\r\n", $xLogg->DEVELOPER);
$xT = new cCatalogoOperacionesDeCaja();
$centro_de_costo = DEFAULT_CENTRO_DE_COSTO;
//($generador == GENERAR_POLIZAS_AL_CIERRE) AND
if (setNoMenorQueCero($recibo) > 0) {
$xRec = new cReciboDeOperacion(false, false, $recibo);
if ($xRec->init() == true) {
$sucess = true;
//Obten datos del recibo para la Poliza
$sqlRec = "SELECT\r\n\t\t\t\t\t\t\t`operaciones_recibos`.*,\r\n\t\t\t\t\t\t\t`operaciones_recibostipo`.`tipo_poliza_generada`,\r\n\t\t\t\t\t\t`operaciones_recibostipo`.`afectacion_en_flujo_efvo`\r\n\t\t\t\t\t\tFROM\r\n\t\t\t\t\t\t\t`operaciones_recibos` `operaciones_recibos`\r\n\t\t\t\t\t\t\t\tINNER JOIN `operaciones_recibostipo`\r\n\t\t\t\t\t\t\t\t`operaciones_recibostipo`\r\n\t\t\t\t\t\t\t\tON `operaciones_recibos`.`tipo_docto` =\r\n\t\t\t\t\t\t\t\t`operaciones_recibostipo`.\r\n\t\t\t\t\t\t\t\t`idoperaciones_recibostipo`\r\n\t\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t\t(`operaciones_recibos`.`idoperaciones_recibos` = {$recibo})\r\n\t\t\t\t\t\tLIMIT 0,1 ";
$dRec = obten_filas($sqlRec);
$tipo_de_pago = $xRec->getTipoDePago();
//Corrige los cargos de la PolizaS
$total_poliza = 0;
$SQLSumCargos = "SELECT SUM(monto) AS 'total' FROM contable_polizas_proforma\r\n\t\t\t\t\t\t\t\t\t\t\t\tWHERE contable_operacion = '" . TM_CARGO . "'\r\n\t\t\t\t\t\t\t\t\t\t\t\tAND numero_de_recibo={$recibo} ";
$TMPCargos = mifila($SQLSumCargos, "total");
$SQLSumAbonos = "SELECT SUM(monto) AS 'total' FROM contable_polizas_proforma\r\n\t\t\t\t\t\t\t\t\t\t\t\tWHERE contable_operacion = '" . TM_ABONO . "'\r\n\t\t\t\t\t\t\t\t\t\t\t\tAND numero_de_recibo={$recibo} ";
$TMPAbonos = mifila($SQLSumAbonos, "total");
if ($TMPCargos > $TMPAbonos) {
$diferencia = $TMPAbonos - $TMPCargos;
$diferencia = $diferencia < 0 ? $diferencia * -1 : $diferencia;
$total_poliza = $TMPCargos;
setPolizaProforma($recibo, $xT->getTipoOperacionByTipoPago($tipo_de_pago), $diferencia, 1, 1, TM_ABONO);
$xLogg->add("OK\tCUADRAR\tABONO\tOperacion Agregada por DESCUADRE en {$tipo_de_pago} por {$diferencia}\r\n", $xLogg->DEVELOPER);
//$xLogg->add( , $xLogg->DEVELOPER);
} elseif ($TMPCargos < $TMPAbonos) {
$diferencia = $TMPCargos - $TMPAbonos;
$diferencia = $diferencia < 0 ? $diferencia * -1 : $diferencia;
$total_poliza = $TMPAbonos;
setPolizaProforma($recibo, $xT->getTipoOperacionByTipoPago($tipo_de_pago), $diferencia, 1, 1, TM_CARGO);
$xLogg->add("OK\tCUADRAR\tCARGOS\tOperacion Agregada por DESCUADRE en {$tipo_de_pago} por {$diferencia}\r\n", $xLogg->DEVELOPER);
} else {
$total_poliza = $TMPCargos;
}
//tipos de Poliza 1=ingreso, 2=egreso, 3 Diario, 4=orden 5
$xD = new cFecha(0, $xRec->getFechaDeRecibo());
$numero_de_recibo = $recibo;
$tipo_de_poliza = $xRec->getOTipoRecibo()->getTipoPolizaContable();
$fecha_de_poliza = $xRec->getFechaDeRecibo();
$ejercicio_de_poliza = $xD->anno();
$periodo_de_poliza = $xD->mes();
$recibo_fiscal = strlen($xRec->getReciboFiscal()) > 2 ? ";RF:" . $xRec->getReciboFiscal() : "";
$observacion_recibo = $xRec->getObservaciones();
$cheque = strlen($xRec->getNumeroDeCheque()) > 2 ? ";Ch:" . $xRec->getNumeroDeCheque() : "";
$concepto_poliza = substr("R:" . $numero_de_recibo . $recibo_fiscal . $cheque . ";" . $xRec->getObservaciones(), 0, 80);
$flujo_efectivo = $xRec->getOTipoRecibo()->getAfectacionEnEfvo();
$socio = $xRec->getCodigoDeSocio();
$propietario = $xRec->getCodigoDeUsuario();
$xLogg->add("=====\tRECIBO TIPO: " . $xRec->getTipoDeRecibo() . " SUMA: " . $xRec->getTotal() . " \r\n", $xLogg->DEVELOPER);
//------------------ Agregar Poliza
$xPol = new cPoliza($tipo_de_poliza, false, $ejercicio_de_poliza, $periodo_de_poliza);
$xPol->add($concepto_poliza, $fecha_de_poliza, false, 0, 0, $propietario, $centro_de_costo, $recibo);
$numero_de_poliza = $xPol->get();
$xLogg->add("=====\tPOLIZA NUM: {$numero_de_poliza} | TIPO: {$tipo_de_poliza} | EJERCICIO: {$ejercicio_de_poliza} | PERIODO: {$periodo_de_poliza}\r\n", $xLogg->DEVELOPER);
$sucess = $xPol->mRaiseError == true ? false : true;
//------------------ Leer la PROFORMA
$sqlMvtosToPoliza = "SELECT\r\n\t\t\t\t\t`contable_polizas_proforma`.*,\r\n\t\t\t\t\t`operaciones_tipos`.*\r\n\t\t\r\n\t\t\t\t\tFROM\r\n\t\t\t\t\t`operaciones_tipos` `operaciones_tipos`\r\n\t\t\t\t\t\tINNER JOIN `contable_polizas_proforma`\r\n\t\t\t\t\t\t`contable_polizas_proforma`\r\n\t\t\t\t\t\tON `operaciones_tipos`.`idoperaciones_tipos` =\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`tipo_de_mvto`\r\n\t\t\t\t\t\tAND `contable_polizas_proforma`.`numero_de_recibo` = {$numero_de_recibo}\r\n\t\t\t\t\tORDER BY\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`contable_operacion` DESC,\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`socio`,\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`tipo_de_mvto`\t\t\t\t\r\n\t\t\t\t\t";
if ($sucess == true) {
$rs = $QL->getDataRecord($sqlMvtosToPoliza);
foreach ($rs as $rw) {
$cuenta = CUENTA_DE_CUADRE;
$nombre = "";
$socio = $rw["socio"];
if (CONTABLE_CUENTAS_POR_SOCIO == true) {
$xSoc = new cSocio($socio, true);
$nombre = $xSoc->getNombreCompleto();
}
$documento = $rw["documento"];
$monto_movimiento = $rw["monto"];
$tipoOp = $rw["tipo_de_mvto"];
$tipo_movimiento = $rw["contable_operacion"];
$RecUsr = $rw["idusuario"];
$cuenta_bancaria = $rw["banco"];
$cargo_movimiento = 0;
$abono_movimiento = 0;
if ($tipo_movimiento == TM_CARGO) {
$cargo_movimiento = $monto_movimiento;
$abono_movimiento = 0;
} else {
$cargo_movimiento = 0;
$abono_movimiento = $monto_movimiento;
}
$formula = $rw["cuenta_contable"];
//Corregir de urgencia: OK: 06Oct2011
$sForms = new cValorarFormulas();
$cuenta = $sForms->getCuentaContable($socio, $documento, $formula, $RecUsr, $xRec->getNumeroDeCheque(), $cuenta_bancaria);
$xLogg->add($sForms->getMessages(), $xLogg->DEVELOPER);
//tipo de cuenta es Abonos a efectivo
if ($cuenta != "NO_CONTABILIZAR") {
$xCuenta = new cCuentaContable($cuenta);
$xCuenta->init();
$cuenta = $xCuenta->get();
//Carga los datos del Oficial
if ($xCuenta->getEsCuentaDeCirculante() == true) {
$xOf = new cSystemUser($RecUsr);
$xOf->init();
$nombre = $xOf->getNombreCompleto();
$xLogg->add("OK\tCUENTA_ADD\tLa Cuenta {$cuenta} de Carga por Usuario [ {$nombre} ]\r\n", $xLogg->DEVELOPER);
} else {
$xLogg->add("OK\tCUENTA\tLa Cuenta de Trabajo es {$cuenta} Originado del Socio {$socio}\r\n", $xLogg->DEVELOPER);
}
//verifica para dar de alta a la cuenta
$Existentes = $xCuenta->getCountCuenta();
if ($Existentes == false) {
$xLogg->add("WARN\tCUENTA_ADD\tLa Cuenta de Trabajo {$cuenta} NO EXISTE, se AGREGA\r\n", $xLogg->DEVELOPER);
$cuenta = $xCuenta->add($nombre);
if ($xCuenta->mRaiseError == true) {
//$msg .= "ERROR\tLa Cuenta de Trabajo $cuenta NO EXISTE\r\n";
//$msg = $xCuenta->getMessages();
}
}
$xCuenta->init();
$xPol->addMovimiento($cuenta, $cargo_movimiento, $abono_movimiento, "{$socio}", "{$documento}:{$tipoOp}", false, $fecha_de_poliza);
//$xLogg->add("WARN\tNO_CONT\tAGREGAR $cuenta, $cargo_movimiento, $abono_movimiento\r\n" , $xLogg->DEVELOPER);
$xLogg->add($xCuenta->getMessages(), $xLogg->DEVELOPER);
} else {
$xLogg->add("WARN\tNO_CONT\tEl Movimiento de {$socio} | {$documento} | {$tipoOp} de Monto {$monto_movimiento} se OMITE\r\n", $xLogg->DEVELOPER);
}
}
$xPol->setFinalizar();
}
//sucess
$xLogg->add($xPol->getMessages(), $xLogg->DEVELOPER);
$this->mIDDePoliza = $xPol->getCodigo();
}
}
//END VALUE.- GENERAR AL FINAL
//} //END VALUE.- GENERAR CONTABILIDAD
$this->mMessages .= $xLogg->getMessages();
return $xLogg->getMessages();
}
function mydat($msql, $mcampo)
{
$jinger = mifila($msql, $mcampo);
return $jinger;
}
$periocidad = parametro("periocidad", false);
$notas = parametro("notas", false);
$rs = array();
$idnomina = parametro("nomina", false);
$xEmp = new cEmpresas($empresa);
$xEmp->init();
$msg = "";
if (setNoMenorQueCero($idnomina) <= 0) {
$rs["error"] = true;
$rs["message"] = "Nomina Invalida {$idnomina} ";
} else {
if (setNoMenorQueCero($credito) > 1) {
//sucess
//eliminar anteriores
$sqlNS = "SELECT getSaldoPendienteDesdeLetra({$credito}, ({$letra}-1)) AS 'saldo_anterior' ";
$sdo_anterior = mifila($sqlNS, "saldo_anterior");
$xO = new cEmpresas_cobranza();
$idoriginal = $xO->query()->getLastID();
$xO->idempresas_cobranza($idoriginal);
$xO->clave_de_credito($credito);
$xO->clave_de_nomina($idnomina);
$xO->monto_enviado($monto);
$xO->observaciones($notas);
$xO->parcialidad($letra);
$xO->saldo_inicial($sdo_anterior);
$action = $xO->query()->insert();
$id = $action->save();
if (setNoMenorQueCero($id) > 0) {
$rs["error"] = false;
$rs["message"] = "Registro guardado con el ID {$id}-{$idoriginal}";
$rs["credito"] = $credito;
function existe($grupo = false)
{
$grupo = $grupo == false ? $this->mCodigo : $grupo;
$existentes = 0;
if (isset($grupo) and $grupo != false) {
$sql = "SELECT COUNT(idsocios_grupossolidarios) AS 'existentes' FROM socios_grupossolidarios WHERE idsocios_grupossolidarios = {$grupo}";
$existentes = mifila($sql, "existentes");
}
return $existentes == 0 ? false : true;
}
$msg .= date("H:s:i") . "\t\t" . $x["info"] . "\t\n";
}
}
} else {
//Generar la Notificacion
$fecha_venc_notif = sumardias($fecha_default, $dias_para_notificar);
$sql_notif = "INSERT INTO seguimiento_notificaciones\n\t\t\t\t(socio_notificado, numero_solicitud, numero_notificacion, fecha_notificacion, oficial_de_seguimiento, fecha_vencimiento,\n\t\t\t\tprocedimiento_proximo, capital, interes, moratorio, otros_cargos, total, observaciones, estatus_notificacion, tipo_credito, domicilio_completo)\n\t\t\t\tVALUES\n\t\t\t\t({$socio}, {$solicitud}, {$idnnew}, '{$fecha_default}', {$iduser}, '{$fecha_venc_notif}', '{$tnotif}',\n\t\t\t\t{$mletra}, {$interes}, {$interes_moratorio}, {$otros_cargos}, {$total}, '{$observaciones}', 'pendiente', 'automatizado', '{$domicilio}')";
my_query($sql_notif);
}
} elseif ($dias_vencidos > 50 && $dias_vencidos <= 60) {
//Cit. Extrajudicial
$tnotif = "citatorio_extrajudicial";
$idnant = 5;
$idnnew = 6;
$sql_hay = "SELECT COUNT('idseguimiento_notificaciones') AS 'siexiste' FROM seguimiento_notificaciones WHERE socio_notificado={$socio}\n\t\t\tAND numero_solicitud={$solicitud} AND numero_notificacion={$idnant}";
$exists = mifila($sql_hay, "siexiste");
//si existe llamada, dar seguimiento
if ($exists > 0) {
//Cancelar las Llamadas ya hechas, pero sin compromisos
$sql_uproc = "UPDATE seguimiento_notificacion SET estatus_notificacion='vencido' WHERE socio_notificado={$socio}\n\t\t\tAND numero_solicitud={$solicitud} AND estatus_notificacion='efectuado' AND numero_notificacion={$idnant}";
$rs = mysql_query($sql_uproc);
$afected_row = mysql_affected_rows($rs);
@mysql_free_result($rs);
//Generar la Notificacion si existe una Llamada sin compromiso
if ($afected_row > 0) {
$fecha_venc_notif = sumardias($fecha_default, $dias_para_notificar);
$sql_notif = "INSERT INTO seguimiento_notificaciones\n\t\t\t\t\t\t\t\t(socio_notificado, numero_solicitud, numero_notificacion, fecha_notificacion, oficial_de_seguimiento, fecha_vencimiento,\n\t\t\t\t\t\t\t\tprocedimiento_proximo, capital, interes, moratorio, otros_cargos, total, observaciones, estatus_notificacion, tipo_credito, domicilio_completo)\n\t\t\t\t\t\t\t\tVALUES\n\t\t\t\t\t\t\t\t({$socio}, {$solicitud}, {$idnnew}, '{$fecha_default}', {$iduser}, '{$fecha_venc_notif}', '{$tnotif}',\n\t\t\t\t\t\t\t\t{$mletra}, {$interes}, {$interes_moratorio}, {$otros_cargos}, {$total}, '{$observaciones}', 'pendiente', 'automatizado', '{$domicilio}')";
$x = my_query($sql_notif);
if ($x["stat"] == false) {
$msg .= date("H:s:i") . "\t\t" . $x[SYS_MSG] . "\t\n";
} else {
$BInteres = new cBases(1011);
$BIva = new cBases(7021);
$xF = new cFecha();
$xSQL = new cSQLListas();
$solo_este_mvto = $f18 == "yes" ? " AND operaciones_mvtos.tipo_operacion={$TOperacion} " : "";
$SinEstadisticos = " AND operaciones_mvtos.valor_afectacion!=0 AND operaciones_tipos.es_estadistico='0' ";
$solo_con_saldos = " ";
if ($f14 == "yes") {
$SinEstadisticos = "";
}
if ($f16 == "yes") {
$solo_con_saldos = " AND saldo_actual > 0 ";
}
$sqlcred = "SELECT numero_socio, numero_solicitud,\tsaldo_actual, monto_autorizado\tFROM creditos_solicitud\tWHERE\n\t\tnumero_solicitud={$idsolicitud}\t{$solo_con_saldos}\tORDER BY fecha_vencimiento DESC";
if ($idsolicitud) {
$idsocio = mifila($sqlcred, "numero_socio");
}
$NCreditos = 0;
//
if ($id) {
$sqlcred = "SELECT numero_socio, numero_solicitud, saldo_actual, monto_autorizado FROM creditos_solicitud WHERE numero_socio={$id} {$solo_con_saldos} ORDER BY fecha_ministracion, fecha_vencimiento DESC";
$idsocio = $id;
$porSocio = true;
}
$cF = new cFicha(iDE_SOCIO, $idsocio);
$cF->setTableWidth();
$cF->show();
echo "<hr />";
$mycred = getRecordset($sqlcred);
while ($rwc = mysql_fetch_array($mycred)) {
$solicitud = $rwc["numero_solicitud"];
while ($rw = mysql_fetch_array($rsf)) {
$monto = $rw["monto"];
if ($monto > 0) {
$monto = getFMoney($monto);
$tde = "<td class='mny'>{$monto}</td>\n\t\t\t<td></td>";
} else {
$monto = getFMoney($monto);
$tde = "<td></td>\n\t\t\t<td class='mny'>{$monto}</td>";
}
$tds = $tds . "\n\t\t<tr>\n\t\t\t<td>{$rw['2']}</td>\n\t\t\t<td>{$rw['5']}</td>\n\t\t\t<td>{$rw['3']}</td>\n\t\t\t<td class='mny'>" . getFMoney($rw[6]) . "</td>\n\t\t\t{$tde}\n\n\t\t</tr>";
}
@mysql_free_result($rsf);
$sql_suma_E = "SELECT * FROM sumas_flujo_efectivo WHERE solicitud={$idsolicitud} AND tipo=2";
$suma_E = getFMoney(mifila($sql_suma_E, "sumas"));
$sql_suma_I = "SELECT * FROM sumas_flujo_efectivo WHERE solicitud={$idsolicitud} AND tipo=1";
$suma_I = getFMoney(mifila($sql_suma_I, "sumas"));
$neto = $suma_I + $suma_E;
$neto = getFMoney($neto);
echo "\n\t<fieldset>\n\t<legend>[ Flujo de Efectivo ]</legend>\n\t<table width='100%'>\n <tr>\n <th>Origen</th>\n <th>Descripción</th>\n <th>Frecuencia</th>\n <th>Declarado</th>\n <th>INGRESOS</th>\n <th>EGRESOS</th>\n\n </tr>\n \t\t{$tds}\n\t<tr>\n\n\t<th colspan='2'>CAPACIDAD DIARIA</th>\n\t<th>{$neto}</th>\n\t<td>SUMAS</td>\n\t<th>{$suma_I}</th>\n\t<th>{$suma_E}</th>\n\t</tr>\n</table>\n</fieldset>\n";
}
// relacion patrimonial
if ($sipatrimonio == "yes") {
echo "<fieldset>\n\t\t\t<legend>[ Balance Patrimonial ]</legend>";
$sqlactivos = "SELECT socios_patrimoniotipo.descripcion_patrimoniotipo AS 'Tipo_de_patrimonio', socios_patrimonio.monto_patrimonio AS 'Monto_Patrimonio', ";
$sqlactivos .= " socios_patrimonio.fecha_expiracion AS 'Fecha_Expiracion', socios_patrimonio.documento_presentado AS 'Documento_Presentado' ";
$sqlactivos .= " FROM socios_patrimonio, socios_patrimoniotipo WHERE socios_patrimonio.socio_patrimonio={$idsocio} ";
$sqlactivos .= " AND socios_patrimoniotipo.idsocios_patrimoniotipo=socios_patrimonio.tipo_patrimonio";
// activos.
//echo $sqlactivos;
sqltabla($sqlactivos, "", "fieldnames");
echo "</fieldset>";
$DXEstado = explode(" ", $DEstado[1]);
$idxcp = count($DXEstado) - 1;
if (setNoMenorQueCero($DXEstado[$idxcp]) > 0) {
$cp = setNoMenorQueCero($DXEstado[$idxcp]);
unset($DXEstado[$idxcp]);
$estado = $xFil->cleanString(implode(" ", $DXEstado), array("/CP/", "/C.P./"));
} else {
$estado = $DEstado[1];
}
} else {
$estado = $DEstado[0];
}
//Obtener pais
$pais = trim($xFil->cleanString($xFil->getV(5), array("/-0-/")));
$sqlPais = "SELECT * FROM `personas_domicilios_paises` WHERE `nombre_oficial` SOUNDS LIKE '%{$pais}%' LIMIT 0,1";
$idpais = mifila($sqlPais, "clave_de_control");
$idpais = $idpais == 0 ? EACP_CLAVE_DE_PAIS : $idpais;
//Obtener Localidad
$sqllocal = "SELECT * FROM `catalogos_localidades` WHERE `nombre_de_la_localidad` LIKE '%{$estado} {$pais}%' LIMIT 0,1";
$DLocal = $xQL->getDataRow($sqllocal);
if (setNoMenorQueCero($DLocal["clave_unica"]) > 0) {
$idlocal = setNoMenorQueCero($DLocal["clave_unica"]);
$localidad = $DLocal["nombre_de_la_localidad"];
}
$xSoc->addVivienda($calle, $numero, $cp, "", $referencia, "0", "0", SYS_UNO, FALLBACK_PERSONAS_REGIMEN_VIV, FALLBACK_PERSONAS_TIPO_VIV, DEFAULT_TIEMPO, $colonia, "calle", "", $idlocal, $idpais, $pais, $estado, $municipio, $localidad);
//Actualizar pais
}
$msg .= $xSoc->getMessages(OUT_TXT);
break;
case "ALT":
/*
function getCargosDeCobranza()
{
$credito = $this->mNumeroCredito;
$persona = $this->mNumeroSocio;
$sql = "SELECT SUM(afectacion_real) AS 'monto' FROM operaciones_mvtos WHERE `socio_afectado`={$persona} AND `docto_afectado` = {$credito} AND\t(`tipo_operacion` = 601) AND `estatus_mvto`= 40 ";
$monto = mifila($sql, SYS_MONTO);
return $monto;
}
/**
* Funcion que retorna el Primer Credito con prioridad
*
* @param integer $idsocio
* @return string
*/
function Common_86d8b5015acb366cec42bf1556d8258a($strPedido)
{
$ByTipo = " AND monto_autorizado > 0 ";
//($tipo == "todos") ? "AND monto_autorizado > 0" : " ";
$socio = DEFAULT_SOCIO;
if (strpos($strPedido, STD_LITERAL_DIVISOR) !== false) {
$D = explode(STD_LITERAL_DIVISOR, $strPedido);
$socio = intval($D[0]);
$tipo = intval($D[1]);
} else {
$socio = intval($strPedido);
}
switch ($tipo) {
case CREDITO_ESTADO_SOLICITADO:
$ByTipo = " AND getEsCancelado(numero_solicitud) = 0 AND `estatus_actual` = " . CREDITO_ESTADO_SOLICITADO;
break;
case CREDITO_ESTADO_AUTORIZADO:
$ByTipo = " AND `estatus_actual` = " . CREDITO_ESTADO_AUTORIZADO;
break;
default:
$ByTipo = " AND monto_autorizado > 0 ";
break;
}
$sqllc = "SELECT numero_solicitud FROM creditos_solicitud\n\t\t\tWHERE\n\t\t\t\tnumero_socio={$socio}\n\t\t\t\t\t{$ByTipo}\n\t\t\t\t\tORDER BY saldo_actual DESC,\n\t\t\t\t\tfecha_vencimiento ASC,\n\t\t\t\t\tfecha_solicitud DESC\n\t \t\tLIMIT 0,1";
$miro = 0;
$miro = mifila($sqllc, "numero_solicitud");
return $miro;
}
// obtiene datos del socio
$xSoc = new cSocio($idsocio);
$xSoc->init();
$DSoc = $xSoc->getDatosInArray();
$domicilio_del_socio = $xSoc->getDomicilio();
$nombre_del_socio = $xSoc->getNombreCompleto();
if ($idsocio != 1) {
$nombre = $nombre_del_socio;
} else {
$nombre = mifila($sqlrec, "cadena_distributiva");
}
$direccion = $domicilio_del_socio;
$rfc = $DSoc["rfc"];
$curp = $DSoc["curp"];
// obtiene datos del documento que ayudaran al detalle en contabilidad
$observaciones = mifila($sqlrec, "observacion_recibo");
//
$sql_d_mvto = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE recibo_afectado={$idrecibo}\n\t\t\t\t\t\tAND tipo_operacion=500 ";
$sql_d_inv = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE recibo_afectado={$idrecibo}\n\t\t\t\t\t\tAND tipo_operacion=223 ";
$sql_d_ide = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\tfecha_operacion = '{$fechaRecibo}'\n\t\t\t\t\t\tAND docto_afectado = {$docto}\n\t\t\t\t\t\tAND tipo_operacion=235 ";
$xInv = new cCuentaInversionPlazoFijo($docto, $idsocio);
$dcuentas = $xInv->getDatosInArray();
$dmvto = obten_filas($sql_d_mvto);
$dInv = obten_filas($sql_d_inv);
$dIDE = obten_filas($sql_d_ide);
//
$iSocio = new cFicha(iDE_SOCIO, $idsocio);
$iSocio->setTableWidth();
$iSocio->show();
echo "<hr />";
$cInv = new cFicha(iDE_CINVERSION, $docto);
<?php
$montop = isset($_POST["montop"]) ? $_POST["montop"] : 0;
$mysoc = $idsocio;
if ($montop > 0 and $mysoc) {
$docto = $_POST["doctopres"];
$tipopat = $_POST["tpatrim"];
$fechaexp = $_POST["elanno0"] . "-" . $_POST["elmes0"] . "-" . $_POST["eldia0"];
$eldocto = $_POST["doctopres"];
$descrip = $_POST["descripcion"];
$observa = $_POST["observacion"];
$estatus = $_POST["estatus"];
$sucursal = getSucursal();
$eacp = EACP_CLAVE;
// determina el Tipo de Activo/Pasivo
$sqlap = "SELECT subclasificacion FROM socios_patrimoniotipo WHERE idsocios_patrimoniotipo={$tipopat}";
$afect = mifila($sqlap, "subclasificacion");
$xSoc = new cSocio($mysoc);
$xSoc->addPatrimonio($tipopat, $montop, $estatus, $afect, $eldocto, $descrip, $observa, $fechaexp);
echo "<p class='aviso'>EL REGISTRO SE HA EFECTUADO</p>";
}
echo $xP->setBodyEnd();
?>
<script >
function initComponents(){
resizeMainWindow();
}
function resizeMainWindow(){
var mWidth = 720;
var mHeight = 480;
window.resizeTo(mWidth, mHeight);
