$io_pdf->line(350,620,350,590); $io_pdf->line(45,560,550,560); $io_pdf->setLineStyle(2); $io_pdf->line(45,620,550,620); //$io_pdf->setLineStyle(2); $io_pdf->line(45,590,550,590); $io_pdf->addText(50,660,11,"<b>Obra: </b>".$as_obra); $io_pdf->addText(50,630,11,"<b>Ubicación:</b> ".$as_ubicacion); $io_pdf->addText(50,600,11,"<b>Contratista:</b> ".$as_contratista); $io_pdf->addText(360,600,11,"<b>Contrato Nº: </b> ".$as_codcon); $io_pdf->addText(50,580,9,"<b>Aprobación Contraloría Interna: </b> "); $io_pdf->addText(50,562,11,"<b>Nº: </b> ".$as_numcontraloria); $io_pdf->addText(200,562,11,"<b>Memorandum: </b> ".$as_memorandumcontraloria); $io_pdf->addText(400,562,11,"<b>Fecha: </b> ".$as_fechacontraloria); $io_pdf->addText(50,540,11,"<b>Objeto: </b> ".$as_objetocontraloria); }// end function uf_print_cabecera //-------------------------------------------------------------------------------------------------------------------------------- require_once("../../shared/ezpdf/class.ezpdf.php"); $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.5,3.5,3.5,3.5); // Configuración de los margenes en centímetros uf_print_encabezado_pagina("cabecera_minfra.jpg","Acta de Inicio",$io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página uf_print_cabecera("Construccion de Casas","Calle Concordia","Construcciones C.A.","12569862585",&$io_pdf,"","","","") ; $io_pdf->transaction('commit'); $io_pdf->ezStopPageNumbers(1,1); $io_pdf->ezStream(); unset($io_pdf); unset($io_funciones); ?>
if($lb_valido==false) // Existe algún error ó no hay registros { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else // Imprimimos el reporte { error_reporting(E_ALL); set_time_limit(1800); $io_pdf=new Cezpdf('LEGAL','landscape'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(5.5,3,3,3); // Configuración de los margenes en centímetros uf_print_encabezado_pagina($ls_titulo,$ls_titulo1,$io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(980,40,10,'','',1); // Insertar el número de página $li_total=$row=$io_report->SQL->num_rows($rs_data); $li=0; while($row=$io_report->SQL->fetch_row($rs_data)) { $li=$li+1; $ld_total_asignado=0; $ld_total_aumento=0; $ld_total_disminucion=0; $ld_total_monto_actualizado=0; $ld_total_compromiso=0; $ld_total_precompromiso=0; $ld_total_compromiso=0; $ld_total_saldo_comprometer=0; $ld_total_causado=0;
} $ls_titulo="<b>Listado de Documentos en Transito $ls_tipbol</b>"; $io_report->uf_cargar_documentos_transito($ls_periodo,$ls_codban,$ls_ctaban,$ls_orden); $ldec_totaldebitos=0; $ldec_totalcreditos=0; $ldec_saldo=0; $lb_valido=true; $li_total=$io_report->ds_documentos->getRowCount("codban"); if($li_total>0) { error_reporting(E_ALL); set_time_limit(1800); $io_pdf=new Cezpdf('A4','portrait'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(3.5,3,3,3); // Configuración de los margenes en centímetros uf_print_encabezado_pagina($ls_titulo,$ls_periodo,$ls_denban,$ls_ctaban,$ls_dencta,$io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(750,50,10,'','',1); // Insertar el número de página for($i=1;$i<=$li_total;$i++) { $io_pdf->transaction('start'); // Iniciamos la transacción $li_numpag = $io_pdf->ezPageCount; // Número de página $ls_numdoc = $io_report->ds_documentos->getValue("numdoc",$i); $ls_ctaban = $io_report->ds_documentos->getValue("ctaban",$i); $ldec_monto = $io_report->ds_documentos->getValue("monto",$i); $ld_fecmov = $io_report->ds_documentos->getValue("fecmov",$i); $ld_fecmov = $io_report->fun->uf_convertirfecmostrar($ld_fecmov); $ls_nomproben = $io_report->ds_documentos->getValue("nomproben",$i); $ls_codope = $io_report->ds_documentos->getValue("codope",$i); $ls_conmov = $io_report->ds_documentos->getValue("conmov",$i); $ls_estmov = $io_report->ds_documentos->getValue("estmov",$i); if ($ls_estmov=='O')
$li_monsol = $io_report->DS->data["monsol"][$li_i]; $numalet->setNumero($li_monsol); $ls_monto = $numalet->letra(); $li_monsol = number_format($li_monsol, 2, ",", "."); $ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol); if ($ls_codpro != "----------") { $ls_codigo = $ls_codpro; } else { $ls_codigo = $ls_cedbene; } /* if($ls_tiporeporte==0) { $li_monsolaux=$io_report->DS->data["monsolaux"][$li_i]; $li_monsolaux=number_format($li_monsolaux,2,",","."); }*/ uf_print_encabezado_pagina($ls_titulo, $ls_numsol, $ld_fecemisol, &$io_pdf); uf_print_cabecera($ls_numsol, $ls_codigo, $ls_nombre, $ls_denfuefin, $ld_fecemisol, $ls_consol, $ls_obssol, $li_monsol, $ls_monto, $ls_rifpro, $ls_dentipdoc, &$io_pdf); ////////////////////////// GRID RECEPCIONES DE DOCUMENTOS ////////////////////////////////////// $io_report->ds_detalle->reset_ds(); $lb_valido = $io_report->uf_select_rec_doc_solicitud($ls_numsol); // Cargar el DS con los datos del reporte if ($lb_valido) { $li_totrowdet = $io_report->ds_detalle_rec->getRowCount("numrecdoc"); $la_data = ""; $li_totsubtot = 0; $li_tottot = 0; $li_totcar = 0; $li_totded = 0; for ($li_s = 1; $li_s <= $li_totrowdet; $li_s++) { $ls_numrecdoc = $io_report->ds_detalle_rec->data["numrecdoc"][$li_s]; $ld_fecemidoc = $io_report->ds_detalle_rec->data["fecemidoc"][$li_s];
$lb_valido=$io_report->uf_select_concursante_concurso($ls_codcondes,$ls_codconhas,$ls_estconper,$ls_orden,$rs_datcon); if ($lb_valido==false) { print("<script language=JavaScript>"); print(" alert('No hay nada que reportar');"); print(" close();"); print("</script>"); } else // Imprimimos el reporte { error_reporting(E_ALL); set_time_limit(1800); $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->ezStartPageNumbers(570,47,8,'','',1); // Insertar el número de página uf_print_encabezado_pagina($ls_titulo,&$io_pdf); $ls_auxcodigo=""; $li_i=0; $li_conact=0; $li_conexc=0; while ((!$rs_datcon->EOF)&&($lb_valido)) { $ls_codigo=$rs_datcon->fields["codcon"]; if (($ls_codigo!=$ls_auxcodigo)&&($ls_auxcodigo!="")) { uf_print_datos_concurso($ls_auxcodigo,$ls_descrip,$ls_cargo,$ls_descar,$ls_fecaper,$ls_feccie, $ls_cantcar,$ls_tipo,$ls_estatus,$io_pdf); uf_print_datos_concursantes($la_data,$io_pdf);
$lb_valido=$io_report->uf_spg_reporte_select_comprobante_formato2($ls_cuentades,$ls_cuentahas,$ldt_fecdes,$ldt_fechas); if($lb_valido==false) // Existe algún error ó no hay registros { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else // Imprimimos el reporte { error_reporting(E_ALL); set_time_limit(1800); $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(4.5,3,3,3); // Configuración de los margenes en centímetros uf_print_encabezado_pagina($ls_titulo,$ls_periodo_comp,$ls_fecha_comp,$io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página $li_tot=$io_report->dts_cab->getRowCount("comprobante"); $ld_total=0; $ld_totalcomprobante=0; $ld_totalprogramatica=0; for($li_i=1;$li_i<=$li_tot;$li_i++) { $io_pdf->transaction('start'); // Iniciamos la transacción $thisPageNum=$io_pdf->ezPageCount; $ls_comprobante=$io_report->dts_cab->data["comprobante"][$li_i]; $ls_procede=$io_report->dts_cab->data["procede"][$li_i]; $ls_ced_bene=$io_report->dts_cab->data["ced_bene"][$li_i]; $ls_cod_pro=$io_report->dts_cab->data["cod_pro"][$li_i]; $ls_nompro=$io_report->dts_cab->data["nompro"][$li_i]; $ls_apebene=$io_report->dts_cab->data["apebene"][$li_i];
$ld_monto = number_format($ld_monto,2,',','.'); $ld_tasa = number_format($ld_tasa,2,',','.'); $ld_mondiv = number_format($ld_mondiv,2,',','.'); $ld_porcentaje= number_format($ld_porcentaje,0,'',''); $ld_monant = number_format($ld_monant,2,',','.'); $ld_montoseg = number_format($ld_montoseg,2,',','.'); $li_totconv = number_format($li_totconv,2,',','.'); if($ls_formapago=="s1") { $ls_formapago=""; } if($ls_condicion=="s1") { $ls_condicion=""; } uf_print_encabezado_pagina($ls_estcondat,$hidnumero,$ls_fecord,&$io_pdf); // Imprimimos el encabezado de la página uf_print_cuadros_superiores($ls_lugcom,$ls_condicion,$ls_proveedor,$ls_dirpro,$ls_telpro,$li_diaplacom, $ls_formapago,$ls_dirdependencia,$io_pdf); } //-------------------------------SPG-------------------------------------- $li_totrowspg=0; $lb_validosqg =$io_report->uf_select_cuenta_spg($ls_codemp,$hidnumero,$hidtipcom); $li_totrowspg=$io_report->ds_spg_dt->getRowCount("numordcom"); $li_totrowcount=$li_totrowspg; if($li_totrowspg<4) { $li_totrowcount=4; } for($li_i=1;$li_i<=$li_totrowcount;$li_i++) { if($li_i<=$li_totrowspg)
$lb_valido=$io_report->uf_spg_reporte_informacion_mensual_eje_fin($ldt_fecdes,$ldt_fechas,$ls_tipo); if($lb_valido==false) // Existe algún error ó no hay registros { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else // Imprimimos el reporte { error_reporting(E_ALL); set_time_limit(1800); $io_pdf=new Cezpdf('LEGAL','landscape'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra uf_print_encabezado_pagina($ls_titulo,"(En Bolivar Fuerte)",$ls_mes,$io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(980,40,10,'','',1); // Insertar el número de página $io_pdf->transaction('start'); // Iniciamos la transacción $thisPageNum=$io_pdf->ezPageCount; $li_tot=$io_report->dts_reporte->getRowCount("codigo"); $ld_total_programado_mensual = 0; $ld_total_programado_acumulado = 0; $ld_total_ejecutado_mens_comp = 0; $ld_total_ejecutado_mens_caus = 0; $ld_total_ejecutado_mens_paga = 0; $ld_total_ejecutado_acum_comp = 0; $ld_total_ejecutado_acum_caus = 0; $ld_total_ejecutado_acum_paga = 0; $ld_total_variacion_mens_comp = 0; $ld_total_variacion_acum_comp = 0; $ld_total_variacion_mens_caus = 0;
if($lb_valido==false) // Existe algún error ó no hay registros { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else { error_reporting(E_ALL); //set_time_limit(1800); $li_totrow=$io_report->DS->getRowCount("sc_cuenta"); $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.5,3.5,3.5,3.5); // Configuración de los margenes en centímetros uf_print_encabezado_pagina("<b>Listado de Cuentas Contables</b>","Desde ".$ls_cuentadesde." hasta ".$ls_cuentahasta,$io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página for($li_i=1;$li_i<=$li_totrow;$li_i++) { $thisPageNum=$io_pdf->ezPageCount; $li_totprenom=0; $ldec_mondeb=0; $ldec_monhab=0; $li_totant=0; $ls_cuenta=rtrim($io_report->DS->getValue("sc_cuenta",$li_i)); $ls_denominacion=rtrim($io_report->DS->getValue("denominacion",$li_i)); $li_totfil=0; $as_cuenta=""; for($li=$li_total;$li>1;$li--) { $li_ant=$ia_niveles_scf[$li-1];
} $ldec_totcomsiniva = $ldec_totcomsiniva + $ldec_sinderiva; $ldec_basimpga = $ldec_totbasimp9 + $ldec_totbasimp25; //Total Base Imponible Compras Internas Afectadas en Alicuota General + Adicional(9% y 25%). $ldec_totgenadi = $ldec_totimp9 + $ldec_totimp25; //Total Compras Internas Afectadas en Alicuota Reducida. Impuestos al 9% y 25%. $ldec_totbaseimp = $ldec_totbaseimp + $ls_basnota; if ($ldec_totcomsiniva < 0 && $ldec_totcomsiniva > -0.004) { $ldec_totcomsiniva = abs($ldec_totcomsiniva); } } } //fin del while //uf_print_encabezado_pagina($ls_mes,$ls_ano,$ld_tot_basimp,$ld_tot_sinderiva,$ld_monimp14,$ld_monimp8,$io_pdf); $ldec_totgenadi = $ldec_totimp9 + $ldec_totimp25; //Total Compras Internas Afectadas en Alicuota Reducida. Impuestos al 14% y 25%. uf_print_encabezado_pagina($ls_mes, $ls_agno, $ldec_totbaseimp, $ldec_totcomsiniva, $ldec_totimp9, $ldec_totimp8, $ldec_totgenadi, &$io_pdf); uf_insert_seguridad($ls_periodo); } else { print "<script language=JavaScript>"; print "alert('No hay Registros para Mostrar');"; print "close();"; print "</script>"; } $io_pdf->ezStream(); // Mostramos el reporte unset($io_report); unset($io_funciones); unset($io_fun_nomina); ?>
$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,",","."); $li_montotcar=number_format($li_montotcar,2,",","."); $ld_fecregsol=$io_funciones->uf_convertirfecmostrar($ld_fecregsol); if($ls_codpro!="----------") { $ls_codigo=$ls_codpro; } else { $ls_codigo=$ls_cedbene; } uf_print_encabezado_pagina($ls_titulo,$ls_numsol,$ld_fecregsol,$ls_dentipsol,&$io_pdf); uf_print_cabecera($ls_numsol,$ls_coduniadm,$ls_denuniadm,$ls_denfuefin,$ls_codigo,$ls_nombre,$ls_consol,&$io_pdf); $io_report->ds_detalle->reset_ds(); $lb_valido=$io_report->uf_select_dt_solicitud($ls_numsol); // Cargar el DS con los datos del reporte if($lb_valido) { $li_totrowdet=$io_report->ds_detalle->getRowCount("codigo"); $la_data=""; for($li_s=1;$li_s<=$li_totrowdet;$li_s++) { $ls_codigo=$io_report->ds_detalle->data["codigo"][$li_s]; $ls_tipo=$io_report->ds_detalle->data["tipo"][$li_s]; $ls_denominacion=$io_report->ds_detalle->data["denominacion"][$li_s]; $ls_unidad=$io_report->ds_detalle->data["unidad"][$li_s]; $li_cantidad=$io_report->ds_detalle->data["cantidad"][$li_s]; $li_cosuni=$io_report->ds_detalle->data["monpre"][$li_s];
// 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 { error_reporting(E_ALL); $io_pdf = new Cezpdf('LETTER', 'landscape'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(11.7, 4, 1, 2); // Configuración de los margenes en centímetros uf_print_encabezado_pagina($io_pdf); // Imprimimos el encabezado de la página $li_totrow = $io_report->DS->getRowCount("tipproben"); for ($li_i = 1; $li_i <= $li_totrow && $lb_valido; $li_i++) { $li_total_pagado = 0; $li_total_retencion = 0; $li_total_impuesto = 0; $ls_tipproben = $io_report->DS->data["tipproben"][$li_i]; $ls_nompro = $io_report->DS->data["nompro"][$li_i]; $ls_nacpro = $io_report->DS->data["nacpro"][$li_i]; $ls_rifpro = $io_report->DS->data["rifpro"][$li_i]; $ls_nitpro = $io_report->DS->data["nitpro"][$li_i]; $ls_dirpro = $io_report->DS->data["dirpro"][$li_i]; $ls_telpro = $io_report->DS->data["telpro"][$li_i]; $ls_nombene = $io_report->DS->data["nombene"][$li_i]; $ls_apebene = $io_report->DS->data["apebene"][$li_i];
$ls_feccmp = $io_funcion->uf_convertirfecmostrar($rs_data->fields["feccam"]); $ls_obscam = $rs_data->fields["obstra"]; $ls_codres = $rs_data->fields["codres"]; $ls_codact = $rs_data->fields["codact"]; $ls_ideact = $rs_data->fields["idact"]; $ls_seract = $rs_data->fields["seract"]; $ls_denact = $rs_data->fields["denact"]; $ls_codusureg = $rs_data->fields["codusureg"]; $ls_codnewres = $rs_data->fields["codresnew"]; $ls_nomres = $rs_data->fields["nomres1"]; if (empty($ls_nomres)) { $ls_nomres = $rs_data->fields["nomres2"]; } $ls_nomnewres = $rs_data->fields["nomresnew1"]; if (empty($ls_nomnewres)) { $ls_nomnewres = $rs_data->fields["nomresnew2"]; } uf_print_encabezado_pagina($ls_cmpmov, $ls_feccmp, $io_pdf); uf_print_detalles($ls_codact, $ls_denact, $ls_ideact, $ls_seract, $ls_codres, $ls_nomres, $ls_codnewres, $ls_nomnewres, $ls_obscam, $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>"; } } }
print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else // Imprimimos el reporte { $li_totrow=$io_report->io_sql->num_rows($rs_data); $li_totrowtot=$li_totrowtot+$li_totrow; $li_k=0; while($row=$io_report->io_sql->fetch_row($rs_data)) { $li_k=$li_k+1; $ls_codsolvia= $row["codsolvia"]; $io_encabezado=$io_pdf->openObject(); uf_print_encabezado_pagina($ls_codsolvia,$io_encabezado,$io_pdf); // Imprimimos el encabezado de la página $ls_cedper= $row["cedper"]; $ls_nomper= $row["nomper"]." ".$row["apeper"]; $ls_cargo= $row["cargo"]; $ls_desuniadm= $row["desuniadm"]; $ls_codcueban = $row["codcueban"]; $ls_tipcuebanper= $row["tipcuebanper"]; $ls_desded= $row["desded"]; $ls_destipper= $row["destipper"]; $ls_codclavia= $row["codclavia"]; $ld_fecsalvia= $row["fecsalvia"]; $ld_fecregvia= $row["fecregvia"]; $li_numdiavia= $row["numdiavia"]; $ls_denmis= $row["denmis"]; $li_acompanante= $row["acompanante"]; uf_print_cabecera($ls_cedper,$ls_nomper,$ls_desuniadm,$ls_codcueban,$ls_tipcuebanper,$ls_desded,$ls_destipper,
$ls_nomban = $class_report->uf_select_data($io_sql,"SELECT nomban FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban"); $ls_ctaban = $ds_voucher->data["ctaban"][$li_i]; $ls_chevau = $ds_voucher->data["chevau"][$li_i]; $ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]); $ls_nomproben = $ds_voucher->data["nomproben"][$li_i]; $ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban); $ls_conmov = $ds_voucher->getValue("conmov",$li_i); $ldec_monret = $ds_voucher->getValue("monret",$li_i); $ldec_monto = $ds_voucher->getValue("monto",$li_i); //$ldec_total = $ldec_monto-$ldec_monret; $ldec_total = $ldec_monto; //Asigno el monto a la clase numero-letras para la conversion. $numalet->setNumero($ldec_total); //Obtengo el texto del monto enviado. $ls_monto= $numalet->letra(); uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la p�gina uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro $ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte $la_items = array('0'=>'scg_cuenta','1'=>'debhab'); $la_suma = array('0'=>'monto'); $ds_dt_scg->group_by($la_items,$la_suma,'scg_cuenta'); $li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta"); $ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); $la_items = array('0'=>'estpro','1'=>'spg_cuenta'); $la_suma = array('0'=>'monto'); $ds_dt_spg->group_by($la_items,$la_suma,'spg_cuenta'); $li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta"); /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a imprimirlos. ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
{ $ls_denmun = $io_report->uf_select_denominacion('sigesp_municipio','denmun',"WHERE codpai='".$ls_codpai."' AND codest='".$ls_codest."' AND codmun='".$ls_codmun."'"); } $ls_codpar = $row["codpar"]; if ($ls_codpar!="---") { $ls_denpar = $io_report->uf_select_denominacion('sigesp_parroquia','denpar',"WHERE codpai='".$ls_codpai."' AND codest='".$ls_codest."' AND codmun='".$ls_codmun."' AND codpar='".$ls_codpar."'"); } $ls_codmon = $row["codmon"]; if ($ls_codmon!="---") { $ls_moneda = $io_report->uf_select_denominacion('sigesp_moneda','denmon',"WHERE codmon='".$ls_codmon."'"); } uf_print_encabezado_pagina($ls_estcondat,$ls_numordcom,$ld_fecordcom,$ls_codpro,$ls_nompro,$ls_rifpro,$ls_dirpro, $ls_telpro,$ls_denfuefin,$ls_coduniadm,$ls_denuniadm,$ls_obsordcom, $ls_nomdep,$ls_dirdep,$ls_diaplacom,$ls_seguro,$ld_porseg,$ld_monseg,$ls_forpagcom,$ls_conentord, $ld_monantpag,&$io_pdf); /////DETALLE DE LA ORDEN DE COMPRA $rs_datos = $io_report->uf_select_detalle_orden_imprimir($ls_numordcom,$ls_estcondat,&$lb_valido); if ($lb_valido) { $li_totrows = $io_sql->num_rows($rs_datos); if ($li_totrows>0) { $li_i = 0; while($row=$io_sql->fetch_row($rs_datos)) { $li_i++; $ls_codartser=$row["codartser"]; $ls_denartser=$row["denartser"]; if($ls_estcondat=="B")
$ls_lugentdir=$row["lugentdir"]; $ls_estlugcom=$row["estlugcom"]; if($ls_tiporeporte==0) { $ld_montotaux=$row["montotaux"]; $ld_montotaux=number_format($ld_montotaux,2,",","."); } $numalet->setNumero($ld_montot); $ls_monto= $numalet->letra(); $ld_montot=number_format($ld_montot,2,",","."); $ld_monsubtot=number_format($ld_monsubtot,2,",","."); $ld_monimp=number_format($ld_monimp,2,",","."); $ld_fecordcom=$io_funciones->uf_convertirfecmostrar($ld_fecordcom); uf_print_encabezado_pagina($ls_estcondat,$ls_numordcom,$ld_fecordcom,$ls_coduniadm,$ls_denuniadm, $ls_lugentdir,$ls_estlugcom,$ls_codpro,$ls_nompro,$ls_obscom,$ls_rifpro, $ls_diaplacom,$ls_dirpro,$ls_forpagcom,&$io_pdf); /////DETALLE DE LA ORDEN DE COMPRA $rs_datos = $io_report->uf_select_detalle_orden_imprimir($ls_numordcom,$ls_estcondat,&$lb_valido); if ($lb_valido) { $li_totrows = $io_sql->num_rows($rs_datos); if ($li_totrows>0) { $li_i = 0; while($row=$io_sql->fetch_row($rs_datos)) { $li_i=$li_i+1; $ls_codartser=$row["codartser"]; $ls_denartser=$row["denartser"]; if($ls_estcondat=="B")
$ls_consol = $io_report->DS->data["consol"][$li_i]; $ls_numdoc = $io_report->DS->data["numdoc"][$li_i]; $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 {
$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'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(3.5, 3, 2.5, 2.5); // Configuracin de los margenes en centmetros uf_print_titulo(&$io_pdf); $io_pdf->ezStartPageNumbers(970, 40, 10, '', '', 1); // Insertar el nmero de pgina $lb_valido = $io_report->uf_select_report_libcompra($as_fechadesde, $as_fechahasta, &$rs_resultado); uf_print_encabezado_pagina($ls_titulo, $ls_mesletras, $ls_agno, &$io_pdf); uf_print_cabecera(&$io_pdf); $ldec_totimp8 = 0; //Variable de tipo acumulador que almacenara el monto total de los impuestos a 8%. $ldec_totimp9 = 0; //Variable de tipo acumulador que almacenara el monto total de los impuestos a 14%. $ldec_totimp25 = 0; //Variable de tipo acumulador que almacenara el monto total de los impuestos a 25%. $ldec_totbasimp8 = 0; $ldec_totbasimp9 = 0; $ldec_totbasimp25 = 0; $ldec_totcomsiniva = 0; if ($lb_valido) { $li = 0; while ($row = $io_report->io_sql->fetch_row($rs_resultado)) { $li++;
$li_totrow=$io_report->ds_disponibilidad->getRowCount("codban"); if($li_totrow<=0) { ?> <script language=javascript> alert('No hay datos a reportar'); close(); </script> <?php exit(); } $io_pdf=new Cezpdf('LETTER','landscape'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(3.5,3.5,3.5,3.5); // Configuración de los margenes en centímetros uf_print_encabezado_pagina("<b>Disponibilidad Financiera $ls_tipbol</b>","<b>Detallada al</b> ".$ld_fecha,$io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(700,50,10,'','',1); // Insertar el número de página $li_aux=0; $ldec_mondeb=0; $ldec_monhab=0; $ldec_monant=0; for($i=1;$i<=$li_totrow;$i++) { $li_aux=$li_aux+1; $li_totprenom=0; $li_totant=0; $ls_codban=$io_report->ds_disponibilidad->getValue("codban",$i); $ls_nomban=$io_report->ds_disponibilidad->getValue("nomban",$i); if($i>1) { $ls_nombananterior=$io_report->ds_disponibilidad->getValue("nomban",$i-1);
$li_i = 0; while($row=$io_sql->fetch_row($rs_datos)) { $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>"); }
$ls_simmon = "$"; } $numalet->setNumero($ld_montot); $ls_monto= $numalet->letra(); $ld_montot=number_format($ld_montot,2,",","."); $ld_monsubtot=number_format($ld_monsubtot,2,",","."); $li_tasa=number_format($li_tasa,2,",","."); $ld_monimp=number_format($ld_monimp,2,",","."); $li_totconv=number_format($li_totconv,2,",","."); $ld_fecordcom=$io_funciones->uf_convertirfecmostrar($ld_fecordcom); if($li_tasa==0) { $li_tasa=""; $li_totconv=""; } uf_print_encabezado_pagina($ls_estcondat,$ls_numordcom,$ld_fecordcom,&$io_pdf); uf_print_cuadros_superiores($ls_estlugcom,$ls_concom,$ls_nompro,$ls_dirpro,$ls_telpro,$li_diaplacom,$ls_forpagcom, $ls_lugentdir,&$io_pdf); /////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_obssol = $io_report->DS->data["obssol"][$li_i]; $li_monsol = $io_report->DS->data["monsol"][$li_i]; $numalet->setNumero($li_monsol); $ls_monto = $numalet->letra(); $li_monsol = number_format($li_monsol, 2, ",", "."); $ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol); if ($ls_codpro != "----------") { $ls_codproben = $ls_codpro; } else { $ls_codproben = $ls_cedbene; } if ($ls_tiporeporte == 0) { $li_monsolaux = $io_report->DS->data["monsolaux"][$li_i]; $li_monsolaux = number_format($li_monsolaux, 2, ",", "."); } uf_print_encabezado_pagina($ls_titulo, $ls_numsol, $ld_fecemisol, $ls_codproben, $ls_nomproben, $ls_rifpro, $ls_consol, $ls_monto, $li_monsol, &$io_pdf); ////////////////////////// GRID RECEPCIONES DE DOCUMENTOS ////////////////////////////////////// $io_report->ds_detalle->reset_ds(); $lb_valido = $io_report->uf_select_rec_doc_solicitud($ls_numsol); // Cargar el DS con los datos del reporte if ($lb_valido) { $li_totrowdet = $io_report->ds_detalle_rec->getRowCount("numrecdoc"); $la_data = ""; $li_totsubtot = 0; $li_tottot = 0; $li_totcar = 0; $li_totded = 0; for ($li_s = 1; $li_s <= $li_totrowdet; $li_s++) { $ls_numrecdoc = $io_report->ds_detalle_rec->data["numrecdoc"][$li_s]; $ld_fecemidoc = $io_report->ds_detalle_rec->data["fecemidoc"][$li_s]; $ls_numdoccomspg = $io_report->ds_detalle_rec->data["numdoccomspg"][$li_s];
$ld_perentdesde=$io_funciones->uf_convertirfecmostrar($ld_perentdesde); $ld_perenthasta=$io_funciones->uf_convertirfecmostrar($ld_perenthasta); if($ls_tiporeporte==0) { $ld_montotaux=$row["montotaux"]; $ld_montotaux=number_format($ld_montotaux,2,",","."); } $numalet->setNumero($ld_montot); $ls_monto= $numalet->letra(); $ld_montot=number_format($ld_montot,2,",","."); $ld_monsubtot=number_format($ld_monsubtot,2,",","."); $ld_monimp=number_format($ld_monimp,2,",","."); $ld_fecordcom=$io_funciones->uf_convertirfecmostrar($ld_fecordcom); uf_print_encabezado_pagina($ls_estcondat,$ls_numordcom,$ld_fecordcom,$ls_coduniadm,$ls_denuniadm, $ls_codfuefin,$ls_denfuefin,$ls_codpro,$ls_nompro,$ls_obscom,$ls_rifpro, $ls_diaplacom,$ls_dirpro,$ls_forpagcom,$ld_perentdesde,$ld_perenthasta,&$io_pdf); /////DETALLE DE LA ORDEN DE COMPRA $rs_datos = $io_report->uf_select_detalle_orden_imprimir($ls_numordcom,$ls_estcondat,&$lb_valido); if ($lb_valido) { $li_totrows = $io_sql->num_rows($rs_datos); if ($li_totrows>0) { $li_i = 0; while($row=$io_sql->fetch_row($rs_datos)) { $li_i=$li_i+1; $ls_codartser=$row["codartser"]; $ls_denartser=$row["denartser"]; if($ls_estcondat=="B")
if ($lb_valido==false) { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else { error_reporting(E_ALL); set_time_limit(1800); $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(6.2,4,3,3); // Configuración de los margenes en centímetros $ls_titulo = "<b>SOLICITUD DE MODIFICACIÓN PRESUPUESTARIA Nº. ".$ls_comprobante."</b>"; uf_print_encabezado_pagina($ls_titulo,$ls_procede,$ld_fecha,$io_pdf); // Imprimimos el encabezado de la página $li_total = count($ia_niveles_scg); $li_numrows = 0; $lb_ok= $io_report->uf_select_dt_comprobante($ls_codemp,$ls_procede,$ls_comprobante,$ld_fecha,&$li_numrows,$rs_dat); if ($li_numrows==0) { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else { $li_pos = 0; $lb_impreso = false;
print "<script language=JavaScript>"; print " alert('No hay nada que Reportar');"; print " close();"; print "</script>"; } else { error_reporting(E_ALL); set_time_limit(1800); $io_pdf = new Cezpdf('LEGAL', 'landscape'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(3.5, 3, 3, 3); // Configuración de los margenes en centímetros $ld_fecha = $io_report->ds->data["feccmp"][1]; $ld_fechaaux = $io_funciones->uf_convertirfecmostrar($ld_fecha); uf_print_encabezado_pagina($ls_titulo, $ls_cmpmov, $ld_fechaaux, $io_pdf); // Imprimimos el encabezado de la página $li_totrow = $io_report->ds->getRowCount("cmpmov"); for ($li_i = 1; $li_i <= $li_totrow; $li_i++) { $io_pdf->transaction('start'); // Iniciamos la transacción $li_numpag = $io_pdf->ezPageCount; // Número de página $li_totprenom = 0; $li_totant = 0; $ls_codcau = $io_report->ds->data["codcau"][$li_i]; $ls_dencau = $io_report->ds->data["dencau"][$li_i]; $ls_descmp = $io_report->ds->data["descmp"][$li_i]; uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_codcau, $ls_dencau, $ls_descmp, $io_pdf); // Imprimimos la cabecera del registro $lb_valido = $io_report->uf_siv_load_dt_movreasignacion($ls_codemp, $ls_cmpmov, $ls_codcau);
} else { ///////////////////////////////// SEGURIDAD //////////////////////////////////////////////////// $ls_desc_event = "Generó un reporte de Relacion de Bienes Muebles Faltantes. Desde el activo " . $ls_coddesde . " hasta " . $ls_codhasta; $io_fun_activos->uf_load_seguridad_reporte("SAF", "sigesp_saf_r_activo.php", $ls_desc_event); //////////////////////////////// SEGURIDAD ///////////////////////////////////////////////////// error_reporting(E_ALL); set_time_limit(1800); $io_pdf = new Cezpdf('LEGAL', 'landscape'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(3.5, 3, 3, 3); // Configuración de los margenes en centímetros $io_pdf->ezStartPageNumbers(940, 50, 10, '', '', 1); // Insertar el número de página uf_print_encabezado_pagina($ls_titulo, "", $ld_fecha, $io_pdf); // Imprimimos el encabezado de la página $li_totrow = $io_report->ds->getRowCount("cmpmov"); $i = 0; for ($li_i = 1; $li_i <= $li_totrow; $li_i++) { $io_pdf->transaction('start'); // Iniciamos la transacción $li_numpag = $io_pdf->ezPageCount; // Número de página $ls_cmpmov = $io_report->ds->data["cmpmov"][$li_i]; $ls_coduniadm = $io_report->ds->data["coduniadm"][$li_i]; $ld_feccmp = $io_report->ds->data["feccmp"][$li_i]; $ld_feccmp = $io_funciones->uf_convertirfecmostrar($ld_feccmp); $lb_valido = $io_report->uf_saf_load_dt_relbiemuefal($ls_codemp, $ls_coduniadm, $ls_cmpmov, $ld_desde, $ld_hasta, $ls_coddesde, $ls_codhasta, $ls_grupo, $ls_subgrupo, $ls_seccion, $li_orden); // Obtenemos el detalle del reporte if ($lb_valido) {
} if($lb_valido==false) // Existe algún error ó no hay registros { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); //print(" close();"); print("</script>"); } else // Imprimimos el reporte { error_reporting(E_ALL); set_time_limit(1800); $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,2.5,3,3); // Configuración de los margenes en centímetros uf_print_encabezado_pagina($io_pdf); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(580,50,7,'','',1); // Insertar el número de página $li_totrow=$io_report->DS->getRowCount("codper"); $li_numrowtot=$io_report->io_sql->num_rows($rs_data); $li_numrowtot2=$io_report->io_sql->num_rows($rs_data); $i=0; $j=0; $ld_neto1=0; $ld_neto2=0; if ($li_numrowtot>0) { while ($li_numrowtot2>0) { $li_numrowtot2=$li_numrowtot2-1; $row=$io_report->io_sql->fetch_row($rs_data); $ls_cedper=$row["cedper"];
} if(($lb_valido==false) || ($io_report->rs_data->RecordCount()==0)) // Existe algún error ó no hay registros { print("<script language=JavaScript>"); print(" alert('No hay nada que Reportar');"); print(" close();"); print("</script>"); } else // Imprimimos el reporte { error_reporting(E_ALL); set_time_limit(1800); $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,1,1,2); // Configuración de los margenes en centímetros uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página $li_totrow=$io_report->rs_data->RecordCount(); $li_i=1; while((!$io_report->rs_data->EOF)&&($lb_valido)) { $li_toting=0; $li_totded=0; $ls_codper=$io_report->rs_data->fields["codper"]; $ls_cedper=$io_report->rs_data->fields["cedper"]; $ls_nomper=$io_report->rs_data->fields["apeper"].", ".$io_report->rs_data->fields["nomper"]; $ls_descar=$io_report->rs_data->fields["descar"]; $ls_codcueban=$io_report->rs_data->fields["codcueban"]; $li_total=$io_report->rs_data->fields["total"]; $ls_unidad=$io_report->rs_data->fields["minorguniadm"].$io_report->rs_data->fields["ofiuniadm"]. $io_report->rs_data->fields["uniuniadm"].$io_report->rs_data->fields["depuniadm"]. $io_report->rs_data->fields["prouniadm"];
$ls_bolivares="Bs.F."; } error_reporting(E_ALL); set_time_limit(3000); $io_pdf=new class_pdf('LETTER','landscape'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->numerar_paginas(7); $io_pdf->set_margenes(0,20,0,0); $ls_tipsolcot=$_GET["tipsolcot"]; $ls_numanacot=$_GET["numanacot"]; $ld_fecha=$_GET["fecha"]; $ls_observacion=$_GET["observacion"]; $lb_valido=uf_insert_seguridad(); if($lb_valido) { uf_print_encabezado_pagina($ls_numanacot,$ls_observacion,$ld_fecha,$io_pdf); $lb_valido=$io_class_report->uf_cargar_cotizaciones($ls_numanacot, $la_cotizaciones); if($lb_valido) { uf_print_proveedores($la_cotizaciones,$io_pdf); $lb_valido=$io_class_report->uf_select_items($ls_numanacot,$ls_tipsolcot,$la_items); if($lb_valido) { $io_pdf->set_margenes(20,20,0,0); uf_print_items($ls_tipsolcot,$la_items,$io_pdf); $la_ganadores=$io_class_report->uf_select_cotizacion_analisis($ls_numanacot,$ls_tipsolcot); uf_print_ganadores($ls_numanacot,$ls_tipsolcot,$la_ganadores,$io_pdf); $io_pdf->set_margenes(0,0,0,0); //uf_print_pie_pagina($io_pdf); $io_pdf->ezStream(); unset($io_pdf);