<?php 
declare(strict_types=0);
// echo '<meta http-equiv="refresh" content="5">';
foreach($_GET  as $key => $value){${$key}=trim($value);$_PARAMS[$key]=${$key};}  
foreach($_POST as $key => $value){${$key}=trim($value);$_PARAMS[$key]=${$key};}
include_once('lib_main.php');
$modu=strtolower($modu);


// CNMB CONASA Cuadro nacional medicamentos basicos
// MT940 formtato bancos SWIFT



if(!empty($empr)){$link_data=msql_connect('','','',$empr); $cfg_empr=$empr;}

$empr0=data_maes('empr',$cfg_empr);
     
echo '<div id="filtros" >';

$zobj=2;     
include('ele_break.php');

$zid='cmaes';
$ztype='checkbox';
$zlabel='Master';
$zvalue=$cmaes;
include('ele_input.php');  

$zid='imaes';
$ztype='checkbox';
$zlabel='Idx.Master';
$zvalue=$imaes;
include('ele_input.php');  

$zid='vmaes';
$ztype='checkbox';
$zlabel='View Master.';
$zvalue=$vmaes;
include('ele_input.php');  

$zid='ctran';
$ztype='checkbox';
$zlabel='Transacc.';
$zvalue=$ctran;
include('ele_input.php');  

$zid='itran';
$ztype='checkbox';
$zlabel='Idx. Transac.';
$zvalue=$itran;
include('ele_input.php');  


$zid='vtran';
$ztype='checkbox';
$zlabel='View Transac.';
$zvalue=$vtran;
include('ele_input.php');  


$zid='ldefa';
$ztype='checkbox';
$zlabel='List Defa.';
$zvalue=$ldefa;
include('ele_input.php');  


$zid='btn_ejecutar'; 
$zlabel='Ejecutar';
$zalign='right';
$zonclick='{fn_ejecuta(event);}';

include('ele_button.php');


$zsize=3;
include('ele_break.php');

echo '<div>';


echo '<div id="main2" >';
echo '<div>';

?>


<script>
function fn_ejecuta(event)
{
     var xhref='',dataget;
     xhref=xhref+'?scri=<?php echo basename(__FILE__,'.php');?>';
     dataget=new_FormData('filtros','get');
     xhref=xhref+dataget;
     document.getElementById("main2").innerHTML='Espere...';
     location.href=xhref;
}
</script>



<?php


if(1==1)
{
     $tmaes='';
     $tmaes.='empr,4;';
     $tmaes.='user,0;';
     $tmaes.='usrt,0;';
     $tmaes.='modu,4;';
     $tmaes.='docu,4;';
     $tmaes=explode(';',$tmaes);
     
     for($idx=0; $idx<count($tmaes); $idx++)
     {$param=explode(',',$tmaes[$idx]);crea_maes($param[0],$param[1]);}
     for($idx=0; $idx<count($tmaes); $idx++)
     {$param=explode(',',$tmaes[$idx]);alte_maes($param[0],$param[1]);}
//      for($idx=0; $idx<count($tmaes); $idx++)
//      {$param=explode(',',$tmaes[$idx]);defa_maes($param[0]);}
//      {defa_maes($tmaes[$xidx]);}
     

}


$tmaes='';
$ttran='';
if($cmaes=='true' or $cmaes==1)
{
     $tmaes.='clac,49;';
     $tmaes.='umdd,4;';
     $tmaes.='suco,2;';
     $tmaes.='prvc,2;';
     $tmaes.='pais,4;';
     $tmaes.='adrs,0;';
     $tmaes.='cntt,0;';
     $tmaes.='blog,0;';
     $tmaes.='pk12,0;';
     $tmaes.='logo,0;';
     
//      $tmaes.='ifin,4;';
     $tmaes.='bcos,4;';
     $tmaes.='cair,5;';
     $tmaes.='civa,2;';
     
     $tmaes.='ctas,12;';
     $tmaes.='enti,13;';
     $tmaes.='item,13;';
     $tmaes.='nvdd,13;';
     
     $tmaes.='stat,1;';
     $tmaes.='tcel,2;';
     $tmaes.='fpag,2;';
     $tmaes.='tlla,2;';
     $tmaes.='clor,6;';
     
     $tmaes.='clvh,6;';
     $tmaes.='mdvh,10;';
     $tmaes.='vinn,17;';
     $tmaes.='vwmi,3;';
     $tmaes.='plvh,7;';
     $tmaes.='pmdo,6;';
     $tmaes.='tmpr,0;';
     $tmaes.='tcvh,0;';
     
     $tmaes.='vhcl,7;';
     $tmaes.='mkvh,0;';
     
     $tmaes.='cntn,11;';
     $tmaes.='vssl,0;';
     $tmaes.='bldn,0;';
     
     $tmaes.='ciiu,10;';
     $tmaes.='rpis,0;';
     
     $tmaes.='ppdd,8;';
     $tmaes.='bbii,10;';
     
     $tmaes.='mrca,6;';
     $tmaes.='tpro,4;';
     $tmaes.='tcli,6;';
     
     $tmaes.='ptov,6;';
     $tmaes.='ptoe,6;';
     $tmaes.='bode,6;';
     $tmaes.='proc,6;';
     $tmaes.='caja,6;';
     $tmaes.='ctab,6;';
     $tmaes.='ccbb,6;';
//      $tmaes.='caba,6;';
     
     $tmaes.='asub,9;';
     $tmaes.='lsub,9;';
     $tmaes.='csub,9;';
     $tmaes.='zsub,9;';
     
     $tmaes.='kldd,6;';
     $tmaes.='tlla,2;';
     
     $tmaes.='lote,15;';
     $tmaes.='ipip,15;';
     $tmaes.='cdad,6;';
     
     if($empr0['empr_medico']==1)
     {
          $tmaes.='ciex,6;';
          $tmaes.='rgsn,30;';
          $tmaes.='cnmb,10;';
          $tmaes.='prac,10;';
     }
     
     
     $tmaes.='atrz,10;';
     $tmaes.='atrd,10;';
     
     $tmaes.='seri,0;';
     $tmaes.='srie,0;';
     
     $tmaes.='mt94,0;';
     $tmaes.='mbco,0;';
     $tmaes.='ulog,0;';
     
     $tmaes.='fdoc,0;';
     $tmaes.='imgd,0;';
     $tmaes.='imgi,0;';
     $tmaes.='imgt,0;';
     $tmaes.='imgp,0;';
     $tmaes.='imgb,0;';
     $tmaes.='imgv,0;';
     $tmaes.='imgm,0;';

     if($empr0['empr_codigo']=='jwib')
     {
          $tmaes.='bsqj,3;';
          $tmaes.='trty,7;';
          $tmaes.='lreu,6;';
          $tmaes.='cong,6;';
          $tmaes.='orat,2;';
          $tmaes.='jwol,10;';
          $tmaes.='jwtv,60;';
     }
     
     
//      $tmaes.='atri,0;';
     
     $tmaes.='senu,X;';
     
//      $tmaes='civa,2;';
     $tmaes=explode(';',$tmaes);
//      var_dump2($tmaes);
//      return;
     
     for($idx=0; $idx<count($tmaes); $idx++)
     {$param=explode(',',$tmaes[$idx]);crea_maes($param[0],$param[1]);}
     for($idx=0; $idx<count($tmaes); $idx++)
     {$param=explode(',',$tmaes[$idx]);alte_maes($param[0],$param[1]);}
     
}


if($cmaes=='true' and $empr0['empr_eduk']==1)
{
     // asignatura 4  mate leng ccnn eess sost scie tech rbtk
     // periodo escolar
     // course  psco(4)+asig
     $tmaes.='asig,4;';
     $tmaes.='psco,7;';
     $tmaes.='curs,0;';
     $tmaes.='nrol,0;';
     $tmaes=explode(';',$tmaes);
     for($idx=0; $idx<count($tmaes); $idx++)
     {$param=explode(',',$tmaes[$idx]);crea_maes($param[0],$param[1]);}
     for($idx=0; $idx<count($tmaes); $idx++)
     {$param=explode(',',$tmaes[$idx]);alte_maes($param[0],$param[1]);}
     
//      defa_modu();
     
}



if($imaes=='true')
{
     $sql_maes='select table_schema,table_name from information_schema.tables where table_name like "____0" ';
     $res_maes=msql_query($sql_maes,$link_data);
     
     while($aso_maes=msql_fetch_assoc($res_maes))
     {
          $tabla0=$aso_maes['table_name'];
          $tabla=substr($tabla0,0,4);
          
          crea_index($tabla0,'descri',$tabla.'_descri');
          crea_index($tabla0,'status',$tabla.'_status');
          crea_index($tabla0,'idate',$tabla.'_idate');
          crea_index($tabla0,'udate',$tabla.'_udate');
          crea_index($tabla0,'lused',$tabla.'_lused');
          
          if($tabla=='enti')
          {
               crea_index($tabla0,'zsub',$tabla.'_zsub');
               crea_index($tabla0,'tpro',$tabla.'_tpro');
          }
          
          if($tabla=='item')
          {
               crea_index($tabla0,'ean',$tabla.'_ean');
               crea_index($tabla0,'codigov',$tabla.'_codigov');
          }
          
          

     }
     
}

if($itran=='true')
{
     $sql_maes='select table_schema,table_name from information_schema.tables where table_name like "____1" ';
     $res_maes=msql_query($sql_maes,$link_data);
     
     while($aso_maes=msql_fetch_assoc($res_maes))
     {
          $tabla1=$aso_maes['table_name'];
          $tabla=substr($tabla0,0,4);
          $tabla2=substr($tabla0,0,4).'2';
          
          crea_index($tabla1,'docu','docu');
          crea_index($tabla1,'ptoe','ptoe');
          crea_index($tabla1,'numero','numero');
          crea_index($tabla1,'fecha','fecha');
          crea_index($tabla1,'enti','enti');
          crea_index($tabla1,'status','status');
          crea_index($tabla1,'iuser','iuser');
          crea_index($tabla1,'idate','idate');
          crea_index($tabla1,'udate','udate');

          if(mb_stristr2('vtas.clie',$tabla))
          {
               crea_index($tabla1,'claveacc','claveacc');
               crea_index($tabla1,'autorfec','autorfec');
               crea_index($tabla1,'ptov','ptov');
               crea_index($tabla1,'vndd','vndd');
               
               crea_index($tabla1,'plvh','plvh');
               crea_index($tabla1,'pcnt','pcnt');
          }

          if(mb_stristr2('otbj',$tabla))
          {
               crea_index($tabla1,'claveacc','claveacc');
               crea_index($tabla1,'ptov','ptov');
               crea_index($tabla2,'mcnc','mcnc');
               
               crea_index($tabla1,'plvh','plvh');
               crea_index($tabla1,'vinn','vinn');
          }

          if(mb_stristr2('comp.prov',$tabla))
          {
               crea_index($tabla1,'claveacc','claveacc');
               crea_index($tabla1,'autorfec','autorfec');
          }

          if($tabla=='retp')
          {
               crea_index($tabla1,'claveacc','claveacc');
               crea_index($tabla1,'autorfec','autorfec');
          }

          if($tabla=='guia')
          {
               crea_index($tabla1,'claveacc','claveacc');
               crea_index($tabla1,'autorfec','autorfec');
               
               crea_index($tabla1,'plvh','plvh');
          }

          if($tabla=='bode')
          {
               crea_index($tabla1,'bode','bode');
          }

          if($tabla=='caja')
          {
               crea_index($tabla1,'caja','caja');
          }

          if($tabla=='bcos')
          {
               crea_index($tabla1,'ctab','ctab');
          }

          crea_index($tabla2,'idnum2','idnum2');
     //      crea_index($tabla2,'iddet','idnum2,iddet');
          crea_index($tabla2,'iddet','');
          crea_index($tabla2,'docum','docum');
          crea_index($tabla2,'item','item');
          crea_index($tabla2,'ctas','ctas');

          crea_index($tabla2,'csub','csub');
          crea_index($tabla2,'status2','');

          
          

     }
     
     
}

if($ldefa=='true'or $ldefa==1)
{
     $sql_maes='select table_schema,table_name from information_schema.tables where table_name like "____0" ';
     $res_maes=msql_query($sql_maes,$link_data);
     
     while($aso_maes=msql_fetch_assoc($res_maes))
     {
          $tabla0=$aso_maes['table_name'];
          $tabla=substr($tabla0,0,4);
          
//           echo '<br>*/*/*/*/*/*/*/*/*/*/*/'.$tabla0;
          defa_maes($tabla);
//           crea_index($tabla0,'descri',$tabla.'_descri');
//           crea_index($tabla0,'status',$tabla.'_status');
//           crea_index($tabla0,'idate',$tabla.'_idate');
//           crea_index($tabla0,'lused',$tabla.'_lused');

     }
     
}



if($vmaes=='true')
{
     
     view_maes('enti','clie');
     view_maes('enti','empl');    
     view_maes('enti','prov');    
     view_maes('enti','pcnt');    
     view_maes('enti','ppdd');    
//      view_maes('enti','pcnt','enti_codigo in()');    
     view_maes('enti','bank','enti_descri like "%BANCO%"');    
     
     view_maes('asub','atvd');     
     
     
}



if($ctran=='true' or $ctran==1)
{
     $tran='';
//      $tran.='guia;';
     
     $tran.='acce;';
     $tran.='autr;';
     $tran.='agnd;';
     $tran.='btcr;';
     $tran.='avso;';
     
     $tran.='cont;';
     
     $tran.='vtas;';
     $tran.='clie;';
     $tran.='carr;';
     $tran.='guia;';
     
     $tran.='comp;';
     $tran.='prov;';
     $tran.='lpro;';
     
     $tran.='inve;';
     $tran.='infi;';
//      $tran.='prod;';
     $tran.='pduc;';
     
     $tran.='dxco;';
     $tran.='dxpa;';
     
     $tran.='caja;';
     $tran.='bcos;';
     $tran.='tsor;';
     
     $tran.='susa;';
     $tran.='nomi;';
     $tran.='atvd;';
     
     $tran.='retc;';
     $tran.='retp;';
//      $tran.=';';
     $tran.='plan;';
     
//      if($empr0['empr_taller']==1)
//      {$tran.='htec;';}
     
     if($empr0['empr_taller']==1)
     {$tran.='otbj;';}
     
     if($empr0['empr_clinica']==1 or $empr0['empr_veterinaria']==1)
     {$tran.='hcli;';}
     
     if($empr0['empr_medico']==1 or $empr0['empr_veterinaria']==1)
     {$tran.='rmed;'; }
//      $tran.='frml;'; //formula producto
     
     $tran=explode(';',$tran);
     for($idx=0; $idx<count($tran); $idx++){crea_tran($tran[$idx]);}
     for($idx=0; $idx<count($tran); $idx++){alte_tran($tran[$idx]);}
     
}


if($ctran=='true' and $empr0['empr_eduk']==1)
{
     $tran='';
     $tran.='nota;';
     $tran.='acta;';
     $tran=explode(';',$tran);
     for($idx=0; $idx<count($tran); $idx++){crea_tran($tran[$idx]);}
     for($idx=0; $idx<count($tran); $idx++){alte_tran($tran[$idx]);}
}

if($ctran=='true' and $empr0['empr_codigo']=='jwib')
{
     $tran='';
     $tran.='jwib;';
     $tran.='jwiv;';
     $tran.='jwrt;';
     $tran.='jwmc;';
     $tran.='jwrv;';
     $tran.='jwrt;';
     $tran=explode(';',$tran);
     
     
     for($idx=0; $idx<count($tran); $idx++){crea_tran($tran[$idx]);}
     for($idx=0; $idx<count($tran); $idx++){alte_tran($tran[$idx]);}
     
  
}  



// if($cfg_empr=='jwib')


function crea_index($tabla,$index,$clave='')
{
//      echo '<br> IDX ==> '.$tabla;

     if(empty($tabla) or empty($index)){return;}
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}

     $sql_drop='alter table '.$tabla.' drop key '.$index.' ';
     $res_drop=msql_query($sql_drop,$link_data);
     
     if(!empty($clave))
     {
          $sql_indx='create index '.$index.' on '.$tabla.' ('.$clave.') ';
          $res_indx=msql_query($sql_indx,$link_data);
     }
     
     echo '<br> IDX ==> '.$tabla.' :: '.$index.' '.$clave;
     
     return;
}



// die();



// $tran='';
// $tran.='clie;';
// $tran.='vtas;';
// $tran.='hcli;';
// $tran.='guia;';
// $tran.='comp;';
// $tran.='caja;';
// $tran.='bcos;';
// $tran.='tsor;';
// $tran.='prov;';
// $tran.='inve;';
// $tran.='infi;';
// $tran.='ifis;';
// $tran.='prod;';

// $tran.='opro;';
// $tran.='pduc;';

// // $tran.='otra;';
// // $tran.='trbj;';


// $tran.='retc;';
// $tran.='retp;';
// $tran.='dxco;';
// $tran.='dxpa;';
// $tran.='cont;';
// $tran.='plan;';
// $tran.='atvd;';
// $tran.='acce;';
// $tran.='afij;';
// $tran.='susa;';
// $tran.='nomi;';
// $tran.='nvdd;';

if($cfg_empr=='soft')
{
     crea_maes('mtch',0);
     crea_maes('liga',4);
     crea_maes('torn',0);
     crea_maes('team',4);
     crea_maes('rost',0);
     crea_maes('nive',4); 
     crea_maes('posi',2); 
     
     $tran.='soft;';
     $tran.='sbok;';
     $tran.='liup;';
}

// $tran=explode(';',$tran);

// for($idx=0; $idx<count($tran); $idx++){crea_tran($tran[$idx]);}
// for($idx=0; $idx<count($tran); $idx++){alte_tran($tran[$idx]);}


if($cfg_empr=='soft')
{
   alte_maes('liga');
   alte_maes('torn');
   alte_maes('rost');
   alte_maes('posi');
   alte_maes('nive');
   alte_maes('team');
   alte_maes('mtch');
     
   alte_tran('soft');
   alte_tran('sbok');
}

echo '<br>';


// defa_maes();
// defa_docu();


return;

//////////////////////////////

function defa_maes($maes)
{
//      if($maes!='docu'){return;}
     
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}

     echo '<br>';
     echo '<br> =======>>> LIST DEFAULT '.$maes;
     
$empr0=data_maes('empr',$cfg_empr);
     
// function defa_empr()
if($maes=='empr')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['subdom'];}
     $empr0=data_maes('empr',$cfg_empr);

//      $sql_modu='insert into modu0(modu_codigo,modu_idate)value("EMPR",now())';
//      $res_modu=msql_query($sql_modu,$link_data);
     
//      $sql_modu='update modu0 set modu_descri="EMPRESA", modu_udate=now() where modu_codigo="EMPR"';
//      $res_modu=msql_query($sql_modu,$link_data);
     
     $sql_empr='delete from empr0 where empr_codigo not like "'.$cfg_empr.'"';
     $res_empr=msql_query($sql_empr,$link_data);
     
     $sql_empr='select * from empr0 where empr_codigo like "'.$cfg_empr.'"';
     $res_empr=msql_query($sql_empr,$link_data);
     if(msql_num_rows($res_empr)==0)
     {
          $sql_empr='insert into empr0(empr_codigo)value("'.$cfg_empr.'")';
          $res_empr=msql_query($sql_empr,$link_data);
     }
     
//      $sql_empr ='update empr0 set ';
//      $sql_empr.='empr_descri=case when ifnull(empr_descri,"") then "NUEVO RUC" else trim(empr_descri) end ';
//      $res_empr=msql_query($sql_empr,$link_data);
     
//      $sql_empr ='update empr0 set ';
//      $sql_empr.='empr_ruc=case when ifnull(empr_ruc,"") then "9999999999999" else trim(empr_ruc) end ';
//      $res_empr=msql_query($sql_empr,$link_data);

     
}

// function defa_user()
if($maes=='user')
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
          
//      new_maes($maes,1);
//      new_maes($maes,2);
//      new_maes($maes,3);
     
     $newcod=1;
     $sql_user='select * from user0 where user_codigo='.$newcod;
     $res_user=msql_query($sql_user,$link_data);
     if(msql_num_rows($res_user)==0){msql_query('insert into user0(user_codigo)value("'.$newcod.'")',$link_data);}
                                     
     $newcod=2;
     $sql_user='select * from user0 where user_codigo='.$newcod;
     $res_user=msql_query($sql_user,$link_data);
     if(msql_num_rows($res_user)==0){msql_query('insert into user0(user_codigo)value("'.$newcod.'")',$link_data);}
                                     
     $newcod=3;
     $sql_user='select * from user0 where user_codigo='.$newcod;
     $res_user=msql_query($sql_user,$link_data);
     if(msql_num_rows($res_user)==0){msql_query('insert into user0(user_codigo)value("'.$newcod.'")',$link_data);}
     
     $sql_user ='update user0 set ';
     $sql_user.='user_descri="INVITADO", ';
     $sql_user.='user_cedula="9999999999", ';
     $sql_user.='user_celular="9999999999", ';
     $sql_user.='user_email="invitado@vcrxol.com", ';
     $sql_user.='user_nickname="invitado", ';
     $sql_user.='user_clave=md5("guest12345+-*/!$%&"), ';
     $sql_user.='user_tipo="invi" ';
     $sql_user.='where user_codigo=1 ';
     msql_query($sql_user,$link_data);
     
     $sql_user ='update user0 set ';
     $sql_user.='user_descri="VICENTE RUIZ", ';
     $sql_user.='user_cedula="0915379374", ';
     $sql_user.='user_celular="0996030568", ';
     $sql_user.='user_email="vicore@hotmail.com", ';
     $sql_user.='user_nickname="vicore", ';
     $sql_user.='user_clave=md5("vare76"), ';
     $sql_user.='user_tipo="sist" ';
     $sql_user.='where user_codigo=2 ';
     msql_query($sql_user,$link_data);

     $sql_user ='update user0 set ';
     $sql_user.='user_descri="VICORE RUIZ", ';
     $sql_user.='user_cedula="0915379374", ';
     $sql_user.='user_celular="0996030568", ';
     $sql_user.='user_email="vicore1976@gmail.com", ';
     $sql_user.='user_nickname="vicore1976", ';
     $sql_user.='user_clave=md5("vare76"), ';
     $sql_user.='user_tipo="invi" ';
     $sql_user.='where user_codigo=3 ';
     msql_query($sql_user,$link_data);

}

     
if($maes=='enti')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
//      inse_maes($maes,"9999999999","_CONSUMIDOR FINAL");     
     inse_maes($maes,"9999999999999","_CONSUMIDOR FINAL");     
}

if($maes=='item')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     inse_maes($maes,"9999999999999","_VARIOS");     
}

if($maes=='item' )	
{
//      set_impo0();    

//      $sql_item='delete from item0 where item_codigo like "9910%"';
//      $res_item=msql_query($sql_item,$link_data);

//      $sql_item='update item0 set item_cair="312A" where item_descri like "%312A%"';
//      $res_item=msql_query($sql_item,$link_data);

     $sql_item='update item0 set item_status="X" where item_codigo like "9900%" and length(trim(item_codigo))<10';
     $res_item=msql_query($sql_item,$link_data);

     $prefix='9900';
     $sql_cair='select * from cair0 where cair_codigo>0 order by cair_codigo';
     $res_cair=msql_query($sql_cair,$link_data);
     while($aso_cair=msql_fetch_assoc($res_cair))
     {
          $cair=trim($aso_cair['cair_codigo']);
          $cair1=substr($cair,0,3) ;
          $cair2=substr($cair,3,1) ;
          $cair3=substr($cair,4,1) ;

          for($xconta=65; $xconta<=90; $xconta++)
          {
          $cair2=str_replace(chr($xconta),$xconta-64,$cair2);
          }
          $cair2=fillzero(trim($cair2),1);
          $cair3=fillzero(trim($cair3),1);

          $itemcod=$prefix.$cair1.''.$cair2.$cair3;
          $verif=val_ean($itemcod);
          $itemcod=$itemcod.$verif;

          $desc=$cair.' - '.$aso_cair['cair_descri'];
          $sql_inse ='insert into item0(item_codigo)';
          $sql_inse.='value("'.$itemcod.'")';
          msql_query($sql_inse,$link_data);

          $sql_item ='update item0 set ';
          $sql_item.='item_descri="'.$desc.'",';
          $sql_item.='item_tipo="CAIR",';
          $sql_item.='item_cair="'.$cair1.'",';
          $sql_item.='item_codigov="'.$cair1.'",';
          $sql_item.='item_lused=now(),';
          $sql_item.='item_status="-" ';
          $sql_item.='where item_codigo like "'.$itemcod.'"';
          $res_item=msql_query($sql_item,$link_data);


     }
     $sql_item='update item0 set item_prov=1 where item_codigo like "9900%"';
     $res_item=msql_query($sql_item,$link_data);

}
     
if($maes=='modu')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     
//      inse_maes($maes,"EMPR","EMPRESA");     
     inse_maes($maes,"EMPR","EMPRESA");     
     inse_maes($maes,"VTAS","Ventas");     
     inse_maes($maes,"COMP","Compras");     
     inse_maes($maes,"CLIE","Clientes");     
     inse_maes($maes,"PROV","Proveedores");     
     inse_maes($maes,"CARR","Carrito Compras");     
     inse_maes($maes,"LPRO","Lista Proveed.");     
     
     inse_maes($maes,"CCBB","Caja & Bancos");     
     inse_maes($maes,"CAJA","Caja");     
     inse_maes($maes,"BCOS","Bancos");     
//      inse_maes($maes,"TSOR","Tesoreria");     
     inse_maes($maes,"DXCO","Doc.X Cobrar");     
     inse_maes($maes,"DXPA","Doc.X Pagar");     
     
     inse_maes($maes,"CXCO","Cta.X Cobrar");     
     inse_maes($maes,"CXPA","Cta.X Pagar");     
     
     inse_maes($maes,"GUIA","Guía Remis.");     
     inse_maes($maes,"INFI","Inv.Físico");     
     inse_maes($maes,"INVE","Inventario");     
     inse_maes($maes,"PROD","Producción");     
     inse_maes($maes,"PDUC","Producción");     
     inse_maes($maes,"OTBJ","Taller");     
     
     inse_maes($maes,"CONT","Contabilidad");     
     inse_maes($maes,"IMPO","Importaciones");     
     inse_maes($maes,"SRI1","S.R.I.");     
     
     inse_maes($maes,"RETC","Reten. Clientes");     
     inse_maes($maes,"RETP","Reten. Proveedores");     
     
     inse_maes($maes,"SUSA","Sueldos");     
     inse_maes($maes,"NOMI","Nóminas");     
     
     inse_maes($maes,"ACCE","Accesos");     
     inse_maes($maes,"CLDR","Calendario");    
     inse_maes($maes,"BTCR","Bitácora");    
     
     if($empr0['empr_taller']==1)
     {inse_maes($maes,"HTEC","Historia Técnica");}
     
//      if($empr0['empr_taller']==1)
//      {inse_maes($maes,"OTJB","Historia Técnica");}
     
     if($empr0['empr_clinica']==1 or $empr0['empr_veterinaria']=1)
     {inse_maes($maes,"HCLI","Historia Clínica");}
     
     if($empr0['empr_medico']==1 or $empr0['empr_veterinaria']=1)
     {inse_maes($maes,"RMED","Recetas Médicas");}
     
     if($empr0['empr_codigo']=='jwib')
     {
          inse_maes($maes,"JWRV","Reg.Visita");
          inse_maes($maes,"JWRT","Reg.Territorio");     
//           inse_maes($maes,"TRTY","Territorios");     
          
          inse_maes($maes,"ASEM","Asig.Semanales");     
          inse_maes($maes,"SMMA","Mejores Maestros");     
          inse_maes($maes,"VIDA","Vida Cristiana");     
          inse_maes($maes,"JWIB","Asignaciones");     
          inse_maes($maes,"SEMA",".");     
          
     }
}

     
if($maes=='caja')     
{
//      if(empty($link_data)){$link_data=$_SESSION['link_data'];}
//      if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
//      $empr0=data_maes('empr',$cfg_empr);
     inse_maes($maes,"001001","001001");     
//      inse_maes($maes,"001101","001101");
     
     $sql_updt='update caja0 set caja_ptoe=caja_codigo where ifnull(caja_ptoe,"")=""';
     $res_updt=msql_query($sql_updt,$link_data);
}
     
if($maes=='ptov')     
{
//      if(empty($link_data)){$link_data=$_SESSION['link_data'];}
//      if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
//      $empr0=data_maes('empr',$cfg_empr);
     inse_maes($maes,"001001","001001");     
     inse_maes($maes,"001101","001101");
     
     $sql_updt='update ptov0 set ptov_ptoe=ptov_codigo where ifnull(ptov_ptoe,"")=""';
     $res_updt=msql_query($sql_updt,$link_data);
}
     
if($maes=='ptoe')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     inse_maes($maes,"001001","001001");     
     inse_maes($maes,"001101","001101");     
}
     
if($maes=='bode')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     inse_maes($maes,"001001","GENERAL");     
}
     
if($maes=='caja')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     inse_maes($maes,"001001","C.GENERAL");   
//      tipo RCDD PAGO CHQF
}
     
if($maes=='ctab')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     inse_maes($maes,"001001","CTA.BANC.");     
//      tipo CAHO CCTE TCRE
}
     
if($maes=='ccbb')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     inse_maes($maes,"001001","C.GENERAL");     
//      tipo CAHO CCTE TCRE
}
     
     
if($maes=='docu')     
{
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);

     if($empr0['empr_eduk']==1)
     {
          set_docu("PSCO","MAES","psco","PERIODO ESCOLAR");
          set_docu("CURS","MAES","curs","CURSO");
          set_docu("NROL","MAES","nrol","ENROLAMIENTO");
     }
     
//      if($cfg_empr=='jwib')
     if($empr0['empr_codigo']=='jwib')
     {
		set_docu("DPU1","TRAN","jwib","REUNION PUBLICA");
		set_docu("DPU2","TRAN","jwib","DISCURSANTES");

		set_docu("EATA","TRAN","jwib","ATALAYA");
		set_docu("ELIB","TRAN","jwib","LIBRO");

		set_docu("CART","TRAN","jwib","CARTAS");
		set_docu("VARI","TRAN","jwib","VARIOS");

		set_docu("VM11","TRAN","jwib","VIDA Y MINISTERIO");
		set_docu("VM21","TRAN","jwib","TESOROS DE LA BIBLIA");
		set_docu("VM41","TRAN","jwib","NUESTRA VIDA CRISTIANA");
		set_docu("VM19","TRAN","jwib","ORACION");
	//  	set_docu("VM99","TRAN","jwib","ORACION FINAL");

          
		set_docu("RVST","TRAN","jwrv","REG.VISITA");
		set_docu("RTRT","TRAN","jwrt","REG.TERRIT.");
		set_docu("RATR","X","","");
          
		set_docu("VM30","TRAN","jwib","LECTURA");
          
// 		set_docu("VM31","TRAN","jwib","1ra CONVERSACION");
// 		set_docu("VM32","TRAN","jwib","REVISITA");
// 		set_docu("VM33","TRAN","jwib","CURSO BIBLICO");
// 		set_docu("VM34","TRAN","jwib","CURSO BIBLICO");

		set_docu("VM31","TRAN","jwib","Asig.1");
		set_docu("VM32","TRAN","jwib","Asig.2");
		set_docu("VM33","TRAN","jwib","Asig.3");
		set_docu("VM34","TRAN","jwib","Asig.4");

		set_docu("AS10","TRAN","jwib","ARREGLOS SEMANALES");
		set_docu("AS11","TRAN","jwib","PRESIDENCIA");
		set_docu("AS12","TRAN","jwib","PLATAFORMA");
		set_docu("AS13","TRAN","jwib","MICROFONOS");
		set_docu("AS14","TRAN","jwib","ACOMODADORES");
		set_docu("AS15","TRAN","jwib","PARQUEO");
		set_docu("AS16","TRAN","jwib","SEGURIDAD");
		set_docu("AS19","TRAN","jwib","ASEO");

		set_docu("ASIS","TRAN","jwib","ASISTENCIA");
		set_docu("REU1","TRAN","jwib","ASISTENCIA");
		set_docu("REU2","TRAN","jwib","ASISTENCIA");
         
          set_docu("MDC0","TRAN","jwmc","PROGRAMA MDC");
          set_docu("MDC1","TRAN","jwmc","Casa/Casa");
          set_docu("MDC2","TRAN","jwmc","Cartas");
          set_docu("MDC3","TRAN","jwmc","Teléfono");
          set_docu("MDC4","TRAN","jwmc","Calles");
          set_docu("MDC5","TRAN","jwmc","Pública");
          
     }
     
     set_docu("ENTI","MAES","enti","ENTIDADES");
     set_docu("EMPR","MAES","empr","EMPRESA");
     set_docu("MODU","MAES","modu","MODULOS");

     
     set_docu("AVS1","TRAN","avso","AVISO");
     set_docu("BTC1","TRAN","btcr","BIT. INGRESO");
     set_docu("BTC2","TRAN","btcr","BIT. SALIDA");
     
     set_docu("AXU1","TRAN","acce","ACCESO X USUARIO");
     set_docu("AXU2","TRAN","acce","ACCESO X USUARIO");
     set_docu("ACT1","X");
     set_docu("ATVD","TRAN","acti","ACTIVIDAD");


     
//      if($empr0['empr_taller']==1)
//      {set_docu("HTV1","TRAN","htec","HIST.TEC.VEHICULO");}
     
     if($empr0['empr_taller']==1)
     {set_docu("OT10","TRAN","otbj","ORDEN DE TRABAJO");}
     
     if($empr0['empr_clinica']==1 or $empr0['empr_veterinaria']=1)
     {set_docu("HCLI","TRAN","hcli","HISTORIA CLINICA");}
     
     if($empr0['empr_medico']==1 or $empr0['empr_veterinaria']=1)
     {
     set_docu("RMED","TRAN","rmed","RECETA MED.");
     set_docu("RMD1","TRAN","rmed","RECETA MED.");
     }
     
     
     
     
     set_docu("GR10","TRAN","guia","GUIA REMISION");
     set_docu("GR20","TRAN","guia","GUIA REMISION RECIBIDA");
     
     set_docu("FC10","TRAN","vtas","FACTURA CLIE");
     set_docu("FC50","TRAN","vtas","N/DEBITO CLIE");
     set_docu("NC10","TRAN","vtas","N/CREDITO CLIE");
     
     set_docu("FC90","TRAN","vtas","NO/VENTA");
     
     set_docu("FP10","TRAN","comp","FACTURA PROVEEDOR");
     set_docu("RCLI","TRAN","retc","RETENCION CLIE");
     set_docu("RPRO","TRAN","retp","RETENCION PROV");
     set_docu("RBCO","TRAN","retc","RETENCION BANC");

     set_docu("NP10","TRAN","comp","N/C PROVEEDOR");

     set_docu("DD00","TRAN","cont","DIARIO INICIAL");
     set_docu("DD10","TRAN","cont","DIARIO CONTABLE");
     set_docu("DTR1","TRAN","cont","DIARIO TRANSF.RESULTADOS");

     set_docu("GR10","TRAN","guia","GUIA REMISION");

     set_docu("FP01","TRAN","comp","FACTURA PROVEEDOR");
     set_docu("FP02","TRAN","comp","NOTA VENTA (RISE)");
     set_docu("FP03","TRAN","comp","LIQ.COMPRA");
     set_docu("FP05","TRAN","comp","N/DEBITO PROV");

     set_docu("FP15","TRAN","comp","FACTURA DEL EXTERIOR");
     set_docu("FP16","TRAN","comp","LIQUIDACION ADUANERA");
     set_docu("DA16","TRAN","prov","DECLARACION ADUANERA DE IMPORTACION");
     set_docu("FP19","TRAN","comp","COMP.CUOTA/APORTE");

     set_docu("FP41","TRAN","comp","FACT.PROV.REEMBOLSO");

//      set_docu("FP90","TRAN","comp","COMP. SIN COMPROBANTE");
     set_docu("FP90","TRAN","comp","GASTO NO DEDUCIBLE");
     set_docu("NP10","TRAN","comp","N/CREDITO PROV");
     // 		set_docu("NC20","TRAN","comp","N/C PROVEEDOR");


     set_docu("CC00","X");
     set_docu("CP00","X");

     set_docu("SC00","X");
     set_docu("SP00","X");

     set_docu("KC00","X");
     set_docu("KP00","X");

     set_docu("XC00","TRAN","dxco","CXC INICIAL");
     set_docu("XP00","TRAN","dxpa","CXP INICIAL");

     set_docu("LC00","TRAN","dxco","CXC INICIAL");
     set_docu("LP00","TRAN","dxpa","CXP INICIAL");

     set_docu("AC10","TRAN","dxco","ANTICIPO DE CLIENTE");
     set_docu("AC11","TRAN","caja","LIQ.ANTICIPO CLIE");
     set_docu("AC12","TRAN","caja","RECLASIFICA ANTICIPO");
//      set_docu("AC12","X");

     set_docu("AP10","TRAN","dxpa","ANTICIPO A PROVEEDOR");
     set_docu("AP11","TRAN","caja","LIQ.ANTICIPO PROV");

     set_docu("CC10","TRAN","dxco","CANCELA CXC");
     set_docu("CP10","TRAN","dxpa","CANCELA CXP");

     set_docu("CC11","TRAN","dxco","CANCELA CXC (CRUCE CTA.)");
     set_docu("CP11","TRAN","dxpa","CANCELA CXP (CRUCE CTA.)");

     set_docu("CC12","TRAN","dxco","CANCELA CXC DCTO.COMI.");


     set_docu("XC10","TRAN","dxco","REVERSO COBRO");
     set_docu("XP10","TRAN","dxpa","REVERSO PAGO");

     set_docu("CC15","TRAN","dxco","CANCELA CXC(COMPEN)");
     set_docu("CP15","TRAN","dxpa","CANCELA CXP(COMPEN)");

     set_docu("XC15","TRAN","dxco","REVERSO COBRO(COMPEN)");
     set_docu("XP15","TRAN","dxpa","REVERSO PAGO(COMPEN)");

     set_docu("CC17","TRAN","dxco","CANCELA CXC(AJUSTE)");
     set_docu("CP17","TRAN","dxpa","CANCELA CXP(AJUSTE)");

     set_docu("XC17","TRAN","dxco","REVERSO COBRO(AJUSTE)");
     set_docu("XP17","TRAN","dxpa","REVERSO PAGO(AJUSTE)");

//      set_docu("CC18","TRAN","dxco","CANCELA CXC(AUTO)");
//      set_docu("CP18","TRAN","dxpa","CANCELA CXP(AUTO)");

//      set_docu("XC18","TRAN","dxco","REVERSO COBRO(AUTO)");
//      set_docu("XP18","TRAN","dxpa","REVERSO PAGO(AUTO)");

     set_docu("CC19","TRAN","dxco","CANCELA CXC(AUTOCON)");

     set_docu("CO10","X");
     set_docu("CO11","X");


     set_docu("IE00","TRAN","caja","APERTURA CAJA");

     set_docu("IE10","TRAN","caja","ING.EFECTIVO");
     set_docu("ICH1","TRAN","caja","ING.CHEQUE");
     set_docu("ECH1","TRAN","caja","CHEQUE DEPOSITADO");
//      set_docu("ECH2","TRAN","caja","DEV.CHEQUE A CLIE");
     set_docu("ECH2","TRAN","caja","CHEQUE GIRADO");
     set_docu("EE10","TRAN","caja","EGRESO EFECTIVO");
     // 		set_docu("EE19","TRAN","caja","CIERRE CAJA");
     set_docu("EE19","TRAN","caja","EGRESO X NOMINA");

     set_docu("EE90","TRAN","caja","");
     set_docu("EE99","TRAN","caja","CIERRE CAJA");

     set_docu("IE13","TRAN","caja","ING.TRANSF.CAJA/BANCO");
     set_docu("EE13","TRAN","caja","EGR.TRANSF.CAJA/BANCO");

     set_docu("IV10","TRAN","caja","ING.VOUCHER T/C");
     set_docu("IV11","TRAN","caja","RECAP T/C");

     set_docu("DB00","TRAN","bcos","SALDO INICIAL");

     set_docu("DC10","TRAN","bcos","DEP. CLIENTE");
     set_docu("DC13","TRAN","bcos","TRF. CLIENTE");
     set_docu("DB10","TRAN","bcos","DEP. BANCARIO");

     set_docu("ND13","TRAN","bcos","RETI.TRANSF.CAJA/BANCO");
     set_docu("DB13","TRAN","bcos","DEPO.TRANSF.CAJA/BANCO");
     // 		set_docu("DB11","TRAN","bcos","DEP. DESDE CAJA");
     msql_query('delete from docu0 where docu_codigo="DB11"',$link_data);


     set_docu("CH10","TRAN","bcos","CHEQUE");
     // 		set_docu("CH99","TRAN","bcos","RETIRO EFECTIVO");
     set_docu("EC10","X");
     set_docu("TR10","X");
     // 		set_docu("CH13","TRAN","bcos","CHEQUE TRANSFER.");
     // 		set_docu("CH90","TRAN","bcos","CHEQUE");
     set_docu("DP10","TRAN","bcos","DEB.PROVEEDOR");
     set_docu("DP90","TRAN","bcos","DEB.X NOMINA");
     set_docu("ND10","TRAN","bcos","NOTA /DEBITO");
     set_docu("ND17","TRAN","bcos","N/D RET.BCOS.");

     set_docu("PR10","TRAN","bcos","CHEQ. PROTES.");
     set_docu("PR11","TRAN","bcos","MULTA X CH.PROTES.");

     set_docu("EV10","TRAN","bcos","PAGO CON T/C");
     set_docu("EV11","TRAN","bcos","CXP T/C");
     // 		set_docu("DE10","TRAN","bcos","DINERO ELECTRONICO");

     set_docu("RCLI","TRAN","retc","RETENCION CLIENTE");
     set_docu("RPRO","TRAN","retp","RETENCION PROVEEDOR");
     // 		set_docu("RBCO","TRAN","retb","RETENCION BANCO");

     // 		set_docu("RETC","TRAN","rete","RETENCION CLIENTE");
     // 		set_docu("RETP","TRAN","rete","RETENCION PROVEEDOR");

     // 		set_docu("IF00","TRAN","infi","INVENTARIO FISICO");
     set_docu("TFI1","TRAN","infi","TOMA FISICA INVENTARIO");
     set_docu("TFA1","TRAN","infi","TOMA FISICA ACTIVOS");

     set_docu("IB00","TRAN","inve","SALDO INICIAL");

     set_docu("IB10","TRAN","inve","ING.X COMPRA");
     set_docu("IB11","TRAN","inve","ING.X CAMBIO");
     set_docu("IB12","TRAN","inve","ING.X DEVOLUCION");
     set_docu("IB13","TRAN","inve","ING.X TRANSFERENCIA");
     set_docu("IB14","TRAN","inve","ING.X PRODUCCION");
     set_docu("IB15","TRAN","inve","ING.X IMPORTACION");

     set_docu("IB16","TRAN","inve","ING.X CONSIGNACION");
     set_docu("IB17","TRAN","inve","ING.X AJUSTE");
     set_docu("IB18","TRAN","inve","ING.X OPENPACK");

     
     
     set_docu("EB10","TRAN","inve","EGR.X VENTA");
     set_docu("EB11","TRAN","inve","EGR.X CAMBIO");
     set_docu("EB12","TRAN","inve","EGR.X DEVOLUCION");
     set_docu("EB13","TRAN","inve","EGR.X TRANSFERENCIA");
     set_docu("EB14","TRAN","inve","EGR.X PRODUCCION");
     // 		set_docu("EB15","TRAN","inve","EGRESO X REPROCESO");
     set_docu("EB15","TRAN","inve","EGRESO X EXPORTACION");
     // 		set_docu("EB15","TRAN","inve","EGR.X CONSUMO");
     set_docu("EB16","TRAN","inve","EGR.X CONSIGNACION");
     set_docu("EB17","TRAN","inve","EGR.X AJUSTE /BAJA");
     set_docu("EB18","TRAN","inve","EGR.X OPENPACK");
     set_docu("EB19","TRAN","inve","EGR.X CONSUMO");

     set_docu("IB20","TRAN","inve","INGR. ALMACENAJE");
     set_docu("EB20","TRAN","inve","EGRE. ALMACENAJE");
     
     set_docu("PO10","TRAN","pduc","REG.PROCESO");
     
     
//      set_docu("IP10","TRAN","prod","INGRESO A PROCESO");
//      set_docu("EP10","TRAN","prod","EGRESO DE PROCESO");
     set_docu("IP10","TRAN","ppro","ENTRA A PROCESO");
     set_docu("EP10","TRAN","ppro","SALE DE PROCESO");
     //     set_docu("EP10","X");
     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("EB20","EGRESO X NOMINA","INVE")',$link_data);

     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("DC12","DEPOSITO X ANTICIPO","BCOS")',$link_data);

     set_docu("LCL1","TRAN","carr","LISTA DE CLIENTE");
     set_docu("LCL2","TRAN","carr","LISTA DE CLIENTE");
     // 		set_docu("CTZ1","TRAN","carr","CARRITO DE COMPRAS");
     set_docu("CAR1","TRAN","carr","CARRITO DE COMPRAS");
     set_docu("CAR2","TRAN","carr","FAVORITOS");

     set_docu("PF10","TRAN","clie","PROFORMA");
     set_docu("PF19","TRAN","clie","PROFORMA ONLINE");
     // 		set_docu("PF","TRAN","clie","PRE-FACTURA");

     set_docu("PC10","TRAN","clie","PEDIDO CLIENTE");
     set_docu("PC19","TRAN","clie","PEDIDO ONLINE");

     //PEDIDOS X MESA CLIENTE / RESTAURANTES
     //PLANILLA DE SERVICIOS  / HOTELES CLINICAS TECNISERVICIOS 

     //     set_docu("SC01","TRAN","clie","SUSCRIPCION MENSUAL");
     //     set_docu("SC03","TRAN","clie","SUSCRIPCION TRIMESTRAL");
     //     set_docu("SC06","TRAN","clie","SUSCRIPCION SEMESTRAL");
     //     set_docu("SC12","TRAN","clie","SUSCRIPCION ANUAL");

     set_docu("SC01","X");
     set_docu("SC03","X");
     set_docu("SC06","X");
     set_docu("SC12","X");

     set_docu("CM10","TRAN","comi","COMISION");
     set_docu("CM01","X");
     set_docu("CM02","X");
     set_docu("CM03","X");
     set_docu("CM04","X");
     set_docu("CM05","X");
     //     set_docu("CM02","TRAN","comi","COMISION 2");
     //     set_docu("CM03","TRAN","comi","COMISION 3");
     //     set_docu("CM04","TRAN","comi","COMISION 4");
     //     set_docu("CM05","TRAN","comi","COMISION 5");
     //     set_docu("CMV1","TRAN","comi","COMISION");

     set_docu("OP10","TRAN","opro","ORDEN PRODUCCION");
     set_docu("OP17","TRAN","opro","ORDEN FERTILIZACION");

     set_docu("PLA1","TRAN","plan","PLANIFICACION");
     set_docu("ATV1","TRAN","atvd","ACTIVIDADES");
     //     set_docu("ATV1","TRAN","acti","ACTIVIDADES");


     // 		set_docu("OP50","TRAN","prod","ORDEN SERVICIO");
     // 		set_docu("OP10","TRAN","clie","PEDIDO");
     // 		set_docu("OP19","TRAN","clie","PEDIDO ONLINE");

     set_docu("LP10","TRAN","lpro","LISTA PROVEEDURIA");
//      set_docu("LP10","TRAN","prov","LISTA DE COMPRA");
     set_docu("PS10","TRAN","prov","SOLIC.COMPRA");
     set_docu("PP10","TRAN","prov","O.COMPRA");
//      echo 'AAAAAAAAAAAAAAAAQUIIIIII 1';
     set_docu("PP15","TRAN","prov","O.COMPRA EXTE.");
     set_docu("PT10","TRAN","prov","COTIZA PROVEED.");
     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("OP16","PEDIDO A CONSIGNACION","CLIE")',$link_data);
     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("OP90","PEDIDO X NOMINA","CLIE")',$link_data);
     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("CAR1","CARRITO DE COMPRAS","TVIR")',$link_data);

     // 		set_docu("NMN1","TRAN","nomi","REGISTRO DE NOMINA");
     // 		set_docu("NMN2","TRAN","nomi","SALIDA DE NOMINA");
     // 		set_docu("SUE1","TRAN","susa","REGISTRO DE SUELDO");
     set_docu("SS10","TRAN","susa","REGIS.SUELDO");
     // PRESTAMOS


     //       set_docu("NOV1","TRAN","nvdd","NOV.SISTEMA");
     // 		set_docu("NOV2","TRAN","nvdd","NOV.MANUAL");
     // 		set_docu("NOV3","TRAN","nvdd","NOV.RELOJ");

     set_docu("NOV2","TRAN","nomi","NOV.MANUAL");
     set_docu("NOV1","TRAN","nomi","NOV.AUTO");
     set_docu("NOV3","TRAN","nomi","NOV.RELOJ");

     set_docu("NOV1","TRAN","nomi","NOV.MANUAL");
     set_docu("NOV2","TRAN","nomi","NOV.AUTO");
     set_docu("NOV3","TRAN","nomi","NOV.RELOJ");

     set_docu("NVD1","TRAN","nomi","NOV.MANUAL");
     set_docu("NVD2","TRAN","nomi","NOV.AUTO");
     set_docu("NVD3","TRAN","nomi","NOV.RELOJ");


     set_docu("CE10","TRAN","empl","ROL DE PAGO");
     set_docu("CE20","TRAN","empl","ANTICIPO");
     set_docu("CE21","TRAN","empl","PTMO.EMPR.");
     set_docu("CE22","TRAN","empl","PTMO.QUIR.");
     set_docu("CE23","TRAN","empl","PTMO.HIPO.");



     set_docu("EMP1","X","empl","ROL DE PAGO");
     set_docu("EMP2","X","empl","ANTICIPO");
     set_docu("EMP3","X","empl","DECIMO TERCERO");
     set_docu("EMP4","X","empl","DECIMO CUARTO");
     set_docu("EMP7","X","empl","PRESTAMO EMPRESA");
     set_docu("EMP8","X","empl","PRESTAMO IESS");
     set_docu("EMP9","X","empl","ACTA FINIQUITO");



     set_docu("ROL1","TRAN","rolp","ROL");
     set_docu("ROL2","TRAN","rolp","ANTICIPO");
     set_docu("ROL8","TRAN","rolp","ROL RELOJ");
     set_docu("ROL9","TRAN","rolp","ROL AUTO");

     //     set_docu("RE10","TRAN","role","ROL EMPLEADO");
     set_docu("RO13","TRAN","role","ROL EMPLEADO");


     // 		set_docu("SUEL","MAES","suel","SUELDOS");

     msql_query('delete from docu0 where docu_tipo="PARA"',$link_data);
     set_docu("ATRZ","PARA","atrz","AUTORIZACIONES");
     set_docu("COST","PARA","item","COSTOS");
     set_docu("PREC","PARA","item","PRECIOS");
     set_docu("CAPR","PARA","item","CARTA APROBACION");
     // 		set_docu("PUNI","PARA","item","PRECIO UNITARIO");
     // 		set_docu("PVP.","PARA","item","PRECIO VENTA PUBLICO");
     set_docu("DCTC","PARA","item","DCTOS. CLIENTES");
     set_docu("DCTI","PARA","item","DCTOS. ITEMS");
     set_docu("CXCO","PARA","","CTAS.X COBRAR");
     set_docu("CXPA","PARA","","CTAS.X PAGAR");
     set_docu("SRI1","PARA","","SRI ANEXOS");
     set_docu("MODU","PARA","modu","MODULOS");

     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("DRTR","DIRECTORES","MAES")',$link_data);

     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("HOJA","HOJA DE PEDIDO","MAES")',$link_data);
     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("CARR","CARRITO DE COMPRAS","MAES")',$link_data);
     // msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("IMGI","IMAGEN ITEM","MAES")',$link_data);


     set_docu("EMPR","MAES","empr","EMPRESA");
     set_docu("ACCE","MAES","acce","ACCESOS");

     set_docu("CTAS","MAES","ctas","CUENTAS CONTABLES");

     set_docu("ENTI","MAES","enti","ENTIDADES");
     set_docu("CLIE","MAES","enti","CLIENTES");
     set_docu("PROV","MAES","enti","PROVEEDORES");
     set_docu("PPTO","MAES","ppto","PROSPECTOS");
     set_docu("PBCD","MAES","pbcd","PUBLICADOR");
     set_docu("CLAC","MAES","clac","CLAVE_ACCE_CELE");

     set_docu("RFRX","MAES","user","REFERIDOS");
     set_docu("VNDD","MAES","enti","VENDEDORES");
     set_docu("RCDD","MAES","enti","RECAUDADORES");
     
     set_docu("EMPL","MAES","enti","EMPLEADOS");
     set_docu("CODT","MAES","enti","CONDUCTORES");
//      set_docu("PPDD","MAES","enti","PROPIEDADES");
     set_docu("PPDD","MAES","ppdd","PROPIEDAD");
     set_docu("BBII","MAES","bbii","BIEN INMUEBLE");
     set_docu("IINV","MAES","item","ITEMS INVENTARIO");
     set_docu("IBOD","MAES","item","ITEMS BODEGA");
     set_docu("IVTA","MAES","item","ITEMS VENTA");
     set_docu("IGAS","MAES","item","ITEMS GASTO");
     set_docu("PAYT","MAES","payt","PAGOS TARJETA");
     set_docu("EVNT","MAES","evnt","EVENTOS");
     set_docu("ITEM","MAES","item","ITEMS");
     set_docu("BODE","MAES","bode","BODEGAS");
     set_docu("ITEE","MAES","item","ITEMS EXTENSIONES");
     set_docu("DOCU","MAES","docu","DOCUMENTOS");

     set_docu("REFX","MAES","user","REFERIDOS");
     set_docu("USER","MAES","user","USUARIOS");
     set_docu("USRT","MAES","usrt","REGISTROS");
     set_docu("PTOV","MAES","ptov","PUNTO DE VENTA");
     set_docu("PTOE","MAES","ptoe","PUNTO DE EMISION");

     set_docu("CAIR","MAES","cair","COD.ANEX.IMP.RENTA");
     set_docu("CIVA","MAES","civa","COD.IVA");
     set_docu("SUCO","MAES","suco","SUST.COMPROBANTES");

     set_docu("BSQJ","MAES","bsqj","BOSQUEJOS");
     set_docu("TRTY","MAES","trty","TERRITORIOS");
     set_docu("LREU","MAES","lreu","LUGAR REUNION");
//      set_docu("LREU","MAES","trty","TERRITORIOS");
     
     set_docu("TCLI","MAES","tcli","TIPO / CLIENTE");
     set_docu("TPRO","MAES","tpro","TIPO / PROVEEDOR");
     set_docu("ZSUB","MAES","zsub","ZONAS / SUB-ZONA");
     set_docu("LSUB","MAES","lsub","LINEAS / SUB-LIN");
     set_docu("CSUB","MAES","csub","CENTROS DE COSTO");
     set_docu("CCBB","MAES","ccbb","CAJA & BANCOS");
     set_docu("CAJA","MAES","caja","CAJA");
     set_docu("CTAB","MAES","ctab","CTA.BANC.");
     set_docu("BCOS","MAES","bcos","BANCOS");
//      set_docu("TSOR","MAES","tsor","");

     set_docu("PAIS","MAES","pais","PAISES");
     set_docu("MDVH","MAES","mdvh","MOD.VHCL.");
     set_docu("CLVH","MAES","clvh","CLASE.VHCL.");
     set_docu("MKVH","MAES","mkvh","MRK.VHCL.");
     set_docu("VINN","MAES","vinn","VINN");
     set_docu("VWMI","MAES","vwmi","vwmi");
//      set_docu("VHCL","MAES","vhcl","VEHICULO");
     set_docu("PLVH","MAES","plvh","PLACA VHCL");
     set_docu("TMPR","MAES","tmpr","TEMPARIO");
     set_docu("PMDO","MAES","pmdo","PREC.M.O.");
     set_docu("TCVH","MAES","tcvh","TARIFA X CLASE");
     set_docu("CLOR","MAES","clor","COLOR");
     set_docu("BLDN","MAES","bldn","BILL/LADING");
     set_docu("CNTN","MAES","cntn","CONTENEDOR");
     set_docu("CONG","MAES","cong","CONGREGACION");
     set_docu("RPIS","MAES","rpis","RED PUBLICA SALUD");

     set_docu("TLFN","MAES","tlfn","TELEFONO");
     set_docu("ADRS","MAES","adrs","DIRECCIONES");
     set_docu("CNTT","MAES","cntt","CONTACTO");

//      set_docu("SENU","MAES","senu","NUM. SERIES");
     set_docu("PK12","MAES","pk12","FIRMAS PK12");
     set_docu("SERI","MAES","seri","NUM.SERIES");
     set_docu("LOTE","MAES","lote","LOTES");
     set_docu("ASUB","MAES","asub","ACTIVIDADES");
     set_docu("UMDD","MAES","umdd","UNI.MEDIDA");
     set_docu("MRCA","MAES","mrca","MARCAS");
     set_docu("KLDD","MAES","kldd","CALIDAD");

     set_docu("LIGA","MAES","liga","LIGA");
     set_docu("TORN","MAES","torn","TORNEO");
     // 		set_docu("GAME","MAES","game","JUEGO");
     set_docu("MTCH","MAES","mtch","MATCH");
     set_docu("TEAM","MAES","team","TEAM");

     set_docu("CNMB","MAES","cnmb","CDRO.NAC.MEDICAMENTOS BASICOS");
     set_docu("RGSN","MAES","rgsn","REG.SANITARIO");
     set_docu("PRAC","MAES","prac","PRINC.ACTIVO");
     set_docu("PCOM","MAES","pcom","PRES.COMERCIAL");
     set_docu("CIEX","MAES","ciex","CIE-10");
     set_docu("MDCO","MAES","enti","MEDICOS");
     set_docu("PCNT","MAES","enti","PACIENTES");
     

//      msql_query('update docu0 set docu_tcel="01" where docu_codigo like "FC10"',$link_data);
//      msql_query('update docu0 set docu_tcel="05" where docu_codigo like "FC50"',$link_data);
//      msql_query('update docu0 set docu_tcel="04" where docu_codigo like "NC10"',$link_data);
//      msql_query('update docu0 set docu_tcel="03" where docu_codigo like "FP03"',$link_data);
//      msql_query('update docu0 set docu_tcel="05" where docu_codigo like "FP05"',$link_data);
//      msql_query('update docu0 set docu_tcel="03" where docu_codigo like "FP11"',$link_data);
//      msql_query('update docu0 set docu_tcel="05" where docu_codigo like "NV%"',$link_data);
//      // 		msql_query('update docu0 set docu_tcel="05" where docu_codigo like "NV%"',$link_data);
//      msql_query('update docu0 set docu_tcel="06" where docu_codigo like "GR%"',$link_data);
//      msql_query('update docu0 set docu_tcel="07" where docu_codigo like "RP%"',$link_data);

//      msql_query('update docu0 set docu_tcel="41" where docu_codigo like "PF%"',$link_data);
//      msql_query('update docu0 set docu_tcel="42" where docu_codigo like "PC%"',$link_data);

//      msql_query('update docu0 set docu_tcel="93" where docu_codigo like "OP%"',$link_data);

//      msql_query('update docu0 set docu_tcel="51" where docu_codigo like "PS%"',$link_data);
//      msql_query('update docu0 set docu_tcel="52" where docu_codigo like "PP%"',$link_data);

//      msql_query('update docu0 set docu_tcel="61" where docu_codigo like "RO%"',$link_data);
     
//      msql_query('update docu0 set docu_tcel="71" where docu_codigo like "ICH%" ',$link_data);
//      msql_query('update docu0 set docu_tcel="72" where docu_codigo like "CH%"',$link_data);

     
     

     
     
     ////////////////////////////////
     ////////////////////////////////
     msql_query('update docu0 set docu_tcel="--" where docu_tabla like "dxco"',$link_data);
     msql_query('update docu0 set docu_tcel="--" where docu_tabla like "dxpa"',$link_data);
     msql_query('update docu0 set docu_tice="--" where docu_tabla like "dxco"',$link_data);
     msql_query('update docu0 set docu_tice="--" where docu_tabla like "dxpa"',$link_data);
     
//      msql_query('update docu0 set docu_tcel=docu_tico where ifnull(docu_tice,"")=""',$link_data);
     msql_query('update docu0 set docu_tice=docu_tcel where ifnull(docu_tice,"")="" or 1=1',$link_data);
//      msql_query('update docu0 set docu_tico=docu_tcel where ifnull(docu_tico,"")=""',$link_data);
     
//      msql_query('update docu0 set docu_tcel=null where ifnull(docu_tabla,"")in("vtas.comp.guia.ret")',$link_data);
     
     
}     

     
if($maes=='tcel')     
{
     inse_maes($maes,"01","FACTURA");
     inse_maes($maes,"03","LIQ.COMPRA");
     inse_maes($maes,"04","N.CREDITO");
     inse_maes($maes,"05","N.DEBITO");
     inse_maes($maes,"06","GUIA REMISION");
     inse_maes($maes,"07","RETENCION");
     
}

if($maes=='fpag')     
{
     inse_maes($maes,"01","SIN UTIL.SIST.FINAN.");
     inse_maes($maes,"02","CHEQUE PROPIO");
     inse_maes($maes,"03","CHEQUE CERTIFICADO");
     inse_maes($maes,"04","CHEQUE GERENCIA");
     inse_maes($maes,"05","CHEQUE EXTERIOR");
     inse_maes($maes,"06","DEBITO CUENTA");
     inse_maes($maes,"07","TRANS PROPIO BANCO");
     inse_maes($maes,"08","TRANS OTRO BANCO NAC.");
     inse_maes($maes,"09","TRANS BANCO EXTE.");
     inse_maes($maes,"10","T/C NACIONAL");
     inse_maes($maes,"11","T/C INTERNACIONAL");
     inse_maes($maes,"12","GIRO");
     inse_maes($maes,"13","DEP.EN CUENTA");
     inse_maes($maes,"14","ENDOSO DE INVERSION");
     inse_maes($maes,"15","COMPENSACION DE DEUDAS");
     inse_maes($maes,"16","TARJETA DE DEBITO");
     inse_maes($maes,"17","DINERO ELECTRONICO");
     inse_maes($maes,"18","TARJETA DE PREGPAGO");
     inse_maes($maes,"19","TARJETA DE CREDITO");
     inse_maes($maes,"20","OTROS C/UTIL.SIST.FINAN.");
     inse_maes($maes,"21","ENDOSO DE TITULOS");
}

     
if($maes=='prvc')
{
     
     inse_maes($maes,"01","Azuay");
     inse_maes($maes,"02","Bolivar");
     inse_maes($maes,"03","Cañar");
     inse_maes($maes,"04","Carchi");
     inse_maes($maes,"05","Cotopaxi");
     inse_maes($maes,"06","Chimborazo");
     inse_maes($maes,"07","El Oro");
     inse_maes($maes,"08","Esmeraldas");
     inse_maes($maes,"09","Guayas");
     inse_maes($maes,"10","Imbabura");
     inse_maes($maes,"11","Loja");
     inse_maes($maes,"12","Los Rios");
     inse_maes($maes,"13","Manabi");
     inse_maes($maes,"14","Morona Santiago");
     inse_maes($maes,"15","Napo");
     inse_maes($maes,"16","Pastaza");
     inse_maes($maes,"17","Pichincha");
     inse_maes($maes,"18","Tungurahua");
     inse_maes($maes,"19","Zamora Chinchipe");
     inse_maes($maes,"20","Galapagos");
     inse_maes($maes,"21","Sucumbios");
     inse_maes($maes,"22","Orellana");
     inse_maes($maes,"23","Sto.Domingo Tsachilas");
     inse_maes($maes,"24","Santa Elena");
     
     
     
     
     
}

     
if($maes=='suco')
{
     inse_maes($maes,"-","NUEVO");
     inse_maes($maes,"00","NO APLICA");
     inse_maes($maes,"01","COMP.NET. SERV.BIEN. DIST. INVENT.Y ACT.FIJ. - SUST - CRED.TRIB.");
     inse_maes($maes,"02","COMP.NET. SERV.BIEN. DIST. INVENT.Y ACT.FIJ. -NO SUST- CRED.TRIB.");
     inse_maes($maes,"03","COMP.NET. ACT.FIJ. - SUST - CRED.TRIB.");
     inse_maes($maes,"04","COMP.NET. ACT.FIJ. -NO SUST- CRED.TRIB.");
     inse_maes($maes,"05","LIQ.GASTOS VIAJE A NOMBRE DE EMPLE. Y NO DE LA EMPR.");
     inse_maes($maes,"06","COMP.NET. INVENT. - SUST - CRED.TRIB.");
     inse_maes($maes,"07","COMP.NET. INVENT. -NO SUST- CRED.TRIB.");
     inse_maes($maes,"08","VALOR PAGADO O RECIBIDO X REEMB. DE GASTOS");
     inse_maes($maes,"09","REEMB. X GASTOS MEDICOS Y MEDICINA PREPAG.");
//      msql_query('delete from suco0',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("-","NUEVO")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("00","NO APLICA")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("01","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("02","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("03","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("04","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("05","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("06","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("07","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("08","")',$link_data);
//      msql_query('insert into suco0(suco_codigo,suco_descri)value("09","")',$link_data);
}
     
     
     
if($maes=='tpro')     
{
     inse_maes($maes,"BIEN","BIENES");
     inse_maes($maes,"BBSS","BIENES /SERVICIOS");
}

if($maes=='tcli')     
{
     inse_maes($maes,"GENE","GENERAL");
//      inse_maes($maes,"BBSS","BIENES /SERVICIOS");
}

if($maes=='zsub')     
{
//      inse_maes($maes,"GENE-GENE","GENERAL");
}
     
if($maes=='stat')     
{
     inse_maes($maes,"-","NUEVO");
     inse_maes($maes,"F","FACTURADO");
     inse_maes($maes,"R","PROCESADO");
     inse_maes($maes,"O","ANULADO");
     inse_maes($maes,"X","ELIMINADO");
     inse_maes($maes,"A","APROBADO");
     inse_maes($maes,"E","ENTREGDO");
     inse_maes($maes,"I","INACTIVO");
     inse_maes($maes,"P","PENDIENTE");
//      die();
}


if($maes=='tlla')     
{
     set_tlla0();
}

if($maes=='pais')     
{
     set_pais0();
}

if($maes=='vwmi')     
{
     set_vwmi0();
}


if($maes=='bcos')     
{
     set_bcos0();
}

if($maes=='bsqj')     
{
     set_bsqj();
}

if($maes=='cair')     
{
     set_cair0();
}

if($maes=='civa')     
{
     set_civa0();
}


if($maes=='lsub')     
{
     if($empr0['empr_taller']==1 or $empr0['empr_automotriz']==1)
     {
          inse_maes($maes,"MMOO-","MANO DE OBRA");
          inse_maes($maes,"MMOO-MOTR","Motor");
          inse_maes($maes,"MMOO-FREN","Frenos");
          inse_maes($maes,"MMOO-TRAN","Transmisión");
          inse_maes($maes,"MMOO-SUSP","Suspensión /Dirección");
          inse_maes($maes,"MMOO-ELEC","Eléctrico");
          inse_maes($maes,"MMOO-REFR","Refrigeración");
          inse_maes($maes,"MMOO-ESCA","Escape /Emisiones");
          inse_maes($maes,"MMOO-CLIM","Climatización");
          inse_maes($maes,"MMOO-CARR","Carrocería /Pintura");
          inse_maes($maes,"MMOO-LLAN","Llanta /Neumáticos");
          inse_maes($maes,"MMOO-MANT","Mantenimiento General");
     }
}


if($maes=='umdd')     
{
     inse_maes($maes,"UNI.","UNIDAD");

//      inse_maes($maes,"MTS.","METRO");
//      inse_maes($maes,"MTS2","METRO CUADRADO");
//      inse_maes($maes,"MTS3","METRO CUBICO");

     inse_maes($maes,"MT.","METRO");
     inse_maes($maes,"MT2","METRO CUADRADO");
     inse_maes($maes,"MT3","METRO CUBICO");

//      inse_maes($maes,"LIT.","LITRO");
     inse_maes($maes,"GAL.","GALON");

     inse_maes($maes,"CC.","CENT.CUBIC.");
     inse_maes($maes,"LT.","LITRO");

     inse_maes($maes,"ONZ.","ONZA");
//      inse_maes($maes,"LIB.","LIBRA");
     inse_maes($maes,"LB.","LIBRA");

     inse_maes($maes,"GR.","GRAMO");
     inse_maes($maes,"KG.","KILOGRAMO");

     inse_maes($maes,"CAJA","CAJA");
     inse_maes($maes,"SACO","SACO");
     inse_maes($maes,"SC25","SACO 25 KILOS");
     inse_maes($maes,"SC50","SACO 50 KILOS");
     
     // 		inse_maes($maes,"SACO","SACO");
     inse_maes($maes,"SOBR","SOBRE");
     inse_maes($maes,"ROLL","ROLLO");
     inse_maes($maes,"PACK","PAQUETE");
     inse_maes($maes,"TANK","TANQUE");
     inse_maes($maes,"PAR","PAR");

     inse_maes($maes,"-","-");
     inse_maes($maes,"SERV","SERVICIO");
     inse_maes($maes,"HORA","HORA");
     inse_maes($maes,"DIA.","DIA");
     inse_maes($maes,"MES.","MES");
     inse_maes($maes,"ANIO","AÑO");
     
}

     
if($maes=='clvh')     
{
     inse_maes($maes,"SUV","SUV");
     inse_maes($maes,"SEDAN","SEDAN");
     inse_maes($maes,"PICKUP","PICKUP");
     inse_maes($maes,"CAMION","CAMION");
}


if($maes=='ciiu')
{
//      $archivo = 'ruta/al/archivo.csv'; // Cambia esto por la ruta real
     $archivo='../_sriruc/CIIU.csv';

     if (($handle = fopen($archivo, "r")) !== false) {
         while (($datos = fgetcsv($handle, 1000, ";")) !== false) {
             // $datos es un array: [codigo, descripcion, tipo]
             $codigo = $datos[0];
             $descri = $datos[1];
             $tipo = $datos[2];
              
             inse_maes($maes,$codigo,$descri); 

//              echo "Código: $codigo\n";
//              echo "Descripción: $descripcion\n";
//              echo "Tipo: $tipo\n";
//              echo "---------------------\n";
         }
         fclose($handle);
     } else {
         echo "No se pudo abrir el archivo.";
     }
     
}


if($maes=='ctas')
{
	$sctas=file_get_contents('../_lib/ctas1super.txt');
	$lista2 = array();
	$data= explode("\r", $sctas);
     
     $ctasuper=1;
     if($empr0['empr_codigo']=='pcs1'){$ctasuper=0;}

     if($ctasuper==1)
	foreach ($data as $row)
	{
		$row=trim($row);
		$codigo=intval($row);
		$descri=str_replace($codigo,'',$row);
		$descri=trim(substr($descri,0,-5));
		$otro=trim(substr($row,-5));
		$signo=0;
		if(substr($otro,0,1)=='P'){$signo=1;}
		if(substr($otro,0,1)=='N'){$signo=(-1);}
          if(mb_stristr2($descri,'(-)')){$signo=(-1);}

          inse_maes($maes,$codigo,$descri);
          
		$sql_ctas='update ctas0 set ctas_descri="'.$descri.'" where ctas_codigo="'.$codigo.'" and ifnull(ctas_descri,"")=""';
		$res_ctas=msql_query($sql_ctas,$link_data);
		
		$sql_ctas='update ctas0 set ctas_super="1", ctas_signo="'.$signo.'", ctas_tipo="'.substr($otro,2,1).'" where ctas_codigo="'.$codigo.'"';
		$res_ctas=msql_query($sql_ctas,$link_data);
		
	}	

     
     if($empr0['empr_codigo']=='imcp')
     {
inse_maes('ctas','10101','Efectivo Y Equivalentes Al Efectivo');
inse_maes('ctas','10106','Ct Prox. Mes Favor Del Sujeto Pasivo (Iva)');
inse_maes('ctas','1010101','Caja General');
inse_maes('ctas','1010102','Banco Pichincha');
inse_maes('ctas','1010103','Caja De Terceros');
inse_maes('ctas','1010104','Dinero En Transito');
inse_maes('ctas','1010105','Caja Chica');
inse_maes('ctas','1010106','Cheques Por Cobrar');
inse_maes('ctas','1010107','Cheques Devueltos/Protestados');
inse_maes('ctas','1010108','Caja Chica Envios - Combustible');
inse_maes('ctas','1010205','Documentos Y Cuentas Por Cobrar Clientes No Relacionados');
inse_maes('ctas','1010207','Otras Cuentas Por Cobrar Relacionadas');
inse_maes('ctas','1010209','(-) Provision Cuentas Incobrables Y Deterioro');
inse_maes('ctas','1010210','Anticipo De Sueldos');
inse_maes('ctas','1010211','Prestamos A Empleados');
inse_maes('ctas','1010302','Inventarios De Productos En Proceso');
inse_maes('ctas','1010306','Inventarios De Mercaderia En Bodega');
inse_maes('ctas','1010307','Importaciones En Transito');
inse_maes('ctas','1010308','Inventario En Transito');
inse_maes('ctas','1010403','Anticipos A Proveedores');
inse_maes('ctas','1010404','Otros Anticipos Entregados');
inse_maes('ctas','1010405','Anticipo A Proveedores Del Exterior');
inse_maes('ctas','1010501','Iva Pagado En Adquisiciones');
inse_maes('ctas','1010502','Retenciones En La Fuente De Iva');
inse_maes('ctas','1010504','Credito Tributario A Favor De La Empresa(Isd)');
inse_maes('ctas','1010505','Ct.Por Retenciones De Iva(617) 2020');
inse_maes('ctas','1010506','Ct.Por Adquisicion E Importaciones(615) 2020');
inse_maes('ctas','1010507','Ct.Por Retenciones De Iva(617) 2021');
inse_maes('ctas','1010508','Ct.Por Adquisicion E Importaciones(615) 2021');
inse_maes('ctas','1010509','Ret.Fuente Clientes Del Ejercicio');
inse_maes('ctas','1010510','Ret.Fuente Años Anteriores (2020)');
inse_maes('ctas','1010512','Ct.Por Retenciones De Iva(617) 2022');
inse_maes('ctas','1010601','Ct. Por Retenciones De Iva (617) 2020');
inse_maes('ctas','1020104','Instalaciones');
inse_maes('ctas','1020105','Muebles Y Enseres');
inse_maes('ctas','1020106','Maquinaria Y Equipo');
inse_maes('ctas','1020108','Equipo De Computacion');
inse_maes('ctas','1020112','(-) Depreciaci?N Acumulada Propiedades, Planta Y Equipo');
inse_maes('ctas','1020402','Marcas, Patentes, Derechos De Llave, Cuotas Patrimoniales Y Otros Similares');
inse_maes('ctas','20103','Cuentas Y Documentos Por Pagar');
inse_maes('ctas','20108','Cuentas Por Pagar Diversas ? Relacionadas');
inse_maes('ctas','20110','Anticipos De Clientes');
inse_maes('ctas','20113','Otros Pasivos Corrientes');
inse_maes('ctas','20204','Cuentas Por Pagar Diversas / Relacionadas');
inse_maes('ctas','2010301','Proveedores Locales');
inse_maes('ctas','2010302','Proveedores Exterior');
inse_maes('ctas','2010303','Reembolsos');
inse_maes('ctas','2010304','Cheque En Garantia');
inse_maes('ctas','2010501','Provisiones Locales');
inse_maes('ctas','2010701','Obligaciones Sri Por Pagar');
inse_maes('ctas','2010702','Impuesto A La Renta Por Pagar Del Ejercicio');
inse_maes('ctas','2010703','Obligaciones Con El Iess');
inse_maes('ctas','2010704','Por Beneficios De Ley A Empleados');
inse_maes('ctas','2010705','Participaci?N Trabajadores Por Pagar Del Ejercicio');
inse_maes('ctas','2010707','Senae Por Pagar');
inse_maes('ctas','2010709','Sueldos Por Pagar');
inse_maes('ctas','2010710','Retenciones Por Pagar Iva');
inse_maes('ctas','2010711','Retenciones Por Pagar Renta');
inse_maes('ctas','2010712','Iva Cobrado');
inse_maes('ctas','2010713','Prov Vacaciones');
inse_maes('ctas','2010714','Prov. Decimo Tercer Sueldo');
inse_maes('ctas','2010715','Prov. Decimo Cuarto Sueldo');
inse_maes('ctas','2010717','Finiquito Por Pagar');
inse_maes('ctas','2010718','Depositos Sin Identificar');
inse_maes('ctas','2011402','Otras Cuentas Por Pagar - Inmobiliaria Multinmuebles S.A.');
inse_maes('ctas','2020202','Ctas. Y Doc. Por Pagar Exterior L/P');
inse_maes('ctas','2020401','Cuentas Por Pagar Diversas / Relacionadas Locales');
inse_maes('ctas','2020402','Cuentas Por Pagar Accionistas - Nelly Yagual');
inse_maes('ctas','2020403','Cuentas Por Pagar Accionistas - Juan Pulido');
inse_maes('ctas','2020404','Cuentas Por Pagar Accionistas - Josefa Fernandez');
inse_maes('ctas','2020703','Desahucio');
inse_maes('ctas','2020901','Ingresos Diferidos');
inse_maes('ctas','2020902','Pasivos Por Impuestos Diferidos');
inse_maes('ctas','303','Prima Por Emision Primaria De Acciones');
inse_maes('ctas','306','Resultados Acumulados');
inse_maes('ctas','30101','Capital Suscrito O Asignado');
inse_maes('ctas','30401','Reserva Legal');
inse_maes('ctas','30402','Reservas Facultativa Y Estatutaria');
inse_maes('ctas','30601','Ganacias Acumuladas');
inse_maes('ctas','30608','Resultado Acumulado 2020');
inse_maes('ctas','30609','Resultado Acumulado 2021');
inse_maes('ctas','30610','Resultado Acumulado 2022');
inse_maes('ctas','30611','Resultado Acumulado 2023');
inse_maes('ctas','30701','Ganancia Neta Del Periodo');
inse_maes('ctas','3010101','Pulido Aspiazu Juan Carlos');
inse_maes('ctas','3010102','Velez Fernandez Ena Veronica');
inse_maes('ctas','3010103','Yagual Quinde Nelly Patricia');
inse_maes('ctas','3060101','Utilidad Acumulada 2020');
inse_maes('ctas','3060102','Utilidad Acumulada 2021');
inse_maes('ctas','3060103','Utilidad Acumulada 2022');
inse_maes('ctas','3060104','Utilidad Acumulada 2023');
inse_maes('ctas','3060105','Utilidad Acumulada 2024');
inse_maes('ctas','4101','Venta De Bienes');
inse_maes('ctas','4110','(-) Descuento En Ventas');
inse_maes('ctas','510101','Costo De Venta');
inse_maes('ctas','510103','Costo De Productos Deteriorados');
inse_maes('ctas','510406','Mantenimiento Y Reparaciones');
inse_maes('ctas','510407','Suministros Materiales Y Repuestos');
inse_maes('ctas','510408','Otros Costos De Producci?N');
inse_maes('ctas','510410','Servicios Prestados Varios');
inse_maes('ctas','510501','Transporte Local - Logistica');
inse_maes('ctas','510502','Peajes');
inse_maes('ctas','510503','Sueldos Logistica');
inse_maes('ctas','510505','Alimentacion Nomina Logistica');
inse_maes('ctas','510506','Movilizacion Nomina Logistica');
inse_maes('ctas','510507','Decimo Tercer Sueldo Log');
inse_maes('ctas','510508','Decimo Cuarto Sueldo Log');
inse_maes('ctas','510509','Vacaciones Log');
inse_maes('ctas','510510','Desahucio Log');
inse_maes('ctas','510512','Fondo De Reserva Log');
inse_maes('ctas','510513','Aporte Patronal Log');
inse_maes('ctas','510515','Suministros Y Limpieza Log');
inse_maes('ctas','51040901','Arriendo De Bodega');
inse_maes('ctas','51040902','Alicuotas De Bodega');
inse_maes('ctas','51040903','Servicios Básicos Bodega');
inse_maes('ctas','51040904','Arriendo De Bodega');
inse_maes('ctas','5202','Gastos De Ventas');
inse_maes('ctas','520101','Sueldos Y Salarios');
inse_maes('ctas','520102','Uniformes Adm');
inse_maes('ctas','520105','Servicios Prestados');
inse_maes('ctas','520107','Impuestos, Contribuciones Y Otros');
inse_maes('ctas','520108','Mantenimiento Y Reparaciones');
inse_maes('ctas','520109','Arrendamiento Operativo');
inse_maes('ctas','520110','Comisiones Bancarias');
inse_maes('ctas','520111','Promoci?N Y Publicidad');
inse_maes('ctas','520112','Combustibles');
inse_maes('ctas','520115','Movilizacion Y Transporte');
inse_maes('ctas','520116','Gastos De Gesti?N (Agasajos A Accionistas, Trabajadores Y Clientes)');
inse_maes('ctas','520117','Gastos De Viaje');
inse_maes('ctas','520119','Notarios Y Registradores De La Propiedad O Mercantiles');
inse_maes('ctas','520120','Suministros De Oficina Y Limpieza');
inse_maes('ctas','520128','Otros Gastos');
inse_maes('ctas','520129','Instalaciones');
inse_maes('ctas','520130','Multas Sri');
inse_maes('ctas','520206','Servicios Prestados Varios');
inse_maes('ctas','520210','Comisiones');
inse_maes('ctas','520211','Promocion Y Publicidad');
inse_maes('ctas','520212','Combustibles Y Lubricantes');
inse_maes('ctas','520213','Suministros De Oficina Y Embalaje');
inse_maes('ctas','520215','Gastos De Transporte');
inse_maes('ctas','520216','Gastos De Gestion');
inse_maes('ctas','520217','Gastos De Viaje');
inse_maes('ctas','520218','Agua, Energia, Luz Y Telecomunicaciones');
inse_maes('ctas','520219','Notarios Y Registradores');
inse_maes('ctas','520220','Impuestos, Contribuciones Y Otros');
inse_maes('ctas','520228','Otros Gastos');
inse_maes('ctas','520229','Otros Servicios Prestados');
inse_maes('ctas','520230','Movilización Y Viáticos Freelance');
inse_maes('ctas','520231','Muestras');
inse_maes('ctas','530101','Movilizacion Cchica');
inse_maes('ctas','530104','Cafeteria');
inse_maes('ctas','52010101','Sueldos');
inse_maes('ctas','52010102','Horas Extras');
inse_maes('ctas','52010103','Alimentacion');
inse_maes('ctas','52010104','Movilización Nómina');
inse_maes('ctas','52010105','Capacitaciones Adm');
inse_maes('ctas','52010201','Gastos Patronales');
inse_maes('ctas','52010301','Decimo Tercer Sueldo');
inse_maes('ctas','52010302','Decimo Cuarto Sueldo');
inse_maes('ctas','52010303','Vacaciones');
inse_maes('ctas','52010304','Desahucio');
inse_maes('ctas','52010305','Despido Intempestivo');
inse_maes('ctas','52010306','Fondo De Reserva');
inse_maes('ctas','52010307','Aporte Patronal');
inse_maes('ctas','52010308','Bono Por Desempeño');
inse_maes('ctas','52010501','Honorarios Profesionales');
inse_maes('ctas','52010502','Servicios Prestados Varios');
inse_maes('ctas','52010503','Servicios De Guardiania');
inse_maes('ctas','52010504','Servicios Contables');
inse_maes('ctas','52010506','Servicios Buro Crediticio');
inse_maes('ctas','52010507','Servicios Sistemas');
inse_maes('ctas','52010801','Mantenimiento De Equipos');
inse_maes('ctas','52010802','Mantenimiento, Reparaciones E Instalaciones');
inse_maes('ctas','52010803','Mantenimiento Y Reparaciones De Vehiculos');
inse_maes('ctas','52011801','Consumo Luz');
inse_maes('ctas','52011802','Consumo Telefono');
inse_maes('ctas','52011803','Consumo Agua');
inse_maes('ctas','52011804','Gasto Telecomunicaciones');
inse_maes('ctas','52012104','Dep. Instalaciones');
inse_maes('ctas','52012105','Dep. Muebles Y Enseres');
inse_maes('ctas','52012106','Dep. Maquinaria Y Equipo');
inse_maes('ctas','52012108','Dep. Equipo De Computacion');
inse_maes('ctas','52012307','Proviison Cuentas Incobrables');
inse_maes('ctas','52020101','Sueldos');
inse_maes('ctas','52020102','Horas Extras');
inse_maes('ctas','52020103','Comisiones En Venta');
inse_maes('ctas','52020104','Movilización Nómina Ventas');
inse_maes('ctas','52020105','Cuenta Sin Nombre');
inse_maes('ctas','52020106','Capacitaciones Ventas');
inse_maes('ctas','52020107','Comisiones En Venta Nómina');
inse_maes('ctas','52020301','Decimo Tercer Sueldo');
inse_maes('ctas','52020302','Decimo Cuarto Sueldo');
inse_maes('ctas','52020303','Vacaciones');
inse_maes('ctas','52020304','Desahucio');
inse_maes('ctas','52020306','Fondo De Reserva');
inse_maes('ctas','52020307','Aporte Patronal');
inse_maes('ctas','52020308','Bonificación Patronal Vt');
inse_maes('ctas','52020801','Mantenimiento Y Reparaciones Equipos De Computo');
inse_maes('ctas','52020802','Mantenimiento Y Reparaciones De Instalaciones');
inse_maes('ctas','52020803','Mantenimiento Y Reparaciones De Vehiculos');
inse_maes('ctas','52020804','Servicio De Fumigación');
inse_maes('ctas','52021802','Agua');
inse_maes('ctas','52021804','Internet');
inse_maes('ctas','52022102','Dep. Instalaciones');
inse_maes('ctas','52022103','Dep. Muebles Y Enseres');
inse_maes('ctas','52022104','Dep. Maquinaria Y Equipo');
inse_maes('ctas','5203','Gastos Financieros');
inse_maes('ctas','520302','Intereses Pagados A Bancos');
inse_maes('ctas','4305','Otras Rentas');
inse_maes('ctas','4306','Ingreso Por Reverso De Provisiones');
inse_maes('ctas','410602','Otros Intereses Generados');
inse_maes('ctas','411401','Otros Ingresos De Actividades Ordinarias');
inse_maes('ctas','430601','Ing. Por Reverso D. Provisiones');
inse_maes('ctas','520402','Otros Gastos No Deducibles');
inse_maes('ctas','520404','Compensaciones');
inse_maes('ctas','9999999999','Zzeros');
inse_maes('ctas','6100','Gasto Participación Trabajadores');
inse_maes('ctas','6101','Gasto Impuesto A La Renta Corriente');
inse_maes('ctas','610101','Gasto Impuesto A La Renta Corriente');
inse_maes('ctas','610102','Gasto Participación Trabajadores');
          
     }
     
     
     
     
}
     
set_maescolor($maes);     
     
}





function crea_maes($tabla,$codigo=0)
{
     if(empty($tabla)){return;}
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     
     $tabla0=$tabla.'0';
     if($codigo==='X')
     {
          msql_query('drop table '.$tabla0,$link_data);
          echo '<br>'.$tabla0.'==> ELIMINADA';
          return;
     }	

     echo '<br>';
     echo '<br> =======>>> CREATE '.$tabla0;
     
     
     //  2024-01-18
     msql_query('create table if not exists '.$tabla0.' ('.$tabla.'_codigo char('.$codigo.'))',$link_data);
     msql_query('alter table '.$tabla0.' engine=innodb, default character set=latin1 collate=latin1_spanish_ci',$link_data);

     
// 	if($codigo==0)
// 	{msql_query('alter table '.$tabla0.' change column '.$tabla.'_codigo '.$tabla.'_codigo int not null  ',$link_data);}
	if($codigo==0)
	{msql_query('alter table '.$tabla0.' change column '.$tabla.'_codigo '.$tabla.'_codigo int not null  ',$link_data);}
	else
	{$colafter=set_colu($tabla0,$tabla.'_codigo','char('.$codigo.')'); }
     
     $sql_pkey='show keys from '.$tabla0.' where Key_name="PRIMARY"';
     $res_pkey=msql_query($sql_pkey,$link_data);
     
     if(msql_num_rows($res_pkey)!=0)
     {msql_query('alter table '.$tabla0.' drop primary key',$link_data);}
     msql_query('alter table '.$tabla0.' add primary key('.$tabla.'_codigo)',$link_data);
     
	if($codigo==0)
	{
          msql_query('alter table '.$tabla0.' modify column '.$tabla.'_codigo int not null auto_increment  ',$link_data);
          msql_query('alter table '.$tabla0.' change '.$tabla.'_codigo '.$tabla.'_codigo serial unsigned not null auto_increment  ',$link_data);
          
// ALTER TABLE `user0` CHANGE `user_codigo` `user_codigo` SERIAL UNSIGNED NOT NULL AUTO_INCREMENT;
//           echo '<br>=====>>>'.$tabla0;
     }
     
	$colafter=$tabla.'_codigo';
     $colafter=set_colu($tabla0,$tabla.'_descri','varchar(100)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_tipo','varchar(4)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_status','varchar(1)',$colafter,'-');
     $colafter=set_colu($tabla0,$tabla.'_lused','datetime',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_iuser','varchar(10)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_idate','datetime',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_udate','datetime',$colafter, '');
     $colafter=set_colu($tabla0,$tabla.'_uuser','varchar(10)',$colafter, '');
     $colafter=set_colu($tabla0,$tabla.'_ipip','varchar(15)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_descri0','varchar(100)',$colafter);
     
//      alte_maes($tabla);
     
     
     if($tabla=='enti')
     {
          crea_index($tabla0,'sexo','sexo');
     }
     
     return;
}

function crea_tran($tabla,$codigo=0)
{
     if(empty($tabla)){return;}
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);     

     $tabla1=$tabla.'1';
     $tabla2=$tabla.'2';
     if($codigo==='X')
     {
          msql_query('drop table '.$tabla1,$link_data);
          echo '<br>'.$tabla1.'==> ELIMINADA';
          msql_query('drop table '.$tabla2,$link_data);
          echo '<br>'.$tabla2.'==> ELIMINADA';
          return;
     }	
     
     msql_query('create table if not exists '.$tabla1.'(idnum1 int not null primary key auto_increment) engine=innodb',$link_data);
     msql_query('alter table '.$tabla1.' engine=innodb, default character set=latin1 collate=latin1_spanish_ci',$link_data);
     
     msql_query('create table if not exists '.$tabla2.'(idnum2 int not null) engine=innodb',$link_data);
     msql_query('alter table '.$tabla2.' engine=innodb, default character set=latin1 collate=latin1_spanish_ci',$link_data);
     
     
// echo '*/*/*/*/**/*/*/*'.$tabla;     
     
     // tabla1 main
     {
     $colafter=set_colu($tabla1,'docu','varchar(4)','idnum1','');
     $colafter=set_colu($tabla1,'ptoe','varchar(6)',$colafter,'001001');
     $colafter=set_colu($tabla1,'numero','varchar(9)',$colafter,'999999999');
     $colafter=set_colu($tabla1,'fecha','date',$colafter);
     $colafter=set_colu($tabla1,'enti','varchar(13)',$colafter,'9999999999999');
          
     set_colu($tabla1,'numerobak','X');
     
     if(mb_stristr2('.vtas.clie.inve.otbj',$tabla))
     {
     $colafter=set_colu($tabla1,'ptov','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'bode','varchar(6)',$colafter);
     }

     if(mb_stristr2('.pduc.prXod.',$tabla))
     {
     $colafter=set_colu($tabla1,'proc','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'prcs','X',$colafter);
     $colafter=set_colu($tabla1,'prpr','varchar(6)',$colafter);
     }
          
     if(mb_stristr2('.vtas.comp.caja.bcos.caba.tsor.',$tabla))
     {
     $colafter=set_colu($tabla1,'ccbb','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'caja','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'bcos','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'ctab','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'caba','varchar(6)',$colafter);
     }

     $colafter=set_colu($tabla1,'zsub','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'csub1','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'ctas1','varchar(10)',$colafter);
     $colafter=set_colu($tabla1,'item1','varchar(13)',$colafter);
     
     $colafter=set_colu($tabla1,'stfin','varchar(1)',$colafter);
     $colafter=set_colu($tabla1,'status','varchar(1)',$colafter,'-');
     $colafter=set_colu($tabla1,'concepto','varchar(250)',$colafter);
     }

     // tabla2 main
     {
     $colafter='idnum2';
     $colafter=set_colu($tabla2,'iddet','int(4)',$colafter);
     $colafter=set_colu($tabla2,'itnum','int(3)',$colafter);
//      $colafter=set_colu($tabla2,'iddet','smallint(4)',$colafter);
//      $colafter=set_colu($tabla2,'itnum','smallint(3)',$colafter);
     $colafter=set_colu($tabla2,'item','varchar(13)',$colafter);
     $colafter=set_colu($tabla2,'ctas','varchar(13)',$colafter);
          
     if(mb_stristr2('.cont',$tabla))
     {$colafter=set_colu($tabla2,'cant','decimal(17,8)',$colafter);}
     else
     {$colafter=set_colu($tabla2,'cant','decimal(15,8)',$colafter);}
     
     $decimal='decimal(17,8)';
     if($tabla2=='inve2'){$decimal='decimal(17,8)';}
     if($tabla2=='inve2' and $empr0['empr_codigo']=='imcp' and date('Y-m-d')<='2025-12-31'){$decimal='decimal(17,6)';}
     $colafter=set_colu($tabla2,'puni',$decimal,$colafter);
          
     $colafter=set_colu($tabla2,'detalle','varchar(250)',$colafter);
     $colafter=set_colu($tabla2,'cant_r','decimal(13,4)',$colafter);
          
     if(mb_stristr2('.prov.lpro',$tabla))
     {
          // solicitado aprobado ordenado bodega
     $colafter=set_colu($tabla2,'cant0','decimal(15,8)',$colafter);
     $colafter=set_colu($tabla2,'cant1','decimal(15,8)',$colafter);
     $colafter=set_colu($tabla2,'cant2','decimal(15,8)',$colafter);
     $colafter=set_colu($tabla2,'cant3','decimal(15,8)',$colafter);
     }

     if(mb_stristr2('.cont.vtas.clie.clte.comp.prov.inve.infi.pduc.prXod.carr',$tabla))
     {
          $colafter=set_colu($tabla2,'lote','varchar(15)',$colafter);
          $colafter=set_colu($tabla2,'numlote','varchar(15)',$colafter);
          $colafter=set_colu($tabla2,'numserie','varchar(100)',$colafter);
     }
          
     if(mb_stristr2('.pduc.prXod.',$tabla))
     {
          $colafter=set_colu($tabla2,'hora1','varchar(5)',$colafter);
     }
          
          
          
     }
     
     //audit
     {
     $colafter=set_colu($tabla1,'idfrom','int(9)',$colafter);
     $colafter=set_colu($tabla1,'mdfrom','varchar(4)',$colafter);
     $colafter=set_colu($tabla1,'iuser','varchar(10)',$colafter);
     $colafter=set_colu($tabla1,'idate','datetime',$colafter);
     $colafter=set_colu($tabla1,'uuser','varchar(10)',$colafter);
     $colafter=set_colu($tabla1,'udate','datetime',$colafter);
     $colafter=set_colu($tabla1,'auser','varchar(10)',$colafter);
     $colafter=set_colu($tabla1,'adate','datetime',$colafter);
     $colafter=set_colu($tabla1,'fuser','varchar(10)',$colafter);
     $colafter=set_colu($tabla1,'fdate','datetime',$colafter);
     $colafter=set_colu($tabla1,'ouser','varchar(10)',$colafter);
     $colafter=set_colu($tabla1,'odate','datetime',$colafter);
     $colafter=set_colu($tabla1,'xuser','varchar(10)',$colafter);
     $colafter=set_colu($tabla1,'xdate','datetime',$colafter);
          
          
          
     $colafter=set_colu($tabla1,'ipip','varchar(15)',$colafter);
          
     $colafter=set_colu($tabla2,'status2','char(1)',$colafter);
     $colafter=set_colu($tabla2,'iuser2','varchar(10)',$colafter);
     $colafter=set_colu($tabla2,'idate2','datetime',$colafter);
     $colafter=set_colu($tabla2,'xuser2','varchar(10)',$colafter);
     $colafter=set_colu($tabla2,'xdate2','datetime',$colafter);
     }

     
}

function alte_maes($tabla)
{
//      if($tabla!='civa'){return;}
     
     if(empty($tabla)){return;}
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);
     
	$tabla0=$tabla.'0';
     $colafter='';

     echo '<br>';
     echo '<br> =======>>> UPDATE '.$tabla0;
     
     
     $colafter=$tabla.'_descri0';
          
     if(mb_stristr2('.curs',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_psco','varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nivel','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_seccion','varchar(2)',$colafter,'');
     }
 
     if(mb_stristr2('.nrol',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_enti','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_stud','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_psco','varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_curs','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_seccion','varchar(2)',$colafter,'');
     }
 
          
     if(mb_stristr2('.blog',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_user','int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_remote','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_server','varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_script','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_request','varchar(250)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_document','varchar(100)',$colafter,'');
     }
          
          
     if(mb_stristr2('.ipip',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_user','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_osver','varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cdad','varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cdaddes','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais','varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_paisdes','varchar(50)',$colafter,'');
          //           $colafter=set_colu($tabla0,$tabla.'_zipcode','X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_postal','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps1','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps2','varchar(10)',$colafter,'');
          // 			$colafter=set_colu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
     }

     if(mb_stristr2('.menu',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_accion','varchar(250)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mensaje','varchar(250)',$colafter,'');
     }

     
     if(mb_stristr2('.empr',$tabla))
     {
     $colafter=set_colu($tabla0,$tabla.'_ruc','varchar(13)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_numid','varchar(13)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_dnrdp','varchar(7)',$colafter,'');
          
     $colafter=set_colu($tabla0,$tabla.'_ruclegal','varchar(13)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_ruccontador','varchar(13)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_regcontador','varchar(10)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_rucconta','varchar(13)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_regconta','varchar(10)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_sriiva','smallint',$colafter,'1');
     $colafter=set_colu($tabla0,$tabla.'_sriats','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_defa332','smallint',$colafter,'');
          
     $colafter=set_colu($tabla0,$tabla.'_email','varchar(50)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_lguia','int',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_vcupo','varchar(1)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_bcupo','varchar(1)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_prdo','varchar(1)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_sema','varchar(1)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fweek','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fdow','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_linx','smallint',$colafter,'');
          
     $colafter=set_colu($tabla0,$tabla.'_modi','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_anul','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_elim','smallint',$colafter,'');

     $colafter=set_colu($tabla0,$tabla.'_tpre','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_dpre','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_duni','smallint',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_dcos','smallint',$colafter,'');

     $colafter=set_colu($tabla0,$tabla.'_suco','varchar(2)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fpag','varchar(2)',$colafter,'');

     $colafter=set_colu($tabla0,$tabla.'_pyme','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_vtas','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_comp','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_clie','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_prov','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_tsor','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_caja','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_ctab','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_bcos','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_inve','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_cxco','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_cxpa','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_rete','varchar(1)',$colafter,'0');
//      $colafter=set_colu($tabla0,$tabla.'_sri1','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_cont','varchar(1)',$colafter,'0');
          
//      $colafter=set_colu($tabla0,$tabla.'_inmo','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_ctlg','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_carr','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_guia','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_clie','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_prov','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_impo','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_expo','varchar(1)',$colafter,'0');
          
     $colafter=set_colu($tabla0,$tabla.'_caba','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_cbco','X',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_nomi','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_prod','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_pduc','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_plan','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_lote','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_srie','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_cele','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_mice','varchar(1)',$colafter,'0');

          
     $colafter=set_colu($tabla0,$tabla.'_zeus','varchar(1)',$colafter,'0');
     $colafter=set_colu($tabla0,$tabla.'_comi','varchar(1)',$colafter,'0');
          
//      $colafter=set_colu($tabla0,$tabla.'_contador','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_planconta','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_ceuser','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_ptovta','varchar(1)',$colafter);
          
//      $colafter=set_colu($tabla0,'inmobil','X',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_referido','X',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_taxi','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_medico','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_refers','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_inmobil','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_garage','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_farmacia','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_restaurante','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_clinica','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_veterinaria','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_taller','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_restaurant','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_automotriz','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_bitacora','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_importa','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_exporta','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_bitacora','varchar(1)',$colafter);
     $colafter=set_colu($tabla0,$tabla.'_escala_crm','varchar(1)',$colafter);
          
//      $colafter=set_colu($tabla0,$tabla.'_ceuser','X',$colafter);
//      $colafter=set_colu($tabla0,$tabla.'_ptovta','X',$colafter);
//      $colafter=set_colu($tabla0,$tabla.'_taxi','X',$colafter);
//      $colafter=set_colu($tabla0,$tabla.'_farmacia','X',$colafter);
//      $colafter=set_colu($tabla0,$tabla.'_clinica','X',$colafter);
//      $colafter=set_colu($tabla0,$tabla.'_veterinaria','X',$colafter);
//      $colafter=set_colu($tabla0,$tabla.'_automotriz','X',$colafter);
          
          

     // 			$colafter=set_colu($tabla0,$tabla.'_fcont','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_ftsor','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fcaba','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fcaja','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fbcos','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fctab','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fcxco','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fcxpa','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_finve','date',$colafter,'');
     // 			$colafter=set_colu($tabla0,$tabla.'_fnomi','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fcele','date',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_fcont','date',$colafter,'');

     $colafter=set_colu($tabla0,$tabla.'_fcont2','date',$colafter,'');

     $colafter=set_colu($tabla0,$tabla.'_rinve','datetime',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_rnomi','datetime',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_ratvd','datetime',$colafter,'');


     $colafter=set_colu($tabla0,$tabla.'_fcnego','varchar(1)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_ambice','varchar(1)',$colafter,'1');
     $colafter=set_colu($tabla0,$tabla.'_esquce','varchar(1)',$colafter,'1');
     $colafter=set_colu($tabla0,$tabla.'_website','varchar(50)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_logo1','varchar(200)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_logo2','varchar(200)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_color1','varchar(15)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_color2','varchar(15)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_color3','varchar(15)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_color1f','varchar(15)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_color2f','varchar(15)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_color3f','varchar(15)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_logoce','varchar(200)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_p12file','text',$colafter,'1');
     $colafter=set_colu($tabla0,$tabla.'_p12bak','text',$colafter,'1');
     $colafter=set_colu($tabla0,$tabla.'_p12pass','varchar(30)',$colafter,'1');
     $colafter=set_colu($tabla0,$tabla.'_p12caduca','date',$colafter,'1');
     $colafter=set_colu($tabla0,$tabla.'_sripass','varchar(20)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_ctasuper','varchar(1)',$colafter,'');
          
     $colafter=set_colu($tabla0,$tabla.'_wsapptk','varchar(250)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_apiwha','varchar(250)',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_ambientece','X',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_paypaltoken','text',$colafter,'');
     $colafter=set_colu($tabla0,$tabla.'_payphonetoken','text',$colafter,'');

     $colafter=set_colu($tabla0,$tabla.'_updated','datetime',$colafter,'1');
     msql_query('update empr0 set empr_updated=now()',$link_data);

     }

     if(mb_stristr2('.payt',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_docu','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptoe','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero','varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_idnum','int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_transaction','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_authorization','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cardtype','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cardbrand','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_amount','decimal(9,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_response','text',$colafter,'');
     }          
          
     if(mb_stristr2('.user',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_logo','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_contador','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ambice','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rimpe','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_p12file','text',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_p12pass','varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_p12caduca','date',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_adic11','varchar(20)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_adic12','varchar(20)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_adic13','varchar(20)',$colafter,'0');

          $colafter=set_colu($tabla0,$tabla.'_adic21','varchar(20)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_adic22','varchar(20)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_adic23','varchar(20)',$colafter,'0');
          
     }
     
		if (mb_stristr2('.clac',$tabla))
    {
			$colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');

			$colafter=set_colu($tabla0,$tabla.'_upldfec', 'datetime',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_recepfec', 'datetime',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_recepmsj', 'varchar(250)',$colafter,'');

			$colafter=set_colu($tabla0,$tabla.'_autorfec', 'datetime',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_autornum', 'varchar(49)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_autormsj', 'varchar(250)',$colafter,'');
      
			$colafter=set_colu($tabla0,$tabla.'_xml1', 'text',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_xml2', 'text',$colafter,'');
      
// 			$colafter=set_colu($tabla0,$tabla.'_scan', 'varchar(1)',$colafter,'');
      
			$colafter=set_colu($tabla0,$tabla.'_xml', 'X');
			$colafter=set_colu($tabla0,$tabla.'_firma', 'X');
			
// 			$colafter=set_colu($tabla0,$tabla.'_atrznume', 'X',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_atrzfecha', 'X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_upld', 'X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_srirecep', 'X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_sriautor', 'X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_atrz', 'X',$colafter,'');

		}

     

     if (mb_stristr2('.pais',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ats', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tlfn', 'varchar(4)',$colafter,'');
     }
     
     if (mb_stristr2('.prvc',$tabla))
     {
//           $colafter=set_colu($tabla0,$tabla.'_ats', 'varchar(4)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_tlfn', 'varchar(4)',$colafter,'');
     }
     
     
		if (mb_stristr2('.adrs',$tabla))
          {
			$colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_user', 'int(9)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_sucu','varchar(3)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_area', 'varchar(4)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_tlfn', 'varchar(10)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_ext', 'varchar(5)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_nombre', 'varchar(30)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_contacto', 'varchar(30)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_direccion', 'varchar(100)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_opera', 'varchar(4)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(6)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_cdad', 'varchar(6)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_provincia', 'varchar(20)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_ciudad', 'varchar(20)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_postal', 'varchar(15)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_cpostal', 'X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_calle1', 'varchar(30)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_calle2', 'varchar(30)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_calle3', 'varchar(30)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_callen', 'varchar(10)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_pisomz', 'X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_dptovi', 'X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_email', 'varchar(150)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_gps1', 'decimal(15,10)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_gps2', 'decimal(15,10)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_cntnombre', 'varchar(50)',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_cntdirecc', 'varchar(50)',$colafter,'');

			$colafter=set_colu($tabla0,$tabla.'_idweb', 'date',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_suc','X',$colafter,'');
			$colafter=set_colu($tabla0,$tabla.'_sucursal','X',$colafter,'');

		}
     
     
          
     if(mb_stristr2('.pbcd',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_cong','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_email','varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsapp','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sexo','varchar(1)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_fechanac','date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fechabau','date',$colafter,'');
          
          //1 PNB 2 PUB 
          $colafter=set_colu($tabla0,$tabla.'_publi','varchar(3)',$colafter,''); 
          //1 AUX 2 REG
          $colafter=set_colu($tabla0,$tabla.'_precu','varchar(3)',$colafter,''); 
          
          //1 SMI 2 ANC
          $colafter=set_colu($tabla0,$tabla.'_privi','varchar(3)',$colafter,''); 
          
          //1 OOV 2 UNG 
//           $colafter=set_colu($tabla0,$tabla.'_','varchar(3)',$colafter,''); 
          
     }          
          
     if(mb_stristr2('.user.usrt.enti.ppto',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_whatsapp','X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_empr','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cedula','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_email','varchar(60)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsapp','varchar(15)',$colafter,'');
          if($tabla=='user' and $empr0['empr_medico']==1)
          {
               $colafter=set_colu($tabla0,$tabla.'_especial','varchar(50)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_senescyt','varchar(50)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_registro','varchar(50)',$colafter,'');
          }
          // 			$colafter=set_colu($tabla0,$tabla.'_teleg','X',$colafter,'');
          // 			$colafter=set_colu($tabla0,$tabla.'_apiwha','datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_celular','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_empresa','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_alias','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nickname','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_solicita','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clave','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clave2','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pin','varchar(6)',$colafter,'');
          // 			$colafter=set_colu($tabla0,$tabla.'_reset','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_captcha','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_crgo','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cargo','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caduca','date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_apuni','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_adcto','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_apvp','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptov','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_guia','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptoe','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caba','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cbco','X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ccbb','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caja','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bode','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cong','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_login','datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ip','varchar(16)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ippais','varchar(50)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_pais','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_provincia','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_postal','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle1','varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle2','varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle3','varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_callen','varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_parroq','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_telefono','varchar(15)',$colafter,'');
          // 			$colafter=set_colu($tabla0,$tabla.'_whatsapp','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_referidox','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_referx','varchar(10)',$colafter,'');
          //       if($cfg_empr=='gnya')
//           if(mb_stristr2('.gnya.gmny',$cfg_empr))
//           if($empr0['empr_refers']==1)               
//           {
//                $colafter=set_colu($tabla0,$tabla.'_referx1','varchar(10)',$colafter,'');
//                $colafter=set_colu($tabla0,$tabla.'_referx2','varchar(10)',$colafter,'');
//                $colafter=set_colu($tabla0,$tabla.'_referx3','varchar(10)',$colafter,'');
//                $colafter=set_colu($tabla0,$tabla.'_referx4','varchar(10)',$colafter,'');
//                $colafter=set_colu($tabla0,$tabla.'_referx5','varchar(10)',$colafter,'');
//           }

          if($tabla=='user' and $cfg_empr=='jwib')
          {
          $colafter=set_colu($tabla0,$tabla.'_acce','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_vida','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_mmae','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_estu','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_dpub','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_vari','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_asig','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_asem','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_asis','varchar(1)',$colafter,'0');
          }

          if($tabla=='user' and $cfg_empr=='')
          {
//           $colafter=set_colu($tabla0,$tabla.'_p12file','text',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_p12pass','varchar(30)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_p12caduca','date',$colafter,'');
          }

          if($tabla=='user')
          {
               msql_query('alter table user0 alter column user_status set default "1"',$link_data);
               msql_query('alter table usrt0 alter column usrt_status set default "0"',$link_data);

               msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo drop default',$link_data);
               msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo set default "clie"',$link_data);

               $sql_user='select * from '.$tabla0.' order by '.$tabla.'_codigo desc';
               $res_user=msql_query($sql_user,$link_data);

               $autoinc=101;
               $sql_auto='alter table '.$tabla0.' AUTO_INCREMENT='.$autoinc;
               if(msql_num_rows($res_user)==0){msql_query($sql_auto,$link_data);}
               else
               {if(msql_result($res_user,0,$tabla.'_codigo')<=10){msql_query($sql_auto,$link_data);}}
               
               
          }

               
     }		


     if(mb_stristr2('.enti',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_plazo','smallint',$colafter,'');
     }
     
     if($empr0['empr_refers']==1)               
     if(mb_stristr2('.user',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_referx1','int(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_referx2','int(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_referx3','int(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_referx4','int(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_referx5','int(5)',$colafter,'');
     }
     
     
     
     
     if(mb_stristr2('.user',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_iplogin','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_iptoken','varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ipemail','varchar(15)',$colafter,'');
     }
     

          
     if(mb_stristr2('.ppto.evnt',$tabla))
     {
          msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo drop default',$link_data);
          msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo set default "-"',$link_data);

          $sql_user='select * from '.$tabla0.' order by '.$tabla.'_codigo desc';
          $res_user=msql_query($sql_user,$link_data);

          $sql_auto='alter table '.$tabla0.' AUTO_INCREMENT=101 ';
          if(msql_num_rows($res_user)==0){msql_query($sql_auto,$link_data);}
          else
          {if(msql_result($res_user,0,$tabla.'_codigo')<=10){msql_query($sql_auto,$link_data);}}
// 			echo '*/*/*'.msql_error($link_data);
     }		

     if(mb_stristr2('.iptv',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_free', 'varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_secue', 'int(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_server', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tvgid', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tvgname', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_group', 'varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_title', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_url', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_serie', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tempo', 'int(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_episo', 'smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tvglogo', 'varchar(200)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'secue', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'tvgid', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'tvglogo', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'group', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'tile', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'url', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'serie', 'X',$colafter,'');
     }
	
     if(mb_stristr2('.cong',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cdad', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_postal', 'varchar(15)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_gps1', 'decimal(15,10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps2', 'decimal(15,10)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_reu1','tinyint(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_reu2','tinyint(1)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_sala','tinyint(1)',$colafter,'1');
          $colafter=set_colu($tabla0,$tabla.'_grupo','tinyint(1)',$colafter,'1');
     }

     if(mb_stristr2('.modu',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_color1', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color2', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color3', 'varchar(10)',$colafter,'');
     }

     if(mb_stristr2('.docu',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_unicode','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tabla','varchar(4)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_modulo','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_codnum','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptoe','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero','int(9)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_tiponum','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_autonum','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_autofec','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_desde','date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hasta','date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mindeta','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_maxdeta','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bakdeta','tinyint(1)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_pdf','varchar(1)',$colafter,'0');
// 			$colafter=set_colu($tabla0,$tabla.'_adjunto','varchar(1)',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_ppsize','varchar(4)',$colafter,'A4');
          $colafter=set_colu($tabla0,$tabla.'_pporient','varchar(1)',$colafter,'V');

          $colafter=set_colu($tabla0,$tabla.'_width','int',$colafter,'210'); 
          $colafter=set_colu($tabla0,$tabla.'_height','int',$colafter,'297');
          $colafter=set_colu($tabla0,$tabla.'_top','int',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_left','int',$colafter,'0');
          $colafter=set_colu($tabla0,$tabla.'_orient','varchar(1)',$colafter,'V');

          $colafter=set_colu($tabla0,$tabla.'_copia','tinyint(1)',$colafter,'1');
          $colafter=set_colu($tabla0,$tabla.'_doble','tinyint(1)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_apuni','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_adcto','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_apvp','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vstock','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bstock','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vreser','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_breser','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dreser','smallint',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_rescont','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_contcabe','varchar(1)',$colafter,'R');
          $colafter=set_colu($tabla0,$tabla.'_contdeta','varchar(1)',$colafter,'D');
          $colafter=set_colu($tabla0,$tabla.'_ctadeb','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacre','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctadcto','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaprop','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaice','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaiva','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctairbp','varchar(13)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_tico','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_suco','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_at_a','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_at02','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_at03','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tice','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tcel','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fpag','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_final','smallint(3)',$colafter,'24');
          $colafter=set_colu($tabla0,$tabla.'_gencla','smallint(3)',$colafter,'60');
          $colafter=set_colu($tabla0,$tabla.'_recep','smallint(3)',$colafter,'60');

          $colafter=set_colu($tabla0,$tabla.'_regi','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modi','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anul','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_elim','smallint(3)',$colafter,'');

// 			msql_query('drop index tabla on '.$tabla0,$link_data);
// 			msql_query('create index tabla on '.$tabla0.'('.$tabla.'_tipo,'.$tabla.'_tabla,'.$tabla.'_codigo)',$link_data);

			
     }
		
     if(mb_stristr2('.ctas',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_signo','smallint(3)',$colafter,'');
     // 			$colafter=set_colu($tabla0,$tabla.'_info','smallint(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_codigoc','varchar(12)',$colafter,'');
     // 			$colafter=set_colu($tabla0,$tabla.'_ffee','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ccpp','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cair','varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nec','varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_niif','varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sri01','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sri101','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_super','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tipogd','varchar(1)',$colafter,'');

     }

     if(mb_stristr2('.evnt',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_lugar','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha1','date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha2','date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hora1','time',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hora2','time',$colafter,'');
     }
    
    
// 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    

     if(mb_stristr2('.enti.ppto',$tabla))
     {
               $colafter=set_colu($tabla0,$tabla.'_user','int(9)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_struc','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cedularuc','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_dactilar','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_pasaporte','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_idexterior','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_conadis','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_artesano','varchar(7)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_dnrdp','varchar(7)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_razsoc','varchar(100)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_nomcom','varchar(100)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_fechaini','date',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ape1','varchar(50)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ape2','varchar(50)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_nom1','varchar(50)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_nom2','varchar(50)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_nickname','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_fechanac','date',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_huellas','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_nacionalidad','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_color','varchar(20)',$colafter,'');
          
               if($empr0['empr_academico']==1)
               {
               $colafter=set_colu($tabla0,$tabla.'_padre','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_madre','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_repre','varchar(10)',$colafter,'');
               }
          
               $colafter=set_colu($tabla0,$tabla.'_sangre','varchar(3)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_sexo','varchar(1)',$colafter,'');
          
               $colafter=set_colu($tabla0,$tabla.'_stcivil','varchar(1)',$colafter,'');
          
//                echo '*/*/*/*/*===='.$empr0['empr_veterinaria'];
          
               if($empr0['empr_clinica']==1 or $empr0['empr_veterinaria']==1 )
               {
//                     $colafter=set_colu($tabla0,$tabla.'_sangre','varchar(3)',$colafter,'');
               }
          
//                echo '*/*/*/*';
//                var_dump($empr0);
          
               if($empr0['empr_veterinaria']==1)
               {
//                     $colafter=set_colu($tabla0,$tabla.'_sangre','varchar(3)',$colafter,'');
                    $colafter=set_colu($tabla0,$tabla.'_especie','varchar(25)',$colafter,'');
                    $colafter=set_colu($tabla0,$tabla.'_raza','varchar(25)',$colafter,'');
                    $colafter=set_colu($tabla0,$tabla.'_esteril','varchar(1)',$colafter,'');
                    $colafter=set_colu($tabla0,$tabla.'_veneno','varchar(1)',$colafter,'');
               }
          
               $colafter=set_colu($tabla0,$tabla.'_estatura_cm','smallint(3)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_peso_lb','smallint(3)',$colafter,'');
          
               $colafter=set_colu($tabla0,$tabla.'_codigoc','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_codigop','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_codigoe','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_clie','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_prov','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_empl','varchar(13)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_drtr','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_referidox','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_factura','varchar(13)',$colafter,'');
               // director status o rango

               // ELIMINAR
               $colafter=set_colu($tabla0,$tabla.'_calle1','varchar(30)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_calle2','varchar(30)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_calle3','varchar(30)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_callen','varchar(3)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_telefono','varchar(15)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_celular','varchar(15)',$colafter,'');
     // 			$colafter=set_colu($tabla0,$tabla.'_whatsapp','varchar(15)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_contacto','varchar(30)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_email','varchar(250)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_emailce','varchar(250)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_wsapp','varchar(250)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_wsappce','varchar(250)',$colafter,'');

               $colafter=set_colu($tabla0,$tabla.'_lpre','tinyint(1)',$colafter,'1');
               $colafter=set_colu($tabla0,$tabla.'_prec','int(1)',$colafter,'1');
               $colafter=set_colu($tabla0,$tabla.'_adrs','int(9)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_zsub','varchar(9)',$colafter,'GENE-GENE');
               $colafter=set_colu($tabla0,$tabla.'_attn','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_vndd','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_rcdd','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_csub','varchar(9)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cargo','varchar(20)',$colafter,'');

               $colafter=set_colu($tabla0,$tabla.'_tcli','varchar(6)',$colafter,'GENE');
               $colafter=set_colu($tabla0,$tabla.'_tpro','varchar(4)',$colafter,'BBSS');
               $colafter=set_colu($tabla0,$tabla.'_tiruc','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_exiva','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_coesp','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_coesn','varchar(6)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_obcon','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_rise','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_rime','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_rimpe','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_aret','X','','');
               $colafter=set_colu($tabla0,$tabla.'_agret','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_agren','varchar(6)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_agretres','varchar(25)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_tipreg','varchar(2)',$colafter,'01');
               $colafter=set_colu($tabla0,$tabla.'_dobtri','varchar(1)',$colafter,'0');
               $colafter=set_colu($tabla0,$tabla.'_retnor','varchar(1)',$colafter,'1');
               $colafter=set_colu($tabla0,$tabla.'_pdf','varchar(1)',$colafter,'');


               // ELIMINAR
               $colafter=set_colu($tabla0,$tabla.'_pcesp','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_pcont','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_prise','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_fp90','varchar(1)',$colafter,'');

               $colafter=set_colu($tabla0,$tabla.'_reprelegal','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_replegal','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ciiu','varchar(50)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_actividad','varchar(250)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_matriz','varchar(250)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_direccion','varchar(250)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_pais','varchar(4)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_prvc','varchar(2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_provincia','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_parroq','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cdad','varchar(6)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_postal','varchar(15)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_origing','varchar(1)',$colafter,'');

               $colafter=set_colu($tabla0,$tabla.'_dcto','decimal(6,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_comi','decimal(6,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cupo','decimal(9,2)',$colafter,'');

               $colafter=set_colu($tabla0,$tabla.'_tipoctab','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_numectab','varchar(10)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_bcosctab','varchar(4)',$colafter,'');

               $colafter=set_colu($tabla0,$tabla.'_ctaxcob','varchar(12)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ctaxpag','varchar(12)',$colafter,'');
          
//                if($empr0['empr_crm_escala']==1)
               if($empr0['empr_escala_crm']==1)
               {
                    $colafter=set_colu($tabla0,$tabla.'_id_escala','varchar(40)',$colafter,'');
                    $colafter=set_colu($tabla0,$tabla.'_escala_contact','varchar(40)',$colafter,'');
                    $colafter=set_colu($tabla0,$tabla.'_escala_account','varchar(40)',$colafter,'');
               }

          
          
               $colafter=set_colu($tabla0,$tabla.'_ctaacli','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ctaapro','X',$colafter,'');

               $colafter=set_colu($tabla0,$tabla.'_saldo','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_dndrp','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_logo1','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_logo2','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_logoce','X',$colafter,'');

               $index='cedularuc';
     // 			msql_query('drop index '.$cedularuc.' on '.$tabla0);
     // 			msql_query('create index '.$cedularuc.' on '.$tabla0.'('.$tabla.'_'.$index.')');

     }

     if(mb_stristr2('.item',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_descri2','varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_palabras','varchar(100)',$colafter,'');
          
          if($empr0['empr_taller']==1)
          {
               // tipo tarifa
          $colafter=set_colu($tabla0,$tabla.'_ttrf','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_horat','decimal(4,2)',$colafter,'');
          }
                    // Fijo, , Tempario, Clase, Diagnostico
          
          
          $colafter=set_colu($tabla0,$tabla.'_puni','decimal(15,8)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_puni0','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni1','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni2','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni3','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni4','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni5','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dcto','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dcto1','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dcto2','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dcto3','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dcto4','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dcto5','decimal(4,2)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_ppro1','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ppro2','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ppro3','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ppro4','decimal(15,8)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_prop','decimal(4,2)',$colafter,'');
 //subsidio
          $colafter=set_colu($tabla0,$tabla.'_ssid','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice2','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_iva','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_irbp','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_arcl','varchar(18)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_arancel','decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pvp','decimal(15,8)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_pvp','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pvp1','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pvp2','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pvp3','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pvp4','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pvp5','decimal(15,8)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_pcp1','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cost','decimal(15,8)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_cpro','decimal(11,4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_duni','varchar(1)',$colafter,'2');
          $colafter=set_colu($tabla0,$tabla.'_dcos','varchar(1)',$colafter,'2');
          $colafter=set_colu($tabla0,$tabla.'_dpre','varchar(1)',$colafter,'2');
          $colafter=set_colu($tabla0,$tabla.'_dval','varchar(1)',$colafter,'2');

// 			$colafter=set_colu($tabla0,$tabla.'_gtin','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ean','varchar(13)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_json','text',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_ean8','varchar(8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sku','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_codigov','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_codigoc','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_codigop','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numpart','varchar(20)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_stocksegu','decimal(15,8)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_bodenega','X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fechanega','X',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_codxunid','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_unixpack','mediumint(6)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_ubik','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_umdd','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mdda','varchar(4)',$colafter,'');
          
          // para peso volumetrico lxwxh / factor conversion 5000
          $colafter=set_colu($tabla0,$tabla.'_medida','X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_medidas','varchar(20)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_lwh','varchar(20)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_master','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_raiz','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_idem','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_grupo','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_lado','varchar(2)',$colafter,'');
          
//           if($empr0['empr_inmobil'])
          {
          $colafter=set_colu($tabla0,$tabla.'_kldd','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tlla','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clor','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clor1','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clor2','varchar(6)',$colafter,'');
          }
          
          if($empr0['empr_inmobil'])
          {
               $colafter=set_colu($tabla0,$tabla.'_ppdd','X',$colafter,'');
//                $colafter=set_colu($tabla0,$tabla.'_bbii','integer',$colafter,'');
          }
          
          
          $colafter=set_colu($tabla0,$tabla.'_color','X',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_back','varchar(4)',$colafter,''); // espalda
          $colafter=set_colu($tabla0,$tabla.'_chest','varchar(4)',$colafter,''); // pecho
          $colafter=set_colu($tabla0,$tabla.'_bust','varchar(4)',$colafter,''); // busto
          $colafter=set_colu($tabla0,$tabla.'_waist','varchar(4)',$colafter,''); // cintura
          $colafter=set_colu($tabla0,$tabla.'_hip','varchar(4)',$colafter,''); // cadera
          $colafter=set_colu($tabla0,$tabla.'_sleeve','varchar(4)',$colafter,''); // manga

          $colafter=set_colu($tabla0,$tabla.'_tmno','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dmtr','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rend','decimal(6,2)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_lsub','varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctgr','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mrca','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mdlo','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rfer','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_provee','varchar(13)',$colafter,'');
          
          if($empr0['empr_farmacia']==1 or $empr0['empr_medico']==1 )
          {
               $colafter=set_colu($tabla0,$tabla.'_rgsn','varchar(30)',$colafter,'');
//                $colafter=set_colu($tabla0,$tabla.'','varchar(30)',$colafter,'');
          }
//           $colafter=set_colu($tabla0,$tabla.'_pstc','varchar(8)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_marca','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modelo','varchar(20)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_priactivo','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_priactivo','X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_composi','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_lineasub','varchar(50)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_clie','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_prov','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_empl','varchar(1)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_cret','varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bser','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cair','varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_civa','varchar(2)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_at04','varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_at06','varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice04','varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice05','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice06','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice07','varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice08','varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice09','varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice10','varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ice11','varchar(6)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_ctavtas','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacvta','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacomp','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctainve','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctanomi','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaprop','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctadcto','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaice','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaiva','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctairbp','varchar(13)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_ctlg','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nctlg','smallint(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pctlg','smallint(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hoja','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_carr','varchar(1)',$colafter,'');

// 	  msql_query('insert into '.$tabla0.'('.$tabla.'_codigo,'.$tabla.'_descri)value("9900000000","ITEMS")',$link_data);

// 			$colafter=set_colu($tabla0,'lado','varchar(1)',$colafter,'');
          if(mb_stristr2('.rcsa',$cfg_empr))
          {
          $colafter=set_colu($tabla0,$tabla.'_fr','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_re','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rh','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_lh','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_orig','varchar(1)',$colafter,'');
          }
          
          $colafter=set_colu($tabla0,$tabla.'ice04','X');
          $colafter=set_colu($tabla0,$tabla.'ice05','X');
          $colafter=set_colu($tabla0,$tabla.'ice06','X');
          $colafter=set_colu($tabla0,$tabla.'ice07','X');
          $colafter=set_colu($tabla0,$tabla.'ice08','X');
          $colafter=set_colu($tabla0,$tabla.'ice09','X');
          $colafter=set_colu($tabla0,$tabla.'ice10','X');
          $colafter=set_colu($tabla0,$tabla.'ice11','X');
          
     }
		
     if(mb_stristr2('.clor',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_hexa','varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hexa2','varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rgb1','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rgb2','smallint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rgb3','smallint(3)',$colafter,'');
     }
    
     if(mb_stristr2('.nvdd',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_abrev','varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_posi','tinyint(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni','decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont','varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_codigon','varchar(13)',$colafter,'');
          msql_query('insert into '.$tabla0.'('.$tabla.'_codigo,'.$tabla.'_descri)value("90000","NOVEDADES")',$link_data);
     }
		
     if(mb_stristr2('.civa',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_porc', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctavtas', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacomp', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaretc', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaretp', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ctacont4', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont5', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont1', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont2', 'varchar(13)',$colafter,'');
          
     }

     if(mb_stristr2('.cice',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_porc', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctavtas', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacomp', 'varchar(13)',$colafter,'');
     }

     if(mb_stristr2('.cair',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_porc', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bser', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaxcob', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaxpag', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ctacomp', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaretc', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaretp', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ctacont1', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont2', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont5', 'varchar(13)',$colafter,'');
     }

     if(mb_stristr2('.arcl',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_crtr', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_porc', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_adva', 'decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fodi', 'decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_isd', 'decimal(4,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fdfa', 'X',$colafter,'');
     }

     if(mb_stristr2('.caja.caba.ccbb.',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptov', 'varchar(6)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');

// 			$colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bcos', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_corte', 'smallint',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(15)',$colafter,'');
     }

     if(mb_stristr2('.ptoe',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ambice', 'tinyint(1)',$colafter,'');
     }    
    
     if(mb_stristr2('.ptov',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero', 'int(9)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ambice', 'tinyint(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caba', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cbco', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ccbb', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caja', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bode', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hora1', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hora2', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nomcom', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_auto', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_autocon', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_direccion', 'varchar(40)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(15)',$colafter,'');
     }

     if(mb_stristr2('.vndd',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_email', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(15)',$colafter,'');
     }

     if(mb_stristr2('.bode',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptov', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_direccion', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(15)',$colafter,'');
     }

     if(mb_stristr2('.ctab.bcos',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero', 'varchar(16)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bcos', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_corte', 'smallint',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(15)',$colafter,'');
     }

     if(mb_stristr2('.pais',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ats', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tlfn', 'varchar(4)',$colafter,'');
     }
    
     if(mb_stristr2('.capr',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modu', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_concepto', 'varchar()',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha1', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha2', 'date',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_modu', 'varchar(4)',$colafter,'');
     }    
    
     if(mb_stristr2('.clac',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');

//           $colafter=set_colu($tabla0,$tabla.'_try', 'smallint',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fechaup', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_upldfec', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_recepfec', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_recepmsj', 'varchar(250)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_autorfec', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_autornum', 'varchar(49)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_autormsj', 'varchar(250)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_xml1', 'text',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_xml2', 'text',$colafter,'');

// 			$colafter=set_colu($tabla0,$tabla.'_scan', 'varchar(1)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_xml', 'X');
          $colafter=set_colu($tabla0,$tabla.'_firma', 'X');

// 			$colafter=set_colu($tabla0,$tabla.'_atrznume', 'X',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_atrzfecha', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_upld', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_srirecep', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sriautor', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_atrz', 'X',$colafter,'');

     }

     if(mb_stristr2('.ulog',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_url', 'varchar(250)',$colafter,'');
     }

     if(mb_stristr2('.atrz',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_entidad', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_docu', 'varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_serie', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_srie', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_desde', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hasta', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caduca', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_claveacc', 'varchar(49)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_atrznume', 'varchar(49)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_atrzfech', 'varchar(16)',$colafter,'');
     }

     if(mb_stristr2('.atrd',$tabla))
     {
// 			$colafter=set_colu($tabla0,$tabla.'_entidad', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_atrz', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_docu', 'varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_desde', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hasta', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caduca', 'date',$colafter,'');

     }

     if(mb_stristr2('.zsub',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaanti', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_attn', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vndd', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rcdd', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaxcob', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaacli', 'varchar(12)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_ctaacli', 'X',$colafter,'');
     }

     if(mb_stristr2('.tcli',$tabla))
     {
     }

     if(mb_stristr2('.tpro',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ctacont', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaanti', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaxpag', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaapro', 'varchar(12)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_ctaapro', 'X',$colafter,'');
     }

     if(mb_stristr2('.lsub',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ctavtas', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctadcto', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacvta', 'varchar(12)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_ctacomp', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctainve', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctaprod', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctapduc', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ean13', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_recal', 'datetime',$colafter,'');
     }

     if(mb_stristr2('.csub',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctacost', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctagast', 'varchar(12)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ctanomi', 'varchar(12)',$colafter,'');
     }

     if(mb_stristr2('.asub',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_puni', 'decimal(15,8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_lsub', 'varchar(9)',$colafter,'');
     }

     if(mb_stristr2('.lote',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_impor', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fabrica', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caduca', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_costo', 'decimal(13,4)',$colafter,'');
          
          //eliminar
          $colafter=set_colu($tabla0,$tabla.'_fabric', 'date',$colafter,'');
     }

     if(mb_stristr2('.mbco',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_numero', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha1', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha2', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_valor', 'decimal(9,2)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_benefic', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_refer1', 'varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_refer2', 'varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_refer3', 'varchar(100)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ctab', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_docu', 'int(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_idnum', 'int(7)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_lugar', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caja', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tipo', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_registro', 'varchar(200)',$colafter,'');
     }

     if(mb_stristr2('.seri',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_serial', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
     }

     if(mb_stristr2('.port',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
     }

     if(mb_stristr2('.vssl',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_flag', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mmsi', 'varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_imo', 'varchar(7)',$colafter,'');
     }

     if(mb_stristr2('.cntn',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_factory', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_customer', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecfact', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_idweb', 'date',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
     }

     
     
     if(mb_stristr2('.ppdd',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_descri2','varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle1', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle2', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_callen', 'varchar(5)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_proyec', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pisomz', 'varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dptovi', 'varchar(3)',$colafter,'');
          
          
          $colafter=set_colu($tabla0,$tabla.'_pptario', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_pptario1', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pptario2', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nombre1', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nombre2', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsapp1', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsapp2', 'varchar(10)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_rsdente1', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_rsdente2', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsappr1', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsappr2', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nombrer1', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nombrer2', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_factura', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_alicuota', 'decimal(6,2)',$colafter,'');
          
//           $colafter=set_colu($tabla0,$tabla.'_frente','decimal(6,2)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_fondo','decimal(6,2)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_terreno','decimal(9,2)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_constru','decimal(9,2)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_gps1', 'decimal(10,6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps2', 'decimal(10,6)',$colafter,'');
          
          if(1==2)
          if($empr0['empr_inmobil'] or $cfg_empr=='demo')
          {
               $colafter=set_colu($tabla0,$tabla.'_ctlg','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_lsub','varchar(9)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_anio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_puntos','integer(7)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_avaluo','decimal(15,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cierre','decimal(15,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_prov','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_prvc','varchar(2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cdad','varchar(6)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_direccion','varchar(100)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_venta','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_alqui','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_precio','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_pventa','decimal(9,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_palqui','decimal(9,2)',$colafter,'');
               
               $colafter=set_colu($tabla0,$tabla.'_frente','decimal(6,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_fondo','decimal(6,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_terreno','decimal(9,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_constru','decimal(9,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_alicuota','decimal(9,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_antiguedad','decimal(9,2)',$colafter,'');
               
               $colafter=set_colu($tabla0,$tabla.'_plantas','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_sala','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_comedor','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cocina','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_habitac','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_estudio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_banio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_banio2','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_patio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_terra','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_bbq','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_garage','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_piscina','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_jacuzzi','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_vistamar','smallint',$colafter,'');
          }
          
     }

     if(mb_stristr2('.bbii',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_descri2','varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle1', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle2', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_callen', 'varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pptario', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsapp', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_factura', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_alicuota', 'decimal(6,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsapp1', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_wsapp2', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps1', 'decimal(10,6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps2', 'decimal(10,6)',$colafter,'');
          
//           if(1==2)
//           if($empr0['empr_inmobil'] or $cfg_empr=='demo')
          {
               $colafter=set_colu($tabla0,$tabla.'_ctlg','varchar(1)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_lsub','varchar(9)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_anio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_puntos','integer(7)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_avaluo','decimal(15,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cierre','decimal(15,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_prov','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_prvc','varchar(2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cdad','varchar(6)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_direccion','varchar(100)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_venta','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_alqui','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_precio','X',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_pventa','decimal(9,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_palqui','decimal(9,2)',$colafter,'');
               
               $colafter=set_colu($tabla0,$tabla.'_frente','decimal(6,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_fondo','decimal(6,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_terreno','decimal(9,2)',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_constru','decimal(9,2)',$colafter,'');
               
               $colafter=set_colu($tabla0,$tabla.'_plantas','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_sala','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_comedor','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_cocina','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_habitac','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_estudio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_banio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_banio2','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_patio','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_terra','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_bbq','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_garage','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_piscina','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_jacuzzi','smallint',$colafter,'');
               $colafter=set_colu($tabla0,$tabla.'_vistamar','smallint',$colafter,'');
          }
          
     }


     if(mb_stristr2('.bldn',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_master', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_house', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_job', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_booking', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cntn', 'varchar(11)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_shipper', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_notify', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_consignee', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_consigna', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_manifiesto', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_agnt', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vndd', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nave1', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nave2', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_viaje', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_port1', 'varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_port2', 'varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha1', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha2', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_peso', 'decimal(13,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_carga', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_valor', 'decimal(13,2)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_idweb', 'date',$colafter,'');

     }

     if(mb_stristr2('.rpis',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_factory', 'X',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cedula', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_iess_tipo', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_iess_cober', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_seguro', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pdf', 'smallint(1)',$colafter,'');
     }
     
     
     if(mb_stristr2('.airl',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_prefijo', 'varchar(3)',$colafter,'');
     }

     if(mb_stristr2('.flgh',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_airl', 'varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vuelo', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad1', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad2', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_itin1', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_esti1', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_real1', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_itin2', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_esti2', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_real2', 'datetime',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hora1', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hora2', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_hora3', 'X',$colafter,'');
     }
    
     if(mb_stristr2('.mkvh',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
     }
    
     if(mb_stristr2('.mdvh',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modelo', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anio', 'smallint(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_carroceria', 'varchar(10)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ntec', 'decimal(3,1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_motor', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cilindraje', 'mediumint(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_potencia', 'mediumint(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_torque', 'mediumint(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cargatn', 'mediumint(3)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ejes', 'smallint(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pax', 'smallint(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ruedas', 'smallint(2)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_clase', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clvh', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cilindro', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_version', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ant', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_medidas', 'varchar(20)',$colafter,'');
     }
    
     if(mb_stristr2('.vinn',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modelo', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anio', 'smallint(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_carroceria', 'varchar(10)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ntec', 'decimal(3,1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_motor', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cilindraje', 'mediumint(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_potencia', 'mediumint(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_torque', 'mediumint(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cargatn', 'mediumint(3)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ejes', 'smallint(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pax', 'smallint(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ruedas', 'smallint(2)',$colafter,'');
                    
          $colafter=set_colu($tabla0,$tabla.'_clase', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clvh', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cilindro', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_medidas', 'varchar(20)',$colafter,'');
          //ant
          $colafter=set_colu($tabla0,$tabla.'_camv', 'X',$colafter,'');
          //sri
          $colafter=set_colu($tabla0,$tabla.'_ramv', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numotor', 'varchar(20)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_clor', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clor1', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clor2', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_clvh', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mdvh', 'varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_plvh', 'varchar(9)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_mdlo', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_placa', 'X',$colafter,'');
     }
    
     if(mb_stristr2('.vhcl.plvh',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modelo', 'varchar(35)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anio', 'smallint(4)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_ntec', 'decimal(3,1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clase', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cilindro', 'X',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_cilindraje', 'mediumint(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_camv', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_motor', 'varchar(20)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_clor', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clor1', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clor2', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_codt', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_park', 'varchar(13)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_wsapp', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_idpropietario', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_propietario', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_conductor', 'varchar(30)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_idweb', 'date',$colafter,'');

          // 
          $colafter=set_colu($tabla0,$tabla.'_propietarioid', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mdlo', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_placa', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_prvc', 'varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_provincia', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad', 'varchar(20)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_clvh', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mdvh', 'varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vinn', 'varchar(17)',$colafter,'');

     }

     
     // el precio de la mano de obra va definido por el nivel tecnico
     if(mb_stristr2('.pmdo',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clvh', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gdif', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_punic', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_punii', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_punig', 'decimal(5,2)',$colafter,'');
     }

     if(mb_stristr2('.tmpr',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modelo', 'varchar(35)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anio', 'smallint(4)',$colafter,'');
          
          $colafter=set_colu($tabla0,$tabla.'_clase', 'varchar(10)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_clvh', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mdvh', 'varchar(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          
//           $colafter=set_colu($tabla0,$tabla.'_tiempo', 'varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ttrf', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puntos', 'smallint(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_horas', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mins', 'smallint(3)',$colafter,'');
     }

     if(mb_stristr2('.tcvh',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_clase', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clvh', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ttrf', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_puni', 'decimal(6,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_iva', 'decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pvp', 'decimal(6,2)',$colafter,'');
     }

     if(mb_stristr2('.sntr',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_numero', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_seguro', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_poliza', 'varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vhcl', 'varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_plvh', 'varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_entrega', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ejecutivo', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_asegurado', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_lugar', 'varchar(30)',$colafter,'');
     }
	
     if(mb_stristr2('.bsqj',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_tema', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cant', 'varchar(15)',$colafter,'');
     }

     if(mb_stristr2('.trty',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_imgt', 'smallint',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cong', 'int',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_grupo', 'smallint',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero', 'smallint',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sector', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bloques', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_casas', 'smallint',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_referencia', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_location', 'varchar(40)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_tdb1', 'float',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_tdb2', 'varchar(5000)',$colafter,'');
     }

     if(mb_stristr2('.lreu',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_cong', 'int',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_grupo', 'smallint',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_sector', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_direccion', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_color', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_location', 'varchar(40)',$colafter,'');
     }

     if(mb_stristr2('.jwol',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tdb1', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tdb2', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nvc1', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nvc2', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_smm0', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_smm1', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_smm2', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_smm3', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_smm4', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_lib1', 'varchar(5000)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ata1', 'varchar(5000)',$colafter,'');
     }

     if(mb_stristr2('.jwtv',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_lang', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_guia', 'varchar(24)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_categ0', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_categ0d', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_categ0n', 'smallint(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_categ1', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_categ1d', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_categ1n', 'smallint(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_title', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media', 'varchar(200)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_segundos', 'smallint(5)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_mediamp3', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media1080', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media720', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media480', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media360', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media240', 'varchar(200)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_mediamp3s', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media1080s', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media720s', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media480s', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media360s', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_media240s', 'varchar(200)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_subtt', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_image0', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_image1', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_image', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_publi', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modif', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_categ', 'X',$colafter,'');
     }

     if(mb_stristr2('.pk12',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cedula', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_caduca', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pass', 'varchar(30)',$colafter,'');
     }

     if(mb_stristr2('.logo',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ptov', 'X',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_pass', 'varchar(30)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_caduca', 'date',$colafter,'');
     }

     if(mb_stristr2('.imgi',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.imgt',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'trty', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_trty', 'varchar(7)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.imgv.imgp',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_vhcl', 'varchar(8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_plvh', 'varchar(8)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.imgm',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mdvh', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }
     
     if(mb_stristr2('.imgp',$tabla))
     {
//           $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_ppdd', 'varchar(13)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
          
//           $colafter=set_colu($tabla0,$tabla.'_defa','X',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_ppdd', 'X',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_file', 'X',$colafter,'');
//           $colafter=set_colu($tabla0,$tabla.'_fecha', 'X',$colafter,'');
     }

     if(mb_stristr2('.imgb',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bbii', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.imge',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.imgd.fdoc',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_docu', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_idnum', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_iddet', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_type', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.doci',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.doce',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
     }

     if(mb_stristr2('.teki',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_dato','varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_valor','decimal(9,2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_texto','varchar(200)',$colafter,'');
     }

     if(mb_stristr2('.adrs',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_user', 'int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sucu','varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_area', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tlfn', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ext', 'varchar(5)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nombre', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_contacto', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_direccion', 'varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_opera', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cdad', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_provincia', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_postal', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cpostal', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle1', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle2', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle3', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_callen', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_email', 'varchar(150)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps1', 'decimal(15,10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_gps2', 'decimal(15,10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cntnombre', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cntdirecc', 'varchar(50)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_idweb', 'date',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_suc','X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_sucursal','X',$colafter,'');

     }

     if(mb_stristr2('.tlfn',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_contacto', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_opera', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_tlfn', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pre', 'varchar(4)',$colafter,'');
// 			$colafter=set_colu($tabla0,$tabla.'_prefix', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_prefix', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_area', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_numero', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ext', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_adrs','int(9)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_suc','varchar(3)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_area', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nombre', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_direccion', 'varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cdad', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_ciudad', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_postal', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle1', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle2', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_calle3', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_callen', 'varchar(15)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_email', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cntnombre', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cntdirecc', 'varchar(50)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_idweb', 'date',$colafter,'');
     }

     if(mb_stristr2('.mail',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_defa', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_direccion', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_contacto', 'varchar(30)',$colafter,'');
     }

     if(mb_stristr2('.mrca',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'X',$colafter,'');
     }

     if(mb_stristr2('.cnmb',$tabla))
     {
          
     }

     if(mb_stristr2('.prac',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_categ', 'varchar(50)',$colafter,'');
          
     }

     if(mb_stristr2('.rgsn',$tabla))
     {
          
          $colafter=set_colu($tabla0,$tabla.'_codreg', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_codpre', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nomcom', 'varchar(200)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_precom', 'varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_formaf', 'varchar(100)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_priact', 'text',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_concen', 'text',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_farmaco', 'text',$colafter,'');
          
     }

     if(mb_stristr2('.mdlo',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mrca', 'varchar(6)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anio', 'varchar(4)',$colafter,'');
     }
		
     if(mb_stristr2('.acce',$tabla))
     {
          $colafter=set_colu($tabla0,$tabla.'_user', 'varchar(10)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_docu', 'varchar(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_full', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nuev', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_regi', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_modi', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anul', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_elim', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_apro', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_proc', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cons', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_info', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_espe', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_clon', 'varchar(1)',$colafter,'');
     }
	
     if(mb_stristr2('.ppto',$tabla) and  $cfg_empr=='jw19')
     {
          $colafter=set_colu($tabla0,$tabla.'_aprobado', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_disponible', 'varchar(50)',$colafter,'');
          for($cdisp=8; $cdisp<=22; $cdisp++)
          {
//                $colafter=set_colu($tabla0,$tabla.'_d'.fillzero($cdisp,2), 'varchar(1)',$colafter,'');
//                $colafter=set_colu($tabla0,$tabla.'_e'.fillzero($cdisp,2), 'varchar(1)',$colafter,'');
          }
          $colafter=set_colu($tabla0,$tabla.'_congcity', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_congname', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_edad', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bautizado', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_nacimiento', 'smallint(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_bautizo', 'smallint(4)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_medical', 'X',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_medicaltra', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_mesesantes', 'int(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_profesion', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_privilegio', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_anytask', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_horario', 'varchar(30)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_avaiable', 'varchar(50)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_area', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_funcion', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_grupo_seg', 'varchar(5)',$colafter,'');

          $colafter=set_colu($tabla0,$tabla.'_lesiones', 'varchar(50)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_discapacidad', 'varchar(20)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_cardiaco', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_respiratorio', 'varchar(1)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_capa_resp', 'varchar(2)',$colafter,'');
          $colafter=set_colu($tabla0,$tabla.'_observaciones', 'varchar(200)',$colafter,'');
     }

     if(mb_stristr2('.liga.posi.torn.team.nivel',$tabla) and  $cfg_empr=='soft')
       {
//       $colafter=set_colu($tabla0,$tabla.'_udate','datetime',$colafter);
//      $colafter=set_colu($tabla0,$tabla.'_uuser','varchar(10)',$colafter);
       }

          
          
    if(mb_stristr2('.mtch',$tabla))
       {
         $colafter=set_colu($tabla0,$tabla.'_liga','char(4)',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_torn','char(4)',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_jornada','char(4)',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_dia','X',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_hora','X',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_fecha','date',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_hora','char(8)',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_diag','date',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_horag','time',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_cancha','smallint(1)',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_tipo','char(2)',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_team1','char(4)',$colafter);
         $colafter=set_colu($tabla0,$tabla.'_team2','char(4)',$colafter);
    }          
          

    if(mb_stristr2('.torn',$tabla))
       {
         $colafter=set_colu($tabla0,$tabla.'_liga','char(4)',$colafter,'');
         $colafter=set_colu($tabla0,$tabla.'_abrevia','char(6)',$colafter,'');
       }

    if(mb_stristr2('.rost',$tabla))
       {
         $colafter=set_colu($tabla0,$tabla.'_liga','X',$colafter,'');
         $colafter=set_colu($tabla0,$tabla.'_torn','int(11)',$colafter,'');
         $colafter=set_colu($tabla0,$tabla.'_enti','char(10)',$colafter,'');
         $colafter=set_colu($tabla0,$tabla.'_team','char(4)',$colafter,'');
         $colafter=set_colu($tabla0,$tabla.'_nive','char(4)',$colafter,'');
         $colafter=set_colu($tabla0,$tabla.'_grupo','char(1)',$colafter,'');
       }

	
	
}

function alte_tran($tabla)
{
     if(empty($tabla)){return;}
     if(empty($link_data)){$link_data=$_SESSION['link_data'];}
     if(empty($cfg_empr)){$cfg_empr=$_SESSION['empr_codigo'];}
     $empr0=data_maes('empr',$cfg_empr);

     $tabla1=$tabla.'1';
     $tabla2=$tabla.'2';
     
     //tabla1 campos x modulo
     {
     $colafter=set_colu($tabla1,'mensaje','varchar(250)',$colafter);
     $colafter=set_colu($tabla1,'adjunto1','varchar(250)',$colafter);

     //$colafter=set_colu($tabla1,'transfer','X',$colafter);
          
     if(mb_stristr2('.vtas.clie.comp.prov',$tabla))
     {
          $colafter=set_colu($tabla1,'anticipo','decimal(9,2)',$colafter);
          
          $colafter=set_colu($tabla1,'ccbb','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'caja','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'efectivo','decimal(9,2)',$colafter);
          
          $colafter=set_colu($tabla1,'numche','int(9)',$colafter);
          $colafter=set_colu($tabla1,'cheque','decimal(9,2)',$colafter);
          
          $colafter=set_colu($tabla1,'ctab','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'numtra','int(9)',$colafter);
          $colafter=set_colu($tabla1,'transf','decimal(9,2)',$colafter);
          
          $colafter=set_colu($tabla1,'numvou','int(9)',$colafter);
          $colafter=set_colu($tabla1,'tarjeta','decimal(9,2)',$colafter);
          
          
          $colafter=set_colu($tabla1,'voucher','X');
//           $colafter=set_colu($tabla1,'transf','X',$colafter);
	     $colafter=set_colu($tabla1,'transfer','X');
          
     }
          
     if(mb_stristr2('.vtas.clie.',$tabla))
     {
          $colafter=set_colu($tabla1,'credito','decimal(9,2)',$colafter);
          $colafter=set_colu($tabla1,'capro','varchar(1)',$colafter);
          $colafter=set_colu($tabla1,'cuser','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'cdate','datetime',$colafter);
     }
          
          
     if(mb_stristr2('.vtas.clie.comp.prov.dxco.dxpa...guia...tsor.caja.bcos.retc.retp',$tabla))
     {$colafter=set_colu($tabla1,'plazo','tinyint(3)',$colafter);}
//      {$colafter=set_colu($tabla1,'plazo','smallint(3)',$colafter);}

          
     if(mb_stristr2('.vtas.dxco',$tabla))
     {
//           $colafter=set_colu($tabla1,'diascob','smallint',$colafter);
          $colafter=set_colu($tabla1,'diascob','X');
          $colafter=set_colu($tabla1,'dixco','smallint',$colafter);
     }
          
     if(mb_stristr2('.retc.retp',$tabla))
     {
          $colafter=set_colu($tabla1,'errf','smallint',$colafter);
          $colafter=set_colu($tabla1,'berr','X');
     }
          
          
//      if(mb_stristr2('.vtas.comp..',$tabla))
//      {$colafter=set_colu($tabla1,'dmora','smallint(3)',$colafter);}
          
     if(mb_stristr2('.vtas.clie.clte.comp.prov.dxco.dxpa',$tabla))
     {$colafter=set_colu($tabla1,'cuota','smallint(3)',$colafter);}

     if(mb_stristr2('.comp.prov.impo',$tabla))
     {
     $colafter=set_colu($tabla1,'nume_impo','varchar(12)',$colafter);
     $colafter=set_colu($tabla1,'impor','varchar(12)',$colafter);
     $colafter=set_colu($tabla1,'costoe1','decimal(15,8)',$colafter);
     $colafter=set_colu($tabla1,'seguro1','decimal(15,8)',$colafter);
     $colafter=set_colu($tabla1,'flete1','decimal(15,8)',$colafter);
     $colafter=set_colu($tabla1,'costol1','decimal(15,8)',$colafter);

     $colafter=set_colu($tabla1,'costoe1d','varchar(1)',$colafter);
     $colafter=set_colu($tabla1,'seguro1d','varchar(1)',$colafter);
     $colafter=set_colu($tabla1,'flete1d','varchar(1)',$colafter);
     $colafter=set_colu($tabla1,'costol1d','varchar(1)',$colafter);
     }

     if(mb_stristr2('.vtas.clie.carr.call...comp.prov.lpro..retp.retc',$tabla))
     {$colafter=set_colu($tabla1,'toenti','varchar(13)',$colafter);}
          
     if(mb_stristr2('.vtas.clie.comp.prov...tsor.caba.caja.bcos.ctab...dxco.dxpa.inve...guia',$tabla))
     {
     $colafter=set_colu($tabla1,'todocu','varchar(4)',$colafter);
     $colafter=set_colu($tabla1,'toptoe','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'tonume','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'toatrz','varchar(49)',$colafter);
     }

     if(mb_stristr2('.caba.bcos.ctab',$tabla))
     {$colafter=set_colu($tabla1,'benefic','varchar(30)',$colafter);}		

     if(mb_stristr2('.vtas.clie.call',$tabla))
     {
          $colafter=set_colu($tabla1,'attn','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'vndd','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'rcdd','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'cmpd','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'drtr','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'adrs','int(9)',$colafter);
          $colafter=set_colu($tabla1,'atencion','varchar(200)',$colafter);
     }		
          
     if(mb_stristr2('.vtas.clie',$tabla))
     if($empr0['empr_escala_crm']==1)
     {
          $colafter=set_colu($tabla1,'id_escala','X',$colafter);
          $colafter=set_colu($tabla1,'escala_contact','varchar(40)',$colafter);
          $colafter=set_colu($tabla1,'escala_account','varchar(40)',$colafter);
          $colafter=set_colu($tabla1,'escala_deal','varchar(40)',$colafter);
//           $colafter=set_colu($tabla0,$tabla.'_id_escala','X',$colafter,'');
     }
          
          

     if(mb_stristr2('.inve.',$tabla))
     {
     $colafter=set_colu($tabla1,'impor','varchar(12)',$colafter);
     $colafter=set_colu($tabla1,'tobode','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'bode2','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'dias','smallint(2)',$colafter);
     $colafter=set_colu($tabla1,'numfac','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'numpro','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'numtbj','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'nume_fact','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'nume_opro','varchar(9)',$colafter);
     $colafter=set_colu($tabla1,'idfact','int(9)',$colafter);
     $colafter=set_colu($tabla1,'dias_tep','smallint(3)',$colafter);
     }		

     if(mb_stristr2('.ppro',$tabla))
     {
     $colafter=set_colu($tabla1,'numpro','varchar(9)',$colafter);
     }		

     if(mb_stristr2('.tsor.caja.bcos',$tabla))
     {
          $colafter=set_colu($tabla1,'rcdd','varchar(10)',$colafter);
     }		

     if(mb_stristr2('.tsor.caja.bcos.....dxco.dxpa',$tabla))
     {
          $colafter=set_colu($tabla1,'caba2','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'ccbb2','varchar(6)',$colafter);
     }		

     if(mb_stristr2('.tsor',$tabla))
     {
     $colafter=set_colu($tabla1,'fcobro','date',$colafter);
     $colafter=set_colu($tabla1,'fdepo','date',$colafter);
     $colafter=set_colu($tabla1,'fechadepo','date',$colafter);
     $colafter=set_colu($tabla1,'ctabdepo','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'numedepo','varchar(9)',$colafter);
          
     $colafter=set_colu($tabla1,'ecta_desc1','varchar(20)',$colafter);
     $colafter=set_colu($tabla1,'ecta_refe1','varchar(20)',$colafter);
     $colafter=set_colu($tabla1,'ecta_refe2','varchar(20)',$colafter);
     $colafter=set_colu($tabla1,'ecta_codtra','varchar(20)',$colafter);
          
          
     }		

     if(mb_stristr2('.caja',$tabla))
     {
     $colafter=set_colu($tabla1,'fcobro','date',$colafter);
     $colafter=set_colu($tabla1,'fdepo','date',$colafter);
     $colafter=set_colu($tabla1,'fechadepo','date',$colafter);
     $colafter=set_colu($tabla1,'ctabdepo','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'numedepo','varchar(9)',$colafter);
     }		

     if(mb_stristr2('.bcos',$tabla))
     {
     $colafter=set_colu($tabla1,'fentrega','date',$colafter);
     $colafter=set_colu($tabla1,'fcobro','date',$colafter);
     $colafter=set_colu($tabla1,'ecta_desc1','varchar(20)',$colafter);
     $colafter=set_colu($tabla1,'ecta_refe1','varchar(20)',$colafter);
     $colafter=set_colu($tabla1,'ecta_refe2','varchar(20)',$colafter);
     $colafter=set_colu($tabla1,'ecta_codtra','varchar(20)',$colafter);
     }		

     if(mb_stristr2('.clie.vtas',$tabla))
     {
          $colafter=set_colu($tabla1,'paypal_res','text',$colafter);
          $colafter=set_colu($tabla1,'payphone_res','text',$colafter);
     }

          
     if(mb_stristr2('.vtas.comp.guia.retp.retc.rete.retb',$tabla))
     {
//           echo '<br>===========================********************';
          $colafter=set_colu($tabla1,'atrz','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'atrzvali','varchar(1)',$colafter);
//           echo '<br>===========================********************';
     }		
          
          
     if(mb_stristr2('.vtas.clie.comp.prov.guia.retp.retc...role.tsor.caja.bcos...otbj.pduc.prXod.opro..rmed',$tabla))
     {$colafter=set_colu($tabla1,'claveacc','varchar(49)',$colafter);}

     if(mb_stristr2('.vtas.retp.comp.retc.guia.rete.retb',$tabla))
     {
          $colafter=set_colu($tabla1,'autornum','varchar(49)',$colafter);

          $colafter=set_colu($tabla1,'firmado','datetime',$colafter);
          $colafter=set_colu($tabla1,'firmafec','datetime',$colafter);
          $colafter=set_colu($tabla1,'recepfec','datetime',$colafter);
          $colafter=set_colu($tabla1,'autorfec','datetime',$colafter);

          $colafter=set_colu($tabla1,'recepmsj','varchar(250)',$colafter);
          $colafter=set_colu($tabla1,'autormsj','varchar(200)',$colafter);
          $colafter=set_colu($tabla1,'firmante','varchar(13)',$colafter);

          $colafter=set_colu($tabla1,'atrznume','varchar(49)',$colafter);
     }		

          
     if(mb_stristr2('.vtas.guia.retp.clie.prov.tsor.caja.susa.role.comp.opro.retc',$tabla))
     {
     $colafter=set_colu($tabla1,'emailfec','datetime',$colafter);
     $colafter=set_colu($tabla1,'emailto','varchar(50)',$colafter);
     }

     if(mb_stristr2('.icvs.demo',$empr0['empr_codigo']))
     if(mb_stristr2('.vtas.clie...',$tabla))
     {
          $colafter=set_colu($tabla1,'proyecto','varchar(15)',$colafter);
          $colafter=set_colu($tabla1,'pisomz','varchar(4)',$colafter);
          $colafter=set_colu($tabla1,'dptovi','varchar(4)',$colafter);
     }		

     if(mb_stristr2('.vtas.clie...comp.prov.retc.retp',$tabla))
     {$colafter=set_colu($tabla1,'infoadic','text',$colafter);}		

     if(mb_stristr2('.vtas.clie.comp.tsor.caja.bcos.dxco.dxpa.carr.prov.lpro',$tabla))
     {$colafter=set_colu($tabla1,'fpag','varchar(2)',$colafter);}		

          // fecha estimada llegada en impor prov
//      if($empr0['empr_automotriz']==1 and $empr0['empr_impo']==1)
//      {$colafter=set_colu($tabla1,'fecha2','date',$colafter);}
          
          
     if(mb_stristr2('.cont.comp.prov.vtas',$tabla))
     {$colafter=set_colu($tabla1,'suco','varchar(2)',$colafter);}		

//      if(mb_stristr2('.comp.',$tabla))
//      {$colafter=set_colu($tabla1,'numped','varchar(9)',$colafter);}		

     if(mb_stristr2('.prov.',$tabla))
     {
          $colafter=set_colu($tabla1,'numsol','varchar(9)',$colafter);
          $colafter=set_colu($tabla1,'numcot','varchar(9)',$colafter);
     }

     if(mb_stristr2('.cont.comp',$tabla))
     {$colafter=set_colu($tabla1,'rise','varchar(1)',$colafter);}		

     if(mb_stristr2('.susa.nomi',$tabla))
     {
     $colafter=set_colu($tabla1,'fecha1','date',$colafter);
     $colafter=set_colu($tabla1,'fecha2','X');
     $colafter=set_colu($tabla1,'fechasale','date',$colafter);
     $colafter=set_colu($tabla2,'fecha2','date',$colafter);
     }		
          
     

     if(mb_stristr2('.guia',$tabla))
     {
          $colafter=set_colu($tabla1,'fecha1','date',$colafter);
          $colafter=set_colu($tabla1,'fecha2','date',$colafter);
          $colafter=set_colu($tabla1,'punto1','varchar(250)',$colafter);
          $colafter=set_colu($tabla1,'punto2','varchar(250)',$colafter);
          $colafter=set_colu($tabla1,'cedula1','varchar(13)',$colafter);
          $colafter=set_colu($tabla1,'cedula2','varchar(13)',$colafter);
          $colafter=set_colu($tabla1,'nombre1','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'nombre2','varchar(30)',$colafter);

          $colafter=set_colu($tabla1,'cntn','varchar(11)',$colafter);
          $colafter=set_colu($tabla1,'vhcl','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'plvh','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'placa','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'ruta','varchar(50)',$colafter);
          $colafter=set_colu($tabla1,'motivo','varchar(20)',$colafter);
          $colafter=set_colu($tabla1,'numfac','varchar(9)',$colafter);

          $colafter=set_colu($tabla1,'wsapp1','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'wsapp2','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'valflete','decimal(5,2)',$colafter);

          $colafter=set_colu($tabla1,'observaciones','varchar(250)',$colafter);
     }		

     if(mb_stristr2('.otbj',$tabla))
     {
          $colafter=set_colu($tabla1,'plvh','varchar(7)',$colafter);
          $colafter=set_colu($tabla1,'vinn','varchar(20)',$colafter);
//           $colafter=set_colu($tabla1,'garant','varchar(1)',$colafter);
          $colafter=set_colu($tabla1,'tarifa','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'ntec','decimal(3,1)',$colafter);
          $colafter=set_colu($tabla1,'pmmoo','decimal(5,2)',$colafter);
     }		

     if(mb_stristr2('.rmed',$tabla))
     {
          $colafter=set_colu($tabla1,'mdco','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'paciente','varchar(50)',$colafter);
//           $colafter=set_colu($tabla1,'alergia','varchar(50)',$colafter);
          $colafter=set_colu($tabla1,'ciex','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'ciex2','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'ciex3','varchar(6)',$colafter);
          
          $colafter=set_colu($tabla2,'farmaco','varchar(50)',$colafter);
          $colafter=set_colu($tabla2,'medicamento','varchar(100)',$colafter);
          $colafter=set_colu($tabla2,'prescripcion','varchar(200)',$colafter);
          $colafter=set_colu($tabla2,'via','varchar(15)',$colafter);
          $colafter=set_colu($tabla2,'dosis','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'frecuencia','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'duracion','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'indicaciones','varchar(200)',$colafter);
//           $colafter=set_colu($tabla2,'via','varchar(6)',$colafter);
          // oral oral
          // rectal rect
          // vaginal vagi
          // subcutanea
          // intravenosa iven
          // intramuscular imus
          // ocular ocul
          // otica otic
          // nasal
          // inhalacion
          // nebulizacion
          // cutaneo topico
          // cutaneo sistemico
          // transdermico
          
          
          
     }		

     if(mb_stristr2('.nota',$tabla))
     {
          $colafter=set_colu($tabla2,'nota1','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota2','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota3','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota4','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota5','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota6','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota7','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota8','decimal(6,3)',$colafter);
          $colafter=set_colu($tabla2,'nota9','decimal(6,3)',$colafter);
     }          
          
          
     if(mb_stristr2('.btcr.avso',$tabla))
     {
          $colafter=set_colu($tabla1,'vhcl','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'plvh','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'ppdd','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'motivo','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'hora','varchar(5)',$colafter);
          $colafter=set_colu($tabla1,'hora1','X',$colafter);
          $colafter=set_colu($tabla1,'hora2','X',$colafter);
     }          
          
          
     if(mb_stristr2('.agnd',$tabla))
     {
          $colafter=set_colu($tabla1,'lugar','varchar(20)',$colafter);
          $colafter=set_colu($tabla1,'hora1','varchar(5)',$colafter);
          $colafter=set_colu($tabla1,'hora2','varchar(5)',$colafter);
          $colafter=set_colu($tabla1,'nombre1','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'nombre2','varchar(30)',$colafter);
     }          
          
          
     if(mb_stristr2('.jwib.jwiv',$tabla))
     {
     $colafter=set_colu($tabla1,'fecha1','date',$colafter);
     $colafter=set_colu($tabla1,'fechar','date',$colafter);
     $colafter=set_colu($tabla1,'cong','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'sala','varchar(1)',$colafter,'1');
     $colafter=set_colu($tabla1,'cong2','varchar(6)',$colafter);
     $colafter=set_colu($tabla1,'cong2_descri','varchar(30)',$colafter);
     $colafter=set_colu($tabla1,'cong2_dpud','varchar(1)',$colafter);
     $colafter=set_colu($tabla1,'cong2_dpuh','varchar(5)',$colafter);

     $colafter=set_colu($tabla1,'nombre1','varchar(30)',$colafter);
     $colafter=set_colu($tabla1,'nombre2','varchar(30)',$colafter);
     $colafter=set_colu($tabla1,'nombre3','varchar(30)',$colafter);
     $colafter=set_colu($tabla1,'nombre4','varchar(30)',$colafter);

     $colafter=set_colu($tabla1,'orat','varchar(2)',$colafter);
     $colafter=set_colu($tabla1,'bsqj','varchar(3)',$colafter);
     $colafter=set_colu($tabla1,'tema','varchar(40)',$colafter);

     $colafter=set_colu($tabla1,'sala','varchar(1)',$colafter);
     $colafter=set_colu($tabla1,'lugar','varchar(30)',$colafter);
     }		

     if(mb_stristr2('.jwXrt',$tabla))
     {
          $colafter=set_colu($tabla1,'cong','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'public','decimal(5,2)',$colafter);
          $colafter=set_colu($tabla1,'presen','decimal(5,2)',$colafter);
          $colafter=set_colu($tabla1,'horas','decimal(5,2)',$colafter);
          $colafter=set_colu($tabla1,'revisi','decimal(5,2)',$colafter);
          $colafter=set_colu($tabla1,'cursos','decimal(5,2)',$colafter);
     }

     if(mb_stristr2('.jwmc',$tabla))
     {
          $colafter=set_colu($tabla1,'cong','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'lugar','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'lreu','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'trty','varchar(7)',$colafter);
          $colafter=set_colu($tabla1,'ndia','smallint',$colafter);
          $colafter=set_colu($tabla1,'modo','varchar(20)',$colafter);
          $colafter=set_colu($tabla1,'fecha1','date',$colafter);
          $colafter=set_colu($tabla1,'fecha2','date',$colafter);
          $colafter=set_colu($tabla1,'hora','varchar(5)',$colafter);
          $colafter=set_colu($tabla1,'hora1','varchar(5)',$colafter);
          $colafter=set_colu($tabla1,'hora2','varchar(5)',$colafter);
          $colafter=set_colu($tabla1,'nombre1','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'nombre2','varchar(30)',$colafter);
     }

          //registro visitas
     if(mb_stristr2('.jwrv',$tabla))
     {
          $colafter=set_colu($tabla1,'cong','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'trty','varchar(7)',$colafter);
          $colafter=set_colu($tabla1,'hora','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'bloq','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'ndpto','varchar(4)',$colafter);
          $colafter=set_colu($tabla1,'publicador','varchar(30)',$colafter);
          
          $colafter=set_colu($tabla1,'telefono','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'wsapp','varchar(10)',$colafter);
          
          
//           visita 1 ocupado no_casa no_tocar
//           0:no_casa 1:visita 2:revisita 3:ocupado 9:no_tocar
          $colafter=set_colu($tabla1,'visita','varchar(2)',$colafter); 
          $colafter=set_colu($tabla1,'persona','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'edad','smallint',$colafter); //10-15-20-25-30-35-40-45-50-55-60-65-70-75-80
          $colafter=set_colu($tabla1,'etario','varchar(15)',$colafter); //10-15-20-25-30-35-40-45-50-55-60-65-70-75-80
          $colafter=set_colu($tabla1,'sexo','smallint',$colafter); //1:hombre 2:mujer
          $colafter=set_colu($tabla1,'tema','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'texto','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'public','varchar(10)',$colafter);
          $colafter=set_colu($tabla1,'publicacion','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'pregunta','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'objecion','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'campana','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'observacion','varchar(30)',$colafter);
          
          
          
     }

     if(mb_stristr2('.jwrt',$tabla))
     {
          $colafter=set_colu($tabla1,'cong','varchar(6)',$colafter);
          $colafter=set_colu($tabla1,'trty','varchar(7)',$colafter);
          $colafter=set_colu($tabla1,'publicador','X',$colafter);
          $colafter=set_colu($tabla1,'asignado','varchar(30)',$colafter);
          $colafter=set_colu($tabla1,'plazo','smallint',$colafter);
          $colafter=set_colu($tabla1,'fecha2','date',$colafter);
          $colafter=set_colu($tabla1,'claveacc','varchar(49)',$colafter);
     }
          
          
     if(mb_stristr2('.soft.sbok',$tabla))
       {
         $colafter=set_colu($tabla1,'liga','char(4)',$colafter);
         $colafter=set_colu($tabla1,'torn','char(4)',$colafter);
         $colafter=set_colu($tabla1,'jornada','char(4)',$colafter);
         $colafter=set_colu($tabla1,'dia','X',$colafter);
         $colafter=set_colu($tabla1,'hora','X',$colafter);
         $colafter=set_colu($tabla1,'diag','date',$colafter);
         $colafter=set_colu($tabla1,'horag','time',$colafter);
         $colafter=set_colu($tabla1,'cancha','smallint(1)',$colafter);
         $colafter=set_colu($tabla1,'tipo','char(2)',$colafter);
         $colafter=set_colu($tabla1,'team1','char(4)',$colafter);
         $colafter=set_colu($tabla1,'team2','char(4)',$colafter);
       }

     if(mb_stristr2('.liup',$tabla))
       {
         $colafter=set_colu($tabla1,'team','char(4)',$colafter);
         $colafter=set_colu($tabla1,'idsoft','int(11)',$colafter);
         $colafter=set_colu($tabla1,'hovi','char(1)',$colafter);

         $colafter=set_colu($tabla2,'camisa','smallint(4)',$colafter);
         $colafter=set_colu($tabla2,'jugador','char(10)',$colafter);
         $colafter=set_colu($tabla2,'bateo','smallint(2)',$colafter);
         $colafter=set_colu($tabla2,'posi','smallint(2)',$colafter);
         $colafter=set_colu($tabla2,'turno','smallint(2)',$colafter);
         $colafter=set_colu($tabla2,'base','smallint(2)',$colafter);
         $colafter=set_colu($tabla2,'bola','smallint(2)',$colafter);
         $colafter=set_colu($tabla2,'strike','smallint(2)',$colafter);
         $colafter=set_colu($tabla2,'ponche','smallint(2)',$colafter);
         $colafter=set_colu($tabla2,'out','smallint(2)',$colafter);
       }


     }     

     //tabla1 especiales x cia
     {
          if(1==2)
          if($empr0['empr_ceuser']==1 and mb_stristr2('.vtas',$tabla))
          {
               $colafter=set_colu($tabla1,'adic11','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla1,'adic12','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla1,'adic13','varchar(20)',$colafter,'');

               $colafter=set_colu($tabla2,'adic21','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla2,'adic22','varchar(20)',$colafter,'');
               $colafter=set_colu($tabla2,'adic23','varchar(20)',$colafter,'');
          }
          
          
          if(mb_stristr2('.retc.retp',$tabla) and mb_stristr2('.hshe',$cfg_empr))
          {$colafter=set_colu($tabla1,'zeus','varchar(1)',$colafter,'1');}

          if(mb_stristr2('.vtas.clie.carr.comp.prov',$tabla) and mb_stristr2('.gnya',$cfg_empr))
          {$colafter=set_colu($tabla1,'drtr','varchar(13)',$colafter);}

          
//           if(mb_stristr2('.vtas.clie.carr',$tabla) and mb_stristr2('.demo.tgck.sawo.ztej',$cfg_empr))
          if($empr0['empr_automotriz']==1)
          if(mb_stristr2('.vtas.clie.carr',$tabla))
          {
               $colafter=set_colu($tabla2,'vhcl','varchar(7)',$colafter);
               $colafter=set_colu($tabla2,'plvh','varchar(7)',$colafter);
               $colafter=set_colu($tabla2,'odmt','int(6)',$colafter);
          }
          
          if($empr0['empr_taller']==1 or $empr0['empr_automotriz']==1)
          if(mb_stristr2('.inve',$tabla))
          {
//                $colafter=set_colu($tabla1,'plvh','varchar(7)',$colafter);
               $colafter=set_colu($tabla1,'plvh','varchar(7)',$colafter);
//                $colafter=set_colu($tabla2,'odmt','int(6)',$colafter);
          }
               $colafter=set_colu($tabla2,'vhcl','X');
          
          
          if(mb_stristr2('.vtas.clie.carr',$tabla) and mb_stristr2('.pcnt',$cfg_empr))
          {
//                $colafter=set_colu($tabla1,'vhcl','varchar(10)',$colafter);
//                $colafter=set_colu($tabla1,'plvh','varchar(10)',$colafter);
//           $colafter=set_colu($tabla2,'odmt','int(6)',$colafter);
          }
          
          if(mb_stristr2('.vtas.clie.carr',$tabla) and mb_stristr2('.dtec.demo',$empr0['empr_codigo']))
          {
          $colafter=set_colu($tabla2,'vhcl','varchar(10)',$colafter);
          $colafter=set_colu($tabla2,'plvh','varchar(10)',$colafter);
          $colafter=set_colu($tabla2,'hora1','varchar(5)',$colafter);
          $colafter=set_colu($tabla2,'hora2','varchar(5)',$colafter);
          }          

          if(mb_stristr2('.vtas.clie.carr.rmed',$tabla) and ($empr0['empr_clinica']==1 or $empr0['empr_medico']==1 or $empr0['empr_veterinaria']==1) ) 
          {
          $colafter=set_colu($tabla2,'pcnt','varchar(10)',$colafter);
          }          
          
          
          
     }
     
     //tabla2 campos x modulo     
     {
          if(mb_stristr2('.acce',$tabla))
          {
          $colafter=set_colu($tabla2,'docum','varchar(4)',$colafter);
          $colafter=set_colu($tabla2,'full','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'nuev','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'modi','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'anul','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'elim','varchar(1)',$colafter);

          $colafter=set_colu($tabla2,'apro','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'proc','varchar(1)',$colafter);
//           $colafter=set_colu($tabla2,'proe','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'even','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'clon','varchar(1)',$colafter);

          $colafter=set_colu($tabla2,'cons','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'info','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'espe','varchar(1)',$colafter);
          }

          if(mb_stristr2('.cont.tsor.caja.bcos.dxco.dxpa.retc.retp.comi.atvd.nomi.empl',$tabla))
          {
          $colafter=set_colu($tabla2,'docum','varchar(4)',$colafter);
          $colafter=set_colu($tabla2,'ptoem','varchar(6)',$colafter,'001001');
          $colafter=set_colu($tabla2,'numer','varchar(9)',$colafter);
          }


		if(mb_stristr2('.vtas.clie.comp.prov.carr.lpro',$tabla))
		{
// 			$colafter=set_colu($tabla2,'dcto','decimal(10,6)',$colafter,'0');
			$colafter=set_colu($tabla2,'dcto','decimal(12,8)',$colafter,'0');
			$colafter=set_colu($tabla2,'prop','decimal(4,2)',$colafter,'0');
			$colafter=set_colu($tabla2,'ssid','decimal(4,2)',$colafter,'0');
			$colafter=set_colu($tabla2,'ice','decimal(4,2)',$colafter,'0');
			$colafter=set_colu($tabla2,'iva','decimal(4,2)',$colafter,'0');
			$colafter=set_colu($tabla2,'irbp','decimal(4,2)',$colafter,'0');
		}

		if(mb_stristr2('.otbj.',$tabla))
		{
			$colafter=set_colu($tabla2,'iva','decimal(4,2)',$colafter,'0');
			$colafter=set_colu($tabla2,'dcto','decimal(4,2)',$colafter,'0');
			$colafter=set_colu($tabla2,'comi','decimal(4,2)',$colafter,'0');
               
               if($empr0['empr_automotriz']==1 and $empr0['empr_impo']==1)
               {$colafter=set_colu($tabla2,'mdvh','varchar(8)',$colafter);}
		}

		if(mb_stristr2('.vtas.clie.comp.prov.',$tabla))
		{
			$colafter=set_colu($tabla2,'cair','varchar(5)',$colafter);
			$colafter=set_colu($tabla2,'prrta','decimal(5,2)',$colafter,'0');
// 			$colafter=set_colu($tabla2,'civa','varchar(2)',$colafter);
			$colafter=set_colu($tabla2,'priva','decimal(5,2)',$colafter,'0');
               
               if($empr0['empr_automotriz']==1 and $empr0['empr_impo']==1)
               {$colafter=set_colu($tabla2,'mdvh','varchar(8)',$colafter);}
		}

		if(mb_stristr2('.vtas.',$tabla))
          {
//                for($idx=1; $idx<=15; $idx++)
//                {if($empr0['empr_hadic'.$idx]!=''){$colafter=set_colu($tabla1,'hadic'.$idx,'varchar(50)',$colafter,'');}}
               
//                for($idx=1; $idx<=3; $idx++)
//                {if($empr0['empr_dadic'.$idx]!=''){$colafter=set_colu($tabla2,'dadic'.$idx,'varchar(50)',$colafter,'');}}
          }
          
          
		if(mb_stristr2('.lpre',$tabla))
          {
			$colafter=set_colu($tabla2,'stapro2','varchar(1)',$colafter,'-');
          }
               
          if(mb_stristr2('.inve',$tabla))
          {$colafter=set_colu($tabla2,'cpro','decimal(15,8)',$colafter);}
          if(mb_stristr2('.inve',$tabla))
          {$colafter=set_colu($tabla2,'cprom','decimal(15,8)',$colafter);}

          if(mb_stristr2('.vtas.clie.carr',$tabla))
          {$colafter=set_colu($tabla2,'cuni','decimal(15,8)',$colafter);}

		if(mb_stristr2('.vtas.clie',$tabla))
		{
               $colafter=set_colu($tabla2,'pcp1','decimal(13,4)',$colafter);
               $colafter=set_colu($tabla2,'comi','decimal(5,2)',$colafter);
          }
     
          if(mb_stristr2('.inve.intf.',$tabla))
          {$colafter=set_colu($tabla2,'pvta','decimal(15,8)',$colafter);}


		if(mb_stristr2('.inve.',$tabla))
		{
			$colafter=set_colu($tabla2,'reval','decimal(15,8)',$colafter);
			$colafter=set_colu($tabla2,'cambio','varchar(13)',$colafter);
		}		

          
          if(mb_stristr2('.pduc.prXod',$tabla))
          {
               $colafter=set_colu($tabla2,'iva','X',$colafter);
			$colafter=set_colu($tabla2,'reval','X',$colafter);
			$colafter=set_colu($tabla2,'cambio','X',$colafter);
			$colafter=set_colu($tabla2,'plazo','X',$colafter);
			$colafter=set_colu($tabla2,'emailfec','X',$colafter);
			$colafter=set_colu($tabla2,'emailto','X',$colafter);
          }	
    
          
          
		
          if(mb_stristr2('.comp.prov.impo',$tabla))
          {
               $colafter=set_colu($tabla2,'umdd','varchar(4)',$colafter);
               $colafter=set_colu($tabla2,'peso','decimal(10,4)',$colafter);
//                $colafter=set_colu($tabla2,'cm3','decimal(10,4)',$colafter);
               $colafter=set_colu($tabla2,'volu','decimal(10,4)',$colafter);
               
               $colafter=set_colu($tabla2,'arcl','varchar(18)',$colafter);
               $colafter=set_colu($tabla2,'adva','decimal(15,8)',$colafter);
               $colafter=set_colu($tabla2,'espe','decimal(15,8)',$colafter);
               $colafter=set_colu($tabla2,'dump','decimal(15,8)',$colafter);
               $colafter=set_colu($tabla2,'fodi','decimal(15,8)',$colafter);
               
               $colafter=set_colu($tabla2,'isdi','decimal(7,2)',$colafter);
               $colafter=set_colu($tabla2,'icei','decimal(7,2)',$colafter);
               $colafter=set_colu($tabla2,'ivai','decimal(7,2)',$colafter);
               $colafter=set_colu($tabla2,'cuni','decimal(15,8)',$colafter);
          }		
		
		if(mb_stristr2('.comp',$tabla))
		{
			$colafter=set_colu($tabla2,'r_claveacc','varchar(49)',$colafter);
			$colafter=set_colu($tabla2,'r_docu','varchar(4)',$colafter);
			$colafter=set_colu($tabla2,'r_ptoe','varchar(6)',$colafter);
			$colafter=set_colu($tabla2,'r_numero','varchar(9)',$colafter);
			$colafter=set_colu($tabla2,'r_fecha','date',$colafter);
			$colafter=set_colu($tabla2,'r_enti1','varchar(13)',$colafter);
			$colafter=set_colu($tabla2,'r_enti2','varchar(13)',$colafter);
			$colafter=set_colu($tabla2,'r_atrz','varchar(10)',$colafter);
		}		
		
    
		if(mb_stristr2('.cont.retc.retp',$tabla))
		{$colafter=set_colu($tabla2,'cair','varchar(5)',$colafter);}
          
// 		if(mb_stristr2('.cont.retc.retp',$tabla))
// 		{$colafter=set_colu($tabla2,'civa','varchar(2)',$colafter);}

		if(mb_stristr2('.retc.retp',$tabla))
		{
			$colafter=set_colu($tabla2,'base','decimal(10,2)',$colafter);
			$colafter=set_colu($tabla2,'porc','decimal(5,2)',$colafter);
		}		
		
          
          if(mb_stristr2('.nomi.plan.atvd',$tabla))
          {$colafter=set_colu($tabla2,'enti2','varchar(10)',$colafter);}
          if(mb_stristr2('.nomi.plan.atvd',$tabla))
          {$colafter=set_colu($tabla2,'empl','varchar(10)',$colafter);}

          if(mb_stristr2('.plan',$tabla))
          {$colafter=set_colu($tabla2,'empl','varchar(10)',$colafter);}

//           echo '--------------'.$tabla;
          if(mb_stristr2('.atvd',$tabla))
          {$colafter=set_colu($tabla2,'clie','varchar(10)',$colafter);}

          if(mb_stristr2('.empl',$tabla))
          {$colafter=set_colu($tabla2,'fecha2','date',$colafter);}
          
          if(mb_stristr2('.cont.susa.nomi.empl',$tabla))
          {
          $colafter=set_colu($tabla2,'nvdd','varchar(5)',$colafter);
          $colafter=set_colu($tabla2,'csub','varchar(9)',$colafter);
          }

          if(mb_stristr2('.prov.comp.lpro',$tabla))
          {
          $colafter=set_colu($tabla2,'csub','varchar(9)',$colafter);
          }

          if(mb_stristr2('.plan.atvd',$tabla))
          {
          $colafter=set_colu($tabla2,'asub','varchar(10)',$colafter);
          $colafter=set_colu($tabla2,'zsub2','varchar(9)',$colafter);
//           $colafter=set_colu($tabla2,'funcion','varchar(15)',$colafter);
//           $colafter=set_colu($tabla2,'asignacion','varchar(15)',$colafter);
//           $colafter=set_colu($tabla2,'grupo','varchar(15)',$colafter);
          }

		if(mb_stristr2('.cont.vtas.clie.comp.prov.inve.intf.pduc.prXod.carr',$tabla))
		{
			$colafter=set_colu($tabla2,'lote','varchar(15)',$colafter);
			$colafter=set_colu($tabla2,'seri','int(6)',$colafter);
			$colafter=set_colu($tabla2,'serie','X',$colafter);
		}
          
		if(mb_stristr2('.inve.infi',$tabla))
		{
			$colafter=set_colu($tabla2,'nega','smallint(1)',$colafter);
// 			$colafter=set_colu($tabla2,'cprom','decimal(12,8)',$colafter);
			$colafter=set_colu($tabla2,'vpro','decimal(15,8)',$colafter);
		}
          
          if(mb_stristr2('.comp.prov',$tabla))
          {
          $colafter=set_colu($tabla2,'itemce','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'itemce2','varchar(20)',$colafter);
          }
          
          if(mb_stristr2('.comp.prov.lpro',$tabla))
          {
//           $colafter=set_colu($tabla2,'itemce','varchar(20)',$colafter);
//           $colafter=set_colu($tabla2,'itemce2','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'umdd','varchar(4)',$colafter);
          $colafter=set_colu($tabla2,'uxpre','decimal(7,2)',$colafter);
          $colafter=set_colu($tabla2,'facon','decimal(15,8)',$colafter);
          }
          
          if(mb_stristr2('.lpro.prov',$tabla))
          {
               $colafter=set_colu($tabla2,'dias','smallint',$colafter);
          }
          
          if(mb_stristr2('.prov',$tabla))
          {
//                $colafter=set_colu($tabla2,'dias','X');
          }
          

          if(mb_stristr2('.guia',$tabla))
          {
          $colafter=set_colu($tabla2,'itemce','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'itemce2','varchar(20)',$colafter);
          }

          if(mb_stristr2('.comp.prov.impo',$tabla))
          {
               $colafter=set_colu($tabla2,'impor2','varchar(12)',$colafter);
               $colafter=set_colu($tabla2,'puni1','decimal(15,8)',$colafter);
               $colafter=set_colu($tabla2,'puni2','decimal(15,8)',$colafter);
          }    

          if(mb_stristr2('.susa',$tabla))
          {
          $colafter=set_colu($tabla2,'cargo','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'sueldo','decimal(9,2)',$colafter);
          $colafter=set_colu($tabla2,'valanti','decimal(9,2)',$colafter);
          $colafter=set_colu($tabla2,'poranti','decimal(5,2)',$colafter);

          $colafter=set_colu($tabla2,'alimentacion','decimal(9,2)',$colafter);
          $colafter=set_colu($tabla2,'movilizacion','decimal(9,2)',$colafter);
          $colafter=set_colu($tabla2,'comision','decimal(9,2)',$colafter);
          $colafter=set_colu($tabla2,'otros','decimal(9,2)',$colafter);

          $colafter=set_colu($tabla2,'iess','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'reloj','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'atraso','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'falta','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'h025','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'h050','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'h100','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'de13','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'de14','varchar(1)',$colafter);
          $colafter=set_colu($tabla2,'fres','varchar(1)',$colafter);
          }
          
          
		if(mb_stristr2('.retc.retp',$tabla))
		{$colafter=set_colu($tabla2,'fecdocum','date',$colafter);}
          
     }
     
     if($empr0['empr_inmobil']==1)
     if(mb_stristr2('.vtas.clie',$tabla))
     {
          $colafter=set_colu($tabla2,'ppdd','varchar(8)',$colafter,'0');
     }
     
      
     // tabla2 campos x cia
     {
          if(mb_stristr2('.vtas.clie',$tabla) and mb_stristr2('.pcs1',$cfg_empr))
          {$colafter=set_colu($tabla2,'envio','decimal(5,2)',$colafter);}
          
          if(mb_stristr2('.vtas.clie',$tabla) and mb_stristr2('.pcs1.prs1',$cfg_empr))
          {
          $colafter=set_colu($tabla2,'cntn','varchar(11)',$colafter);
          $colafter=set_colu($tabla2,'cntnf1','date',$colafter);
          $colafter=set_colu($tabla2,'cntnf2','date',$colafter);
          $colafter=set_colu($tabla2,'serie1','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'serie2','varchar(20)',$colafter);
          $colafter=set_colu($tabla2,'serie3','varchar(20)',$colafter);
//           $colafter=set_colu($tabla2,'eirout','int',$colafter);
//           $colafter=set_colu($tabla2,'eirin','int',$colafter);
          }
          
          if(mb_stristr2('.vtas.clie',$tabla) and mb_stristr2('.posa',$cfg_empr))
          {
          $colafter=set_colu($tabla2,'cntn','varchar(11)',$colafter);
          $colafter=set_colu($tabla2,'bldn','varchar(20)',$colafter);
          }
          
     }
     
     if(mb_stristr2('.hcli',$tabla))
     {
          $colafter=set_colu($tabla2,'dato','varchar(20)',$colafter,'');
          $colafter=set_colu($tabla2,'fase','varchar(20)',$colafter,'');
          
          $colafter=set_colu($tabla2,'tempcor','decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla2,'freqres','int(3)',$colafter,'');
          $colafter=set_colu($tabla2,'freqcar','int(3)',$colafter,'');
          $colafter=set_colu($tabla2,'presart','varchar(7)',$colafter,'');
          
          $colafter=set_colu($tabla2,'pesokg','decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla2,'tallacm','decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla2,'hshcm','decimal(5,2)',$colafter,'');
          $colafter=set_colu($tabla2,'otcm','decimal(5,2)',$colafter,'');
          
          $colafter=set_colu($tabla2,'mucosa','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla2,'dhidra','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla2,'ptquia','varchar(1)',$colafter,'');
          $colafter=set_colu($tabla2,'ectopr','varchar(1)',$colafter,'');
          
          $colafter=set_colu($tabla2,'file','varchar(20)',$colafter,'');
          
          
          $colafter=set_colu($tabla2,'medicina','varchar(11)',$colafter,'');
          $colafter=set_colu($tabla2,'meddosis','varchar(11)',$colafter,'');
          $colafter=set_colu($tabla2,'medfrequ','varchar(11)',$colafter,'');
     }
     
     if(mb_stristr2('.otbj',$tabla))
     {
          $colafter=set_colu($tabla2,'fecha1','date',$colafter,'');
          $colafter=set_colu($tabla2,'fecha2','date',$colafter,'');
          $colafter=set_colu($tabla2,'hora1','varchar(8)',$colafter,'');
          $colafter=set_colu($tabla2,'hora2','varchar(8)',$colafter,'');
          $colafter=set_colu($tabla2,'dato','X',$colafter,'');
          $colafter=set_colu($tabla2,'fase','varchar(20)',$colafter,'');
          
          $colafter=set_colu($tabla2,'odometro','int(6)',$colafter,'');
          $colafter=set_colu($tabla2,'horometro','int(6)',$colafter,'');
          $colafter=set_colu($tabla2,'reservorio','decimal(4,2)',$colafter,'');

          $colafter=set_colu($tabla2,'mcnc','varchar(10)',$colafter,'');
          
//           $colafter=set_colu($tabla2,'mucosa','varchar(1)',$colafter,'');
          
          $colafter=set_colu($tabla2,'notas','varchar(200)',$colafter,'');
//           $colafter=set_colu($tabla2,'file','varchar(20)',$colafter,'');
          
          
     }
     
     
    if(mb_stristr2('.soft.sbok',$tabla))
    {
          $colafter=set_colu($tabla2,'jugardo','X',$colafter);
          $colafter=set_colu($tabla2,'jugador','varchar(13)',$colafter);
          $colafter=set_colu($tabla2,'ining','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'presenta','smallint(1)',$colafter);
          $colafter=set_colu($tabla2,'ab','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'rb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'hb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'2b','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'3b','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'4b','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'wb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'ks','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'rbi','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'sbb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'csb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'sacb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'apb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'obb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'asb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'pob','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'ebb','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'wp','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'lp','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'sp','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'numbat','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'ipp','decimal(10,6)',$colafter);
          $colafter=set_colu($tabla2,'erp','decimal(10,6)',$colafter);
          $colafter=set_colu($tabla2,'rnp','smallint(2)',$colafter);
          $colafter=set_colu($tabla2,'erap','decimal(10,6)',$colafter);
          $colafter=set_colu($tabla2,'hp','smallint(4)',$colafter);
          $colafter=set_colu($tabla2,'kp','smallint(4)',$colafter);
          $colafter=set_colu($tabla2,'bbp','smallint(4)',$colafter);
          $colafter=set_colu($tabla2,'tp','smallint(4)',$colafter);
          $colafter=set_colu($tabla2,'bpp','smallint(4)',$colafter);
          $colafter=set_colu($tabla2,'kpp','smallint(4)',$colafter);
          $colafter=set_colu($tabla2,'outb','smallint(4)',$colafter);
          $colafter=set_colu($tabla2,'baseb','smallint(4)',$colafter);
      
    }

}





?>


