PHP cFecha::mes方法代码示例

function b_week($ignium)
{
    if (!$ignium) {
        $mesa = date("m");
        $annoa = date("Y");
        //$fecha = date("Y-m-d", strtotime("$annoa-$mesa-01"));
    } else {
        $mesa = date("m", strtotime($ignium)) - 1;
        $annoa = date("Y", strtotime($ignium));
        if ($mesa < 1) {
            $mesa = 12;
            $annoa = $annoa - 1;
        }
    }
    $xF = new cFecha(0, "{$annoa}-{$mesa}-01");
    $fecha = $xF->get();
    $dias_mes = $xF->getDiasDelMes();
    $idm = $xF->mes();
    $month = $xF->getMesNombre();
    //Valores Iniciales
    $tdweek = "";
    $colorweek = "#FFDFC6";
    $nsemana = 1;
    $tcal = "";
    for ($i = 1; $i <= $dias_mes; $i++) {
        $nowdate = "{$annoa}-{$idm}-{$i}";
        $nday = date("l", strtotime($nowdate));
        if ($nday == "Monday") {
            $dia = dia_semana($nowdate);
            $cnowdate = fecha_corta($nowdate);
            if ($tcal == "cal_2") {
                $tcal = "cal_1";
                $tdweek = $tdweek . "<td class='{$tcal}' onclick='show_week(\"{$nowdate}\")'>SEMANA: {$nsemana} <br /> {$cnowdate}</td>";
            } else {
                $tcal = "cal_2";
                $tdweek = $tdweek . "<td class='{$tcal}' onclick='show_week(\"{$nowdate}\")'>SEMANA: {$nsemana} <br /> {$cnowdate}</td>";
            }
            $nsemana++;
        }
    }
    return "<hr />\n\t<center>\n\t<table class='calendar_week'\n\tcellpadding='2' cellspacing='2' border='2'>\n\t\t<tr>\n\t\t\t<td class='{$tcal}'><img src='../images/common/query_back_down.png' onclick='back_week(\"{$nowdate}\");' /></td>\n\t\t\t{$tdweek}\n\t\t\t<td class='{$tcal}'><img src='../images/common/query_next_down.png' onclick='next_week(\"{$nowdate}\");' /></td>\n\t\t</tr>\n\t</table>\n\t</center>\n\t<hr />";
}

 function setRegenerarSDPM($PFechaInicial, $PFechaFinal, $GenerarInteres = true, $incluirSinSaldo = false, $NumeroCuenta = false)
 {
     //		$PFechaFinal		= "";
     $mBase = 3100;
     $xT = new cTipos();
     $ql = new MQL();
     $BySaldo = $incluirSinSaldo == false ? " AND captacion_cuentas.saldo_cuenta >=" . TOLERANCIA_SALDOS : "";
     $ByCuentaSDPM = $NumeroCuenta == false ? "" : " AND `captacion_sdpm_historico`.`cuenta` = {$NumeroCuenta} ";
     $ByCuentaMvto = $NumeroCuenta == false ? "" : " AND `operaciones_mvtos`.`docto_afectado` = {$NumeroCuenta} ";
     $ByCuentaCta = $NumeroCuenta == false ? "" : " AND captacion_cuentas.numero_cuenta = {$NumeroCuenta} ";
     $msg = "";
     $msg .= "==========================================================================================\r\n";
     $msg .= "==================\tGenerando SDPM desde el {$PFechaInicial} al {$PFechaFinal}\r\n";
     $msg .= "==========================================================================================\r\n";
     $msg .= "Socio\tCuenta\tOPER\tEjercicio\tPeriodo\tFecha\tDias\tMonto\tSaldo\tSDPM\r\n";
     $sqlM = "SELECT \n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`fecha_operacion`  AS 'fecha_operacion',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado` AS 'recibo_afectado',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado` AS 'docto_afectado',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`afectacion_real` AS 'afectacion_real',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`valor_afectacion`,\n\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion` AS 'afectacion'\n\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos` \n\t\t\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros` \n\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros` \n\t\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = \n\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro` \n\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` ={$mBase})\n\t\t\t\t\t\t\t\t\t{$ByCuentaMvto}\n\t\t\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`fecha_operacion` ASC";
     $rsM = getRecordset($sqlM);
     $arrOps = array();
     //Array de montos de operacion
     $arrRecs = array();
     //Array de Recibos de Operacion
     while ($rwM = mysql_fetch_array($rsM)) {
         //clave cuenta fecha
         $cuenta = $rwM["docto_afectado"];
         $fecha = $rwM["fecha_operacion"];
         if (isset($arrOps[$cuenta . "-" . $fecha])) {
             $arrOps[$cuenta . "-" . $fecha] += $rwM["afectacion_real"] * $rwM["afectacion"];
         } else {
             $arrOps[$cuenta . "-" . $fecha] = $rwM["afectacion_real"] * $rwM["afectacion"];
         }
         $arrRecs[$cuenta . "-" . $fecha] = $rwM["recibo_afectado"];
         //$msg					.= "WARN\t$cuenta\tAgregar " . ($rwM["afectacion_real"] * $rwM["afectacion"] ) . "\r\n";
     }
     //Eliminar periodos anteriores
     $sqlDF = "DELETE FROM captacion_sdpm_historico WHERE (fecha>='{$PFechaInicial}' AND fecha<='{$PFechaFinal}') {$ByCuentaSDPM} ";
     my_query($sqlDF);
     //FECHAS
     $xF = new cFecha(0);
     //
     $xTbl = new cSAFETabla(TCAPTACION_CUENTAS);
     $sqlCX = $xTbl->getQueryInicial() . " WHERE captacion_cuentas.tipo_cuenta = " . CAPTACION_TIPO_VISTA . " {$BySaldo} {$ByCuentaCta} ";
     $rs1 = getRecordset($sqlCX);
     while ($rw1 = mysql_fetch_array($rs1)) {
         $socio = $rw1["numero_socio"];
         $cuenta = $rw1["numero_cuenta"];
         $xCta = new cCuentaALaVista($cuenta, $socio);
         $xCta->init($rw1);
         $DCta = $xCta->getDatosInArray();
         $FApertura = $DCta["fecha_apertura"];
         $dias = $xF->setRestarFechas($PFechaFinal, $FApertura);
         $dias += 1;
         $sucursal = $DCta["sucursal"];
         $FechaAnterior = $FApertura;
         $saldoAnterior = 0;
         $xF2 = new cFecha(1);
         for ($i = 0; $i <= $dias; $i++) {
             $OpFecha = $xF->setSumarDias($i, $FApertura);
             $xF->set($OpFecha);
             $OpFechaFin = $xF->getDiaFinal();
             $OpMonto = isset($arrOps[$cuenta . "-" . $OpFecha]) ? $arrOps[$cuenta . "-" . $OpFecha] : 0;
             $idrecibo = isset($arrRecs[$cuenta . "-" . $OpFecha]) ? $arrRecs[$cuenta . "-" . $OpFecha] : DEFAULT_RECIBO;
             //si la operacion es mayor a cero o es FIN DE MES
             if ($OpMonto != 0 or $OpFecha == $OpFechaFin) {
                 $diasTrans = $xF2->setRestarFechas($OpFecha, $FechaAnterior);
                 $xF2->set($OpFecha);
                 $ejercicio = $xF2->anno();
                 $periodo = $xF2->mes();
                 $sdpd = $saldoAnterior * $diasTrans;
                 $nuevatasa = $xCta->getTasaAplicable(0, 0, $saldoAnterior);
                 //corregir fecha
                 $sqlUSPM = "INSERT INTO captacion_sdpm_historico\n\t\t\t\t\t\t\t\t\t\t(ejercicio, periodo, cuenta, fecha, dias, tasa, monto, recibo, numero_de_socio, sucursal)\n\t    \t\t\t\t\t\t\t\tVALUES( {$ejercicio}, {$periodo}, {$cuenta}, '{$OpFecha}', {$diasTrans}, {$nuevatasa}, {$sdpd}, {$idrecibo}, {$socio}, '{$sucursal}') ";
                 //si es valida la operacion, se actualizan
                 if ($OpFecha >= $PFechaInicial and $OpFecha <= $PFechaFinal) {
                     my_query($sqlUSPM);
                     $msg .= "{$socio}\t{$cuenta}\t+SDPM\t{$ejercicio}\t{$periodo}\t{$OpFecha}\t{$diasTrans}\t{$OpMonto}\t{$saldoAnterior}\t{$sdpd}\r\n";
                 } else {
                     $msg .= "{$socio}\t{$cuenta}\t=SDPM\t{$ejercicio}\t{$periodo}\t{$OpFecha}\t{$diasTrans}\t{$OpMonto}\t{$saldoAnterior}\t{$sdpd}\r\n";
                 }
                 $FechaAnterior = $OpFecha;
                 $saldoAnterior += $OpMonto;
             }
         }
     }
     //Agregar Movimientos Finales del MES.
     //FIXME: Corregir incidencias
     //opcional: agregar Interes
     if ($GenerarInteres == true) {
         $xRec = new cReciboDeOperacion(12, false);
         $recibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, 1, $PFechaFinal, 1, 12, "REGENERAR_INTERES_SDPM_{$PFechaFinal}", "NA", "ninguno", "NA", DEFAULT_GRUPO);
         $msg .= "==========================================================================================\r\n";
         $msg .= "==================\tAGREGADO INTERES :: RECIBO {$recibo}\r\n";
         $msg .= "==========================================================================================\r\n";
         $_SESSION["recibo_en_proceso"] = $recibo;
         //sumar sdpm del mes por cuenta
         $sqlSDPM = "SELECT\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`numero_de_socio`,\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`cuenta`,\n\t\t\t\t\t\t\t\tSUM(`captacion_sdpm_historico`.`dias`)  AS `dias_transcurridos`,\n\t\t\t\t\t\t\t\tSUM(`captacion_sdpm_historico`.`monto`) AS `sdpm`,\n\t\t\t\t\t\t\t\tROUND( (`captacion_sdpm_historico`.`monto` / `captacion_sdpm_historico`.`dias`), 2) AS `ultimo_saldo`,\n\t\t\t\t\t\t\t\tMAX(`captacion_sdpm_historico`.`fecha`) AS 'UltimaFecha'\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico` `captacion_sdpm_historico` \n\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t(`captacion_sdpm_historico`.`fecha` >= '{$PFechaInicial}')\n\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t(`captacion_sdpm_historico`.`fecha` <= '{$PFechaFinal}')\n\t\t\t\t\t\t\t\t{$ByCuentaSDPM}\n\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`cuenta`,\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`ejercicio`,\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`periodo`\n\t\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`fecha` DESC ";
         $rsCAP = $ql->getDataRecord($sqlSDPM);
         //setLog($sqlSDPM);
         foreach ($rsCAP as $rwC) {
             $socio = $rwC["numero_de_socio"];
             $cuenta = $rwC["cuenta"];
//.........这里部分代码省略.........

 function setPolizaPorCajero($cajero, $FechaDeCorte, $NumeroDePoliza = false, $TipoDePoliza = 1, $TipoDePago = "efectivo", $generador = false)
 {
     $sucess = true;
     $msg = "=======\tGENERAR POLIZA POR USUARIO NUM {$cajero}\r\n";
     //if (GENERAR_CONTABILIDAD == true){
     //($generador == GENERAR_POLIZAS_AL_CIERRE) AND
     if (isset($cajero)) {
         $xUsr = new cOficial($cajero);
         $DUsr = $xUsr->getDatos();
         $UsrName = $DUsr["nombres"] . " " . $DUsr["apellidopaterno"];
         $tipo_de_poliza = $TipoDePoliza;
         $xD = new cFecha(0, $FechaDeCorte);
         $fecha_de_poliza = $FechaDeCorte;
         $ejercicio_de_poliza = $xD->anno();
         $periodo_de_poliza = $xD->mes();
         $numero_de_poliza = $NumeroDePoliza == false ? false : $NumeroDePoliza;
         $concepto_poliza = "{$UsrName}.-Movimientos del Corte de Fecha {$FechaDeCorte}";
         //Obten datos de la Poliza
         $sqlRec = "SELECT\r\n\t\t\t\t\t\t\t\t\t`operaciones_recibos`.*,\r\n\t\t\t\t\t\t\t\t\t`operaciones_recibostipo`.`tipo_poliza_generada`,\r\n\t\t\t\t\t\t\t\t\t`operaciones_recibostipo`.`afectacion_en_flujo_efvo`\r\n\t\t\t\t\t\t\t\tFROM\r\n\t\t\t\t\t\t\t\t\t`operaciones_recibos` `operaciones_recibos`\r\n\t\t\t\t\t\t\t\t\t\tINNER JOIN `operaciones_recibostipo`\r\n\t\t\t\t\t\t\t\t\t\t`operaciones_recibostipo`\r\n\t\t\t\t\t\t\t\t\t\tON `operaciones_recibos`.`tipo_docto` =\r\n\t\t\t\t\t\t\t\t\t\t`operaciones_recibostipo`.\r\n\t\t\t\t\t\t\t\t\t\t`idoperaciones_recibostipo`\r\n\t\t\t\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t\t\t\t(`operaciones_recibos`.`idusuario` = {$cajero} )\r\n\t\t\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t\t\t(`operaciones_recibos`.`fecha_operacion` = '{$FechaDeCorte}' )\r\n\t\t\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t\t\t(`operaciones_recibostipo`.`tipo_poliza_generada` = {$TipoDePoliza} )\r\n\t\t\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t\t\t(`operaciones_recibos`.`tipo_pago` = '{$TipoDePago}' )\r\n\t\t\t\t\t\t\t\tORDER BY\r\n\t\t\t\t\t\t\t\t\t`operaciones_recibos`.`tipo_pago`,\r\n\t\t\t\t\t\t\t\t\t`operaciones_recibos`.`idusuario`,\r\n\t\t\t\t\t\t\t\t\t`operaciones_recibos`.`idoperaciones_recibos`\r\n\t\t\t\t\t\t\t\t\t";
         //$msg		.= "$sqlRec\r\n";
         $rsP = getRecordset($sqlRec);
         //Obtener el la Ultima Poliza Registrada
         //------------------ Agregar Poliza
         $xPol = new cPoliza($tipo_de_poliza, $numero_de_poliza, $ejercicio_de_poliza, $periodo_de_poliza);
         if ($numero_de_poliza != false and $xPol->getCountPolizaByNumero($numero_de_poliza) > 1) {
             $xPol->setDeletePoliza();
         }
         $msg .= $xPol->add($concepto_poliza, $fecha_de_poliza, $numero_de_poliza, 0, 0, $cajero);
         $numero_de_poliza = $xPol->get();
         $msg .= "=====\tPOLIZA NUM: {$numero_de_poliza} | TIPO: {$tipo_de_poliza} | EJERCICIO: {$ejercicio_de_poliza} | PERIODO: {$periodo_de_poliza}\r\n";
         $sucess = $xPol->mRaiseError == true ? false : true;
         //seleccionar todos los recibos
         while ($rwP = mysql_fetch_array($rsP)) {
             $dRec = $rwP;
             $numero_de_recibo = $dRec["idoperaciones_recibos"];
             $recibo_fiscal = strlen($dRec["recibo_fiscal"]) > 2 ? ";RF:" . trim($dRec["recibo_fiscal"]) : "";
             $observacion_recibo = $dRec["observacion_recibo"];
             $flujo_efectivo = $dRec["afectacion_en_flujo_efvo"];
             $cheque = strlen($dRec["cheque_afectador"]) > 2 ? ";Ch:" . $dRec["cheque_afectador"] : "";
             $socio = $dRec["numero_socio"];
             $concepto_mvto = substr("R:" . $numero_de_recibo . $recibo_fiscal . $cheque . ";" . $dRec["observacion_recibo"], 0, 80);
             $msg .= "{$numero_de_recibo}\tRECIBO TIPO: " . $dRec["tipo_docto"] . " SUMA: " . $dRec["total_operacion"] . " \r\n";
             //regenera el perfil contable
             //if ( $Regenerar == true ){
             $xUCont = new cUtileriasParaContabilidad();
             $msg .= $xUCont->setRegenerarPrepolizaContable($dRec["fecha_operacion"], $numero_de_recibo);
             //}
             //------------------ 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`.`documento`,\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`tipo_de_mvto`\t\t\t\r\n\t\t\t\t\t";
             if ($sucess == true) {
                 //$msg		.= "$sqlMvtosToPoliza\r\n";
                 $rs = mysql_query($sqlMvtosToPoliza, cnnGeneral());
                 if (!$rs) {
                     //error en MYSQL
                     $sucess = false;
                     saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|Numero: " . mysql_errno() . "|Instruccion SQL:" . $sqlMvtosToPoliza . "|EN:" . $_SESSION["current_file"]);
                 }
                 while ($rw = mysql_fetch_array($rs)) {
                     $cuenta = CUENTA_DE_CUADRE;
                     $nombre = "";
                     $socio = $rw["socio"];
                     if (CONTABLE_CUENTAS_POR_SOCIO == true) {
                         $xSoc = new cSocio($socio, true);
                         $nombre = $xSoc->getNombreCompleto();
                     }
                     //si la cuenta es de efectivo o similar
                     $documento = $rw["documento"];
                     $monto_movimiento = $rw["monto"];
                     $tipoOp = $rw["tipo_de_mvto"];
                     $tipo_movimiento = $rw["contable_operacion"];
                     $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, $cajero);
                     $msg .= $sForms->getMessages();
                     if ($cuenta != "NO_CONTABILIZAR") {
                         $xCuenta = new cCuentaContable($cuenta);
                         $cuenta = $xCuenta->get();
                         //Carga los datos del Oficial
                         if ($xCuenta->getEsCuentaDeCirculante() == true) {
                             $nombre = "EFVO:{$UsrName}";
                             $msg .= "CUENTA_ADD\tLa Cuenta {$cuenta} de Carga por Cajero [ {$nombre} ]\r\n";
                         } else {
                             $msg .= "CUENTA\tLa Cuenta de Trabajo es {$cuenta} Originado del Socio {$socio}\r\n";
                         }
                         //verifica para dar de alta a la cuenta
                         $Existentes = $xCuenta->getCountCuenta();
                         if ($Existentes == false) {
                             $msg .= "{$numero_de_recibo}\tCUENTA_ADD\tLa Cuenta de Trabajo {$cuenta} NO EXISTE, Se AGREGA\r\n";
                             $cuenta = $xCuenta->add($nombre);
                             if ($xCuenta->mRaiseError == true) {
//.........这里部分代码省略.........

     $monto = getFMoney($rw["monto"]);
     $tdEsp = "";
     if ($BCapital->getIsMember($rw["tipo_operacion"]) == true) {
         $tdEsp = "<td class='mny'>{$monto}</td><td /><td /><td />";
     } elseif ($BInteres->getIsMember($rw["tipo_operacion"]) == true) {
         $tdEsp = "<td /><td class='mny'>{$monto}</td><td /><td />";
         $ints += $rw["monto"];
     } elseif ($BIva->getIsMember($rw["tipo_operacion"]) == true) {
         $tdEsp = "<td /><td /><td class='mny'>{$monto}</td><td />";
         $iva += $rw["monto"];
     } else {
         $tdEsp = "<td /><td /><td /><td class='mny'>{$monto}</td>";
         $otros += $rw["monto"];
     }
     $xF->set($rw["fecha_operacion"]);
     $cssFecha = $xF->mes() != $mes ? " class='otromes' " : " class='date' ";
     $mtd = "<tr>\n\t\t\t\t\t<td {$cssFecha}>" . $xF->getFechaDDMM() . "</td>\n\t\t\t\t\t<td onclick=\"msgbox('Total Recibo " . $rw["total_recibo"] . "')\">" . $rw[2] . "</td>\n\t\t\t\t\t<td>" . $rw[3] . "</td>\n\t\t\t\t\t<td class='ajustar'>" . $rw[4] . "</td>\n\t\t\t\t\t{$tdEsp}\n\t\t\t\t\t<td class='mny'>{$sdos}</td>\n\t\t\t\t\t<td class='ajustar'>{$observa}</td>\n\t\t\t\t</tr>";
     //parche de credito
     if (strtotime($rw["fecha_operacion"]) < strtotime($fecha_inicial) or strtotime($rw["fecha_operacion"]) > strtotime($fecha_final)) {
         $mtd = "";
     }
     $mes = $xF->mes();
     $trs .= $mtd;
     $i++;
     //Imprime en pantalla el Aviso de NO COINCIDENCIA
 }
 //$sdo1		=
 if (round($sdo, 2) != round($sdoTemp, 2)) {
     if (FORCE_CUADRE_EN_OPERACIONES == true) {
         if ($cFC->getEstadoActual() == CREDITO_ESTADO_AUTORIZADO or $cFC->getEstadoActual() == CREDITO_ESTADO_SOLICITADO) {
             $sdo = 0;

function jsa_getDatosDeCredito($solicitud)
{
    $xCred = new cCredito($solicitud);
    $xCred->initCredito();
    $xF = new cFecha();
    $xT = new cTipos();
    $dCreds = $xCred->getDatosDeCredito();
    $periocidad = $xCred->getPeriocidadDePago();
    $FMinistracion = $xCred->getFechaDeMinistracion();
    $contrato_corriente = $xCred->getContratoCorriente();
    $xPlanGen = new cPlanDePagosGenerador();
    $xPlanGen->initPorCredito($solicitud);
    $FPrimerAb = $xPlanGen->getFechaDePrimerPago();
    $xF = new cFecha(0, $FMinistracion);
    $FM_d = $xF->dia();
    $FM_a = $xF->anno();
    $FM_m = $xF->mes();
    $xF2 = new cFecha(1, $FPrimerAb);
    $xF2->set($FPrimerAb);
    $PA_d = $xF2->dia();
    $PA_a = $xF2->anno();
    $PA_m = $xF2->mes();
    $tab = new TinyAjaxBehavior();
    //setLog("$PA_d --- $PA_m ---- $PA_a  - - - - - $FPrimerAb");
    $tab->add(TabSetvalue::getBehavior('ideldia1', $FM_d));
    $tab->add(TabSetvalue::getBehavior('idelmes1', $FM_m));
    $tab->add(TabSetvalue::getBehavior('idelanno1', $FM_a));
    $tab->add(TabSetvalue::getBehavior('ideldia0', $PA_d));
    $tab->add(TabSetvalue::getBehavior('idelmes0', $PA_m));
    $tab->add(TabSetvalue::getBehavior('idelanno0', $PA_a));
    $tab->add(TabSetvalue::getBehavior('idDescripcionSolicitud', $xCred->getShortDescription()));
    $tab->add(TabSetvalue::getBehavior('idcuenta', $contrato_corriente));
    //$xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_CATORCENAL
    if ($xCred->getTipoEnSistema() == CREDITO_PRODUCTO_NOMINA) {
        $tab->add(TabSetvalue::getBehavior('idFormaDePago', $xCred->getTipoDePago()));
        //setLog("El pago es " . $xCred->getPeriocidadDePago() );
        if ($xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_CATORCENAL) {
            $tab->add(TabSetvalue::getBehavior('idtipo_plan_pagos', CREDITO_TIPO_DIAS_DE_PAGO_PERSONALIZADOS));
        }
    }
    return $tab->getString();
}

$pais = EACP_CLAVE_DE_PAIS;
?>
<fieldset>
<legend>Actualizacion / correccion de Datos</legend>

<?php 
$elsocio = isset($_GET["elsocio"]) ? $_GET["elsocio"] : false;
$action = isset($_GET["a"]) ? $_GET["a"] : false;
if ($action == false) {
    if ($elsocio != false) {
        $xSoc = new cSocio($elsocio);
        $xSoc->init();
        $DSoc = $xSoc->getDatosInArray();
        $xF = new cFecha(0, $DSoc["fecha_de_nacimiento"]);
        $anac = $xF->anno();
        $mnac = $xF->mes();
        $dnac = $xF->dia();
        /*
        		codigo, nombrecompleto, apellidopaterno, 
        		apellidomaterno, rfc, curp, fechaentrevista, fechaalta, estatusactual, 
        		region, cajalocal, fechanacimiento, lugarnacimiento, tipoingreso, estadocivil, 
        		genero, eacp, observaciones, idusuario, grupo_solidario, personalidad_juridica, dependencia, 
        		regimen_conyugal, sucursal, fecha_de_revision, tipo_de_identificacion, documento_de_identificacion 
        */
        $pais = $xSoc->getPaisDeOrigen();
    }
    ?>
<form name ='frmsolingreso' METHOD='POST' ACTION='frmupdatesocios.php?a=ok'>
		<input type='hidden' name='uidsocio' value='<?php 
    echo $DSoc["codigo_de_socio"];
    ?>

 function __construct($fecha = false)
 {
     $xF = new cFecha();
     $xF->set($xF->getFechaISO($fecha));
     $mes = $xF->mes();
     $annio = $xF->anno();
     if ($mes <= 3) {
         $this->mID = 1;
         $this->mFechaInicial = "{$annio}-01-01";
         $this->mFechaFinal = "{$annio}-03-31";
     } elseif ($mes >= 4 and $mes <= 6) {
         $this->mID = 2;
         $this->mFechaInicial = "{$annio}-04-01";
         $this->mFechaFinal = "{$annio}-06-30";
     } elseif ($mes >= 7 and $mes <= 9) {
         $this->mID = 3;
         $this->mFechaInicial = "{$annio}-07-01";
         $this->mFechaFinal = "{$annio}-09-30";
     } else {
         $this->mID = 4;
         $this->mFechaInicial = "{$annio}-10-01";
         $this->mFechaFinal = "{$annio}-12-31";
     }
 }

$xF = new cFecha();
$xCaja = new cCaja();
if ($xCaja->getEstatus() == TESORERIA_CAJA_CERRADA) {
    header("location:../404.php?i=200");
}
echo $xHP->getHeader();
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$monto = parametro("monto", 0, MQL_FLOAT);
$tipo_de_recibo = parametro("tiporecibo", 0, MQL_INT);
$xJS = new jsBasicForm("frmgtosefvo");
$lowdate = $xF->setSumarDias(DIAS_PAGO_UNICOS);
$ndia = $xF->dia();
$nmes = $xF->mes();
$nano = $xF->anno();
$xFRM = new cHForm("frm", "./");
$xBtn = new cHButton();
$xTxt = new cHText();
$xDate = new cHDate();
$xSel = new cHSelect();
?>
<script>
	function fechaminima() {
			document.frmgtosefvo.eldia0.value = <?php 
echo $ndia;
?>
;
			document.frmgtosefvo.elmes0.value = <?php 
echo $nmes;

 function getFechaDeAviso($periocidad = false, $fecha = false, $periodoInit = false, $periodoEnd = false)
 {
     $xF = new cFecha();
     $dias = explode(",", strtoupper($this->mDiasDeAviso));
     $diasSem = $xF->getDiasDeSemanaInArray();
     $periocidad = $periocidad == false ? $this->getPeriocidadPref() : $periocidad;
     $fecha = $fecha == false ? fechasys() : $fecha;
     $result = null;
     $items = 1;
     foreach ($diasSem as $numero => $nombre) {
         /*if(isset($dias[$nombre]) ){
         			unset($dias[$nombre]);
         			$dias[$numero]
         		}*/
     }
     foreach ($dias as $id => $dia) {
     }
     foreach ($dias as $id => $dia) {
         //limpiar
         if ($periocidad != CREDITO_TIPO_PERIOCIDAD_SEMANAL) {
             foreach ($diasSem as $numero => $nombre) {
                 if ($dia == $nombre) {
                     unset($dias[$id]);
                 }
             }
             if (setNoMenorQueCero($dia) > $xF->getDiasDelMes() or setNoMenorQueCero($dia) == 0) {
                 unset($dias[$id]);
             }
             switch ($periocidad) {
                 case CREDITO_TIPO_PERIOCIDAD_DECENAL:
                     if ($id > 3) {
                         unset($dias[$id]);
                     }
                     break;
                 case CREDITO_TIPO_PERIOCIDAD_CATORCENAL:
                     if ($id > 2) {
                         unset($dias[$id]);
                     }
                     break;
                 case CREDITO_TIPO_PERIOCIDAD_QUINCENAL:
                     if ($id > 2) {
                         unset($dias[$id]);
                     }
                     break;
                 case CREDITO_TIPO_PERIOCIDAD_MENSUAL:
                     if ($id > 1) {
                         unset($dias[$id]);
                     }
                     break;
             }
         } else {
             //convertir dias
             foreach ($diasSem as $numero => $nombre) {
                 if ($dia == $nombre) {
                     $dias[$id] = $numero;
                 }
             }
             if (setNoMenorQueCero($dia) > 7 or setNoMenorQueCero($dia) == 0) {
                 unset($dias[$id]);
             }
             if ($id > 1) {
                 unset($dias[$id]);
             }
         }
     }
     //$items		= count($dias);
     //encontrar el periodo cero
     switch ($periocidad) {
         case CREDITO_TIPO_PERIOCIDAD_DECENAL:
             break;
         case CREDITO_TIPO_PERIOCIDAD_CATORCENAL:
             break;
         case CREDITO_TIPO_PERIOCIDAD_QUINCENAL:
             break;
         case CREDITO_TIPO_PERIOCIDAD_MENSUAL:
             $xF1 = new cFecha(0, $fecha);
             $result = $xF1->anno() . "-" . $xF1->mes() . "-" . $dias[0];
             break;
         case CREDITO_TIPO_PERIOCIDAD_SEMANAL:
             //$fechaInicial	= $xF->setFechaPorSemana();
             $xF1 = new cFecha(0, $fecha);
             $buscar = 1;
             foreach ($dias as $id => $cnt) {
                 $buscar = $cnt;
             }
             $semana = date("W", $xF1->getInt());
             $result = $xF1->setFechaPorSemana($semana, $buscar);
             /*
              $first_day_of_week = date('m-d-Y', strtotime('Last Monday', time()));
             $last_day_of_week = date('m-d-Y', strtotime('Next Sunday', time()));
             */
             break;
     }
     return $result;
 }

 function get($label = "", $Fecha = false, $indice = false)
 {
     $xTr = new cLang();
     $label = $xTr->getT($label);
     $maxSize = $this->mLabelSize == 0 ? HP_LABEL_SIZE : $this->mLabelSize;
     if ($indice !== false) {
         $this->mIndex = $indice;
     }
     if (strlen($label) < $maxSize) {
         $rll = $maxSize - strlen(html_entity_decode($label));
     }
     $extraDate = "";
     $label = $label == "" ? "" : "<label for='idfecha-" . $this->mIndex . "'>{$label}</label>";
     $this->set($Fecha);
     $xF = new cFecha($this->mIndex, $this->mFecha);
     $events = $this->mEvents;
     $xF->init(FECHA_FORMATO_MX);
     $id = $this->mId == "" ? "idfecha-" . $this->mIndex . "" : $this->mId;
     if ($this->mTipoFecha == FECHA_TIPO_NACIMIENTO) {
         $anno = $xF->anno() - 18;
         $xF->set("{$anno}-" . $xF->mes() . "-" . $xF->dia());
         $this->set($xF->get());
         $extraDate = ",selectYears: true ";
     }
     $txt = "<input type=\"text\" id=\"{$id}\" value=\"" . $xF->get() . "\" name=\"{$id}\" {$events}><script>\$(\"#{$id}\").pickadate({format: 'dd-mm-yyyy',formatSubmit:'yyyy-mm-dd', editable : true {$extraDate}});</script> ";
     $initDiv = $this->mClassDiv == "" ? "" : "<div class=\"" . $this->mClassDiv . "\">";
     $endDiv = $this->mClassDiv == "" ? "" : "</div>";
     return $this->mSelects == false ? $initDiv . $label . $txt . $endDiv : $initDiv . $label . $xF->show(true, $this->mTipoFecha) . $endDiv;
 }

 function getListadoDeSaldosPorMes($cuenta, $fecha = false, $tipo = 1)
 {
     $fecha = $fecha == false ? fechasys() : $fecha;
     $xF = new cFecha(0, $fecha);
     $mes = (int) $xF->mes();
     $anno = $xF->anno();
     $xEsq = new cCuentaContableEsquema($cuenta);
     $rawC = $xEsq->CUENTARAW;
     $siz = strlen($rawC);
     $sql = "SELECT\n\t\t\t`contable_catalogo`.`numero`,\n\t\t\t`contable_catalogo`.`nombre`,\n\t\t\t`contable_catalogo`.`digitoagrupador` AS 'nivel',\n\t\t\t`contable_saldos`.`imp{$mes}` AS 'monto'\n\t\t\t\n\n\t\tFROM\n\t`contable_catalogo` `contable_catalogo` \n\t\tINNER JOIN `contable_saldos` `contable_saldos` \n\t\tON `contable_catalogo`.`numero` = `contable_saldos`.`cuenta`\n\t\t\n\t\tWHERE\n\t\t\t(`contable_saldos`.`ejercicio` = {$anno}) AND\n\t\t\t(`contable_saldos`.`tipo` = {$tipo}) \n\t\t\tAND \n\t\t\t(`contable_catalogo`.`digitoagrupador` <=3)\n\t\t\tAND \n\t\t\tSUBSTR(`contable_catalogo`.`numero`, 1, {$siz}) = '{$rawC}'\n\t\tORDER BY numero ";
     return $sql;
 }

 function setProcesarProgramacion($id, $arrVars = false, $data = false, $fecha = false)
 {
     $xF = new cFecha();
     $xT = new cTipos();
     $xLog = new cCoreLog();
     $arrVars = $arrVars == false ? $this->mArrVars : $arrVars;
     //idprograma, nombre_del_aviso, forma_de_creacion, programacion, destinatarios, microformato, tipo_de_medios, intent_check, intent_command
     $sql = "SELECT *\tFROM sistema_programacion_de_avisos WHERE idprograma={$id} LIMIT 0,1";
     $d = $data == false ? obten_filas($sql) : $data;
     $mOb = new cSistema_programacion_de_avisos();
     $mOb->setData($d);
     $emails = array();
     $tels = array();
     $enviar = false;
     $fecha = $fecha == false ? fechasys() : $fecha;
     $nombredia = $xF->getDayName();
     $diadelmes = date("j", $xF->getInt());
     $EnviarNota = true;
     $EnviarMail = true;
     $EnviarSMS = false;
     $xLoc = new cLocal();
     //procesar cuerpo del contenido
     $arrVars["fecha"] = !isset($arrVars["fecha"]) ? $fecha : $arrVars["fecha"];
     $arrVars["fecha_dia_siguiente"] = $xF->setSumarDias(1, $fecha);
     $arrVars["fecha_inicio_de_semana"] = $xF->getFechaDeInicioDeSemana($fecha);
     $arrVars["fecha_inicio_de_mes"] = $xF->getDiaInicial($fecha);
     //Dia de la semana inicial
     $arrVars["hora"] = date("H");
     $arrVars["usuario"] = $xLoc->getNombreUsuario();
     $arrVars["clave_de_usuario"] = !isset($arrVars["clave_de_usuario"]) ? getUsuarioActual() : $arrVars["clave_de_usuario"];
     //interpretar DIA
     if (strtoupper($mOb->forma_de_creacion()->v()) == SYS_ALERTA_POR_EVENTO) {
         $enviar = true;
     } else {
         //if($mOb->programacion())
         $programacion = strtoupper($mOb->programacion()->v());
         $periodo = explode(":", $programacion);
         //INTERPRETAR DIA
         if ($periodo[0] == "PROGRAMACION_SEMANAL") {
             if (strpos($nombredia, $programacion) !== false) {
                 $enviar = true;
             }
         } else {
             if ($periodo[0] == "PROGRAMACION_DIARIA") {
                 $enviar = true;
             } else {
                 if (isset($periodo[1])) {
                     $dias = explode(",", $periodo[1]);
                     foreach ($dias as $dias => $iddia) {
                         $mes = $xF->mes();
                         $anno = $xF->anno();
                         if (date("Y-m-d", strtotime("{$anno}-{$mes}-{$iddia}")) == $fecha) {
                             $enviar = true;
                         }
                     }
                 }
             }
         }
     }
     //1.- extraer emails
     $destinatarios = explode("|", $mOb->destinatarios()->v());
     foreach ($destinatarios as $key => $cnt) {
         if (trim($cnt) != "") {
             //1.1 Desfragmentar destinos
             $DS = explode(":", $cnt);
             $mdestino = isset($DS[0]) ? strtoupper($DS[0]) : "";
             switch ($mdestino) {
                 case "OFICIALES":
                     if (isset($DS[1])) {
                         $oficiales = explode(",", $DS[1]);
                         foreach ($oficiales as $ofc => $ofkey) {
                             $xOf = new cOficial($ofkey);
                             $xOf->init();
                             $mail = $xOf->getEmail();
                             $emails[] = $mail;
                             $xLog->add("OK\tOFICIAL\tAgregar mail {$mail}  \r\n", $xLog->DEVELOPER);
                         }
                     }
                     break;
                 case "EMPRESAS":
                     if (isset($DS[1])) {
                         $empresas = explode(",", $DS[1]);
                         foreach ($empresas as $emp => $empkey) {
                             $xEmp = new cEmpresas($empkey);
                             $xEmp->init();
                             //$mail		= $xEmp->getEmailsDeEnvio();
                             //$emails[]	= $mail;
                             $emails = array_merge($emails, $xEmp->getEmailsDeEnvio());
                             $xLog->add("OK\tEMPRESAS\tAgregar mail de la empresa {$empkey}  \r\n", $xLog->DEVELOPER);
                         }
                     }
                     break;
                 case "PERSONAS":
                     if (isset($DS[1])) {
                         $personas = explode(",", $DS[1]);
                         foreach ($personas as $ofc => $ofkey) {
                             $xSoc = new cSocio($ofkey);
                             $xSoc->init();
                             $mail = $xSoc->getCorreoElectronico();
                             $emails[] = $mail;
//.........这里部分代码省略.........