<?php 
session_start();   
header("Pragma: public");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Cache-Control: private",false);
if(!array_key_exists("la_logusr",$_SESSION))
{
	print "<script language=JavaScript>";
	print "close();";		
	print "</script>";		
}
//ini_set('memory_limit','2048M');
//ini_set('max_execution_time','0');

function error($tipo){

		switch($tipo){				
			case 'tamaño_fila':
				$mensaje = 'ERROR DE TABLA: El tamaño de la fila es mas grande que el de la página.';
				break;		
		}
		
		 print "<script language=JavaScript>";
		 print "alert('".$mensaje."');";
		 print "close();";		
		 print "</script>";	
		 exit();

}

function columna($id,$dato,$prop,$textalign='L',$valign='T'){
	
	global $pdf,$margen_tabla,$ancho,$altura;
	// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0, $valign='T', $fitcell=false,opciones_adicionales)
	$pdf->MultiCell($ancho[$id], $prop['alturamaxima'], utf8_encode($dato), 1, $textalign, 1, 0, '', '', true, 0, true, false, 0, $valign,false,$prop);
	if($pdf->saltopag){return false;}
	$altura[$id]=$pdf->altura_celda;
	
	return $altura;

}

function procesar_fila($datos){
		
		global $pdf,$margen_tabla,$ancho;
		
		$altura_pagina = $pdf->getPageHeight();
		$prop['alturamaxima']=3;
		$prop['check_pagebreak']=0;
		
		$pdf->startMultipleTransaction();								
		$prop['alturamaxima'] = fila($datos,$prop);
		if($prop['alturamaxima']>$altura_pagina){error('tamaño_fila');}
		$salto = $pdf->saltopag;									
		$pdf = $pdf->rollbackMultipleTransaction();
						
		if($salto){
			$pdf->AddPage();
			encabezado();
			$pdf->startMultipleTransaction();											
			$prop['alturamaxima'] = fila($datos,$prop);													
			$pdf = $pdf->rollbackMultipleTransaction();
			$salto = 0;		
		}
		
		
		$pdf->startMultipleTransaction();
		$pagina = $pdf->getPage();
		
		fila($datos,$prop);
		
		$pagina2 = $pdf->getPage();				
		if($pagina!=$pagina2){
			
				$pdf = $pdf->rollbackMultipleTransaction();									
				$pdf->AddPage();
				encabezado();
				fila($datos,$prop);											
		}	
		else{					  
														
				$pdf->commitMultipleTransaction();
		} 

}

$ruta = '../../';
require_once("../clases/covensol_scc_c_cajachica.php");
$objscc=new covensol_scc_c_cajachica('');
$objscc->cargar_seguridad("SCC","covensol_scc_d_movimiento.php");


$fecha_actual = date("d/m/Y");


if(!$_GET['codmov'] or !$_GET['codcaj']){

		print "<script language=JavaScript>";
		echo "alert('ERROR: Faltan datos para generar el reporte');";
		print "close();";		
		print "</script>";
		exit();
				

}

$param = $_GET;		
$param['criterio']='por_listado';
$resp = $objscc->ConsultaMovCajaChica($param);
if(!$resp['rs']->RecordCount()){
	$objscc->io_mensajes->message("No existen movimientos cargados para esta Caja: ".$_GET['codmov']);
	print "<script language=JavaScript>";
	echo "alert('ERROR: Faltan datos para generar el reporte');";
	//print "close();";		
	print "</script>";
	exit();

}
     
$datos['criterio']='por_codigo';
$resp = $objscc->ConsultaCajaChica($param);
if($resp===false){return false;}				
if(!$resp['rs']->RecordCount()){	
	$objscc->io_mensajes->message("ERROR: No se encontraron los datos de configuración de la Caja Chica !");	
}
$DatosCaja = 	$resp['rs']->fields;
		


require_once('../../shared/tcpdf_new/config/lang/ita.php');
require_once('../../shared/tcpdf_new/tcpdf_rep.php');  

$parametros = array();
$objscc->io_conexiones->decodificar_get();
$parametros = $objscc->io_conexiones->asignar_get();

$datos_encabezado = '<p  style="text-align:rigth;"><b> '.'FECHA Y HORA: </b>'.date('d/m/Y').' - '.date('H:i').'<br/><b>USUARIO: </b>'.$_SESSION["la_logusr"].'</p>';

$pdf = new TCPDFREP('PORTRAIT', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
$pdf->SetMargins(PDF_MARGIN_LEFT, 10, PDF_MARGIN_RIGHT);
$pdf->setHeaderFont(array('', '', 8));
$pdf->SetHeaderData('../../shared/imagebank/'.$_SESSION["ls_logo"], $_SESSION["ls_width"], '', $datos_encabezado);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);		
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
$pdf->SetAutoPageBreak(TRUE, 10);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
$pdf->setPrintHeader(true);
//$pdf->setTextoFooter(utf8_encode(''));

$pdf->AddPage();
$pdf->Ln();
$pdf->SetLineStyle(array('width' => 0.1, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(200, 200, 200))); 

$paramrep=array();
$paramrep['color_tit']="#FFFFFF";
$paramrep['color_dato']="#000000";
$paramrep['color_etiqueta']="#000055";
$paramrep['fondo_tit']="#000066";


$paramrep['fondo_dato']="#E8F3FD";
$paramrep['ancho_etiqueta']="150";
$paramrep['ancho_dato']="510";
$paramrep['tamano_letra']="10";
$paramrep['ancho_tit']=$paramrep['ancho_dato']+$paramrep['ancho_etiqueta'];

$paramrep['ancho_etiqueta_numcor']="440";
$paramrep['ancho_dato_numcor']="110";
$paramrep['tamano_letra_numcor']="8";
$paramrep['color_numcor']="#0000AA";
$paramrep['color_etiqueta_numcor']="#000000";
$paramrep['fondo_numcor']="#FFFFFF";

function datos_movcaja($parametro=array()){		
			
	global $paramrep,$datos,$objscc;
	$monto = ($datos['signo']=='A')?$datos['monto']:-($datos['monto']);
	$codmov = 'GEN-'.$datos['codmov'];
	$codcoreltipmov = $datos['codtipmov'].'-'.$datos['codcoreltipmov'];
	$tabla = '<table cellspacing="0" cellpadding="1" border="1">
						<thead>
							<tr bgcolor="'.$paramrep['fondo_tit'].'" color="'.$paramrep['color_tit'].'" height="12">
								<td align="center" width="'.$paramrep['ancho_tit'].'"><font size="12"><b> MOVIMIENTO DE CAJA CHICA </b></font></td>									
							</tr>
						</thead>
				</table>';			
	
					
	$tabla = $tabla.'<table cellspacing="0" cellpadding="2" border="1">
						<thead>
							<tr bgcolor="'.$paramrep['fondo_dato'].'" color="'.$paramrep['color_dato'].'" height="6">
								<td align="right" width="'.$paramrep['ancho_etiqueta'].'" color="'.$paramrep['color_etiqueta'].'"><font size="'.$paramrep['tamano_letra'].'"><b> Caja: </b></font></td>
								<td align="left"  width="'.$paramrep['ancho_dato'].'"><font size="'.$paramrep['tamano_letra'].'"> '.$datos['codcaj'].' - '.$datos['dencaj'].' </font></td>																							
							</tr>
						</thead>
				</table>';
	
	$tabla = $tabla.'<table cellspacing="0" cellpadding="2" border="1">
						<thead>
							<tr bgcolor="'.$paramrep['fondo_dato'].'" color="'.$paramrep['color_dato'].'" height="6">
								<td align="right" width="'.$paramrep['ancho_etiqueta'].'" color="'.$paramrep['color_etiqueta'].'"><font size="'.$paramrep['tamano_letra'].'"><b> Tipo de Movimiento: </b></font></td>
								<td align="left"  width="'.$paramrep['ancho_dato'].'"><font size="'.$paramrep['tamano_letra'].'"> '.trim($datos['codtipmov'].' - '.$datos['dentipmov']).' </font></td>																							
							</tr>
						</thead>
				</table>';
	
	$tabla = $tabla.'<table cellspacing="0" cellpadding="2" border="1">
						<thead>
							<tr bgcolor="'.$paramrep['fondo_dato'].'" color="'.$paramrep['color_dato'].'" height="6">
								<td align="right" width="'.$paramrep['ancho_etiqueta'].'" color="'.$paramrep['color_etiqueta'].'"><font size="'.$paramrep['tamano_letra'].'"><b> Fecha: </b></font></td>
								<td align="left"  width="'.$paramrep['ancho_dato'].'"><font size="'.$paramrep['tamano_letra'].'"> '.$datos['fecha'].' </font></td>																							
							</tr>
						</thead>
				</table>';
	
	$tabla = $tabla.'<table cellspacing="0" cellpadding="2" border="1">
						<thead>
							<tr bgcolor="'.$paramrep['fondo_dato'].'" color="'.$paramrep['color_dato'].'" height="6">
								<td align="right" width="'.$paramrep['ancho_etiqueta'].'" color="'.$paramrep['color_etiqueta'].'"><font size="'.$paramrep['tamano_letra'].'"><b> Monto: </b></font></td>
								<td align="left"  width="'.$paramrep['ancho_dato'].'"><font size="'.$paramrep['tamano_letra'].'"> '.$datos['monto'].' </font></td>																							
							</tr>
						</thead>
				</table>';
	
	$tabla = $tabla.'<table cellspacing="0" cellpadding="2" border="1">
						<thead>
							<tr bgcolor="'.$paramrep['fondo_dato'].'" color="'.$paramrep['color_dato'].'" height="6">
								<td align="right" width="'.$paramrep['ancho_etiqueta'].'" color="'.$paramrep['color_etiqueta'].'"><font size="'.$paramrep['tamano_letra'].'"><b> Código: </b></font></td>
								<td align="left"  width="'.$paramrep['ancho_dato'].'"><font size="'.$paramrep['tamano_letra'].'"> '.$codmov.' </font></td>																							
							</tr>
						</thead>
				</table>';
				
	$tabla = $tabla.'<table cellspacing="0" cellpadding="2" border="1">
						<thead>
							<tr bgcolor="'.$paramrep['fondo_dato'].'" color="'.$paramrep['color_dato'].'" height="6">
								<td align="right" width="'.$paramrep['ancho_etiqueta'].'" color="'.$paramrep['color_etiqueta'].'"><font size="'.$paramrep['tamano_letra'].'"><b> Correlativo (Tipo): </b></font></td>
								<td align="left"  width="'.$paramrep['ancho_dato'].'"><font size="'.$paramrep['tamano_letra'].'"> '.$codcoreltipmov.' </font></td>																							
							</tr>
						</thead>
				</table>';																					
	return $tabla; 
}

$y_actual = $pdf->GetY();


$FirmaSello = '<table cellspacing="0" cellpadding="3" border="1">
				  <tr bgcolor="#E8F3FD">					
					<td  align="center" width="220"><font size="8">ELABORADO</font></td>
					<td  align="center" width="220"><font size="8">VERIFICADO</font></td>
					<td align="center" width="220"><font size="8">AUTORIZADO</font></td>
				  </tr>
				  <tr>
					<td height="65" align="center">'.$y.'					   
					</td>
					<td>					
					</td>
					<td>					
					</td>
				  </tr>				 
				</table>';


$param['ancho'][1] = 165;
$param['ancho'][2] = 165;
$param['ancho'][3] = 165;
$param['ancho'][4] = 165;
$param['ancho']['total'] = array_sum($param['ancho']);
$param['encabezado']['color_fondo'] = '#000066';
$param['encabezado']['color_letra'] = '#FFFFFF';
$param['encabezado']['tamaño'] = 10;
$param['encabezado2']['color_fondo'] = '#E8F3FD';
$param['encabezado2']['color_letra'] = '#000000';
$param['fila']['color_fondo'] = '#FFFFFF';
$param['fila']['color_letra'] = '#000000';
$param['fila']['tamaño'] = 10;


function EncabezadoDtContable($parametro=array()){		
	
	global $param;
	
	$encabezado = '<p  style="text-align:center;"><table cellspacing="0" cellpadding="1" border="1">
				<thead>
				    <tr bgcolor="'.$param['encabezado2']['color_fondo'].'" color="'.$param['encabezado2']['color_letra'].'" >
					  <td colspan="4" align="center">
					  	<font size="12">					            
							<b>DETALLE CONTABLE</b>								
						</font>
					  </td>
				   </tr>
					<tr bgcolor="'.$param['encabezado']['color_fondo'].'" color="'.$param['encabezado']['color_letra'].'" height="6">						
						<td align="center" colspan="2" width="'.$param['ancho'][1].'" bgcolor="'.$param['encabezado']['color_fondo'].'" ><font size="'.$param['encabezado']['tamaño'].'"> COMPROMISO</font></td>
						<td align="center" colspan="2" width="'.$param['ancho'][2].'" bgcolor="'.$param['encabezado']['color_fondo'].'" ><font size="'.$param['encabezado']['tamaño'].'"> CUENTA </font></td>
						<td align="center" colspan="2" width="'.$param['ancho'][3].'" bgcolor="'.$param['encabezado']['color_fondo'].'" ><font size="'.$param['encabezado']['tamaño'].'"> DEBE </font></td>
						<td align="center" colspan="2" width="'.$param['ancho'][4].'" bgcolor="'.$param['encabezado']['color_fondo'].'" ><font size="'.$param['encabezado']['tamaño'].'"> HABER </font></td>
					</tr>							
				</thead>';
				
	return $encabezado; 
}

function FinTablaDtContable($datos){
			global $param;
			$fin_tabla = '   <tr>
							   <td colspan="2"  width="'.($param['ancho'][1]+$param['ancho'][2]).'" align="right">
							     <font size="'.$param['encabezado']['tamaño'].'"> <b>TOTALES:</b></font>
							   </td>
							   <td  width="'.($param['ancho'][3]).'" align="right">
							     <font size="'.$param['encabezado']['tamaño'].'"> '.$datos['monto'].'</font>
							   </td>
							   <td width="'.($param['ancho'][4]).'" align="right">
							     <font size="'.$param['encabezado']['tamaño'].'"> '.$datos['monto'].'</font>
							   </td>
						     </tr>							 
		                   </table></p>';
		return $fin_tabla; 
}

function FilaDtContable($datos){
		
		global $param;	

		$filas .= '<tr bgcolor="'.$param['fila']['color_fondo'].'" color="'.$param['fila']['color_letra'].'">																							
						<td width="'.$param['ancho'][1].'" align="center" bgcolor="'.$param['fila']['color_fondo'].'"><font size="'.$param['fila']['tamaño'].'">'.$datos['documento'].'</font></td>
						<td width="'.$param['ancho'][2].'" align="center" bgcolor="'.$param['fila']['color_fondo'].'"><font size="'.$param['fila']['tamaño'].'">'.$datos['sc_cuenta'].'</font></td>
						<td width="'.$param['ancho'][3].'" align="right" bgcolor="'.$param['fila']['color_fondo'].'"><font size="'.$param['fila']['tamaño'].'">'.$datos['montodebe'].'</font></td>
						<td width="'.$param['ancho'][4].'" align="right" bgcolor="'.$param['fila']['color_fondo'].'"><font size="'.$param['fila']['tamaño'].'">'.$datos['montohaber'].'</font></td>
				 </tr>';
		
		return $filas;
}




$pdf->writeHTML(utf8_encode(datos_movcaja()), true, false, false, false, '');



$datosSGC['documento'] = "SCC-APR0000".$DatosCaja['codcaj'];
$datosSGC['debhab'] = "D";
$datosSGC['sc_cuenta'] = $DatosCaja['sc_cuenta'];
$datosSGC['montodebe'] = $datos['monto'];
$datosSGC['montohaber'] = "";
$FilaDEBE = FilaDtContable($datosSGC);


$datosSGC["sc_cuenta"] = $objscc->cuenta_beneficiario($DatosCaja);
if($datosSGC["sc_cuenta"]===false){exit();}
$datosSGC['debhab'] = "H";
$datosSGC['montohaber'] = $datos['monto'];
$datosSGC['montodebe'] = "";
$FilaHABER = FilaDtContable($datosSGC);
$pdf->Ln();
$pdf->Ln();

$InfoContable = EncabezadoDtContable().$FilaDEBE.$FilaHABER.FinTablaDtContable($datos);
$pdf->writeHTML(utf8_encode($InfoContable), true, false, false, false, '');


$pdf->SetY(240);
$pdf->SetLineStyle(array('width' => 0.85 / $pdf->getScaleFactor(), 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(0, 0, 0)));
$pdf->writeHTML(utf8_encode($FirmaSello), true, false, false, false, '');







$pdf->Output('reporte_movimiento_cajachica.pdf', 'I');


/*
$pdf->startMultipleTransaction();
$pagina = $pdf->getPage();

$pdf->writeHTML(utf8_encode($tabla1), true, false, false, false, '');

$pagina2 = $pdf->getPage();				
if($pagina!=$pagina2){
	
		$pdf = $pdf->rollbackMultipleTransaction();									
		$pdf->AddPage();
		$pdf->writeHTML(utf8_encode($tabla1), true, false, false, false, '');										
}	
else{					  
												
		$pdf->commitMultipleTransaction();
} 


$pdf->Output('reporte_movimiento_cajachica.pdf', 'I');
*/




?>