"; print "close();"; print "opener.document.form1.submit();"; print ""; } ini_set('memory_limit','2048M'); ini_set('max_execution_time','0'); //----------------------------------------------------------------------------------------------------------------------------------- function uf_insert_seguridad($as_titulo,$as_desnom,$as_periodo,$ai_tipo) { global $io_fun_nomina; $ls_codnom=$_SESSION["la_nomina"]["codnom"]; $ls_descripcion="Gener� el Reporte ".$as_titulo.". Para ".$as_desnom.". ".$as_periodo; if($ai_tipo==1) { $lb_valido=$io_fun_nomina->uf_load_seguridad_reporte_nomina("SNO","sigesp_sno_r_recibopago.php",$ls_descripcion,$ls_codnom); } else { $lb_valido=$io_fun_nomina->uf_load_seguridad_reporte_nomina("SNO","sigesp_sno_r_recibopago.php",$ls_descripcion,$ls_codnom); } return $lb_valido; } //----------------------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------------------- function calcular_anos_servicioas($fecha_ingreso,$fecha_egreso) { $c = (integer)date("Y",$fecha_ingreso); $b = (integer)date("m",$fecha_ingreso); $a = (integer)date("d",$fecha_ingreso); $ce = (integer)date("Y",$fecha_egreso); $be = (integer)date("m",$fecha_egreso); $ae = (integer)date("d",$fecha_egreso); $anos = $ce-$c; if(($be-$b) > 0){ }elseif(($be-$b) <= 0){ if($ae-$a < 0) { $anos = $anos-1; } } else{ $anos; } return $anos; } //FIN DE calcular_anos_servicioas //----------------------------------------------------------------------------------------------------------------------------------- function periodo($periodo=''){ switch($periodo){ case '001'; return 'enero'; break; case '002'; return 'febrero'; break; case '003'; return 'marzo'; break; case '004'; return 'abril'; break; case '005'; return 'mayo'; break; case '006'; return 'junio'; break; case '007'; return 'julio'; break; case '008'; return 'agosto'; break; case '009'; return 'septiembre'; break; case '010'; return 'octubre'; break; case '011'; return 'noviembre'; break; case '012'; return 'diciembre'; break; } } //----------------------------------------------------- Instancia de las clases ------------------------------------------------ $ruta = "../../"; require_once("../clases/covensol_snoh_c_historico.php"); $objsnoh = new covensol_snoh(); $param=$_GET; $rs_persona = $objsnoh->consulta_neto($param); require_once("../../shared/tcpdf/config/lang/ita.php"); require_once("../../shared/tcpdf/tcpdf.php"); //error_reporting(E_ALL); //set_time_limit(18000); $pdf = new TCPDF('PORTRAIT', PDF_UNIT, 'LETTER', true, 'UTF-8', true); $pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA)); $pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED); $pdf->SetMargins(PDF_MARGIN_LEFT, 10, PDF_MARGIN_RIGHT); $pdf->SetFooterMargin(PDF_MARGIN_FOOTER); $pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM); $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO); $pdf->setPrintHeader(false); //$pdf->setTextoFooter(utf8_encode('')); $pdf->AddPage(); $titulo = ' PAGO NÓMINA PENSIONES '; $periodo = ' PERÍODO: '.$ls_peractnom.", ".$ld_fecdesper." - ".$ld_fechasper; $personal = ' PERSONAL: '.$ls_codperdes.'-'.$ls_codperhas; $margenes = $pdf->getMargins(); //$pdf->Image($ruta.'shared/imagebank/'.$_SESSION["ls_logo"],$margenes['left'],$margenes['top'], 15, 15); $pdf->Image('../../shared/imagebank/'.$_SESSION["ls_logo"],$margenes['left'],$margenes['top'], 15, 15); $pdf->SetFont('helvetica', '', 8); $fecha = '

'.date('d/m/Y').'

'; $pdf->writeHTML(utf8_encode($fecha), true, false, false, false, ''); $pdf->Ln(); $pdf->Ln(); $pdf->Ln(); $pdf->SetFont('helvetica', '',10); $nomina = '

DATOS DE PAGO:

'; $pdf->writeHTML($nomina, true, false, false, false, ''); $pdf->Ln(); $periodo = '

AÑO: '.$rs_persona->fields['anocur'].'

'; $pdf->writeHTML($periodo, true, false, false, false, ''); $periodo = '

PERIODO: '.$rs_persona->fields['codperi'].'

'; $pdf->writeHTML($periodo, true, false, false, false, ''); $periodo = '

FECHA: '.$objsnoh->io_conexiones->formatea_fecha_normal($rs_persona->fields['fecdesper']).'-'.$objsnoh->io_conexiones->formatea_fecha_normal($rs_persona->fields['fechasper']).'

'; $pdf->writeHTML($periodo, true, false, false, false, ''); $pdf->Ln(); $pdf->SetFont('helvetica', '', 10); $pdf->SetLineStyle(array('width' => 0.1, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(200, 200, 200))); $letrasenc['R']=120; $letrasenc['G']=120; $letrasenc['B']=120; $fondoenc['R']=240; $fondoenc['G']=240; $fondoenc['B']=200; $letra_fila['R']=0; $letra_fila['G']=0; $letra_fila['B']=0; $fondo_fila['R']=255; $fondo_fila['G']=255; $fondo_fila['B']=255; $letratot['R']=0; $letratot['G']=0; $letratot['B']=0; $fondotot['R']=240; $fondotot['G']=240; $fondotot['B']=200; function encabezado_nombre($opciones=array()){ global $pdf,$letrasenc,$fondoenc; $pdf->SetFont('helvetica', 'B', 8); $pdf->SetTextColor($letrasenc['R'],$letrasenc['G'],$letrasenc['B']); $pdf->SetFillColor($fondoenc['R'],$fondoenc['G'],$fondoenc['B']); //Cell( $w, $h, $txt, $border,$ln,$align, $fill,$link,$stretch,$ignore_min_height) $pdf->Cell(30, 3,'CÉDULA' , 1,0,'C',1); $pdf->Cell(155, 3,'NOMBRE', 1,0,'C',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 9); } function fila_nombre($datos=array()){ global $pdf,$fondo_fila,$letra_fila; $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor($fondo_fila['R'],$fondo_fila['G'],$fondo_fila['B']); $pdf->SetTextColor($letra_fila['R'],$letra_fila['G'],$letra_fila['B']); $pdf->Cell(30, 3,utf8_encode($datos['nacper'].'-'.$datos['cedper']) , 1,0,'C',1); $pdf->Cell(155, 3,utf8_encode($datos['nomper'].' '.$datos['apeper']), 1,0,'L',1); $pdf->Ln(); } function encabezado1($opciones=array()){ global $pdf,$letrasenc,$fondoenc; $pdf->SetFont('helvetica', 'B', 8); $pdf->SetTextColor($letrasenc['R'],$letrasenc['G'],$letrasenc['B']); $pdf->SetFillColor($fondoenc['R'],$fondoenc['G'],$fondoenc['B']); //Cell( $w, $h, $txt, $border,$ln,$align, $fill,$link,$stretch,$ignore_min_height) $pdf->Cell(80, 3,utf8_encode('CARGO'), 1,0,'C',1); $pdf->Cell(105, 3,utf8_encode('TIPO') , 1,0,'C',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 9); } function fila1($datos=array()){ global $pdf,$fondo_fila,$letra_fila; $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor($fondo_fila['R'],$fondo_fila['G'],$fondo_fila['B']); $pdf->SetTextColor($letra_fila['R'],$letra_fila['G'],$letra_fila['B']); $pdf->Cell(80, 3,utf8_encode($datos['descar']), 1,0,'C',1); $pdf->Cell(105, 3,utf8_encode($datos['dentippersss']) , 1,0,'C',1); $pdf->Ln(); } function encabezado2($opciones=array()){ global $pdf,$letrasenc,$fondoenc; $pdf->SetFont('helvetica', 'B', 8); $pdf->SetTextColor($letrasenc['R'],$letrasenc['G'],$letrasenc['B']); $pdf->SetFillColor($fondoenc['R'],$fondoenc['G'],$fondoenc['B']); //Cell( $w, $h, $txt, $border,$ln,$align, $fill,$link,$stretch,$ignore_min_height) $pdf->Cell(185, 3,utf8_encode('OFICINA') , 1,0,'C',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 9); } function fila2($datos=array()){ global $pdf,$fondo_fila,$letra_fila; $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor($fondo_fila['R'],$fondo_fila['G'],$fondo_fila['B']); $pdf->SetTextColor($letra_fila['R'],$letra_fila['G'],$letra_fila['B']); $pdf->Cell(185, 3,utf8_encode($datos['desuniadm']) , 1,0,'C',1); $pdf->Ln(); } function encabezado3($opciones=array()){ global $pdf,$letrasenc,$fondoenc;; $pdf->SetFont('helvetica', 'B', 9); $pdf->SetTextColor($letrasenc['R'],$letrasenc['G'],$letrasenc['B']); $pdf->SetFillColor($fondoenc['R'],$fondoenc['G'],$fondoenc['B']); $pdf->Cell(60, 3,'BANCO.', 1,0,'C',1); $pdf->Cell(60, 3,utf8_encode('FORMA DE PAGO'), 1,0,'C',1); $pdf->Cell(65, 3,utf8_encode('NRO. CUENTA'), 1,0,'C',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 6); } function fila3($datos=array()){ global $pdf,$fondo_fila,$letra_fila;; $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor($fondo_fila['R'],$fondo_fila['G'],$fondo_fila['B']); $pdf->SetTextColor($letra_fila['R'],$letra_fila['G'],$letra_fila['B']); switch($datos['tipcuebanper']){ case 'C': $formap = 'C-Cuenta Corriente'; break; case 'A': $formap = 'A-Cuenta de Ahorro'; break; } if($datos['pagefeper']==1 and $datos['pagbanper']==0){$formap = 'Pago por Cheque';} $pdf->Cell(60, 3,utf8_encode($datos['codban'].'-'.$datos['nomban']) , 1,0,'C',1); $pdf->Cell(60, 3,utf8_encode($formap), 1,0,'C',1); $pdf->Cell(65, 3,utf8_encode($datos['codcueban']), 1,0,'C',1); $pdf->Ln(); } function encabezado4($opciones=array()){ global $pdf,$letrasenc,$fondoenc;; $pdf->SetFont('helvetica', 'B', 9); $pdf->SetTextColor($letrasenc['R'],$letrasenc['G'],$letrasenc['B']); $pdf->SetFillColor($fondoenc['R'],$fondoenc['G'],$fondoenc['B']); $pdf->Cell(45, 3,utf8_encode('FEC. ING.'), 1,0,'C',1); $pdf->Cell(45, 3,'F. ING. ADM. PUB.', 1,0,'C',1); $pdf->Cell(45, 3,'SUELDO', 1,0,'C',1); $pdf->Cell(50, 3,'TIEMPO', 1,0,'C',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 6); } function fila4($datos=array()){ global $pdf,$fondo_fila,$letra_fila,$objsnoh; $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor($fondo_fila['R'],$fondo_fila['G'],$fondo_fila['B']); $pdf->SetTextColor($letra_fila['R'],$letra_fila['G'],$letra_fila['B']); $pdf->Cell(45, 3,$objsnoh->io_conexiones->formatea_fecha_normal($datos["fecingper"]), 1,0,'C',1); $pdf->Cell(45, 3,$objsnoh->io_conexiones->formatea_fecha_normal($datos["fecingadmpubper"]), 1,0,'C',1); $pdf->Cell(45, 3,utf8_encode(number_format($datos["sueper"],2,",",".")), 1,0,'C',1); $tiempo = $objsnoh->io_conexiones->calcular_tiempo($objsnoh->io_conexiones->formatea_fecha_normal($datos["fecingper"]),$objsnoh->io_conexiones->formatea_fecha_normal($datos["fechasper"])); $pdf->Cell(50, 3,$tiempo['anos'].' año(s), '.$tiempo['meses'].' mese(s)', 1,0,'C',1); $pdf->Ln(); } function encabezado_conceptos($opciones=array()){ global $pdf,$letrasenc,$fondoenc; $pdf->SetFont('helvetica', 'B', 10); $pdf->SetTextColor($letrasenc['R'],$letrasenc['G'],$letrasenc['B']); $pdf->SetFillColor($fondoenc['R'],$fondoenc['G'],$fondoenc['B']); $pdf->Cell(22, 3,utf8_encode('CONC.'), 1,0,'C',1); $pdf->Cell(119, 3,'DESCRIP.', 1,0,'C',1); $pdf->Cell(22, 3,utf8_encode('ASIG.'), 1,0,'C',1); $pdf->Cell(22, 3,utf8_encode('DEDUC.'), 1,0,'C',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 6); } function fila_conceptos($datos=array()){ global $pdf,$color_concepto,$fondo_fila,$letra_fila; if(!$color_concepto){$color_concepto=255;} switch($color_concepto){ case 200: $color_concepto=255; break; case 255: $color_concepto=200; break; } $pdf->SetFont('helvetica', 'b', 10); $pdf->SetFillColor(255, 255, $color_concepto); $pdf->SetTextColor(0); if($datos['final']=='1'){$borde1 = 'LB';$borde2 = 'B';$borde3 = 'LRB';}else{$borde1 = 'L';$borde2 = '';$borde3 = 'LR';} $pdf->Cell(22, 3,utf8_encode($datos['codconc']) , $borde1,0,'R',1); $pdf->Cell(119, 3,$datos['desc'], $borde2,0,'L',1); $pdf->Cell(22, 3,utf8_encode($datos['asig']), $borde3,0,'R',1); $pdf->Cell(22, 3,utf8_encode($datos['deduc']), $borde3,0,'R',1); $pdf->Ln(); } function totales_conceptos($datos=array()){ global $pdf,$letratot,$fondotot; $pdf->SetFont('helvetica', 'B', 10); $pdf->SetTextColor($letratot['R'],$letratot['G'],$letratot['B']); $pdf->SetFillColor($fondotot['R'],$fondotot['G'],$fondotot['B']); $pdf->Cell(141, 3,utf8_encode('TOTALES:'), 1,0,'R',1); $pdf->Cell(22, 3,utf8_encode($datos['total_asig']), 1,0,'R',1); $pdf->Cell(22, 3,utf8_encode($datos['total_deduc']), 1,0,'R',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 6); } function total_nomina($datos=array()){ global $pdf,$letrasenc,$fondoenc;; $pdf->SetFont('helvetica', 'B', 10); $pdf->SetTextColor($letrasenc['R'],$letrasenc['G'],$letrasenc['B']); $pdf->SetFillColor($fondoenc['R'],$fondoenc['G'],$fondoenc['B']); $pdf->Cell(141, 3,utf8_encode('TOTAL GENERAL:'), 1,0,'R',1); $pdf->Cell(22, 3,utf8_encode($datos['total_asig']), 1,0,'R',1); $pdf->Cell(22, 3,utf8_encode($datos['total_deduc']), 1,0,'R',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 6); } function neto_cobrar($datos=array()){ global $pdf,$letrasenc,$fondoenc;; $pdf->SetFont('helvetica', 'B', 10); $pdf->SetTextColor(0,0,0); $pdf->SetFillColor(240, 240, 200); //Cell( $w, $h, $txt, $border,$ln,$align, $fill,$link,$stretch,$ignore_min_height) $pdf->Cell(152, 3,utf8_encode('NETO A COBRAR:'), 0,0,'R',0); $pdf->SetTextColor(0,0,150); $pdf->Cell(32, 3,utf8_encode($datos.' Bs.'), 1,0,'R',1); $pdf->Ln(); $pdf->SetFillColor(255, 255, 255); $pdf->SetTextColor(0); $pdf->SetFont('helvetica', '', 6); } $color_concepto=255; //$li_totrow=$io_pensionados->rs_data_pensionados->RecordCount(); $li_totasi=0; $li_totded=0; $li_totapo=0; $li_totgeneral=0; $li_i=0; encabezado_nombre(); fila_nombre($rs_persona->fields); encabezado1(); fila1($rs_persona->fields); encabezado2(); fila2($rs_persona->fields); encabezado3(); fila3($rs_persona->fields); encabezado4(); fila4($rs_persona->fields); encabezado_conceptos(); $rs_concepto = $objsnoh->consulta_conceptos_neto($param); foreach($rs_concepto AS $fila){ $ls_tipsal=rtrim($fila["tipsal"]); $ls_codconc=$fila["codconc"]; $ls_nomcon=$fila["nomcon"]; $datos=array(); if(($ls_tipsal=="A") || ($ls_tipsal=="V1") || ($ls_tipsal=="V2") || ($ls_tipsal=="R")) // Buscamos las asignaciones { $li_asig=$li_asig+1; $li_toting=$li_toting+abs($fila["valsal"]); $li_valsal=number_format(abs($fila["valsal"]),2,",","."); $datos['asig'] = $li_valsal; } else // Buscamos las deducciones y aportes { $li_dedu=$li_dedu+1; $li_totded=$li_totded+abs($fila["valsal"]); $li_valsal=number_format(abs($fila["valsal"]),2,",","."); $datos['deduc'] = $li_valsal; } $ls_nomcon = substr($ls_nomcon,0,70); $datos['codconc']=$ls_codconc; $datos['desc']=$ls_nomcon; fila_conceptos($datos); } $li_total_neto=$li_toting-$li_totded; $li_totalasignacionx=number_format($li_toting,2,",","."); $li_totaldeduccionx=number_format($li_totded,2,",","."); $li_totalaportex=number_format($li_totalaporte,2,",","."); $li_total_netox=number_format($li_total_neto,2,",","."); $datos=array(); $datos['total_asig']=$li_totalasignacionx; $datos['total_deduc']=$li_totaldeduccionx; $datos['neto']=$li_total_netox; totales_conceptos($datos); $li_totasi=number_format($li_toting,2,",","."); $li_totded=number_format($li_totded,2,",","."); $li_totapo=number_format($li_totapo,2,",","."); $li_totgeneral=number_format($li_total_neto,2,",","."); $datos=array(); $datos['total_asig']=$li_totasi; $datos['total_deduc']=$li_totded; $datos['total_general']=$li_totgeneral; $pdf->Ln(); neto_cobrar($li_total_netox); if($rs_persona->RecordCount()>0){$pdf->Output('recibo_pago.pdf', 'I');}else{echo '';} ?>