";
print "close();";
print "";
}
//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 "";
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_fop_c_formulacion.php");
$objfop=new covensol_fop_c_formulacion($propiedades);
$objfop->cargar_seguridad("FOP","covensol_fop_d_dt_ep3.php");
$fecha_actual = date("d/m/Y");
if(!$_GET['anopresup'] or !$_GET['estcla'] or !$_GET['codestpro1'] or !$_GET['codplangob']){
print "";
exit();
}
if($_GET['nroh'] and (!$_GET['anopresup'] or !$_GET['estcla'] or !$_GET['codestpro1'])){
print "";
exit();
}
$param = $_GET;
$param['criterio']='por_datos';
$param['tiporep'] = $_GET['nroh']?'fases':'';
require_once('../../shared/tcpdf_new/config/lang/ita.php');
require_once('../../shared/tcpdf_new/tcpdf_rep.php');
$parametros = array();
//$objfop->io_conexiones->decodificar_get();
$parametros = $objfop->io_conexiones->asignar_get();
$datos_encabezado = ' '.'FECHA Y HORA: '.date('d/m/Y').' - '.date('H:i').'
USUARIO: '.$_SESSION["la_logusr"].'
';
$pdf = new TCPDFREP('PORTRAIT', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
$pdf->SetMargins(PDF_MARGIN_LEFT, 15, PDF_MARGIN_RIGHT);
$pdf->setHeaderFont(array('', '', 8));
$pdf->ancho_logo = $_SESSION["ls_width"]*0.3;
$pdf->alto_logo = $_SESSION["ls_height"]*0.3;
$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)));
$objfop->RepParam['ancho'][1] = 110;
$objfop->RepParam['ancho'][2] = 250;
$objfop->RepParam['ancho'][3] = 300;
$objfop->RepParam['ancho']['total'] = array_sum($objfop->RepParam['ancho']);
$objfop->RepParam['encabezado']['color_fondo'] = '#000066';
$objfop->RepParam['encabezado']['color_letra'] = '#FFFFFF';
$objfop->RepParam['encabezado']['tamaño'] = 10;
$objfop->RepParam['encabezado2']['color_fondo'] = '#E8F3FD';
$objfop->RepParam['encabezado2']['color_letra'] = '#000000';
$objfop->RepParam['fila']['color_fondo'] = '#FFFFFF';
$objfop->RepParam['fila']['color_letra'] = '#000000';
$objfop->RepParam['fila']['tamaño'] = 8;
$paramrep=array();
$paramrep['color_tit']="#FFFFFF";
$paramrep['color_dato']="#000000";
$paramrep['color_etiqueta']="#000055";
$paramrep['fondo_tit']="#000066";
$paramrep['fondo_tit2']="#E1F0FF";
$paramrep['color_tit2']="#000000";
$paramrep['ancho_total'] = 660;
$paramrep['fondo_dato']="#FFFFFF";
$paramrep['ancho_etiqueta']="250";
$paramrep['ancho_dato']=$paramrep['ancho_total']-$paramrep['ancho_etiqueta'];
$paramrep['tamano_letra']="10";
$paramrep['ancho_tit']=$paramrep['ancho_total'];
$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";
$ancho_firma = $paramrep['ancho_total']/3;
function NombreReporte($parametro=array()){
$HTML = ' FICHA DE PROYECTO O ACCIÓN CENTRALIZADA
';
return $HTML;
}
function DatosBasicosIdent($parametro=array()){
global $paramrep,$datos,$objfop,$parametros,$param;
$tabla="";
//$datosenc = $objfop->FormatLonCodEstPro($parametros);
$tabla = '
| DATOS BASICOS DE IDENTIFICACIÓN DEL PROYECTO Y/O ACCION CENTRALIZADA |
';
$tabla = $tabla.'
| Plan de Gobierno: |
'.$parametro['desplangob'].' |
| Año: |
'.$parametro['anopresup'].' |
';
if($param['denhist']){
$tabla = $tabla.'
| Fase: |
('.$param['abvrhist'].') - '.$param['denhist'].' |
';
}
$tabla = $tabla.'
| Codigo del Proyecto: |
'.$parametro['codestpro1'].' |
| Tipo de Estructura: |
'.$parametro['estcla'].' |
| Denominación: |
'.$parametro['denestpro1'].' |
| Descripción: |
'.$parametro['descripry'].' |
| Estatus del proyecto: |
'.$parametro['desestproy'].' |
| Situación Presupuestaria: |
'.$parametro['desitprepry'].' |
| Ante Proyecto de Presupuesto: |
'.$parametro['considapp'].' |
| Ley Especial de Endeudamiento anual: |
'.$parametro['considleea'].' |
| Fecha de Inicio: |
'.$parametro['fecinipry'].' |
| Fecha de Culminación: |
'.$parametro['fecfinpry'].' |
| Monto Total del Proyecto: |
'.$parametro['montotpry'].' |
';
return $tabla;
}
function LocalizacionEspecifica($parametro=array()){
global $paramrep,$datos,$objfop,$parametros;
$tabla="";
//$datosenc = $objfop->FormatLonCodEstPro($parametros);
$tabla = '
| LOCALIZACION ESPECIFICA DEL PROYECTO (POLÍTICO ADMINISTRATIVA) |
';
$tabla = $tabla.'
| Ambito: |
'.$parametro['desamb'].' |
';
return $tabla;
}
function AreaEstrategica($parametro=array()){
global $paramrep,$datos,$objfop,$parametros;
$tabla="";
//$datosenc = $objfop->FormatLonCodEstPro($parametros);
$tabla = '';
$tabla = $tabla.'
| Objetivo Histórico: |
'.$parametro['desdirect'].' |
| Objetivo Nacional: |
'.$parametro['desobj'].' |
| Objetivo Estratégico: |
'.$parametro['denestratj'].' |
| Objetivo General: |
'.$parametro['denpol'].' |
| Objetivo Estratégico Institucional: |
'.$parametro['objestrainst'].' |
| Objetivo Especifico del Proyecto: |
'.$parametro['desamb'].' |
';
return $tabla;
}
function IndicadoresProyecto($parametro=array()){
global $paramrep,$datos,$objfop,$parametros;
$tabla="";
//$datosenc = $objfop->FormatLonCodEstPro($parametros);
$tabla = '';
$tabla = $tabla.'
| ENUNCIADO DEL PROBLEMA O NECESIDAD QUE ORIGINA EL PROYECTO |
';
$tabla = $tabla.'
| Problema o Necesidad (Enunciado): |
'.$parametro['enunprob'].' |
';
$tabla = $tabla.'
| INIDICADOR DE LA SITUACION ACTUAL DEL PROBLEMA |
';
$tabla = $tabla.'
| Descripción: |
'.$parametro['indsitact'].' |
| Fecha de la Última Data: |
'.$parametro['fecultdat'].' |
| Formula: |
'.$parametro['forind'].' |
| Fuente: |
'.$parametro['fuenteind'].' |
';
$tabla = $tabla.'
| INDICADOR DE LA SITUACION OBJETIVO DEL PROYECTO |
';
$tabla = $tabla.'
| Descripción: |
'.$parametro['indsitact'].' |
| Tiempo de Impacto: |
Años: '.$parametro['anoimpact'].' Meses: '.$parametro['mesimpact'].' |
';
return $tabla;
}
function ResultadoProyecto($parametro=array()){
global $paramrep,$datos,$objfop,$parametros;
$tabla="";
//$datosenc = $objfop->FormatLonCodEstPro($parametros);
$tabla = '';
$tabla = $tabla.'
| Tipo de Resultado: |
'.$parametro['desctipresul'].' |
| Descripción: |
'.$parametro['desresul'].' |
| Unidad de Medida: |
'.$parametro['desunimed'].' |
| Cantidad: |
'.$parametro['cantidadmeta'].' |
| Beneficiario del Proyecto: |
'.$parametro['nombenpry'].' |
| Observ. Beneficiario: |
'.$parametro['desresul'].' |
| Nº de Benef. Femeninos: |
'.$parametro['nrobenfem'].' |
| Nº de Benef. Masculinos: |
'.$parametro['nrobenmas'].' |
| Nº Total de Benef.: |
'.$parametro['nrototbenef'].' |
';
return $tabla;
}
function DatosGenerales($parametro=array()){
global $paramrep,$datos,$objfop,$parametros;
$tabla="";
//$datosenc = $objfop->FormatLonCodEstPro($parametros);
$tabla = '';
$tabla = $tabla.'';
$tabla = $tabla.'
| Ubicación en Agenda: |
'.$parametro['descagendadec'].' |
| Descripción: |
'.$parametro['desexplora'].' |
| Plan de Contingencia: |
'.$parametro['desplancontinge'].' |
| Descripción del Plan: |
'.$parametro['descplancont'].' |
';
$tabla = $tabla.'';
$tabla = $tabla.'
| Empleos Directos Nuevos Femeninos: |
'.$parametro['nroesempfem'].' |
| Empleos Directos Sostenidos Femeninos: |
'.$parametro['nroesempmas'].' |
| Total Empleos Directos Femeninos: |
'.$parametro['nroesemptot'].' |
| Empleos Directos Nuevos Masculinos: |
'.$parametro['nroesempindtot'].' |
| Empleos Directos Sostenidos Masculinos: |
'.$parametro['nroempfotot'].' |
| Total Empleos Directos Masculinos: |
'.$parametro['nroempindfotot'].' |
';
$tabla = $tabla.'';
$tabla = $tabla.'
| Eje de Desarrollo: |
'.$parametro['ejedes'].' |
| Núcleos de Desarrollo Endógeno: |
'.$parametro['nucdesend'].' |
| Zonas Económicas de Desarrollo Sustentable(ZEDES): |
'.$parametro['zedes'].' |
| Complejos Industriuales: |
'.$parametro['comind'].' |
';
$tabla = $tabla.'';
$tabla = $tabla.'
| Latitud:: |
Grados:'.$parametro['latgra'].' Minutos:'.$parametro['latmin'].' Segundos: '.$parametro['latseg'].' |
| Longitud: |
Grados:'.$parametro['longra'].' Minutos:'.$parametro['lonmin'].' Segundos: '.$parametro['lonseg'].' |
';
$tabla = $tabla.'';
$tabla = $tabla.'
| Sector: |
'.$parametro['densec'].' |
| Sub Sector: |
'.$parametro['densubsec'].' |
';
$tabla = $tabla.'
| CONEXIONES INTER-INSTITUCIONALES |
';
$tabla = $tabla.'
| Requiere Contribución: |
'.$parametro['cireqcont'].' |
| Organismo: |
'.$parametro['reqcontdesorg'].' |
| Especifique: |
'.$parametro['cidesreqcont'].' |
| Contribuye a la Gestión: |
'.$parametro['cicontges'].' |
| Organismo: |
'.$parametro['contgesdesorg'].' |
| Especifique: |
'.$parametro['cidescontges'].' |
| Entra en conflicto con: |
'.$parametro['ciconflic'].' |
| Organismo: |
'.$parametro['conflicdesorg'].' |
| Especifique: |
'.$parametro['cidesconflic'].' |
';
$tabla = $tabla.'
';
$tabla = $tabla.'';
$tabla = $tabla.'
| Gerente: |
'.$parametro['nomger'].' |
| Unidad (Oficina): |
'.$parametro['uniger'].' |
| Cargo: |
'.$parametro['carger'].' |
| Género: |
'.$parametro['sexperger'].' |
| Teléfono (ofic.): |
'.$parametro['telger'].' |
| Fax (ofic.): |
'.$parametro['faxger'].' |
| e-mail: |
'.$parametro['coreleperger'].' |
| Registrado por: |
'.$parametro['nomreg'].' |
| Unidad (Oficina): |
'.$parametro['unireg'].' |
| Cargo: |
'.$parametro['carreg'].' |
| Género: |
'.$parametro['sexperreg'].' |
| Teléfono (ofic.): |
'.$parametro['telreg'].' |
| Fax (ofic.): |
'.$parametro['faxreg'].' |
| e-mail: |
'.$parametro['coreleperreg'].' |
| Autorizado por: |
'.$parametro['nomaut'].' |
| Unidad (Oficina): |
'.$parametro['uniaut'].' |
| Cargo: |
'.$parametro['caraut'].' |
| Género: |
'.$parametro['sexperaut'].' |
| Teléfono (ofic.): |
'.$parametro['telaut'].' |
| Fax (ofic.): |
'.$parametro['faxaut'].' |
| e-mail: |
'.$parametro['coreleperaut'].' |
';
return $tabla;
}
$y_actual = $pdf->GetY();
function FirmaSello($param=array()){
global $ancho_firma;
$FirmaSello = '
| ELABORADO |
VERIFICADO |
AUTORIZADO |
|
|
|
|
';
return $FirmaSello;
}
function ParametrosEp2xEp1(){
global $objfop;
$objfop->RepParam=array();
$objfop->RepParam['ancho'][1] = 60;
$objfop->RepParam['ancho'][2] = 20;
$objfop->RepParam['ancho'][3] = 60;
$objfop->RepParam['ancho'][4] = 300;
$objfop->RepParam['ancho'][5] = 60;
$objfop->RepParam['ancho'][6] = 80;
$objfop->RepParam['ancho'][7] = 80;
$objfop->RepParam['ancho']['total'] = array_sum($objfop->RepParam['ancho']);
$objfop->RepParam['encabezado']['color_fondo'] = '#000066';
$objfop->RepParam['encabezado']['color_letra'] = '#FFFFFF';
$objfop->RepParam['encabezado']['tamaño'] = 8;
$objfop->RepParam['encabezado2']['color_fondo'] = '#E8F3FD';
$objfop->RepParam['encabezado2']['color_letra'] = '#000000';
$objfop->RepParam['encabezado3']['tamaño'] = 10;
$objfop->RepParam['fila']['color_fondo'] = '#FFFFFF';
$objfop->RepParam['fila']['color_letra'] = '#000000';
$objfop->RepParam['fila']['tamaño'] = 7;
}
function ParametrosPartidas(){
global $objfop,$ancho_firma;
$objfop->RepParam=array();
$objfop->RepParam['ancho'][1] = 50;
$objfop->RepParam['ancho'][2] = 200;
$objfop->RepParam['ancho'][3] = 80;
$objfop->RepParam['ancho'][4] = 80;
$objfop->RepParam['ancho'][5] = 80;
$objfop->RepParam['ancho'][6] = 80;
$objfop->RepParam['ancho'][7] = 80;
$objfop->RepParam['ancho'][8] = 80;
$objfop->RepParam['ancho'][9] = 80;
$objfop->RepParam['ancho'][10] = 80;
$objfop->RepParam['ancho']['total'] = array_sum($objfop->RepParam['ancho']);
$objfop->RepParam['encabezado']['color_fondo'] = '#000066';
$objfop->RepParam['encabezado']['color_letra'] = '#FFFFFF';
$objfop->RepParam['encabezado']['tamaño'] = 7;
$objfop->RepParam['encabezado2']['color_fondo'] = '#E8F3FD';
$objfop->RepParam['encabezado2']['color_letra'] = '#000000';
$objfop->RepParam['fila']['color_fondo'] = '#FFFFFF';
$objfop->RepParam['fila']['color_letra'] = '#000000';
$objfop->RepParam['fila']['tamaño'] = 7;
$ancho_firma = $objfop->RepParam['ancho']['total']/3;
}
function ParametrosSPG(){
global $objfop,$ancho_firma;
$objfop->RepParam=array();
$objfop->RepParam['ancho'][1] = 80;
$objfop->RepParam['ancho'][2] = 270;
$objfop->RepParam['ancho'][3] = 90;
$objfop->RepParam['ancho'][4] = 130;
$objfop->RepParam['ancho'][5] = 130;
$objfop->RepParam['ancho'][6] = 130;
$objfop->RepParam['ancho']['total'] = array_sum($objfop->RepParam['ancho']);
$objfop->RepParam['encabezado']['color_fondo'] = '#000066';
$objfop->RepParam['encabezado']['color_letra'] = '#FFFFFF';
$objfop->RepParam['encabezado']['tamaño'] = 10;
$objfop->RepParam['encabezado2']['color_fondo'] = '#E8F3FD';
$objfop->RepParam['encabezado2']['color_letra'] = '#000000';
$objfop->RepParam['fila']['color_fondo'] = '#FFFFFF';
$objfop->RepParam['fila']['color_letra'] = '#000000';
$objfop->RepParam['fila']['tamaño'] = 10;
$ancho_firma = $objfop->RepParam['ancho']['total']/3;
}
$pdf->Ln();
if(!$param['nroh']){$resp = $objfop->ConsultaEp1($param);}
else{$resp = $objfop->ConsultaEp1Fases($param);}
$datosrep = $resp['rs']->fields;
$datos = $objfop->FormatDatosEp1($datosrep);
$InfoTerrito = $objfop->InfoTeritorialEp1($param);
ParametrosEp2xEp1();
$InfoEp2xEp1 = $objfop->InfoEp2xEp1($param);
ParametrosPartidas();
$infoPartidas = $objfop->RepInfoResumenPartidas($param);
ParametrosSPG();
$InfoSpg = $objfop->RepInfoResumenCuentas($param);
$pdf->writeHTML(utf8_encode(NombreReporte($datos)), true, false, false, false, '');
$pdf->Ln();
$pdf->writeHTML(utf8_encode(DatosBasicosIdent($datos)), true, false, false, false, '');
$pdf->writeHTML(utf8_encode(LocalizacionEspecifica($datos)), true, false, false, false, '');
$pdf->writeHTML(utf8_encode(AreaEstrategica($datos)), true, false, false, false, '');
$pdf->AddPage();
$pdf->writeHTML(utf8_encode(IndicadoresProyecto($datos)), true, false, false, false, '');
$pdf->writeHTML(utf8_encode(ResultadoProyecto($datos)), true, false, false, false, '');
$pdf->AddPage();
$pdf->writeHTML(utf8_encode(DatosGenerales($datos)), true, false, false, false, '');
$pdf->AddPage();
$pdf->writeHTML(utf8_encode($InfoTerrito), true, false, false, false, '');
$pdf->AddPage();
$pdf->writeHTML(utf8_encode($InfoEp2xEp1), true, false, false, false, '');
$pdf->AddPage();
$pdf->setPageOrientation("LANDSCAPE");
if($infoPartidas){
$pdf->Ln();
$pdf->writeHTML(utf8_encode($infoPartidas), true, false, false, false, '');
}
$pdf->AddPage();
if($InfoSpg){
$pdf->Ln();
$pdf->writeHTML(utf8_encode($InfoSpg), true, false, false, false, '');
}
$pdf->Ln();
//$pdf->Ln();
$y = $pdf->GetY();
if($y>175){$pdf->AddPage();}
$pdf->SetY(175);
$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_ficha_ep1_'.$datos['estcla'].'_'.$datos['codestpro1'].'_'.date('dmY').'.pdf', 'I');
?>