$periodo = parametro("periodo", 0, MQL_INT);
$moneda = parametro("moneda", AML_CLAVE_MONEDA_LOCAL);
$fecha = $xF->getDiaFinal("{$ejercicio}-{$periodo}-01");
$sql = "";
$titulo = "";
$archivo = "";
$xRPT = new cReportes($titulo);
$xRPT->setFile($archivo);
$xRPT->setOut($out);
$xRPT->setSQL($sql);
$xRPT->setTitle($xHP->getTitle());
$activo = 1;
$xHP->init();
$xFormat = new cFormato(501);
//============ Reporte
$xSec = new cCuentasPorSector(1, $fecha);
$xSec->init(false);
$activo = $xSec->render();
$suma_activo = $xSec->getSumaTitulo();
$xSec = new cCuentasPorSector(2, $fecha);
$xSec->init(false);
$pasivo = $xSec->render();
$suma_pasivo = $xSec->getSumaTitulo();
$xSec = new cCuentasPorSector(3, $fecha);
$xSec->init(false);
$capital = $xSec->render();
$suma_capital = $xSec->getSumaTitulo() + CONTABLE_RESULTADO_DEL_PERIODO;
$pasivo_mas_capital = $suma_pasivo + $suma_capital;
$xFormat->setProcesarVars(array("variable_ficha_activo" => $activo, "variable_total_activo" => getFMoney($suma_activo), "variable_ficha_pasivo" => $pasivo, "variable_total_pasivo" => getFMoney($suma_pasivo), "variable_ficha_capital" => $capital, "variable_total_capital" => getFMoney($suma_capital), "variable_pasivo_mas_capital" => getFMoney($pasivo_mas_capital), "variable_resultado_del_periodo" => getFMoney(CONTABLE_RESULTADO_DEL_PERIODO)));
echo $xFormat->get();
$xHP->fin();
$ejercicio = parametro("ejercicio", 0, MQL_INT);
$periodo = parametro("periodo", 0, MQL_INT);
$moneda = parametro("moneda", AML_CLAVE_MONEDA_LOCAL);
$fecha = $xF->getDiaFinal("{$ejercicio}-{$periodo}-01");
$sql = "";
$titulo = "";
$archivo = "";
$xRPT = new cReportes($titulo);
$xRPT->setFile($archivo);
$xRPT->setOut($out);
$xRPT->setSQL($sql);
$xRPT->setTitle($xHP->getTitle());
$activo = 1;
$xHP->init();
$xFormat = new cFormato(502);
//============ Reporte
$xSec = new cCuentasPorSector(5, $fecha);
$xSec->init(false);
$ingresos = $xSec->render();
$suma_ingresos = $xSec->getSumaTitulo();
$xSec = new cCuentasPorSector(4, $fecha);
$xSec->init(false);
$egresos = $xSec->render();
$suma_egresos = $xSec->getSumaTitulo();
$resultado = $suma_ingresos - $suma_egresos;
//Actualizar Resultados
$xConf = new cConfiguration();
$xConf->set("resultado_del_periodo_contable", $resultado);
$xFormat->setProcesarVars(array("variable_ficha_ingresos" => $ingresos, "variable_total_ingresos" => getFMoney($suma_ingresos), "variable_ficha_egresos" => $egresos, "variable_total_egresos" => getFMoney($suma_egresos), "variable_resultado_del_periodo" => $resultado));
echo $xFormat->get();
$xHP->fin();