"; print "close();"; print ""; } ini_set('memory_limit','512M'); ini_set('max_execution_time ','0'); //-------------------------------------------------------------------------------------------------------------------------------- function uf_insert_seguridad($as_periodo) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // 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. Ing. Nelson Barraez // Fecha Creación: 15/07/2007 ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_fun_cxp; $ls_descripcion="Generó el Reporte Libro de Compra para el periodo ".$as_periodo; $lb_valido=$io_fun_cxp->uf_load_seguridad_reporte("CXP","sigesp_cxp_r_librocompra.php",$ls_descripcion); return $lb_valido; } //--------------------------------------------------------------------------------------------------------------------------- // para crear el libro excel require_once ("../../shared/writeexcel/class.writeexcel_workbookbig.inc.php"); require_once ("../../shared/writeexcel/class.writeexcel_worksheet.inc.php"); $lo_archivo = tempnam("/tmp", "libro_compra.xls"); $lo_libro = &new writeexcel_workbookbig($lo_archivo); $lo_hoja = &$lo_libro->addworksheet(); //--------------------------------------------------------------------------------------------------------------------------- // para crear la data necesaria del reporte require_once("../../shared/ezpdf/class.ezpdf.php"); require_once("sigesp_cxp_class_report.php"); require_once("../../shared/class_folder/sigesp_include.php"); require_once("../../shared/class_folder/class_sql.php"); require_once("../../shared/class_folder/class_fecha.php"); $io_fecha = new class_fecha(); $io_in = new sigesp_include(); $con = $io_in->uf_conectar(); $io_sql = new class_sql($con); $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 ----------------------------------------------- //-------------------------------------------------- Parámetros para Filtar el Reporte ----------------------------------------- $ls_mes=$io_fun_cxp->uf_obtenervalor_get("mes",""); $ls_agno=$io_fun_cxp->uf_obtenervalor_get("agno",""); $ls_titulo = "LIBRO DE COMPRA"; $li_lastday = $io_fecha->uf_last_day($ls_mes,$ls_agno); $li_lastday = substr($li_lastday,0,2); $as_fechadesde = $ls_agno.'-'.$ls_mes.'-01'; $as_fechahasta = $ls_agno.'-'.$ls_mes.'-'.$li_lastday; $ls_mesletras = $io_fecha->uf_load_nombre_mes($ls_mes); $ls_periodo = "MES: ".$ls_mesletras." AÑO: ".$ls_agno.""; //--------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- $ld_monto = 0; $ld_impuesto = 0; $ld_sumcom = 0; $ld_baseimp = 0; $arremp = $_SESSION["la_empresa"]; $ls_codemp = $arremp["codemp"]; //-------formato para el reporte---------------------------------------------------------- $lo_encabezado= &$lo_libro->addformat(); $lo_encabezado->set_bold(); $lo_encabezado->set_font("Verdana"); $lo_encabezado->set_align('center'); $lo_encabezado->set_size('11'); $lo_titulo= &$lo_libro->addformat(); $lo_titulo->set_text_wrap(); $lo_titulo->set_bold(); $lo_titulo->set_font("Verdana"); $lo_titulo->set_align('center'); $lo_titulo->set_size('9'); $lo_datacenter= &$lo_libro->addformat(); $lo_datacenter->set_font("Verdana"); $lo_datacenter->set_align('center'); $lo_datacenter->set_size('9'); $lo_dataleft= &$lo_libro->addformat(); $lo_dataleft->set_text_wrap(); $lo_dataleft->set_font("Verdana"); $lo_dataleft->set_align('left'); $lo_dataleft->set_size('9'); $lo_dataright= &$lo_libro->addformat(array('num_format' => '#,##0.00')); $lo_dataright->set_font("Verdana"); $lo_dataright->set_align('right'); $lo_dataright->set_size('9'); $lo_dataright2= &$lo_libro->addformat(array('num_format' => '#,##')); $lo_dataright2->set_font("Verdana"); $lo_dataright2->set_align('right'); $lo_dataright2->set_size('9'); $lo_hoja->set_column(0,0,50); $lo_hoja->set_column(1,2,15); $lo_hoja->set_column(3,3,40); $lo_hoja->set_column(4,4,25); $lo_hoja->set_column(5,5,15); $lo_hoja->set_column(6,6,20); $lo_hoja->set_column(7,7,20); $lo_hoja->set_column(8,8,15); $lo_hoja->set_column(9,9,15); $lo_hoja->set_column(10,10,15); $lo_hoja->set_column(12,12,15); $lo_hoja->set_column(13,13,15); $lo_hoja->set_column(14,14,15); $lo_hoja->set_column(15,15,15); $lo_hoja->set_column(16,16,15); $lo_hoja->set_column(17,17,10); $lo_hoja->set_column(18,18,15); $lo_hoja->set_column(19,19,15); $lo_hoja->write(0,3,$ls_titulo,$lo_encabezado); $lo_hoja->write(1,3,$ls_periodo,$lo_encabezado); $lo_hoja->write(4,0, "Nro. de Cheque",$lo_titulo); $lo_hoja->write(4,1, "Nro. Oper",$lo_titulo); $lo_hoja->write(4,2, "Fecha Factura",$lo_titulo); $lo_hoja->write(4,3, "RIF",$lo_titulo); $lo_hoja->write(4,4, "Número o Razón Social",$lo_titulo); $lo_hoja->write(4,5, "Número de Compra",$lo_titulo); $lo_hoja->write(4,6, "Tipo Prov.",$lo_titulo); $lo_hoja->write(4,7, "Nro Planilla Importacin (C-80 o c-81)",$lo_titulo); $lo_hoja->write(4,8, "Nro Expediente Importacin",$lo_titulo); $lo_hoja->write(4,9, "Nro de Factura",$lo_titulo); $lo_hoja->write(4,10, "Nro de Control",$lo_titulo); $lo_hoja->write(4,11, "Nro Nota Debito",$lo_titulo); $lo_hoja->write(4,12, "Nro Nota Credito",$lo_titulo); $lo_hoja->write(4,13, "Tipo de Transacc.",$lo_titulo); $lo_hoja->write(4,14, "Nro de Factura Afectada",$lo_titulo); $lo_hoja->write(4,15, "Total de Compra Incluyendo IVA",$lo_titulo); $lo_hoja->write(4,16, "Compra sin Derecho a Credito IVA",$lo_titulo); $lo_hoja->write(3,17, "Compras",$lo_titulo); $lo_hoja->write(3,18, "Internas o",$lo_titulo); $lo_hoja->write(3,19, "Importaciones",$lo_titulo); $lo_hoja->write(4,17, "Base Imponible",$lo_titulo); $lo_hoja->write(4,18, " % ",$lo_titulo); $lo_hoja->write(4,19, "Impuesto Iva",$lo_titulo); $lo_hoja->write(4,20, "IVA Retenido (Vendedor)",$lo_titulo); //------------------------------------------------------------------------------------------------------ $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); $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_totimpret8 = 0; //Variable de tipo acumulador que almacenara el monto total retenido de los impuestos a 8%. $ldec_totimpret9 = 0; //Variable de tipo acumulador que almacenara el monto total retenido de los impuestos a 14%. $ldec_totimpret25 = 0; //Variable de tipo acumulador que almacenara el monto total retenido de los impuestos a 25%. $ldec_totbasimp8 = 0; $ldec_totbasimp9 = 0; $ldec_totbasimp25 = 0; $ldec_totcomsiniva = 0; $ldec_totcomconiva = 0; //Variable de tipo acumulador que almacenara el monto total retenido de los impuestos a 25%. $ldec_totimpiva = 0; $ldec_totivaret = 0; if($lb_valido) { $li_row=0; $li_aux=0; while($row=$io_report->io_sql->fetch_row($rs_resultado)) { $li_row++; $ls_numnc=""; $ls_numnd=""; $ldec_monret=0; $ldec_totbaseimp=0; $ldec_totmonimp=0; $ls_numrecdoc=$row["numrecdoc"]; $ls_tipproben=$row["tipproben"]; $ls_codpro=$row["cod_pro"]; $ls_cedben=$row["ced_bene"]; $ldec_montoret=$row["monret"]; $ldec_montodoc=$row["montotdoc"]; $ldec_mondeddoc=$row["mondeddoc"]; $ls_codtipdoc =$row["codtipdoc"]; if($ls_tipproben=='P') { $la_provben=$io_report->uf_select_rowdata($io_sql,"SELECT * FROM rpc_proveedor WHERE cod_pro='".$ls_codpro."'"); $ls_rif=$la_provben["rifpro"]; $ls_nombre=$la_provben["nompro"]; } else { $la_provben=$io_report->uf_select_rowdata($io_sql,"SELECT * FROM rpc_beneficiario WHERE ced_bene='".$ls_cedben."'"); $ls_rif=$la_provben["rifben"]; $ls_nombre=$la_provben["nombene"]." ".$la_provben["apebene"]; } $ls_cheque=$io_report->uf_select_data($io_sql,"SELECT distinct cxp_sol_banco.numdoc AS numdoc". " FROM cxp_dt_solicitudes, cxp_sol_banco". " WHERE cxp_dt_solicitudes.codemp='".$ls_codemp."'". " AND cxp_dt_solicitudes.numrecdoc='".$ls_numrecdoc."'". " AND cxp_dt_solicitudes.cod_pro='".$ls_codpro."'". " AND cxp_dt_solicitudes.ced_bene='".$ls_cedben."'". " AND cxp_dt_solicitudes.codemp=cxp_sol_banco.codemp". " AND cxp_dt_solicitudes.numsol=cxp_sol_banco.numsol","numdoc"); if($ls_tiporeporte==1) { $la_cmpret=$io_report->uf_select_rowdata($io_sql,"SELECT DISTINCT max(a.numrecdoc) as numrecdoc,max(a.monobjretaux) as monobjret,SUM(a.monretaux) as monret,max(a.porded) as porded,max(b.codret) as codret,max(b.numcom) as numcom,max(b.iva_retaux) as iva_ret,max(tiptrans) as tiptrans". " FROM cxp_rd_deducciones a,scb_dt_cmp_ret b ". " WHERE a.codemp=b.codemp AND a.numrecdoc=b.numfac AND a.codemp='".$ls_codemp."' AND a.numrecdoc='".$ls_numrecdoc."' AND ". " a.cod_pro='".$ls_codpro."' AND a.ced_bene='".$ls_cedben."' ". " GROUP BY a.numrecdoc "); } else { // Consulta colocada en comentario por Ofimatica de Venezuela el 30-06-2011, por estar mal estructurada y no traer los datos de forma consistente. //$la_cmpret=$io_report->uf_select_rowdata($io_sql,"SELECT DISTINCT max(a.numrecdoc) as numrecdoc,max(a.monobjretaux) as monobjret,SUM(a.monretaux) as monret,max(a.porded) as porded,max(b.codret) as codret,max(b.numcom) as numcom,max(b.iva_retaux) as iva_ret,max(tiptrans) as tiptrans". // " FROM cxp_rd_deducciones a,scb_dt_cmp_ret b ". // " WHERE a.codemp=b.codemp AND a.numrecdoc=b.numfac AND a.codemp='".$ls_codemp."' AND a.numrecdoc='".$ls_numrecdoc."' AND ". // " a.cod_pro='".$ls_codpro."' AND a.ced_bene='".$ls_cedben."' ". // " GROUP BY a.numrecdoc "); // Fin de lo colocado en comentario por Ofimatica de Venezuela // Consulta cambiada por Ofimatica de Venezuela el 30-06-2011 y ajustada nuavemente el 06-07-2011, ya que la que se estaba utilizando no traia la informacion de forma correcta, ya que fue mal estructurada. $la_cmpret=$io_report->uf_select_rowdata($io_sql,"SELECT cxp_rd_deducciones.numrecdoc as numrecdoc, cxp_rd_deducciones.monobjret as monobjret, SUM(cxp_rd_deducciones.monret) as monret, cxp_rd_deducciones.porded as porded, scb_dt_cmp_ret.codret as codret, ". " scb_dt_cmp_ret.numcom as numcom, scb_dt_cmp_ret.iva_ret as iva_ret, scb_dt_cmp_ret.tiptrans as tiptrans ". "FROM cxp_rd_deducciones, cxp_rd, cxp_dt_solicitudes, sigesp_deducciones, scb_cmp_ret, scb_dt_cmp_ret ". "WHERE (cxp_rd_deducciones.codemp = '".$ls_codemp."' AND cxp_rd_deducciones.numrecdoc = '".$ls_numrecdoc."' AND cxp_rd_deducciones.codtipdoc = '".$ls_codtipdoc."' AND cxp_rd_deducciones.cod_pro = '".$ls_codpro."' AND cxp_rd_deducciones.ced_bene = '".$ls_cedben."') AND ". " (cxp_rd_deducciones.codemp = cxp_rd.codemp AND cxp_rd_deducciones.numrecdoc = cxp_rd.numrecdoc AND cxp_rd_deducciones.codtipdoc = cxp_rd.codtipdoc AND cxp_rd_deducciones.cod_pro = cxp_rd.cod_pro AND cxp_rd_deducciones.ced_bene = cxp_rd.ced_bene) AND ". " (cxp_rd_deducciones.codemp = cxp_dt_solicitudes.codemp AND cxp_rd_deducciones.numrecdoc = cxp_dt_solicitudes.numrecdoc AND cxp_rd_deducciones.codtipdoc = cxp_dt_solicitudes.codtipdoc AND cxp_rd_deducciones.cod_pro = cxp_dt_solicitudes.cod_pro AND cxp_rd_deducciones.ced_bene = cxp_dt_solicitudes.ced_bene) AND ". " (cxp_rd_deducciones.codded = sigesp_deducciones.codded AND sigesp_deducciones.iva = 1) AND ". " (cxp_rd_deducciones.codemp = scb_dt_cmp_ret.codemp AND cxp_rd_deducciones.numrecdoc = scb_dt_cmp_ret.numfac AND substring(scb_dt_cmp_ret.numsop,1,15) = cxp_dt_solicitudes.numsol) AND ". " scb_dt_cmp_ret.numcom = scb_cmp_ret.numcom AND scb_cmp_ret.estcmpret = '1' AND scb_dt_cmp_ret.codret = '0000000001' AND". " (scb_cmp_ret.codsujret = (CASE cxp_rd_deducciones.ced_bene WHEN '----------' THEN cxp_rd_deducciones.cod_pro ELSE cxp_rd_deducciones.ced_bene END) AND cxp_rd_deducciones.codemp = scb_cmp_ret.codemp) AND ". " substring(scb_cmp_ret.perfiscal,1,4) = substring(CAST(cxp_rd.fecregdoc as text),1,4) AND substring(scb_cmp_ret.perfiscal,5,2) = substring(CAST(cxp_rd.fecregdoc as text),6,2) AND scb_cmp_ret.estcmpret = '1' AND ". " scb_cmp_ret.numcom = scb_dt_cmp_ret.numcom ". "GROUP BY cxp_rd_deducciones.numrecdoc , cxp_rd_deducciones.monobjret , cxp_rd_deducciones.porded , scb_dt_cmp_ret.codret , ". " scb_dt_cmp_ret.numcom, scb_dt_cmp_ret.iva_ret , scb_dt_cmp_ret.tiptrans "); // Fin de la consulta cambiaba } if(count($la_cmpret)>0) { $ls_codret = $la_cmpret["codret"]; if ($ls_codret=='0000000001') { $ldec_monret = $la_cmpret["monret"]; $ls_cmpret = $la_cmpret["numcom"]; $ldec_monobjret = $la_cmpret["monobjret"]; $ldec_porded = $la_cmpret["porded"]; $ldec_ivaret = $la_cmpret["iva_ret"]; $ls_tiptrans = $la_cmpret["tiptrans"]; } else { $ldec_monret = 0; $ls_cmpret = ''; $ldec_monobjret = 0; $ldec_porded = 0; $ldec_ivaret = 0; $ls_tiptrans = ""; } } else { $ldec_monret = $ldec_monret+$ldec_montoret; $ls_cmpret = ''; $ldec_monobjret = 0; $ldec_porded = 0; $ls_tiptrans = ""; $ldec_ivaret = 0; } //Consultas Modificadas por Ofimatica de Venezuela el 14-06-2011, se elimina el código del cargo y se agrupa y suma por el tipo de iva y se //cambia el metodo uf_select_rowdata por uf_select_arraydata porque pueden aplicar varios ivas distintos. if($ls_tiporeporte==1) { $la_cargos=$io_report->uf_select_arraydata($io_sql,"SELECT cxp_rd_cargos.monobjretaux as basimp,cxp_rd_cargos.porcar,cxp_rd_cargos.monretaux as impiva, tipo_iva". " FROM cxp_rd_cargos,sigesp_cargos ". " WHERE cxp_rd_cargos.codemp='".$ls_codemp."'". " AND cxp_rd_cargos.numrecdoc='".$ls_numrecdoc."'". " AND cxp_rd_cargos.cod_pro='".$ls_codpro."'". " AND cxp_rd_cargos.ced_bene='".$ls_cedben."'"); } else { $la_cargos=$io_report->uf_select_arraydata($io_sql,"SELECT SUM(cxp_rd_cargos.monobjret) as basimp,MAX(cxp_rd_cargos.porcar) AS porcar,SUM(cxp_rd_cargos.monret) as impiva, tipo_iva". " FROM cxp_rd_cargos,sigesp_cargos ". " WHERE cxp_rd_cargos.codcar=sigesp_cargos.codcar ". " AND cxp_rd_cargos.codemp='".$ls_codemp."'". " AND cxp_rd_cargos.numrecdoc='".$ls_numrecdoc."'". " AND cxp_rd_cargos.cod_pro='".$ls_codpro."'". " AND cxp_rd_cargos.ced_bene='".$ls_cedben."'". " GROUP BY cxp_rd_cargos.codemp, cxp_rd_cargos.numrecdoc, cxp_rd_cargos.cod_pro, cxp_rd_cargos.ced_bene, cxp_rd_cargos.codtipdoc,tipo_iva ORDER BY porcar ASC"); } if(!empty($la_cargos)) { $li_total_cargos=count($la_cargos["porcar"]); if($li_total_cargos>0) { $ldec_porcar=$la_cargos["porcar"][1]; $ldec_baseimp=$la_cargos["basimp"][1]; $ldec_monimp=$la_cargos["impiva"][1]; $ldec_totbaseimp=$la_cargos["basimp"][1]; $ldec_totmonimp=$la_cargos["impiva"][1]; //Modificado por Ofimatica de Venezuela el 14-06-2011, se toma el tipo de iva directo del arreglo resultante de la consulta. $ldec_porcentaje_conf=$la_cargos["tipo_iva"][1]; //$ldec_cargo=$la_cargos["codcar"]; //Código utilizado anteriormente modificado según descripción superior //$ldec_porcentaje_conf=$io_report->uf_porcentaje_eval($ldec_cargo); //Código utilizado anteriormente modificado según descripción superior } else { $ldec_porcar=""; $ldec_baseimp=0; $ldec_monimp=0; $ldec_porcentaje_conf=0; } } else { $ldec_porcar=""; $ldec_baseimp=0; $ldec_monimp=0; $ldec_porcentaje_conf=0; } $la_manualesd=$io_report->uf_select_rowdata($io_sql,"SELECT SUM(monto) AS monto". " FROM cxp_rd_scg ". " WHERE codemp='".$ls_codemp."'". " AND numrecdoc='".$ls_numrecdoc."'". " AND cod_pro='".$ls_codpro."'". " AND ced_bene='".$ls_cedben."'". " AND debhab='D'". " AND estasicon='M'"); $la_manualesh=$io_report->uf_select_rowdata($io_sql,"SELECT SUM(monto) AS monto". " FROM cxp_rd_scg ". " WHERE codemp='".$ls_codemp."'". " AND numrecdoc='".$ls_numrecdoc."'". " AND cod_pro='".$ls_codpro."'". " AND ced_bene='".$ls_cedben."'". " AND debhab='H'". " AND estasicon='M'"); $li_habman=0; $li_debman=0; if(count($la_manualesd)>0) { $li_debman=$la_manualesd["monto"]; } if(count($la_manualesh)>0) { $li_habman=$la_manualesh["monto"]; } $ldec_montodoc = $ldec_montodoc+$ldec_mondeddoc+$li_habman-$li_debman; //print $ls_nombre." MONTOTDOC->".$ldec_montodoc." BASE IMP->".$ldec_baseimp." MONIMP->".$ldec_monimp."
"; //print $ls_nombre." MONTOTDOC->".$ldec_montodoc." DED->".$ldec_mondeddoc." HAB->".$li_habman." DEB->".$li_debman."
"; $ldec_sinderiva = $ldec_montodoc-$ldec_baseimp-$ldec_monimp;// Total de la Compra sin Derecho a Crédito Iva. if(($ldec_sinderiva<0)&&($ldec_sinderiva>-1)) { $ldec_sinderiva=0; } $ldec_totimpiva = $ldec_totimpiva+$ldec_monimp; $ldec_totivaret = $ldec_totivaret+$ldec_montoret; $ldec_totcomconiva= $ldec_totcomconiva+$ldec_montodoc; $lo_hoja->write($li_row+5, 0, $ls_cheque, $lo_datacenter); $lo_hoja->write($li_row+5, 1, $li_row, $lo_datacenter); $lo_hoja->write($li_row+5, 2, $io_report->io_funciones->uf_convertirfecmostrar($row["fecemidoc"]), $lo_datacenter); $lo_hoja->write($li_row+5, 3, $ls_rif, $lo_datacenter); $lo_hoja->write($li_row+5, 4, $ls_nombre, $lo_dataleft); $lo_hoja->write($li_row+5, 5, $ls_cmpret, $lo_datacenter); $lo_hoja->write($li_row+5, 6, $ls_tipproben, $lo_datacenter); $lo_hoja->write($li_row+5, 7, '', $lo_datacenter); $lo_hoja->write($li_row+5, 8, '', $lo_datacenter); $lo_hoja->write($li_row+5, 9, trim($ls_numrecdoc), $lo_datacenter); $lo_hoja->write($li_row+5, 10, $row["numref"], $lo_datacenter); $lo_hoja->write($li_row+5, 11,$ls_numnd, $lo_datacenter); $lo_hoja->write($li_row+5, 12,$ls_numnc, $lo_datacenter); $lo_hoja->write($li_row+5, 13,$ls_tiptrans, $lo_datacenter); $lo_hoja->write($li_row+5, 14,trim($row["numrecdoc"]), $lo_datacenter); $lo_hoja->write($li_row+5, 15,$ldec_montodoc, $lo_dataright); $lo_hoja->write($li_row+5, 16,$ldec_sinderiva, $lo_dataright); $lo_hoja->write($li_row+5, 17,$ldec_baseimp, $lo_dataright); $lo_hoja->write($li_row+5, 18,$ldec_porcar, $lo_datacenter); $lo_hoja->write($li_row+5, 19,$ldec_monimp, $lo_dataright); $lo_hoja->write($li_row+5, 20,$ldec_montoret, $lo_dataright); $li_porcentaje = intval($ldec_porcentaje_conf); if ($ldec_porcar>0) { switch ($li_porcentaje){ case '2': $ldec_totimp8 = ($ldec_totimp8+$ldec_monimp); $ldec_totbasimp8 = ($ldec_totbasimp8+$ldec_baseimp); $ldec_totimpret8 = ($ldec_totimpret8+$ldec_montoret); break; case '1': $ldec_totimp9 = ($ldec_totimp9+$ldec_monimp); $ldec_totbasimp9 = ($ldec_totbasimp9+$ldec_baseimp); $ldec_totimpret9 = ($ldec_totimpret9+$ldec_montoret); break; case '3': $ldec_totimp25 = ($ldec_totimp25+$ldec_monimp); $ldec_totbasimp25 = ($ldec_totbasimp28+$ldec_baseimp); $ldec_totimpret25 = ($ldec_totimpret25+$ldec_montoret); break; } } //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //****************************************************AGREGADO POR OFIMATICA DE VENEZUELA 14-06-2011******************************************************// // Bloque correspondiente al recorrido del arreglo de cargos esto se debe a que existen facturas que aplican distintos tipos de iva (Ejemplo: 8% y 12%). $li_aux=$li_row; if($li_total_cargos>1) { for($i=2;$i<=$li_total_cargos;$i++) { $ldec_porcar=$la_cargos["porcar"][$i]; $ldec_baseimp=$la_cargos["basimp"][$i]; $ldec_monimp=$la_cargos["impiva"][$i]; $ldec_totbaseimp=$ldec_totbaseimp+$ldec_baseimp; $ldec_totmonimp=$ldec_totmonimp+$ldec_monimp; $ldec_porcentaje_conf=$la_cargos["tipo_iva"][$i]; $li_aux++; $lo_hoja->write($li_aux+5, 1, $li_aux, $lo_datacenter); $lo_hoja->write($li_aux+5, 17,$ldec_baseimp, $lo_dataright); $lo_hoja->write($li_aux+5, 18,$ldec_porcar, $lo_datacenter); $lo_hoja->write($li_aux+5, 19,$ldec_monimp, $lo_dataright); $li_porcentaje = intval($ldec_porcentaje_conf); if ($ldec_porcar>0) { switch ($li_porcentaje){ case '2': $ldec_totimp8 = ($ldec_totimp8+$ldec_monimp); $ldec_totbasimp8 = ($ldec_totbasimp8+$ldec_baseimp); $ldec_totimpret8 = ($ldec_totimpret8+$ldec_montoret); break; case '1': $ldec_totimp9 = ($ldec_totimp9+$ldec_monimp); $ldec_totbasimp9 = ($ldec_totbasimp9+$ldec_baseimp); $ldec_totimpret9 = ($ldec_totimpret9+$ldec_montoret); break; case '3': $ldec_totimp25 = ($ldec_totimp25+$ldec_monimp); $ldec_totbasimp25 = ($ldec_totbasimp28+$ldec_baseimp); $ldec_totimpret25 = ($ldec_totimpret25+$ldec_montoret); break; } } } } //Reasignamos el monto exento por si aplicaba varios ivas se calcula en base a la sumatoria de los ivas y las respectivas bases imponibles $ldec_sinderiva=round($ldec_montodoc,2) -round($ldec_totbaseimp,2)-round($ldec_totmonimp,2); $lo_hoja->write($li_row+5, 16,$ldec_sinderiva, $lo_dataright); $li_row=$li_aux;//Reemplazo el valor actual de $li por $li_aux que contiene el incremento de la misma segun el numero de cargos aplicados a la factura /**********************************************************FIN BLOQUE AGREGADO POR OFIMATICA DE VENEZUELA ************************************************/ /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $la_notas=$io_report->uf_select_rowdata($io_sql,"SELECT cxp_sol_dc.*,(SELECT porcar FROM cxp_dc_cargos WHERE cxp_sol_dc.codemp=cxp_dc_cargos.codemp AND cxp_sol_dc.numsol=cxp_dc_cargos.numsol AND cxp_sol_dc.numrecdoc=cxp_dc_cargos.numrecdoc AND cxp_sol_dc.codtipdoc=cxp_dc_cargos.codtipdoc AND cxp_sol_dc.cod_pro=cxp_dc_cargos.cod_pro AND cxp_sol_dc.ced_bene=cxp_dc_cargos.ced_bene AND cxp_sol_dc.codope=cxp_dc_cargos.codope AND cxp_sol_dc.numdc=cxp_dc_cargos.numdc) as porcar FROM cxp_sol_dc WHERE cxp_sol_dc.numrecdoc='".$ls_numrecdoc."' AND cxp_sol_dc.codtipdoc='".$ls_codtipdoc."' AND cxp_sol_dc.cod_pro='".$ls_codpro."' AND cxp_sol_dc.ced_bene='".$ls_cedben."' "); if(count($la_notas)>0) { $ls_codope=$la_notas["codope"]; $ls_numnota=$la_notas["numdc"]; $ls_monnota=$la_notas["monto"]; $ls_carnota=$la_notas["moncar"]; $ldec_porcar=$la_notas["porcar"]; $ls_basnota=$ls_monnota-$ls_carnota; if($ls_codope=='NC') { $ls_numnc=$ls_numnota; $ls_numnd=""; $ls_monnota=$ls_monnota*(-1); $ls_carnota=$ls_carnota*(-1); $ls_basnota=$ls_basnota*(-1); } else { $ls_numnd=$ls_numnota; $ls_numnc=""; } //$li++; // $ldec_montodoc = $ldec_montodoc+$ls_monnota; // $ldec_sinderiva = $ldec_montodoc-$ldec_baseimp-$ldec_monimp;// Total de la Compra sin Derecho a Crédito Iva. $ldec_totcomconiva= $ldec_totcomconiva+$ls_monnota; $ldec_totimpiva = $ldec_totimpiva+$ls_carnota; $li_row=$li_row+1; $lo_hoja->write($li_row+5, 0, $ls_cheque, $lo_datacenter); $lo_hoja->write($li_row+5, 1, $li_row, $lo_datacenter); $lo_hoja->write($li_row+5, 2, $io_report->io_funciones->uf_convertirfecmostrar($row["fecemidoc"]), $lo_datacenter); $lo_hoja->write($li_row+5, 3, $ls_rif, $lo_datacenter); $lo_hoja->write($li_row+5, 4, $ls_nombre, $lo_dataleft); $lo_hoja->write($li_row+5, 5, $ls_cmpret, $lo_datacenter); $lo_hoja->write($li_row+5, 6, $ls_tipproben, $lo_datacenter); $lo_hoja->write($li_row+5, 7, '', $lo_datacenter); $lo_hoja->write($li_row+5, 8, '', $lo_datacenter); $lo_hoja->write($li_row+5, 9, trim($ls_numrecdoc), $lo_datacenter); $lo_hoja->write($li_row+5, 10, $row["numref"], $lo_datacenter); $lo_hoja->write($li_row+5, 11,$ls_numnd, $lo_datacenter); $lo_hoja->write($li_row+5, 12,$ls_numnc, $lo_datacenter); $lo_hoja->write($li_row+5, 13,$ls_tiptrans, $lo_datacenter); $lo_hoja->write($li_row+5, 14,trim($row["numrecdoc"]), $lo_datacenter); $lo_hoja->write($li_row+5, 15,$ldec_montodoc, $lo_dataright); $lo_hoja->write($li_row+5, 16,$ldec_sinderiva, $lo_dataright); $lo_hoja->write($li_row+5, 17,$ldec_baseimp, $lo_dataright); $lo_hoja->write($li_row+5, 18,$ldec_porcar, $lo_datacenter); $lo_hoja->write($li_row+5, 19,$ldec_monimp, $lo_dataright); $lo_hoja->write($li_row+5, 20,$ldec_montoret, $lo_dataright); $li_porcentaje = intval($ldec_porcentaje_conf); if ($ldec_porcar>0) { switch ($li_porcentaje){ case '2': $ldec_totimp8 = ($ldec_totimp8+$ls_carnota); $ldec_totbasimp8 = ($ldec_totbasimp8+$ls_basnota); //$ldec_totimpret8 = ($ldec_totimpret8+$ldec_montoret); break; case '1': $ldec_totimp9 = ($ldec_totimp9+$ls_carnota); $ldec_totbasimp9 = ($ldec_totbasimp9+$ls_basnota); //$ldec_totimpret9 = ($ldec_totimpret9+$ldec_montoret); break; case '3': $ldec_totimp25 = ($ldec_totimp25+$ls_carnota); $ldec_totbasimp25 = ($ldec_totbasimp28+$ls_basnota); //$ldec_totimpret25 = ($ldec_totimpret25+$ldec_montoret); break; } } } $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%. } //uf_print_detalle($la_data,$io_pdf); // uf_print_totales(number_format($ldec_totcomsiniva,2,",","."),number_format($ldec_basimpga,2,",","."),number_format($ldec_totcomconiva,2,",","."),number_format($ldec_totimpiva,2,",","."),number_format($ldec_totivaret,2,",","."),$io_pdf); //uf_print_table_default(0,number_format($ldec_totbasimp9,2,",","."),number_format($ldec_totimp9,2,",","."),0,number_format($ldec_totcomsiniva,2,",","."),number_format($ldec_totimp8,2,",","."),number_format($ldec_totbasimp8,2,",","."),number_format($ldec_basimpga,2,",","."),number_format($ldec_totgenadi,2,",","."),$io_pdf); //uf_print_table_totales(number_format($ldec_totcomsiniva,2,",","."),number_format($ldec_totimpret8,2,",","."),number_format($ldec_totimpret9,2,",","."),number_format($ldec_totimpret25,2,",","."),$io_pdf); $li_row1=$li_row+2; $lo_hoja->write($li_row1+5, 0,'', $lo_titulo); $lo_hoja->write($li_row1+5, 1,'', $lo_titulo); $lo_hoja->write($li_row1+5, 2,"Base Imponible", $lo_titulo); $lo_hoja->write($li_row1+5, 3,'', $lo_titulo); $lo_hoja->write($li_row1+5, 4,"Credito Fiscal", $lo_titulo); $lo_hoja->write($li_row1+5, 5,"Iva Retenido a Terceros", $lo_titulo); $lo_hoja->write($li_row1+5, 6,"Anticipo IVA", $lo_titulo); $li_row2=$li_row1+1; $lo_hoja->write($li_row2+5, 0,"Total: Compras Exentas y/o sin derecho a credito fiscal",$lo_dataleft); $lo_hoja->write($li_row2+5, 1,"30", $lo_datacenter); $lo_hoja->write($li_row2+5, 2, $ldec_totcomsiniva, $lo_dataright); $lo_hoja->write($li_row2+5, 3,'', $lo_datacenter); $lo_hoja->write($li_row2+5, 4,'', $lo_datacenter); $lo_hoja->write($li_row2+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row2+5, 6,'', $lo_datacenter); $li_row3=$li_row2+1; $lo_hoja->write($li_row3+5, 0,"E de las: Compras Importacion Afectadas Alicuota General", $lo_dataleft); $lo_hoja->write($li_row3+5, 1,"31", $lo_datacenter); $lo_hoja->write($li_row3+5, 2, '', $lo_dataright); $lo_hoja->write($li_row3+5, 3,"32", $lo_datacenter); $lo_hoja->write($li_row3+5, 4,'', $lo_datacenter); $lo_hoja->write($li_row3+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row3+5, 6,'', $lo_datacenter); $li_row4=$li_row3+1; $lo_hoja->write($li_row4+5, 0,"E de las: Compras Importacion Afectadas en Alicuota General + Adicional",$lo_dataleft); $lo_hoja->write($li_row4+5, 1,"312", $lo_datacenter); $lo_hoja->write($li_row4+5, 2, '', $lo_dataright); $lo_hoja->write($li_row4+5, 3,"322", $lo_datacenter); $lo_hoja->write($li_row4+5, 4,'', $lo_datacenter); $lo_hoja->write($li_row4+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row4+5, 6,'', $lo_datacenter); $li_row5=$li_row4+1; $lo_hoja->write($li_row5+5, 0,"E de las: Compras Importacion Afectadas en Alicuota Reducida",$lo_dataleft); $lo_hoja->write($li_row5+5, 1,"313", $lo_datacenter); $lo_hoja->write($li_row5+5, 2, '', $lo_dataright); $lo_hoja->write($li_row5+5, 3,"323", $lo_datacenter); $lo_hoja->write($li_row5+5, 4,'', $lo_datacenter); $lo_hoja->write($li_row5+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row5+5, 6,'', $lo_datacenter); $li_row6=$li_row5+1; $lo_hoja->write($li_row6+5, 0,"E de las: Compras Internas Afectadas solo en Alicuota General",$lo_dataleft); $lo_hoja->write($li_row6+5, 1,"33", $lo_datacenter); $lo_hoja->write($li_row6+5, 2, $ldec_totbasimp9, $lo_dataright); $lo_hoja->write($li_row6+5, 3,"34", $lo_datacenter); $lo_hoja->write($li_row6+5, 4,$ldec_totimp9, $lo_dataright); $lo_hoja->write($li_row6+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row6+5, 6,'', $lo_datacenter); $li_row7=$li_row6+1; $lo_hoja->write($li_row7+5, 0,"E de las: Compras Internas Afectadas en Alicuota General + Adicional",$lo_dataleft); $lo_hoja->write($li_row7+5, 1,"332", $lo_datacenter); $lo_hoja->write($li_row7+5, 2, "0,00", $lo_dataright); $lo_hoja->write($li_row7+5, 3,"342", $lo_datacenter); $lo_hoja->write($li_row7+5, 4,"0,00", $lo_dataright); $lo_hoja->write($li_row7+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row7+5, 6,'', $lo_datacenter); $li_row8=$li_row7+1; $lo_hoja->write($li_row8+5, 0,"E de las: Compras Internas Afectadas en Alicuota Reducida",$lo_dataleft); $lo_hoja->write($li_row8+5, 1,"333", $lo_datacenter); $lo_hoja->write($li_row8+5, 2, $ldec_totbasimp8, $lo_dataright); $lo_hoja->write($li_row8+5, 3,"343", $lo_datacenter); $lo_hoja->write($li_row8+5, 4, $ldec_totimp8, $lo_dataright); $lo_hoja->write($li_row8+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row8+5, 6,'', $lo_datacenter); $li_row9=$li_row8+1; $lo_hoja->write($li_row9+5, 0,"",$lo_dataleft); $lo_hoja->write($li_row9+5, 1,"35", $lo_datacenter); $lo_hoja->write($li_row9+5, 2, '', $lo_dataright); $lo_hoja->write($li_row9+5, 3,"36", $lo_datacenter); $lo_hoja->write($li_row9+5, 4, '', $lo_dataright); $lo_hoja->write($li_row9+5, 5,'', $lo_datacenter); $lo_hoja->write($li_row9+5, 6,'', $lo_datacenter); uf_insert_seguridad($ls_periodo); $lo_libro->close(); header("Content-Type: application/x-msexcel; name=\"libro_compra.xls\""); header("Content-Disposition: inline; filename=\"libro_compra.xls\""); $fh=fopen($lo_archivo, "rb"); fpassthru($fh); unlink($lo_archivo); print(""); unset($io_pdf); } else { print(""); } unset($io_report); unset($io_funciones); unset($io_fun_nomina); ?>