$xP->setIncludes();
echo $xP->getHeader();
echo $xP->setBodyinit();
//Crear formularios
$xHFrm = new cHForm("frmTest", "./test.php");
$xHTxt = new cHText("");
//$txt 	= $xHTxt->getDeMoneda("id", "Moneda de Prueba",  100);
$miFecha = parametro("fecha", fechasys());
$xF = new cFecha(0, $miFecha);
//$xHFrm->addHElem( $txt );
$xHFrm->addHElem($xF->show(true));
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se semana==" . $xF->getFechaDeInicioDeSemana() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se nombre semana==" . $xF->getDayName($xF->getFechaDeInicioDeSemana()) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias del Mes==" . $xF->getDiasDelMes() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Corta==" . $xF->getFechaCorta() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Larga==" . $xF->getFechaLarga() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Mediana==" . $xF->getFechaMediana() . "</p>");
//$xHFrm->addHElem(  );
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Operativa Maxima==" . $xF->getFechaMaximaOperativa() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, El Mes Anterior==" . $xF->getFechaMesAnterior() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, dos meses atras==" . $xF->getFechaMesAnterior(false, 2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  - 30 Dias==" . $xF->setRestarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  + 30 Dias==" . $xF->setSumarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  + 2 meses==" . $xF->setSumarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  - 2 meses==" . $xF->setRestarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Nombre del Dia==" . $xF->getDayName() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dia Inicial del mes==" . $xF->getDiaInicial() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener Dia Habil==" . $xF->getDiaHabil() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias desde el 31Dic2013==" . $xF->setRestarFechas($xF->get(), "2013-12-31") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar Sabado(D6) para el dia de hoy==" . $xF->getDiaAbonoSemanal(6) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar NOMBRE Sabado(D6) para el dia de hoy==" . $xF->getDayName($xF->getDiaAbonoSemanal(6)) . "</p>");
$fichas_de_avales = "_NO_APLICA_";
$fichas_de_respsolidarios = "_NO_APLICA_";
$firmas_de_respsolidarios = "_NO_APLICA_";
//Captacion
$numero_de_cuenta = "_NO_APLICA_";
$nombre_mancomunados = "_NO_APLICA_";
$variable_tasa_otorgada = "_NO_APLICA_";
$variable_fecha_vencimiento = "_NO_APLICA_";
$numero_dias = "_NO_APLICA_";
$monto_inicial_letras = "_NO_APLICA_";
$monto_inicial = "_NO_APLICA_";
$monto_letras = "_NO_APLICA_";
$variable_oficial = "_NO_APLICA_";
$descripcion_cajalocal = "_NO_APLICA_";
//Datos de tesoreria
$vars = array("variable_nombre_del_socio" => $variable_nombre_del_socio, "variable_nombre_de_la_sociedad" => EACP_NAME, "variable_nombre_de_la_entidad" => EACP_NAME, "variable_domicilio_del_socio" => trim(substr($cSoc->getDomicilio(), 0, 60)), "variable_documento_de_constitucion_de_la_sociedad" => EACP_DOCTO_CONSTITUCION, "variable_rfc_de_la_entidad" => EACP_RFC, "variable_rfc_del_socio" => $DSoc["rfc"], "variable_curp_del_socio" => $DSoc["curp"], "variable_nombre_del_representante_legal_de_la_sociedad" => EACP_REP_LEGAL, "variable_informacion_del_credito" => $svar_info_cred, "variable_domicilio_de_la_entidad" => EACP_DOMICILIO_CORTO, "variable_acta_notarial_de_poder_al_representante" => EACP_DOCTO_REP_LEGAL, "variable_lista_de_beneficiados" => $variable_lista_beneficiados, "variable_numero_de_socio" => $numero_de_socio, "variable_nombre_caja_local" => $caja_local, "variable_caja_local" => $numero_caja_local, "variable_tipo_de_credito" => $tipo_de_credito, "variable_monto_ministrado" => getFMoney($monto_ministrado), "variable_tasa_mensual_de_interes_ordinario" => $tasa_interes_mensual_ordinario, "variable_credito_fecha_de_vencimiento" => getFechaLarga($fecha_de_vencimiento), "variable_monto_garantia_liquida" => getFMoney($monto_garantia_liquida), "variable_tasa_mensual_de_interes_moratorio" => $tasa_interes_mensual_moratorio . " %", "variable_tasa_de_garantia_liquida" => $tasa_garantia_liquida . " %", "variable_plan_de_pagos" => $splan_pagos, "variable_horario_de_trabajo_de_la_entidad" => EACP_HORARIO_DE_TRABAJO, "variable_testigo_del_acto" => $oficial, "variable_fecha_larga_actual" => fecha_larga(), "variable_nombre_de_presidente_de_vigilancia_de_la_entidad" => EACP_PDTE_VIGILANCIA, "variable_nombre_de_la_representante_social" => $nombre_rep_social, "variable_listado_de_integrantes" => $lista_asociadas, "variable_nombre_de_la_vocal_de_vigilancia" => $nombre_voc_vigila, "variable_nombre_del_grupo_solidario" => $nombre_del_grupo, "variable_domicilio_de_la_representante_social" => $domicilio_rep_social, "variable_meses_de_duracion_del_credito" => $meses_del_credito, "variable_en_letras_monto_ministrado" => convertirletras($monto_ministrado), "variable_credito_fecha_de_ministracion" => getFechaLarga($fecha_de_ministracion), "variable_informacion_del_socio" => $ficha_socio, "variable_avales_en_fichas" => $fichas_de_avales, "variable_responsable_solidario_en_fichas" => $fichas_de_respsolidarios, "variable_firmas_de_obligados_solidarios" => $firmas_de_respsolidarios, "variable_numero_de_cuenta" => $numero_de_cuenta, "variable_oficial" => $variable_oficial, "variable_lugar" => $variable_lugar, "variable_lugar_actual" => $variable_lugar, "variable_monto_inicial_en_numero" => $monto_inicial, "variable_monto_inicial_en_letras" => $monto_inicial_letras, "variable_numero_de_dias" => $numero_dias, "variable_fecha_de_vencimiento" => $variable_fecha_vencimiento, "variable_nombre_mancomunados" => $nombre_mancomunados, "variable_tasa_otorgada" => $variable_tasa_otorgada, "variable_nombre_del_cajero" => $variable_nombre_del_cajero, "variable_fecha_del_recibo" => $variable_fecha_del_recibo, "variable_monto_del_recibo_en_letras" => $variable_monto_del_recibo_en_letras, "variable_monto_del_recibo" => $variable_monto_del_recibo, "variable_tipo_de_recibo" => $variable_tipo_de_recibo, "variable_tipo_de_pago" => $variable_tipo_de_pago, "variable_observacion_del_recibo" => $variable_observacion_del_recibo, "variable_marca_de_tiempo" => $variable_marca_de_tiempo, "variable_datos_del_pago" => $variable_datos_de_pago, "variable_numero_de_recibo" => $variable_numero_de_recibo, "variable_docto_fecha_larga_actual" => $xF->getFechaLarga($xRec->getFechaDeRecibo()));
/*,
		"variable_operacion_nombre_corto" => $variable_operacion_nombre_corto*/
$texto_contrato = contrato(400, "texto_del_contrato");
//$tamTexto		= strlen($texto_contrato);
//Buscar la parte que define el formato de Movimientos
$IniMvtos = strpos($texto_contrato, "---");
$FinMvtos = strrpos($texto_contrato, "---");
$txtMvtos = str_replace("---", "", substr($texto_contrato, $IniMvtos, $FinMvtos - $IniMvtos));
$aSQL = explode("|", $txtMvtos);
//extrae la cadena del formato de movimientos
//eliminar esa parte del contrato
$texto_contrato = str_replace("---{$txtMvtos}---", "_AREA_DE_MOVIMIENTOS_", $texto_contrato);
//echo "$tamTexto .. $IniMvtos .. $FinMvtos <br >";
$equivTit = array("numero_del_movimiento" => "#Op.", "concepto_del_movimiento" => "Concepto", "monto_del_movimiento" => "Monto", "destino_del_movimiento" => "Destino");
//"concepto_nombre_corto" => "Concepto"
 function setRecibo($recibo)
 {
     $xRec = new cReciboDeOperacion(false, false, $recibo);
     if ($xRec->init() == true) {
         $this->setPersona($xRec->getCodigoDeSocio());
         $OTipo = $xRec->getOTipoRecibo();
         $origen = $OTipo->getOrigen();
         $afectEfvo = $OTipo->getAfectacionEnEfvo();
         $xCant = new cCantidad($xRec->getTotal());
         $QL = new MQL();
         $xF = new cFecha();
         $describe = "";
         $xCta = null;
         $xCred = null;
         //Bases de Operaciones de Captacion en Inversiones
         $xB3100 = new cBases(3100);
         $DB3100 = $xB3100->getMembers_InArray();
         $xB3200 = new cBases(3200);
         $DB3200 = $xB3200->getMembers_InArray();
         switch ($origen) {
             case RECIBOS_ORIGEN_MIXTO:
                 $this->setCredito($xRec->getCodigoDeDocumento());
                 break;
             case RECIBOS_ORIGEN_COLOCACION:
                 $this->setCredito($xRec->getCodigoDeDocumento());
                 break;
             case RECIBOS_ORIGEN_CAPTACION:
                 $this->setCuentaDeCaptacion($xRec->getCodigoDeDocumento());
                 break;
         }
         $this->mArr["variable_tipo_de_recibo"] = $OTipo->getNombre();
         $this->mArr["variable_datos_del_pago"] = $xRec->getDatosDeCobro();
         $this->mArr["variable_numero_de_recibo"] = $recibo;
         $this->mArr["variable_docto_fecha_larga_actual"] = $xF->getFechaLarga($xRec->getFechaDeRecibo());
         $this->mArr["variable_observacion_del_recibo"] = $xRec->getObservaciones();
         $this->mArr["variable_monto_del_recibo_en_letras"] = $xCant->letras();
         $this->mArr["variable_monto_del_recibo"] = $xCant->moneda();
         ///$this->mArr["variable_nombre_del_cajero"] 			= $xRec->getOUsuario()->getNombreCompleto();
         $this->mEsRecibo = true;
         $this->setUsuario($xRec->getCodigoDeUsuario());
         //obtener operaciones
         $this->mRecibo = $recibo;
         $sqlmvto = "SELECT\n\t\t\t`operaciones_mvtos`.`socio_afectado`        AS `numero_de_socio`,\n\t\t\t`operaciones_mvtos`.`docto_afectado`        AS `numero_de_documento`,\n\t\t\t`operaciones_mvtos`.`recibo_afectado`       AS `numero_de_recibo`,\n\t\t\t`operaciones_mvtos`.`idoperaciones_mvtos`   AS `numero_del_movimiento`,\n\t\t\t`operaciones_tipos`.`descripcion_operacion` AS `concepto_del_movimiento`,\n\t\t\t`operaciones_mvtos`.`afectacion_real`       AS `monto_del_movimiento`,\n\t\t\t`operaciones_mvtos`.`valor_afectacion`      AS `naturaleza_del_movimiento`,\n\t\t\t`operaciones_tipos`.`nombre_corto` \t\t\tAS `concepto_nombre_corto`,\n\t\t\t`operaciones_mvtos`.`periodo_socio`        \tAS `parcialidad`,\n\t\t\t`operaciones_mvtos`.`detalles` \t\t\t\tAS `observacion_del_mvto`,\n\t\t\t`operaciones_mvtos`.`tipo_operacion`\t\tAS `tipo_de_movimiento`\n\t\t\tFROM\n\t\t\t`operaciones_mvtos` `operaciones_mvtos`\tINNER JOIN `operaciones_tipos` `operaciones_tipos` ON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.`idoperaciones_tipos`\n\t\t\tWHERE (`operaciones_mvtos`.`recibo_afectado` = {$recibo} ) ORDER BY `operaciones_mvtos`.`afectacion_real` DESC";
         $rs = $QL->getDataRecord($sqlmvto);
         //destino_del_movimiento
         foreach ($rs as $row) {
             $rwx = $row;
             $tipo = $row["tipo_de_movimiento"];
             $docto = $row["numero_de_documento"];
             $rwx["monto_del_movimiento"] = getFMoney($row["monto_del_movimiento"] * $row["naturaleza_del_movimiento"] * $afectEfvo);
             $rwx["destino_del_movimiento"] = "&nbsp;" . $row["numero_de_documento"];
             if (in_array($tipo, $DB3100) == true or in_array($tipo, $DB3200)) {
                 if ($origen == RECIBOS_ORIGEN_MIXTO) {
                     //TODO: Cargar datos de la cuenta de captacion y mostrar sus caracteristicas
                 } else {
                     //if($xCta == null){ $xCta = new cCuentaDeCaptacion($docto); $xCta->init(); }
                     $rwx["destino_del_movimiento"] .= "|" . $this->mArr["variable_tipo_de_cuenta"];
                 }
             } else {
                 $rwx["destino_del_movimiento"] .= "|" . substr($this->mArr["variable_tipo_de_credito"], 0, 5);
                 $rwx["destino_del_movimiento"] .= "|" . substr($this->mArr["variable_estado_de_credito"], 0, 3);
                 $rwx["destino_del_movimiento"] .= "|" . $row["parcialidad"] . "/" . $this->mArr["variable_credito_numero_de_pagos"];
             }
             $this->mDataMvto[] = $rwx;
         }
     }
 }
function fecha_larga($dateme = "now")
{
    $xF = new cFecha(0, $dateme);
    $xF->init();
    $comp = $xF->getFechaLarga();
    return $comp;
}
    $fichas_de_avales = "_NO_APLICA_";
    $fichas_de_respsolidarios = "_NO_APLICA_";
    $firmas_de_respsolidarios = "_NO_APLICA_";
    //Captacion
    $numero_de_cuenta = "_NO_APLICA_";
    $nombre_mancomunados = "_NO_APLICA_";
    $variable_tasa_otorgada = "_NO_APLICA_";
    $variable_fecha_vencimiento = "_NO_APLICA_";
    $numero_dias = "_NO_APLICA_";
    $monto_inicial_letras = "_NO_APLICA_";
    $monto_inicial = "_NO_APLICA_";
    $monto_letras = "_NO_APLICA_";
    $variable_oficial = "_NO_APLICA_";
    $descripcion_cajalocal = "_NO_APLICA_";
    $xFDE = new cFecha(0, $cCred->getFechaDeMinistracion());
    $fecha_larga_de_documento = $xFDE->getFechaLarga();
    $vars = array("variable_nombre_del_socio" => $variable_nombre_del_socio, "variable_nombre_de_la_sociedad" => EACP_NAME, "variable_nombre_de_la_entidad" => EACP_NAME, "variable_domicilio_del_socio" => trim(substr($cSoc->getDomicilio(), 0, 60)), "variable_documento_de_constitucion_de_la_sociedad" => EACP_DOCTO_CONSTITUCION, "variable_rfc_de_la_entidad" => EACP_RFC, "variable_rfc_del_socio" => $DSoc["rfc"], "variable_curp_del_socio" => $DSoc["curp"], "variable_nombre_del_representante_legal_de_la_sociedad" => EACP_REP_LEGAL, "variable_informacion_del_credito" => $svar_info_cred, "variable_domicilio_de_la_entidad" => EACP_DOMICILIO_CORTO, "variable_acta_notarial_de_poder_al_representante" => EACP_DOCTO_REP_LEGAL, "variable_lista_de_beneficiados" => $variable_lista_beneficiados, "variable_numero_de_socio" => $numero_de_socio, "variable_nombre_caja_local" => $caja_local, "variable_caja_local" => $numero_caja_local, "variable_tipo_de_credito" => $tipo_de_credito, "variable_monto_ministrado" => getFMoney($monto_ministrado), "variable_tasa_mensual_de_interes_ordinario" => $tasa_interes_mensual_ordinario, "variable_credito_fecha_de_vencimiento" => getFechaLarga($fecha_de_vencimiento), "variable_monto_garantia_liquida" => getFMoney($monto_garantia_liquida), "variable_tasa_mensual_de_interes_moratorio" => $tasa_interes_mensual_moratorio . " %", "variable_tasa_de_garantia_liquida" => $tasa_garantia_liquida . " %", "variable_plan_de_pagos" => $splan_pagos, "variable_horario_de_trabajo_de_la_entidad" => EACP_HORARIO_DE_TRABAJO, "variable_testigo_del_acto" => $oficial, "variable_fecha_larga_actual" => fecha_larga(), "variable_docto_fecha_larga_actual" => $fecha_larga_de_documento, "variable_nombre_de_presidente_de_vigilancia_de_la_entidad" => EACP_PDTE_VIGILANCIA, "variable_nombre_de_la_representante_social" => $nombre_rep_social, "variable_listado_de_integrantes" => $lista_asociadas, "variable_nombre_de_la_vocal_de_vigilancia" => $nombre_voc_vigila, "variable_nombre_del_grupo_solidario" => $nombre_del_grupo, "variable_domicilio_de_la_representante_social" => $domicilio_rep_social, "variable_meses_de_duracion_del_credito" => $meses_del_credito, "variable_en_letras_monto_ministrado" => convertirletras($monto_ministrado), "variable_credito_fecha_de_ministracion" => getFechaLarga($fecha_de_ministracion), "variable_informacion_del_socio" => $ficha_socio, "variable_avales_en_fichas" => $fichas_de_avales, "variable_responsable_solidario_en_fichas" => $fichas_de_respsolidarios, "variable_firmas_de_obligados_solidarios" => $firmas_de_respsolidarios, "variable_numero_de_cuenta" => $numero_de_cuenta, "variable_oficial" => $variable_oficial, "variable_lugar" => $variable_lugar, "variable_lugar_actual" => $variable_lugar, "variable_monto_inicial_en_numero" => $monto_inicial, "variable_monto_inicial_en_letras" => $monto_inicial_letras, "variable_numero_de_dias" => $numero_dias, "variable_fecha_de_vencimiento" => $variable_fecha_vencimiento, "variable_nombre_mancomunados" => $nombre_mancomunados, "variable_tasa_otorgada" => $variable_tasa_otorgada, "variable_nombre_del_cajero" => $variable_nombre_del_cajero, "variable_fecha_del_recibo" => $variable_fecha_del_recibo, "variable_monto_del_recibo_en_letras" => $variable_monto_del_recibo_en_letras, "variable_monto_del_recibo" => $variable_monto_del_recibo, "variable_tipo_de_recibo" => $variable_tipo_de_recibo, "variable_tipo_de_pago" => $variable_tipo_de_pago, "variable_observacion_del_recibo" => $variable_observacion_del_recibo, "variable_marca_de_tiempo" => $variable_marca_de_tiempo, "variable_encabezado_de_reporte" => getRawHeader(), "variable_pie_de_reporte" => getRawFooter());
    /*,
    		"variable_operacion_nombre_corto" => $variable_operacion_nombre_corto*/
    $texto_contrato = contrato(200, "texto_del_contrato");
    //$tamTexto		= strlen($texto_contrato);
    //Buscar la parte que define el formato de Movimientos
    foreach ($vars as $key => $value) {
        $texto_contrato = str_replace($key, $value, $texto_contrato);
    }
    echo $texto_contrato;
    ?>
</body>
<script type="text/javascript">

</script>