function Common_c8581154ac4e27cb0e122d71341dd7d8($strCmd)
{
$DPar = explode(STD_LITERAL_DIVISOR, $strCmd);
$xTip = new cTipos();
//
$socio = $xTip->cInt($DPar[0]);
$cuenta = $xTip->cInt($DPar[1]);
$deposito = $xTip->cFloat($DPar[2]);
$retiro = $xTip->cFloat($DPar[3]);
$nota = $xTip->cChar($DPar[4]);
$numero = $xTip->cInt($DPar[5]);
$limit = $xTip->cInt($DPar[6]);
if (isset($_SESSION["recibo_en_proceso"])) {
$recibo = $_SESSION["recibo_en_proceso"];
$fecha = fechasys();
$_SESSION["total_recibo_en_proceso"] += $deposito - $retiro;
$xRec = new cReciboDeOperacion(200, false, $recibo);
$xRec->setNumeroDeRecibo($recibo, true);
$DRec = $xRec->getDatosInArray();
$cheque = $DRec["cheque_afectador"];
$tipopago = $DRec["tipo_pago"];
$recibofiscal = $DRec["recibo_fiscal"];
if ($deposito > 0 or $retiro > 0) {
$xC = new cCuentaALaVista($cuenta);
$grupo = DEFAULT_GRUPO;
$xC->setSocioTitular($socio);
$xC->setReciboDeOperacion($recibo);
if ($deposito > 0) {
$xC->setDeposito($deposito, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo);
}
if ($retiro > 0) {
$xC->setRetiro($retiro, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo);
}
}
if ($numero == $limit) {
$xRec->setForceUpdateSaldos();
$xRec->setFinalizarRecibo(true);
//$MsgEnd .= "**** proceso terminado ****";
}
}
//retorna el id del control de origen para neutralizar
return "-{$numero}";
}
$xLog = new cFileLog($aliasFil, true);
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]);
$importe = $cT->cFloat($datos[1]);
$fechaApertura = $cT->cFecha($datos[2]);
$plazo = $cT->cInt($datos[3]);
$tasa = $cT->cFloat($datos[4]);
$observaciones = $cT->cChar($datos[5]);
$ClaveCuenta = false;
//Iniciar el Socio
//$msg .= "$iReg\t$socio\tERROR_SOCIO\t$socio -- $importe -- $fechaApertura -- $plazo -- $tasa -- $observaciones\r\n";
$xCL = new cCajaLocal(99);
if ($xCL->getExistenciaSocio($socio) <= 0) {
$msg .= "{$iReg}\t{$socio}\tERROR_SOCIO\tLa Linea({$iReg}) no se leyo por que no existe el socio({$bufer})\r\n";
} else {
$xInv = new cCuentaInversionPlazoFijo(false, $socio, $plazo, $tasa, $fechaApertura);
//Agrega la Cuenta
$ClaveCuenta = $xInv->setNuevaCuenta(99, 2, $socio, $observaciones, DEFAULT_CREDITO, "", "", DEFAULT_GRUPO, $fechaApertura, CAPTACION_TIPO_PLAZO, 99, $plazo, $tasa);
if ($ClaveCuenta != false) {
$msg .= "{$iReg}\t{$socio}\tCUENTA\tSe Agrego Exitosamente la cuenta {$ClaveCuenta}\r\n";
if ($importe > 0) {
$xInv->init();
$xInv->setFechaDeOperacion($fechaApertura);
}
//analizar el Archivo
$gestor = @fopen($completePath, "r");
$iReg = 0;
$cT = new cTipos();
if ($gestor) {
while (!feof($gestor)) {
$bufer = fgets($gestor, 4096);
//$bufer = stream_get_line($gestor, "\r\n");
if (!isset($bufer)) {
$msg .= "{$iReg}\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
} else {
//layout : socio , nombre, monto, cuenta
$datos = explode(",", trim($bufer), 4);
$socio = $cT->cInt($datos[0]);
$nombre = isset($datos[1]) ? $cT->cChar(trim($datos[1])) : "";
$monto = isset($datos[2]) ? $datos[2] : 0;
$cuenta = isset($datos[3]) ? $datos[3] : 0;
if ($socio != 0 and $socio != 0) {
//
$xSoc = new cSocio($socio);
if ($xSoc->existe($socio) == false) {
//
$msg .= "{$iReg}\tERROR\t{$socio}\tEl Socio NO EXISTE\r\n";
$txt .= "{$socio},{$nombre},{$monto},{$cuenta},NO_EXISTE\r\n";
} else {
$xSoc->init();
$D = $xSoc->getDatosInArray();
$estatus = $cT->cInt($D["estatusactual"]);
//
switch ($estatus) {
$cont[20] = $tp == SYS_UNO ? $xT->getCSV($xSoc->getApellidoMaterno()) : "";
$cont[21] = $xSoc->getRFC(true);
$cont[22] = $tp == SYS_UNO ? $xSoc->getCURP(true) : "";
$cont[23] = $xSoc->getFechaDeNacimiento();
if ($ODom == null) {
$cont[24] = "";
$cont[25] = "";
$cont[26] = $xLoc->DomicilioLocalidadClave();
$cont[27] = "";
} else {
//10500001
$idlocalidad = $ODom->getClaveDeLocalidad();
//$cont[24] = ($orels == 0) ? strtoupper($xT->cChar($ODom->getCalleConNumero(), 59)) : "";
//$cont[25] = ($orels == 0) ? $xT->cChar($ODom->getColonia(), 29) : "";
//$cont[26] = ($orels == 0) ? $xT->cSerial(8, $idlocalidad) : "";
$cont[24] = strtoupper($xT->cChar($ODom->getCalleConNumero(), 59));
$cont[25] = $xT->cChar($ODom->getColonia(), 29);
$cont[26] = $idlocalidad;
//validar la clave de localidad, si no emitir la actual
$xMLocal = new cDomicilioLocalidad($idlocalidad);
//TODO: Existe?
if ($xMLocal->existe($ODom->getClaveDeLocalidad($idlocalidad)) == false) {
$cont[26] = $xLoc->DomicilioLocalidadClave();
}
//$cont[27] = ($orels == 0) ? $xSoc->getTelefonoPrincipal() : "";
$cont[27] = $xSoc->getTelefonoPrincipal();
}
if ($OAEc == null) {
$cont[28] = "8944098";
} else {
$xCatAct = new cPersonaActividadEconomicaCatalogo($OAEc->getClaveDeActividad());
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}";
}
//var_dump($_FILES["f1"]);
if ($xFil->processFile($doc1) == true) {
$data = $xFil->getData();
foreach ($data as $valores => $cont) {
$id = $xT->cInt($cont[0]);
switch ($tipoimportacion) {
case "SDN":
$xFil->setDataRow($cont);
/*
4149|"CAVIEDES CRUZ, Leonardo"|"individual"|"SDNT"|
-5 - 6 - 7 - 8 - 9 - 10 - 11
-0- |-0- |-0- |-0- |-0- |-0- |-0-
-12
|"DOB 23 Nov 1952; Cedula No. 16593470 (Colombia); Passport AB151486 (Colombia); alt. Passport AC444270 (Colombia); alt. Passport OC444290 (Colombia)."
* */
$tipo = $xT->cChar(str_replace('"', "", $cont[2]));
if ($id > 0) {
if ($tipo == "individual" or $tipo == "-0-") {
$xSoc = new cSocio($id);
$programa = strtoupper(str_replace('"', "", $cont[3]));
$idpoblacion = "{$programa}-{$id}";
$nombres = strtoupper(str_replace('"', "", $cont[1]));
$apellido1 = "";
$apellido2 = "";
$pobservaciones = trim($xFil->cleanString($xFil->getV(12)));
if ($tipo == "-0-") {
//$nombres = $nombres;
} else {
$DNom = explode(",", $nombres, 2);
$nombres = isset($DNom[1]) ? $DNom[1] : "";
$apellidos = explode(" ", $DNom[0], 2);
//$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, 18);
$xF = new cFecha();
$socio = $cT->cInt($datos[1]);
$credito = false;
//$cT->cInt($datos[1]);
$monto = $cT->cFloat($datos[8]);
$periocidad = $cT->cInt($arrPeriodos[trim($datos[7])]);
$pagos = $cT->cInt($datos[6]);
$ministracion = $xF->getFechaISO($datos[10]);
$fechaSolicitado = $xF->getFechaISO($datos[5]);
$descDestino = $cT->cChar($datos[9]);
$tasa = $cT->cFloat($datos[15]);
$tasa = $tasa / 100;
$dias = $periocidad * $pagos;
$aplicacion = $cT->cChar($datos[17]) == "S" ? 501 : 100;
$vencimiento = $xF->setSumarDias($dias, $ministracion);
//$cT->cFecha($datos[5]);
$saldo = $cT->cFloat($datos[11]);
$UltimaOperacion = fechasys();
//$cT->cFecha($datos[9]);
$ContratoCorriente = CTA_GLOBAL_CORRIENTE;
//$cT->cInt($datos[10]);
//Eliminar créditos anteriores
$Creds = new cCreditos_solicitud();
$rs = $Creds->query()->select()->exec("numero_socio={$socio}");
foreach ($rs as $data) {
function getVariablesSanas($contents, $vars)
{
$xT = new cTipos();
foreach ($vars as $valor => $tipo) {
$valor = trim($valor);
switch ($tipo) {
case MQL_FLOAT:
$contents[$valor] = isset($contents[$valor]) ? $xT->cFloat($contents[$valor]) : 0;
break;
case MQL_INT:
$contents[$valor] = isset($contents[$valor]) ? $xT->cInt($contents[$valor]) : 0;
break;
default:
$contents[$valor] = isset($contents[$valor]) ? $xT->cChar($contents[$valor]) : "";
break;
}
}
return $contents;
}
$iReg = 0;
if ($EliminarDatos == 1) {
my_query("DELETE FROM general_colonias");
}
$cT = new cTipos();
if ($gestor) {
while (!feof($gestor)) {
$bufer = $cT->setNoAcentos(fgets($gestor, 4096));
//$bufer = stream_get_line($gestor, "\r\n");
if (!isset($bufer)) {
$msg .= "La Linea({$iReg}) no se leyo({$bufer})\r\n";
$msg .= "DEL\tSe Eiminan todas las Colonias\r\n";
} else {
$datos = explode("|", $bufer, 16);
$cpostal = $datos[0];
$ncolonia = $cT->cChar($datos[1]);
$tcolonia = $cT->cChar($datos[2]);
$estado = $cT->cChar($datos[4]);
$municipio = $cT->cChar($datos[3]);
$numEstado = $cT->cInt($datos[7]);
$ciudad = $cT->cChar($datos[5]);
if (trim($ciudad) == "") {
$ciudad = $ncolonia;
}
$numMunicipio = $cargaGlobal == 1 ? $cT->cInt($datos[11]) : $cT->cInt($datos[10]);
$fecha = fechasys();
$sucursal = getSucursal();
$sql = "INSERT INTO general_colonias(codigo_postal, nombre_colonia, tipo_colonia,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\testado_colonia, ciudad_colonia, municipio_colonia,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tfecha_de_revision,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tcodigo_de_estado, codigo_de_municipio, sucursal)\n\t\t\t\t\t\t\t\t\t\t\t\t\tVALUES({$cpostal}, '{$ncolonia}', '{$tcolonia}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t'{$estado}', '{$ciudad}', '{$municipio}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t'{$fecha}', {$numEstado}, {$numMunicipio}, '{$sucursal}')";
$sqDC = "DELETE FROM general_colonias WHERE codigo_postal = {$cpostal} AND fecha_de_revision != '{$fecha}' ";
if ($cpostal != 0 and trim($ncolonia) != "") {
if ($EliminarDatos == 0) {
$capital = 0;
$interes = 0;
$ahorro = 0;
$iva = 0;
$cls = '';
$observaciones = "";
$cadena = explode(",", trim($bufer), 8);
//Depurar
$socio = $xT->cInt($cadena[0]);
$credito = $xT->cInt($cadena[1]);
$letra = $xT->cInt($cadena[2]);
$capital = round($xT->cFloat($cadena[3]), 2);
$interes = round($xT->cFloat($cadena[4]), 2);
$iva = round($xT->cFloat($cadena[5]), 2);
$ahorro = round($xT->cFloat($cadena[6]), 2);
$observaciones = $xT->cChar($cadena[7]);
$total = $capital + $ahorro + $interes + $iva;
if (isset($socio) and isset($credito) and !empty($socio) and !empty($credito)) {
$DSoc = new cSocio($socio);
$SocioExiste = $DSoc->existe($socio);
$CreditoExiste = $DSoc->existeCredito($credito);
if ($SocioExiste == true and $CreditoExiste == true) {
$DSoc->init();
$nombre = $DSoc->getNombreCompleto();
$nombre = substr($nombre, 0, 25);
//Verificar el Saldo del Credito
$CCred = new cCredito($credito, $socio);
//echo "$credito ---- $socio<br>";
$CCred->init();
$DCred = $CCred->getDatosDeCredito();
$saldo = $DCred["saldo_actual"];
function getText($txt = "", $serializar = false, $limitar = false)
{
$xT = new cTipos();
$xFI = new cFileImporter();
$arrR = array(",", "-", ".", "|");
//$txt = $xFI->cleanString($txt, $arrR);
//$xT->setToUTF8();
//$txt = iconv('UTF-8', 'UTF-8//IGNORE', $txt);
//$txt = "$txt-" . mb_detect_encoding($txt, 'ASCII,UTF-8,ISO-8859-1');
$txt = $xT->cChar($txt);
//setLog($txt);
//$txt = html_entity_decode($txt);
//$txt = mb_convert_encoding($txt, 'UTF-8', mb_detect_encoding($txt, 'ASCII,UTF-8,ISO-8859-1'));
$txt = strtoupper($txt);
if ($serializar != false) {
$txt = $xT->cSerial($serializar, $txt);
}
if ($limitar != false) {
$txt = substr($txt, 0, $limitar);
}
return $txt;
}
$exoPol = "\n\t\t<tr>\n\t\t\t<td>{$FPoliza}</td>\n\t\t\t<td class='cwarn'>{$NTPoliza}</td>\n\t\t\t<td class='mny'>{$NPoliza}</td>\n\t\t\t<td >{$CPoliza}</td>\n\t\t\t<td ></td>\n\t\t\t<td ></td>\n\t\t</tr>\n\t\t";
switch ($mostrar_como) {
case "detalle":
$SQL_mvtos = "SELECT\n\t\t`contable_movimientos`.`numeromovimiento`,\n\t\t`contable_movimientos`.`referencia`,\n\t\t`contable_movimientos`.`numerocuenta`,\n\t\t`contable_catalogo`.`nombre`,\n\t\t`contable_movimientos`.`concepto`,\n\t\t`contable_movimientos`.`cargo`,\n\t\t`contable_movimientos`.`abono` \n\t\tFROM\n\t`contable_movimientos` `contable_movimientos` \n\t\tINNER JOIN `contable_catalogo` `contable_catalogo` \n\t\tON `contable_movimientos`.`numerocuenta` = \n\t\t`contable_catalogo`.`numero`\n\t\t\n\t\tWHERE\n\t\t\t(`contable_movimientos`.`ejercicio` ={$ejercicio}) AND\n\t\t\t(`contable_movimientos`.`periodo` ={$periodo}) AND\n\t\t\t(`contable_movimientos`.`tipopoliza` ={$TPoliza}) AND\n\t\t\t(`contable_movimientos`.`numeropoliza` ={$NPoliza}) \n\t\t";
$exoTMP = "";
$rsMvtos = $ql->getDataRecord($SQL_mvtos);
foreach ($rsMvtos as $rwMov) {
$MCargo = "";
$MAbono = "";
if ($rwMov["cargo"] != 0) {
$MCargo = getFMoney($rwMov["cargo"]);
}
if ($rwMov["abono"] != 0) {
$MAbono = getFMoney($rwMov["abono"]);
}
$MConcepto = $xT->cChar($rwMov["concepto"], 40);
//$MConcepto = $rwMov["concepto"];
$exoTMP .= "\n\t\t\t\t<tr>\n\t\t\t\t\t<th class='mny'>" . $rwMov["numeromovimiento"] . "</th>\n\t\t\t\t\t<td>" . $xT->cChar($rwMov["referencia"], 12) . "</td>\n\t\t\t\t\t<td>" . getCuentaFormateada($rwMov["numerocuenta"]) . "</td>\n\t\t\t\t\t<td>" . $xT->cChar($rwMov["nombre"], 30) . "</td>\n\t\t\t\t\t<td>" . $MConcepto . "</td>\n\t\t\t\t\t<td class='mny'>{$MCargo}</td>\n\t\t\t\t\t<td class='mny'>{$MAbono}</td>\n\t\t\t\t</tr>\n\t\t\t\t";
}
$exoTD .= "\n\t\t\t\t<tr>\n\t\t\t\t<td colspan=\"6\">\n\t\t\t\t\t\t<table align=\"center\" width=\"100%\">\n\t\t\t\t\t\t <tbody>\n \t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<th width=\"4%\">N#</th>\n\t\t\t\t\t\t\t\t<th width=\"11%\">Referencia</th>\n\t\t\t\t\t\t\t\t<th width=\"10%\">Cuenta</th>\n\t\t\t\t\t\t\t\t<th width=\"22%\">Nombre</th>\n\t\t\t\t\t\t\t\t<th width=\"33%\">Concepto</th>\n\t\t\t\t\t\t\t\t<th width=\"10%\"></th>\n\t\t\t\t\t\t\t\t<th width=\"10%\"></th>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t{$exoTMP}\n\t\t\t\t\t\t </tbody>\n\t\t\t\t\t\t</table>\t\t\t\t\n\t\t\t\t</td>\n\t\t\t\t</tr>";
break;
}
//Exo esqueleto de la Poliza
$exoTbl .= $exoPol . $exoTD . "\n\t\t<tr>\n\t\t\t<td></td>\n\t\t\t<td></td>\n\t\t\t<td></td>\n\t\t\t<td >**** SUMAS ****</td>\n\t\t\t<th class='mny'>" . getFMoney($TCargos) . "</th>\n\t\t\t<th class='mny'>" . getFMoney($TAbonos) . "</th>\t\t\n\t\t</tr>\n\t\t<tr>\n\t\t<td colspan='6'><hr /></td>\n\t\t</tr>\n\t\t";
$NetoAbonos += $TAbonos;
$NetoCargos += $TCargos;
}
//Impirmir la Tabla
echo getRawHeader();
echo "\n<table align=\"center\" width=\"100%\">\n <tbody>\n \t<tr>\n\t\t<th width=\"10%\">Fecha</th>\n\t\t<th width=\"15%\">Tipo</th>\n\t\t<th width=\"5%\">Numero</th>\n\t\t<th width=\"50%\">Concepto</th>\n\t\t<th width=\"10%\">Cargos</th>\n\t\t<th width=\"10%\">Abonos</th>\n\t</tr>\n\t{$exoTbl}\n\t<tr>\n\t\t<td></td>\n\t\t<td></td>\n\t\t<td></td>\n\t\t<td>TOTAL REPORTE</td>\n\t\t<th class='mny'>" . getFMoney($NetoCargos) . "</th>\n\t\t<th class='mny'>" . getFMoney($NetoAbonos) . "</th>\n\t</tr>\n </tbody>\n</table>\t\n\t";
echo getRawFooter();
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, 17);
$socio = $cT->cInt($datos[1]);
if ($socio != 0 and $socio != DEFAULT_SOCIO) {
$xSoc = new cSocio($socio);
$xSoc->init();
$xF = new cFecha();
$tdom = $cT->cInt($datos[5]);
$calle = $cT->cChar(trim($datos[6]));
//tratar calle para sacar sumero
$calle = strtoupper($calle);
$calle = str_replace("C.", "CALLE", $calle);
$calle = str_replace("C ", "CALLE", $calle);
$calle = str_replace("#", "NUMERO", $calle);
$calle = str_replace("NUM.", "NUMERO", $calle);
$calle = str_replace("NUM ", "NUMERO", $calle);
$calle = str_replace("NO.", "NUMERO", $calle);
$calle = str_replace("NOM.", "NUMERO", $calle);
$calle = str_replace("LOTE", "NUMEROLOTE", $calle);
$calle = str_replace("NO ", "NUMERO", $calle);
$calle = str_replace("SIN NUMERO", "SN", $calle);
$calle = str_replace("SIN NIM", "SN", $calle);
$calle = str_replace("S/N", "SN", $calle);
$calle = str_replace("CALLE ", "", $calle);
function setCorregirDomicilios($correcion = false)
{
//obtener codigo postal
$msg = "";
//verificar si existe persona
$ql = new MQL();
$rs = $ql->getDataRecord("SELECT * FROM `socios_vivienda`");
$xViv = new cSocios_vivienda();
$xT = new cTipos();
$xT->setForceMayus();
$xT->setToUTF8();
$xT->setForceClean();
foreach ($rs as $rows) {
$xViv->setData($rows);
//codigo_postal
$codigo_postal = $xViv->codigo_postal()->v();
$id = $xViv->idsocios_vivienda()->v();
$xCol = new cDomiciliosColonias();
$idunico = $xCol->getClavePorCodigoPostal($codigo_postal);
//corregir codigo postal
//optener CP por sucursal
if ($idunico <= 0) {
//asignar codigo postal
//iniciar por sucursal
$xSuc = new cSucursal($xViv->sucursal()->v());
if ($xSuc->init() == true) {
$codigo_postal = $xSuc->getCodigoPostal();
$idunico = $xCol->getClavePorCodigoPostal($codigo_postal);
$xViv->codigo_postal($codigo_postal);
}
}
//verificar principal
if (trim($xViv->principal()->v()) == "") {
$xViv->principal(TIPO_DOMICILIO_PRINCIPAL);
}
//corregir pais
if (trim($xViv->nombre_de_pais()->v()) == "") {
$xViv->nombre_de_pais(strtoupper(EACP_DOMICILIO_PAIS));
} else {
$xViv->nombre_de_pais(strtoupper($xViv->nombre_de_pais()->v()));
}
if ($idunico > 0) {
//cargar colonia
$estado = $xViv->estado()->v();
//if($xViv->clave_de_pais()->v() != $xCol->get)
if ($estado != $xCol->getNombreEstado()) {
//$msg .= "ERROR\tEl Estado " . $xViv->estado()->v() . " es diferente a " . $xT->cChar( $xCol->getNombreEstado()) . "\r\n";
//$estado = $xT->cChar( $xCol->getNombreEstado());
}
if ($correcion == true) {
//$msg .= "OK\tCorrecion autorizada\r\n";
$xViv->estado($xT->cChar($xCol->getNombreEstado()));
$xViv->municipio($xT->cChar($xCol->getNombreMunicipio()));
$xViv->localidad($xT->cChar($xCol->getNombreLocalidad()));
$xViv->clave_de_localidad($xCol->getClaveDeLocalidad());
if (PERSONAS_PERMITIR_EXTRANJEROS == false) {
$xViv->clave_de_pais(EACP_CLAVE_DE_PAIS);
}
$qup = $xViv->query()->update();
$rx = $qup->save($id);
if ($rx == true) {
$msg .= "OK\tVivienda con CP {$codigo_postal} e ID {$id} actualizado a la Colonia {$idunico}\r\n";
} else {
$msg .= "ERROR\tAl actualizar la Vivienda con CP {$codigo_postal} e ID {$id} . Colonia {$idunico}\r\n";
}
if (MODO_DEBUG == true) {
$msg .= $qup->getMessages();
}
}
} else {
$msg .= "WARN\tCodigo omitido por ser {$codigo_postal}\r\n";
}
}
return $msg;
}
$xHP->goToPageError(200);
}
$xHP->init();
$xFRM = new cHForm("frmmultas", "frmcobrodemultas.php?action=" . MQL_ADD);
if ($action == SYS_NINGUNO) {
$xFRM->addPersonaBasico();
$xFRM->ODate("idfechaactual", false, "TR.Fecha de cobro");
$xFRM->addCobroBasico();
$xFRM->OText("idconceptomulta", "", "TR.Concepto de Multa");
$xFRM->OMoneda("idmontomulta", 0, "TR.Monto de Multa", true);
$xFRM->addGuardar();
} else {
$xT = new cTipos();
//===========================================================================
$idsocio = isset($_POST["idsocio"]) ? $xT->cInt($_POST["idsocio"]) : 0;
$observaciones = isset($_POST["idconceptomulta"]) ? $xT->cChar($_POST["idconceptomulta"]) : "";
$monto = isset($_POST["idmontomulta"]) ? $xT->cFloat($_POST["idmontomulta"]) : 0;
$cheque = isset($_POST["cheque"]) ? $xT->cChar($_POST["cheque"]) : DEFAULT_CHEQUE;
$comopago = isset($_POST["ctipo_pago"]) ? $xT->cChar($_POST["ctipo_pago"]) : DEFAULT_TIPO_PAGO;
$foliofiscal = isset($_POST["foliofiscal"]) ? $xT->cChar($_POST["foliofiscal"]) : DEFAULT_RECIBO_FISCAL;
if (setNoMenorQueCero($idsocio) <= 0) {
//header("location: frmcobrodemultas.php?msg=FALTAN_DATOS");
$xFRM->addAvisoRegistroError();
} else {
if (setNoMenorQueCero($monto) <= 0) {
$xFRM->addAvisoRegistroError();
} else {
$iddocto = DEFAULT_CREDITO;
$xRec = new cReciboDeOperacion(RECIBOS_TIPO_TERCEROS, false, false);
$xRec->setGenerarBancos();
$xRec->setGenerarPoliza();
function getFicha($telefonoPrincipal = "")
{
$xLng = new cLang();
$xT = new cTipos();
$xT->setForceMayus();
$xDS = $this->obj();
$telefonos = $telefonoPrincipal == "" ? "" : "{$telefonoPrincipal} /";
$telefonos .= setNoMenorQueCero($xDS->telefono_residencial()->v()) <= 0 ? "" : $xDS->telefono_residencial()->v() . " /";
$telefonos .= setNoMenorQueCero($xDS->telefono_movil()->v()) <= 0 ? "" : $xDS->telefono_movil()->v() . " /";
$numero = $xDS->numero_exterior()->v();
$numero .= trim($xDS->numero_interior()->v()) == "" ? "" : " /" . $xDS->numero_interior()->v();
$numero = strtoupper($numero);
$callenum = $xT->cChar($this->getCalleConNumero());
$eldom = "<table>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th class='izq'>" . $xLng->getT("TR.Acceso") . "/" . $xLng->getT("TR.Codigo_postal") . "</th>\n\t\t\t\t\t\t\t<td>" . $callenum . "/" . $this->getCodigoPostal() . "</td>\n\t\t\t\t\t\t\t<th class='izq'>" . $xLng->getT("TR.Numero") . "</th>\n\t\t\t\t\t\t\t<td>{$numero}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th class='izq'>" . $xLng->getT("TR.Colonia") . "</th>\n\t\t\t\t\t\t\t<td>" . $xT->cChar($this->getColonia()) . "</td>\n\t\t\t\t\t\t\t<th class='izq'>" . $xLng->getT("TR.Telefono") . "</th>\n\t\t\t\t\t\t\t<td>{$telefonos}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th class='izq'>" . $xLng->getT("TR.Ciudad") . "</th>\n\t\t\t\t\t\t\t<td>" . $xT->cChar($this->getCiudad()) . "</td>\n\t\t\t\t\t\t\t<th class='izq'>" . $xLng->getT("TR.Municipio") . "/" . $xLng->getT("Estado") . "</th>\n\t\t\t\t\t\t\t<td>" . $xT->cChar($this->getMunicipio()) . "/" . $xT->cChar($this->getEstado()) . "</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t</table>";
return $eldom;
}
$IDLongitud = $id;
}
if ($vl == "ALTITUD") {
$IDAltitud = $id;
}
}
} else {
//CVE_ENT,NOM_ENT,NOM_ABR,
//CVE_MUN,NOM_MUN,
//CVE_LOC,NOM_LOC,
//LATITUD,LONGITUD,ALTITUD,CVE_CARTA,AMBITO,PTOT,PMAS,PFEM,VTOT
$ClaveUnica = $xT->cInt($datos[$IDEntidad] . $datos[$IDMunicipio] . $datos[$IDLocalidad], true);
$ClaveEntidad = $xT->cInt($datos[$IDEntidad], true);
$claveMunicipio = $xT->cInt($datos[$IDMunicipio], true);
$ClaveLocalidad = $xT->cInt($datos[$IDLocalidad], true);
$NombreLocalidad = $xT->cChar($datos[$IDNombre]);
//iconv("UTF-8", "ISO-8859-1", $datos[$IDNombre]);
$latitud = $datos[$IDLatitud];
$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();
//inicializa el LOG del proceso
$aliasFil = getSucursal() . "-carga -batch-de-socios-" . fechasys();
$xLog = new cFileLog($aliasFil, true);
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 = $cT->setNoAcentos(trim($bufer));
$datos = explode(",", $bufer, 30);
$socio = $cT->cInt($datos[1]);
if ($socio != 0 and $socio != DEFAULT_SOCIO) {
$xSoc = new cSocio($socio);
$relNombre = $cT->cChar(trim($datos[8]));
$relApMat = $cT->cChar(trim($datos[7]));
$relApPat = $cT->cChar(trim($datos[6]));
$relTelP = $cT->cChar(trim($datos[14]));
$relMail = $cT->cChar(trim($datos[20]));
$relCalle = $cT->cChar(trim($datos[12]));
$relColonia = $cT->cChar(trim($datos[6]));
$relGenero = DEFAULT_GENERO;
$idRelSocio = $socio + 100000 * rand(2, 9);
$xRel = new cSocio($idRelSocio);
$numero = "";
$codigo_postal = DEFAULT_CODIGO_POSTAL;
$numero_interior = "";
$referencia = "";
$telefono_fijo = $cT->cChar(trim($datos[18]));
$telefono_movil = $cT->cChar(trim($datos[17]));
