";
print "close();";
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: 14/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_retencionesiva.php",$ls_descripcion);
return $lb_valido;
}// end function uf_insert_seguridad
//-----------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_encabezadopagina($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: 14/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->Rectangle(150,540,800,40);
$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_cabecera($as_agenteret,$as_rifagenteret,$as_perfiscal,$as_codsujret,$as_nomsujret,$as_rif,$as_diragenteret,
$as_numcon,$ad_fecrep,$ai_estcmpret,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_encabezadopagina
// Access: private
// Arguments: as_agenteret // Nombre del Agente de retención
// as_rifagenteret // Rif del Agente de retención
// as_perfiscal // Período fiscal
// as_codsujret // Código del Sujeto a retención
// as_nomsujret // Nombre del Sujeto a retención
// as_diragenteret // Dirección del agente de retención
// as_numcon // Número de Comprobante
// ad_fecrep // Fecha del comprobante
// ai_estcmpret // estatus del comprobante
// 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: 14/07/2007
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_pdf->setStrokeColor(0,0,0);
if($ai_estcmpret==2)
{
$io_pdf->Rectangle(45,480,180,30);
$io_pdf->addText(90,490,15," ANULADO ");
}
$la_data[1]=array('name'=>'NRO COMPROBANTE ');
$la_data[2]=array('name'=>$as_numcon);
$la_columna=array('name'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 9, // Tamaño de Letras
'showLines'=>1, // Mostrar Lieas
'shaded'=>0, // Sombra entre lineas
'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra
'xPos'=>700, // Orientación de la tabla
'width'=>150, // Ancho de la tabla
'maxWidth'=>150,
'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(845,483,100,28);
$io_pdf->addText(850,500,9,"FECHA"); // Agregar el titulo
$io_pdf->addText(850,485,9,$ad_fecrep); // Agregar el titulo
$io_pdf->Rectangle(845,439,100,28);
$io_pdf->addText(850,456,9,"PERIODO FISCAL"); // Agregar el titulo
$io_pdf->addText(850,443,9,$as_perfiscal); // 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_agenteret.'');
$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'=>200, // 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(400,439,370,30);
$io_pdf->addText(405,458,9,"REGISTRO DE INFORMACION FISCAL DEL AGENTE DE RETENCION"); // Agregar el titulo
$io_pdf->addText(405,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('name'=>'DIRECCION FISCAL DEL AGENTE DE RETENCION ');
$la_data[2]=array('name'=>$as_diragenteret);
$la_columna=array('name'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 9, // Tamaño de Letras
'showLines'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra
'xPos'=>413, // Orientacion de la tabla
'width'=>725, // Ancho de la tabla
'maxWidth'=>725); // Ancho Minimo de la tabl
$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 SUJETO RETENIDO ');
$la_data[2]=array('name'=>$as_nomsujret.'');
$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'=>200, // 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(400,355,370,30);
$io_pdf->addText(405,375,9,"REGISTRO DE INFORMACION FISCAL DEL SUJETO RETENIDO (R.I.F)"); // Agregar el titulo
$io_pdf->addText(405,360,9,$as_rif); // Agregar el titulo
}// end function uf_print_cabecera
//--------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_detalle($la_data,$ai_totconiva,$ai_totsiniva,$ai_totbasimp,$ai_totmonimp,$ai_totivaret,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_encabezadopagina
// Access: private
// Arguments: la_data // Arreglo de datos a imprimir
// ai_totconiva // Total con iva
// ai_totsiniva // Total sin iva
// ai_totbasimp // Total de la base imponible
// ai_totmonimp // Total monto imponible
// ai_totivaret // Total iva retenido
// 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: 14/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'=>785,
'width'=>185, // Ancho de la tabla
'maxWidth'=>185,
'cols'=>array('name'=>array('justification'=>'center','width'=>185))); // 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="Compras sin Derecho a Credito IVA";
$la_columna=array('numope'=>'Oper Nro.',
'fecfac'=>'Fecha de la Factura',
'numfac'=>'Numero de Factura',
'numref'=>'Num. Ctrol de Factura',
'numnotdeb'=>'Numero Nota Debit.',
'numnotcre'=>'Numero Nota Crdt.',
'tiptrans'=>'Tipo de Transacc.',
'numfacafec'=>'Numero de Factura Afectada',
'totalconiva'=>''.$ls_titulo1.'',
'compsinderiva'=>''.$ls_titulo2.'',
'baseimp'=>'Base Imponible',
'porimp'=>'% Alicuota',
'ivaret'=>'Aporte 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('numope'=>array('justification'=>'center','width'=>60), // Justificacion y ancho de la columna
'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),
'tiptrans'=>array('justification'=>'center','width'=>50),
'numfacafec'=>array('justification'=>'center','width'=>50),
'totalconiva'=>array('justification'=>'center','width'=>90),
'compsinderiva'=>array('justification'=>'center','width'=>70),
'baseimp'=>array('justification'=>'center','width'=>110),
'porimp'=>array('justification'=>'center','width'=>75),
'ivaret'=>array('justification'=>'center','width'=>70)));
$io_pdf->ezSetDy(-2);
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
unset($la_data);
unset($la_columna);
unset($la_config);
$la_data[1]=array('name'=>'','name1'=>$ai_totconiva,'name2'=>$ai_totsiniva,'name3'=>$ai_totbasimp,
'name4'=>'','name6'=>$ai_totivaret);
$la_columna=array('name'=>'','name1'=>'','name2'=>'','name3'=>'','name4'=>'','name6'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' =>8, // Tamaño de Letras
'showLines'=>0, // Mostrar Lineas
'shaded'=>0, // Sombra entre Lineas
'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra
'xPos'=>482,
'yPos'=>734, // Orientacion de la tabla
'width'=>200,
'xOrientation'=>'right', // Ancho de la tabla
'maxWidth'=>200,
'cols'=>array('name'=>array('justification'=>'center','width'=>50), // Justificacion y ancho de la columna
'name1'=>array('justification'=>'center','width'=>90), // Justificacion y ancho de la columna
'name2'=>array('justification'=>'center','width'=>70), // Justificacion y ancho de la columna
'name3'=>array('justification'=>'center','width'=>110), // Justificacion y ancho de la columna
'name4'=>array('justification'=>'center','width'=>75), // Justificacion y ancho de la columna
'name6'=>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
/*
//----------------------------------------------------- imprimir sello ------------------------------------------------
function uf_print_sello(&$io_pdf)
{
$la_data1[1]=array('name1'=>'','name2'=>'','name3'=>'');
$la_data1[2]=array('name1'=>'','name2'=>'','name3'=>'');
$la_data1[3]=array('name1'=>'ELABORADO POR:','name2'=>'','name3'=>'RECIBIDO POR:');
$la_columna=array('name1'=>'','name2'=>'','name3'=>'');
$la_config= array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 10, // Tamaño de Letras
'showLines'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'shadeCol'=>array(0.9,0.9,0.9),
'shadeCol2'=>array(0.9,0.9,0.9),
'xOrientation'=>'center', // Ancho de la tabla
'width'=>530,
'xPos'=>500, // Orientación de la tabla
'cols'=>array('name1'=>array('justification'=>'left','width'=>200),
'name2'=>array('justification'=>'center','width'=>240), // Ancho Máximo de la tabla
'name3'=>array('justification'=>'left','width'=>455))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data1,$la_columna,'',$la_config);
$la_data2[1]=array('name1'=>'','name2'=>'','name3'=>'');
$la_data2[2]=array('name1'=>'','name2'=>'','name3'=>'');
$la_data2[3]=array('name1'=>'JEFE DE LA UNIDAD:','name2'=>'','name3'=>'NOMBRE Y APELLIDO:');
$la_columna=array('name1'=>'','name2'=>'','name3'=>'');
$la_config= array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 10, // Tamaño de Letras
'showLines'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'shadeCol'=>array(0.9,0.9,0.9),
'shadeCol2'=>array(0.9,0.9,0.9),
'xOrientation'=>'center', // Ancho de la tabla
'width'=>530,
'xPos'=>500, // Orientación de la tabla
'cols'=>array('name1'=>array('justification'=>'left','width'=>200),
'name2'=>array('justification'=>'center','width'=>240), // Ancho Máximo de la tabla
'name3'=>array('justification'=>'left','width'=>455))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data2,$la_columna,'',$la_config);
$la_data3[1]=array('name1'=>'','name2'=>'','name3'=>'');
$la_data3[2]=array('name1'=>'','name2'=>'','name3'=>'');
$la_data3[3]=array('name1'=>'AGENTE DE RETENCION:','name2'=>'','name3'=>'CEDULA DE IDENTIDAD:');
$la_columna=array('name1'=>'','name2'=>'','name3'=>'');
$la_config= array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 10, // Tamaño de Letras
'showLines'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'shadeCol'=>array(0.9,0.9,0.9),
'shadeCol2'=>array(0.9,0.9,0.9),
'xOrientation'=>'center', // Ancho de la tabla
'width'=>530,
'width'=>530,
'xPos'=>500, // Orientación de la tabla
'cols'=>array('name1'=>array('justification'=>'left','width'=>200),
'name2'=>array('justification'=>'center','width'=>240), // Ancho Máximo de la tabla
'name3'=>array('justification'=>'left','width'=>455))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data3,$la_columna,'',$la_config);
}
//----------------------------------------------------- Instancia de las clases ------------------------------------------------
*/
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.
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_pdf->ezText('',12,array('justification' => 'full'));
$io_pdf->ezText('',12,array('justification' => 'full'));
$io_pdf->ezText(utf8_decode('La presente Retención del Compromiso de Responsabilidad Social se aplica para cumplir con lo establecido en el ARTICULO Nº 6 numeral 19 de la Ley de Contrataciones Públicas vigente, donde se estable que dicho aporte podrá ser destinado a instituciones sin fines de lucro que satisfagan las necesidades prioritarias del entorno social del órgano o ente contratante, es por ello que el Ministerio del Poder Popular para Transporte Acuático y aéreo creo la FUNDENAP, con el objetivo de utilizar los fondos para el desarrollo de programas Sociales'),8,array('justification' => 'full'));
$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'=>'UNIDAD DE TRIBUTOS INTERNOS','f2'=>'AGENTE DE RETENCION ','f3'=>'FIRMA Y SELLO');
$la_data[6]=array('f1'=>'INAC','f2'=>'INAC','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
//--------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------- Instancia de las clases ------------------------------------------------
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();
$ls_tiporeporte=$io_fun_cxp->uf_obtenervalor_get("tiporeporte",0);
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_titulo=utf8_decode("COMPROBANTE DE RETENCIÓN DEL COMPROMISO DE RESPONSABILIDAD SOCIAL");
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_comprobantes=$io_fun_cxp->uf_obtenervalor_get("comprobantes","");
$ls_agenteret=$_SESSION["la_empresa"]["nombre"];
$ls_rifagenteret=$_SESSION["la_empresa"]["rifemp"];
$ls_diragenteret=$_SESSION["la_empresa"]["direccion"];
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo); // Seguridad de Reporte
if($lb_valido)
{
$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;
for ($li_z=0;($li_z<$li_totrow)&&($lb_valido);$li_z++)
{
uf_print_encabezadopagina($ls_titulo,$io_pdf);
$ls_numcom=$la_datos[$li_z];
$lb_valido=$io_report->uf_retencionesaporte_proveedor($ls_numcom);
if($lb_valido)
{
$li_total=$io_report->DS->getRowCount("numcom");
for($li_i=1;$li_i<=$li_total;$li_i++)
{
$ls_numcon=$io_report->DS->data["numcom"][$li_i];
$ls_codret=$io_report->DS->data["codret"][$li_i];
$ls_fecrep=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecrep"][$li_i]);
$ls_perfiscal=$io_report->DS->data["perfiscal"][$li_i];
$ls_codsujret=$io_report->DS->data["codsujret"][$li_i];
$ls_nomsujret=$io_report->DS->data["nomsujret"][$li_i];
$ls_rif=$io_report->DS->data["rif"][$li_i];
$ls_dirsujret=$io_report->DS->data["dirsujret"][$li_i];
$li_estcmpret=$io_report->DS->data["estcmpret"][$li_i];
}
uf_print_cabecera($ls_agenteret,$ls_rifagenteret,$ls_perfiscal,$ls_codsujret,$ls_nomsujret,$ls_rif,
$ls_diragenteret,$ls_numcon,$ls_fecrep,$li_estcmpret,$io_pdf);
$lb_valido=$io_report->uf_retencionesaporte_detalle($ls_numcom);
if($lb_valido)
{
$li_totalconiva = 0;
$li_totalsiniva = 0;
$li_totalbaseimp = 0;
$li_totalmontoimp = 0;
$li_totalivaret = 0;
$li_total=$io_report->ds_detalle->getRowCount("numfac");
for($li_i=1;$li_i<=$li_total;$li_i++)
{
$ls_numope=$io_report->ds_detalle->data["numope"][$li_i];
$ls_numfac=$io_report->ds_detalle->data["numfac"][$li_i];
$ls_numref=$io_report->ds_detalle->data["numcon"][$li_i];
$ld_fecfac=$io_funciones->uf_convertirfecmostrar($io_report->ds_detalle->data["fecfac"][$li_i]);
$li_siniva=$io_report->ds_detalle->data["totcmp_sin_iva"][$li_i];
$li_siniva="Excento";
$li_coniva=$io_report->ds_detalle->data["totcmp_con_iva"][$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_ivaret=$io_report->ds_detalle->data["iva_ret"][$li_i];
$ls_numdoc=$io_report->ds_detalle->data["numdoc"][$li_i];
$ls_tiptrans=$io_report->ds_detalle->data["tiptrans"][$li_i];
$ls_numnotdeb=$io_report->ds_detalle->data["numnd"][$li_i];
$ls_numnotcre=$io_report->ds_detalle->data["numnc"][$li_i];
$li_monto=$li_baseimp + $li_totimp;
$li_porimp = (100*$li_ivaret)/$li_baseimp;
//$li_totdersiniva= abs($li_coniva - $li_monto);
$li_totdersiniva=$li_siniva;
$ls_numfacafec="";
$li_totalconiva=$li_totalconiva + $li_coniva;
$li_totalsiniva=$li_totalsiniva + $li_totdersiniva;
$li_totalbaseimp=$li_totalbaseimp + $li_baseimp ;
$li_totalmontoimp=$li_totalmontoimp + $li_totimp;
$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,",",".");
$li_totdersiniva="Excento";
$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);
//print_r($la_data);
}
$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_firma($io_pdf);
if($li_z<($li_totrow-1))
{
$io_pdf->ezNewPage();
}
}
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);
?>