<?php
//============================================================+
// File name   : example_005.php
// Begin       : 2008-03-04
// Last Update : 2013-05-14
//
// Description : Example 005 for TCPDF class
//               Multicell
//
// Author: Nicola Asuni
//
// (c) Copyright:
//               Nicola Asuni
//               Tecnick.com LTD
//               www.tecnick.com
//               info@tecnick.com
//============================================================+

/**
 * Creates an example PDF TEST document using TCPDF
 * @package com.tecnick.tcpdf
 * @abstract TCPDF - Example: Multicell
 * @author Nicola Asuni
 * @since 2008-03-04
 */

//  $conn_string = "host=172.16.0.22 port=3306 dbname=citas user=siverc password=InhRR*2023";
            
//  // establecemos una conexion con el servidor postgresSQL
//  $VUS = pg_connect($conn_string);
 
//  // Revisamos el estado de la conexion en caso de errores. 
//  if(!$VUS) {
//      echo "Error: No se ha podido conectar a la base de datos de CITAS";
//  } else {
//      echo "AVISO: Se conecto correctamente a la base de datos de CITAS";
//      $var_consulta="SELECT * FROM tblPTR_valor_diario";    
//      $qTMP = pg_query($VUS, $var_consulta);                    
//  }

// ini_set('display_errors', 1);
// ini_set('display_startup_errors', 1);
// error_reporting(E_ALL);

$IntNumReg = $_GET["nr"];
$IntNumSol = $_GET["ns"];
$InttipoNumReg = $_GET["nr"];
$tipo = $_GET["nt"];
$tipoc = $_GET["ntc"];


// echo "(".$codigo_verif.")";
// // detalles de la conexion
// $conn_stringADM = "host=localhost port=5432 dbname=sivercA user=postgresuser password=p05tgr35u53r";
 
// // establecemos una conexion con el servidor postgresSQL
// $ADM = pg_connect($conn_stringADM);
 
// // Revisamos el estado de la conexion en caso de errores. 

// if(!$ADM) {
//     echo "Connection to ADM Database error\n";
// } 

// detalles de la conexion
$conn_stringADM = "host=172.16.0.21 port=5432 dbname=sivercA user=postgresuser password=p05tgr35u53r";
$conn_stringVUS = "host=172.16.0.21 port=5432 dbname=sivercV user=postgresuser password=p05tgr35u53r";
 
// establecemos una conexion con el servidor postgresSQL
$ADM = pg_connect($conn_stringADM);
$VUS = pg_connect($conn_stringVUS);
 
// Revisamos el estado de la conexion en caso de errores. 

if(!$ADM) {
    echo "Connection to ADM Database error\n";
} 

if(!$VUS) {
    echo "Connection to USER Database error\n";
} 

$sql="SELECT * FROM ctg_productos_{$tipo} WHERE adm_{$tipo}_numreg = '{$IntNumReg}' LIMIT 1 ";
$qTMP = pg_query($ADM, $sql);
    while ($rTMP = pg_fetch_assoc($qTMP)) {    
        switch ($tipo) {
            case 'ef':
                ////// MAIN DATA
                $nomprod=strtoupper($rTMP["adm_ef_nomprod"]);
                $regnum=$rTMP["adm_ef_numreg"];
                $formid=$rTMP["adm_ef_forma"];
                $formDesc=$rTMP["adm_ef_forma"];
                $package=$rTMP["adm_ef_presenta"];
                $autori=$rTMP["adm_ef_autori"];
                $vencim=$rTMP["adm_ef_vencim"];
                $admin=$rTMP["adm_ef_admin"];
                $admin_oth=$rTMP["adm_ef_admin_oth"];
                $admin_val1=$rTMP["adm_ef_admin_val1"];
                $admin_val2=$rTMP["adm_ef_admin_val2"];
                $envaid=$rTMP["adm_ef_env_id"];
                $envaDesc=$rTMP["adm_ef_env_id"];
                $admusuario=$rTMP["adm_ef_usr"];
                $farma_ci=trim($rTMP["adm_ef_farm_ci"]);

                $date1=substr($autori,8,2)."/".substr($autori,5,2)."/".substr($autori,0,4);
                $date2=substr($vencim,8,2)."/".substr($vencim,5,2)."/".substr($vencim,0,4);
                $fecha=Date("d-m-Y");
                switch ( substr($fecha,3,2)) {
                    case '01':
                        $issdate="Enero ";
                        break;
                    case '02':
                        $issdate="Febrero ";
                        break;
                    case '03':
                        $issdate="Marzo ";
                        break;
                    case '04':
                        $issdate="Abril ";
                        break;
                    case '05':
                        $issdate="Mayo ";
                        break;
                    case '06':
                        $issdate="Junio ";
                        break;
                    case '07':
                        $issdate="Julio ";
                        break;
                    case '08':
                        $issdate="Agosto ";
                        break;
                    case '09':
                        $issdate="Septiembre ";
                        break;
                    case '10':
                        $issdate="Octubre ";
                        break;
                    case '11':
                        $issdate="Noviembre ";
                        break;
                    case '12':
                        $issdate="Diciembre ";
                        break;
                }                
                $fecha =substr($fecha,0,2)." de ".$issdate." de ".substr($fecha,6,4);

                $representante="- - - - - - - ";
                $propietario="- - - - - - - ";
                $almacenador="- - - - - - - ";
                $farmaceutico="- - - - - - - ";
                $fabricante="- - - - - - - ";
                $fabricante_adicional="- - - - - - - ";
                $fabricante_envasador="- - - - - - - ";
                $fabricante_envasador_adicional="- - - - - - - ";
                $fabricante_principio_activo="- - - - - - - ";

                $desc = "";

                $sql1="SELECT * FROM ctg_formas WHERE ctg_for_id = '{$formid}' LIMIT 1 ";
                $qTMP1 = pg_query($ADM, $sql1);
                while ($rTMP1 = pg_fetch_assoc($qTMP1)) {    
                    $formDesc=$rTMP1["ctg_for_desc"];
                }

                $sql0="SELECT * FROM ctg_envases WHERE ctg_env_id = '{$envaid}' LIMIT 1 ";
                $qTMP0 = pg_query($ADM, $sql0);
                while ($rTMP0 = pg_fetch_assoc($qTMP0)) {    
                    $envaDesc=$rTMP0["ctg_env_desc"];
                }

                //// ACTIVE INGREDIENTS 
                $sql2="SELECT * FROM ctg_productos_ef_formula WHERE \"adm_efFOR_numreg\" = '{$IntNumReg}' AND \"adm_efFOR_tipo\"='1' ";
                $qTMP2 = pg_query($ADM, $sql2);
                while ($rTMP2 = pg_fetch_assoc($qTMP2)) {

                    if (!empty($formula))
                            $formula .= ", ";
                    $txt="";
                    $valor = $rTMP2["adm_efFOR_can"];
                    $valor = floatval($valor);
                    $txt .= $rTMP2["adm_efFOR_sus_nom"]." ".$rTMP2["adm_efFOR_cominfo"]." ".$valor;
                    $unimed=$rTMP2["adm_efFOR_ume_id"];
                    if ($rTMP2['adm_efFOR_tipo']=='1'){
                        $denominacion=$rTMP2["adm_efFOR_atc_id"];
                    }
                    $formula .= $txt;            
                }
                //// INDICATIONS
                $sql3="SELECT * FROM \"ctg_productos_ef_FIT\"  WHERE \"adm_efFIT_numreg\" = '{$IntNumReg}' LIMIT 1";
                $qTMP3 = pg_query($ADM, $sql3);
                while ($rTMP3 = pg_fetch_assoc($qTMP3)) {
                    $indications=$rTMP3["adm_efFIT_fit_1"];         
                }        

                $sql4="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='REP' LIMIT 1";
                $qTMP4 = pg_query($ADM, $sql4);
                while ($rTMP4 = pg_fetch_assoc($qTMP4)) {
                    $codemp=$rTMP4["adm_efEMP_rif"];
                    
                    $sql41="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP41 = pg_query($ADM, $sql41);
                    while ($rTMP41 = pg_fetch_assoc($qTMP41)) {    
                        $representante=$rTMP41["ctg_emp_nombre"];//." Dirección:".$rTMP41["ctg_emp_dir"]." Teléfono:".$rTMP41["ctg_emp_tels"]." Fax:".$rTMP41["ctg_emp_fax"];
                    }
                    
                }

                $sql5="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='PRO' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $codemp=$rTMP5["adm_efEMP_rif"];
                    
                    $sql51="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP51 = pg_query($ADM, $sql51);
                    while ($rTMP51 = pg_fetch_assoc($qTMP51)) {    
                        $propietario=$rTMP51["ctg_emp_nombre"];//." Dirección:".$rTMP51["ctg_emp_dir"]." Teléfono:".$rTMP51["ctg_emp_tels"]." Fax:".$rTMP51["ctg_emp_fax"];
                    }
                }

                $sql5="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='ALM' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $codemp=$rTMP5["adm_efEMP_rif"];
                    
                    $sql51="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP51 = pg_query($ADM, $sql51);
                    while ($rTMP51 = pg_fetch_assoc($qTMP51)) {    
                        $almacenador=$rTMP51["ctg_emp_nombre"];//." Dirección:".$rTMP51["ctg_emp_dir"]." Teléfono:".$rTMP51["ctg_emp_tels"]." Fax:".$rTMP51["ctg_emp_fax"];
                    }
                }      

                $sql5="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='FAB' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $codemp=$rTMP5["adm_efEMP_rif"];
                    
                    $sql51="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP51 = pg_query($ADM, $sql51);
                    while ($rTMP51 = pg_fetch_assoc($qTMP51)) {    
                        $fabricante=$rTMP51["ctg_emp_nombre"];
                    }
                }      

                $sql5="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='FABADI' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $codemp=$rTMP5["adm_efEMP_rif"];
                    
                    $sql51="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP51 = pg_query($ADM, $sql51);
                    while ($rTMP51 = pg_fetch_assoc($qTMP51)) {    
                        $fabricante_adicional=$rTMP51["ctg_emp_nombre"];//." Dirección:".$rTMP51["ctg_emp_dir"]." Teléfono:".$rTMP51["ctg_emp_tels"]." Fax:".$rTMP51["ctg_emp_fax"];
                    }
                }      

                $sql5="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='FABENV' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $codemp=$rTMP5["adm_efEMP_rif"];
                    
                    $sql51="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP51 = pg_query($ADM, $sql51);
                    while ($rTMP51 = pg_fetch_assoc($qTMP51)) {    
                        $fabricante_envasador=$rTMP51["ctg_emp_nombre"];//." Dirección:".$rTMP51["ctg_emp_dir"]." Teléfono:".$rTMP51["ctg_emp_tels"]." Fax:".$rTMP51["ctg_emp_fax"];
                    }
                }      
                $sql5="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='FABENVADI' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $codemp=$rTMP5["adm_efEMP_rif"];
                    
                    $sql51="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP51 = pg_query($ADM, $sql51);
                    while ($rTMP51 = pg_fetch_assoc($qTMP51)) {    
                        $fabricante_envasador_adicional=$rTMP51["ctg_emp_nombre"];//." Dirección:".$rTMP51["ctg_emp_dir"]." Teléfono:".$rTMP51["ctg_emp_tels"]." Fax:".$rTMP51["ctg_emp_fax"];
                    }
                }      
                $sql5="SELECT * FROM \"ctg_productos_ef_EMPRESAS\"  WHERE \"adm_efEMP_numreg\" = '{$IntNumReg}' AND \"adm_efEMP_rol_id\" ='FABPRA' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $codemp=$rTMP5["adm_efEMP_rif"];
                    
                    $sql51="SELECT * FROM ctg_empresas WHERE ctg_emp_rif = '{$codemp}' LIMIT 1 ";
                    $qTMP51 = pg_query($ADM, $sql51);
                    while ($rTMP51 = pg_fetch_assoc($qTMP51)) {    
                        $fabricante_principio_activo=$rTMP51["ctg_emp_nombre"];//." Dirección:".$rTMP51["ctg_emp_dir"]." Teléfono:".$rTMP51["ctg_emp_tels"]." Fax:".$rTMP51["ctg_emp_fax"];
                    }
                }      

                $sql5="SELECT * FROM ctg_farmaceuticos WHERE ctg_farm_ci = '{$farma_ci}' LIMIT 1";
                $qTMP5 = pg_query($ADM, $sql5);
                while ($rTMP5 = pg_fetch_assoc($qTMP5)) {
                    $farmaceutico=strtoupper($rTMP5["ctg_farm_nombre"]);
                } 
                break;
            
            default:
                # code...
                break;
        }

        // echo "num sol (".$numsol.") nomprod (".$nomprod.")";
    }

//// LOCATION FOLDER
$sql9="SELECT * FROM adm_config";
$qTMP9 = pg_query($ADM, $sql9);
while ($rTMP9 = pg_fetch_assoc($qTMP9)) {
    $location=$rTMP9["adm_cnf_location_adm"];
    $firma=$rTMP9["adm_cnf_firma"];
}

//// CODIGO DE VERIFICACIN
$sql9="SELECT * FROM adm_control_ef1 WHERE adm_con_numsol='{$IntNumSol}'";
//echo $sql9;
$qTMP9 = pg_query($ADM, $sql9);
while ($rTMP9 = pg_fetch_assoc($qTMP9)) {
    $number=$rTMP9["adm_con_serialnum"];
    $inicon=$rTMP9["adm_con_inicon"];
    $adm_con_dirname2=$rTMP9["adm_con_dirname2"];
}      
pg_free_result($qTMP9);

///INFORMACION DE PATROCINANTE Y EMPRESA REPRESENTANTE
$user_id='';
$rif='';
$nom_patro='';
$nom_empresa='';

$sql9="SELECT * FROM vus_tramites_ef2 WHERE vus_ef_numsol='{$IntNumSol}'";
$qTMP9 = pg_query($VUS, $sql9);
while ($rTMP9 = pg_fetch_assoc($qTMP9)) {
    $user_id=$rTMP9["vus_ef_usr_id"];
}      
pg_free_result($qTMP9);

$sql9="SELECT * FROM vus_usuarios WHERE vus_usr_id='{$user_id}'";
$qTMP9 = pg_query($VUS, $sql9);
while ($rTMP9 = pg_fetch_assoc($qTMP9)) {
    $nom_patro=$rTMP9["vus_usr_nombre"];
    $rif=$rTMP9["vus_usr_emp_rif"];
}      
pg_free_result($qTMP9);

$sql9="SELECT ctg_emp_nombre FROM ctg_empresas WHERE ctg_emp_rif='{$rif}'";
$qTMP9 = pg_query($ADM, $sql9);
while ($rTMP9 = pg_fetch_assoc($qTMP9)) {
    $nom_empresa=$rTMP9["ctg_emp_nombre"];
}      
pg_free_result($qTMP9);

$dirpath="/var/www/html/siverc".$location."/docs/{$tipo}/".$IntNumReg."/0/";
$dirpath2="/docs/{$tipo}/".$IntNumReg."/0/";
$path_new = "/var/www/html/siverc$location/docs/{$tipo}/";

mkdir($path_new,9777);
shell_exec("chmod 7777 $path_new");

$path_new .= "{$IntNumReg}/";	
mkdir($path_new,9777);
shell_exec("chmod 7777 $path_new");

$path_new1 = $path_new . "0/";	
mkdir($path_new1,9777);
shell_exec("chmod 7777 $path_new1");

$filename=$dirpath.'ef_'.$IntNumReg.'_DR-09.pdf';
$ctg_fmt_cor=1;
if (!file_exists($filename)){
    $ctg_fmt_siglas="";
    $sql91 = "SELECT coalesce(ctg_fmt_cor,0)+1 as ctg_fmt_cor, ctg_fmt_sig FROM ctg_tipo_formatos WHERE ctg_fmt_id='01' AND ctg_tpr_id='02'";
    // echo "<br>".$sql91;
    $qTMP91 = pg_query($ADM, $sql91);
    while ($rTMP91 = pg_fetch_assoc($qTMP91)) {
        $ctg_fmt_cor=$rTMP91["ctg_fmt_cor"];
        $ctg_fmt_siglas=$rTMP91["ctg_fmt_sig"];
    }      
    if ($ctg_fmt_cor <10)
        $ctg_fmt_cor="000".$ctg_fmt_cor;
    else
        if ($ctg_fmt_cor<100)
            $ctg_fmt_cor="00".$ctg_fmt_cor;
        else
            if ($ctg_fmt_cor<1000)
                $ctg_fmt_cor="0".$ctg_fmt_cor;
        // else
        //     if ($ctg_fmt_cor<10000)
        //         $ctg_tpr_correg="0".$ctg_tpr_correg;

    $ctg_fmt_cor=$ctg_fmt_siglas.$ctg_fmt_cor."-".date("Y");

    $sql9="INSERT INTO adm_control_{$tipo}1_docs (
        adm_cod_numsol,
        adm_cod_tpr_id,
        adm_cod_tpt_id,
        adm_cod_ttc_id,
        adm_cod_tec_id,
        adm_cod_tmf_id,
        adm_cod_part,
        adm_cod_path,
        adm_cod_file,
        adm_cod_numreg,
        adm_cod_tmf_cor,
        adm_cod_sta,
        adm_cod_usr,
        adm_cod_dt ) VALUES (
        '".$IntNumSol."',
        '02',
        'AO',
        'DR',
        '".$admusuario."',
        '09',
        '1',
        '".$dirpath2."',
        'ef_".$IntNumReg."_DR-09.pdf',
        '".$IntNumReg."',
        '".$ctg_fmt_cor."',
        '1',
        '".$admusuario."',
        now()
        )";
    $qTMP9 = pg_query($ADM, $sql9);
    
    $sql93 = "UPDATE ctg_tipo_formatos SET ctg_fmt_cor=coalesce(ctg_fmt_cor,0)+1 WHERE ctg_fmt_id='01' AND ctg_tpr_id='02'";
    $qTMP93 = pg_query($ADM, $sql93);

    // echo $sql9;
    // die();
} else {
    $sql93 = "SELECT adm_cod_tmf_cor FROM adm_control_{$tipo}1_docs WHERE adm_cod_numsol ='".$IntNumSol."' AND adm_cod_tmf_id='01' AND adm_cod_tpr_id='02'";
    $qTMP93 = pg_query($ADM, $sql93);
    while ($rTMP93 = pg_fetch_assoc($qTMP93)) {
        $ctg_fmt_cor=$rTMP93["adm_cod_tmf_cor"];
    }     
}

// Include the main TCPDF library (search for installation path).
require_once('tcpdf_include.php');

// create new PDF document
$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);

$pdf->setPrintHeader(true);

class MYPDF extends TCPDF {

    //Page header
    public function Header() {
        // Logo
        $img_file = K_PATH_IMAGES.'ef_4_5.jpeg';//'water_mark_13.jpeg';
        $this->Image($img_file, 5, 5, 2550, 3300, '', '', '', false, 400, '', false, false, 0);

    }

    // Page footer
    public function Footer() {
        // Position at 15 mm from bottom
        $this->setY(-30);
        // Set font
         $this->setFont('helvetica', '', 8);
         $fhtml = '
         <table class="tblFooter" cellpadding="5">
         <tr>
             <td width="12%" style="font-size: 6.5px;"><br><br><br>
E.F./E.F.G.XX.XXX/23<br>
F-PERC-037<br>
Abril 2023<br>
Revisión 1
             </td >
             <td width="88%" align="center">Código de verificación #'.$_GET["cv"].'#<br>
Ciudad Universitaria UCV, Los Chaguaramos, Caracas - República Bolivariana de Venezuela Cod. 1041
Teléfono (0058-0212) 219.1622 http://www.inhrr.gob.ve RIF: G-20000101-1
Este certificado puede ser verificado en la dirección electrónica http://www.inhrr.gob.ve/ef_aprobadas.php
             </td>
         </tr>
         </table>
       ';
       
        $this->writeHTML($fhtml, true, false, true, false, '');

        $this->Cell(0, 5, 'Pagina '.$this->getAliasNumPage().' de '.$this->getAliasNbPages(), 0, false, 'R', 0, '', 0, false, 'T', 'M');
    }
}

// create new PDF document
$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);

// set header and footer fonts
$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));

// set default monospaced font
$pdf->setDefaultMonospacedFont(PDF_FONT_MONOSPACED);

// set margins
$pdf->setMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$pdf->setHeaderMargin(PDF_MARGIN_HEADER);
$pdf->setFooterMargin(PDF_MARGIN_FOOTER);

// set auto page breaks
$pdf->setAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);

// set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);

// set some language-dependent strings (optional)
if (@file_exists(dirname(__FILE__).'/lang/eng.php')) {
	require_once(dirname(__FILE__).'/lang/eng.php');
	$pdf->setLanguageArray($l);
}

// ---------------------------------------------------------
$box='0';
// set font
$pdf->setFont('helvetica', '', 12);

// add a page
$pdf->AddPage('P', 'LETTER');

// set cell padding
$pdf->setCellPaddings(1, 1, 1, 1);


// set color for background
$pdf->setFillColor(275, 275, 127);

$pdf->Ln(40);

$pdf->MultiCell(180, 25, $ctg_fmt_cor, 0, 'L', 0, 0, '', '', true);

$pdf->Ln(10);
$pdf->MultiCell(112, 3, '', 0, 'L', 0, 0, '', '', true);
$pdf->MultiCell(80 ,3, 'Caracas, '.$fecha, 0, 'L', 0, 0, '', '', true);
$pdf->Ln(10);

// set font

$txt2 = <<<EOD
Ciudadano (a):
DR.(A). $nom_patro
Farmacéutico patricinante
$nom_empresa
Presente.-

EOD;

$pdf->Ln(5);
$pdf->MultiCell(190, 25, $txt2, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(35);


$txt2 = <<<EOD
Con relación al otorgamiento del Certificado de Registro Sanitario del producto <b>$nomprod</b>, <b>$regnum</b>, El Instituto Nacional de Higiene “Rafael Rangel”le informa que debe cumplir con los siguientes compromisos:

EOD;

$pdf->MultiCell(190, 25, $txt2, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(25);

$txt1 = <<<EOD
1.	Los textos de empaque, etiqueta, unidad posológica y prospecto interno del producto deben cumplir con lo establecido en el Certificado de Aprobación, Certificado de Condiciones de Comercialización, las Normas y Boletines de la Junta Revisora de Productos Farmacéuticos.
EOD;

$txt2 = <<<EOD
2.	Mantener actualizado y vigente el Certificado de Buenas Practicas de Manufactura de la o las empresas fabricantes involucradas en la manufactura del producto.
EOD;

$txt3 = <<<EOD
3.	Comunicar al Instituto Nacional de Higiene ?Rafael Rangel?, a través del Centro Nacional de Farmacovigilancia (CENAVIF), cualquier efecto no descrito durante el proceso de evaluación del Registro Sanitario que derive de la actividad farmacológica del mismo o de alguno de sus ingredientes y del cual se tenga conocimiento después de aprobado el producto
EOD;

$txt4 = <<<EOD
4.	Toda modificación y/o cambios Tipo I y II posteriores al Registro Sanitario del producto deben ser tramitados ante el Instituto Nacional de Higiene ?Rafael Rangel?.
EOD;

$txt5 = <<<EOD
5.	Debe indicar al Despacho con cuatro (04) meses de anticipacion, la fecha probable de comercializacion de la Especialidad Farmaceutica. En este lapso de tiempo se procedera a la evaluacion de la metodologia analitica utilizada en el control de calidad del producto y a la programacion respectiva.

EOD;

$pdf->MultiCell(190, 20, $txt1, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(20);

$pdf->MultiCell(190, 20, $txt2, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(17);

$pdf->MultiCell(190, 20, $txt3, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(25);

$pdf->MultiCell(190, 20, $txt4, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(20);

$pdf->MultiCell(190, 20, $txt5, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(20);

//add a page
$pdf->AddPage('P', 'LETTER');
$pdf->setFont('helvetica', '', 12);

$pdf->Ln(60);

$txt = <<<EOD
Igualmente, se le informa que dispone de quince (15) dias habiles, para solicitar a la INSTITUCIÓN, la reconsideración de las exigencias senaladas ANTERIORMENTE. Transcurrido dicho lapso queda usted en la obligación de cumplir con las condiciones de uso bajo las cuales fue aprobado el producto.

El incumplimiento de alguna de las condiciones de comercialización sera sancionado con la CANCELACIÓN del Registro Sanitario del producto.

EOD;
$pdf->MultiCell(190, 20, $txt, 0, 'J', 0, 0, '', '', true);
$pdf->Ln(60);

$pdf->Ln(20);
$pdf->setFont('helvetica', 'B', 12);
$pdf->MultiCell(190 ,3, $adm_con_dirname2, 0, 'C', 0, 0, '', '', true);
$pdf->Ln(5);
$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(190 ,3, $firma, 0, 'C', 0, 0, '', '', true);

$pdf->Ln(26);
$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(190 ,3, $inicon, 0, 'L', 0, 0, '', '', true);

// add a page
// $pdf->AddPage('P', 'LETTER');
// $pdf->setFont('helvetica', '', 13);

// // set cell padding
// $pdf->setCellPaddings(1, 1, 1, 1);
// $pdf->Ln(35);

// $pdf->setFont('helvetica', '', 9);
// $pdf->MultiCell(40 , 3, 'Registration Number', 0, 'R', 0, 0, '', '', true);
// $pdf->setFont('helvetica', 'B', 9);
// $pdf->MultiCell(120, 5, $regnum, 0, 'L', 0, 1, '', '', true);

// $pdf->Ln(5);
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


// move pointer to last page
$pdf->lastPage();

// ---------------------------------------------------------

//Close and output PDF document

$filename2=$dirpath.'View_ef_'.$regnum.'_DR-09.pdf';
$pdf->Output($filename, 'F');
$pdf->Output($filename2, 'I');

//$pdf->Output('DrugCertificate'.$regnum.'.pdf', 'I');
// $pdf->Output('/var/www/html/dsoft/v5/lao/adm/temp/example_005.pdf', 'F');

//============================================================+
// END OF FILE
//============================================================+