unset($la_dataper);
$io_report->uf_print_detalle_metas_x_personal($ls_nroreg,$ld_fechades,$ld_fechahas,$ls_codperdes,$ls_codperhas);// Cargar el DS con los datos del reporte
$li_totrow1=$io_report->ds_detalle->getRowCount("codmeta");
for($li_p=1;$li_p<=$li_totrow1;$li_p++)
{
$ls_codigo=$io_report->ds_detalle->data["codmeta"][$li_p];
$ls_meta=$io_report->ds_detalle->data["meta"][$li_p];
$ls_valor=$io_report->ds_detalle->data["valor"][$li_p];
$ls_fechaeje=$io_report->ds_detalle->data["feceje"][$li_p];
$ls_obse=$io_report->ds_detalle->data["obsmet"][$li_p];
$ls_fechaeje=$io_funciones->uf_formatovalidofecha($ls_fechaeje);
$ls_fechaeje=$io_funciones->uf_convertirfecmostrar($ls_fechaeje);
$la_detalle[$li_p]=array('codigo'=>$ls_codigo,'meta'=>$ls_meta,
'valor'=>$ls_valor,'fechaeje'=>$ls_fechaeje,'obse'=>$ls_obse);
} //fin del for
uf_print_detalle($la_detalle,$li_totrow1,$io_pdf);
if($li_aux<$li_totrow)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
}// fin del for
} // fin del else
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
{
$li_i++;
$ls_codigo = $row["codite"];
$ls_denite = $row["denite"];
$ld_canite = number_format($row["canite"],2,',','.');
$la_datos[$li_i] = array('codigo'=>$ls_codigo,'denominacion'=>$ls_denite,'cantidad'=>$ld_canite);
}
}
else
{
$lb_valido = false;
}
}
uf_print_encabezado_pagina($ls_titulo,$ls_numsolcot,$ls_fecsolcot,$ls_tipo,$ls_obssolcot,$io_pdf);
uf_print_datos_proveedor($ls_codpro,$ls_nompro,$ls_dirpro,$ls_telpro,$ls_mailpro,$ls_rifpro,$io_pdf);
uf_print_detalle($la_datos,$io_pdf);
$io_pdf->setStrokeColor(0,0,0);
$io_pdf->line(20,50,580,50);
}
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
}
else
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
}
}
if((($ls_codope=="DP")||($ls_codope=="NC")))
{
if ($ls_estmov!='A')
{
$ldec_totaldebitos=$ldec_totaldebitos+$ldec_monto;
}
else
{
$ldec_totalcreditos=$ldec_totalcreditos+$ldec_monto;
}
}
$ld_mon = number_format($ldec_monto,2,",",".");
$la_data[$i] = array('fecha'=>$ld_fecmov,'documento'=>$ls_numdoc,'operacion'=>$ls_codope,'proveedor'=>$ls_nomproben,'monto'=>$ld_mon);
}
uf_print_detalle($la_data,&$io_pdf);
$ldec_saldo = $ldec_totalcreditos-$ldec_totaldebitos;//Calculo del saldo total para todas las cuentas
$ldec_totalcreditos = number_format($ldec_totalcreditos,2,",",".");
$ldec_totaldebitos = number_format($ldec_totaldebitos,2,",",".");
$ldec_saldo = number_format($ldec_saldo,2,",",".");
uf_print_totales($ldec_totaldebitos,$ldec_totalcreditos,$ldec_saldo,&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print(" close();");
$ld_fecfac = $io_funciones->uf_convertirfecmostrar($io_report->ds_detalle->data["fecfac"][$li_i]);
$ls_numfac = $io_report->ds_detalle->data["numfac"][$li_i];
$ls_numref = $io_report->ds_detalle->data["numcon"][$li_i];
$li_baseimp = $io_report->ds_detalle->data["basimp"][$li_i];
$li_porimp = $io_report->ds_detalle->data["porimp"][$li_i];
$li_totimp = $io_report->ds_detalle->data["totimp"][$li_i];
$li_totalbaseimp = $li_totalbaseimp + $li_baseimp;
$li_totalmontoimp = $li_totalmontoimp + $li_totimp;
$li_baseimp = number_format($li_baseimp, 2, ",", ".");
$li_porimp = number_format($li_porimp, 4, ",", ".");
$li_totimp = number_format($li_totimp, 2, ",", ".");
$la_data[$li_i] = array('numero' => $li_i, 'numsop' => $ls_numsop, 'fecfac' => $ld_fecfac, 'numfac' => $ls_numfac, 'numref' => $ls_numref, 'baseimp' => $li_baseimp, 'porimp' => $li_porimp, 'totimp' => $li_totimp);
}
$li_totalbaseimp = number_format($li_totalbaseimp, 2, ",", ".");
$li_totalmontoimp = number_format($li_totalmontoimp, 2, ",", ".");
uf_print_detalle($la_data, $li_totalbaseimp, $li_totalmontoimp, $ls_rifagenteret, &$io_pdf);
unset($la_data);
}
}
$io_report->DS->reset_ds();
if ($li_z < $li_totrow - 1) {
$io_pdf->ezNewPage();
}
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
else
{
$ls_cuentaspg = "";
$ls_estpro = "";
$ldec_monto_spg = "";
}
$la_data[$li_s]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
}
if (empty($la_data))
{
$ls_cuentaspg = '';
$ls_estpro = '';
$ldec_monto_spg = '';
$ls_scg_cuenta = '';
$ldec_mondeb = '';
$ldec_monhab = '';
$la_data[1]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[2]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[3]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_data,$io_pdf);
}
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf);
unset($class_report);
unset($io_funciones);
}
?>
$io_pdf = new Cezpdf('LETTER', 'portrait');
// Instancia de la clase PDF
$io_pdf->selectFont('../../../shared/ezpdf/fonts/Helvetica.afm');
// Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.6, 4.5, 3, 3);
// Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(570, 47, 8, '', '', 1);
// Insertar el número de página
$li_totrow = $io_report->DS->getRowCount("sig_cuenta");
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_spgcuenta = trim($io_report->DS->data["sig_cuenta"][$li_i]);
$ls_spgdenominacion = $io_report->DS->data["spgdenominacion"][$li_i];
$ls_scgcuenta = trim($io_report->DS->data["sc_cuenta"][$li_i]);
$ls_scgdenominacion = $io_report->DS->data["scgdenominacion"][$li_i];
$la_data[$li_i] = array('sig_cuenta' => $ls_spgcuenta, 'spgdenominacion' => $ls_spgdenominacion, 'sc_cuenta' => $ls_scgcuenta, 'scgdenominacion' => $ls_scgdenominacion);
}
uf_print_encabezado_pagina($ls_titulo, &$io_pdf);
uf_print_detalle($la_data, $li_totrow, &$io_pdf);
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
print " close();";
print "</script>";
}
}
$io_fun_nomina->uf_formatonumerico($ls_priquin_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_segquin_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_momto_neto_corriente),
$io_fun_nomina->uf_formatonumerico($ls_priquin_corriente),
$io_fun_nomina->uf_formatonumerico($ls_segquin_corriente),&$io_pdf);
}
else
{
if ($ls_banco!=$ls_banco_aux)
{
$ls_banco_aux=$ls_banco;
uf_print_cabecera_banco($ls_banco, $ls_desban,&$io_pdf);
}
uf_print_detalle($ls_cuenta,$io_fun_nomina->uf_formatonumerico($ls_momto_neto_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_priquin_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_segquin_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_momto_neto_corriente),
$io_fun_nomina->uf_formatonumerico($ls_priquin_corriente),
$io_fun_nomina->uf_formatonumerico($ls_segquin_corriente),&$io_pdf);
}
}///fin del for
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print(" close();");
$ls_fecha_r=$io_report->ds_detalle->data["fecha"][$lp_i];
$ls_fecha_r=$io_funciones->uf_convertirfecmostrar($ls_fecha_r);
// $ls_de=$io_report->ds_detalle->data["de"][$lp_i];
// $ls_para=$io_report->ds_detalle->data["para"][$lp_i];
// $ls_asunto=$io_report->ds_detalle->data["asunto"][$lp_i];
$ls_nomper=$io_report->ds_detalle->data["nomper"][$lp_i];
$ls_apeper=$io_report->ds_detalle->data["apeper"][$lp_i];
$ls_cedper=$io_report->ds_detalle->data["cedper"][$lp_i];
$ls_descar1=$io_report->ds_detalle->data["descar"][$lp_i];
$ls_descar2=$io_report->ds_detalle->data["denasicar"][$lp_i];
$ls_motivo=$io_report->ds_detalle->data["motivo"][$lp_i];
$ls_observacion=$io_report->ds_detalle->data["observacion"][$lp_i];
uf_print_encabezado_pagina($ls_titulo,$ls_nroreg,$ls_fecha_r,$ls_de,$ls_para,$ls_asunto,&$io_pdf);
uf_print_detalle($ls_apeper,$ls_nomper,$ls_cedper,$ls_descar,$ls_motivo,$ls_observacion,&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
// print(" close();");
print("</script>");
}
}
$ls_nivel_t=$io_report->ds_resultado->data["nivel_t"][$li_o];
$ld_saldo_t=$io_report->ds_resultado->data["saldo_t"][$li_o];
$ls_total_resultado=$ls_total_resultado+$ld_saldo_t;
$ld_saldo_t=number_format($ld_saldo_t,2,",",".");
$la_data_t[$li_o]=array('cuenta_t'=>$ver,'denom_t'=>$ls_denom_t,'saldo_t'=>$ld_saldo_t);
}//for
//------------------------fin de resultado del tesoro-------------------------------------------------------------
$total_activo_t=number_format($total_activo_t,2,",",".");
$total_pasivo_result= $ls_total_resultado+$ls_total_pasivo;
$total_pasivo_result=number_format( $total_pasivo_result,2,",",".");
$ls_total_pasivo=number_format($ls_total_pasivo,2,",",".");
$ls_total_ingreso=number_format($ls_total_ingreso,2,",",".");
$ls_total_gastos=number_format($ls_total_gastos,2,",",".");
uf_print_detalle($la_data,$la_data_p,$la_data_t,$total_activo_t,$ls_total_pasivo, $total_pasivo_result,$io_pdf); // Imprimimos el detalle
uf_print_detalle_2($la_data_h,$la_data_p_h,$io_pdf); // Imprimimos el detalle
uf_print_detalle_3($la_data_i,$la_data_g,$ls_total_ingreso,$ls_total_gastos,$io_pdf); // Imprimimos el detalle
unset($la_data);
unset($la_data_p);
unset($la_data_t);
unset($la_data_p_h);
unset($la_data_i);
unset($la_data_g);
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
$ld_fecvenc = $io_report->ds_documentos->getValue("fecvenc",$y);
$ls_numdoc = $io_report->ds_documentos->getValue("numdoc",$y);
$ls_nomproben = $io_report->ds_documentos->getValue("nomproben",$y);
$ldec_monto = $io_report->ds_documentos->getValue("monto",$y);
$ls_estmov = $io_report->ds_documentos->getValue("estmov",$y);
$ld_numdoc = $io_report->ds_documentos->getValue("numdoc",$y);
$li_estentrega = $io_report->ds_documentos->getValue("emicheproc",$y);
$ls_cedula = $io_report->ds_documentos->getValue("emicheced",$y);
$ls_nombre = $io_report->ds_documentos->getValue("emichenom",$y);
$ld_fecha = $io_report->ds_documentos->getValue("emichefec",$y);
$la_data[1]=array('fecemi'=>$ld_fecemi,'numdoc'=>$ls_numdoc,'beneficiario'=>$ls_nomproben,'monto'=>number_format($ldec_monto,2,",","."),'estmov'=>$ls_estmov,'fecvenc'=>$ld_fecvenc);
if($y==1)
{$li_showheaddings=1;}
else
{$li_showheaddings=0;}
uf_print_detalle($la_data,array(0.95,0.95,0.95),array(1.5,1.5,1.5),$li_showheaddings,$io_pdf);
if($li_estentrega==1)
{
$la_data_entrega[1]=array('fecemi'=>"Entregado el: ".$ld_fecha,'beneficiario'=>"Entregado a: ".$ls_nombre." C.I.: ".$ls_cedula);
uf_print_detalle_entrega($la_data_entrega,array(1.5,1.5,1.5),array(0.95,0.95,0.95),0,$io_pdf);
}
}
unset($la_data);
}
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
$ls_denest = 'Contabilizada';
break;
case 'A':
$ls_denest = 'Anulada';
break;
}
$ls_descodope = "";
switch ($ls_codope) {
case "ND":
$ls_descodope = "Debito";
break;
case "NC":
$ls_descodope = "Credito";
break;
}
$li_totmonndnc = $li_totmonndnc + $li_monto;
$li_monto = number_format($li_monto, 2, ",", ".");
$ld_fecope = $io_funciones->uf_convertirfecmostrar($ld_fecope);
$la_data[$li_i] = array('numdc' => $ls_numdc, 'nombre' => $ls_nombre, 'fecope' => $ld_fecope, 'descodope' => $ls_descodope, 'status' => $ls_denest, 'monto' => $li_monto);
}
$li_totmonndnc = number_format($li_totmonndnc, 2, ",", ".");
uf_print_encabezado_pagina($ls_titulo, &$io_pdf);
uf_print_detalle($la_data, $li_i, $li_totmonndnc, &$io_pdf);
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
}
}
if(($ls_nomban1=="")&&($ls_tipcta1=="")&&($ls_ctaban1==""))
{
uf_print_cabecera($ls_nomban,$ls_tipcta,$ls_ctaban,$io_pdf);
$ls_nomban1=$ls_nomban;
$ls_tipcta1=$ls_tipcta;
$ls_ctaban1=$ls_ctaban;
}
if(($ls_nomban1!=$ls_nomban)&&($ls_tipcta1!=$ls_tipcta)&&($ls_ctaban1!=$ls_ctaban))
{
uf_print_cabecera($ls_nomban,$ls_tipcta,$ls_ctaban,$io_pdf);
$ls_nomban1=$ls_nomban;
$ls_tipcta1=$ls_tipcta;
$ls_ctaban1=$ls_ctaban;
}
uf_print_detalle($ls_numdoc,$ls_codope,$ld_fecmov,$ls_nomproben,number_format($ldec_monto,2,",","."),$ls_estmov,$ls_conmov,$io_pdf);
//Obtengo el detalle contable del movimiento.
unset($ds_dt_scg->data);
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope,$ls_estmov);
$li_totscg=$ds_dt_scg->getRowCount("scg_cuenta");
if($li_totscg>0)
{
for($li_a=1;$li_a<=$li_totscg;$li_a++)
{
$ls_debhab=$ds_dt_scg->getValue("debhab",$li_a);
if($ls_debhab=="D")
{
$ldec_mondeb=number_format($ds_dt_scg->getValue("monto",$li_a),2,",",".");
$ldec_monhab="";
}
//------------------------------------------------------------------------------ $ld_asignado = number_format($ld_asignado,2,",","."); $ld_modificado = number_format($ld_modificado,2,",","."); $ld_programado = number_format($ld_programado,2,",","."); $ld_compromiso = number_format($ld_compromiso,2,",","."); $ld_causado = number_format($ld_causado,2,",","."); $ld_pagado = number_format($ld_pagado,2,",","."); $ld_programado_acum = number_format($ld_programado_acum,2,",","."); $ld_compromiso_acum = number_format($ld_compromiso_acum,2,",","."); $ld_causado_acum = number_format($ld_causado_acum,2,",","."); $ld_pagado_acum = number_format($ld_pagado_acum,2,",","."); $ld_disp_fecha = number_format($ld_disp_fecha,2,",","."); uf_print_detalle($ls_partida,$ls_generica,$ls_especifica,$ls_subesp,$ls_denominacion,$ld_asignado, $ld_modificado,$ld_programado,$ld_compromiso,$ld_causado,$ld_pagado, $ld_programado_acum, $ld_compromiso_acum,$ld_causado_acum, $ld_pagado_acum, $ld_disp_fecha,&$io_pdf); // Imprimimos el detalle }//for ///-----------------------totales por partidas------------------------------------------------- $ld_asignado_partida = number_format($ld_asignado_partida,2,",","."); $ld_modificado_partida = number_format($ld_modificado_partida,2,",","."); $ld_programado_partida = number_format($ld_programado_partida,2,",","."); $ld_compromiso_partida = number_format($ld_compromiso_partida,2,",","."); $ld_causado_partida = number_format($ld_causado_partida,2,",","."); $ld_pagado_partida = number_format($ld_pagado_partida,2,",",".");
$li_exisfinal = 0.0;
$li_tot_inc = 0.0;
$li_tot_desinc = 0.0;
$li_exisfinal = $li_tot_exi_mes_ant + $li_tot_inc_mes - $li_tot_desinc_mes - $li_tot_desinc_060_mes;
$li_tot_inc = $li_tot_exi_mes_ant + $li_tot_inc_mes;
$li_tot_inc = $io_fun_activos->uf_formatonumerico($li_tot_inc);
$li_tot_desinc = $li_exisfinal + $li_tot_desinc_mes + $li_tot_desinc_060_mes;
$li_tot_desinc = $io_fun_activos->uf_formatonumerico($li_tot_desinc);
$li_tot_exi_mes_ant = $io_fun_activos->uf_formatonumerico($li_tot_exi_mes_ant);
$li_tot_inc_mes = $io_fun_activos->uf_formatonumerico($li_tot_inc_mes);
$li_tot_desinc_mes = $io_fun_activos->uf_formatonumerico($li_tot_desinc_mes);
$li_tot_desinc_060_mes = $io_fun_activos->uf_formatonumerico($li_tot_desinc_060_mes);
$li_exisfinal = $io_fun_activos->uf_formatonumerico($li_exisfinal);
uf_print_cabecera($ls_estemp, '', $ls_denuniadm, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($li_tot_exi_mes_ant, $li_tot_inc_mes, $li_tot_desinc_060_mes, $li_tot_desinc_mes, $li_exisfinal, $li_tot_inc, $li_tot_desinc, $io_pdf);
// Imprimimos el detalle
uf_print_firmas(&$io_pdf);
if ($lb_valido_exi || $lb_valido_inc || $lb_valido_desinc || $lb_valido_desinc_060) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
} else {
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
}
unset($io_pdf);
}
unset($io_report);
unset($io_funciones);
$ls_numref = $io_report->DS->data["numref"][$li_i];
$ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecemidoc"][$li_i]);
$li_montotdoc = number_format($io_report->DS->data["montotdoc"][$li_i], 2, ',', '.');
$li_monobjret = number_format($io_report->DS->data["monobjret"][$li_i], 2, ',', '.');
$li_retenido = number_format($io_report->DS->data["retenido"][$li_i], 2, ',', '.');
$li_porcentaje = number_format($io_report->DS->data["porcentaje"][$li_i], 2, ',', '.');
if ($ls_codigo != $ls_codigoant) {
if ($li_z >= 1) {
uf_print_firma($io_pdf);
$io_pdf->ezNewPage();
}
$ls_codigoant = $ls_codigo;
}
uf_print_encabezado_pagina($ls_titulo, $ls_numsol, $io_pdf);
uf_print_encabezado($ls_agente, $ls_nombre, $ls_rif, $ls_nit, $ls_consol, $io_pdf);
uf_print_detalle($ls_numsol, $ld_fecemidoc, $ls_numdoc, $li_monobjret, $li_porcentaje, $li_retenido, $io_pdf);
uf_print_firma($io_pdf);
if ($li_i < $li_total) {
$io_pdf->ezNewPage();
}
}
}
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
$ldec_monto = $io_report->ds_data->getValue("monto",$y);
$ld_fecha = $io_report->ds_data->getValue("fecmov",$y);
$ld_feccad =$io_report->ds_data->getValue("feccad",$y);
$ld_total_monto=$ld_total_monto+$ldec_monto;
$la_data[1] =array('numdoc'=>$ls_numdoc,'fecmov'=>$ld_fecha,'feccad'=>$ld_feccad,'beneficiario'=>$ls_nomproben,'monto'=>number_format($ldec_monto,2,",","."));
if ($y==1)
{
$ls_show=1;
}
else
{
$ls_show=0;
}
uf_print_detalle($la_data,$ls_show,$io_pdf);
}
$ld_total_monto=number_format($ld_total_monto,2,",",".");
uf_print_pie_cabecera($ld_total_monto,$li_total,$io_pdf);
unset($la_data);
}
else
{
$lb_valido2=false;
}
}
}//for
if ($lb_valido2)
{
case "V4":
$li_apor=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["valsal"][$li_s]));
$li_totapor=$li_totapor+$io_report->DS_detalle->data["valsal"][$li_s];
break;
case "W4":
$li_apor=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["valsal"][$li_s]));
$li_totapor=$li_totapor+$io_report->DS_detalle->data["valsal"][$li_s];
break;
}
$la_data[$li_s]=array('codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'asignacion'=>$li_asig,
'deduccion'=>$li_dedu,'aporte'=>$li_apor);
}
$io_report->DS_detalle->resetds("codconc");
uf_print_detalle($ls_descripcion,$la_data,$io_pdf); // Imprimimos el detalle
$li_totasig=$io_fun_nomina->uf_formatonumerico($li_totasig);
$li_totdedu=$io_fun_nomina->uf_formatonumerico($li_totdedu);
$li_totapor=$io_fun_nomina->uf_formatonumerico($li_totapor);
uf_print_total($li_totasig,$li_totdedu,$li_totapor,$io_pdf); // Imprimimos el pie de la cabecera
}
$rs_data->MoveNext();
}
$io_report->DS->resetds("cedper");
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
$li_aux=1;
$la_aux=array();
$lb_print=false;
for($li_i=1;$li_i<=$x;$li_i++)
{
if($li_aux<=7)
{
$la_aux[$li_aux]=$la_data[$li_i];
$li_aux++;
$lb_print=false;
}
else
{
$li_aux=1;
$li_i--;
$lb_print=true;
}
if($lb_print || $li_i==$x)
{
uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_aux,$io_pdf); // Imprimimos el detalle
$la_aux=array();
if($li_i<$x)
$io_pdf->ezNewPage();
}
}
}
uf_print_firmas($io_pdf) ;
}
$io_pdf->ezStream();
}
?>
$li_totalivaret = $li_totalivaret + $li_ivaret;
$li_totdersiniva = number_format($li_totdersiniva, 2, ",", ".");
$li_siniva = number_format($li_siniva, 2, ",", ".");
$li_coniva = number_format($li_coniva, 2, ",", ".");
$li_baseimp = number_format($li_baseimp, 2, ",", ".");
$li_porimp = number_format($li_porimp, 2, ",", ".");
$li_totimp = number_format($li_totimp, 2, ",", ".");
$li_ivaret = number_format($li_ivaret, 2, ",", ".");
$la_data[$li_i] = array('numope' => $ls_numope, 'fecfac' => $ld_fecfac, 'numfac' => $ls_numfac, 'numref' => $ls_numref, 'numnotdeb' => $ls_numnotdeb, 'numnotcre' => $ls_numnotcre, 'tiptrans' => $ls_tiptrans, 'numfacafec' => $ls_numfacafec, 'totalconiva' => $li_coniva, 'compsinderiva' => $li_totdersiniva, 'baseimp' => $li_baseimp, 'porimp' => $li_porimp, 'totimp' => $li_totimp, 'ivaret' => $li_ivaret, 'numdoc' => $ls_numdoc, 'totalsiniva' => $li_siniva);
}
$li_totalconiva = number_format($li_totalconiva, 2, ",", ".");
$li_totalsiniva = number_format($li_totalsiniva, 2, ",", ".");
$li_totalbaseimp = number_format($li_totalbaseimp, 2, ",", ".");
$li_totalmontoimp = number_format($li_totalmontoimp, 2, ",", ".");
$li_totalivaret = number_format($li_totalivaret, 2, ",", ".");
uf_print_detalle($la_data, $li_totalconiva, $li_totalsiniva, $li_totalbaseimp, $li_totalmontoimp, $li_totalivaret, &$io_pdf);
unset($la_data);
}
}
uf_print_firmas(&$io_pdf);
if ($li_z < $li_totrow - 1) {
$io_pdf->ezNewPage();
}
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
$ls_montohab=0;
$total_saldo=$total_saldo+$ls_saldo;
$total_debe=$total_debe+$ls_monto;
}
else
{
$ls_montodebe=0;
$ls_montohab=$ls_monto;
$ls_totalhaber=$ls_totalhaber+$ls_monto;
$total_haber=$total_haber+$ls_monto;
}
$ls_fecha=$io_funciones->uf_convertirfecmostrar($ls_fecha);
uf_print_detalle($ls_numdoc,$ls_fecha,$ls_tipo, $ls_concepto,
number_format($ls_montodebe,2,",","."),
number_format($ls_montohab,2,",","."), $ls_contable,&$io_pdf);
}// fin del for
if ($total>0)
{
uf_print_total(number_format($ls_totaldebe,2,",","."),
number_format($ls_totalhaber,2,",","."),
number_format($ls_saldo,2,",","."),
&$io_pdf);
uf_print_total_general(number_format($total_debe,2,",","."),
number_format($total_haber,2,",","."),
number_format($total_saldo,2,",","."),
&$io_pdf);
}
if(($lb_valido)&&($total>0)) // Si no ocurrio ningún error
{
$ldec_monhab=$ldec_monhab+$ldec_creditos;
$ldec_monant=$ldec_monant+$ldec_saldo_ant;
}
$la_columna=array('nomban'=>'<b>Banco</b>','tipcta'=>'<b>Tipo Cuenta</b>','dencta'=>'<b>Denominacion Cta.</b>','ctaban'=>'<b>Cuenta</b>','periodo'=>'<b>Año</b>','anterior'=>'<b>Anterior</b>',
'debitos'=>'<b>debitos</b>','creditos'=>'<b>Creditos</b>','saldo'=>'<b>Saldo</b>');
$la_config=array('showHeadings'=>1, // Mostrar encabezados
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'shadeCol'=>array(0.95,0.95,0.95), // Color de la sombra
'shadeCol2'=>array(1.5,1.5,1.5), // Color de la sombra
'xOrientation'=>'center', // Orientación de la tabla
'width'=>730, // Ancho de la tabla
'maxWidth'=>730,
'fontSize'=>8,
'titleFontSize'=>10,
'cols'=>array('nomban'=>array('justification'=>'left','width'=>85),'tipcta'=>array('justification'=>'center','width'=>80),
'dencta'=>array('justification'=>'center','width'=>80),'ctaban'=>array('justification'=>'center','width'=>130),
'periodo'=>array('justification'=>'center','width'=>35),'anterior'=>array('justification'=>'right','width'=>80),
'debitos'=>array('justification'=>'right','width'=>80),'creditos'=>array('justification'=>'right','width'=>80),
'saldo'=>array('justification'=>'right','width'=>80))); // Ancho Máximo de la tabla
uf_print_detalle($la_columna,$la_config,$la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
$ldec_saldo_total=$ldec_total_saldo_ant+$ldec_totaldebitos-$ldec_totalcreditos;
uf_print_totales(number_format($ldec_total_saldo_ant,2,",","."),number_format($ldec_totaldebitos,2,",","."),number_format($ldec_totalcreditos,2,",","."),number_format($ldec_saldo_total,2,",","."),$io_pdf); // Imprimimos el detalle
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf);
unset($io_report);
unset($io_funciones);
?>
break;
case 'S':
$ls_denest = 'Programacion de Pago';
break;
case 'P':
$ls_denest = 'Pagada';
break;
}
$li_totmonsol = $li_totmonsol + $li_monsol;
$li_monsol = number_format($li_monsol, 2, ",", ".");
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
$la_data[$li_j] = array('numsol' => $ls_numsol, 'fecemisol' => $ld_fecemisol, 'consol' => $ls_consol, 'denest' => $ls_denest, 'monsol' => $li_monsol);
}
$li_j = $li_j - 1;
$ld_montotrep += $li_totmonsol;
$ld_totmonsol = number_format($li_totmonsol, 2, ",", ".");
uf_print_encabezado_pagina($ls_titulo, &$io_pdf);
uf_print_cabecera($ls_codigo, $ls_nombre, &$io_pdf);
uf_print_detalle($la_data, $li_j, $li_totmonsol, &$io_pdf);
uf_print_totales($li_totrow, $ld_totmonsol, $ls_nombre, $io_pdf);
}
$ld_montotrep = number_format($ld_montotrep, 2, ",", ".");
uf_print_totaldocumento($ld_montotrep, &$io_pdf);
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
}
}
{
uf_print_cabecera1($io_pdf,$io_encabezado);
uf_print_detalle($ls_data,$io_pdf);
$io_fun_nomina->uf_formatonumerico($ld_neto1);
uf_print_total($i,$ld_neto1,$io_pdf);
if($j > 0)
{
$io_pdf->stopObject($io_encabezado);
$io_pdf->ezNewPage(); // Insertar una nueva página
$io_pdf->ezSetCmMargins(3.6,2.5,3,3); // Configuración de los margenes en centímetros
}
}
if($j > 0)
{
uf_print_cabecera2($io_pdf);
uf_print_detalle($ls_data2,$io_pdf);
$io_fun_nomina->uf_formatonumerico($ld_neto2);
uf_print_total($j,$ld_neto2,$io_pdf);
}
unset($ls_data);
unset($ls_data2);
}
$io_report->io_sql->free_result($rs_data);
if (($lb_valido)&&($li_numrowtot>0)) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
$ls_dended = $io_report->DS->data["dended"][$li_i];
$ls_cheque = $io_report->DS->data["cheque"][$li_i];
$ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecemidoc"][$li_i]);
$li_montotdoc = number_format($io_report->DS->data["montotdoc"][$li_i], 2, ',', '.');
$li_monobjret = number_format($io_report->DS->data["monobjret"][$li_i], 2, ',', '.');
$li_retenido = number_format($io_report->DS->data["retenido"][$li_i], 2, ',', '.');
$li_porcentaje = number_format($io_report->DS->data["porcentaje"][$li_i], 2, ',', '.');
if ($ls_codigo != $ls_codigoant) {
if ($li_z >= 1) {
uf_print_firmas($ls_nombre, $io_pdf);
$io_pdf->ezNewPage();
}
uf_print_encabezado($ls_agente, $ls_nombre, $ls_rif, $ls_nit, $ls_telefono, $ls_direccion, $ls_consol, $io_pdf);
$ls_codigoant = $ls_codigo;
}
uf_print_detalle($ls_numdoc, $ls_consol, $ld_fecemidoc, $li_monobjret, $li_retenido, $li_porcentaje, $ls_numref, $li_montotdoc, $ls_dended, $ls_cheque, $io_pdf);
}
}
}
if ($lb_valido) {
uf_print_firmas($ls_nombre, $io_pdf);
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
print " close();";
print "</script>";
}
$li_cantartser=number_format($li_cantartser,2,",",".");
$ld_preartser=number_format($ld_preartser,2,",",".");
$ld_subtotartser=number_format($ld_subtotartser,2,",",".");
$ld_totartser=number_format($ld_totartser,2,",",".");
$ld_carartser=number_format($ld_carartser,2,",",".");
$la_data[$li_i]=array('codigo'=>$ls_codartser,
'denominacion'=>$ls_denartser,
'cantidad'=>$li_cantartser,
'unidad'=>$ls_unidad,
'cosuni'=>$ld_preartser,
'baseimp'=>$ld_subtotartser,
'porimp'=>$ld_porimp,
'cargo'=>$ld_carartser,
'montot'=>$ld_totartser);
}
uf_print_detalle($la_data,$ls_estcondat,&$io_pdf);
unset($la_data);
/////DETALLE DE LAS CUENTAS DE GASTOS DE LA ORDEN DE COMPRA
$rs_datos_cuenta=$io_report->uf_select_cuenta_gasto($ls_numordcom,$ls_estcondat,&$lb_valido);
if($lb_valido)
{
$li_totrows = $io_sql->num_rows($rs_datos_cuenta);
if ($li_totrows>0)
{
$li_s = 0;
while($row=$io_sql->fetch_row($rs_datos_cuenta))
{
$li_s=$li_s+1;
$ls_codestpro1=trim($row["codestpro1"]);
$ls_codestpro2=trim($row["codestpro2"]);
$ls_codestpro3=trim($row["codestpro3"]);
$ls_monto_spg2 = uf_convertir($la_data[$li_k]["monto_spg"]); $ls_monto_debe1 = uf_convertir($la_dataaux[$li_pos]["debe"]); $ls_monto_debe2 = uf_convertir($la_data[$li_k]["debe"]); $ls_monto_haber1 = uf_convertir($la_dataaux[$li_pos]["haber"]); $ls_monto_haber2 = uf_convertir($la_data[$li_k]["haber"]); $la_dataaux[$li_pos]["monto_spg"] = number_format(($ls_monto_spg1 + $ls_monto_spg2),2,",","."); if (($ls_monto_debe1 + $ls_monto_debe2) != 0) $la_dataaux[$li_pos]["debe"] = number_format(($ls_monto_debe1 + $ls_monto_debe2),2,",","."); else $la_dataaux[$li_pos]["debe"]=""; if(($ls_monto_haber1 + $ls_monto_haber2) != 0) $la_dataaux[$li_pos]["haber"] = number_format(($ls_monto_haber1 + $ls_monto_haber2),2,",","."); else $la_dataaux[$li_pos]["haber"]=""; } } $io_pdf->y=190; $io_pdf->y=440; $io_pdf->set_margenes(138,70,$x_pos,0); uf_print_detalle($la_dataaux,$io_pdf,$x_pos); // Imprimimos el detalle } $io_pdf->ezStopPageNumbers(1,1); $io_pdf->ezStream(); unset($io_pdf); unset($class_report); unset($io_funciones); } ?>
$li_inicio=$li_len-$li_totfil;
if($li==$li_total)
{
$as_cuenta=substr($ls_cuenta_ant,$li_inicio,$li_fila);
}
else
{
$as_cuenta=substr($ls_cuenta_ant,$li_inicio,$li_fila)."-".$as_cuenta;
}
}
$li_fila=$ia_niveles_scg[1]+1;
$as_cuenta=substr($ls_cuenta_ant,0,$li_fila)."-".$as_cuenta;
uf_print_cabecera($as_cuenta,$ls_denominacion,$ld_saldo_ant,$io_pdf);
uf_print_detalle($la_data,$io_pdf,$li_ocultar); // Imprimimos el detalle
$ld_totalsaldo_final=$ld_saldo_final;
if($ld_totaldebe<0)
{
$ld_totaldebe_aux=abs($ld_totaldebe);
$ld_totaldebe_aux=number_format($ld_totaldebe_aux,2,",",".");
$ld_totaldebe="(".$ld_totaldebe_aux.")";
}
else
{
$ld_totaldebe=number_format($ld_totaldebe,2,",",".");
}
if($ld_totalhaber<0)
{
$ld_totalhaber_aux=abs($ld_totalhaber);
$ld_totalhaber_aux=number_format($ld_totalhaber_aux,2,",",".");
$ld_carartser = $ld_totartser-$ld_subtotartser;
$ld_preartser = number_format($ld_preartser,2,",",".");
$ld_subtotartser = number_format($ld_subtotartser,2,",",".");
$ld_totartser = number_format($ld_totartser,2,",",".");
$ld_carartser = number_format($ld_carartser,2,",",".");
$la_data[$li_i] = array('codigo'=>$ls_codartser,
'denominacion'=>$ls_denartser,
'cantidad'=>number_format($li_cantartser,2,',','.'),
'precio'=>$ld_preartser,
'unidad'=>$ls_unidad,
'subtotal'=>$ld_subtotartser,
'cargo'=>$ld_carartser,
'montot'=>$ld_totartser);
}
uf_print_detalle($ls_estcondat,$la_data,$ld_monsubtot,$ld_monimp,$ld_montot,&$io_pdf);
unset($la_data);
/////DETALLE DE LAS CUENTAS DE GASTOS DE LA ORDEN DE COMPRA
$rs_datos_cuenta=$io_report->uf_select_cuenta_gasto($ls_numordcom,$ls_estcondat,&$lb_valido);
if($lb_valido)
{
$li_totrows = $io_sql->num_rows($rs_datos);
if ($li_totrows>0)
{
$li_s = 0;
while($row=$io_sql->fetch_row($rs_datos_cuenta))
{
$li_s++;
$ls_codestpro1 = trim($row["codestpro1"]);
$ls_codestpro2 = trim($row["codestpro2"]);
$ls_codestpro3 = trim($row["codestpro3"]);
$la_valores["valorasig"]="";
$la_valores["denomdedu"]="";
$la_valores["valordedu"]="";
if($li_s<=$li_asig)
{
$la_valores["denomasig"]=$la_data_a[$li_s]["denominacion"];
$la_valores["valorasig"]=$la_data_a[$li_s]["valor"];
}
if($li_s<=$li_dedu)
{
$la_valores["denomdedu"]=$la_data_d[$li_s]["denominacion"];
$la_valores["valordedu"]=$la_data_d[$li_s]["valor"];
}
$la_data[$li_s]=$la_valores;
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_totnet=$li_toting-$li_totded;
$li_toting=$io_fun_nomina->uf_formatonumerico($li_toting);
$li_totded=$io_fun_nomina->uf_formatonumerico($li_totded);
$li_totnet=$io_fun_nomina->uf_formatonumerico($li_totnet);
uf_print_pie_cabecera($li_toting,$li_totded,$li_totnet,$ls_codcueban,$io_pdf); // Imprimimos pie de la cabecera
uf_print_firmas($ls_cedper,$ls_nomper,&$io_pdf);
unset($la_data_a);
unset($la_data_d);
unset($la_data);
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
if($li_i<$li_totrow)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
}
$ls_cuentaspg = "";
$ls_estpro = "";
$ldec_monto_spg = "";
}
}
else
{
$ls_cuentaspg = "";
$ls_estpro = "";
$ldec_monto_spg = "";
}
$la_data[$li_s]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'descripcion'=>$ls_descripcion,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
}
uf_print_detalle(array('title'=>'Detalle Contable Pago'),$la_data,$io_pdf);
uf_print_autorizacion($io_pdf);
if ($io_pdf->ezPageCount==$thisPageNum)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
else
{// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir
$io_pdf->transaction('rewind');
$io_pdf->ezNewPage();
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf);
uf_print_detalle(array('title'=>'Detalle Contable Pago'),$la_data,$io_pdf);
}
}
$io_pdf->ezStream();
unset($io_pdf,$class_report,$io_funciones);
?>