$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();