$io_report = new sigesp_scg_class_bal_generalbsf();
$ls_bolivares ="Bs.F.";
break;
}
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
require_once("../class_funciones_scg.php");
$io_fun_scg=new class_funciones_scg();
$ia_niveles_scg[0]="";
uf_init_niveles();
$li_total=count($ia_niveles_scg)-1;
//---------------------------------------------------------------------------------------------------------------------------
//Parámetros para Filtar el Reporte
$ls_cmbmes=$_GET["cmbmes"];
$ls_cmbagno=$_GET["cmbagno"];
$ls_last_day=$io_fecha->uf_last_day($ls_cmbmes,$ls_cmbagno);
$fechas=$ls_last_day;
$ldt_fechas=$io_funciones->uf_convertirdatetobd($ls_last_day)." 00:00:00";
$li_nivel=$_GET["cmbnivel"];
//---------------------------------------------------------------------------------------------------------------------------
//Parámetros del encabezado
$ldt_periodo=$_SESSION["la_empresa"]["periodo"];
$ls_nombre=$_SESSION["la_empresa"]["nombre"];
$li_ano=substr($ldt_periodo,0,4);
$ld_fechas=$io_funciones->uf_convertirfecmostrar($fechas);
$ls_titulo="BALANCE GENERAL";
$ls_titulo1=" ".$ls_nombre." ";
$ls_titulo2=" al ".$ld_fechas."";
$ls_titulo3="(Expresado en ".$ls_bolivares.")";
//---------------------------------------------------------------------------------------------------------------------------
$io_msg->message("El activo no ha sido incorporado");
uf_limpiarvariables();
uf_agregarlineablanca($lo_object, $li_totrows);
} else {
for ($ls_anio = $ls_annioinc; $ls_anio <= $ls_annioinc + $li_vidautil; $ls_anio++) {
if ($ls_anio == $ls_annioinc + $li_vidautil) {
$ls_mest = $ls_mesf - 1;
if ($ls_mest == 0) {
$ls_mest = $ls_mesinc;
}
} else {
$ls_mest = 12;
}
for ($li_i = $ls_mesf; $li_i <= $ls_mest; $li_i++) {
$li_i = str_pad($li_i, 2, "0", 0);
$ld_fecdep = $io_fec->uf_last_day($li_i, $ls_anio);
if ($ls_anio == $ls_annioinc) {
$ls_dia = 30 - $ls_diainc + 1;
} else {
$ls_dia = 0;
}
if ($ls_anio == $ls_annioinc + $li_vidautil) {
$ls_dia = $ls_diainc - 1;
}
$li_j = $li_j + 1;
$ls_mesd = $li_j;
$ls_diasd = 0;
if ($lb_mes1) {
$li_j = $li_j - 1;
$li_depmes = $li_depmen / 30 * $ls_dia;
$ls_diasd = 30 - $ls_diainc + 1;
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>0, // Mostrar Líneas
'fontSize' => 9, // Tamaño de Letras
'shaded'=>0, // Sombra entre líneas
'width'=>530, // Ancho Máximo de la tabla
'colGap'=>1, // separacion entre tablas
'xOrientation'=>'center', // Orientación de la tabla
'cols'=>array('total'=>array('justification'=>'right','width'=>290), // Justificación y ancho de la columna
'totalgen'=>array('justification'=>'right','width'=>240))); // Justificación y ancho de la columna
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
}// end function uf_print_pie_cabecera
$ls_mesdes=substr($ls_combo,0,2);
$ls_meshas=substr($ls_combo,2,2);
$ls_diades="01";
$ls_diahas=$io_fecha->uf_last_day($ls_meshas,$li_ano);
$ldt_fecdes=$ls_diades."/".$ls_mesdes."/".$li_ano;
$ldt_fechas=$ls_diahas;
$ld_fechas=$io_funciones->uf_convertirfecmostrar($ldt_fechas);
$ls_titulo="<b>COMPARADO ORIGEN Y APLICACION DE FONDOS FORMA 0719</b>";
$ls_titulo1="<b>".$ls_titulo." (En ".$ls_bolivares.".) al </b>"."<b>".$ld_fechas."</b>";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar datastore con los datos del reporte
$lb_valido=uf_insert_seguridad("<b>Instructivo 07 Comparado Origen y aplicación de Fondos</b>"); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_crear_reporte_oaf($li_nivel,$ldt_fecdes,$ldt_fechas,$ls_agno);
}
if($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
$ls_codestpro2h = $ls_codestpro2h_max;
$ls_codestpro3h = $ls_codestpro3h_max;
}
$cmbnivel=$_GET["cmbnivel"];
if($cmbnivel=="s1")
{
$li_cmbnivel="1";
}
else
{
$li_cmbnivel=$cmbnivel;
}
$ls_cmbmes=$_GET["cmbmes"];
$li_mes=substr($ls_cmbmes,0,2);
$ldt_fecdes=$li_ano."-".$li_mes."-01";
$ldt_ult_dia=$io_fecha->uf_last_day($li_mes,$li_ano);
$fechas=$ldt_ult_dia;
$ldt_fechas=$io_funciones->uf_convertirdatetobd($fechas);
$ls_mes=$io_fecha->uf_load_nombre_mes($li_mes);
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_titulo=" <b>EJECUCION FINANCIERA MENSUAL DEL PRESUPUESTO DE GASTOS (FORMA 0514)</b>";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$lb_valido=$io_report->uf_spg_reportes_select_ejecucion_financiera_forma0514($ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1h,
$ls_codestpro2h,$ls_codestpro3h,
$ls_codestpro4h,$ls_codestpro5h);
if($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
$li_mes_ant = $li_mes_act - 1;
}
else
{
$li_mes_ant = 1;
}
settype($li_mes_act,'string');
settype($li_mes_ant,'string');
$li_mes_act = $io_funciones->uf_cerosizquierda($li_mes_act,2);
$li_mes_ant = $io_funciones->uf_cerosizquierda($li_mes_ant,2);
$ls_nommesact = $io_fecha->uf_load_nombre_mes($li_mes_act);
$ls_nommesant = $io_fecha->uf_load_nombre_mes($li_mes_ant);
$ld_fecdesant = $io_funciones->uf_convertirdatetobd("01/01/".$ls_agno);
$ld_hasant = $io_fecha->uf_last_day($li_mes_ant,$ls_agno);
$ld_fechasant = $io_funciones->uf_convertirdatetobd($ld_hasant);
$ld_fecdesact = $io_funciones->uf_convertirdatetobd("01/".$li_mes_act."/".$ls_agno);
$ld_hasact = $io_fecha->uf_last_day($li_mes_act,$ls_agno);
$ld_fechasact = $io_funciones->uf_convertirdatetobd($ld_hasact);
//***********************************************************************************************
$ls_consol=$io_report->DS->data["consol"][$li_i];
$li_monto=$io_report->DS->data["monto"][$li_i];
$li_monbasimptot=$io_report->DS->data["monbasinm"][$li_i];
$li_montotcar=$io_report->DS->data["montotcar"][$li_i];
$numalet->setNumero($li_monto);
$ls_monto= $numalet->letra();
$li_monto=number_format($li_monto,2,",",".");
$li_monbasimptot=number_format($li_monbasimptot,2,",",".");
$io_report = new sigesp_scg_reporte();
$ls_bolivares ="Bs.";
break;
case "1":
require_once("sigesp_scg_reportebsf.php");
$io_report = new sigesp_scg_reportebsf();
$ls_bolivares ="Bs.F.";
break;
}
$ia_niveles_scg[0]="";
uf_init_niveles();
$li_total=count($ia_niveles_scg)-1;
//-------------------------------------------------- Par�metros para Filtar el Reporte -----------------------------------------
$ls_fecha=$_GET["fecha"];
$ls_fechasta=$io_fecha->uf_last_day(substr($ls_fecha,3,2),substr($ls_fecha,6,4));
$ls_cuentadesde_min=$_GET["cuentadesde"];
$ls_cuentahasta_max=$_GET["cuentahasta"];
if(($ls_cuentadesde_min=="")&&($ls_cuentahasta_max==""))
{
if($io_report->uf_spg_reporte_select_cuenta_min_max($ls_cuentadesde_min,$ls_cuentahasta_max))
{
$ls_cuentadesde=$ls_cuentadesde_min;
$ls_cuentahasta=$ls_cuentahasta_max;
}
}
else
{
$ls_cuentadesde=$ls_cuentadesde_min;
$ls_cuentahasta=$ls_cuentahasta_max;
}
$io_report = new sigesp_saf_class_report();
$ls_titulo_report = "Bs.";
}
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_titulo = "Reporte de Depreciación Mensual en " . $ls_titulo_report . " ";
$ls_fecha = "";
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$ls_nomemp = $_SESSION["la_empresa"]["nombre"];
$ls_mes = $io_fun_activos->uf_obtenervalor_get("mes", "");
$li_anio = $io_fun_activos->uf_obtenervalor_get("anio", "");
$li_ordenact = $io_fun_activos->uf_obtenervalor_get("ordenact", "");
$li_auxmes = $io_fec->uf_load_numero_mes($ls_mes);
$ls_fecha = "Periodo: " . $ls_mes . " " . $li_anio;
//--------------------------------------------------------------------------------------------------------------------------------
$ld_fecdep = $io_fec->uf_last_day($li_auxmes, $li_anio);
$lb_valido = $io_report->uf_saf_load_depmensual($ls_codemp, $li_ordenact, $ld_fecdep);
// Cargar el DS con los datos de la cabecera del reporte
if ($lb_valido == false) {
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
} else {
///////////////////////////////// SEGURIDAD ////////////////////////////////////////////////////////
$ls_desc_event = " Generó el reporte de Depreciacion Mensual de Activos. ";
$io_fun_activos->uf_load_seguridad_reporte("SAF", "sigesp_saf_r_depmensual.php", $ls_desc_event);
//////////////////////////////// SEGURIDAD /////////////////////////////////////////////////////////
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf = new Cezpdf('LEGAL', 'landscape');
function uf_obtener_mov_conciliacion($ls_mesano,$ls_codban,$ls_ctaban,$ldec_salseglib,$ldec_salsegbco)
{
$io_fecha=new class_fecha();
$ds_mov=new class_datastore();
$ds_movimientos=new class_datastore();
$ls_codemp=$this->dat_emp["codemp"];
$ld_fechasta=$io_fecha->uf_last_day(substr($ls_mesano,0,2),substr($ls_mesano,2,4));
$ld_fechasta=$this->fun->uf_convertirdatetobd($ld_fechasta);
$ld_fecdesde="01/".substr($ls_mesano,0,2)."/".substr($ls_mesano,2,4);
$ld_fecdesde=$this->fun->uf_convertirdatetobd($ld_fecdesde);
$ls_sql="SELECT *
FROM scb_movbco
WHERE codemp='".$ls_codemp."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND fecmov <='".$ld_fechasta."' AND (estreglib=' ' OR (estreglib<>' ' AND feccon<>'".$ld_fecdesde."'))";
$rs_data=$this->SQL->select($ls_sql);
if($rs_data===false)
{
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_codban=$row["codban"];
$ds_mov->insertRow("codban",$ls_codban);
$ls_ctaban=$row["ctaban"];
$ds_mov->insertRow("ctaban",$ls_ctaban);
$ls_numdoc=$row["numdoc"];
$ds_mov->insertRow("numdoc",$ls_numdoc);
$ls_nomproben=$row["nomproben"];
$ds_mov->insertRow("nomproben",$ls_nomproben);
$ld_fecmov=$row["fecmov"];
$ds_mov->insertRow("fecmov",$ld_fecmov);
$ldec_monto=$row["monto"];
$ds_mov->insertRow("monto",$ldec_monto);
$ls_conmov=$row["conmov"];
$ds_mov->insertRow("conmov" ,$ls_conmov);
$ls_estmov=$row["estmov"];
$ds_mov->insertRow("estmov" ,$ls_estmov);
}
$this->SQL->free_result($rs_data);
}
//$ldec_saldo_ant=$this->uf_calcular($ds_movimientos->data,$ls_mesano);
$ldec_saldo_ant=$this->uf_calcular_saldolibro($ls_codban,$ls_ctaban,$ld_fechasta);
if(abs($ldec_saldo_ant-$ldec_salseglib)>0.01)
{
$this->io_msg->message("Vuelva a modulo conciliación ya que hay movimientos no registrados");
return false;
}
else
{
$this->io_msg->message("Todo Bien");
}
$ls_sql= "SELECT '01' as tipo, '-' as suma, numdoc , nomproben, fecmov , monto-monret as monto, codope
FROM scb_movbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND
estreglib='' AND ((feccon > '".$ld_fecdesde."' ) OR (feccon='1900-01-01')) AND
(((codope='CH' or codope='ND' or codope='RE') and estmov<>'A') or ((codope='DP' or codope='NC') and estmov='A'))";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
print $this->SQL->message;
$this->io_msg->message($this->uf_convertirmsg($this->SQL->message));
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
$ls_sql= "SELECT '02' as tipo, '+' as suma, numdoc, nomproben, fecmov, monto-monret as monto, codope
FROM scb_movbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND estreglib=''
AND ((feccon > '".$ld_fecdesde."' ) OR (feccon='1900-01-01'))
AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A'))";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
$this->io_msg->message($this->uf_convertirmsg($this->SQL->message));
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
// No Registradas en Libros
$ls_sql = "SELECT 'A1' as tipo, '+' as suma, numdoc, conmov as nomproben,fecmov, monto-monret as monto, codope
FROM scb_movbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'
AND feccon='".$ld_fecdesde."' AND estreglib='A' AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov<>'A') OR
((codope='DP' OR codope='NC') AND estmov='A'))";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
print $this->SQL->message;
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
$ls_sql="SELECT 'A2' as tipo, '-' as suma, numdoc, conmov as nomproben, fecmov, monto-monret as monto, codope
FROM scb_movbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'
AND feccon='".$ld_fecdesde."' AND estreglib='A'
AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A'))";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
print $this->SQL->message;
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
// Error Libro
$ls_sql="SELECT 'B1' as tipo, '+' as suma, numdoc, conmov as nomproben, fecmov , monto-monret as monto, codope
FROM scb_movbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'
AND feccon='".$ld_fecdesde."' AND estreglib='B'
AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov<>'A') OR ((codope='DP' OR codope='NC') AND estmov='A')) ";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
print $this->SQL->message;
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
$ls_sql="SELECT 'B2' as tipo, '-' as suma, numdoc, conmov as nomproben, fecmov , monto-monret as monto, codope
FROM scb_movbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'
AND feccon='".$ld_fecdesde."' AND estreglib='B'
AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A')) ";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
print $this->SQL->message;
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
// Error Banco
$ls_sql="SELECT 'C1' as tipo, '-' as suma, numdoc, conmov as nomproben, fecmov, monmov as monto, codope
FROM scb_errorconcbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND
fecmesano='".$ld_fecdesde."' AND esterrcon='C' AND
(((codope='CH' OR codope='ND' OR codope='RE') AND estmov<>'A') OR ((codope='DP' OR codope='NC') AND estmov='A')) ";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
print $this->SQL->message;
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
$ls_sql="SELECT 'C2' as tipo, '+' as suma, numdoc, conmov as nomproben, fecmov , monmov as monto, codope
FROM scb_errorconcbco
WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND
fecmesano='".$ld_fecdesde."' and esterrcon='C' AND
(((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A')) ";
$rs_data= $this->SQL->select($ls_sql);
if($rs_data===false)
{
print $this->SQL->message;
return false;
}
else
{
while($row=$this->SQL->fetch_row($rs_data))
{
$ls_tipo=$row["tipo"];
$ds_movimientos->insertRow("tipo",$ls_tipo);
$ls_suma=$row["suma"];
$ds_movimientos->insertRow("suma",$ls_suma);
$ls_numdoc=$row["numdoc"];
$ds_movimientos->insertRow("numdoc",$ls_numdoc);
$ls_cedbene=$row["nomproben"];
$ds_movimientos->insertRow("nomproben",$ls_cedbene);
$ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]);
$ds_movimientos->insertRow("fecmov",$ls_fecha);
$ldec_monto=$row["monto"];
$ds_movimientos->insertRow("monto",$ldec_monto);
$ls_codope=$row["codope"];
$ds_movimientos->insertRow("codope",$ls_tipo);
}
$this->SQL->free_result($rs_data);
}
return $ds_movimientos->data;
}
case '10':
$lb_selOctubre="selected";
break;
case '11':
$lb_selNoviembre="selected";
break;
case '12':
$lb_selDiciembre="selected";
break;
}
if($ls_operacion=="NUEVO")
{
uf_mantener_grid();
$ls_numcom = "";
$ld_fecdesde = $io_function->uf_convertirdatetobd("01/".$ls_mes."/".$ls_agno);
$ld_hasta = $fec->uf_last_day($ls_mes,$ls_agno);
$ld_fechasta = $io_function->uf_convertirdatetobd($ld_hasta);
$ls_periodofiscal = $io_function->uf_cerosizquierda(substr($ld_fecdesde,0,4),4).$io_function->uf_cerosizquierda(substr($ld_fecdesde,5,2),2) ;
$lb_valido = $io_cmpret->uf_ccr_get_nro($ls_periodofiscal,&$ls_numcom);
if(!$lb_valido)
{
$msg->message("Error al generar el numero del Comprobante");
}
}
if($ls_operacion=="CAMBIO_PERIODO")
{
$io_cmpret->uf_ccr_get_nro($ls_agno.$ls_mes,$ls_numcom);
uf_mantener_grid();
}
{
$ls_cmbmesdes=$_GET["cmbmesdes"];
$ls_cmbagnodes=$_GET["cmbagnodes"];
if($_SESSION["ls_gestor"]=='INFORMIX')
{
$fecdes=$ls_cmbagnodes."-".$ls_cmbmesdes."-01";
$ldt_fecdes=$ls_cmbagnodes."-".$ls_cmbmesdes."-01";
}
else
{
$fecdes=$ls_cmbagnodes."-".$ls_cmbmesdes."-01"." 00:00:00";
$ldt_fecdes=$ls_cmbagnodes."-".$ls_cmbmesdes."-01"." 00:00:00";
}
$ls_cmbmeshas=$_GET["cmbmeshas"];
$ls_cmbagnohas=$_GET["cmbagnohas"];
$ls_last_day=$io_fecha->uf_last_day($ls_cmbmeshas,$ls_cmbagnohas);
$fechas=$ls_last_day;
$ldt_fechas=$io_funciones->uf_convertirdatetobd($ls_last_day);
}
elseif($ls_hidbot==false)
{
$fecdes=$_GET["txtfecdes"];
$ldt_fecdes=$io_funciones->uf_convertirdatetobd($fecdes);
$fechas=$_GET["txtfechas"];
$ldt_fechas=$io_funciones->uf_convertirdatetobd($fechas);
}
$li_nivel=$_GET["cmbnivel"];
//---------------------------------------------------- Par�metros del encabezado -----------------------------------------------
$ldt_periodo=$_SESSION["la_empresa"]["periodo"];
$li_ano=substr($ldt_periodo,0,4);
$ls_nombre=$_SESSION["la_empresa"]["nombre"];
//------------Data-----------------//
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_nomemp=$_SESSION["la_empresa"]["nombre"];
$ls_rifemp=$_SESSION["la_empresa"]["rifemp"];
if(array_key_exists("numlicemp",$_SESSION["la_empresa"]))
$ls_licemp=$_SESSION["la_empresa"]["numlicemp"];
else
$ls_licemp="";
$ls_diremp = $_SESSION["la_empresa"]["direccion"];
$ls_codcom = $_GET["documentos"];
$ls_mes = $_GET["mes"];
$ls_agno = $_GET["agno"];
$la_comprobantes = explode("-",$ls_codcom);
$ls_fechainicio = $ls_agno."-".$ls_mes."-01";
$ls_fechafin = $io_funciones->uf_convertirdatetobd($io_fecha->uf_last_day($ls_mes,$ls_agno));
$ls_tipbol = 'Bs.';
$ls_tiporeporte = 0;
$ls_tiporeporte = $_GET["tiporeporte"];
global $ls_tiporeporte;
if($ls_tiporeporte==1)
{
require_once("sigesp_scb_reportbsf.php");
$io_report = new sigesp_scb_reportbsf($con);
$ls_tipbol = 'Bs.F.';
}
//------------------------------------------------//
for($li_k=0;$li_k<count($la_comprobantes);$li_k++)
{
$title[5]="<a href=javascript:cargar_detalle('monto');><font color=#FFFFFF>Monto</font></a>";
$title[6]="<a href=javascript:cargar_detalle('codope');><font color=#FFFFFF>Operacion</font></a>";
$title[7]="Estatus Mov.";
$title[8]="Fecha Concil.";
$title[9]="Reg.Libro";
$grid="grid";
if($ls_operacion == "NUEVO")
{
$ls_operacion= "" ;
uf_nuevo();
}//fin NUEVO
if($ls_operacion=="ABRIR_CONCILIACION")
{
$ld_desde="01/".$ld_fecha;
$ld_hasta=$in_classfecha->uf_last_day(substr($ld_fecha,0,2),substr($ld_fecha,3,4));
$lb_valido=$in_classconciliacion->uf_abrir_conciliacion($ls_codban,$ls_cuenta_banco,$ld_desde,$ld_hasta);
if($lb_valido)
{
$in_classconciliacion->io_sql->commit();
$lb_chkconcil="";
$msg->message("La conciliación fue abierta");
}
else
{
$in_classconciliacion->io_sql->rollback();
$msg->message("Error al intentar abrir la conciliación");
}
$ls_operacion="CARGAR_DT";
break;
case "12":
$ls_mes="diciembre";
break;
}
$fecIni=$ano."-".$mes."-01";
$fecFin=$fun->uf_convertirdatetobd($fecha);
}
else
{
switch ($mes)
{
case "01":
$ls_mes="marzo";
$fecIni=$ano."-01-01";// primer mes del I Trimestre
$diames=$io_fecha->uf_last_day(3,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "02":
$ls_mes="marzo";
$fecIni=$ano."-01-01";
$diames=$io_fecha->uf_last_day(3,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "03":
$ls_mes="marzo";
$fecIni=$ano."-01-01";
$diames=$io_fecha->uf_last_day(3,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "04":
function uf_print_retencionesmunicipales()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_retencionesmunicipales
// Access: private
// Arguments:
// Description: Función que obtiene e imprime los resultados de la busqueda de retenciones de iva
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 15/07/2007 Fecha Última Modificación :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid;
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_mes=$_POST['mes'];
$ls_anio=$_POST['anio'];
$ld_fecdesde=$ls_anio."-".$ls_mes."-01";
$ld_fechasta=$ls_anio."-".$ls_mes."-".substr($io_fecha->uf_last_day($ls_mes,$ls_anio),0,2);
$ls_sql="SELECT numcom, codsujret, nomsujret, dirsujret, rif ".
" FROM scb_cmp_ret ".
" WHERE codemp = '".$ls_codemp."' ".
" AND fecrep>='".$ld_fecdesde."' ".
" AND fecrep<='".$ld_fechasta."' ".
" AND codret='0000000003' ".
" ORDER BY numcom";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar Retenciones Muncipales ","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
$lo_title[1]=" ";
$lo_title[2]="Comprobante";
$lo_title[3]="Codigo Proveedor/Beneficiario";
$lo_title[4]="Nombre Proveedor/Beneficiario";
$lo_title[5]="Dirección";
$lo_title[6]="R.I.F.";
$li_totrow=0;
$lo_object[$li_totrow][1]="";
$lo_object[$li_totrow][2]="";
$lo_object[$li_totrow][3]="";
$lo_object[$li_totrow][4]="";
$lo_object[$li_totrow][5]="";
$lo_object[$li_totrow][6]="";
while($row=$io_sql->fetch_row($rs_data))
{
$li_totrow++;
$ls_numcom=$row["numcom"];
$ls_codsujret=$row["codsujret"];
$ls_nomsujret=$row["nomsujret"];
$ls_dirsujret=$row["dirsujret"];
$ls_rif=$row["rif"];
$lo_object[$li_totrow][1]="<input type=checkbox name=checkcmp".$li_totrow." id=checkcmp".$li_totrow." value=1 size=10 style=text-align:left class=sin-borde>";
$lo_object[$li_totrow][2]="<div align=center><input type=text name=txtnumcom".$li_totrow." id=txtnumcom".$li_totrow." value='".$ls_numcom."' class=sin-borde readonly style=text-align:center size=15 maxlength=15></div>";
$lo_object[$li_totrow][3]="<div align=center><input type=text name=txtcodsujret".$li_totrow." id=txtcodsujret".$li_totrow." value='".$ls_codsujret."' class=sin-borde readonly style=text-align:center size=10 maxlength=10></div>";
$lo_object[$li_totrow][4]="<div align=left><input type=text name=txtnomsujret".$li_totrow." id=txtnomsujret".$li_totrow." value='".$ls_nomsujret."' class=sin-borde readonly style=text-align:left size=25 maxlength=80></div>";
$lo_object[$li_totrow][5]="<div align=left><input type=text name=txtdirsujret".$li_totrow." id=txtdirsujret".$li_totrow." value='".$ls_dirsujret."' class=sin-borde readonly style=text-align:left size=35 maxlength=200></div>";
$lo_object[$li_totrow][6]="<div align=center><input type=text name=txtrif".$li_totrow." id=txtrif".$li_totrow." value='".$ls_rif."' class=sin-borde readonly style=text-align:center size=15 maxlength=15></div>";
}
$io_sql->free_result($rs_data);
$io_grid->makegrid($li_totrow,$lo_title,$lo_object,750,'Comprobantes de Retención Municipal','grid');
}
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}// end function uf_print_retencionesmunicipales
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_folder/class_funciones_scf.php");
$io_fun_scf=new class_funciones_scf("../");
$io_fun_scf->uf_load_seguridad("SCF","sigesp_scf_r_hoja_trabajo.php",$ls_permisos,$la_seguridad,$la_permisos);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
require_once("../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
//$ld_fecdes="01/01/".substr($_SESSION["la_empresa"]["periodo"],0,4);
$fecha=date("d/m/Y");
$mes=substr($fecha,3,2);
$ano=substr($fecha,6,4);
$ld_fecdes= "01/".$mes."/".$ano;
//$ld_fecdes= "01/01/".$ano;
$ls_last_day=$io_fecha->uf_last_day($mes,$ano);
$ld_fechas=$ls_last_day;
//$lb_valido=$io_fun_scf->uf_convertir_scgsaldos($la_seguridad);
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script type="text/javascript" language="JavaScript1.2" src="../shared/js/disabled_keys.js"></script>
<script language="javascript">
if(document.all)
{ //ie
document.onkeydown = function(){
if(window.event && (window.event.keyCode == 122 || window.event.keyCode == 116 || window.event.ctrlKey)){
window.event.keyCode = 505;
}
require_once "../../shared/class_folder/class_sql.php";
require_once "../../shared/class_folder/class_fecha.php";
$io_fecha = new class_fecha();
$io_in = new sigesp_include();
$con = $io_in->uf_conectar();
$io_sql = new class_sql($con);
$io_report = new sigesp_cxp_class_report("../../");
require_once "../../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
require_once "../class_folder/class_funciones_cxp.php";
$io_fun_cxp = new class_funciones_cxp();
//---------------------------------------------------- Parmetros del encabezado -----------------------------------------------
$ls_mes = $_GET["mes"];
$ls_agno = $_GET["agno"];
$ls_titulo = "<b>Libro de Compras</b>";
$li_lastday = $io_fecha->uf_last_day($ls_mes, $ls_agno);
$li_lastday = substr($li_lastday, 0, 2);
$as_fechadesde = $ls_agno . '/' . $ls_mes . '/01';
$as_fechahasta = $ls_agno . '/' . $ls_mes . '/' . $li_lastday;
$ls_mesletras = $io_fecha->uf_load_nombre_mes($ls_mes);
$ls_periodo = "MES: " . $ls_mesletras . " AÑO" . $ls_agno . "";
//--------------------------------------------------------------------------------------------------------------------------------
$ld_monto = 0;
$ld_impuesto = 0;
$ld_sumcom = 0;
$ld_baseimp = 0;
$arremp = $_SESSION["la_empresa"];
$ls_codemp = $arremp["codemp"];
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf = new Cezpdf('LEGAL', 'landscape');
error_reporting(E_ALL);
set_time_limit(1800);
$li_totrow=$ds_concil->getRowCount("numdoc");
if(($data===false))
{
?>
<script language="javascript">
alert("Error al buscar datos de la conciliación");
close();
</script>
<?php
}
$io_pdf=new class_pdf('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->set_margenes(2,30,3,3); // Configuración de los margenes en centímetros
$ld_fechasta=$io_fecha->uf_last_day(substr($ls_mesano,0,2),substr($ls_mesano,2,4));
$ls_mes=$io_fecha->uf_load_nombre_mes(substr($ls_mesano,0,2));
$ls_anio=substr($ls_mesano,2,4);
uf_print_encabezado_pagina($ls_nomban,$ls_mes,$ls_anio,&$io_pdf); //Se imprime la tabla de la cabecera
$li_temp=1;
uf_print_cabecera($ls_nomban,$ls_ctaban,$ls_tipo_cuenta,'',$io_pdf); // Se imprime la cuenta del reporte
uf_print_saldo_libro ($ld_fechasta,number_format($ldec_salseglib,2,",","."),&$io_pdf);// Se imprime el saldo segun libro
$la_data=array();
$la_data_cheque_mas = array();
$la_data_cheque_menos = array();
$la_data_nota_deb_mas = array();
$la_data_nota_deb_menos = array();
$la_data_nota_cred_mas = array();
$la_data_nota_cred_menos = array();
$la_data_retiro_mas = array();
$la_data_retiro_menos = array();
{
$ls_codestpro1h = $ls_codestpro1h_max;
$ls_codestpro2h = $ls_codestpro2h_max;
$ls_codestpro3h = $ls_codestpro3h_max;
$ls_codestpro4h = $ls_codestpro4h_max;
$ls_codestpro5h = $ls_codestpro5h_max;
}
}
$ls_cmbmesdes = $_GET["cmbmesdes"];
$ldt_fecini=$li_ano."-".$ls_cmbmesdes."-01";
$ldt_fecini_rep="01/".$ls_cmbmesdes."/".$li_ano;
$ls_cmbmeshas = $_GET["cmbmeshas"];
$ls_mes=$ls_cmbmeshas;
$ls_ano=$li_ano;
$fecfin=$io_fecha->uf_last_day($ls_mes,$ls_ano);
$ldt_fecfin=$io_funciones->uf_convertirdatetobd($fecfin);
$cmbnivel=$_GET["cmbnivel"];
if($cmbnivel=="s1")
{
$ls_cmbnivel="1";
}
else
{
$ls_cmbnivel=$cmbnivel;
}
$ls_subniv=$_GET["checksubniv"];
if($ls_subniv==1)
{
$lb_subniv=true;
$ls_estclades = $_GET["estclades"];
$ls_estclahas = $_GET["estclahas"];
$ld_tipper = $_GET["tipper"];
$ld_periodo = $_GET["periodo"];
$ls_cuentades = $_GET["txtcuentades"];
$ls_cuentahas = $_GET["txtcuentahas"];
switch($ld_tipper)
{
case 1:
$ld_per01 = intval($ld_periodo);
$ld_per02 = "";
$ld_per03 = "";
$ls_desper = "MENSUAL";
$ld_fecfinrep=$io_fecha->uf_last_day($ld_periodo,$li_ano);
break;
case 2:
$ld_per01 = intval(substr($ld_periodo,0,2));
$ld_per02 = intval(substr($ld_periodo,2,2));
$ls_desper = "BIMENSUAL";
$ld_fecfinrep=$io_fecha->uf_last_day(substr($ld_periodo,2,2),$li_ano);
$ld_per03 = "";
break;
case 3:
$ld_per01 = intval(substr($ld_periodo,0,2));
$ld_per02 = intval(substr($ld_periodo,2,2));
$ld_per03 = intval(substr($ld_periodo,4,2));
$ls_desper = "TRIMESTRAL";
