"; 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,$as_numdoc,$ld_fecemidoc,$perfiscal) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // 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 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_pdf,$io_encabezado; $io_encabezado=$io_pdf->openObject(); $io_pdf->saveState(); $ls_y=substr($ld_fecemidoc,6,4); $ls_m=substr($ld_fecemidoc,3,2); $perfiscal = substr($perfiscal,0,4).'-'.substr($perfiscal,4,2); $io_pdf->setStrokeColor(0,0,0); $io_pdf->addJpegFromFile('../../shared/imagebank/'.$_SESSION["ls_logo"],40,510,$_SESSION["ls_width"],$_SESSION["ls_height"]); // Agregar Logo $li_tm=$io_pdf->getTextWidth(10,$as_titulo); $io_pdf->rectangle(40,470,700,30); $io_pdf->addText(150,480,15,"COMPROBANTE DE RETENCION IMPUESTO SOBRE LA RENTA ");// Agregar el título $io_pdf->rectangle(420,510,320,40); $io_pdf->line(420,530,740,530); $io_pdf->line(526,510,526,550); $io_pdf->line(632,510,632,550); $io_pdf->addText(430,535,9,"0. No. Comprobante "); $io_pdf->addText(435,515,9,$as_numdoc); $io_pdf->addText(560,535,9,"1. Fecha "); $io_pdf->addText(565,515,9,$ld_fecemidoc); $io_pdf->addText(640,535,9,"4. Periodo Fiscal "); $io_pdf->addText(660,515,9,$perfiscal); $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_encabezado,'all'); }// end function uf_print_encabezadopagina //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_encabezado($as_agente,$as_nomproben,$as_rifproben) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // 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. Néstor Falcón. // Fecha Creación: 05/07/2007 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_pdf,$strsol,$strfact; $ls_rifageret = $_SESSION["la_empresa"]["rifemp"]; $ls_dirageret = $_SESSION["la_empresa"]["direccion"]; $la_data = array(array('ageret'=>$as_agente,'rifageret'=>$ls_rifageret)); $la_columna = array('ageret'=>'2. NOMBRE O RAZON SOCIAL DEL AGENTE DE RETENCION','rifageret'=>'3. REGISTRO DE INFORMACION FISCAL DEL AGENTE DE RETENCION'); $la_config = array('showHeadings'=>1, // Mostrar encabezados 'showLines'=>1, // Mostrar Líneas 'fontSize' => 9, // Tamaño de Letras 'titleFontSize' =>9, // Tamaño de Letras de los títulos 'shaded'=>2, // Sombra entre líneas 'shadeCol'=>array(1,1,1), 'shadeCol2'=>array(1,1,1), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>530, // Ancho de la tabla 'maxWidth'=>530, 'cols'=>array('ageret'=>array('justification'=>'left','width'=>350), 'rifageret'=>array('justification'=>'left','width'=>350))); // Ancho Máximo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $io_pdf->ezSetDy(-5); $la_data = array(array('dirageret'=>$ls_dirageret)); $la_columna = array('dirageret'=>'5. DIRECCION FISCAL DEL AGENTE DE RETENCION'); $la_config=array('showHeadings'=>1, // Mostrar encabezados 'showLines'=>1, // Mostrar Líneas 'fontSize' => 9, // Tamaño de Letras 'titleFontSize' =>9, // Tamaño de Letras de los títulos 'shaded'=>2, // Sombra entre líneas 'shadeCol'=>array(1,1,1), 'shadeCol2'=>array(1,1,1), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>530, // Ancho de la tabla 'maxWidth'=>530, 'cols'=>array('dirageret'=>array('justification'=>'left','width'=>700))); // Ancho Máximo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $io_pdf->ezSetDy(-5); $la_data = array(array('nompro'=>$as_nomproben,'rifpro'=>$as_rifproben)); $la_columna = array('nompro'=>'6. NOMBRE O RAZON SOCIAL DEL SUJETO RETENIDO','rifpro'=>'7.REGISTRO DE INFORMACION FISCAL DEL SUJETO RETENIDO (RIF)'); $la_config=array('showHeadings'=>1, // Mostrar encabezados 'showLines'=>1, // Mostrar Líneas 'fontSize' => 9, // Tamaño de Letras 'titleFontSize' =>9, // Tamaño de Letras de los títulos 'shaded'=>2, // Sombra entre líneas 'shadeCol'=>array(1,1,1), 'shadeCol2'=>array(1,1,1), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>530, // Ancho de la tabla 'maxWidth'=>530, 'cols'=>array('nompro'=>array('justification'=>'left','width'=>350), 'rifpro'=>array('justification'=>'left','width'=>350))); // Ancho Máximo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $io_pdf->ezSetDy(-5); $la_data = array(array('fact'=>$strfact,'sol'=>$strsol)); $la_columna = array('fact'=>'8. FACTURAS ','sol'=>'9. SOLICITUDES'); $la_config=array('showHeadings'=>1, // Mostrar encabezados 'showLines'=>1, // Mostrar Líneas 'fontSize' => 9, // Tamaño de Letras 'titleFontSize' =>9, // Tamaño de Letras de los títulos 'shaded'=>2, // Sombra entre líneas 'shadeCol'=>array(1,1,1), 'shadeCol2'=>array(1,1,1), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>700, // Ancho de la tabla 'maxWidth'=>700, 'cols'=>array('fact'=>array('justification'=>'left','width'=>350), 'sol'=>array('justification'=>'left','width'=>350))); // Ancho Máximo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); }// end function uf_print_encabezado //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_detalle($la_data,&$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_titulo="Compras Internas o Importaciones"; $la_data1[1]=array('name'=>$ls_titulo); $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'=>640, 'width'=>185, // Ancho de la tabla 'maxWidth'=>185, 'cols'=>array('name'=>array('justification'=>'center','width'=>210))); // 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"; $ls_titulo2="Monto sin t DerechoCred"; $la_columna=array('numope'=>'Nro.', 'fecfac'=>'Fecha Factura', 'numfac'=>'Nº de Factura', 'numref'=>'NºControl Fact', 'totalconiva'=>'Monto Total Factura', 'compsinderiva'=>''.$ls_titulo2.'', 'baseimp'=>'Base Imponible', 'porimp'=>'% Alicuota', 'ivaret'=>'Impuesto ISLR'); $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'=>395, // Orientación de la tabla 'cols'=>array('numope'=>array('justification'=>'center','width'=>70), // Justificacion y ancho de la columna 'fecfac'=>array('justification'=>'center','width'=>70), // Justificacion y ancho de la columna 'numfac'=>array('justification'=>'center','width'=>90), // Justificacion y ancho de la columna 'numref'=>array('justification'=>'center','width'=>90), // Justificacion y ancho de la columna 'totalconiva'=>array('justification'=>'center','width'=>90), 'compsinderiva'=>array('justification'=>'center','width'=>80), 'baseimp'=>array('justification'=>'center','width'=>80), 'porimp'=>array('justification'=>'center','width'=>50), 'ivaret'=>array('justification'=>'center','width'=>80))); $io_pdf->ezSetDy(-2); $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_total($la_data,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_total // 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_columna=array('numfac'=>'Nro.', 'totalconiva'=>'Monto Total Factura', 'compsinderiva'=>'', 'baseimp'=>'Base Imponible', 'porimp'=>'% Alicuota', 'ivaret'=>'Impuesto ISLR'); $la_config=array('showHeadings'=>0, // 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'=>485, // Orientación de la tabla 'cols'=>array('numfac'=>array('justification'=>'center','width'=>140), // Justificacion y ancho de la columna 'totalconiva'=>array('justification'=>'center','width'=>90), 'compsinderiva'=>array('justification'=>'center','width'=>80), 'baseimp'=>array('justification'=>'center','width'=>80), 'porimp'=>array('justification'=>'center','width'=>50), 'ivaret'=>array('justification'=>'center','width'=>80))); $io_pdf->ezSetDy(-15); $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_firma(&$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. Néstor Falcón. // Fecha Creación: 02/11/2007. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $la_data[1]=array('f1'=>'','f2'=>'','f3'=>''); $la_data[2]=array('f1'=>'','f2'=>'','f3'=>''); $la_data[3]=array('f1'=>'','f2'=>'','f3'=>''); $la_data[4]=array('f1'=>'','f2'=>'_________________________________','f3'=>'_________________________________'); $la_data[5]=array('f1'=>'','f2'=>'AGENTE DE RETENCION ','f3'=>'FIRMA Y SELLO'); $la_data[6]=array('f1'=>'','f2'=>'','f3'=>'RECIBIDO POR '); $la_columna=array('f1'=>'','f2'=>'','f3'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'titleFontSize' => 9, // Tamaño de Letras de los títulos 'showLines'=>0, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'width'=>900, // Ancho de la tabla 'maxWidth'=>900, // Ancho Mínimo de la tabla 'xPos'=>395, // Orientación de la tabla 'cols'=>array('f1'=>array('justification'=>'center','width'=>233), // Justificacion y ancho de la columna 'f2'=>array('justification'=>'center','width'=>234), 'f3'=>array('justification'=>'center','width'=>233))); $io_pdf->ezSetDy(-15); $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); }// end function uf_print_firmas //-------------------------------------------------------------------------------------------------------------------------------- require_once("../../shared/ezpdf/class.ezpdf.php"); require_once("sigesp_cxp_class_report.php"); require_once("../../shared/class_folder/class_funciones.php"); require_once("../class_folder/class_funciones_cxp.php"); $io_report = new sigesp_cxp_class_report(); $io_funciones = new class_funciones(); $io_fun_cxp = new class_funciones_cxp(); //---------------------------------------------------- Parámetros del encabezado ----------------------------------------------- $ls_titulo="COMPROBANTE DE RETENCION DE I.S.L.R."; $ls_agente=$_SESSION["la_empresa"]["nombre"]; //-------------------------------------------------- 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(); } //-------------------------------------------------------------------------------------------------------------------------------- $valido=uf_insert_seguridad($ls_titulo); // Seguridad de Reporte if($valido===false){exit();} $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(""); exit(); } //error_reporting(E_ALL); //set_time_limit(1800); $io_pdf=new Cezpdf('LETTER','landscape'); $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); $io_pdf->ezSetCmMargins(5.3,1,3,3);//ezSetCmMargins(top,bottom,left,right) $lb_valido=true; $ls_codigoant=""; for ($li_z=0;($li_z<$li_totrow)&&($lb_valido);$li_z++) { $la_datatot=array(); $la_data=array(); if($li_z>0){$io_pdf->ezNewPage();} $ls_numcom=$la_datos[$li_z]; $ls_procede=$la_procedencias[$li_z]; $rscmp = $io_report->uf_retencionesislr_cmp($ls_numcom); if($rscmp===false){break; exit();} if(!$rscmp->RecordCount()){continue;} $DatosComp = $rscmp->fields; $DatosComp["fecrep"] = $io_funciones->uf_convertirfecmostrar($DatosComp["fecrep"]); $strfact = $io_report->facturas_cmp_islr($ls_numcom); if($strfact===false){exit();} $strsol = $io_report->solicitudes_cmp_islr($ls_numcom); if($strsol===false){exit();} uf_print_encabezado_pagina($ls_titulo,$DatosComp['numcom'],$DatosComp["fecrep"],$DatosComp["perfiscal"]); uf_print_encabezado($ls_agente,$DatosComp["nomsujret"],$DatosComp["rif"]); $rsret = $io_report->uf_retencionesislr_cmp_ret_cxp($ls_numcom); if($rsret===false){break; exit();} if(!$rsret->RecordCount()){continue;} $totalconiva = 0; $compsinderiva = 0; $totbaseimp = 0; $totret = 0; $i=0; $ls_numdocant = ""; foreach($rsret as $DatosDoc) { $i++; $ls_numdoc = $DatosDoc["numfac"]; $ls_numref = $DatosDoc["numcon"]; $ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($DatosDoc["fecfac"]); $li_montotdoc = $DatosDoc["totcmp_con_iva"]; $li_monobjret = $DatosDoc["cmp_monobjret"]; $li_retenido = $DatosDoc["cmp_monret"]; $li_moncardoc = $DatosDoc["totcmp_con_iva"]-$DatosDoc["totcmp_sin_iva"]; $li_totdersiniva="0,00"; if($ls_numdocant!=$ls_numdoc){$totalconiva += $li_montotdoc;} $totbaseimp += $li_monobjret; $totret += $li_retenido; $li_porcentaje = number_format($DatosDoc["cmp_porcret"],2,',','.'); $li_montotdoc = number_format($li_montotdoc,2,',','.'); $li_monobjret = number_format($li_monobjret,2,',','.'); $li_retenido = number_format($li_retenido,2,',','.'); $la_data[$i]=array('numope'=>$i,'fecfac'=>$ld_fecemidoc,'numfac'=>$ls_numdoc,'numref'=>$ls_numref, 'totalconiva'=>$li_montotdoc,'compsinderiva'=>$li_totdersiniva, 'baseimp'=>$li_monobjret,'porimp'=>$li_porcentaje,'ivaret'=>$li_retenido); $ls_numdocant = $DatosDoc["numfac"]; } uf_print_detalle($la_data,$io_pdf); $totalconiva = number_format($totalconiva,2,',','.'); $totbaseimp = number_format($totbaseimp,2,',','.'); $totret = number_format($totret,2,',','.'); $compsinderiva='0,00'; $la_datatot[1]=array('numfac'=>"TOTALES BS F.",'totalconiva'=>$totalconiva,'compsinderiva'=>$compsinderiva, 'baseimp'=>$totbaseimp,'porimp'=>"",'ivaret'=>$totret); uf_print_total($la_datatot,$io_pdf); uf_print_firma($io_pdf); $io_pdf->stopObject($io_encabezado); } $io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página $io_pdf->ezStream(); // Mostramos el reporte ?>