"; print "close();"; print "opener.document.form1.submit();"; print ""; } //----------------------------------------------------------------------------------------------------------------------------------- function uf_insert_seguridad($as_titulo) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_insert_seguridad // Access: private // Arguments: as_titulo // Título del reporte // Description: función que guarda la seguridad de quien generó el reporte // Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang // Fecha Creación: 03/07/2007 ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_fun_cxp; $ls_descripcion="Generó el Reporte ".$as_titulo; $lb_valido=$io_fun_cxp->uf_load_seguridad_reporte("CXP","sigesp_cxp_r_retencionesislr.php",$ls_descripcion); return $lb_valido; } //----------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_encabezado_pagina($as_titulo,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_encabezadopagina // Access: private // Arguments: as_titulo // Título del Reporte // io_pdf // Instancia de objeto pdf // Description: función que imprime los encabezados por página // Creado Por: Ing. Yesenia Moreno / Ing. Luis Lang // Fecha Creación: 04/07/2007 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_encabezado=$io_pdf->openObject(); $io_pdf->saveState(); $io_pdf->line(50,40,960,40); $io_pdf->addJpegFromFile('../../shared/imagebank/'.$_SESSION["ls_logo"],47,539,$_SESSION["ls_width"],$_SESSION["ls_height"]); // Agregar Logo $io_pdf->addText(910,595,8,date("d/m/Y")); // Agregar la Fecha $io_pdf->addText(916,585,7,date("h:i a")); // Agregar la Hora $io_pdf->setStrokeColor(0,0,0); $io_pdf->addText(240,555,13,"".$as_titulo.""); // Agregar el t?ulo $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_encabezado,'all'); }// end function uf_print_encabezadopagina //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_encabezado($ad_fecrep,$as_agente,$as_nombre,$as_rifagenteret,$as_rif,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_encabezado // Access: private // Arguments: as_agente // Nombre del agente de retención // as_nombre // Nombre del proveedor ó beneficiario // as_rif // Rif del proveedor ó beneficiario // as_nit // nit del proveedor ó beneficiario // as_telefono // Telefono del proveedor ó beneficiario // as_direccion // Dirección del proveedor ó beneficiario // io_pdf // Instancia de objeto pdf // Description: función que imprime el detalle por recepción // Creado Por: Ing. Yesenia Moreno / Ing. Luis Lang // Fecha Creación: 05/07/2007 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pdf->setStrokeColor(0,0,0); $io_pdf->Rectangle(500,483,100,28); $io_pdf->addText(505,500,9,"FECHA"); // Agregar el titulo $io_pdf->addText(505,485,9,date("d/m/Y")); // Agregar el titulo $la_data[1]=array('titulo'=>''); $la_columna=array('titulo'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'showLines'=>0, // Mostrar Letras 'shaded'=>0, // Sombra entre lineas 'xOrientation'=>'center', // Orientacion de la tabla 'width'=>500, // Ancho de la tabla 'justification'=>'center', // Ancho de la tabla 'maxWidth'=>500, 'cols'=>array('titulo'=>array('justification'=>'center','width'=>500))); // Ancho M?imo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $la_data[1]=array('name'=>'NOMBRE O RAZON SOCIAL DEL AGENTE DE RETENCION '); $la_data[2]=array('name'=>$as_agente.''); $la_columna=array('name'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 9, // Tamaño de Letras 'showLines'=>1, // Mostrar lineas 'shaded'=>0, // Sombra entre lineas 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra 'xPos'=>250, // Orientacion de la tabla 'width'=>300, // Ancho de la tabla 'maxWidth'=>300, 'yPos'=>200 ); // Ancho Minimo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $io_pdf->Rectangle(500,439,270,30); $io_pdf->addText(505,458,9,"RIF. DEL AGENTE DE RETENCION"); // Agregar el titulo $io_pdf->addText(505,443,9,$as_rifagenteret); // Agregar el t?ulo //--------------------------------------------------------------------------------------------------- $la_data[1]=array('titulo'=>''); $la_columna=array('titulo'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'showLines'=>0, // Mostrar Letras 'shaded'=>0, // Sombra entre lineas 'xOrientation'=>'center', // Orientacion de la tabla 'width'=>500, // Ancho de la tabla 'justification'=>'center', // Ancho de la tabla 'maxWidth'=>500, 'cols'=>array('titulo'=>array('justification'=>'center','width'=>500))); // Ancho Minimo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); //--------------------------------------------------------------------------------------------------- $la_data[1]=array('titulo'=>''); $la_columna=array('titulo'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'showLines'=>0, // Mostrar Letras 'shaded'=>0, // Sombra entre lineas 'xOrientation'=>'center', // Orientacion de la tabla 'width'=>500, // Ancho de la tabla 'justification'=>'center', // Ancho de la tabla 'maxWidth'=>500, 'cols'=>array('titulo'=>array('justification'=>'center','width'=>500))); // Ancho Minimo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); //--------------------------------------------------------------------------------------------------- $la_data[1]=array('name'=>'NOMBRE O RAZON SOCIAL DEL PROVEEDOR '); $la_data[2]=array('name'=>$as_nombre.''); $la_columna=array('name'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 9, // Tamaño de Letras 'showLines'=>1, // Mostrar lineas 'shaded'=>0, // Sombra entre lineas 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra 'xPos'=>250, // Orientacion? de la tabla 'width'=>300, // Ancho de la tabla 'maxWidth'=>300); // Ancho Minimo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $io_pdf->Rectangle(500,395,270,30); $io_pdf->addText(505,413,9,"RIF. DEL PROVEEDOR"); // Agregar el titulo $io_pdf->addText(505,398,9,$as_rif); // Agregar el titulo }// end function uf_print_encabezado //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_detalle($la_data,$ai_totalconiva,$ai_totalbaseimp,$ai_totalporcentaje,$ai_totalivaret,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_detalle // Access: private // Arguments: as_numsol // Número de recepción // as_concepto // Concepto de la solicitud // as_fechapago // Fecha de la recepción // ad_monto // monto de la recepción // ad_monret // monto retenido // ad_porcentaje // porcentaje de retención // as_numcon // numero de referencia // io_pdf // Instancia de objeto pdf // Description: función que imprime el detalle por recepción // Creado Por: Ing. Yesenia Moreno / Ing. Luis Lang // Fecha Creación: 05/07/2007 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $la_data1[1]=array('titulo'=>''); $la_columna=array('titulo'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'showLines'=>0, // Mostrar Letras 'shaded'=>0, // Sombra entre lineas 'xOrientation'=>'center', // Orientacion de la tabla 'width'=>900, // Ancho de la tabla 'justification'=>'center', // Ancho de la tabla 'maxWidth'=>900, 'cols'=>array('titulo'=>array('justification'=>'center','width'=>900))); // Ancho Minimo de la tabla $io_pdf->ezTable($la_data1,$la_columna,'',$la_config); unset($la_data1); unset($la_columna); unset($la_config); $ls_titulo1="Total Compras Incluyendo el IVA"; $la_columna=array('numche'=>'Nro. del Cheque', 'fecche'=>'Fecha del Cheque', 'fecfac'=>'Fecha de la Factura', 'numfac'=>'Numero de Factura', 'numref'=>'Num. Ctrol de Factura', 'numnotdeb'=>'Numero Nota Debit.', 'numnotcre'=>'Numero Nota Crdt.', 'totalconiva'=>''.$ls_titulo1.'', 'baseimp'=>'Base Imponible', 'porimp'=>'% Alicuota', 'totimp'=>'ISLR Retenido'); $la_config=array('showHeadings'=>1, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'titleFontSize' => 9, // Tamaño de Letras de los títulos 'showLines'=>1, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'width'=>900, // Ancho de la tabla 'maxWidth'=>900, // Ancho Mínimo de la tabla 'xPos'=>500, // Orientación de la tabla 'cols'=>array('numche'=>array('justification'=>'center','width'=>110), 'fecche'=>array('justification'=>'center','width'=>120), 'fecfac'=>array('justification'=>'center','width'=>60), // Justificacion y ancho de la columna 'numfac'=>array('justification'=>'center','width'=>80), // Justificacion y ancho de la columna 'numref'=>array('justification'=>'center','width'=>80), // Justificacion y ancho de la columna 'numnotdeb'=>array('justification'=>'center','width'=>50), 'numnotcre'=>array('justification'=>'center','width'=>50), 'totalconiva'=>array('justification'=>'center','width'=>90), 'baseimp'=>array('justification'=>'center','width'=>70), 'porimp'=>array('justification'=>'center','width'=>45), 'totimp'=>array('justification'=>'center','width'=>70))); $io_pdf->ezSetDy(-15); $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $la_data[1]=array('numche'=>'','fecche'=>'','fecfac'=>'','numfac'=>'','numref'=>'','numnotdeb'=>'TOTAL','numnotcre'=>'', 'name1'=>$ai_totalconiva,'name3'=>$ai_totalbaseimp,'name4'=>$ai_totalporcentaje,'name5'=>$ai_totalivaret); $la_columna=array('numche'=>'','fecche'=>'','fecfac'=>'','numfac'=>'','numref'=>'','numnotdeb'=>'','numnotcre'=>'', 'name1'=>'','name3'=>'','name4'=>'','name5'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' =>8, // Tamaño de Letras 'showLines'=>1, // Mostrar Lineas 'shaded'=>0, // Sombra entre Lineas 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra 'xPos'=>500, 'yPos'=>734, // Orientacion de la tabla 'width'=>900, 'maxWidth'=>900, 'cols'=>array('numche'=>array('justification'=>'center','width'=>110), // Justificacion y ancho de la columna 'fecche'=>array('justification'=>'center','width'=>120), 'fecfac'=>array('justification'=>'center','width'=>60), // Justificacion y ancho de la columna 'numfac'=>array('justification'=>'center','width'=>80), // Justificacion y ancho de la columna 'numref'=>array('justification'=>'center','width'=>80), // Justificacion y ancho de la columna 'numnotdeb'=>array('justification'=>'center','width'=>50), 'numnotcre'=>array('justification'=>'center','width'=>50), 'name1'=>array('justification'=>'center','width'=>90), // Justificacion y ancho de la columna 'name3'=>array('justification'=>'center','width'=>70), // Justificacion y ancho de la columna 'name4'=>array('justification'=>'center','width'=>45), 'name5'=>array('justification'=>'center','width'=>70))); $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); }// end function uf_print_detalle //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_firmas(&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_firmas // Access: private // Arguments: io_pdf // Instancia de objeto pdf // Description: función que imprime el detalle por recepción // Creado Por: Ing. Yesenia Moreno / Ing. Luis Lang // Fecha Creación: 05/07/2007 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $la_data[0]=array('firma1'=>'','firma2'=>''); $la_data[1]=array('firma1'=>'','firma2'=>''); $la_data[2]=array('firma1'=>'_______________________________','firma2'=>'____________________________'); $la_data[3]=array('firma1'=>'FIRMA DEL AGENTE DE RETENCION','firma2'=>'FIRMA DEL PROVEEDOR'); $la_data[4]=array('firma1'=>'','firma2'=>''); $la_columna=array('firma1'=>'','firma2'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 10, // Tamaño de Letras 'showLines'=>0, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'outerLineThickness'=>0.5, 'innerLineThickness' =>0.5, 'width'=>500, // Ancho Máximo de la tabla 'xOrientation'=>'center', // Orientación de la tabla 'cols'=>array('firma1'=>array('justification'=>'center','width'=>250), // Justificación y ancho de la columna 'firma2'=>array('justification'=>'center','width'=>250))); // Justificación y ancho de la columna $io_pdf->ezTable($la_data,$la_columna,'',$la_config); }// end function uf_print_firmas //-------------------------------------------------------------------------------------------------------------------------------- require_once("../../shared/ezpdf/class.ezpdf.php"); require_once("sigesp_cxp_class_report.php"); $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(); //---------------------------------------------------- Parámetros del encabezado ----------------------------------------------- $ls_titulo="COMPROBANTE DE RETENCION I.S.L.R."; $ls_agente=$_SESSION["la_empresa"]["nombre"]; $ls_rifagenteret=$_SESSION["la_empresa"]["rifemp"]; //-------------------------------------------------- Parámetros para Filtar el Reporte ----------------------------------------- $ls_comprobantes=$io_fun_cxp->uf_obtenervalor_get("comprobantes",""); $ls_procedencias=$io_fun_cxp->uf_obtenervalor_get("procedencias",""); $ls_tiporeporte=$io_fun_cxp->uf_obtenervalor_get("tiporeporte",0); global $ls_tiporeporte; if($ls_tiporeporte==1) { require_once("sigesp_cxp_class_reportbsf.php"); $io_report=new sigesp_cxp_class_reportbsf(); } //-------------------------------------------------------------------------------------------------------------------------------- $lb_valido=uf_insert_seguridad($ls_titulo); // Seguridad de Reporte if($lb_valido) { $la_procedencias=split('<<<',$ls_procedencias); $la_comprobantes=split('<<<',$ls_comprobantes); $la_datos=array_unique($la_comprobantes); $li_totrow=count($la_datos); sort($la_datos,SORT_STRING); if($li_totrow<=0) { print(""); } else { //error_reporting(E_ALL); //set_time_limit(1800); $io_pdf=new Cezpdf('LEGAL','landscape'); $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); $io_pdf->ezSetCmMargins(3.5,3,3,3); $lb_valido=true; $ls_codigoant=""; for ($li_z=0;($li_z<$li_totrow)&&($lb_valido);$li_z++) { uf_print_encabezado_pagina($ls_titulo,$io_pdf); $ls_numsol=$la_datos[$li_z]; $ls_numcom=$la_datos[$li_z]; $ls_procede=$la_procedencias[$li_z]; if($ls_procede=="SCBBCH") { $lb_valido=$io_report->uf_retencionesislr_scb($ls_numsol); } else { $lb_valido=$io_report->uf_retencionesislr_cxp($ls_numsol); } if($lb_valido) { $li_totalconiva = 0; $li_totalbaseimp = 0; $li_totalivaret = 0; $li_totalporcentaje= 0; $li_total=$io_report->DS->getRowCount("numdoc"); for($li_i=1;($li_i<=$li_total);$li_i++) { $ls_tipproben=$io_report->DS->data["tipproben"][$li_i]; if($ls_tipproben=="P") { $ls_codigo=$io_report->DS->data["cod_pro"][$li_i]; $ls_nombre=$io_report->DS->data["proveedor"][$li_i]; $ls_rif=$io_report->DS->data["rifpro"][$li_i]; } else { $ls_codigo=$io_report->DS->data["ced_bene"][$li_i]; $ls_nombre=$io_report->DS->data["beneficiario"][$li_i]; $ls_rif=$io_report->DS->data["rifben"][$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=$io_report->DS->data["montotdoc"][$li_i]; $li_monobjret=$io_report->DS->data["monobjret"][$li_i]; $li_retenido=$io_report->DS->data["retenido"][$li_i]; $li_porcentaje=$io_report->DS->data["porcentaje"][$li_i]; $li_montotdoc=$io_report->DS->data["montotdoc"][$li_i]; $li_moncardoc=$io_report->DS->data["moncardoc"][$li_i]; $li_mondeddoc=$io_report->DS->data["mondeddoc"][$li_i]; $li_totsiniva=($li_montotdoc-$li_moncardoc+$li_mondeddoc); $li_totconiva=($li_totsiniva+$li_moncardoc); $ls_numche = $io_report->DS->data["cheque"][$li_i]; $ls_numfac = $io_report->DS->data["numdoc"][$li_i]; $ls_fecche=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecche"][$li_i]); $li_montotdoc=number_format($li_montotdoc,2,",","."); $li_monobjret=number_format($li_monobjret,2,',','.'); $li_retenido=number_format($li_retenido,2,',','.'); $li_porcentaje=number_format($li_porcentaje,2,',',','); $la_data[$li_i]=array('numche'=>$ls_numche,'fecche'=>$ls_fecche,'fecfac'=>$ld_fecemidoc, 'numfac'=>$ls_numfac,'numref'=>$ls_numref,'numnotdeb'=>'','numnotcre'=>'', 'totalconiva'=>$li_totconiva,'baseimp'=>$li_monobjret,'porimp'=>$li_porcentaje, 'totimp'=>$li_retenido,'ivaret'=>'','totalsiniva'=>''); } $li_totconiva=number_format($li_totconiva,2,',',','); $li_totalconiva=$li_totalconiva + $li_totconiva; $li_totalbaseimp=$li_totalbaseimp + $li_monobjret ; $li_totalporcentaje=$li_totalporcentaje + $li_porcentaje; $li_totalivaret=$li_totalivaret + $li_retenido; $li_totalconiva= number_format($li_totalconiva,2,",","."); $li_totalbaseimp= number_format($li_totalbaseimp,2,",","."); $li_totalporcentaje= number_format($li_totalporcentaje,2,',','.'); $li_totalivaret= number_format($li_totalivaret,2,",","."); if($ls_codigo!=$ls_codigoant) { if($li_z>=1) { uf_print_firmas($io_pdf); $io_pdf->ezNewPage(); } uf_print_encabezado($ld_fecemidoc,$ls_agente,$ls_nombre,$ls_rifagenteret,$ls_rif,&$io_pdf); $ls_codigoant=$ls_codigo; } uf_print_detalle($la_data,$li_totalconiva,$li_totalbaseimp,$li_totalporcentaje,$li_totalivaret,&$io_pdf); } } } uf_print_firmas($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(""); } unset($io_pdf); } unset($io_report); unset($io_funciones); unset($io_fun_cxp); ?>