<?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";
 
// 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";
} 


$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=$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"];
    $denominacion=$rTMP9["adm_con_dci"];
    $inicon=$rTMP9["adm_con_inicon"];
    $adm_con_dirname2=$rTMP9["adm_con_dirname2"];

}      
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-01.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."',
        '01',
        '1',
        '".$dirpath2."',
        'ef_".$IntNumReg."_DR-01.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_1.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.000/23<br>
F-PERC-006<br>
Abril 2023<br>
Revisión 5
             </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);

// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0)


// set some text to print
$txt1 = <<<EOD
SISTEMA NACIONAL DE REGISTRO SANITARIO DE PRODUCTOS FARMACÉUTICOS
CERTIFICADO DE REGISTRO SANITARIO

EOD;
$txt2 = <<<EOD
El Instituto Nacional de Higiene “Rafael Rangel” de conformidad con lo establecido en los artículos 1, 18 y 19 de la Ley de Medicamentos, publicada en la Gaceta Oficial de la República Bolivariana de Venezuela Nº 37.006 del 03 de Agosto de 2.000; siendo favorables los resultados de la evaluación integral, confiere el Registro Sanitario al siguiente producto farmacéutico:

EOD;
$pdf->Ln(35);
$pdf->setFont('helvetica', '', 7);
$pdf->MultiCell(180, 25, $ctg_fmt_cor, 0, 'L', 0, 0, '', '', true);

$pdf->setFont('helvetica', '', 12);
$pdf->Ln(10);
$pdf->MultiCell(190, 25, $txt1, 0, 'C', 0, 0, '', '', true);
$pdf->Ln(15);
$pdf->setFont('helvetica', '',9);

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

// set font
$pdf->setFont('helvetica', '', 9);

$pdf->MultiCell(46, 5, 'NOMBRE DEL PRODUCTO:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(145, 5, $nomprod, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(82, 5, 'NOMBRE(S) GENERICO(S)/PRINCIPIO(S) ACTIVO(S):', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(100, 5, $formula, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->MultiCell(80, 5, 'DENOMINACIÓN COMUN INTERNACIONAL (DCI):', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(125, 5, $denominacion, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->MultiCell(30, 5, 'CLASIFICACIÓN:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(165, 5, "ESPECIALIDAD FARMACÉUTICA", $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);


$pdf->MultiCell(45, 0, 'No. REGISTRO SANITARIO:', 0, 'L', 0, 0, '', '', true, 0, false, true, 40,'T');
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(30, 5, $regnum, $box, 'L', 0, 0, '', '', true, 0, false, true, 40,'T');
$pdf->Ln(7);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(42, 5, 'FECHA DE APROBACION:', 0, 'L', 0, 0, '', '', true, 0, false, true, 40,'T');
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(20, 5, $date1, $box, 'L', 0, 0, '', '', true, 0, false, true, 40,'T');
$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(30, 5, 'VIGENTE HASTA:', 0, 'R', 0, 0, '', '', true, 0, false, true, 40,'T');
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(22, 5, $date2, $box, 'L', 0, 0, '', '', true, 0, false, true, 40,'T');
$pdf->Ln(7);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(25, 5, 'FABRICANTE:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(120, 5, $fabricante, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(44, 5, 'FABRICANTE ADICIONAL:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(140, 5, $fabricante_adicional, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(46, 5, 'FABRICANTE ENVASADOR:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(120, 5, $fabricante_envasador, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(63, 5, 'FABRICANTE ENVASADOR ADICIONAL:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(120, 5, $fabricante_envasador_adicional, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(66, 5, 'FABRICANTE(S) DEL PRINCIPIO ACTIVO:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(120, 5, $fabricante_principio_activo, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(75, 5, 'REPRESENTANTE / TITULAR DEL REGISTRO:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(120, 5, $representante, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(55, 5, 'FARMACÉUTICO PATROCINANTE:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(120, 5, $farmaceutico, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(1);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(25, 5, 'PROPIETARIO:', 0, 'L', 0, 0, '', '', true);
$pdf->setFont('helvetica', 'B', 9);
$pdf->MultiCell(155, 5, $propietario, $box, 'L', 0, 1, '', '', true);
$pdf->setFont('helvetica', '', 9);
$pdf->Ln(5);

$final='El registro del producto autorizado queda sometido a todo lo previsto en la Ley de Medicamentos y cualquier otra Normativa Legal que regule la materia.
';
$pdf->MultiCell(185, 5, $final, $box, 'L', 0, 1, '', '', true);
$pdf->Ln(6);

$pdf->setFont('helvetica', '', 9);
$pdf->MultiCell(132, 3, '', 0, 'L', 0, 0, '', '', true);
$pdf->MultiCell(60 ,3, 'Caracas, '.$fecha, 0, 'L', 0, 0, '', '', true);

$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-01.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
//============================================================+