<?php
// GETS

// PROPIETARIO CON PLACA  
//  http://consultas.atm.gob.ec/SVT/paginas/svt_datosPersonas.jsp?ps_tipoServicio=MAT&ps_servicio=1&ps_tramite=0&ps_area=&ps_valorParametro1=GLL0512&ps_valorParametro2=1-1-2019&ps_identificacionSolicita=

// RUC
//https://sistemaunico.ant.gob.ec:5038/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=RUC&ps_identificacion=0992217472001&ps_placa=
// http://consultas.atm.gob.ec/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=RUC&ps_identificacion=0992217472001&ps_placa=


function get_payphone($pempr,$codigo)
{
	include('../_cfg/config.php');
     $cfg_payphone=cfg_payphone($pempr);     

     $data_array = array('id'=> (int)$transaccion,'clientTxId'=>$client );
     $data = json_encode($data_array);
     $curl = curl_init();
     curl_setopt($curl, CURLOPT_URL, 'https://pay.payphonetodoesposible.com/api/button/V2/Confirm');
     curl_setopt($curl, CURLOPT_POST, 1);
     curl_setopt($curl, CURLOPT_POSTFIELDS, $data);
     curl_setopt_array($curl, array(CURLOPT_HTTPHEADER => array('Authorization: Bearer '.$cfg_payphone['token'],'Content-Type:application/json'),));
     curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
     $result = curl_exec($curl);
     curl_close($curl);

     $sql_updt ='update payt0 set ';
     $sql_updt.='payt_response=\''.$result.'\', ';
     $sql_updt.='payt_tipo="'.$paytipo.'" ';
     $sql_updt.='where payt_codigo="'.$client.'" ';
     $res_updt=msql_query($sql_updt,$link_vcrx);

     $result=json_decode($result);

     $sql_updt ='update payt0 set ';
     $sql_updt.='payt_status="'.$result->{'transactionStatus'}.'", ';
     $sql_updt.='payt_authorization="'.$result->{'authorizationCode'}.'", ';
     $sql_updt.='payt_tipo="'.$paytipo.'" ';
     $sql_updt.='where payt_codigo="'.$client.'" ';
     $res_updt=msql_query($sql_updt,$link_vcrx);
     
}


function cfg_payphone($pempr)
{
//      echo '*/*/*/'.$pempr;
	include('php_session.php');
     if(empty($pempr)){$pempr=$empr_codigo;}
     $pempr=strtolower($pempr);
     
     $cfg_payphone=array();
     
//      $cfg_payphone['idapp'] = '8OnC1X0DkuIrt2mucgRow';
//      $cfg_payphone['idcli'] = '2GGjCMrB5UlMSVQx4gKzQ';
//      $cfg_payphone['token'] = 'DXVO4oZCCRXePNyIPp18DzH62B6kD9fQ_6Kf17rq81SnTPOoZJX-973KsJMwW2rloNHZbe7s19ZFqg8lcBV__f2PS-Z3Pd6VLEsr62-4upoYxuNVZpJ_F_yfEVfHaxrgUHoCUSxJWmEPw-KeABw5YhyPL5Z52BjFTSt21Po2oo8ccy_YIGI8hJNJik_J8yH4EXLNctVlFB4ytXRoKPXDXQoOQ2VXRzykaoqySe6H4WystvTKzJzXCRybv1u8q9YYX33yg9xBcG1eEz2J3_YTgEFOGP0MRf2zcBs0th8rce6bW_-L7TvmqVLOo7tkVQ4bq5_Jw30wiaTWpSqkOlMbR78yKpo'; 
//      echo '*/*/*/'.$pempr;
     if($pempr=='demo')
     {
          $cfg_payphone['idapp'] = '8OnC1X0DkuIrt2mucgRow';
          $cfg_payphone['idcli'] = '2GGjCMrB5UlMSVQx4gKzQ';
          $cfg_payphone['token'] = 'DXVO4oZCCRXePNyIPp18DzH62B6kD9fQ_6Kf17rq81SnTPOoZJX-973KsJMwW2rloNHZbe7s19ZFqg8lcBV__f2PS-Z3Pd6VLEsr62-4upoYxuNVZpJ_F_yfEVfHaxrgUHoCUSxJWmEPw-KeABw5YhyPL5Z52BjFTSt21Po2oo8ccy_YIGI8hJNJik_J8yH4EXLNctVlFB4ytXRoKPXDXQoOQ2VXRzykaoqySe6H4WystvTKzJzXCRybv1u8q9YYX33yg9xBcG1eEz2J3_YTgEFOGP0MRf2zcBs0th8rce6bW_-L7TvmqVLOo7tkVQ4bq5_Jw30wiaTWpSqkOlMbR78yKpo'; 
     }

     if($pempr=='ptsa')
     {
//           $cfg_payphone['idapp'] = '8OnC1X0DkuIrt2mucgRow';
//           $cfg_payphone['idcli'] = '2GGjCMrB5UlMSVQx4gKzQ';
//           $cfg_payphone['token'] = 'DXVO4oZCCRXePNyIPp18DzH62B6kD9fQ_6Kf17rq81SnTPOoZJX-973KsJMwW2rloNHZbe7s19ZFqg8lcBV__f2PS-Z3Pd6VLEsr62-4upoYxuNVZpJ_F_yfEVfHaxrgUHoCUSxJWmEPw-KeABw5YhyPL5Z52BjFTSt21Po2oo8ccy_YIGI8hJNJik_J8yH4EXLNctVlFB4ytXRoKPXDXQoOQ2VXRzykaoqySe6H4WystvTKzJzXCRybv1u8q9YYX33yg9xBcG1eEz2J3_YTgEFOGP0MRf2zcBs0th8rce6bW_-L7TvmqVLOo7tkVQ4bq5_Jw30wiaTWpSqkOlMbR78yKpo'; 
     }
     
     if(mb_stristr('gnya',$pempr))
     {
          $cfg_payphone['idapp'] = 'qbfNtXnPkGAGItme49WMg';
          $cfg_payphone['idcli'] = 'lQecOeBovEafGLdU0AeXrg';
          $cfg_payphone['token'] = 'N7Wp_FQSFqL7ucsismWw9QnEGVvTlO4oboVBdPg7og_3r9pmHZqELi5IVdD3JgQ_kE5sGBEyLwwic3G-98Bvir4tLxIcbdTRRotmqS35HVHkU1DaIcPcaaSt9_5pJ8RJaa26uMybY_3sXnFGrtMmU_9bjp5yVAGwniOpncsjbxTO_QFWnvnAX9DRC23Qz4wHdxyLN5bRslX99q0qz7hjBO9_FKzPUZ_hvY0NBL7JY1yokgGTaA0v7mqPn8K34mjJuiHNCHFZZMiRiRg8AkJkHLbL8pu3cF_Kx1HxpvulLgoIb_dUO_N1plcA_JjZVKtq30uaou6axSn-qNaB4IFxO0OQbvg'; 
     }
     
     if(mb_stristr('gmny',$pempr))
     {
          $cfg_payphone['idapp'] = 'ek9u4mm9RU6JnfnJavpTRA';
          $cfg_payphone['idcli'] = 'OK9Gy0XEidM8Y31HM6RQ';
          $cfg_payphone['token'] = 'KsmQDVIrntibOHS54ppsU3Ok370kaVNq60T34Fy1IRcBI7R5iLJ5Wwp0zmWDU1-X8wpUF4rKqWZ4xfmW5bUbP2IbOgUpw0bslmj8lZjtweXK63uOaJ5siCVaRyButZs3d1nNQ8TyVbcdaq1X_y-UOrNTrhNSxjInI-H-xcKxmHDpLk18x1Z0olUuhrfhidnxjsqjGS5yaE6WRm7VtGs54-4nFXI3-m1wCZg-5hjP-tTIBue0oGLNc3K1x-aFBf703DDQjmLozb8ZhsJ0dxM5W8Wy3wxYiBUegRRoxumAaKaQNIJfMAsFl8VhdoX39AtCx3-Y5JcDU7HHjc_4PLjDA7gP-Aw'; 
     }
     
     return $cfg_payphone;
}

function get_porcair($pcair,$pfecha)
{
  $xporc=r_fiel('cair',$pcair,'porc');
  $xporc=$xporc*1;
  if($pfecha>='2020-04-01')
  {
    if($pcair=='312' ){$xporc=1.75;}
    if($pcair=='312A'){$xporc=1;}
    if($pcair=='344' ){$xporc=2;}
    if($pcair=='3440'){$xporc=2.75;}
  }
  return $xporc;
}

function split_name($pcompleto)
{
  $nombres=trim($pcompleto);
  $nombres=str_replace('  ',' ',$nombres);
  $ape1=0;
  $ape2=strpos($nombres,' ');
  $nom1=@strpos($nombres,' ',$ape2+1);
  $nom2=@strpos($nombres,' ',$nom1+1);
  $ape1=substr($nombres,$ape1+0,100);
  $ape2=substr($nombres,$ape2+1,100);
  $nom1=substr($nombres,$nom1+1,100);
  $nom2=substr($nombres,$nom2+1,100);
  $ape1=substr($ape1,0,strpos($ape1,' '));
  $ape2=substr($ape2,0,strpos($ape2,' '));
  $nom1=substr($nom1,0,strpos($nom1,' '));
  $nom2=substr($nom2,0);
  $narray = array
  (
    "nom1" => $nom1,
    "nom2" => $nom2,
    "ape1" => $ape1,
    "ape2" => $ape2,
  ); 
  return $narray;
}


function scan_tlfn($pnumero,$pscan=20)
{
//   return;
	include('../_cfg/config.php');
	include('php_session.php');
  if(empty($pnumero)){return;}
  
  if(empty($pscan)){$pscan=100;}
//   if($user_tipo=='invi'){echo '<msgalert>NO TIENE ACCESO A SCAN</msgalert>'; return;}
  
  $pnumero=trim($pnumero);
  $pnumero=str_replace(' ','',$pnumero);
  $pnumero=str_replace('-','',$pnumero);
  $pnumero=str_replace('(','',$pnumero);
  $pnumero=str_replace(')','',$pnumero);

  $pval1=$pnumero*1;
//   $pval1=(int)$pnumero*1;
  
  for($cnume=($pval1-$pscan); $cnume<=$pval1+$pscan; $cnume++)
  {
    get_tlfn0($cnume);
  }
  
}


function get_tlfn0($pnumero)
{
  get_tlfn1($pnumero);
}

function get_tlfn1($pnumero)
{
  //edina
  $pnumero=trim($pnumero);
  $pnumero=str_replace(' ','',$pnumero);
  $pnumero=str_replace('-','',$pnumero);
  $pnumero=str_replace('(','',$pnumero);
  $pnumero=str_replace(')','',$pnumero);
  $pnumero=substr($pnumero,-7);
  
  include('../_cfg/config.php');

  // 0 TODAS
  // 1 Pichincha Sto.Dom.
  // 2 Bolivar Chimborazo Cotopaxi Tungurahua Pastaza
  // 3 Guayas Sta.Elena
  // 4 Galapagos Manabi Los Rios
  // 5 Carchi Esmeraldas Imbabura Napo Orellana Sucumbios
  // El Oro Azuay Cañar Loja Morona Zamora
  
  $ploc='0'; 
  $ploc='3';
  
  $url1='http://www.edina.com.ec/BlancasDeta?text='.$pnumero.'&pagina=1&loc='.$ploc;
  
  $page0 = @file_get_contents($url1);
  
  $page=$page0;
  $page=substr($page,strpos($page,'news__box'));
  
  $pages=split('col-lg-12 col-md-12',$page);
  
//   echo $page;

//       echo '<br><br>*/*/*/*/* ==='.count($pages);
  
  
  for($cpag=0; $cpag<count($pages); $cpag++ )
  {
    $page1=$pages[$cpag];
    if(mb_stristr($page1,$pnumero))
    {
      $page1='<div class="'.$page1;
      $page1=substr($page1,0,strpos($page1,'LLamar'));
      $page1=$page1.'"</a></div></div></div>';
//       echo '<br><br>*/*/*/*/* '.$cpag;
//       echo $page1;
      
      $page2=$page1;
      $page2=substr($page2,strpos($page2,'news-post__title'));
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,0,strpos($page2,'</'));
      $page2=trim($page2);
      $nombres=$page2;

      $page2=$page1;
      $page2=substr($page2,strrpos($page2,'news-post__title'));
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,0,strpos($page2,'</'));
      $page2=str_replace(' ','',$page2);
      $page2=str_replace('-','',$page2);
      $page2=trim($page2);
      $numerofull=$page2;

      $page2=$page1;
      $page2=substr($page2,strpos($page2,'news-post__gal2'));
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,0,strpos($page2,'</'));
      $page2=str_replace(' ','',$page2);
      $page2=str_replace('-','',$page2);
      $page2=trim($page2);
      $operador=$page2;

      $page2=$page1;
      $page2=substr($page2,strpos($page2,'news-post__description'));
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,0,strpos($page2,'</'));
      $page2=trim($page2);
      $direccion=$page2;

      $page2=$page1;
      $page2=substr($page2,strpos($page2,'news-post__tags'));
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,strpos($page2,'>')+1);
      $page2=substr($page2,0,strpos($page2,'</'));
      $page2=trim($page2);
      $pais=$page2;

      
      $calles=strtoupper($direccion);
      if(mb_stristr($calles,'MZ'))
      {
         $calles=substr($calles,strpos($calles,'MZ'));
         $calles=substr($calles,0,25);
         $calle2=$calles;
      }
      
      $calles=strtoupper($direccion);
      if(mb_stristr($calles,'MANZANA'))
      {
         $calles=substr($calles,strpos($calles,'MANZANA'));
         $calles=substr($calles,0,25);
         $calle2=$calles;
      }
      
      $calles=strtoupper($direccion);
      if(mb_stristr($calles,'BLO'))
      {
         $calles=substr($calles,strpos($calles,'BLO'));
         $calles=substr($calles,0,25);
         $calle2=$calles;
      }
      
      $calles=strtoupper($direccion);
      if(mb_stristr($calles,'BLQ'))
      {
         $calles=substr($calles,strpos($calles,'BLQ'));
         $calles=substr($calles,0,25);
         $calle2=$calles;
      }

      $calles=strtoupper($direccion);
      $calle1=substr($calles,0,strpos($calles,$calle2));
      $calle1=str_replace('CIUDADELA','CDLA.',$calle1);
      $calle1=str_replace('ñ','Ñ',$calle1);
      
//       echo '<br>'.$calle2;
      
      $calle2=str_replace('MANZANA','MZ.',$calle2);
      $calle2=str_replace('MZ','MZ.',$calle2);
      $calle2=str_replace('MZ..','MZ.',$calle2);
      $calle2=str_replace('MZ. ','MZ.',$calle2);
      $calle2=str_replace('BLOQUE','BLQ.',$calle2);
      $calle2=str_replace('BLQ','BLQ.',$calle2);
      $calle2=str_replace('BLQ..','BLQ.',$calle2);
      $calle2=str_replace('BLQ. ','BLQ.',$calle2);
      
//       echo '<br>'.$calle2;
      
       if(mb_stristr($calle2,'VIL'))
       {
         $callen=substr($calle2,strrpos($calle2,'VIL'));
         $calle2=substr($calle2,0,strpos($calle2,'VIL'));
       }
       if(mb_stristr($calle2,'SOL'))
       {
         $callen=substr($calle2,strrpos($calle2,'SOL'));
         $calle2=substr($calle2,0,strpos($calle2,'SOL'));
       }
       if(mb_stristr($calle2,'DEP'))
       {
         $callen=substr($calle2,strrpos($calle2,'DEP'));
         $calle2=substr($calle2,0,strpos($calle2,'DEP'));
       }
       if(mb_stristr($calle2,'DPT'))
       {
         $callen=substr($calle2,strrpos($calle2,'DPT'));
         $calle2=substr($calle2,0,strpos($calle2,'DPT'));
       }

      $calle2=substr($calle2,0,15);
//       echo '<br>*/*/*/'.$calle2;
//       echo '<br>'.$callen;
      
      $callen=str_replace('VILLA','V.',$callen);
      $callen=str_replace('SOLAR','SL.',$callen);
      $callen=str_replace('DPTO','DEP.',$callen);
      $callen=str_replace('..','.',$callen);
      $callen=str_replace('. ','.',$callen);
      $callen=str_replace('-','',$callen);
      $callen=trim($callen);
//       echo '<br>'.$callen;

      $prefix='593';
      $area=str_replace($pnumero,'',$numerofull);

      
      if($nombres!='')
      {
          $sql_tlfn='select * from tlfn0 where tlfn_prefix="'.$prefix.'" and tlfn_area="'.$area.'" and tlfn_numero="'.$pnumero.'"';
          $res_tlfn=msql_query($sql_tlfn,$link_vcrx);

          if(msql_num_rows($res_tlfn)==0)
          {
            $sql_inse='insert into tlfn0(tlfn_prefix,tlfn_area,tlfn_numero,tlfn_idate)value("'.$prefix.'","'.$area.'","'.$pnumero.'",now())';
            $res_inse=msql_query($sql_inse,$link_vcrx);
            $res_tlfn=msql_query($sql_tlfn,$link_vcrx);
    //         echo '<br>'.$sql_inse;
          }

          $codigo=msql_result($res_tlfn,0,'tlfn_codigo');

          $sql_updt='update tlfn0 set ';
          $sql_updt.='tlfn_descri="('.$prefix.') '.$area.'-'.$pnumero.'",';
    //       $sql_updt.='tlfn_descri="aaaa",';
          $sql_updt.='tlfn_nombre="'.$nombres.'",';
          $sql_updt.='tlfn_direccion="'.$direccion.'",';
          $sql_updt.='tlfn_calle1="'.$calle1.'",';
          $sql_updt.='tlfn_calle2="'.$calle2.'",';
          $sql_updt.='tlfn_callen="'.$callen.'",';
          $sql_updt.='tlfn_pais="'.$pais.'",';
          $sql_updt.='tlfn_opera="'.$operador.'",';
          $sql_updt.='tlfn_status="-"';
          $sql_updt.='where tlfn_codigo='.$codigo.'';

          $res_updt=msql_query($sql_updt,$link_vcrx);
    //       echo '<br>'.$sql_updt;
      }
      
    }    
    
  }
  
  
  
}


function get_rime($pnumruc)
{
     return 0;
   ini_set('memory_limit', '1024M');
   $pnumruc=trim($pnumruc);
   $pnumruc=str_replace('"','',$pnumruc);	
   $pnumruc=str_replace("'","",$pnumruc);	
   $pnumruc=str_replace("-","",$pnumruc);	

   $rime=0;
   
   if($pnumruc==''){return;}
   if(strlen($pnumruc)<10){return;}
   $pnumruc=substr($pnumruc,0,10).'';

   $rutazip='../../catastro/';
//    if($cfg_empr=='')
//    {$rutazip='../catastro/';}
   
   
   $rime=file_get_contents($rutazip.'rime1.txt');
   $pos=strpos($rime,$pnumruc);
   
   if($pos>0)
   {
      @include('../_cfg/config.php');
      $sql_rime='update enti0 set enti_rime=1 where enti_codigo like "'.$pnumruc.'%"';
      $res_rime=msql_query($sql_rime,$link_vcrx);
      $rime=1;
   }
   ini_set('memory_limit', '256M');
   
   return $rime;
}


function get_agret($pnumruc)
{
   return;
//    echo '*/*/*/*'.$pnumruc;return;
   ini_set('memory_limit', '1024M');
   $pnumruc=trim($pnumruc);
   $pnumruc=str_replace('"','',$pnumruc);	
   $pnumruc=str_replace("'","",$pnumruc);	
   $pnumruc=str_replace("-","",$pnumruc);	

   $agret=0;
   
   if($pnumruc==''){return;}
   if(strlen($pnumruc)<10){return;}
   $pnumruc=substr($pnumruc,0,10).'';

   $rutazip='../../catastro/';
   
   $agret=file_get_contents($rutazip.'agret1.txt');
   $pos=strpos($agret,$pnumruc);
   
   if($pos>0)
   {
      @include('../_cfg/config.php');
      
      $agren=$agret;
      $agren=substr($agren,$pos-6,6);
      
      for($idx=0;$idx<6;$idx++)
      {
         $car=substr($agren,$idx,1);
         if(!mb_stristr('0123456789',$car))
         {$agren=str_replace($car,' ',$agren);}
      }
      $agren=trim($agren);
      
      $sql_agret='update enti0 set enti_agret=1,enti_agren="'.$agren.'" where enti_codigo like "'.$pnumruc.'%"';
      $res_agret=msql_query($sql_agret,$link_vcrx);
//       echo $sql_agret.msql_error();
      
      $agret=1;
   }
   ini_set('memory_limit', '256M');

   return $agret;
}


function get_ruczip($pnumruc,$json=0)
{
//      return;
// NUMERO_RUC	RAZON_SOCIAL	NOMBRE_COMERCIAL	ESTADO_CONTRIBUYENTE	CLASE_CONTRIBUYENTE
// FECHA_INICIO_ACTIVIDADES	FECHA_ACTUALIZACION	FECHA_SUSPENSION_DEFINITIVA	FECHA_REINICIO_ACTIVIDADES
// OBLIGADO	TIPO_CONTRIBUYENTE	NUMERO_ESTABLECIMIENTO	NOMBRE_FANTASIA_COMERCIAL
// CALLE	NUMERO	INTERSECCION	ESTADO_ESTABLECIMIENTO
// DESCRIPCION_PROVINCIA	DESCRIPCION_CANTON	DESCRIPCION_PARROQUIA
// CODIGO_CIIU	ACTIVIDAD_ECONOMICA
  
//      return;
//   ini_set('memory_limit', '512M');
  ini_set('memory_limit', '1024M');
//   @include('../_cfg/config.php');
  
  $pnumruc=trim($pnumruc);
  $pnumruc=str_replace('"','',$pnumruc);	
  $pnumruc=str_replace("'","",$pnumruc);	
  $pnumruc=str_replace("-","",$pnumruc);	
  $xdescri='';
  
  if($pnumruc==''){return;}
  $pnumruc=substr($pnumruc,0,10).'001';
  if(strlen($pnumruc)<10){return;}

  $xrazsoc = '';
  if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
  if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

  
  if($json==1)
  {
    $xtipo=val_ruced($pnumruc);
    $xjson='"Numero":"'.$pnumruc.'"';
    $xjson.=',"Tipo":"'.$xtipo.'"';
  }
  
  
  @include('../_cfg/config.php');
  $rutazip='../../catastro/';
  if($cfg_empr=='')
  {$rutazip='../catastro/';}
  
//   echo 'R==>'.$rutazip.$cfg_empr;

  $registroOK='';
    foreach (glob($rutazip.'*.zip') as $zipfile1)
    {
//              echo '<br>ZIP File: '.$zipfile1;
      
      $zip = new ZipArchive;
      if($zip->open($zipfile1) === TRUE) 
      {
        $zipfile=null;
        $zipfile=zip_open($zipfile1);  
        while ($zip_entry = zip_read($zipfile))
        {
           $txtfile=null;
           $txtfile=zip_entry_name($zip_entry);
           if(zip_entry_open($zipfile, $zip_entry))
           {
              $archivo=null;
//              echo '<br>ZIP File: '.$txtfile;
              $archivo=$zip->getFromName($txtfile);
              $registro=$archivo;
              $registro=substr($registro,strpos($registro,$pnumruc),1000);
              $registro=substr($registro,0,strpos($registro,chr(13)));
              if(substr($registro,0,10)==substr($pnumruc,0,10))
              {
                 $cabecera=substr($archivo,0,strpos($archivo,chr(13)));
                 $registroOK=$registro;
                 break;
              }            
           }
        }        
        $zip->close();
      }      
      if($registroOK!=''){break;}
    }       
  
    
// 0 - NUMERO_RUC : 0990004196001
// 1 - RAZON_SOCIAL : CORPORACION EL ROSADO S.A.
// 2 - NOMBRE_COMERCIAL :
// 3 - ESTADO_CONTRIBUYENTE : ACTIVO
// 4 - CLASE_CONTRIBUYENTE : ESPECIAL
// 5 - FECHA_INICIO_ACTIVIDADES : 22/11/1954
// 6 - FECHA_ACTUALIZACION : 07/10/2019
// 7 - FECHA_SUSPENSION_DEFINITIVA :
// 8 - FECHA_REINICIO_ACTIVIDADES :
// 9 - OBLIGADO : S
// 10 - TIPO_CONTRIBUYENTE : SOCIEDADES
// 11 - NUMERO_ESTABLECIMIENTO : 170
// 12 - NOMBRE_FANTASIA_COMERCIAL : HIPERMARKET YAGUACHI
// 13 - CALLE : JAIME ROLDOS
// 14 - NUMERO : S/N
// 15 - INTERSECCION :
// 16 - ESTADO_ESTABLECIMIENTO : ABI
// 17 - DESCRIPCION_PROVINCIA : GUAYAS
// 18 - DESCRIPCION_CANTON : SAN JACINTO DE YAGUACHI
// 19 - DESCRIPCION_PARROQUIA : SAN JACINTO DE YAGUACHI
// 20 - CODIGO_CIIU : G471102
// 21 - ACTIVIDAD_ECONOMICA : VENTA AL POR MENOR DE GRAN VARIEDAD DE PRODUCTOS EN SUPERMERCADOS, ENTRE LOS QUE PREDOMINAN, LOS PRODUCTOS ALIMENTICIOS, LAS BEBIDAS O EL TABACO, COMO PRODUCTOS DE PRIMERA NECESIDAD Y VARIOS OTROS TIPOS DE PRODUCTOS, COMO PRENDAS DE VESTIR, MUEBLES, APARATOS, ART�CULOS DE FERRETER�A, COSM�TICOS, ETC�TERA.    

//   echo '<br> CAB:'.$cabecera;
//   echo '<br> REG:'.$registroOK;
  
    if($registroOK!='')
    {
//       $xarray1=split(chr(9),$cabecera);
//       $xarray=split(chr(9),$registroOK);
      $xarray1=explode(chr(9),$cabecera);
      $xarray=explode(chr(9),$registroOK);
      
      $xarray1=explode("|",$cabecera);
      $xarray=explode("|",$registroOK);
      
// var_dump($xarray1);     
// var_dump($xarray);     
      
      $sql_inse='insert into enti0(enti_codigo,enti_descri,enti_status)value("'.substr($pnumruc,0,10).'001'.'","*** NUEVO RUC ","-")';
      $res_inse=msql_query($sql_inse,$link_vcrx);
      
//       echo ' */*/*/*/*/ '.$sql_inse.msql_error($link_vcrx);
      
      $sql_updt='';
      $sql_updt.='update enti0 set ';
//       for($indx=0; $indx<count($xarray); $indx++)
      {
        $valor=$xarray[1];
        $valor=trim($valor);
        $valor=str_replace('""','"',$valor);
        if(substr($valor,0,1)=='"'){$valor=substr($valor,1);}
        if(substr($valor,strlen($valor)-1,1)=='"'){$valor=substr($valor,0,strlen($valor)-1);}
        $valor=str_replace('"','-',$valor);
        
        $xdescri=$valor;
        $sql_updt.='enti_descri="'.$valor.'",';
        $sql_updt.='enti_razsoc="'.$valor.'",';
        $xjson.=',"Razon Social":"'.$valor.'"';
      
      if(1==2)
      {
        $valor=$xarray[2];if($valor==''){$valor=$xarray[12];}if($valor==''){$valor=$xarray[1];}
        $valor=trim($valor);
        $valor=str_replace('""','"',$valor);
        if(substr($valor,0,1)=='"'){$valor=substr($valor,1);}
        if(substr($valor,strlen($valor)-1,1)=='"'){$valor=substr($valor,0,strlen($valor)-1);}
        $valor=str_replace('"','-',$valor);
        
        $sql_updt.='enti_nomcom="'.$valor.'",';
        $xjson.=',"Nombre Comercial":"'.$valor.'"';
        
        $valor=$xarray[3];
        $sql_updt.='enti_struc="'.$valor.'",';
        $xjson.=',"Status":"'.$valor.'"';

        $valor=$xarray[4];
        if(substr($valor,0,1)=='E'){$valor=1;}else{$valor=0;}
        $sql_updt.='enti_coesp="'.$valor.'",';
        $xjson.=',"Contribuyente Especial":"'.$valor.'"';
        
        $valor=$xarray[4];
        if(substr($valor,0,1)=='R'){$valor=1; }else{$valor=0;}
        $sql_updt.='enti_rise="'.$valor.'",';
        $xjson.=',"RISE":"'.$valor.'"';
        
        $valor=$xarray[5];
        $sql_updt.='enti_fechaini="'.date('Y-m-d',strtotime(str_replace('/','-',$valor))).'",';
        $xjson.=',"Fecha Inicio":"'.$valor.'"';
        
        $valor=$xarray[9];if(substr($valor,0,1)=='S'){$valor=1;}else{$valor=0;}
        $sql_updt.='enti_obcon="'.$valor.'",';
        $xjson.=',"Obligado Contabilidad":"'.$valor.'"';
        
        $valor=$xarray[10];if(substr($valor,0,1)=='P')
        {
          $nombres=split_name($xarray[1]);
          $sql_updt.='enti_nom1="'.$nombres['nom1'].'",';
          $sql_updt.='enti_nom2="'.$nombres['nom2'].'",';
          $sql_updt.='enti_ape1="'.$nombres['ape1'].'",';
          $sql_updt.='enti_ape2="'.$nombres['ape2'].'",';
          $xjson.=',"Nombre 1":"'.$nombres['nom1'].'"';
          $xjson.=',"Nombre 2":"'.$nombres['nom2'].'"';
          $xjson.=',"Apellido 1":"'.$nombres['ape1'].'"';
          $xjson.=',"Apellido 2":"'.$nombres['ape2'].'"';
        }
        
        $valor=trim($xarray[13].' ('.$xarray[14].') '.$xarray[15]);
        $sql_updt.='enti_matriz="'.$valor.'",';
        $xjson.=',"Matriz":"'.$valor.'"';
        
        
        $valor=$xarray[17];
        $sql_updt.='enti_provincia="'.$valor.'",';
        $xjson.=',"Provincia":"'.$valor.'"';
        
        $valor=$xarray[18];
        $sql_updt.='enti_ciudad="'.$valor.'",';
        $xjson.=',"Ciudad":"'.$valor.'"';
        
        $valor=$xarray[19];
        $sql_updt.='enti_parroq="'.$valor.'",';
        $xjson.=',"Parroquia":"'.$valor.'"';
        
        $valor=$xarray[21];
        $sql_updt.='enti_actividad="'.$valor.'",';
        $xjson.=',"Actividad":"'.$valor.'"';
           
           

      }

      if(1==1)
      {
        $valor=$xarray[3];if($valor==''){$valor=$xarray[13];}if($valor==''){$valor=$xarray[1];}
        $valor=trim($valor);
        $valor=str_replace('""','"',$valor);
        if(substr($valor,0,1)=='"'){$valor=substr($valor,1);}
        if(substr($valor,strlen($valor)-1,1)=='"'){$valor=substr($valor,0,strlen($valor)-1);}
        $valor=str_replace('"','-',$valor);
        
        $sql_updt.='enti_nomcom="'.$valor.'",';
        $xjson.=',"Nombre Comercial":"'.$valor.'"';
        
        $valor=$xarray[4];
        $sql_updt.='enti_struc="'.$valor.'",';
        $xjson.=',"Status":"'.$valor.'"';

        $valor=$xarray[18];
        if(substr($valor,0,1)=='E'){$valor=1;}else{$valor=0;}
        $sql_updt.='enti_coesp="'.$valor.'",';
        $xjson.=',"Contribuyente Especial":"'.$valor.'"';
        
        $valor=$xarray[5];
        if(substr($valor,0,1)=='R'){$valor=1; }else{$valor=0;}
        $sql_updt.='enti_rise="'.$valor.'",';
        $xjson.=',"RISE":"'.$valor.'"';
        
        $valor=$xarray[6];
        $sql_updt.='enti_fechaini="'.date('Y-m-d',strtotime(str_replace('/','-',$valor))).'",';
        $xjson.=',"Fecha Inicio":"'.$valor.'"';
        
        $valor=$xarray[8];if(substr($valor,0,1)=='S'){$valor=1;}else{$valor=0;}
        $sql_updt.='enti_obcon="'.$valor.'",';
        $xjson.=',"Obligado Contabilidad":"'.$valor.'"';
        
//         $valor=$xarray[10];if(substr($valor,0,1)=='P')
//         {
//           $nombres=split_name($xarray[1]);
//           $sql_updt.='enti_nom1="'.$nombres['nom1'].'",';
//           $sql_updt.='enti_nom2="'.$nombres['nom2'].'",';
//           $sql_updt.='enti_ape1="'.$nombres['ape1'].'",';
//           $sql_updt.='enti_ape2="'.$nombres['ape2'].'",';
//           $xjson.=',"Nombre 1":"'.$nombres['nom1'].'"';
//           $xjson.=',"Nombre 2":"'.$nombres['nom2'].'"';
//           $xjson.=',"Apellido 1":"'.$nombres['ape1'].'"';
//           $xjson.=',"Apellido 2":"'.$nombres['ape2'].'"';
//         }
        
//         $valor=trim($xarray[13].' ('.$xarray[14].') '.$xarray[15]);
//         $sql_updt.='enti_matriz="'.$valor.'",';
//         $xjson.=',"Matriz":"'.$valor.'"';
        
        
        $valor=$xarray[2];
        $sql_updt.='enti_provincia="'.$valor.'",';
        $xjson.=',"Provincia":"'.$valor.'"';
        
        $valor=$xarray[16];
        $sql_updt.='enti_ciudad="'.$valor.'",';
        $xjson.=',"Ciudad":"'.$valor.'"';
        
        $valor=$xarray[17];
        $sql_updt.='enti_parroq="'.$valor.'",';
        $xjson.=',"Parroquia":"'.$valor.'"';
        
        $valor=$xarray[19];
        $sql_updt.='enti_actividad="'.$valor.'",';
        $xjson.=',"Actividad":"'.$valor.'"';
           
           

      }
        
           
           
           
      }
      $sql_updt.='enti_status=enti_status ';
      $sql_updt.='where enti_codigo like "'.substr($pnumruc,0,10).'%"';
      
      $sql_updt=str_replace('""','"',$sql_updt);
      
        
      $res_updt=@msql_query($sql_updt,$link_vcrx);

//             echo '<br><br>'.msql_error($link_vcrx);
//       echo '<br><br>'.$sql_updt;
      
    }
    ini_set('memory_limit', '256M');

  
   if($json==1 and $xdescri!='')
   {
     $xjson='{'.$xjson.'}';
     $xdescri=$xjson;
     
   }

  
    return $xdescri;
}

  
function get_cedec($pcedec, $json=0)
{
  @include('../_cfg/config.php');
	include('php_session.php');
  include_once('PdfToText.phpclass') ;
  
  $pean12=substr($pean,0,12);
  $descri='';
  $fecha='';
  $puni=0;
  
  $ruta1='../../_cedec/';
  
  if($cfg_empr==''){$ruta1='../_cedec/';}

  $archivos='*.*';

  foreach (glob($ruta1.$archivos) as $origen)
  {
    $xconta=0;
    if(mime_content_type($origen)=='application/pdf')
    {
      $pdf 	= new PdfToText (  ) ;
      $file = $pdf -> Text ;
    }
    else
    {$file=@file_get_contents($origen); }
    
    $lfile=strlen($file);
    for($xcont=0; $xcont<$lfile; $xcont++)
    {
      $clave= substr($file,$xcont,10);
      if($clave==$pcedec)
      {
        if(val_ruced($clave)!='0')
        {
          $registro=substr($file,$xcont+10,50);
          for($xcar=0; $xcar<50; $xcar++)
          {
            if(mb_stristr('0123456789',substr($registro,$xcar,1)))
            {$registro=substr($registro,0,$xcar);break;}
          }
          $descri=$registro;
          $xcont=$lfile;
        }
      }
    }
  }       
  $descri=trim($descri);
  
     
  if(strlen($descri>3))
  {
       
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_descri="'.$descri.'", ';
    $nombres=split_name($descri);
    $sql_updt.='enti_nom1="'.$nombres['nom1'].'",';
    $sql_updt.='enti_nom2="'.$nombres['nom2'].'",';
    $sql_updt.='enti_ape1="'.$nombres['ape1'].'",';
    $sql_updt.='enti_ape2="'.$nombres['ape2'].'",';
  $sql_updt.='enti_status="-" ';
  $sql_updt.='where enti_codigo like "'.$pcedec.'" ';

    $xjson=='';
  if($json==1)
  {
    $xjson.='{';
    $xjson.=' "Descripcion":"'.$descri.'"';
    $xjson.=',"Nombre 1":"'.$nombres['nom1'].'"';
    $xjson.=',"Nombre 2":"'.$nombres['nom2'].'"';
    $xjson.=',"Apellido 1":"'.$nombres['ape1'].'"';
    $xjson.=',"Apellido 2":"'.$nombres['ape2'].'"';
    $xjson.='}';
    $descri=$xjson;
  }
  }
    
  return $descri;
}

function get_emailce($penti)
{
	include('../_cfg/config.php');
	include('php_session.php');
  
  $emailce=r_fiel('enti',$penti,'emailce');
  if(strlen($emailce)<5)
  {$emailce=r_fiel('enti',$penti,'email');}
  if(strlen($emailce)<5)
  {$emailce=r_fiel('enti',$cfg_ruc,'emailce');}
  if(strlen($emailce)<5)
  {$emailce=r_fiel('enti',$cfg_ruc,'email');}
  
  $emailce=strtolower($emailce);
  return $emailce;  
}
  

function get_eanimg0($pean)
{
	include('../_cfg/config.php');
	include('php_session.php');
  $pean=trim($pean);
  
  if(strlen($pean)==13)
  {
    $dchek=val_ean($pean,true);
    if($dchek!=1){return;}
  } 
  if(strlen($pean)==12){$pean.=val_ean($pean);} 
//   $ean_descri=r_fiel('item',$pean);
  
  if(substr($pean,0,2)=='88'){return;}

  $sql_imgi='select * from imgi0 where imgi_item="'.$pean.'" and imgi_status!="X"';
  $res_imgi=msql_query($sql_imgi,$link_vcrx);
  if(msql_num_rows($res_imgi)==0)
  {
    $url='https://www.supermaxi.com/'.$pean.'/';
    $page=file_get_contents($url);
    if(mb_stristr($page,$pean))
    {
      if(mb_stristr($page,'.png'))
      {
        $url2=$page;
        $url2=substr($url2,0,strpos($url2,$pean.'.png')+17);
        $url2=substr($url2,strrpos($url2,'https'));
        
        $page2=file_get_contents($url2);
        $name=$pean.'.png';
        $filename=$rutaimgi.$name;
        file_put_contents($filename,$page2);
        
        $xmime=mime_content_type($filename);
        if(mb_stristr($xmime,'image'))
        {
          $sql_inse='insert into imgi0(imgi_descri,imgi_iuser,imgi_idate,imgi_status,imgi_defa,imgi_item,imgi_file)';
          $sql_inse.='value("'.$url2.'","'.$user_codigo.'",now(),"-",1,"'.$pean.'","'.$name.'")';
          $res_imgi=msql_query($sql_inse,$link_vcrx);
//           echo msql_error($link_vcrx).$sql_inse;
        }
        else
        {unlink($filename);}
        
      }
      
    }
  }
    
    
}


function get_ean0($pean)
{
	@include('../_cfg/config.php');
	include('php_session.php');
  $pean=trim($pean);

   
  $sql_item='select * from item0 where trim(item_ean)="'.$pean.'" and item_descri!="" and item_descri is not null order by item_codigo desc limit 1';
  $res_item=msql_query($sql_item,$link_vcrx);
  if(msql_num_rows($res_item)!=0)
  {return msql_result($res_item,0,'item_descri');}
   
  if(strlen($pean)==13){$dchek=val_ean($pean,true);} 
  if($dchek!=1){return;}
  if(strlen($pean)==12){$pean.=val_ean($pean);} 
  $ean_descri=r_fiel('item',$pean);
  
  if(substr($pean,0,2)=='88'){return;}
  if(substr($pean,0,2)=='20'){return;}
  
  if($ean_descri=='' or mb_stristr($ean_descri,'* NUEV'))
  {
    $ean_descri=get_eanvcrx($pean);
    if($ean_descri!='')
    {
      $sql_uite ='update item0 set item_descri="'.$ean_descri.'" ';
      $sql_uite.='where item_codigo="'.$pean.'" ';
      $sql_uite.='and (item_descri="" or item_descri is null or item_descri like "%* NUEV%")';
      $res_uite=@msql_query($sql_uite,$link_vcrx);
    }

  }

  if($ean_descri=='' or mb_stristr($ean_descri,'* NUEV'))
  {
    $ean_descri=get_ean1($pean);

    if($ean_descri!='')
    {
      $sql_uite ='update item0 set item_descri="'.$ean_descri.'" ';
      $sql_uite.='where item_codigo="'.$pean.'" ';
      $sql_uite.='and (item_descri="" or item_descri is null or item_descri like "%* NUEV%")';
      $res_uite=@msql_query($sql_uite,$link_vcrx);
    }
  }

  if($ean_descri=='' or mb_stristr($ean_descri,'* NUEV'))
  {
//     echo '*/*/*ccccc';
    
    $ean_descri=get_ean3($pean);
//     echo '*/*/*/*/*/'.$ean_descri;
    if($ean_descri!='')
    {
      $sql_uite ='update item0 set item_descri="'.$ean_descri.'" ';
      $sql_uite.='where item_codigo="'.$pean.'" ';
      $sql_uite.='and (item_descri="" or item_descri is null or item_descri like "%* NUEV%")';
      $res_uite=msql_query($sql_uite,$link_vcrx);
    }

  }

  
//     $ean_descri=get_ean9($pean);
//     echo '*/*/*/*/*/'.$ean_descri;
  
  
  return $ean_descri;
//   return ;
}  

  
function get_eanvcrx($pean,$parray=0) 
{
//   $ean_descri=r_fiel('item',$pean);
//   if($ean_descri!='' and !mb_stristr($ean_descri,'* NUEV')){return '';}
	include('php_session.php');
  
  $pean12=substr($pean,0,12);
  $descri='';
  $fecha='';
  $puni=0;
  
  $ruta1='../../_ean/';
  
  if($cfg_empr==''){$ruta1='../_ean/';}

  $archivos='*.txt';
  if($parray==1){$archivos='f*.txt';}

  foreach (glob($ruta1.$archivos) as $origen)
  {
    $xconta=0;
    $url=$origen;
    $page = @file_get_contents($url); 
//       echo '<br>'.$page;
//     $descri=$page;
//       echo '<br>'.$origen;
    $page=substr($page,strpos($page,$pean12),9999);
    if(mb_stristr($page,$pean12))
    {
       if(mb_stristr($origen,'gs1ec'))
       {
          $descri=$page;
          $descri=substr($descri,strpos($descri,'|')+1,9999);
          $descri=substr($descri,0,strpos($descri,'|'));
          break;
       }

       if(mb_stristr($origen,'fernandez'))
       {
          $descri=$page;
          $descri=substr($descri,strpos($descri,"\t")+1,9999);
          $descri=substr($descri,0,strpos($descri,"\t"));
         
          $puni=$page;
          $puni=substr($puni,strpos($puni,"\t")+1,9999);
          $puni=substr($puni,strpos($puni,"\t")+1,9999);
          $puni=substr($puni,strpos($puni,"\t")+1,9999);
//           $puni=substr($puni,strpos($puni,"\t")+1,9999);
          $puni=substr($puni,0,strpos($puni,"\t"));
//           $puni=$puni*1;
// echo '*/*/*/*/*/*/'.$puni;
          break;
       }
    }
    
    
  }       
  $descri=trim($descri);

//   echo '++++'.$parray;
  
  if($parray==1)
  {
    $descria=array();
    $descria[1]=$pean;
    $descria[2]=$descri;
    $descria[3]=$fecha;
    $descria[4]=$puni;
    $descri=$descria;
  }
//   echo '*/*/*/*/'.$descri;
  
  return $descri;
}
  
 
function get_ean9($pean) 
{
//   $ean_descri=r_fiel('item',$pean);
//   if($ean_descri!='' and !mb_stristr($ean_descri,'* NUEV')){return '';}

  $url='https://www.digit-eyes.com/cgi-bin/digiteyes.cgi?upcCode='.$pean;
//   $url='https://www.digit-eyes.com/cgi-bin/digiteyes.cgi?userid=2540110&iP=0&upcCode='.$pean;
//   $url='https://www.digit-eyes.com/cgi-bin/digiteyes.cgi?userid=2540110&iP=0&upcCode=038000184932'
  $page = @file_get_contents($url); 
  $descri='';
  
//   if(mb_stristr($page,$pean))
  {
    $descri=$page;
//     $descri=substr($descri,strpos($descri,'<h1>'.$pean),9999);
    $descri=substr($descri,strpos($descri,'class="t1"'),99999);
//     $descri=substr($descri,strpos($descri,'<h1>'),99999);
//     $descri=substr($descri,strpos($descri,$pean),99999);
//     $descri=substr($descri,strpos($descri,'apas'),99999);
//     echo '111*/*/*/'.$descri;
    if(mb_stristr($descri,$pean))
    {
//       $descri=substr($descri,strpos($descri,' '),9999);
      $descri=substr($descri,strpos($descri,'<h2'),9999);
      $descri=substr($descri,strpos($descri,'>')+1,9999);
//       echo '222*/*/*/'.$descri;
      $descri=substr($descri,0,strpos($descri,'<'));
      $descri=trim($descri);
    }
    else
    {$descri='';}
  }
  return $descri;
}
  
function get_ean1($pean) 
{
//   $ean_descri=r_fiel('item',$pean);
//   if($ean_descri!='' and !mb_stristr($ean_descri,'* NUEV')){return '';}
  
  $url='https://www.buycott.com/upc/'.$pean;
  $page = @file_get_contents($url); 
  $descri='';
  
//   if(mb_stristr($page,$pean))
  {
    $descri=$page;
    $descri=substr($descri,strpos($descri,'<h1'),9999);
    if(mb_stristr($descri,$pean))
    {
      $descri=substr($descri,strpos($descri,'<h2'),9999);
      $descri=substr($descri,strpos($descri,'>')+1,9999);
      $descri=substr($descri,0,strpos($descri,'<'));
    }
    else
    {$descri='';}
  }
  return $descri;
}
  
  
function get_ean3($pean) 
{
//   $ean_descri=r_fiel('item',$pean);
//   if($ean_descri!='' and !mb_stristr($ean_descri,'* NUEV')){return '';}

  $url='https://www.yolito.cl/Home/FichaTecnica/'.$pean;
  $page = @file_get_contents($url); 
  $descri='';
  
//   if(mb_stristr($page,$pean))
  {
    $descri=$page;
    $descri=substr($descri,strpos($descri,'class="CustomCols'),9999);
    $descri=substr($descri,strpos($descri,'<img'),9999);
    $descri=substr($descri,strpos($descri,'class="CustomCols'),9999);
//     $descri=substr($descri,strpos($descri,'class="fontUper'),9999);
    if(mb_stristr($descri,$pean))
    {
      $descri=substr($descri,strpos($descri,'<h5'),9999);
      $descri=substr($descri,strpos($descri,'>')+1,9999);
      $descri=substr($descri,0,strpos($descri,'<'));
      $descri=trim($descri);
    }
    else
    {$descri='';}
  }
  return $descri;
}
  
  
function get_eandigiteyes($pean)
{
// #
// # Digit Eyes Code to Generate and Output JSON
// #
// #****Dynamic UPC from form****
// //$upc_code = $_GET["upc"];
// #****Hard Code Test UPC****
$upc_code=$pean;
// #****Substitute Your Auth Key****
$auth_key = 'Ya98Y3n7d4Qp5Gn3';
// #****Substitute Your App Key****
$app_key = '/5NyLtooLFDj';
  
$signature = base64_encode(hash_hmac('sha1', $upc_code, $auth_key, $raw_output = true));
#***Dynamic UPC Production***
// $url = 'https://digit-eyes.com/gtin/v2_0/?upc_code='.$_GET["upc"].'&app_key='. $app_key.'&language=en&field_names=all&signature='. $signature .'';
#***Hard Code UPC Test***
$url = 'https://digit-eyes.com/gtin/v2_0/?upc_code='. $upc_code .'&app_key='. $app_key.'&language=es&field_names=all&signature='. $signature .'';
// Appendix D: Signing the Request
// Digital Miracles UPC/EAN API Implementation Guide Page | 39
$ch = curl_init($url);
curl_setopt($ch, CURLOPT_TIMEOUT, 5);
curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 5);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$data = curl_exec($ch);
curl_close($ch);
  echo $url;
echo $data;
  
}  
  
function get_eanebay($pean) 
{
  $url='https://www.ebay.com/sch/i.html?_nkw='.$pean;
  $page = @file_get_contents($url); 
  $descri='';
  
  if(!mb_stristr($page,'>0 result'))
  {
    $descri=$page;
    $descri=substr($descri,strpos($descri,'<h1'),9999);
    $descri=substr($descri,strpos($descri,'<h2'),9999);
    $descri=substr($descri,strpos($descri,'>')+1,9999);
    $descri=substr($descri,0,strpos($descri,'<'));
  }
  return $descri;
}
  
  
function get_ippais($ipip='')
{
	include('../_cfg/config.php');
	include('php_session.php');

  if($ipip==''){$ipip=$_SERVER['REMOTE_ADDR'];}
  
//   $url='https://db-ip.com/'.$ipip;
  $url='http://api.db-ip.com/v2/free/'.$ipip;
  $page=@file_get_contents($url);
  $page=json_decode($page);
//   var_dump($page);
  $pais=$page->{"countryCode"};
  
  return $pais;
}  
  
function del_ruc($pnumruc)
{
  include('../_cfg/config.php');
  $pnumruc=trim($pnumruc);
  $pnumruc=str_replace('"','',$pnumruc);	
  $pnumruc=str_replace("'","",$pnumruc);	
  $pnumruc=str_replace("-","",$pnumruc);	
  $pnumruc=substr($pnumruc,0,10).'001';

  if(substr($pnumruc,2,1)<=6)
  {
    $sql_ruc1 ='delete from enti0 ';
    $sql_ruc1.=' where enti_struc is null ';
    $sql_ruc1.=' and enti_codigo not in(select distinct enti from comp1)';
    $sql_ruc1.=' and enti_codigo="'.$pnumruc.'"';
//     $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
  }
  else
  {
    $sql_ruc1='delete from enti0 where substring(enti_codigo,11,3)>"001" and substring(enti_codigo,11,3)<"999"';
    $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
  }
//   echo $res_ruc1;
  
}
  
function reg_cedruc($pnumruc)
{
  //regula cedulas y rucs
  include('../_cfg/config.php');
  $pnumruc=trim($pnumruc);
  $pnumruc=str_replace('"','',$pnumruc);	
  $pnumruc=str_replace("'","",$pnumruc);	
  $pnumruc=str_replace("-","",$pnumruc);	
  $pnumruc=substr($pnumruc,0,10);

     
     $sql_ruc1='update enti0 set enti_razsoc=enti_descri where enti_codigo = "'.$pnumruc.'" and (enti_razsoc="" or enti_razsoc is null) ';
     $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
     
     $sql_ruc1='update enti0 set enti_nomcom=enti_descri where enti_codigo = "'.$pnumruc.'" and (enti_nomcom="" or enti_nomcom is null) ';
     $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
     
     
//   echo 'DDDDDD';
  del_ruc($pnumruc);
  $sql_ruc1='select * from enti0 where enti_codigo like "'.$pnumruc.'%"  order by enti_codigo desc';
  $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
//     echo '*/*/';
  if(msql_num_rows($res_ruc1)!=0)
  {
    $pnumruc=trim(msql_result($res_ruc1,0,'enti_codigo'));
    $pdescri=trim(msql_result($res_ruc1,0,'enti_descri'));
    $prazsoc=trim(msql_result($res_ruc1,0,'enti_razsoc'));
    $pnomcom=trim(msql_result($res_ruc1,0,'enti_nomcom'));

    $sql_ruc1='update tabla1 set enti="'.$pnumruc.'" where enti like "'.$pnumruc.'%" order by enti';
    $res_ruc1=msql_query(str_replace('tabla1','vtas1',$sql_ruc1) ,$link_vcrx);
    $res_ruc1=msql_query(str_replace('tabla1','clie1',$sql_ruc1) ,$link_vcrx);
//     $res_ruc1=msql_query(str_replace('tabla1','carr1',$sql_ruc1) ,$link_vcrx);
//     $res_ruc1=msql_query(str_replace('tabla1','comp1',$sql_ruc1) ,$link_vcrx);
    $res_ruc1=msql_query(str_replace('tabla1','caja1',$sql_ruc1) ,$link_vcrx);
    $res_ruc1=msql_query(str_replace('tabla1','bcos1',$sql_ruc1) ,$link_vcrx);
  }

  $sql_ruc1 ='select * from enti0 ';
  $sql_ruc1.=' where enti_codigo like "'.$pnumruc.'%" ';
  $sql_ruc1.=' and enti_descri not like "%sp;%" ';
  $sql_ruc1.=' and enti_descri!="" ';
  $sql_ruc1.=' order by enti_codigo desc';
  $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
  if(msql_num_rows($res_ruc1)!=0)
  {
    $pdescri=trim(msql_result($res_ruc1,0,'enti_descri'));
    $sql_ruc1='update enti0 set enti_descri="'.$pdescri.'" where enti_codigo like "'.$pnumruc.'%" and (enti_descri like "%sp;%" or enti_descri="" or enti_descri is null or enti_descri like "%NUEVO RUC%") ';
    $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
//     echo $sql_ruc1;
  }
  
  $sql_ruc1 ='select * from enti0 ';
  $sql_ruc1.=' where enti_codigo like "'.$pnumruc.'%" ';
  $sql_ruc1.=' and enti_razsoc not like "%sp;%" ';
  $sql_ruc1.=' and enti_razsoc!="" ';
  $sql_ruc1.=' order by enti_codigo desc';
  $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
  if(msql_num_rows($res_ruc1)!=0)
  {
    $prazsoc=trim(msql_result($res_ruc1,0,'enti_razsoc'));
    $sql_ruc1='update enti0 set enti_razsoc="'.$prazsoc.'" where enti_codigo like "'.$pnumruc.'%" and (enti_razsoc like "%sp;%" or enti_razsoc="" or enti_razsoc is null) ';
    $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
//     echo '*/*/*'.msql_error($link_vcrx).$sql_ruc1;
  }
  
  $sql_ruc1 ='select * from enti0 ';
  $sql_ruc1.=' where enti_codigo like "'.$pnumruc.'%" ';
  $sql_ruc1.=' and enti_nomcom not like "%sp;%" ';
  $sql_ruc1.=' and enti_nomcom!="" ';
  $sql_ruc1.=' order by enti_codigo desc';
  $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
  if(msql_num_rows($res_ruc1)!=0)
  {
    $pnomcom=trim(msql_result($res_ruc1,0,'enti_nomcom'));
    $sql_ruc1='update enti0 set enti_nomcom="'.$pnomcom.'" where enti_codigo like "'.$pnumruc.'%" and (enti_nomcom like "%sp;%" or enti_nomcom="" or enti_nomcom is null) ';
    $res_ruc1=msql_query($sql_ruc1,$link_vcrx);
  }
  
  
  
}


function get_ruc0($pnumruc)
{
  include('../_cfg/config.php');
  if(substr($pnumruc,0,2)=='99'){return;}
  if(val_ruced($pnumruc)=='0'){return;}
  
  $pnumruc=str_replace(' ','',$pnumruc);	
  $pnumruc=str_replace('"','',$pnumruc);	
  $pnumruc=str_replace("'","",$pnumruc);	
  $pnumruc=str_replace("-","",$pnumruc);	
  $pnumruc=trim($pnumruc);
  
  
  $sql_enti='select * from enti0 where enti_codigo like "'.$pnumruc.'"';
  $res_enti=msql_query($sql_enti,$link_vcrx);
  
  $descri=@msql_result($res_enti,0,'enti_descri');
  $razsoc=@msql_result($res_enti,0,'enti_razsoc');
  $nomcom=@msql_result($res_enti,0,'enti_nomcom');
  $matriz=@msql_result($res_enti,0,'enti_matriz');

  
  $descri=trim($descri);
  $razsoc=trim($razsoc);
  $nomcom=trim($nomcom);
  $matriz=trim($matriz);

// echo '*/*/*/*/*'.$descri;
     
     
  if(strlen($descri)<=3 or strlen($razsoc)<=3 or strlen($nomcom)<=3 or mb_stristr($descri,'*')
     or $descri=='&nbsp;' or $razsoc=='&nbsp;' or $nomcom=='&nbsp;' 
     or mb_stristr($descri,'NUEVO CODIGO') or mb_stristr($descri,'NUEVO RUC') or mb_stristr($razsoc,'NUEVO RUC') or mb_stristr($nomcom,'NUEVO RUC'))
  {
    get_ruc1($pnumruc);
//     provoca <LINK en descri
// echo '*/*/*/*/*'.$pnumruc;
    
    if(strlen($descri)<=3 or mb_stristr($descri,'*'))
    {$descri= get_ruczip($pnumruc);}
    
    if(strlen($razsoc)<=3 or mb_stristr($razsoc,'*'))
    {$descri= get_ruczip($pnumruc);}
    
//     val_ruced($pnumruc);
//     get_ruc7($pnumruc);
//     get_ruc8($pnumruc);
    
//  echo '<br>'.date('H:i:s');
  }
  
    if($descri=='')
    {$descri=get_ced0($pnumruc);}

   
   get_rime($pnumruc);
//   return $descri;
  
}  
  
  
function get_ruc1($pnumruc)
{
// return;

  $pnumruc=trim($pnumruc);
  $pnumruc=str_replace('"','',$pnumruc);	
  $pnumruc=str_replace("'","",$pnumruc);	
  $pnumruc=str_replace("-","",$pnumruc);	

  $xrazsoc = '';
  if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
  if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

  $pnumruc=substr($pnumruc,0,10).'001';

  $url= 'https://srienlinea.sri.gob.ec/sri-catastro-sujeto-servicio-internet/rest/ConsolidadoContribuyente/existePorNumeroRuc?numeroRuc='.$pnumruc;  
  $page = @my_file_get_contents($url); 

  include('../_cfg/config.php');
  
//   validar si pagina esta disponible
// echo '<br>*/*/*/*'.$url;  
  if(mb_stristr($page,'true'))
  {
		$sql_ruc1='insert into enti0(enti_codigo,enti_descri,enti_status,enti_idate)value("'.$pnumruc.'","*** SRI NUEVO RUC","-",now())';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

          $sql_ruc1='update enti0 set enti_pdf="1" where enti_codigo="'.$pnumruc.'"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
       return 1;
  }
  else
  {
		$sql_ruc1='update enti0 set enti_status="-" where enti_codigo="'.$pnumruc.'"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
       return 0;
  }


}
 
function get_ruc2($pnumruc,$sri=0)
{
return;
include('../_cfg/config.php');
$pnumruc=trim($pnumruc);
$pnumruc=str_replace('"','',$pnumruc);	
$pnumruc=str_replace("'","",$pnumruc);	
$pnumruc=str_replace("-","",$pnumruc);	

$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

$pnumruc=substr($pnumruc,0,10).'001';
   
$url= 'https://declaraciones.sri.gob.ec/sri-catastro-sujeto-servicio-internet/rest/ConsolidadoContribuyente/obtenerPorNumerosRuc?&ruc='.$pnumruc;  
$page = @my_file_get_contents($url);

	
if(mb_stristr($page,$pnumruc))
{
	$page2=$page;
  $page2=substr($page2,strpos($page2,"Social"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xrazsoc=substr($page2,0,strpos($page2,'"'));
// 	$xrazsoc=str_replace('"','-',$xrazsoc);
	$xrazsoc=str_replace('"','&quot',$xrazsoc);
  
  $page2=$page;
  $page2=substr($page2,strpos($page2,"Comercial"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xnomcom=substr($page2,0,strpos($page2,'"'));
	if(mb_stristr($xnomcom,'ull,')){$xnomcom=$xrazsoc;}


  $page2=$page;
  $page2=substr($page2,strpos($page2,"estadoP"),250);
  $page2=substr($page2,strpos($page2,':"')+2,250);
  $xstruc=substr($page2,0,strpos($page2,'"'));

	if(mb_stristr($xstruc,'ull,'))
  {
    $page2=$page;
    $page2=substr($page2,strpos($page2,"estadoS"),250);
    $page2=substr($page2,strpos($page2,':')+2,250);
    $xstruc=substr($page2,0,strpos($page2,'"'));
  }
  
  
  $page2=$page;
  $page2=substr($page2,strpos($page2,"clase"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xclase=substr($page2,0,strpos($page2,'"'));
	if(mb_stristr($xclase,'ESPECIAL')){$xcesp='1';}else{$xcesp='0';}
	if(mb_stristr($xclase,'SIMPLIFI')){$xrise='1';}else{$xrise='0';}
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"representante"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xrepre=substr($page2,0,strpos($page2,'"'));
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"personaSoc"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xtipo=substr($page2,0,strpos($page2,'"'));
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"subtipoCon"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xstip=substr($page2,0,strpos($page2,'"'));
		
//   $page2=$page;
//   $page2=substr($page2,strpos($page2,"Tipo de Contribuyente"),250);
//   $page2=substr($page2,strpos($page2,"<td>")+4,250);
//   $xtipo=substr($page2,0,strpos($page2,"</td>"));
// 	if(mb_stristr($xclase,'Especial')){$xcesp='1';}else{$xcesp='0';}
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"actividadC"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xacti=substr($page2,0,strpos($page2,'"'));

  $page2=$page;
  $page2=substr($page2,strpos($page2,"InicioA"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xfecha1=substr($page2,0,strpos($page2,'"'));
	$xfecha1=trim($xfecha1);
	$xfecha1=substr($xfecha1,6,4).substr($xfecha1,3,2).substr($xfecha1,0,2);
	
	
  $page2=$page;
  $page2=substr($page2,strpos($page2,"obligado"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xcontab=substr($page2,0,strpos($page2,'"'));
	if(mb_stristr($xcontab,'S')){$xcontab='1';}else{$xcontab='0';}

  
  $url='https://declaraciones.sri.gob.ec/sri-catastro-sujeto-servicio-internet/rest/Establecimiento/consultarPorNumeroRuc?numeroRuc='.$pnumruc;
  $page = @my_file_get_contents($url);
  
  $page2=$page;
  $page2=substr($page2,strpos($page2,"direccionC"),250);
  $page2=substr($page2,strpos($page2,':')+2,250);
  $xdirecc=substr($page2,0,strpos($page2,'"'));
  
  $xprov=substr($xdirecc,0,strpos($xdirecc,'/'));
  $xdirecc=substr($xdirecc,strpos($xdirecc,'/')+1,250);
  $xcdad=substr($xdirecc,0,strpos($xdirecc,'/'));
  $xdirecc=substr($xdirecc,strpos($xdirecc,'/')+1,250);
  $xparr=substr($xdirecc,0,strpos($xdirecc,'/'));
  $xdirecc=trim(substr($xdirecc,strpos($xdirecc,'/')+1,250));
  
  
//   $page2=$page;
//   $page2=substr($page2,strpos($page2,"apellidos"),250);
//   $page2=substr($page2,strpos($page2,':')+2,250);
// 	$xape12=strtoupper(substr($page2,0,strpos($page2,'"')));
	
	if (substr($xtipo,0,1)=='P')
	{
		$sql_ruc1='insert into enti0(enti_codigo,enti_descri,enti_status,enti_idate)value("'.$pnumruc.'","SRI NUEVO RUC","-",now())';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
	}
	else
	{
		$sql_ruc1='insert into enti0(enti_codigo,enti_descri,enti_status,enti_idate)value("'.$pnumruc.'001","SRI NUEVO RUC","-",now())';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	}
	
	$sql_ruc1='update enti0 set enti_descri="'.$xrazsoc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_razsoc="'.$xrazsoc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_nomcom="'.$xnomcom.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_fechaini="'.$xfecha1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_actividad="'.$xacti.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_struc="'.$xstruc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_tiruc="'.$xtipo.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_prise="'.$xrise.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_pcesp="'.$xcesp.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_pcont="'.$xcontab.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_rise="'.$xrise.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_obcon="'.$xcontab.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_coesp="'.$xcesp.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_fechaini="'.$xfecha1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

// 	$sql_ruc1='update enti0 set enti_direccion="'.$xdirecc.'" where enti_codigo like "'.substr($pnumruc,0,13).'"';
// 	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_matriz="'.$xdirecc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%" and (enti_matriz="" or enti_matriz is null)';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	if (substr($xtipo,0,1)=='P')
	{	
		$apenom=$xrazsoc;	
		$xape1=substr($apenom,0,strpos($apenom,' '));

		$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
		$xape2=substr($apenom,0,strpos($apenom,' '));

		$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
		$xnom1=substr($apenom,0,strpos($apenom,' '));

		$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
		$xnom2=$apenom;	

		$sql_ruc1='update enti0 set enti_ape1="'.$xape1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

		$sql_ruc1='update enti0 set enti_ape2="'.$xape2.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

		$sql_ruc1='update enti0 set enti_nom1="'.$xnom1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

		$sql_ruc1='update enti0 set enti_nom2="'.$xnom2.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
	}

}

return $xrazsoc;	
}

function get_ruc3($pnumruc,$regc=0)
{
  return;
// SRI  
include('../_cfg/config.php');

// $url2='http://micnt.com.ec/cntapp/guia104/php/guia_cntat.php?hflagsubmit=1&cmbcriterio=3&cmbprov2=9&txtusuarioapellido=RUIZ+ESPINOZA&txtusuarionombre=VICENTE+ARMANDO';
$pnumruc=trim($pnumruc);
$pnumruc=str_replace('"','',$pnumruc);	
$pnumruc=str_replace("'","",$pnumruc);	
$pnumruc=str_replace("-","",$pnumruc);	

	
$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

$pnumruc=substr($pnumruc,0,10).'001';
 
  
$url ='https://declaraciones.sri.gob.ec/sri-catastro-sujeto-servicio-internet/rest/Persona/obtenerPersonaDesdeRucPorIdentificacion?numeroRuc='.$pnumruc;	
$page = @my_file_get_contents($url);
$page = substr($page,strpos($page,'nombreCompleto'));
$page = substr($page,strpos($page,':')+2);
$page = substr($page,0,strpos($page,'"'));
$nombres=trim($page);
$descri=$nombres;

$nom1=substr($nombres,0,strpos($nombres,' '));
$nom2=substr($nombres,strpos($nombres,' ')+1,100);
$ape1=substr($apellidos,0,strpos($apellidos,' '));
$ape2=substr($apellidos,strpos($apellidos,' ')+1,100);
	
if(strlen($nombres)>2)
{
	$sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
// 	if($regc==0){$sql_ced1.=' and (enti_descri="" or enti_descri is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
// 	if($regc==0){$sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nom1="'.$nom1.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nom2="'.$nom2.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_ape1="'.$ape1.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_ape2="'.$ape2.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	
}	

return $descri;	
}

function get_ruc4($pnumruc,$sri=0)
{
  return;
// SRI  
include('../_cfg/config.php');
include('php_session.php');

if($pnumruc==''){return 'X';}  
  
$pnumruc=trim($pnumruc);
$pnumruc=str_replace('"','',$pnumruc);	
$pnumruc=str_replace("'","",$pnumruc);	
$pnumruc=str_replace("-","",$pnumruc);	

$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

$pnumruc=substr($pnumruc,0,10).'001';  
$pfecha=strtotime($pfecha)*1000;
  
//   impuesto a la renta
// http://www.ecuadorlegalonline.com/modulo/sri/consulta-ruc/ruc.api.php?func=GETIR&ruc=0915379374001  
  
$url= 'http://www.ecuadorlegalonline.com/modulo/sri/consulta-ruc/ruc.api.php?func=GETDATA&ruc='.$pnumruc;
  
$page = @file_get_contents($url);

// $page=str_replace('\u00c1','A',$page);
// $page=str_replace('\u00c9','E',$page);
// $page=str_replace('\u00cd','I',$page);
// $page=str_replace('\u00d3','O',$page);
// $page=str_replace('\u00da','U',$page);
// $page=str_replace('\u00d1','Ñ',$page);
$status='';  
  
$json1=json_decode($page,true,512,JSON_BIGINT_AS_STRING);
// {"consolidado":
//   [
//     {"contribuyenteFantasma":"NO","numeroRucFantasma":null,
//      "numeroRuc":"0992848715001","razonSocial":"DONGSHENG. S.A.","nombreComercial":null,"estadoPersonaNatural":null,
//      "estadoSociedad":"ACT","claseContribuyente":"OTROS","obligado":"S",
//      "actividadContribuyente":"ACTIVIDADES DE EXPLOTACION PESQUERA EN TODAS SUS FASES",
//      "informacionFechasContribuyente":
//      {"fechaInicioActividades":"07\/02\/2014","fechaCese":null,"fechaReinicioActividades":null,"fechaActualizacion":"30\/08\/2018"},
//      "representanteLegal":"0959557802","agenteRepresentante":"YU MEIRONG","personaSociedad":"SCD","subtipoContribuyente":"BAJO CONTROL DE LA SUPERINTENDENCIA DE COMPA\u00d1IAS","motivoCancelacion":null,"motivoSuspension":null}
//   ],
//  "clasificacion":
//  {"clasificacionMiPyme":"Micro"},
//  "establecimientos":
//  [
//    {"nombreFantasiaComercial":null,"tipoEstablecimiento":"MAT","direccionCompleta":"GUAYAS \/ GUAYAQUIL \/ PUNA \/ ","estado":"ABIERTO","numeroEstablecimiento":"001"},
//    {"nombreFantasiaComercial":null,"tipoEstablecimiento":"BOD","direccionCompleta":"GUAYAS \/ GUAYAQUIL \/ POSORJA \/ ","estado":"CERRADO","numeroEstablecimiento":"002"}
//  ]
// }


if(mb_stristr($page,$pnumruc))
{
    foreach($json1 as $key1=>$val1)
    {
      if(gettype($val1)=="array")
      {
        foreach($val1 as $key2=>$val2)
        { 
          if(gettype($val2)=="array")
          {
            foreach($val2 as $key3=>$val3)
            {
              if(gettype($val3)!="array")
              {
                if($key3=="razonSocial"){$razsoc=strtoupper2($val3);}
                if($key3=="nombreComercial"){$nomcom=strtoupper2($val3);}
                if($key3=="actividadContribuyente"){$actividad=strtoupper2($val3);}
                if($key3=="representanteLegal"){$reprelegal=strtoupper2($val3);}
                if($key3=="direccionCompleta"){$direccionC=strtoupper2($val3);}
              }
              if(gettype($val3)=="array")
              {
                foreach($val3 as $key4=>$val4)
                {
                  if(gettype($val4)!="array")
                  {
                    if($key4=="fechaInicioActividades"){$fechaini=strtoupper2($val4);}
                  }
                }
              }
            }
          }
        }
      }      
    }	
}  
  
  
if($direccionC!=''){$direccionC=explode('/',$direccionC);}
  
if($razsoc!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_razsoc="'.$razsoc.'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_razsoc="" or enti_razsoc is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($nomcom!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_nomcom="'.$nomcom.'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_nomcom="" or enti_nomcom is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($actividad!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_actividad="'.$actividad.'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_actividad="" or enti_actividad is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($fechaini!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.=' enti_fechaini="'.date('Ymd',strtotime($fechaini)).'"';
  $sql_updt.=' where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_fechaini="" or enti_fechaini is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($reprelegal!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_reprelegal="'.$reprelegal.'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_reprelegal="" or enti_reprelegal is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($direccionC[0]!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_provincia="'.$direccionC[0].'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_provincia="" or enti_provincia is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($direccionC[1]!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_ciudad="'.$direccionC[1].'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_ciudad="" or enti_ciudad is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($direccionC[2]!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_parroq="'.$direccionC[2].'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_parroq="" or enti_parroq is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($direccionC[3]!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_matriz="'.$direccionC[3].'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $sql_updt.='and (enti_matriz="" or enti_matriz is null)';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}  
  
return ;
  
}
  
function get_ruc5($pnumruc,$sri=0)
{
return;  
include('../_cfg/config.php');
  
$pnumruc=trim($pnumruc);
$pnumruc=str_replace('"','',$pnumruc);	
$pnumruc=str_replace("'","",$pnumruc);	
$pnumruc=str_replace("-","",$pnumruc);	
	
$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $descri;}

$pnumruc=substr($pnumruc,0,10).'001';
$url = 'https://declaraciones.sri.gob.ec/facturacion-internet/consultas/publico/ruc-datos2.jspa?ruc='.$pnumruc;
  
  get_ruc0($pnumruc);
  return '';
  
  
  
  
$page = @my_file_get_contents($url);
// echo $page;
	
if(mb_stristr($page,$pnumruc))
{
// 	$sql_ruc1='insert into enti0(enti_codigo,enti_descri,enti_status,enti_idate)value("'.$pnumruc.'001","SRI NUEVO RUC","-",now())';
// 	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Social:"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xrazsoc=substr($page2,0,strpos($page2,"</td>"));
// 	$xrazsoc=str_replace('"','-',$xrazsoc);
	$xrazsoc=str_replace('"','&quot;',$xrazsoc);
// 	$xrazsoc=str_replace('Ò','O',$xrazsoc);

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Comercial:"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xnomcom=substr($page2,0,strpos($page2,"</td>"));
	if($xnomcom==""){$xnomcom=$xrazsoc;}

  $xrazsoc=utf8_encode($xrazsoc);
  $xnomcom=utf8_encode($xnomcom);

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Estado del Contribuyente en el RUC"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xstruc=substr($page2,0,strpos($page2,"</td>"));

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Clase de Contribuyente"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xclase=substr($page2,0,strpos($page2,"</td>"));
	if(mb_stristr($xclase,'Especial')){$xcesp='1';}else{$xcesp='0';}
	if(mb_stristr($xclase,'Simplificado')){$xrise='1';}else{$xrise='0';}
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"Tipo de Contribuyente"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xtipo=substr($page2,0,strpos($page2,"</td>"));
// 	if(mb_stristr($xclase,'Especial')){$xcesp='1';}else{$xcesp='0';}
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"Actividad Econ"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xacti=substr($page2,0,strpos($page2,"</td>"));

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Fecha de inicio"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xfecha1=substr($page2,0,strpos($page2,"</td>"));
	$xfecha1=trim($xfecha1);
	$xfecha1=substr($xfecha1,6,4).substr($xfecha1,3,2).substr($xfecha1,0,2);
	
	
  $page2=$page;
  $page2=substr($page2,strpos($page2,"Contabilidad"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xcontab=substr($page2,0,strpos($page2,"</td>"));
	if(mb_stristr($xcontab,'SI')){$xcontab='1';}else{$xcontab='0';}
	
//   $page2=$page;
//   $page2=substr($page2,strpos($page2,"apellidos"),250);
//   $page2=substr($page2,strpos($page2,':')+2,250);
// 	$xape12=strtoupper(substr($page2,0,strpos($page2,'"')));
	
	if (substr($xtipo,0,1)=='P')
	{
		$sql_ruc1='insert into enti0(enti_codigo,enti_descri,enti_status,enti_idate)value("'.$pnumruc.'","SRI NUEVO RUC","-",now())';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
	}
	else
	{
		$sql_ruc1='insert into enti0(enti_codigo,enti_descri,enti_status,enti_idate)value("'.$pnumruc.'001","SRI NUEVO RUC","-",now())';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
	}
	
	$sql_ruc1='update enti0 set enti_descri="'.$xrazsoc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_razsoc="'.$xrazsoc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_nomcom="'.$xnomcom.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_fechaini="'.$xfecha1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_actividad="'.$xacti.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_struc="'.$xstruc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_tiruc="'.$xtipo.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_prise="'.$xrise.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_pcesp="'.$xcesp.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_pcont="'.$xcontab.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_rise="'.$xrise.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_obcon="'.$xcontab.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_coesp="'.$xcesp.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set entifechaini="'.$xfecha1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	if (substr($xtipo,0,1)=='P')
	{	
		$apenom=$xrazsoc;	
		$xape1=substr($apenom,0,strpos($apenom,' '));

		$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
		$xape2=substr($apenom,0,strpos($apenom,' '));

		$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
		$xnom1=substr($apenom,0,strpos($apenom,' '));

		$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
		$xnom2=$apenom;	

		$sql_ruc1='update enti0 set enti_ape1="'.$xape1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

		$sql_ruc1='update enti0 set enti_ape2="'.$xape2.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

		$sql_ruc1='update enti0 set enti_nom1="'.$xnom1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

		$sql_ruc1='update enti0 set enti_nom2="'.$xnom2.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
		$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
	}

}

// return $xrazsoc;	
}

  
function get_ruc6($pnumruc,$sri=0)
{
return;
// AVAL.EC
include('../_cfg/config.php');
include('php_session.php');

if($pnumruc==''){return 'X';}  

$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

$pnumruc10=substr($pnumruc,0,10).'';  
$pnumruc=substr($pnumruc,0,10).'001';  
// $pfecha=strtotime($pfecha)*1000;
  
$url='https://empresas.aval.ec/?s='.$pnumruc;  
$url2='https://empresas.aval.ec/empresa';
  
// $url='https://ecuadorpymes.com/search.php?q='.$pnumruc;  
  
$page = @file_get_contents($url);
  
// echo '*/*/*'.$page;
//   return;
  
  
if(mb_stristr($page,'RUC:'))
{
  $page=substr($page,strpos($page,$url2));
  $url2=substr($page,0,strpos($page,'">'));

  $page=substr($page,strpos($page,'>')+1);
  $page=substr($page,0,strpos($page,'<'));
 
  $descri=trim($page);
  
  $sql_enti='update enti0 set enti_descri="'.$descri.'" where (enti_descri is null or enti_descri="" or enti_descri like "%NUEVO%") and enti_codigo like "'.$pnumruc10.'%"';
  $res_enti=msql_query($sql_enti,$link_vcrx);
  
  $sql_enti='update enti0 set enti_razsoc="'.$descri.'" where (enti_razsoc is null or enti_razsoc="") and enti_codigo like "'.$pnumruc10.'%"';
  $res_enti=msql_query($sql_enti,$link_vcrx);
  
  $sql_enti='update enti0 set enti_nomcom="'.$descri.'" where (enti_nomcom is null or enti_nomcom="") and enti_codigo like "'.$pnumruc10.'%"';
  $res_enti=msql_query($sql_enti,$link_vcrx);

  $page = @file_get_contents($url2);
  if(mb_stristr($page,$pnumruc))
  {
    $page=substr($page,strpos($page,'DATOS GENERALES'));
    $page=substr($page,0,strpos($page,'DATOS FINANCIEROS'));
    
    $page2=$page;
    $page2=substr($page2,strpos($page2,'Dirección:'));
    $page2=substr($page2,strpos($page2,'<td'));
    $page2=substr($page2,strpos($page2,'>')+1);
    $page2=substr($page2,0,strpos($page2,'</'));
    $direccion=$page2;
    
    $page2=$page;
    $page2=substr($page2,strpos($page2,'Ciudad:'));
    $page2=substr($page2,strpos($page2,'<td'));
    $page2=substr($page2,strpos($page2,'>')+1);
    $page2=substr($page2,0,strpos($page2,'</'));
    $ciudad=$page2;
    
    $page2=$page;
    $page2=substr($page2,strpos($page2,'Provincia:'));
    $page2=substr($page2,strpos($page2,'<td'));
    $page2=substr($page2,strpos($page2,'>')+1);
    $page2=substr($page2,0,strpos($page2,'</'));
    $provincia=$page2;
    
//     echo $direccion.$ciudad.$provincia;
    
    $sql_updt ='update enti0 set enti_matriz="'.$direccion.'"';
    $sql_updt.='where enti_codigo like "'.$pnumruc10.'%" and (enti_matriz="" or enti_matriz is null)';
    $res_updt=msql_query($sql_updt,$link_vcrx);
    
    $sql_updt ='update enti0 set enti_ciudad="'.$ciudad.'"';
    $sql_updt.='where enti_codigo like "'.$pnumruc10.'%" and (enti_ciudad="" or enti_ciudad is null)';
    $res_updt=msql_query($sql_updt,$link_vcrx);
    
    $sql_updt ='update enti0 set enti_provincia="'.$provincia.'"';
    $sql_updt.='where enti_codigo like "'.$pnumruc10.'%" and (enti_provincia="" or enti_provincia is null)';
    $res_updt=msql_query($sql_updt,$link_vcrx);
    echo msql_error($link_vcrx);
    
  }
  
}  
  

  
  
// echo '*/*/*/*/*/'.$page.'*-*-*-*-*-'.$url2;
// echo $page;  
  
  return ;
  
}
  
function get_ruc7($pnumruc,$sri=0)
{
// ECUADOR PYMES
include('../_cfg/config.php');
include('php_session.php');

if($pnumruc==''){return 'X';}  

$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

$pnumruc10=substr($pnumruc,0,10).'';  
$pnumruc=substr($pnumruc,0,10).'001';  
// $pfecha=strtotime($pfecha)*1000;
  
// $url='https://empresas.aval.ec/?s='.$pnumruc;  
// $url2='https://empresas.aval.ec/empresa';
  
  
$page = get_google('ruc '.$pnumruc);

$url=$page;
$url=substr($url,strpos($url,'https://ecuadorpymes.com'),1000);  
// $url=substr($url,strpos($url,'https://veritradecorp.com'),1000);  
  
$url=substr($url,0,strpos($url,'&'));  
$url=trim($url);  

$nomcom=$url;  
$nomcom=substr($nomcom,0,strrpos($nomcom,'-'));
$nomcom=substr($nomcom,strrpos($nomcom,'/')+1);
$nomcom=str_replace('-',' ',$nomcom);
$nomcom=trim(strtoupper($nomcom));

$sql_upd0='update enti0 set name_field="'.$nomcom.'" where name_field is null or name_field="" or name_field like "%NUEVO RUC%"' ;
  
$sql_updt=str_replace('name_field','enti_razsoc',$sql_upd0);  
$res_updt=msql_query($sql_updt,$link_vcrx);

$sql_updt=str_replace('name_field','enti_nomcom',$sql_upd0);  
$res_updt=msql_query($sql_updt,$link_vcrx);

$sql_updt=str_replace('name_field','enti_descri',$sql_upd0);  
$res_updt=msql_query($sql_updt,$link_vcrx);
  
// $url='https://www.facebook.com/sharer.php?u='.$url;
// $url='https://www.facebook.com/sharer.php?u=http://ecuadorpymes.com/ficha/custodia-portuaria-cuport-cia-ltda-69863';
// https://www.facebook.com/sharer.php?u=http%3A%2F%2Fecuadorpymes.com%2Fficha%2Fcustodia-portuaria-cuport-cia-ltda-69863  
// echo $url;
// $page=file_get_contents($url);  
// $page=file($url);  
  
  
// $ch = curl_init($url); 
// curl_setopt($ch, CURLOPT_POST, true); 
// curl_setopt($ch, CURLOPT_POSTFIELDS, $content); 
// curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); 
// $output = curl_exec ($ch); 
// curl_close ($ch);   
  
  
// $request = wp_remote_get($url);
// $response = wp_remote_retrieve_body( $request );
// echo $response;  
  
// echo $output;  
// echo $page;  
// $page=get_google($url);
  
// echo '*/*/*'.$url;
// echo '*/*/*'.$page;
return ;
  
}


function get_ruc8($pnumruc,$regc=0)
{
// ANT 
//   return;
include('../_cfg/config.php');
include('php_session.php');

if($pnumruc==''){return 'X';}  

$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

$pnumruc10=substr($pnumruc,0,10).'';  
$pnumruc=substr($pnumruc,0,10).'001';  
$url='https://sistemaunico.ant.gob.ec:5038/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=RUC&ps_identificacion='.urlencode( preg_replace( "/[^\w ]/i" , "", $pnumruc ) );
$url='http://consultas.atm.gob.ec/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=RUC&ps_identificacion='.$pnumruc;
  
//   echo '*/*/*/'.$url;
$page = file_get_contents($url);

    $page = @file_get_contents($url);
    if(mb_stristr($page,'nombrepropietario'))
    {
      
      $page = substr($page,strpos($page,'nombrepropietario'));
      $page = substr($page,strpos($page,'<td'));
      $page = substr($page,strpos($page,'>')+1);
      $page = substr($page,0,strpos($page,'</td'));
      $page = str_replace('\n','',$page);
      $page = str_replace('  ',' ',$page);
      $page = str_replace('  ',' ',$page);
      $page = str_replace('  ',' ',$page);
      $descri=trim($page);

  //     $apellidos=$descri;

      $nombres=$descri;
//       $ape1=substr($nombres,0,strpos($nombres,' '));

//       $nombres=substr($nombres,strpos($nombres,' ')+1,1000);
//       $ape2=substr($nombres,0,strpos($nombres,' '));

//       $nombres=substr($nombres,strpos($nombres,' ')+1,1000);
//       $nom1=substr($nombres,0,strpos($nombres,' '));

//       $nombres=substr($nombres,strpos($nombres,' ')+1,1000);
//       $nom2=$nombres; 
//       $nom2=str_replace('nbsp;','',$nom2);
//       $nom2=str_replace('sp;','',$nom2);


      if(strlen($nombres)>2)
      {
        $sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'"';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'"';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'"';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'%"';
        $sql_ced1.=' and (enti_descri="" or enti_descri is null or enti_descri like "%NUEV%")';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'%"';
        $sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null or enti_razsoc like "%NUEV%")';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'%"';
        $sql_ced1.=' and (enti_nomcom="" or enti_nomcom is null or enti_nomcom like "%NUEV%")';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nom1="'.$nom1.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'%"';
        if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nom2="'.$nom2.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'%"';
        if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_ape1="'.$ape1.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'%"';
        if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_ape2="'.$ape2.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumruc.'%"';
        if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);


      }	

    }

return;	
  
}




function get_google($psearch)
{
// ECUADOR PYMES
include('../_cfg/config.php');
include('php_session.php');

$psearch=str_replace(' ','%20',$psearch);  
// $url='https://www.google.com/search?hl=es&q='.'ruc'.'%20'.$psearch.'&btnG=Buscar&meta=&gws_rd=ssl';
      
$url='https://www.google.com/search?hl=es&q='.$psearch;
$gsearch = file_get_contents($url);

  $gsearch=str_replace(' › ','/',$gsearch);  
  
// echo '*/*/*'.$gsearch;
return $gsearch;
  
}
  
function get_atrz0($docu,$idnum)
{
  include('../_cfg/config.php');
    $tabla=r_fiel('docu',$docu,'tabla');
    if(!mb_stristr('vtas.comp.retc.retp.guia',$tabla)){return;}
  
  $sql_docu='select * from '.$tabla.'1 where idnum1="'.$idnum.'"';
  $res_docu=msql_query($sql_docu,$link_vcrx);
  $numero=msql_result($res_docu,0,'numero');
  
  $sql_docu ='select * from atrz00 ';
  $sql_docu.='where atrd_docu like "'.substr($docu,0,2).'" ';
  $sql_docu.='and atrd_desde<="'.$numero.'" and atrd_hasta>="'.$numero.'"';
  $res_docu=msql_query($sql_docu,$link_vcrx);
  
  $xatrz=msql_result($res_docu,0,'atrd_atrz');
     
//      echo '*/**/*/'.$sql_docu;
     
  if(empty($xatrz))
  {
       $sql_docu ='select * from atrz0 ';
//        $sql_docu.='where atrz_enti like "'.trim($cfg_ruc).'%" ';
       $sql_docu.='where atrz_status!="X" ';
       $sql_docu.='and atrz_desde<="'.$numero.'" and atrz_hasta>="'.$numero.'"';
       $res_docu=msql_query($sql_docu,$link_vcrx);

       $xatrz=msql_result($res_docu,0,'atrz_codigo');
       
  }

  $sql_docu='update '.$tabla.'1 set atrz="'.$xatrz.'" where idnum1="'.$idnum.'"';
  $res_docu=msql_query($sql_docu,$link_vcrx);
  
  
  return $xatrz;
  
}
  
function get_atrz1($docu,$idnum)
{
// SRI  
include('../_cfg/config.php');
   
  $tabla=r_fiel('docu',$docu,'tabla');
  if(!mb_stristr('vtas.comp.retc.retp.guia',$tabla)){return;}
  if(mb_stristr('FP90',$docu)){return;} 

  $sql_docu='select * from '.$tabla.'1 where idnum1="'.$idnum.'"';
  $res_docu=msql_query($sql_docu,$link_vcrx);
  $atrzst=@msql_result($res_docu,0,'atrzvali');
  $autornum=msql_result($res_docu,0,'autornum');
  
  if(strlen($autornum)==49){$atrzst='E';}
    
  if(!mb_stristr('F.E',$atrzst))
  {$atrzst=get_atrz2($docu,msql_result($res_docu,0,'ptoe'),msql_result($res_docu,0,'numero'),msql_result($res_docu,0,'fecha'),msql_result($res_docu,0,'enti'),msql_result($res_docu,0,'atrz'));}
  
  $sql_docu='update '.$tabla.'1 set atrzvali="'.$atrzst.'" where idnum1="'.$idnum.'"';
  $res_docu=msql_query($sql_docu,$link_vcrx);
  
  return;
}  
  
function get_atrz2($pdocu,$pptoe,$pnumero,$pfecha,$pnumruc,$patrz)
{
// SRI  
include('../_cfg/config.php');
include('php_session.php');

if($pdocu=='' or $pptoe=='' or $pnumero=='' or $pfecha=='' or $pnumruc=='' or $patrz==''){return 'X';}  
  
$pnumruc=trim($pnumruc);
$pnumruc=str_replace('"','',$pnumruc);	
$pnumruc=str_replace("'","",$pnumruc);	
$pnumruc=str_replace("-","",$pnumruc);	

$xrazsoc = '';
if(strlen($pnumruc)<10 or strlen($pnumruc)>13){return $xrazsoc;}
if($pnumruc<0100000000 or $pnumruc>2500000000000){return $xrazsoc;}

$pnumruc=substr($pnumruc,0,10).'001';

if(substr($pdocu,0,1)=='F'){$docu='FAC';}
if(substr($pdocu,0,1)=='R'){$docu='CDR';}
if(substr($pdocu,0,1)=='N'){$docu='NDC';}
if(substr($pdocu,0,1)=='G'){$docu='GDR';}
if(substr($pdocu,0,4)=='FP11'){$docu='LCB';}
if(substr($pdocu,0,4)=='FP12'){$docu='NDV';}
  
$pfecha=strtotime($pfecha)*1000;
  
  
// $url ='https://declaraciones.sri.gob.ec/movil-servicios/api/web/documentoValidoWeb/consultaDocumento?';
// $url.='datos='.$pfecha.'-'.$patrz.'-'.$pnumruc.'-'.$docu.'-'.substr($pptoe,0,3).'-'.substr($pptoe,3,3).'-'.$pnumero;  
  
  
$url ='https://srienlinea.sri.gob.ec/movil-servicios/api/web/documentoValidoWeb/consultaDocumento?';
$url.='datos='.$pfecha.'-'.$patrz.'-'.$pnumruc.'-'.$docu.'-'.substr($pptoe,0,3).'-'.substr($pptoe,3,3).'-'.$pnumero;  
// $url.='datos=1589518800000-1126461318-0913656740001-FAC-001-001-527';
  
$page = @my_file_get_contents($url);
$status='';  
$json1=json_decode($page,true,512,JSON_BIGINT_AS_STRING);

$estado='-';
$razsoc='';
$nomcom='';
$matriz='';
$docum='';
$caduca='';
  
//   echo $url;
  
if(mb_stristr($page,$pnumruc))
{
    foreach ($json1 as $key1=>$val1)
    {
      if(gettype($val1)=="array")
      {
        foreach($val1 as $key2=>$val2)
        {
          if($key2=="estado"){$estado=strtoupper2($val2);}
          if($key2=="fechaCaducidad"){$caduca=strtoupper2($val2);}
          if($key2=="codigoImprenta"){$imprenta=strtoupper2($val2);}
          if(gettype($val2)=="array")
          {
            foreach($val2 as $key3=>$val3)
            {
              if($key3=="identificacion"){$codigo=strtoupper2($val3);}
              if($key3=="denominacion"){$razsoc=strtoupper2($val3);}
              if($key3=="nombreComercial"){$nomcom=strtoupper2($val3);}
              if($key3=="direccionMatriz"){$matriz=strtoupper2($val3);}
              if($key3=="tipoDocumento"){$docum=strtoupper2($val3);}
              if($key3=="fechaCaducidadDocumento"){$caduca=strtoupper2($val3);}
//               echo '<br>'.$key3.$val3;
            }
          }
        }
      }      
    }	
  
  $sql_updt ='insert into atrz0(atrz_codigo,atrz_idate,atrz_iuser,atrz_lused)';
  $sql_updt.='value("'.$patrz.'",now(),"'.$user_codigo.'",now())';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}  

if(mb_stristr($estado,'autorizado por el SRI')){$status='F';}
if(mb_stristr($estado,'fuera del rango')){$status='I';}
if(mb_stristr($estado,'no es válido')){$status='X';}
  
if($caduca!='')
{
  $sql_updt ='update atrz0 set ';
  $sql_updt.='atrz_caduca="'.$caduca.'",';
  $sql_updt.='atrz_enti="'.$pnumruc.'",';
  $sql_updt.='atrz_entidad="'.$pnumruc.'"';
  $sql_updt.='where atrz_codigo="'.$patrz.'"';
  $res_updt=msql_query($sql_updt,$link_vcrx);
  
//   echo msql_error($link_vcrx).$sql_updt;
}
  
  
  
if($razsoc!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_razsoc="'.$razsoc.'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($nomcom!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_nomcom="'.$nomcom.'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
if($matriz!='')
{
  $sql_updt ='update enti0 set ';
  $sql_updt.='enti_matriz="'.$matriz.'"';
  $sql_updt.='where enti_codigo="'.$pnumruc.'"';
  $res_updt=msql_query($sql_updt,$link_vcrx);
}
  
  
return $status;
  
}

function get_ced0($pnumced)  
{
  $pnumced=str_replace('"','',$pnumced);	
  $pnumced=str_replace("'","",$pnumced);	
  $pnumced=str_replace("-","",$pnumced);	

  $nume3=substr($pnumced,2,1);
  if($nume3=='9'){return;}
 
  val_ruced($pnumced);
  $descri='';
  
  if($descri=='')
  {$descri=get_ced5($pnumced);}
  
  if($descri=='')
  {$descri=get_cedec($pnumced);}
     
}  
  
function get_ced1($pnumced,$regc=0)
{
return;
include('../_cfg/config.php');
// $url2='http://micnt.com.ec/cntapp/guia104/php/guia_cntat.php?hflagsubmit=1&cmbcriterio=3&cmbprov2=9&txtusuarioapellido=RUIZ+ESPINOZA&txtusuarionombre=VICENTE+ARMANDO';
$pnumced=str_replace('"','',$pnumced);	
$pnumced=str_replace("'","",$pnumced);	
$pnumced=str_replace("-","",$pnumced);	
$descri='';	
$pnumced=trim($pnumced);
$pnumced=substr($pnumced,0,10);

if(strlen($pnumced)<10 or strlen($pnumced)>13){return $descri;}
if($pnumced<'0100000000' or $pnumced>'2400000000'){return $descri;}
	
$url = 'http://karview.kradac.com:8080/registrocivil/webresources/servicios/consultar/ced='.$pnumced;	
$page = @file_get_contents($url);
$json1=json_decode($page,true,512,JSON_BIGINT_AS_STRING);
// echo '*/*/*'.$page;
if(mb_stristr($page,$pnumced))
{
    $nombres='-';	
    $huellas='';
    $stcivil='';
    foreach ($json1 as $key1=>$val1)
    {
      if($key1=="nombres"){$nombres=strtoupper2($val1);}
      if($key1=="apellidos"){$apellidos=strtoupper2($val1);}
      if($key1=="apellidosNombres"){$descri=strtoupper2($val1);}
      if($key1=="direccion"){$direccion=strtoupper2($val1);}
      if($key1=="numeroCasa"){$numcasa=strtoupper2($val1);}
      if($key1=="fechaNacimiento"){$fechanac=$val1;}
      if($key1=="nacionalidad"){$nacionalidad=$val1;}
      if($key1=="genero"){$genero=$val1;}
      if($key1=="parroquia"){$parroquia=strtoupper2($val1);}
      if($key1=="huellasDigitales"){$huellas=strtoupper2($val1);}
      if($key1=="estadoCivil"){$stcivil=strtoupper2($val1);}
    }	
    $fechanac=substr($fechanac,0,10);	
    $sexo='1';
    if(substr($genero,0,1)=='F'){$sexo='2';}

    $nom1=substr($nombres,0,strpos($nombres,' '));
    $nom2=substr($nombres,strpos($nombres,' ')+1,100);
    $ape1=substr($apellidos,0,strpos($apellidos,' '));
    $ape2=substr($apellidos,strpos($apellidos,' ')+1,100);
// echo '*/*/*'.$nombres;
    if(strlen($nombres)>2)
    {
      $sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
    // 	if($regc==0){$sql_ced1.=' and (enti_descri="" or enti_descri is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      $sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null)';
    // 	if($regc==0){$sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);
    // 	echo '*/*/'.msql_error();

      $sql_ced1 ='update enti0 set enti_nom1="'.$nom1.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);
//       echo '*/*/*'.$sql_ced1;

      $sql_ced1 ='update enti0 set enti_nom2="'.$nom2.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_ape1="'.$ape1.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_ape2="'.$ape2.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_direccion="'.$direccion.' /'.$numcasa.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_direccion="" or enti_direccion is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_matriz="'.$direccion.' /'.$numcasa.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
    // 	if($regc==0)
      {$sql_ced1.=' and (enti_matriz="" or enti_matriz is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_parroq="'.$parroquia.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
//       if($regc==0)	{$sql_ced1.=' and (enti_parroq="" or enti_parroq is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);
//       echo '*/*/'.$sql_ced1;

      $sql_ced1 ='update enti0 set enti_fechanac="'.$fechanac.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0)	{$sql_ced1.=' and (enti_fechanac="" or enti_fechanac is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_sexo="'.$sexo.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_sexo="" or enti_sexo is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_stcivil="'.$stcivil.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_stcivil="" or enti_stcivil is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_huellas="'.$huellas.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_huellas="" or enti_huellas is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

      $sql_ced1 ='update enti0 set enti_nacionalidad="'.$nacionalidad.'"';
      $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
      if($regc==0){$sql_ced1.=' and (enti_nacionalidad="" or enti_nacionalidad is null)';}
      $res_ced1=msql_query($sql_ced1,$link_vcrx);

    }	
  
}  
	
return $descri;	
}
	
function get_ced2($pnumced,$regc=0)
{
// SRI  
  return;
include('../_cfg/config.php');

// $url2='http://micnt.com.ec/cntapp/guia104/php/guia_cntat.php?hflagsubmit=1&cmbcriterio=3&cmbprov2=9&txtusuarioapellido=RUIZ+ESPINOZA&txtusuarionombre=VICENTE+ARMANDO';
$pnumced=str_replace('"','',$pnumced);	
$pnumced=str_replace("'","",$pnumced);	
$pnumced=str_replace("-","",$pnumced);	
$descri='';	
$pnumced=trim($pnumced);
$pnumced=substr($pnumced,0,10);

if(strlen($pnumced)<10 or strlen($pnumced)>13){return $descri;}
if($pnumced<'0100000000' or $pnumced>'2400000000'){return $descri;}

$url = 'https://declaraciones.sri.gob.ec/sri-registro-civil-servicio-internet/rest/DatosRegistroCivil/obtenerPorNumeroIdentificacion?numeroIdentificacion='.$pnumced;
$page = @file_get_contents($url);
$page = substr($page,strpos($page,'nombreCompleto'));
$page = substr($page,strpos($page,':')+2);
$page = substr($page,0,strpos($page,'"'));
$nombres=trim($page);
$descri=$nombres;

$nom1=substr($nombres,0,strpos($nombres,' '));
$nom2=substr($nombres,strpos($nombres,' ')+1,100);
$ape1=substr($apellidos,0,strpos($apellidos,' '));
$ape2=substr($apellidos,strpos($apellidos,' ')+1,100);

if(strlen($nombres)>2)
{
  $nombres=explode(' ',$nombres);  
	$sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
// 	if($regc==0){$sql_ced1.=' and (enti_descri="" or enti_descri is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
// 	if($regc==0){$sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
  if(count($nombres)>=5)
  {
    if(strlen($nombres[0])<=3)
    {
      $nombres[0]=$nombres[0].' '.$nombres[1];
      $nombres[1]=$nombres[2];
      $nombres[2]=$nombres[3];
      $nombres[3]=$nombres[4];
    }
    if(strlen($nombres[1])<=3)
    {
      $nombres[1]=$nombres[2].' '.$nombres[3];
      $nombres[2]=$nombres[3];
      $nombres[3]=$nombres[4];
    }
    if(strlen($nombres[3])<=3)
    {
      $nombres[3]=$nombres[3].' '.$nombres[4];
    }
  }  
    
  {
    $sql_ced1 ='update enti0 set enti_ape1="'.$nombres[0].'"';
    $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
    if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
    $res_ced1=msql_query($sql_ced1,$link_vcrx);

    $sql_ced1 ='update enti0 set enti_ape2="'.$nombres[1].'"';
    $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
    if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
    $res_ced1=msql_query($sql_ced1,$link_vcrx);

    $sql_ced1 ='update enti0 set enti_nom1="'.$nombres[2].'"';
    $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
    if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
    $res_ced1=msql_query($sql_ced1,$link_vcrx);

    $sql_ced1 ='update enti0 set enti_nom2="'.$nombres[3].'"';
    $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
    if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
    $res_ced1=msql_query($sql_ced1,$link_vcrx);
  }
  
}	

  
return $descri;	
}
	
function get_ced3($pnumced,$regc=0)
{
// ATM  
include('../_cfg/config.php');

$pnumced=str_replace('"','',$pnumced);	
$pnumced=str_replace("'","",$pnumced);	
$pnumced=str_replace("-","",$pnumced);	
$descri='';	
$pnumced=trim($pnumced);
$pnumced=substr($pnumced,0,10);

if(strlen($pnumced)<10 or strlen($pnumced)>13){return $descri;}
if($pnumced<'0100000000' or $pnumced>'2400000000'){return $descri;}

$xnom1=r_fiel('enti',$pnumced,'nom1');
$descri=$xnom1;
  if($xnom1=='')
  {
    $url = 'http://consultas.atm.gob.ec/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=CED&ps_identificacion='.$pnumced;
    $page = @file_get_contents($url);
    if(mb_stristr($page,'nombrepropietario'))
    {
      
      $page = substr($page,strpos($page,'nombrepropietario'));
      $page = substr($page,strpos($page,'<td'));
      $page = substr($page,strpos($page,'>')+1);
      $page = substr($page,0,strpos($page,'</td'));
      $page = str_replace('\n','',$page);
      $page = str_replace('  ',' ',$page);
      $page = str_replace('  ',' ',$page);
      $page = str_replace('  ',' ',$page);
      $descri=trim($page);

  //     $apellidos=$descri;

      $nombres=$descri;
      $ape1=substr($nombres,0,strpos($nombres,' '));

      $nombres=substr($nombres,strpos($nombres,' ')+1,1000);
      $ape2=substr($nombres,0,strpos($nombres,' '));

      $nombres=substr($nombres,strpos($nombres,' ')+1,1000);
      $nom1=substr($nombres,0,strpos($nombres,' '));

      $nombres=substr($nombres,strpos($nombres,' ')+1,1000);
      // $nom2=substr($nombres,0,strpos($nombres,' '));
      $nom2=$nombres; 
      $nom2=str_replace('nbsp;','',$nom2);
      $nom2=str_replace('sp;','',$nom2);
      // $nom2=substr($nombres,strpos($nombres,' ')+1,100);


      if(strlen($nombres)>2)
      {
        $sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
        $sql_ced1.=' and (enti_descri="" or enti_descri is null or enti_descri like "%NUEV%")';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
        $sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null or enti_razsoc like "%NUEV%")';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
        $sql_ced1.=' and (enti_nomcom="" or enti_nomcom is null or enti_nomcom like "%NUEV%")';
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nom1="'.$nom1.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
        if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_nom2="'.$nom2.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
        if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_ape1="'.$ape1.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
        if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);

        $sql_ced1 ='update enti0 set enti_ape2="'.$ape2.'"';
        $sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
        if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
        $res_ced1=msql_query($sql_ced1,$link_vcrx);


      }	

    }

  }
return $descri;	
}
	
function get_ced4($pnumced,$regc=0)
{
// ANT 
//   return;
include('../_cfg/config.php');

$pnumced=str_replace('"','',$pnumced);	
$pnumced=str_replace("'","",$pnumced);	
$pnumced=str_replace("-","",$pnumced);	
$descri='';	
$pnumced=trim($pnumced);
$pnumced=substr($pnumced,0,10);

if(strlen($pnumced)<10 or strlen($pnumced)>13){return $descri;}
if($pnumced<'0100000000' or $pnumced>'2400000000'){return $descri;}

$url = 'https://sistemaunico.ant.gob.ec:5038/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=CED&ps_identificacion='.$pnumced;
$page = file_get_contents($url);
//   echo 'AQUIIIII    '.$url.'   -   '.$page;
$page = substr($page,strpos($page,'MarcoTitulo'));
$page = substr($page,strpos($page,'<td'));
$page = substr($page,strpos($page,'>')+1);
$page = substr($page,0,strpos($page,'</td'));
$page = str_replace('\n','',$page);
$page = str_replace('  ',' ',$page);
$page = str_replace('  ',' ',$page);
$page = str_replace('  ',' ',$page);
$descri=trim($page);
  
$apellidos=$descri;

$nombres=$descri;
$ape1=substr($nombres,0,strpos($nombres,' '));
  
$nombres=substr($nombres,strpos($nombres,' ')+1,1000);
$ape2=substr($nombres,0,strpos($nombres,' '));
  
$nombres=substr($nombres,strpos($nombres,' ')+1,1000);
$nom1=substr($nombres,0,strpos($nombres,' '));
  
$nombres=substr($nombres,strpos($nombres,' ')+1,1000);
// $nom2=substr($nombres,0,strpos($nombres,' '));
$nom2=$nombres; 
// $nom2=substr($nombres,strpos($nombres,' ')+1,100);
  
	
if(strlen($nombres)>2)
{
	$sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	$sql_ced1.=' and (enti_descri="" or enti_descri is null or enti_descri like "%NUEV%")';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	$sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null or enti_razsoc like "%NUEV%")';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	$sql_ced1.=' and (enti_nomcom="" or enti_nomcom is null or enti_nomcom like "%NUEV%")';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nom1="'.$nom1.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nom2="'.$nom2.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_ape1="'.$ape1.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_ape2="'.$ape2.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	
}	

return $descri;	
  
// $page = @file_get_contents($url);

// $IP = '202.71.158.30'; 
//     $runfile = 'http://api.hostip.info/country.php?ip=' . $IP;

//     $ch = curl_init();

//     curl_setopt($ch, CURLOPT_URL, $url);

//     curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
//     curl_setopt($ch, CURLOPT_PORT, 50); 
//     curl_setopt($ch, CURLOPT_RETURNTRANSFER, 38); 
//     $content = curl_exec ($ch);

//     curl_close ($ch); 
// echo '*/*/*'.$content;
//     return $content;  
// $page=$content  ;
// $page = substr($page,strpos($page,'titulo1'));
// $page = substr($page,strpos($page,'>'));
// $page = substr($page,0,strpos($page,'</'));
// $nombres=trim($page);
// $descri=$nombres;
// return $nombres;  

//   $nom1=substr($nombres,0,strpos($nombres,' '));
// $nom2=substr($nombres,strpos($nombres,' ')+1,100);
// $ape1=substr($apellidos,0,strpos($apellidos,' '));
// $ape2=substr($apellidos,strpos($apellidos,' ')+1,100);
	
// if(strlen($nombres)>2)
// {
// 	$sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
// 	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
// // 	if($regc==0){$sql_ced1.=' and (enti_descri="" or enti_descri is null)';}
// 	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
// 	$sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
// 	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
// // 	if($regc==0){$sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null)';}
// 	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
// 	$sql_ced1 ='update enti0 set enti_nom1="'.$nom1.'"';
// 	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
// 	if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
// 	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
// 	$sql_ced1 ='update enti0 set enti_nom2="'.$nom2.'"';
// 	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
// 	if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
// 	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
// 	$sql_ced1 ='update enti0 set enti_ape1="'.$ape1.'"';
// 	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
// 	if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
// 	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
// 	$sql_ced1 ='update enti0 set enti_ape2="'.$ape2.'"';
// 	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
// 	if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
// 	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	
// }	

// return $descri;	
}

function get_ced5($pnumced,$regc=0)
{
  
return;   
// ANT 
@include('../_cfg/config.php');

$pnumced=str_replace('"','',$pnumced);	
$pnumced=str_replace("'","",$pnumced);	
$pnumced=str_replace("-","",$pnumced);	
$descri='';	
$pnumced=trim($pnumced);
$pnumced=substr($pnumced,0,10);

$nume3=substr($pnumced,2,1);
if($nume3=='9'){return;}

$url = 'http://servicios.comisiontransito.gob.ec/app_citaciones_consulta/consulta_citaciones.php?p_tipo=1&p_identificacion='.$pnumced;
$page = @file_get_contents($url);
  
$page = substr($page,strpos($page,'>'.$pnumced));
$page = substr($page,strpos($page,'-')+1);
$page = substr($page,0,strpos($page,'</div'));

$page = str_replace('\n','',$page);
$page = str_replace('  ',' ',$page);
$page = str_replace('  ',' ',$page);
$page = str_replace('  ',' ',$page);
$descri=trim($page);
  
$apellidos=$descri;
$nombres=$descri;
$ape1=substr($nombres,0,strpos($nombres,' '));
  
$nombres=substr($nombres,strpos($nombres,' ')+1,1000);
$ape2=substr($nombres,0,strpos($nombres,' '));
  
$nombres=substr($nombres,strpos($nombres,' ')+1,1000);
$nom1=substr($nombres,0,strpos($nombres,' '));
  
$nombres=substr($nombres,strpos($nombres,' ')+1,1000);
$nom2=$nombres; 

	
if(strlen($nombres)>2)
{
	$sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'"';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_descri="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	$sql_ced1.=' and (enti_descri="" or enti_descri is null or enti_descri like "%NUEV%")';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_razsoc="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	$sql_ced1.=' and (enti_razsoc="" or enti_razsoc is null or enti_razsoc like "%NUEV%")';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nomcom="'.$descri.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	$sql_ced1.=' and (enti_nomcom="" or enti_nomcom is null or enti_nomcom like "%NUEV%")';
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nom1="'.$nom1.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_nom1="" or enti_nom1 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_nom2="'.$nom2.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_nom2="" or enti_nom2 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_ape1="'.$ape1.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_ape1="" or enti_ape1 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	$sql_ced1 ='update enti0 set enti_ape2="'.$ape2.'"';
	$sql_ced1.=' where enti_codigo like "'.$pnumced.'%"';
	if($regc==0){$sql_ced1.=' and (enti_ape2="" or enti_ape2 is null)';}
	$res_ced1=msql_query($sql_ced1,$link_vcrx);
	
	
}	

return $descri;	
  
}




  
function get_vhcl0($pplak)
{
  $pplak=str_replace('"','',$pplak);	
  $pplak=str_replace("'","",$pplak);	
  $pplak=str_replace("-","",$pplak);	
  $descri='';	
  $pplak=strtoupper(trim($pplak));
  get_vhcl1($pplak);
//   get_vhcl2($pplak);
//   get_vhcl3($pplak);
  
}  
  
function get_vhcl1($pplak)
{

if(empty($pplak)){return;}     
include('../_cfg/config.php');
  
// $url2='http://micnt.com.ec/cntapp/guia104/php/guia_cntat.php?hflagsubmit=1&cmbcriterio=3&cmbprov2=9&txtusuarioapellido=RUIZ+ESPINOZA&txtusuarionombre=VICENTE+ARMANDO';
$pplak=str_replace('"','',$pplak);	
$pplak=str_replace("'","",$pplak);	
$pplak=str_replace("-","",$pplak);	
$descri='';	
$pplak=strtoupper(trim($pplak));

$url ='https://declaraciones.sri.gob.ec/sri-matriculacion-vehicular-recaudacion-servicio-internet/rest/BaseVehiculo/obtenerPorNumeroPlacaOPorNumeroCampvOPorNumeroCpn?numeroPlacaCampvCpn='.$pplak;
  
$page = @file_get_contents($url);

if(!mb_stristr($page,$pplak))
{
  $url2 ='http://www.ecuadorlegalonline.com/modulo/sri/matriculacion/consultar-vehiculo.php?placa='.$pplak;
  $page = @file_get_contents($url2);
}
$page = str_replace('\"','"',$page);
$page = substr($page,strpos($page,'{'));
$page = substr($page,0,strpos($page,'}')+1);

// echo $page;  
  
if(!mb_stristr($page,$pplak)){return '';}  
  
$json1=@json_decode($page,true,512,JSON_BIGINT_AS_STRING);

// {"numeroPlaca":"GRX4823","numeroCamvCpn":"B0223155","colorVehiculo1":"ROJO","colorVehiculo2":"ROJO","cilindraje":1600,
//  "nombreClase":"AUTOMOVIL","descripcionMarca":"CHEVROLET","descripcionModelo":"AVEO EMOTION 1.6L AC","anioAuto":2010,
//  "descripcionPais":"ECUADOR","fechaUltimaMatricula":"2015-12-31","fechaCaducidadMatricula":"2020-12-29",
//  "fechaCompraRegistro":"2010-04-30","fechaRevision":"2017-04-24",
//  "descripcionCanton":"GUAYAQUIL","descripcionServicio":"PARTICULAR",
//  "ultimoAnioPagado":2018,"prohibidoEnajenar":"NO","observacion":null,"estadoExoneracion":"NO"}
  
foreach ($json1 as $key1=>$val1)
{
  echo $key1.$val1;
	if($key1=="numeroPlaca"){$placa=strtoupper2($val1);}
	if($key1=="numeroCamvCpn"){$camv=strtoupper2($val1);}
	if($key1=="colorVehiculo1"){$clor1=strtoupper2($val1);}
	if($key1=="colorVehiculo2"){$clor2=strtoupper2($val1);}
	if($key1=="cilindraje"){$cilindro=strtoupper2($val1);}
	if($key1=="nombreClase"){$clase=$val1;}
	if($key1=="descripcionMarca"){$mrca=$val1;}
	if($key1=="descripcionModelo"){$modelo=$val1;}
	if($key1=="anioAuto"){$anio=strtoupper2($val1);}
	if($key1=="descripcionPais"){$pais=strtoupper2($val1);}
	if($key1=="descripcionCanton"){$ciudad=strtoupper2($val1);}
}	

$descri = $mrca.' /'.$modelo.' /'.$anio.' /'.$clor1;  
{
	$sql_vhcl ='insert into vhcl0(vhcl_codigo,vhcl_status,vhcl_iuser,vhcl_idate)value("'.$placa.'","-","",now())';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
  
  $sql_vhcl ='update vhcl0 set vhcl_descri="'.$descri.'"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
	
  $sql_vhcl ='update vhcl0 set';
  $sql_vhcl.=' vhcl_mrca="'.$mrca.'",';
  $sql_vhcl.=' vhcl_mdlo="'.$modelo.'",';
  $sql_vhcl.=' vhcl_modelo="'.$modelo.'",';
  $sql_vhcl.=' vhcl_anio="'.$anio.'",';
  $sql_vhcl.=' vhcl_clor="'.$clor1.'",';
  $sql_vhcl.=' vhcl_status="-"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
	
  
  $sql_vhcl ='update vhcl0 set';
  $sql_vhcl.=' vhcl_camv="'.$camv.'",';
  $sql_vhcl.=' vhcl_clase="'.$clase.'",';
  $sql_vhcl.=' vhcl_clor2="'.$clor2.'",';
  $sql_vhcl.=' vhcl_status="-"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
  
//   echo '******';
//   echo $sql_vhcl;
//   echo msql_error($link_vcrx);
  
}	
	
return $descri;	
}
	

function get_vhcl2($pplak)
{
include('../_cfg/config.php');
  
  
$pplak=str_replace('"','',$pplak);	
$pplak=str_replace("'","",$pplak);	
$pplak=str_replace("-","",$pplak);	
$descri='';	
$pplak=strtoupper(trim($pplak));
	
// $url ='https://declaraciones.sri.gob.ec/sri-matriculacion-vehicular-recaudacion-servicio-internet/rest/BaseVehiculo/obtenerPorNumeroPlacaOPorNumeroCampvOPorNumeroCpn?numeroPlacaCampvCpn='.$pplak;
$url ='http://www.ecuadorlegalonline.com/modulo/sri/matriculacion/consultar-vehiculo.php?placa='.$pplak;
$page = @file_get_contents($url);

if(!mb_stristr($page,$pplak)){return '';}
  
$json1=json_decode($page,true,512,JSON_BIGINT_AS_STRING);

foreach ($json1 as $key1=>$val1)
{
  echo $key1.$val1;
	if($key1=="numeroPlaca"){$placa=strtoupper2($val1);}
	if($key1=="numeroCamvCpn"){$camv=strtoupper2($val1);}
	if($key1=="colorVehiculo1"){$clor1=strtoupper2($val1);}
	if($key1=="colorVehiculo2"){$clor2=strtoupper2($val1);}
	if($key1=="cilindraje"){$cilindro=strtoupper2($val1);}
	if($key1=="nombreClase"){$clase=$val1;}
	if($key1=="descripcionMarca"){$mrca=$val1;}
	if($key1=="descripcionModelo"){$modelo=$val1;}
	if($key1=="anioAuto"){$anio=strtoupper2($val1);}
	if($key1=="descripcionPais"){$pais=strtoupper2($val1);}
	if($key1=="descripcionCanton"){$ciudad=strtoupper2($val1);}
}	

$descri = $mrca.' /'.$modelo.' /'.$anio.' /'.$clor1;  
{
	$sql_vhcl ='insert into vhcl0(vhcl_codigo)value("'.$placa.'")';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
  
  $sql_vhcl ='update vhcl0 set vhcl_descri="'.$descri.'"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
	
  $sql_vhcl ='update vhcl0 set';
  $sql_vhcl.=' vhcl_mrca="'.$mrca.'",';
  $sql_vhcl.=' vhcl_mdlo="'.$modelo.'",';
  $sql_vhcl.=' vhcl_modelo="'.$modelo.'",';
  $sql_vhcl.=' vhcl_anio="'.$anio.'",';
  $sql_vhcl.=' vhcl_clor="'.$clor1.'",';
  $sql_vhcl.=' vhcl_status="-"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
	
  $sql_vhcl ='update vhcl0 set';
  $sql_vhcl.=' vhcl_camv="'.$camv.'",';
  $sql_vhcl.=' vhcl_clase="'.$clase.'",';
  $sql_vhcl.=' vhcl_clor2="'.$clor2.'",';
  $sql_vhcl.=' vhcl_status="-"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
}	
	
return $descri;	
}

function get_vhcl3($pplak)
{
include('../_cfg/config.php');
  
  
$pplak=str_replace('"','',$pplak);	
$pplak=str_replace("'","",$pplak);	
$pplak=str_replace("-","",$pplak);	
$descri='';	
$pplak=strtoupper(trim($pplak));
	
// $url ='https://declaraciones.sri.gob.ec/sri-matriculacion-vehicular-recaudacion-servicio-internet/rest/BaseVehiculo/obtenerPorNumeroPlacaOPorNumeroCampvOPorNumeroCpn?numeroPlacaCampvCpn='.$pplak;
// http://consultas.atm.gob.ec/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=PLA&ps_identificacion=GTB8445&ps_placa=
 $url ='http://consultas.atm.gob.ec/PortalWEB/paginas/clientes/clp_grid_citaciones.jsp?ps_tipo_identificacion=PLA&ps_identificacion='.$pplak.'&ps_placa=';
$page = @file_get_contents($url);

if(!mb_stristr($page,$pplak)){return '';}

echo $page;  
  
$json1=json_decode($page,true,512,JSON_BIGINT_AS_STRING);
foreach ($json1 as $key1=>$val1)
{
  echo $key1.$val1;
	if($key1=="numeroPlaca"){$placa=strtoupper2($val1);}
	if($key1=="numeroCamvCpn"){$camv=strtoupper2($val1);}
	if($key1=="colorVehiculo1"){$clor1=strtoupper2($val1);}
	if($key1=="colorVehiculo2"){$clor2=strtoupper2($val1);}
	if($key1=="cilindraje"){$cilindro=strtoupper2($val1);}
	if($key1=="nombreClase"){$clase=$val1;}
	if($key1=="descripcionMarca"){$mrca=$val1;}
	if($key1=="descripcionModelo"){$modelo=$val1;}
	if($key1=="anioAuto"){$anio=strtoupper2($val1);}
	if($key1=="descripcionPais"){$pais=strtoupper2($val1);}
	if($key1=="descripcionCanton"){$ciudad=strtoupper2($val1);}
}	

$descri = $mrca.' /'.$modelo.' /'.$anio.' /'.$clor1;  
{
	$sql_vhcl ='insert into vhcl0(vhcl_codigo)value("'.$placa.'")';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
  
  $sql_vhcl ='update vhcl0 set vhcl_descri="'.$descri.'"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
	
  $sql_vhcl ='update vhcl0 set';
  $sql_vhcl.=' vhcl_mrca="'.$mrca.'",';
  $sql_vhcl.=' vhcl_mdlo="'.$modelo.'",';
  $sql_vhcl.=' vhcl_modelo="'.$modelo.'",';
  $sql_vhcl.=' vhcl_anio="'.$anio.'",';
  $sql_vhcl.=' vhcl_clor="'.$clor1.'",';
  $sql_vhcl.=' vhcl_status="-"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
	
  $sql_vhcl ='update vhcl0 set';
  $sql_vhcl.=' vhcl_camv="'.$camv.'",';
  $sql_vhcl.=' vhcl_clase="'.$clase.'",';
  $sql_vhcl.=' vhcl_clor2="'.$clor2.'",';
  $sql_vhcl.=' vhcl_status="-"';
	$sql_vhcl.=' where vhcl_codigo = "'.$placa.'"';
	$res_vhcl=msql_query($sql_vhcl,$link_vcrx);
}	
	
return $descri;	
}




function get_vhclprop($plak)  
{
  include('../_cfg/config.php');

  
// $url='http://consultas.atm.gob.ec/SVT/paginas/svt_datosPersonas.jsp?ps_tipoServicio=MAT&ps_servicio=1&ps_tramite=0&ps_area=&ps_valorParametro1=GLL0512&ps_valorParametro2=1-1-2019&ps_identificacionSolicita=';
$url ='http://consultas.atm.gob.ec/SVT/paginas/svt_datosPersonas.jsp?ps_tipoServicio=MAT&ps_servicio=3&ps_tramite=0&ps_area=&ps_valorParametro1='.$plak.'&ps_valorParametro2=&ps_identificacionSolicita=';
// servicio 1 consultac con transferencia de domiio
$url ='http://consultas.atm.gob.ec/SVT/paginas/svt_datosPersonas.jsp?ps_tipoServicio=MAT&ps_servicio=1&ps_tramite=0&ps_area=&ps_valorParametro1='.$plak.'&ps_valorParametro2=&ps_identificacionSolicita=';
  
// echo $url;  
$page=file_get_contents($url);
$nombre=$page;  
$nombre=substr($nombre,strpos($nombre,'Nombre:'),9999);
$nombre=substr($nombre,strpos($nombre,'<td>')+4,9999);
$nombre=substr($nombre,0,strpos($nombre,'</td>'));
$nombre=substr($nombre,strpos($nombre,'>')+1,9999);
$nombre=substr($nombre,0,strpos($nombre,'<'));
$nombre=trim($nombre);
if(strlen($nombre)>5)
{
 $sql_prop='update vhcl0 set vhcl_propietario="'.$nombre.'" where vhcl_codigo="'.$plak.'"';
 $res_prop=msql_query($sql_prop,$link_vcrx);
}
// echo $nombre;  
return $nombre;
  
}
  
  

function get_geoip1($ipadrs,$geoip=0)
{
include('../_cfg/config.php');

$url = 'http://www.geoipview.com/?q='.$ipadrs;
$page = @file_get_contents($url);

	
if(mb_stristr($page,$pnumruc))
{
	$sql_ruc1='insert into enti0(enti_codigo,enti_descri,enti_status,enti_idate)value("'.$pnumruc.'001","SRI NUEVO RUC","-",now())';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$page2=$page;
  $page2=substr($page2,strpos($page2,"Social:"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xrazsoc=substr($page2,0,strpos($page2,"</td>"));
	$xrazsoc=str_replace('"','-',$xrazsoc);

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Comercial:"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xnomcom=substr($page2,0,strpos($page2,"</td>"));
	if($xnomcom==""){$xnomcom=$xrazsoc;}

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Estado del Contribuyente en el RUC"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xstruc=substr($page2,0,strpos($page2,"</td>"));

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Clase de Contribuyente"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xclase=substr($page2,0,strpos($page2,"</td>"));
	if(mb_stristr($xclase,'Especial')){$xcesp='1';}else{$xcesp='0';}
	if(mb_stristr($xclase,'Simplificado')){$xrise='1';}else{$xrise='0';}
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"Tipo de Contribuyente"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xtipo=substr($page2,0,strpos($page2,"</td>"));
// 	if(mb_stristr($xclase,'Especial')){$xcesp='1';}else{$xcesp='0';}
		
  $page2=$page;
  $page2=substr($page2,strpos($page2,"Actividad Econ"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xacti=substr($page2,0,strpos($page2,"</td>"));

  $page2=$page;
  $page2=substr($page2,strpos($page2,"Fecha de inicio"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xfecha1=substr($page2,0,strpos($page2,"</td>"));
	$xfecha1=trim($xfecha1);
	$xfecha1=substr($xfecha1,6,9).substr($xfecha1,3,5).substr($xfecha1,0,2);

	
  $page2=$page;
  $page2=substr($page2,strpos($page2,"Contabilidad"),250);
  $page2=substr($page2,strpos($page2,"<td>")+4,250);
  $xcontab=substr($page2,0,strpos($page2,"</td>"));
	if(mb_stristr($xcontab,'SI')){$xcontab='1';}else{$xcontab='0';}
	
//   $page2=$page;
//   $page2=substr($page2,strpos($page2,"apellidos"),250);
//   $page2=substr($page2,strpos($page2,':')+2,250);
// 	$xape12=strtoupper(substr($page2,0,strpos($page2,'"')));
	
	
	$sql_ruc1='update enti0 set enti_descri="'.$xrazsoc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

 	$sql_ruc1='update enti0 set enti_razsoc="'.$xrazsoc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_nomcom="'.$xnomcom.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_struc="'.$xstruc.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_prise="'.$xrise.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_pcesp="'.$xcesp.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_pcont="'.$xcontab.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_rise="'.$xrise.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_obcon="'.$xcontab.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_coesp="'.$xcesp.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set entifechaini="'.$xfecha1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	if (substr($xtipo,0,1)=='P')
	{	
	$apenom=$xrazsoc;	
	$xape1=substr($apenom,0,strpos($apenom,' '));
		
	$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
	$xape2=substr($apenom,0,strpos($apenom,' '));

	$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
	$xnom1=substr($apenom,0,strpos($apenom,' '));

	$apenom=substr($apenom,strpos($apenom,' ')+1,1000);
	$xnom2=$apenom;	

	$sql_ruc1='update enti0 set enti_ape1="'.$xape1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
	
	$sql_ruc1='update enti0 set enti_ape2="'.$xape2.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_nom1="'.$xnom1.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);

	$sql_ruc1='update enti0 set enti_nom2="'.$xnom2.'" where enti_codigo like "'.substr($pnumruc,0,10).'%"';
	$res_ruc1=msql_query($sql_ruc1,$link_vcrx);
	
	}

}

return $xrazsoc;	
}



function get_rucall()
{
	include('../_cfg/config.php');
	
	msql_select_db('vcrxol_gmny',$link_vcrx);
	
	$sql_enti ='select * from enti0 ';
	$sql_enti.='where enti_descri like "%NUEVO RUC%" ';
	$sql_enti.='order by enti_codigo ';
	$res_enti=msql_query($sql_enti,$link_vcrx);
	while($aso_enti=msql_fetch_assoc($res_enti))
	{echo get_ruc0($aso_enti['enti_codigo'],1);}

	$sql_enti ='select distinct enti from comp1 ';
	$sql_enti.='where enti not in(select enti_codigo from enti0 where enti_descri not like "%NUEV%") ';
	$sql_enti.='order by enti ';
	$res_enti=msql_query($sql_enti,$link_vcrx);
	while($aso_enti=msql_fetch_assoc($res_enti))
	{echo get_ruc0($aso_enti['enti'],1);}
	
}

function get_cedall()
{
	include('../_cfg/config.php');
	$sql_enti ='select * from enti0 ';
	$sql_enti.='where enti_descri like"%NUEVA CEDULA%" ';
	$sql_enti.='order by enti_codigo ';
	$res_enti=msql_query($sql_enti,$link_vcrx);
// 	echo $sql_clac;
	while($aso_enti=msql_fetch_assoc($res_enti))
	{echo get_ced0($aso_enti['enti_codigo'],1);}
}





function get_lsuco($penti,$pitem='')
{
	include('../_cfg/config.php');
  $lsuco=r_fiel('empr',$cfg_empr,'suco');
  if($lsuco==''){$lsuco="-";}
//   if($cfg_empr=='pec1'){$lsuco='01';}
	$sql_suco='select * from comp1 ';
	$sql_suco.=' where status not like "O" and status not like "X"' ;
	$sql_suco.=' and docu like "FP%"' ;
	$sql_suco.=' and suco not like ""';
	$sql_suco.=' and suco not like "-%"';
	$sql_suco.=' and suco is not null';
	$sql_suco.=' and enti like "'.substr($penti,0,10).'%"';
	$sql_suco.=' order by fecha desc, numero desc' ;
	$sql_suco.=' limit 1' ;
	$res_suco=msql_query($sql_suco,$link_vcrx);
	if(msql_num_rows($res_suco)!=0)
	{$lsuco=msql_result($res_suco,0,'suco');}
	return $lsuco;
}

function get_lfpag($penti,$pitem='')
{
	include('../_cfg/config.php');
  $lfpag=r_fiel('empr',$cfg_empr,'fpag');
  if($lfpag==''){$lfpag="-";}
  if($cfg_empr=='pec1'){$lsuco='20';}
	$sql_fpag='select * from comp1 ';
	$sql_fpag.=' where status not like "O" and status not like "X"' ;
	$sql_fpag.=' and docu like "FP%"' ;
	$sql_fpag.=' and fpag not like ""';
	$sql_fpag.=' and fpag not like "-%"';
	$sql_fpag.=' and enti like "'.substr($penti,0,10).'%"';
	$sql_fpag.=' order by fecha desc, numero desc' ;
	$sql_fpag.=' limit 1' ;
	$res_fpag=msql_query($sql_fpag,$link_vcrx);
	if(msql_num_rows($res_fpag)!=0)
	{$lfpag=msql_result($res_fpag,0,'fpag');}
	return $lfpag;
}


function get_luxpre($pitemce,$pfecha)
{
  if(empty($pitemce)){return;}
  if(empty($pfecha)){$pfecha=date('Y-m-d');}
	include('../_cfg/config.php');
	$sql_comp ='select * from comp1 left join comp2 on idnum1=idnum2 ';
	$sql_comp.=' where status not in("O","X")';
	$sql_comp.=' and docu like "FP%"' ;
	$sql_comp.=' and itemce = "'.$pitemce.'"' ;
	$sql_comp.=' and fecha<="'.$pfecha.'"' ;
	$sql_comp.=' and uxpre!=0 ' ;
	$sql_comp.=' and uxpre is not null ' ;
	$sql_comp.=' order by fecha desc ' ;
	$sql_comp.=' limit 1 ' ;
  $res_comp=msql_query($sql_comp,$link_vcrx);
  $luxpre=msql_result($res_comp,0,'uxpre');
//   echo '<br>==='.$sql_comp.msql_error($link_vcrx);
//   echo '<br>==='.$lfacon;
  return $luxpre;
}



function get_lfacon($pitemce,$pfecha)
{
  if(empty($pitemce)){return;}
  if(empty($pfecha)){$pfecha=date('Y-m-d');}
	include('../_cfg/config.php');
	$sql_comp ='select * from comp1 left join comp2 on idnum1=idnum2 ';
	$sql_comp.=' where status not in("O","X")';
	$sql_comp.=' and docu like "FP%"' ;
	$sql_comp.=' and itemce = "'.$pitemce.'"' ;
	$sql_comp.=' and fecha<="'.$pfecha.'"' ;
	$sql_comp.=' and facon!=0 ' ;
	$sql_comp.=' and facon is not null ' ;
	$sql_comp.=' order by fecha desc ' ;
	$sql_comp.=' limit 1 ' ;
  $res_comp=msql_query($sql_comp,$link_vcrx);
  $lfacon=msql_result($res_comp,0,'facon');
//   echo '<br>==='.$sql_comp.msql_error($link_vcrx);
//   echo '<br>==='.$lfacon;
  return $lfacon;
}


function get_litem($penti,$pitemce,$pitemce2='',$pfecha='')
{
	include('../_cfg/config.php');
// 	$litem="100005";
	$litem="9999999999";
  $pitemce=str_replace('"','',$pitemce);
  $pitemce=trim($pitemce);
  if(empty($pfecha)){$pfecha=date('Y-m-d');}
  if(strlen($pitemce<3)){$xvalce2=1;}
  if(strlen($pitemce<3)){$pitemce=$pitemce2;}
  if(strlen($pitemce<3)){return;}

	$sql_item0='select * from comp1 left join comp2 on idnum1=idnum2 ';
	$sql_item0.=' where status not in("O","X")';
	$sql_item0.=' and docu like "FP%"' ;
// 	$sql_item0.=' and item not like ""';
// 	$sql_item0.=' and item not like "100005"';
	$sql_item0.=' and item != ""';
	$sql_item0.=' and item != "100005"';
	$sql_item0.=' and item not like "9999%"';
  
  if($cfg_empr=='hfre')
  {$sql_item0.=' and itemce = "'.$pitemce.'"';}
  

	$sql_item=$sql_item0;
	$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
	$sql_item.=' and itemce = "'.$pitemce.'"' ;
	$sql_item.=' order by fecha desc, numero desc' ;
	$sql_item.=' limit 1' ;
     if($xvalce2==1){$sql_item=str_replace('itemce =','itemce2 =',$sql_item);}
     
	$res_item=msql_query($sql_item,$link_vcrx);
     
//   echo $sql_item;
// 	echo msql_error();
	if(msql_num_rows($res_item)!=0)
	{$litem=msql_result($res_item,0,'item');}
	else
	{
		$sql_item=$sql_item0;
		$sql_item.=' and itemce = "'.$pitemce.'"' ;
		$sql_item.=' order by fecha desc, numero desc' ;
		$sql_item.=' limit 1' ;
          if($xvalce2==1){$sql_item=str_replace('itemce =','itemce2 =',$sql_item);}
          
		$res_item=msql_query($sql_item,$link_vcrx);
		if(msql_num_rows($res_item)!=0)
		{$litem=msql_result($res_item,0,'item');}
		else
		{
      // no habilitar porque itemce debe ser encontrado sino 999999
// 			$sql_item=$sql_item0;
//   		$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
// 			$sql_item.=' order by fecha desc, numero desc' ;
// 			$res_item=msql_query($sql_item,$link_vcrx);
// 			if(msql_num_rows($res_item)!=0)
// 			{$litem=msql_result($res_item,0,'item');}
		}
	}
  
// echo '<br><br>*/*/*/*'.$penti.'---'.$pitemce;  
// echo '<br><br>*/*/*/*'.$sql_item;  
// echo '<br><br>*/*/*/*'.$litem;  
	return $litem;
}

function get_lctas($penti,$pitem)
{
	include('../_cfg/config.php');
  $pitem=str_replace('"','',$pitem);
  $pitem=trim($pitem);
  $penti=trim($penti);
  
	$lctas="";
	$sql_item0='select * from comp1 left join comp2 on idnum1=idnum2 ';
	$sql_item0.=' where status not like "O" and status not like "X"';
	$sql_item0.=' and docu like "FP%"' ;
	$sql_item0.=' and ctas not like ""' ;
	$sql_item0.=' and ctas not like "-%"' ;
	$sql_item0.=' and ctas is not null' ;
// 	$sql_item0.=' and item not like "9999%"' ;

	$sql_item=$sql_item0;
	$sql_item.=' and item not like "9999%"' ;
	$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
	$sql_item.=' and item like "'.$pitem.'%"' ;
	$sql_item.=' order by fecha desc, numero desc' ;
	$sql_item.=' limit 1' ;
	$res_item=msql_query($sql_item,$link_vcrx);
	if(msql_num_rows($res_item)!=0)
	{$lctas=msql_result($res_item,0,'ctas');}
	else
	{
		$sql_item=$sql_item0;
  	$sql_item.=' and item not like "9999%"' ;
		$sql_item.=' and item like "'.$pitem.'%"' ;
		$sql_item.=' order by fecha desc, numero desc' ;
		$sql_item.=' limit 1' ;
		$res_item=msql_query($sql_item,$link_vcrx);
		if(msql_num_rows($res_item)!=0)
		{$lctas=msql_result($res_item,0,'ctas');}
		else
		{
			$sql_item=$sql_item0;
  	  $sql_item.=' and item not like "9999%"' ;
	 		$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
			$sql_item.=' order by fecha desc, numero desc' ;
			$sql_item.=' limit 1' ;
			$res_item=msql_query($sql_item,$link_vcrx);
			if(msql_num_rows($res_item)!=0)
			{$lctas=msql_result($res_item,0,'ctas');}
      else
      {
        $sql_item=$sql_item0;
        $sql_item.=' and enti like "'.substr($penti,0,10).'%"';
        $sql_item.=' order by fecha desc, numero desc' ;
        $sql_item.=' limit 1' ;
        $res_item=msql_query($sql_item,$link_vcrx);
        if(msql_num_rows($res_item)!=0)
        {$lctas=msql_result($res_item,0,'ctas');}
		  }	
		}	
	}

	return $lctas;
}	

function get_lcair($penti,$pitem)
{
	include('../_cfg/config.php');
	$lcair="";
  $lcair=r_fiel('item',$pitem,'cair');
  if($lcair!=""){return $lcair;}
  
	$sql_item0='select * from comp1 left join comp2 on idnum1=idnum2 ';
	$sql_item0.=' where status not like "O" and status not like "X"';
	$sql_item0.=' and docu like "FP%"' ;
	$sql_item0.=' and cair not like ""' ;
	$sql_item0.=' and cair not like "332"' ;
	$sql_item0.=' and cair not like "-%"' ;
	$sql_item0.=' and cair is not null' ;
// 	$sql_item0.=' and item not like "9999%"' ;

	$sql_item=$sql_item0;
     $sql_item.=' and item not like "9999%"' ;
	$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
	$sql_item.=' and item like "'.$pitem.'%"' ;
	$sql_item.=' order by fecha desc, numero desc' ;
	$sql_item.=' limit 1' ;
	$res_item=msql_query($sql_item,$link_vcrx);
//   explain_sql($sql_item);
	if(msql_num_rows($res_item)!=0)
	{$lcair=msql_result($res_item,0,'cair');}
	else
	{
		$sql_item=$sql_item0;
  	$sql_item.=' and item not like "9999%"' ;
		$sql_item.=' and item like "'.$pitem.'%"' ;
		$sql_item.=' order by fecha desc, numero desc' ;
		$sql_item.=' limit 1' ;
		$res_item=msql_query($sql_item,$link_vcrx);
//   explain_sql($sql_item);
		if(msql_num_rows($res_item)!=0)
		{$lcair=msql_result($res_item,0,'cair');}
		else
		{
			$sql_item=$sql_item0;
    	$sql_item.=' and item not like "9999%"' ;
			$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
			$sql_item.=' order by fecha desc, numero desc' ;
			$sql_item.=' limit 1' ;
			$res_item=msql_query($sql_item,$link_vcrx);
//   explain_sql($sql_item);
			if(msql_num_rows($res_item)!=0)
			{$lcair=msql_result($res_item,0,'cair');}
      else
      {
        $sql_item=$sql_item0;
        $sql_item.=' and enti like "'.substr($penti,0,10).'%"';
        $sql_item.=' order by fecha desc, numero desc' ;
        $sql_item.=' limit 1' ;
        $res_item=msql_query($sql_item,$link_vcrx);
        if(msql_num_rows($res_item)!=0)
        {$lcair=msql_result($res_item,0,'cair');}
      }
		}	
	}
	return $lcair;
}

function get_lrrta($penti,$pitem,$pcair='')
{
	include('../_cfg/config.php');
  
//   echo 'PARAM'.$penti.$pitem.$pcair;
  
	$lrrta=0;
	$sql_item0 ='select * from comp1 left join comp2 on idnum1=idnum2 ';
	$sql_item0.=' where status not like "O" and status not like "X"';
	$sql_item0.=' and docu like "FP%"' ;

	$sql_item = $sql_item0;
	$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
	$sql_item.=' and item like "'.$pitem.'"' ;
	$sql_item.=' and cair = "'.$pcair.'"' ;
	$sql_item.=' and prrta!=0 ' ;
	$sql_item.=' order by fecha desc, numero desc' ;
	$sql_item.=' limit 1' ;
	$res_item=msql_query($sql_item,$link_vcrx);
  
  
	if(msql_num_rows($res_item)!=0)
	{$lrrta=msql_result($res_item,0,'prrta');}
	else
	{
		$sql_item = $sql_item0;
		$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
		$sql_item.=' and cair = "'.$pcair.'"' ;
  	$sql_item.=' and prrta!=0 ' ;
		$sql_item.=' order by fecha desc, numero desc' ;
		$sql_item.=' limit 1' ;
		$res_item=msql_query($sql_item,$link_vcrx);
		if(msql_num_rows($res_item)!=0)
		{$lrrta=msql_result($res_item,0,'prrta');}
		else
		{
			$sql_item = $sql_item0;
			$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
      $sql_item.=' and cair = "'.$pcair.'"' ;
      $sql_item.=' and prrta!=0 ' ;
			$sql_item.=' order by fecha desc, numero desc' ;
			$sql_item.=' limit 1' ;
			$res_item=msql_query($sql_item,$link_vcrx);
			if(msql_num_rows($res_item)!=0)
			{$lrrta=msql_result($res_item,0,'prrta');}
			else
			{
				$sql_item = $sql_item0;
				$sql_item.=' and item like "'.$pitem.'"' ;
        $sql_item.=' and cair = "'.$pcair.'"' ;
        $sql_item.=' and prrta!=0 ' ;
				$sql_item.=' order by fecha desc, numero desc' ;
				$sql_item.=' limit 1' ;
				$res_item=msql_query($sql_item,$link_vcrx);
				if(msql_num_rows($res_item)!=0)
				{$lrrta=msql_result($res_item,0,'prrta');}
				else
				{
					$sql_item = $sql_item0;
					$sql_item.=' and cair like "'.$pcair.'"' ;
  		  	$sql_item.=' and prrta!=0 ' ;
	    		$sql_item.=' order by fecha desc, numero desc' ;
					$sql_item.=' limit 1' ;
					$res_item=msql_query($sql_item,$link_vcrx);
					if(msql_num_rows($res_item)!=0)
					{$lrrta=msql_result($res_item,0,'prrta');}
          else
          {$lrrta=r_fiel('cair',$pcair,'porc');}  
				}	
			}	
		}	
	}
  if($lrrta==0){$lrrta=r_fiel('cair',$pcair,'porc');}
  
	return $lrrta;
}

function get_lriva($penti='',$pitem='')
{
	include('../_cfg/config.php');
	$lriva="";
	$sql_item0='select * from comp1 left join comp2 on idnum1=idnum2 ';
	$sql_item0.=' where status not like "O" and status not like "X"';
	$sql_item0.=' and docu like "FP%"' ;
	$sql_item0.=' and iva>0' ;

	$sql_item = $sql_item0;
	$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
	$sql_item.=' and item like "'.$pitem.'"' ;
	$sql_item.=' order by fecha desc, numero desc' ;
	$sql_item.=' limit 1' ;
	$res_item=msql_query($sql_item,$link_vcrx);
	if(msql_num_rows($res_item)!=0)
	{$lriva=msql_result($res_item,0,'priva');}
	else
	{
		$sql_item = $sql_item0;
		$sql_item.=' and enti like "'.substr($penti,0,10).'%"';
		$sql_item.=' order by fecha desc, numero desc' ;
		$sql_item.=' limit 1' ;
		$res_item=msql_query($sql_item,$link_vcrx);
		if(msql_num_rows($res_item)!=0)
		{$lriva=msql_result($res_item,0,'priva');}
		else
		{
			$sql_item = $sql_item0;
			$sql_item.=' and item like "'.$pitem.'"' ;
			$sql_item.=' order by fecha desc, numero desc' ;
			$sql_item.=' limit 1' ;
			$res_item=msql_query($sql_item,$link_vcrx);
			if(msql_num_rows($res_item)!=0)
			{$lriva=msql_result($res_item,0,'priva');}
		}	
	}
  
  if($lriva==0)
  {
      $sql_rete='select * from retp12 where enti like "'.substr($penti,0,10).'%" and puni>=30 and (cair*1)<300  order by fecha desc limit 10';
      $res_rete=msql_query($sql_rete,$link_vcrx);
      if(msql_num_rows($res_rete)!=0){$lriva=msql_result($res_rete,0,'puni');}
  }
  
	return $lriva;
}

function get_lriva2($penti='',$pitem='')
{
     include('../_cfg/config.php');
  
  $aret='';
  $vend='';
     
  if(empty($pitem)){return 0;}
  if(empty($pcair)){return 0;}

  $sql_vend='select * from enti0 where enti_codigo like "'.substr($penti,0,10).'%" order by enti_codigo desc';
  $res_vend=msql_query($sql_vend,$link_vcrx);
  $enti_codigo=@msql_result($res_vend,0,'enti_codigo');
  $struc=@msql_result($res_vend,0,'enti_struc');
  $tiruc=@msql_result($res_vend,0,'enti_tiruc');
  $obcon=@msql_result($res_vend,0,'enti_obcon');

  if($struc==''){return 100;}
  if($obcon==1){return 0;}

//   $sql_item='select * from item0 where item_codigo like "'.$pitem.'%" or item_cair like "'.$pitem.'" order by item_codigo';
//   $res_item=msql_query($sql_item,$link_vcrx);
//   $cair=@msql_result($res_item,0,'item_cair');

//   echo '*/*/*/'.$tiruc;
  if($pcair!='' and substr($tiruc,0,1)=='P')
  {

    // bien 30
    if(mb_stristr('312',$pcair)){return 30;}
    
    // serv 70
    if(mb_stristr('304.307.308.309.310.344',$pcair)){return 70;}

    // hono 100
    if(mb_stristr('303',$pcair)){return 100;}

    // arre 100
    if(mb_stristr('319.320',$pcair)){return 100;}

  }
  
  
  return 0;    
}

function set_priva($pdocu,$pidnum)
{
     include('../_cfg/config.php');
  
  $aret='';
  $vend='';
     
  if(empty($pdocu)){return 0;}
  if(empty($pidnum)){return 0;}
     
  $sql_docu='select * from comp12 where docu="'.$pdocu.'" and idnum1="'.$pidnum.'"';
  $res_docu=msql_query($sql_docu,$link_vcrx);
  $penti=msql_result($res_docu,0,'enti');
  $pfecha=msql_result($res_docu,0,'fecha');

  $sql_vend='select * from enti0 where enti_codigo like "'.substr($penti,0,10).'%" order by enti_codigo desc';
  $res_vend=msql_query($sql_vend,$link_vcrx);
  $enti_codigo=@msql_result($res_vend,0,'enti_codigo');
  $struc=@msql_result($res_vend,0,'enti_struc');
  $tiruc=@msql_result($res_vend,0,'enti_tiruc');
  $obcon=@msql_result($res_vend,0,'enti_obcon');
  $coesp=@msql_result($res_vend,0,'enti_coesp');

//   if($struc==''){return 100;}
//   if($obcon==1){return 0;}

//   $sql_item='select * from item0 where item_codigo like "'.$pitem.'%" or item_cair like "'.$pitem.'" order by item_codigo';
//   $res_item=msql_query($sql_item,$link_vcrx);
//   $cair=@msql_result($res_item,0,'item_cair');

//   echo '*/*/*/'.$tiruc;
     
     msql_data_seek($res_docu);
	while($aso_docu=msql_fetch_assoc($res_docu))
	{
          $iddet=$aso_docu['iddet'];
          $pcair=$aso_docu['cair'];
          $priva=0;
     //           echo get_ruc0($aso_enti['enti_codigo'],1);
            if($pfecha>='2021-01-01')
            {
                 if(substr($tiruc,0,1)=='P')
                 {
                   // bien 30
                   if(mb_stristr('312',$pcair)){$priva=30;}

                   // serv 70
                   if(mb_stristr('304.307.308.309.310.344',$pcair)){$priva=70;}

                   // hono 100
                   if(mb_stristr('303',$pcair)){$priva=100;}

                   // arre 100
                   if(mb_stristr('319.320',$pcair)){$priva=100;}
                 }
            }
            $sql_updt='update comp2 set priva="'.$priva.'" where idnum2="'.$pidnum.'" and iddet="'.$iddet.'"';
            $res_updt=msql_query($sql_updt,$link_vcrx);
     }
  
  
  return 0;    
}

  
function get_tagsa($tipo='an')
{
	include('../_cfg/config.php');
//   $url='http://www.tagsa.aero/h5aspx/arribo-int-2018.aspx';
//   $url='http://www.tagsa.aero/h5aspx/partida-int-2018.aspx'
  $arr=0;
  $par=0;
  $nac=0;
  $int=0;
  
  if(substr($tipo,0,1)=='a'){$arr=1;}else{$par=1;}
  if(substr($tipo,1,1)=='n'){$nac=1;}else{$int=1;}
  
  
  $url='http://www.tagsa.aero/h5aspx/';
  if($arr==1){$url.='arribo-';}
  if($par==1){$url.='partida-';}
  if($nac==1){$url.='nac-';}
  if($int==1){$url.='int-';}
//   $url.=date('Y');
  $url.='2018';
  $url.='.aspx';
  echo $url;
  
  $page=@file_get_contents($url);
  $page=substr($page,strpos($page,'<table'),99999999999);
  $page=substr($page,0,strpos($page,'</table')+9);
 
  echo '<div>';
  echo date('H:i:s');
  echo '</div>';

  $DOM1 = new DOMDocument();
  @$DOM1->loadHTML($page);
  $trowx= $DOM1->getElementsByTagName('tr');
  foreach($trowx as $trowy)
  {
    $ccol=0;
    foreach($trowy->childNodes as $tdeta)
    {
//       echo '<br>';
      $ccol++;
      if($ccol==1){$xairl=$tdeta->nodeValue;}
      if($ccol==2){$xvuelo=$tdeta->nodeValue;}
      if($ccol==3){$xciudad=$tdeta->nodeValue;}
      if($ccol==4){$xitin=$tdeta->nodeValue;}
      if($ccol==5){$xesti=$tdeta->nodeValue;}
//       if($ccol==6){echo 'Estado:';}
      if($ccol==7){$xreal=$tdeta->nodeValue;;}
    }
    
    if(substr($xitin,0,1)!='I')
    {
      $xfecha=date('Y-m-d');
      $xairl=substr($xvuelo,0,2);
      $xitin=$xfecha.' '.$xitin;
      if($xesti!='')
      {$xesti=$xfecha.' '.$xesti;}
      if($xreal!='')
      {$xreal=$xfecha.' '.$xreal;}

      $sql_flgh ='select * from flgh0';
      $sql_flgh.=' where flgh_fecha="'.$xfecha.'"';
      $sql_flgh.=' and flgh_vuelo="'.$xvuelo.'"';
      if($arr==1)
      {
        $sql_flgh.=' and flgh_ciudad1="'.$xciudad.'"';
        $sql_flgh.=' and flgh_itin2="'.$xitin.'"';
      }
      if($par==1)
      {
        $sql_flgh.=' and flgh_ciudad2="'.$xciudad.'"';
        $sql_flgh.=' and flgh_itin1="'.$xitin.'"';
      }
      $sql_flgh.=' and flgh_status=flgh_status';
      $res_flgh=msql_query($sql_flgh,$link_vcrx);

      if(msql_num_rows($res_flgh)==0)
      {
        if($arr==1)
        {$sql_inse ='insert into flgh0(flgh_fecha,flgh_vuelo,flgh_ciudad1,flgh_itin2)';}
        if($par==1)
        {$sql_inse ='insert into flgh0(flgh_fecha,flgh_vuelo,flgh_ciudad2,flgh_itin1)';}
        $sql_inse.='value("'.$xfecha.'","'.$xvuelo.'","'.$xciudad.'","'.$xitin.'")';

        $res_inse=msql_query($sql_inse,$link_vcrx);

        $res_flgh=msql_query($sql_flgh,$link_vcrx);
      }
      $xcodigo=msql_result($res_flgh,0,'flgh_codigo');

      $sql_updt ='update flgh0 set ';
      if($arr==1)
      {
        $sql_updt.=' flgh_ciudad2="GUAYAQUIL",';
        $sql_updt.=' flgh_esti2="'.$xesti.'",';
        $sql_updt.=' flgh_real2="'.$xreal.'",';
      }
      if($par==1)
      {
        $sql_updt.=' flgh_ciudad1="GUAYAQUIL",';
        $sql_updt.=' flgh_esti1="'.$xesti.'",';
        $sql_updt.=' flgh_real1="'.$xreal.'",';
      }
      $sql_updt.=' flgh_airl="'.$xairl.'"';
      $sql_updt.=' where flgh_codigo="'.$xcodigo.'"';
      $res_updt=msql_query($sql_updt,$link_vcrx);
    }
  }
  
  return;  
}
  
?>


<?php class PDF2Text2 {
var $multibyte = 4; //
var $convertquotes = ENT_QUOTES; //
var $showprogress = true; //
var $filename = '';
var $decodedtext = '';

function setFilename($filename) {
    // Reset
    $this->decodedtext = '';
    $this->filename = $filename;
}

function output($echo = false) {
    if($echo) echo $this->decodedtext;
    else return $this->decodedtext;
}

function setUnicode($input) {
    // 4 for unicode. But 2 should work in most cases just fine
    if($input == true) $this->multibyte = 4;
    else $this->multibyte = 2;
}

function decodePDF() {
    // Read the data from pdf file
    $infile = @file_get_contents($this->filename, FILE_BINARY);
    if (empty($infile))
        return "";

    // Get all text data.
    $transformations = array();
    $texts = array();

    // Get the list of all objects.
    preg_match_all("#obj[\n|\r](.*)endobj[\n|\r]#ismU", $infile . "endobj\r", $objects);
    $objects = @$objects[1];

    // Select objects with streams.
    for ($i = 0; $i < count($objects); $i++) {
        $currentObject = $objects[$i];

        // Prevent time-out
        @set_time_limit ();
        if($this->showprogress) { //                              echo ". ";
            flush(); ob_flush();
        }

        // Check if an object includes data stream.
        if (preg_match("#stream[\n|\r](.*)endstream[\n|\r]#ismU", $currentObject . "endstream\r", $stream )) {
            $stream = ltrim($stream[1]);
            // Check object parameters and look for text data.
            $options = $this->getObjectOptions($currentObject);

            if (!(empty($options["Length1"]) && empty($options["Type"]) && empty($options["Subtype"])) )
            if ( $options["Image"] && $options["Subtype"] )
            if (!(empty($options["Length1"]) &&  empty($options["Subtype"])) )
                continue;

            // Hack, length doesnt always seem to be correct
            unset($options["Length"]);

            // So, we have text data. Decode it.
            $data = $this->getDecodedStream($stream, $options);

            if (strlen($data)) {
                if (preg_match_all("#BT[\n|\r](.*)ET[\n|\r]#ismU", $data . "ET\r", $textContainers)) {
                    $textContainers = @$textContainers[1];
                    $this->getDirtyTexts($texts, $textContainers);
                } else
                    $this->getCharTransformations($transformations, $data);
            }
        }
    }

    // Analyze text blocks taking into account character transformations and return results.
    $this->decodedtext = $this->getTextUsingTransformations($texts, $transformations);
}


function decodeAsciiHex($input) {
    $output = "";

    $isOdd = true;
    $isComment = false;

    for($i = 0, $codeHigh = -1; $i < strlen($input) && $input[$i] != '>'; $i++) {
        $c = $input[$i];

        if($isComment) {
            if ($c == '\r' || $c == '\n')
                $isComment = false;
            continue;
        }

        switch($c) {
            case '\0': case '\t': case '\r': case '\f': case '\n': case ' ': break;
            case '%':
                $isComment = true;
                break;

            default:
                $code = hexdec($c);
                if($code === 0 && $c != '0')
                    return "";

                if($isOdd)
                    $codeHigh = $code;
                else
                    $output .= chr($codeHigh * 16 + $code);

                $isOdd = !$isOdd;
                break;
        }
    }

    if($input[$i] != '>')
        return "";

    if($isOdd)
        $output .= chr($codeHigh * 16);

    return $output;
}

function decodeAscii85($input) {
    $output = "";

    $isComment = false;
    $ords = array();

    for($i = 0, $state = 0; $i < strlen($input) && $input[$i] != '~'; $i++) {
        $c = $input[$i];

        if($isComment) {
            if ($c == '\r' || $c == '\n')
                $isComment = false;
            continue;
        }

        if ($c == '\0' || $c == '\t' || $c == '\r' || $c == '\f' || $c == '\n' || $c == ' ')
            continue;
        if ($c == '%') {
            $isComment = true;
            continue;
        }
        if ($c == 'z' && $state === 0) {
            $output .= str_repeat(chr(0), 4);
            continue;
        }
        if ($c < '!' || $c > 'u')
            return "";

        $code = ord($input[$i]) & 0xff;
        $ords[$state++] = $code - ord('!');

        if ($state == 5) {
            $state = 0;
            for ($sum = 0, $j = 0; $j < 5; $j++)
                $sum = $sum * 85 + $ords[$j];
            for ($j = 3; $j >= 0; $j--)
                $output .= chr($sum >> ($j * 8));
        }
    }
    if ($state === 1)
        return "";
    elseif ($state > 1) {
        for ($i = 0, $sum = 0; $i < $state; $i++)
            $sum += ($ords[$i] + ($i == $state - 1)) * pow(85, 4 - $i);
        for ($i = 0; $i < $state - 1; $i++) {
            try {
                if(false == ($o = chr($sum >> ((3 - $i) * 8)))) {
                    throw new Exception('Error');
                }
                $output .= $o;
            } catch (Exception $e) { /*Dont do anything*/ }
        }
    }

    return $output;
}

function decodeFlate($data) {
    return @gzuncompress($data);
}

function getObjectOptions($object) {
    $options = array();

    if (preg_match("#<<(.*)>>#ismU", $object, $options)) {
        $options = explode("/", $options[1]);
        @array_shift($options);

        $o = array();
        for ($j = 0; $j < @count($options); $j++) {
            $options[$j] = preg_replace("#\s+#", " ", trim($options[$j]));
            if (strpos($options[$j], " ") !== false) {
                $parts = explode(" ", $options[$j]);
                $o[$parts[0]] = $parts[1];
            } else
                $o[$options[$j]] = true;
        }
        $options = $o;
        unset($o);
    }

    return $options;
}

function getDecodedStream($stream, $options) {
    $data = "";
    if (empty($options["Filter"]))
        $data = $stream;
    else {
        $length = !empty($options["Length"]) ? $options["Length"] : strlen($stream);
        $_stream = substr($stream, 0, $length);

        foreach ($options as $key => $value) {
            if ($key == "ASCIIHexDecode")
                $_stream = $this->decodeAsciiHex($_stream);
            elseif ($key == "ASCII85Decode")
                $_stream = $this->decodeAscii85($_stream);
            elseif ($key == "FlateDecode")
                $_stream = $this->decodeFlate($_stream);
            elseif ($key == "Crypt") { // TO DO
            }
        }
        $data = $_stream;
    }
    return $data;
}

function getDirtyTexts(&$texts, $textContainers) {
    for ($j = 0; $j < count($textContainers); $j++) {
        if (preg_match_all("#\[(.*)\]\s*TJ[\n|\r]#ismU", $textContainers[$j], $parts))
            $texts = array_merge($texts, array(@implode('', $parts[1])));
        elseif (preg_match_all("#T[d|w|m|f]\s*(\(.*\))\s*Tj[\n|\r]#ismU", $textContainers[$j], $parts))
            $texts = array_merge($texts, array(@implode('', $parts[1])));
        elseif (preg_match_all("#T[d|w|m|f]\s*(\[.*\])\s*Tj[\n|\r]#ismU", $textContainers[$j], $parts))
            $texts = array_merge($texts, array(@implode('', $parts[1])));
    }

}

function getCharTransformations(&$transformations, $stream) {
    preg_match_all("#([0-9]+)\s+beginbfchar(.*)endbfchar#ismU", $stream, $chars, PREG_SET_ORDER);
    preg_match_all("#([0-9]+)\s+beginbfrange(.*)endbfrange#ismU", $stream, $ranges, PREG_SET_ORDER);

    for ($j = 0; $j < count($chars); $j++) {
        $count = $chars[$j][1];
        $current = explode("\n", trim($chars[$j][2]));
        for ($k = 0; $k < $count && $k < count($current); $k++) {
            if (preg_match("#<([0-9a-f]{2,4})>\s+<([0-9a-f]{4,512})>#is", trim($current[$k]), $map))
                $transformations[str_pad($map[1], 4, "0")] = $map[2];
        }
    }
    for ($j = 0; $j < count($ranges); $j++) {
        $count = $ranges[$j][1];
        $current = explode("\n", trim($ranges[$j][2]));
        for ($k = 0; $k < $count && $k < count($current); $k++) {
            if (preg_match("#<([0-9a-f]{4})>\s+<([0-9a-f]{4})>\s+<([0-9a-f]{4})>#is", trim($current[$k]), $map)) {
                $from = hexdec($map[1]);
                $to = hexdec($map[2]);
                $_from = hexdec($map[3]);

                for ($m = $from, $n = 0; $m <= $to; $m++, $n++)
                    $transformations[sprintf("%04X", $m)] = sprintf("%04X", $_from + $n);
            } elseif (preg_match("#<([0-9a-f]{4})>\s+<([0-9a-f]{4})>\s+\[(.*)\]#ismU", trim($current[$k]), $map)) {
                $from = hexdec($map[1]);
                $to = hexdec($map[2]);
                $parts = preg_split("#\s+#", trim($map[3]));

                for ($m = $from, $n = 0; $m <= $to && $n < count($parts); $m++, $n++)
                    $transformations[sprintf("%04X", $m)] = sprintf("%04X", hexdec($parts[$n]));
            }
        }
    }
}
function getTextUsingTransformations($texts, $transformations) {
    $document = "";
    for ($i = 0; $i < count($texts); $i++) {
        $isHex = false;
        $isPlain = false;

        $hex = "";
        $plain = "";
        for ($j = 0; $j < strlen($texts[$i]); $j++) {
            $c = $texts[$i][$j];
            switch($c) {
                case "<":
                    $hex = "";
                    $isHex = true;
                    $isPlain = false;
                    break;
                case ">":
                    $hexs = str_split($hex, $this->multibyte); // 2 or 4 (UTF8 or ISO)
                    for ($k = 0; $k < count($hexs); $k++) {

                        $chex = str_pad($hexs[$k], 4, "0"); // Add tailing zero
                        if (isset($transformations[$chex]))
                            $chex = $transformations[$chex];
                        $document .= html_entity_decode("&#x".$chex.";");
                    }
                    $isHex = false;
                    break;
                case "(":
                    $plain = "";
                    $isPlain = true;
                    $isHex = false;
                    break;
                case ")":
                    $document .= $plain;
                    $isPlain = false;
                    break;
                case "\\":
                    $c2 = $texts[$i][$j + 1];
                    if (in_array($c2, array("\\", "(", ")"))) $plain .= $c2;
                    elseif ($c2 == "n") $plain .= '\n';
                    elseif ($c2 == "r") $plain .= '\r';
                    elseif ($c2 == "t") $plain .= '\t';
                    elseif ($c2 == "b") $plain .= '\b';
                    elseif ($c2 == "f") $plain .= '\f';
                    elseif ($c2 >= '0' && $c2 <= '9') {
                        $oct = preg_replace("#[^0-9]#", "", substr($texts[$i], $j + 1, 3));
                        $j += strlen($oct) - 1;
                        $plain .= html_entity_decode("&#".octdec($oct).";", $this->convertquotes);
                    }
                    $j++;
                    break;

                default:
                    if ($isHex)
                        $hex .= $c;
                    elseif ($isPlain)
                        $plain .= $c;
                    break;
            }
        }
        $document .= "\n";
    }

    return $document;
}}

?>
