 <?php
//ALTER TABLE table_name AUTO_INCREMENT = 1;
function vrsettab0($tabla,$codigo=0)
{
// 		include('cfg/config.php');
	include('../_cfg/config.php');
//   $hini=date('H:i:s');
	$tabla0=$tabla.'0';
  $colafter='';

	if($codigo==='X')
	{
		msql_query('drop table '.$tabla0,$link_vcrx);
		echo '<br>';
		echo $tabla0.'==> ELIMINADA';
	}	
	else
	{	
	
  msql_query('create table '.$tabla0.' ('.$tabla.'_codigo char('.$codigo.')not null)engine=innodb',$link_vcrx);
  msql_query('alter table '.$tabla0.' engine=innodb, default character set=latin1 collate=latin1_spanish_ci',$link_vcrx);

  msql_query('alter table '.$tabla0.' drop primary key',$link_vcrx);
  msql_query('alter table '.$tabla0.' add primary key('.$tabla.'_codigo)',$link_vcrx);

	if($codigo>0)
	{$colafter=vrsetcolu($tabla0,$tabla.'_codigo','char('.$codigo.')',$colafter,'');}
	else
	{
          msql_query('alter table '.$tabla0.' change column '.$tabla.'_codigo '.$tabla.'_codigo int not null',$link_vcrx);
          msql_query('alter table '.$tabla0.' drop primary key',$link_vcrx);
          msql_query('alter table '.$tabla0.' add primary key('.$tabla.'_codigo)',$link_vcrx);
          msql_query('alter table '.$tabla0.' change column '.$tabla.'_codigo '.$tabla.'_codigo int not null auto_increment',$link_vcrx);
// 		msql_query('delete from '.$tabla0.' where '.$tabla.'_codigo=0',$link_vcrx);
	}

	$colafter=$tabla.'_codigo';
		
  $colafter=vrsetcolu($tabla0,$tabla.'_descri','varchar(100)',$colafter,'');
  $colafter=vrsetcolu($tabla0,$tabla.'_tipo','varchar(4)',$colafter,'');
  $colafter=vrsetcolu($tabla0,$tabla.'_status','varchar(1)',$colafter,'-');
  $colafter=vrsetcolu($tabla0,$tabla.'_iuser','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla0,$tabla.'_idate','datetime',$colafter,'');
  $colafter=vrsetcolu($tabla0,$tabla.'_lused','datetime',$colafter,'');
  $colafter=vrsetcolu($tabla0,$tabla.'_descri0','varchar(100)',$colafter,'');
    
		// INDICES
// 		msql_query('alter table '.$tabla0.' drop index codigo ',$link_vcrx);
// 		msql_query('create unique index codigo on '.$tabla0.'('.$tabla.'_codigo)',$link_vcrx);
		
// // 		msql_query('drop index descri on '.$tabla0,$link_vcrx);
// 		msql_query('alter table '.$tabla0.' drop index descri ',$link_vcrx);
// 		msql_query('create index descri on '.$tabla0.'('.$tabla.'_descri,'.$tabla.'_codigo)',$link_vcrx);
	
// 		msql_query('alter table '.$tabla0.' drop index tipo ',$link_vcrx);
// 		msql_query('create index tipo on '.$tabla0.'('.$tabla.'_tipo,'.$tabla.'_codigo)',$link_vcrx);
		if (mb_stristr('ipip',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_user','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_osver','varchar(100)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cdad','varchar(5)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cdaddes','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pais','varchar(5)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_paisdes','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_zipcode','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_postal','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_gps1','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_gps2','varchar(10)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
		}

		if (mb_stristr('menu',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_accion','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_mensaje','varchar(250)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_caption','varchar(250)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_onclick','varchar(250)',$colafter,'');
		}

		if (mb_stristr('empr',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ruc','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_numid','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dnrdp','varchar(7)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ruclegal','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ruccontador','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_regcontador','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_lguia','int',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_vcupo','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_bcupo','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fweek','smallint',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fdow','smallint',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_linx','smallint',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_modi','smallint',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_anul','smallint',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_elim','smallint',$colafter,'');

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

      $colafter=vrsetcolu($tabla0,$tabla.'_suco','varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fpag','varchar(2)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_fpagv','varchar(2)',$colafter,'');

			$colafter=vrsetcolu($tabla0,$tabla.'_cont','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_carr','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_guia','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_comp','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_inve','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_caba','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_cbco','X',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_caja','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctab','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_bcos','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_nomi','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_prod','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_plan','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_lote','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_srie','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_clie','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_impo','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_expo','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_cele','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_mice','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_rete','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_zeus','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_comi','varchar(1)',$colafter,'0');

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

			$colafter=vrsetcolu($tabla0,$tabla.'_rinve','datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rnomi','datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ratvd','datetime',$colafter,'');
      
      
			$colafter=vrsetcolu($tabla0,$tabla.'_fcnego','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ambice','varchar(1)',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_esquce','varchar(1)',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_website','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_logo1','varchar(200)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_logo2','varchar(200)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_color1','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_color2','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_color3','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_color1f','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_color2f','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_color3f','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_logoce','varchar(200)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_p12file','text',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_p12bak','text',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_p12pass','varchar(30)',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_p12caduca','date',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_sripass','varchar(100)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctasuper','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_updated','datetime',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_wsapptk','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_apiwha','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ambientece','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_paypaltoken','text',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_payphonetoken','text',$colafter,'');
			
			msql_query('update empr0 set empr_updated=now()',$link_vcrx);
			
// 			$colafter=vrsetcolu($tabla0,$tabla.'_pru1','X',$colafter,'');
		}

		if (mb_stristr('payt',$tabla))
          {
			$colafter=vrsetcolu($tabla0,$tabla.'_docu','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ptoe','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_numero','varchar(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_idnum','int(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_transaction','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_authorization','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cardtype','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cardbrand','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_amount','decimal(9,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_response','text',$colafter,'');
          }          
          
		if (mb_stristr('user.usrt.enti.ppto',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_whatsapp','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_empr','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_enti','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cedula','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_email','varchar(60)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_wsapp','varchar(15)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_teleg','X',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_apiwha','datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_celular','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_empresa','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nickname','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_solicita','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clave','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clave2','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pin','varchar(6)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_reset','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_captcha','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_crgo','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cargo','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_caduca','date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_apuni','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_adcto','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_apvp','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ptov','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_caba','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cbco','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_caja','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_bode','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cong','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_login','datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ip','varchar(16)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ippais','varchar(50)',$colafter,'');

			$colafter=vrsetcolu($tabla0,$tabla.'_pais','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_provincia','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ciudad','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_postal','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_calle1','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_calle2','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_calle3','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_callen','varchar(5)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_parroq','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_telefono','varchar(15)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_whatsapp','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_referidox','varchar(10)',$colafter,'');
//       if($cfg_empr=='gnya')
      if(mb_stristr('gnya.gmny',$cfg_empr))
      {
  			$colafter=vrsetcolu($tabla0,$tabla.'_referx1','varchar(10)',$colafter,'');
  			$colafter=vrsetcolu($tabla0,$tabla.'_referx2','varchar(10)',$colafter,'');
  			$colafter=vrsetcolu($tabla0,$tabla.'_referx3','varchar(10)',$colafter,'');
  			$colafter=vrsetcolu($tabla0,$tabla.'_referx4','varchar(10)',$colafter,'');
  			$colafter=vrsetcolu($tabla0,$tabla.'_referx5','varchar(10)',$colafter,'');
      }
			
			if($tabla=='user' and $cfg_empr=='jwib')
			{
				$colafter=vrsetcolu($tabla0,$tabla.'_acce','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_vida','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_mmae','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_estu','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_dpub','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_vari','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_asig','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_asem','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla0,$tabla.'_asis','varchar(1)',$colafter,'0');
			}
		
			if($tabla=='user' and $cfg_empr=='')
			{
        $colafter=vrsetcolu($tabla0,$tabla.'_p12file','text',$colafter,'');
        $colafter=vrsetcolu($tabla0,$tabla.'_p12pass','varchar(30)',$colafter,'');
        $colafter=vrsetcolu($tabla0,$tabla.'_p12caduca','date',$colafter,'');
			}
		
			msql_query('alter table user0 alter column user_status set default "1"',$link_vcrx);
			msql_query('alter table usrt0 alter column usrt_status set default "0"',$link_vcrx);

			msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo drop default',$link_vcrx);
			msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo set default "clie"',$link_vcrx);
			
			$sql_user='select * from '.$tabla0.' order by '.$tabla.'_codigo desc';
			$res_user=msql_query($sql_user,$link_vcrx);
			
			$sql_auto='alter table '.$tabla0.' AUTO_INCREMENT=101 ';
			if(msql_num_rows($res_user)==0){msql_query($sql_auto,$link_vcrx);}
			else
			{if(msql_result($res_user,0,$tabla.'_codigo')<=10){msql_query($sql_auto,$link_vcrx);}}
			
		}		

		if (mb_stristr('ppto.evnt',$tabla))
    {
			msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo drop default',$link_vcrx);
			msql_query('alter table '.$tabla0.' alter column '.$tabla.'_tipo set default "-"',$link_vcrx);
			
			$sql_user='select * from '.$tabla0.' order by '.$tabla.'_codigo desc';
			$res_user=msql_query($sql_user,$link_vcrx);
			
			$sql_auto='alter table '.$tabla0.' AUTO_INCREMENT=101 ';
			if(msql_num_rows($res_user)==0){msql_query($sql_auto,$link_vcrx);}
			else
			{if(msql_result($res_user,0,$tabla.'_codigo')<=10){msql_query($sql_auto,$link_vcrx);}}
// 			echo '*/*/*'.msql_error($link_vcrx);
		}		

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

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

			$colafter=vrsetcolu($tabla0,$tabla.'_gps1', 'decimal(15,10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_gps2', 'decimal(15,10)',$colafter,'');
			
			$colafter=vrsetcolu($tabla0,$tabla.'_reu1','int(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_reu2','int(1)',$colafter,'');

			$colafter=vrsetcolu($tabla0,$tabla.'_sala','int(1)',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_grupo','int(1)',$colafter,'1');
		}

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

		if (mb_stristr('docu',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_tabla','varchar(4)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_modulo','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_codnum','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ptoe','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_numero','int(9)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_tiponum','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_autonum','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_autofec','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_desde','date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_hasta','date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_mindeta','smallint(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_maxdeta','smallint(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_bakdeta','tinyint(1)',$colafter,'');
			
			$colafter=vrsetcolu($tabla0,$tabla.'_pdf','varchar(1)',$colafter,'0');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_adjunto','varchar(1)',$colafter,'0');
			$colafter=vrsetcolu($tabla0,$tabla.'_ppsize','varchar(2)',$colafter,'A4');
			$colafter=vrsetcolu($tabla0,$tabla.'_pporient','varchar(1)',$colafter,'V');

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

			$colafter=vrsetcolu($tabla0,$tabla.'_apuni','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_adcto','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_apvp','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_vstock','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_bstock','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_vreser','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_breser','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dreser','smallint',$colafter,'');
		
			$colafter=vrsetcolu($tabla0,$tabla.'_rescont','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctadeb','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacre','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctadcto','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaprop','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaice','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaiva','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctairbp','varchar(13)',$colafter,'');

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

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

// 			msql_query('drop index tabla on '.$tabla0,$link_vcrx);
// 			msql_query('create index tabla on '.$tabla0.'('.$tabla.'_tipo,'.$tabla.'_tabla,'.$tabla.'_codigo)',$link_vcrx);
	
			
    }
		
		if (mb_stristr('ctas',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_signo','smallint(3)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_info','smallint(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_codigoc','varchar(12)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_ffee','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ccpp','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cair','varchar(5)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nec','varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_niif','varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_sri01','smallint(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_sri101','smallint(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_super','varchar(1)',$colafter,'');
      
// 			$colafter=vrsetcolu($tabla0,$tabla.'zsub','varchar(6)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'lsub','varchar(6)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'csub','varchar(6)',$colafter,'');
      
// 			$colafter=vrsetcolu($tabla0,$tabla.'caja','varchar(4)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'ctab','varchar(4)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'bode','varchar(4)',$colafter,'');
		}

		if (mb_stristr('evnt',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_lugar','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fecha1','date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fecha2','date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_hora1','time',$colafter,'');
			$colafter=vrsetcolu($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_stristr('enti.ppto',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_user','int(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_struc','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cedularuc','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pasaporte','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_idexterior','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_conadis','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dnrdp','varchar(7)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_razsoc','varchar(100)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nomcom','varchar(100)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fechaini','date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ape1','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ape2','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nom1','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nom2','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nickname','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fechanac','date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_huellas','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nacionalidad','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_sexo','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_stcivil','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_estatura_cm','int(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_peso_lb','int(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_codigoc','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_codigop','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_codigoe','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clie','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_prov','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_empl','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_drtr','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_referidox','varchar(10)',$colafter,'');
			// director status o rango

			// ELIMINAR
			$colafter=vrsetcolu($tabla0,$tabla.'_calle1','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_calle2','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_calle3','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_callen','varchar(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_telefono','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_celular','varchar(15)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_whatsapp','varchar(15)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_contacto','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_email','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_emailce','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_wsapp','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_wsappce','varchar(250)',$colafter,'');
			
			$colafter=vrsetcolu($tabla0,$tabla.'_prec','int(1)',$colafter,'1');
			$colafter=vrsetcolu($tabla0,$tabla.'_adrs','int(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_zsub','varchar(9)',$colafter,'GENE-GENE');
			$colafter=vrsetcolu($tabla0,$tabla.'_vndd','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_attn','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rcdd','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_csub','varchar(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cargo','varchar(20)',$colafter,'');

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

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

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

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

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

			$colafter=vrsetcolu($tabla0,$tabla.'_ctaxcob','varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaxpag','varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaacli','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaapro','X',$colafter,'');
			
			$colafter=vrsetcolu($tabla0,$tabla.'_saldo','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dndrp','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_logo1','X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_logo2','X',$colafter,'');
			$colafter=vrsetcolu($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_stristr('item',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_descri2','varchar(200)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_puni','decimal(13,6)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_puni0','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_puni1','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_puni2','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_puni3','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_puni4','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_puni5','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dcto','decimal(4,2)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_dcto0','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dcto1','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dcto2','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dcto3','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dcto4','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dcto5','decimal(4,2)',$colafter,'');
      
			$colafter=vrsetcolu($tabla0,$tabla.'_ppro1','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ppro2','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ppro3','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ppro4','decimal(13,6)',$colafter,'');
      
			$colafter=vrsetcolu($tabla0,$tabla.'_prop','decimal(4,2)',$colafter,'');
      //subsidio
			$colafter=vrsetcolu($tabla0,$tabla.'_ssid','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ice','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ice2','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_iva','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_irbp','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_arcl','varchar(18)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_arancel','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pvp','decimal(13,6)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_pvp','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pvp1','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pvp2','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pvp3','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pvp4','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pvp5','decimal(13,6)',$colafter,'');
      
			$colafter=vrsetcolu($tabla0,$tabla.'_pcp1','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cost','decimal(13,6)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_cpro','decimal(11,4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_duni','varchar(1)',$colafter,'2');
			$colafter=vrsetcolu($tabla0,$tabla.'_dcos','varchar(1)',$colafter,'2');
			$colafter=vrsetcolu($tabla0,$tabla.'_dpre','varchar(1)',$colafter,'2');
			$colafter=vrsetcolu($tabla0,$tabla.'_dval','varchar(1)',$colafter,'2');

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

			$colafter=vrsetcolu($tabla0,$tabla.'_stocksegu','decimal(13,6)',$colafter,'');
      
      
// 			$colafter=vrsetcolu($tabla0,$tabla.'_envase','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_codxunid','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_unixpack','mediumint(6)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_uxpack','mediumint(6)',$colafter,'');

			$colafter=vrsetcolu($tabla0,$tabla.'_ubik','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_umdd','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_mdda','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_medida','varchar(20)',$colafter,'');

			$colafter=vrsetcolu($tabla0,$tabla.'_master','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_raiz','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_idem','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_grupo','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_lado','varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_tlla','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clor','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clor1','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clor2','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_kldd','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_color','X',$colafter,'');
      
			$colafter=vrsetcolu($tabla0,$tabla.'_back','varchar(4)',$colafter,''); // espalda
			$colafter=vrsetcolu($tabla0,$tabla.'_chest','varchar(4)',$colafter,''); // pecho
			$colafter=vrsetcolu($tabla0,$tabla.'_bust','varchar(4)',$colafter,''); // busto
			$colafter=vrsetcolu($tabla0,$tabla.'_waist','varchar(4)',$colafter,''); // cintura
			$colafter=vrsetcolu($tabla0,$tabla.'_hip','varchar(4)',$colafter,''); // cadera
			$colafter=vrsetcolu($tabla0,$tabla.'_sleeve','varchar(4)',$colafter,''); // manga
      
			$colafter=vrsetcolu($tabla0,$tabla.'_tmno','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_dmtr','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rend','decimal(6,2)',$colafter,'');

			$colafter=vrsetcolu($tabla0,$tabla.'_lsub','varchar(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_mrca','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_mdlo','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rfer','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pais','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_provee','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_modelo','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_composi','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_lineasub','varchar(50)',$colafter,'');

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

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

			$colafter=vrsetcolu($tabla0,$tabla.'_at04','varchar(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_at06','varchar(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice04','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice05','varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice06','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice07','varchar(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice08','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice09','varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice10','varchar(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'ice11','varchar(6)',$colafter,'');

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

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

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

// 			$colafter=vrsetcolu($tabla0,'lado','varchar(1)',$colafter,'');
			if(mb_stristr('rcsa',$cfg_empr))
			{
			$colafter=vrsetcolu($tabla0,$tabla.'_fr','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_re','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rh','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_lh','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_orig','varchar(1)',$colafter,'');
			}
		}
		
		if (mb_stristr('clor',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_hexa','varchar(7)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_hexa2','varchar(7)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rgb1','smallint(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rgb2','smallint(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_rgb3','smallint(3)',$colafter,'');
    }
    
		if (mb_stristr('nvdd',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_abrev','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_posi','tinyint(3)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_puni','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacont','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_codigon','varchar(13)',$colafter,'');
			msql_query('insert into '.$tabla0.'('.$tabla.'_codigo,'.$tabla.'_descri)value("90000","NOVEDADES")',$link_vcrx);
		}
		
		if (mb_stristr('civa',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_porc', 'decimal(5,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctavtas', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacomp', 'varchar(13)',$colafter,'');
		}

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

		if (mb_stristr('cair',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_porc', 'decimal(5,2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_bser', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaxcob', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaxpag', 'varchar(13)',$colafter,'');
		//	$colafter=vrsetcolu($tabla0,$tabla.'_rrta', 'decimal(5,2)',$colafter,'');
		//	$colafter=vrsetcolu($tabla0,$tabla.'_riva', 'decimal(5,2)',$colafter,'');
		}

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

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

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

		if (mb_stristr('ptoe',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ambice', 'int(1)',$colafter,'');
    }    
    
		if (mb_stristr('ptov',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_numero', 'int(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ambice', 'int(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_caba', 'varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cbco', 'X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_caja', 'varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_bode', 'varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_nomcom', 'varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_auto', 'X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_autocon', 'varchar(1)',$colafter,'');
		}

		if (mb_stristr('vndd',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_email', 'varchar(30)',$colafter,'');
		}

		if (mb_stristr('bode',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_numero', 'int(9)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ptov', 'varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
		}

		if (mb_stristr('ctab',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ptoe', 'varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_numero', 'varchar(16)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_bcos', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_corte', 'smallint',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacont', 'varchar(13)',$colafter,'');
		}

		if (mb_stristr('pais',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ats', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_tlfn', 'varchar(4)',$colafter,'');
		}

    
		if (mb_stristr('capr',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_modu', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_concepto', 'varchar()',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fecha1', 'date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fecha2', 'date',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_modu', 'varchar(4)',$colafter,'');
          }    
    
		if (mb_stristr('clac',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');

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

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

		}

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

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

		}

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

		if (mb_stristr('tpro',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaxpag', 'varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaapro', 'varchar(12)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_ctaapro', 'X',$colafter,'');
		}

		if (mb_stristr('lsub',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ctavtas', 'varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctadcto', 'varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacvta', 'varchar(12)',$colafter,'');
// 			$colafter=vrsetcolu($tabla0,$tabla.'_ctacomp', 'varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctainve', 'varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctaprod', 'varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ean13', 'X',$colafter,'');
		}

		if (mb_stristr('csub',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_ctacost', 'varchar(12)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ctagast', 'varchar(12)',$colafter,'');
		}

		if (mb_stristr('asub',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_puni', 'decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_lsub', 'varchar(9)',$colafter,'');
		}

		if (mb_stristr('lote',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_impor', 'varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_fabric', 'date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_caduca', 'date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_costo', 'decimal(13,4)',$colafter,'');
		}

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

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

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

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

		}
    
		if (mb_stristr('airl',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_prefijo', 'varchar(3)',$colafter,'');
    }

		if (mb_stristr('flgh',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_fecha', 'date',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_airl', 'varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_vuelo', 'varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ciudad1', 'varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ciudad2', 'varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_itin1', 'datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_esti1', 'datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_real1', 'datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_itin2', 'datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_esti2', 'datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_real2', 'datetime',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_hora1', 'X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_hora2', 'X',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_hora3', 'X',$colafter,'');
    }
    
		if (mb_stristr('vhcl',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_placa', 'varchar(8)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_camv', 'varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_vinn', 'varchar(17)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_motor', 'varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cilindro', 'smallint(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_pais', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_prvc', 'varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_provincia', 'varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_ciudad', 'varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clase', 'varchar(4)',$colafter,'');

			$colafter=vrsetcolu($tabla0,$tabla.'_mrca', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_mdlo', 'varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_modelo', 'varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_anio', 'smallint(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clor', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clor1', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_clor2', 'varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_propietarioid', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_propietario', 'varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_conductor', 'varchar(30)',$colafter,'');

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

		}

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

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

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

			$colafter=vrsetcolu($tabla0,$tabla.'_segundos', 'int(5)',$colafter,'');

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

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

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

		if (mb_stristr('imgi',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_item', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
		}

		if (mb_stristr('imge',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_defa','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_file', 'varchar(30)',$colafter,'');
		}

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

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

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

		}

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

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

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

		if (mb_stristr('mrca',$tabla))
    {
			$colafter=vrsetcolu($tabla0,$tabla.'_enti', 'varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_mrca', 'varchar(4)',$colafter,'');
		}

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

      $colafter=vrsetcolu($tabla0,$tabla.'_area', 'varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_funcion', 'varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_grupo_seg', 'varchar(5)',$colafter,'');
      
			$colafter=vrsetcolu($tabla0,$tabla.'_lesiones', 'varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_discapacidad', 'varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_cardiaco', 'varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_respiratorio', 'varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_capa_resp', 'varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla0,$tabla.'_observaciones', 'varchar(200)',$colafter,'');
      
      
      
    }
    
    // 		vrsetfill($tabla);
	
	}
	
	if($user_tipo=='sist' or 1==2)
	{echo '<br>'.'TABLA : '.$tabla.'('.$codigo.')'.' -> '.date('H:i:s');}	
		
}

function vrsettab1($tabla)
{
// 		include('cfg/config.php');
	include('../_cfg/config.php');

  $colafter='';

  $tabla1=$tabla.'1';
  $tabla2=$tabla.'2';
  $tabla5=$tabla.'5';

  msql_query('create table '.$tabla1.'(idnum1 int not null primary key auto_increment) engine=innodb',$link_vcrx);
  msql_query('create table '.$tabla2.'(idnum2 int not null) engine=innodb',$link_vcrx);
//   msql_query('create table '.$tabla5.'(idnum5 int not null) engine=innodb',$link_vcrx);

  msql_query('alter table '.$tabla1.' engine=innodb, default character set=latin1 collate=latin1_spanish_ci',$link_vcrx);
  msql_query('alter table '.$tabla2.' engine=innodb, default character set=latin1 collate=latin1_spanish_ci',$link_vcrx);
//   msql_query('alter table '.$tabla5.' engine=innodb, default character set=latin1 collate=latin1_spanish_ci',$link_vcrx);

	
	msql_query('alter table '.$tabla1.' drop primary key',$link_vcrx);
	msql_query('alter table '.$tabla1.' add primary key(idnum1)',$link_vcrx);

	msql_query('alter table '.$tabla2.' drop primary key',$link_vcrx);
	msql_query('alter table '.$tabla2.' add primary key(idnum2,iddet)',$link_vcrx);

// 	msql_query('drop index idnum on ' .$tabla1);
// 	msql_query( 'create index idnum on ' .$tabla1.'(idnum1)');


		/////////////////////////////////////////////////////////
		// TABLA 1
		/////////////////////////////////////////////////////////
	{
  $colafter=vrsetcolu($tabla1,'docu','varchar(4)','idnum1','');
  $colafter=vrsetcolu($tabla1,'ptoe','varchar(6)',$colafter,'001001');
  $colafter=vrsetcolu($tabla1,'numero','varchar(9)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'fecha','date',$colafter,'');
  $colafter=vrsetcolu($tabla1,'enti','varchar(13)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'ptov','varchar(6)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'bode','varchar(6)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'caba','varchar(6)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'caja','varchar(6)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'ctab','varchar(6)',$colafter,'');

  $colafter=vrsetcolu($tabla1,'concepto','varchar(250)',$colafter,'');

  $colafter=vrsetcolu($tabla1,'zsub','varchar(9)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'csub1','varchar(9)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'ctas1','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'item1','varchar(13)',$colafter,'');

//   $colafter=vrsetcolu($tabla1,'ride','varchar(1)',$colafter,'1');
  $colafter=vrsetcolu($tabla1,'stfin','varchar(1)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'status','varchar(1)',$colafter,'-');

  $colafter=vrsetcolu($tabla1,'idfrom','int(9)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'mdfrom','varchar(4)',$colafter,'');
  
  $colafter=vrsetcolu($tabla1,'iuser','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'idate','datetime',$colafter,'');
  $colafter=vrsetcolu($tabla1,'uuser','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'udate','datetime',$colafter,'');
  $colafter=vrsetcolu($tabla1,'auser','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'adate','datetime',$colafter,'');
  $colafter=vrsetcolu($tabla1,'fuser','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'fdate','datetime',$colafter,'');
  $colafter=vrsetcolu($tabla1,'ouser','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'odate','datetime',$colafter,'');
  $colafter=vrsetcolu($tabla1,'xuser','varchar(10)',$colafter,'');
  $colafter=vrsetcolu($tabla1,'xdate','datetime',$colafter,'');

  $colafter=vrsetcolu($tabla1,'mensaje','varchar(250)',$colafter,'');
    
	$colafter=vrsetcolu($tabla1,'adjunto1','varchar(250)',$colafter,'');

	
  if(mb_stristr('vtas.clie.clte.comp.prov.dxco.dxpa',$tabla))
	{
	  $colafter=vrsetcolu($tabla1,'plazo','smallint(3)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'cuota','smallint(3)',$colafter,'');
	}
    
  if(mb_stristr('caja.bcos.retc.retp',$tabla))
	{
	  $colafter=vrsetcolu($tabla1,'plazo','smallint(3)',$colafter,'');
	}
    
  if(mb_stristr('vtas.clie.comp.prov',$tabla))
	{
	  $colafter=vrsetcolu($tabla1,'efectivo','decimal(9,2)',$colafter,'');
	}
    
    
  if(mb_stristr('comp.prov.impo',$tabla))
	{
	  $colafter=vrsetcolu($tabla1,'impor','varchar(12)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'i_fob','X',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'i_seg','X',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'i_fle','X',$colafter,'');
    
// 	  $colafter=vrsetcolu($tabla1,'i_fob','decimal(15,6)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'costoe1','decimal(15,6)',$colafter,'');
// 	  $colafter=vrsetcolu($tabla1,'fob1','decimal(15,6)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'seguro1','decimal(15,6)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'flete1','decimal(15,6)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'costol1','decimal(15,6)',$colafter,'');

    $colafter=vrsetcolu($tabla1,'costoe1d','varchar(1)',$colafter,'');
//     $colafter=vrsetcolu($tabla1,'fob1d','varchar(1)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'seguro1d','varchar(1)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'flete1d','varchar(1)',$colafter,'');
	  $colafter=vrsetcolu($tabla1,'costol1d','varchar(1)',$colafter,'');
	}
    
    
  if(mb_stristr('guia.prod',$tabla))
	{
	  $colafter=vrsetcolu($tabla1,'plazo','smallint(3)',$colafter,'');
	}
	
  if(mb_stristr('vtas.clie.clte.comp.prov.caba.caja.bcos.ctab.dxco.dxpa.inve.cele',$tabla))
  {
		$colafter=vrsetcolu($tabla1,'todocu','varchar(4)',$colafter,'');
		$colafter=vrsetcolu($tabla1,'toptoe','varchar(6)',$colafter,'');
		$colafter=vrsetcolu($tabla1,'tonume','varchar(9)',$colafter,'');
		$colafter=vrsetcolu($tabla1,'toatrz','varchar(49)',$colafter,'');
  }

		if(mb_stristr('caba.bcos',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'benefic','varchar(30)',$colafter,'');
		}		

		if(mb_stristr('vtas.clie.clte.call.carr',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'toenti','varchar(13)',$colafter,'');
    }
    
		if(mb_stristr('vtas.clie.clte.call',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'attn','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'vndd','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cmpd','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'rcdd','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'adrs','int(9)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'drtr','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'atencion','varchar(200)',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'fpag','varchar(2)',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'fpag','X',$colafter,'');
		}		
    
		if(mb_stristr('inve.prod',$tabla))
		{
		  $colafter=vrsetcolu($tabla1,'impor','varchar(12)',$colafter,'');
		  $colafter=vrsetcolu($tabla1,'tobode','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'bode2','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'numfac','varchar(9)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'idfact','int(9)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'dias_tep','smallint(3)',$colafter,'');
		}		
		
		if(mb_stristr('caba.cjte',$tabla))
		{
// 			$colafter=vrsetcolu($tabla1,'caba2','varchar(6)',$colafter,'');

			$colafter=vrsetcolu($tabla1,'fecha2','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fentrega','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fcobro','date',$colafter,'');
		}

		if(mb_stristr('caja.bcos.cjte.dxco.dxpa',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'caba2','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'tocaba','X',$colafter,'');
			$colafter=vrsetcolu($tabla1,'tocaja','X',$colafter,'');
			$colafter=vrsetcolu($tabla1,'toctab','X',$colafter,'');
			$colafter=vrsetcolu($tabla1,'caja2','X');
			$colafter=vrsetcolu($tabla1,'ctab2','X');
		}		

		if(mb_stristr('caja',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'fcobro','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fechadepo','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'ctabdepo','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'numedepo','varchar(9)',$colafter,'');
		}		
    
		if(mb_stristr('bcos',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'fentrega','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fcobro','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'ecta_desc1','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'ecta_refe1','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'ecta_refe2','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'ecta_codtra','varchar(20)',$colafter,'');
		}		
		
		if(mb_stristr('clie.vtas',$tabla))
              {
               $colafter=vrsetcolu($tabla1,'paypal_res','text',$colafter,'');
               $colafter=vrsetcolu($tabla1,'payphone_res','text',$colafter,'');
              }
      
		if(mb_stristr('clie.prov.role.caja.bcos.prod',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'claveacc','varchar(49)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'claveacce','X');
		}
		
		if(mb_stristr('vtas.comp.guia.retp.retc.rete.retb',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'claveacc','varchar(49)',$colafter,'');
			
			if(mb_stristr('vtas.guia.retp.comp',$tabla))
			{
        $colafter=vrsetcolu($tabla1,'firmado','datetime',$colafter,'');
        $colafter=vrsetcolu($tabla1,'firmafec','datetime',$colafter,'');
        $colafter=vrsetcolu($tabla1,'recepfec','datetime',$colafter,'');
        $colafter=vrsetcolu($tabla1,'recepmsj','varchar(250)',$colafter,'');
  // 			$colafter=vrsetcolu($tabla1,'firmado','X');
			}
			
			
			$colafter=vrsetcolu($tabla1,'atrz','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'atrzvali','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'atrznume','varchar(49)',$colafter,'');

			$colafter=vrsetcolu($tabla1,'autornum','varchar(49)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'autorfec','datetime',$colafter,'');
			$colafter=vrsetcolu($tabla1,'autormsj','varchar(200)',$colafter,'');

			$colafter=vrsetcolu($tabla1,'firmante','varchar(13)',$colafter,'');
		}		

		if(mb_stristr('vtas.guia.rete.retp.clie.prov.caja.susa.role,comp.prod',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'emailto','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'emailfec','datetime',$colafter,'');
		}
	
		if(mb_stristr('vtas.clie',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'infoadic','text',$colafter,'');
		}		
		
		if(mb_stristr('comp.prov.retc.retp.retb',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'infoadic','text',$colafter,'');
		}		

		if(mb_stristr('cont.comp',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'rise','varchar(1)',$colafter,'');
		}		
    
		if(mb_stristr('cont.vtas.comp.prov',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'suco','varchar(2)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'at03','varchar(2)',$colafter,'');
		}		
		
		if(mb_stristr('comp',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'aprobado','varchar(1)',$colafter,'1');
			$colafter=vrsetcolu($tabla1,'fechadocu','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fechacont','date',$colafter,'');
		}		
		
		if(mb_stristr('comp.prov',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'rise','X',$colafter,'0');
			$colafter=vrsetcolu($tabla1,'obcon','X',$colafter,'1');
			$colafter=vrsetcolu($tabla1,'cesp','X',$colafter,'0');
			$colafter=vrsetcolu($tabla1,'toenti','varchar(13)',$colafter,'');
		}		
		
		if(mb_stristr('rete.retc.retp.retb',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'toenti','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'codret','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cret','varchar(4)',$colafter,'');
      $colafter=vrsetcolu($tabla1,'zeus','varchar(1)',$colafter,'1');
      if($cfg_empr=='hshe')
      {$colafter=vrsetcolu($tabla1,'hshe','varchar(1)',$colafter,'1');}
        
		}		


		if(mb_stristr('vtas.clie.comp.caba.bcos.caja.dxco.dxpa.carr.prov.clte',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'fpag','varchar(2)',$colafter,'');
		}		

		if(mb_stristr('noxmi.susa',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'fechasale','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fecha1','date',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'fecha2','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fecha2','X',$colafter,'');
		}		

		if(mb_stristr('guia',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'vhcl','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'placa','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'ruta','varchar(50)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'motivo','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fecha1','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fecha2','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'punto1','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'punto2','varchar(250)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cedula1','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cedula2','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'nombre1','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'nombre2','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'numfac','varchar(9)',$colafter,'');
               
			$colafter=vrsetcolu($tabla1,'wsapp1','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'wsapp2','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'valflete','decimal(5,2)',$colafter,'');
               
// 			$colafter=vrsetcolu($tabla1,'puntualidad','smallint(1)',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'limpieza','smallint(1)',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'amabilidad','smallint(1)',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'precio','smallint(1)',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'conduccion','smallint(1)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'observaciones','varchar(250)',$colafter,'');
		}		

		if(mb_stristr('jwib.jwiv.jw19',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'fecha1','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'fechar','date',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cong','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'sala','varchar(1)',$colafter,'1');
			$colafter=vrsetcolu($tabla1,'cong2','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cong2_descri','varchar(30)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cong2_dpud','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cong2_dpuh','varchar(5)',$colafter,'');
			
// 			$colafter=vrsetcolu($tabla1,'cong2_dpub','X',$colafter,'');		

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

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

			$colafter=vrsetcolu($tabla1,'sala','varchar(1)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'lugar','varchar(1)',$colafter,'');
		}		
    
		if(mb_stristr('jwrt',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'cong','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'public','decimal(5,2)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'presen','decimal(5,2)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'horas','decimal(5,2)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'revisi','decimal(5,2)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'cursos','decimal(5,2)',$colafter,'');
		}
	
		if(mb_stristr('jwtv',$tabla))
		{
			$colafter=vrsetcolu($tabla1,'categoria','X',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'titulo','X',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'imagen','X',$colafter,'');
// 			$colafter=vrsetcolu($tabla1,'ubicacion','X',$colafter,'');

			$colafter=vrsetcolu($tabla1,'titulo','X',$colafter,'');
			$colafter=vrsetcolu($tabla1,'video','X',$colafter,'');
			$colafter=vrsetcolu($tabla1,'subtt','X',$colafter,'');
			$colafter=vrsetcolu($tabla1,'imagen','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'ubicacion','X',$colafter,'');
			
		}
	
    
		if(mb_stristr('vtas.clie.carr',$tabla))
		{
			if(mb_stristr('tfe1',$cfg_empr))
			{
        $colafter=vrsetcolu($tabla1,'hacienda','varchar(30)',$colafter,'');
        $colafter=vrsetcolu($tabla1,'cntn','varchar(11)',$colafter,'');
        $colafter=vrsetcolu($tabla1,'productor','varchar(30)',$colafter,'');
        $colafter=vrsetcolu($tabla1,'naviera','varchar(10)',$colafter,'');
        $colafter=vrsetcolu($tabla1,'fecha1','date',$colafter,'');
        $colafter=vrsetcolu($tabla1,'fecha2','date',$colafter,'');
      }
    }
    
  	if(mb_stristr('apri.emar.emun',$cfg_empr))
			{
			$colafter=vrsetcolu($tabla1,'bldn','varchar(40)',$colafter,'');
			}
		
		if(mb_stristr('gnya',$cfg_empr))
			{
			$colafter=vrsetcolu($tabla1,'drtr','varchar(13)',$colafter,'');
			}
		
		if(mb_stristr('rcsa',$cfg_empr))
			{
			$colafter=vrsetcolu($tabla1,'vhcl','varchar(7)',$colafter,'');
			$colafter=vrsetcolu($tabla1,'sntr','varchar(7)',$colafter,'');
			}

		if(mb_stristr('tgck',$cfg_empr))
		{
			$colafter=vrsetcolu($tabla2,'vhcl','varchar(7)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'odmt','int(6)',$colafter,'');
		}

// 	echo "\n";
// 	echo 'TABLA : '.$tabla1.' - '.date('H:i:s');
	}
	
	
		/////////////////////////////////////////////////////////
		// TABLA 2
		/////////////////////////////////////////////////////////
	{	
		$colafter=vrsetcolu($tabla2,'iddet','smallint(4)','idnum2','');
		$colafter=vrsetcolu($tabla2,'idate2','datetime',$colafter,'');

// 		msql_query('drop index idnum on ' .$tabla2);
// 		msql_query( 'create index idnum on ' .$tabla2.'(idnum2,iddet)');
		if(mb_stristr('cont',$tabla))
		{$colafter=vrsetcolu($tabla2,'cant','decimal(15,6)',$colafter,'');}
		else
		{$colafter=vrsetcolu($tabla2,'cant','decimal(13,4)',$colafter,'');}
			
		$colafter=vrsetcolu($tabla2,'puni','decimal(13,6)',$colafter,'');
	

       if(mb_stristr('acce',$tabla))
       {
          $colafter=vrsetcolu($tabla2,'docum','varchar(4)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'inse','X',$colafter,'');
          $colafter=vrsetcolu($tabla2,'full','varchar(1)',$colafter,'');

          $colafter=vrsetcolu($tabla2,'nuev','varchar(1)',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'crea','varchar(1)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'modi','varchar(1)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'anul','varchar(1)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'elim','varchar(1)',$colafter,'');

          $colafter=vrsetcolu($tabla2,'apro','varchar(1)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'proc','varchar(1)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'clon','varchar(1)',$colafter,'');

          $colafter=vrsetcolu($tabla2,'cons','varchar(1)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'info','varchar(1)',$colafter,'');
          $colafter=vrsetcolu($tabla2,'espe','varchar(1)',$colafter,'');
       }
          
     if(mb_stristr('vtas.clie.prod.carr',$tabla))
     {$colafter=vrsetcolu($tabla2,'itnum','int(2)',$colafter,'');}
	
	
		if(mb_stristr('cont.vtas.clie.guia.clte.comp.prov.inve.tfin.prod.carr.comi',$tabla))
		{$colafter=vrsetcolu($tabla2,'item','varchar(13)',$colafter,'');}

		if(mb_stristr('vtas.clie',$tabla))
		{
			if(mb_stristr('pcs1',$cfg_empr))
			{$colafter=vrsetcolu($tabla2,'envio','decimal(5,2)',$colafter,'');}
    }
    
    
		if(mb_stristr('vtas.clie.prod.carr',$tabla))
		{
      if(mb_stristr('ecgl',$cfg_empr))
			{
// 				$colafter=vrsetcolu($tabla2,'vidrio','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'lmns','int(3)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'mm_l','int(4)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'mm_a','int(4)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'mm_e','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'tmpl','varchar(1)',$colafter,'2');
				$colafter=vrsetcolu($tabla2,'puli','varchar(1)',$colafter,'0');
				$colafter=vrsetcolu($tabla2,'saqu0','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'saqu1','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'saqu2','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'perf0','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'perf1','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'perf2','int(2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'seri1','decimal(7,2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'seri2','decimal(7,2)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'perfor1','varchar(200)',$colafter,'');
				$colafter=vrsetcolu($tabla2,'saques1','varchar(200)',$colafter,'');
// 				$colafter=vrsetcolu($tabla2,'saques2','varchar(200)',$colafter,'');
			}
		}

// 		if(mb_stristr('cont.vtas.clie.clte.comp.prov.inve..tfin.prod.carr',$tabla))
		if(mb_stristr('cont.vtas.clie.clte.comp.prov.inve.tfin.prod.carr',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'lote','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'numlote','varchar(10)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'numserie','varchar(100)',$colafter,'');
		}

		if(mb_stristr('comp.prov',$tabla))
		{
      $colafter=vrsetcolu($tabla2,'itemce','varchar(20)',$colafter,'');
  // 		$colafter=vrsetcolu($tabla2,'itemce1','varchar(13)',$colafter,'');
      $colafter=vrsetcolu($tabla2,'itemce2','varchar(20)',$colafter,'');
      $colafter=vrsetcolu($tabla2,'uxpre','decimal(7,2)',$colafter,'');
      $colafter=vrsetcolu($tabla2,'facon','decimal(15,6)',$colafter,'');
      $colafter=vrsetcolu($tabla2,'faccon','X',$colafter,'');
		}

    if(mb_stristr('comp.prov.impo',$tabla))
    {
      $colafter=vrsetcolu($tabla2,'impor2','varchar(12)',$colafter,'');
    }    
    
		if(mb_stristr('cont',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'lsub','varchar(9)',$colafter,'');
		}

		if(mb_stristr('cont.caba.caja.bcos.cjte.dxco.dxpa.rete.retc.retp.retb.comi.atvd.nomi.empl',$tabla))
		{
         $colafter=vrsetcolu($tabla2,'docum','varchar(4)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'ptoem','varchar(6)',$colafter,'001001');
         $colafter=vrsetcolu($tabla2,'numer','varchar(9)',$colafter,'');
		}

		if(mb_stristr('rete.retc.retp.retb',$tabla))
		{$colafter=vrsetcolu($tabla2,'fecdocum','date',$colafter,'');}
		
		if(mb_stristr('caja.bcos.caba',$tabla))
		{
         $colafter=vrsetcolu($tabla2,'caja2','X');
         $colafter=vrsetcolu($tabla2,'ctab2','X');
         $colafter=vrsetcolu($tabla2,'bcos2','X');
		}
		
		if(mb_stristr('cont.susa.nomi.nvdd.rolp.role',$tabla))
		{
         $colafter=vrsetcolu($tabla2,'enti2','varchar(10)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'nvdd','varchar(5)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'csub','varchar(9)',$colafter,'');
		}

    
		if(mb_stristr('plan.atvd',$tabla))
		{
         $colafter=vrsetcolu($tabla2,'asub','varchar(10)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'zsub2','varchar(9)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'enti2','varchar(13)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'funcion','varchar(15)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'asignacion','varchar(15)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'grupo','varchar(15)',$colafter,'');
		}
    
    
//     echo $tabla;
		if(mb_stristr('empl',$tabla))
		{
      $colafter=vrsetcolu($tabla2,'fecha2','date',$colafter,'');
      $colafter=vrsetcolu($tabla2,'nvdd','varchar(5)',$colafter,'');
      $colafter=vrsetcolu($tabla2,'csub','varchar(9)',$colafter,'');
		}
		

		

      
      //eliminar para nomi
		if(mb_stristr('noxmi.susa',$tabla))
		{
         $colafter=vrsetcolu($tabla2,'fecha2','date',$colafter,'');
   // 		$colafter=vrsetcolu($tabla2,'salario','decimal(9,2)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'cargo','varchar(20)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'sueldo','decimal(9,2)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'valanti','decimal(9,2)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'poranti','decimal(5,2)',$colafter,'');

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

         $colafter=vrsetcolu($tabla2,'iess','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'reloj','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'atraso','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'falta','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'h025','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'h050','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'h100','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'de13','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'de14','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'fres','varchar(1)',$colafter,'');
         $colafter=vrsetcolu($tabla2,'fonres','X',$colafter,'');
		}
      
    
		if(mb_stristr('vtas.clie.clte.comp.prov.carr.comi',$tabla))
		{
// 			$colafter=vrsetcolu($tabla2,'dcto','decimal(4,2)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'dcto','decimal(10,6)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'prop','decimal(4,2)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'ssid','decimal(4,2)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'ice','decimal(4,2)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'iva','decimal(4,2)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'irbp','decimal(4,2)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'pvp1','X',$colafter,'0');

			if(mb_stristr('vtas.clie',$tabla))
			{$colafter=vrsetcolu($tabla2,'pcp1','decimal(13,4)',$colafter,'');}
			
			
			$colafter=vrsetcolu($tabla2,'cair','varchar(5)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'prrta','decimal(5,2)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'priva','decimal(5,2)',$colafter,'0');
			$colafter=vrsetcolu($tabla2,'prta','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'piva','X',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'rrta','decimal(5,2)',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'riva','decimal(5,2)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'rrta','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'riva','X',$colafter,'');

			// ELIMINARLOS
// 			$colafter=vrsetcolu($tabla2,'docum','varchar(4)',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'ptoem','varchar(6)',$colafter,'001001');
// 			$colafter=vrsetcolu($tabla2,'numer','varchar(9)',$colafter,'');
  		if(mb_stristr('vtas.clie.clte.comp.prov.carr',$tabla))
      {
			$colafter=vrsetcolu($tabla2,'docum','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'ptoem','X',$colafter,'001001');
			$colafter=vrsetcolu($tabla2,'numer','X',$colafter,'');
      }
		}

    if(mb_stristr('vtas.clie.carr',$tabla))
    {
  		$colafter=vrsetcolu($tabla2,'cuni','decimal(13,6)',$colafter,'');
  		$colafter=vrsetcolu($tabla2,'cvta','X',$colafter,'');
    }

    if(mb_stristr('inve.tfin.prod',$tabla))
    {
  		$colafter=vrsetcolu($tabla2,'pvta','decimal(13,6)',$colafter,'');
    }

		if(mb_stristr('prod',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'iva','decimal(4,2)',$colafter,'0');
    }	
    
    
    
		$colafter=vrsetcolu($tabla2,'ctas','varchar(13)',$colafter,'');
// 		$colafter=vrsetcolu($tabla2,'cta3','varchar(13)',$colafter,'');
		$colafter=vrsetcolu($tabla2,'detalle','varchar(150)',$colafter,'');
			
		if(mb_stristr('inve.prod',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'reval','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'cambio','varchar(13)',$colafter,'');
		}		
		

		if(mb_stristr('clie.clte.vtas',$tabla))
		{$colafter=vrsetcolu($tabla2,'comi','decimal(5,2)',$colafter,'');}		
		
		
		if(mb_stristr('comp.prov.impo',$tabla))
		{
      //distrib cant,subt,peso
			$colafter=vrsetcolu($tabla2,'umdd','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'peso','decimal(9,2)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'pesokg2','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'seguro2','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'flete2','X',$colafter,'');
      
// 			$colafter=vrsetcolu($tabla2,'seguro_u','decimal(9,2)',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'flete_u','decimal(9,2)',$colafter,'');
      
// 			$colafter=vrsetcolu($tabla2,'seguro_v','decimal(9,2)',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'flete_v','decimal(9,2)',$colafter,'');
      
// 			$colafter=vrsetcolu($tabla2,'seguro_w','decimal(9,2)',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'flete_w','decimal(9,2)',$colafter,'');

			$colafter=vrsetcolu($tabla2,'seguro_u','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'flete_u','X',$colafter,'');
      
			$colafter=vrsetcolu($tabla2,'seguro_v','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'flete_v','X',$colafter,'');
      
			$colafter=vrsetcolu($tabla2,'seguro_w','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'flete_w','X',$colafter,'');
      
      
      $colafter=vrsetcolu($tabla2,'arcl','varchar(18)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'adva','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'fodi','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'isdi','decimal(7,2)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'icei','decimal(7,2)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'ivai','decimal(7,2)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'cuni','decimal(13,6)',$colafter,'');
      
			$colafter=vrsetcolu($tabla2,'adval','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'fodin','X',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'codret','varchar(4)',$colafter,'');
		}		
		
		if(mb_stristr('comp',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'r_claveacc','varchar(49)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'r_docu','varchar(4)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'r_ptoe','varchar(6)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'r_numero','varchar(9)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'r_fecha','date',$colafter,'');
// 			$colafter=vrsetcolu($tabla2,'r_enti','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'r_enti1','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'r_enti2','varchar(13)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'r_atrz','varchar(10)',$colafter,'');
		}		
		
    
    
		if(mb_stristr('cont.caba.caja.bcos',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'cair','varchar(5)',$colafter,'');
		}


		if(mb_stristr('rete.retc.retp.retb',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'cair','varchar(5)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'base','decimal(10,2)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'porc','decimal(5,2)',$colafter,'');
		}		
		
		if(mb_stristr('vtas.clie',$tabla))
		{
			if(mb_stristr('rcsa',$cfg_empr))
			{
			$colafter=vrsetcolu($tabla2,'puni_o','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'puni_a','decimal(13,6)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'impo','varchar(1)',$colafter,'');
			}
		}

		if(mb_stristr('vtas.clie',$tabla))
		{
      if(mb_stristr('pcs1.prs1.idm1.idmt',$cfg_empr))
			{
			$colafter=vrsetcolu($tabla2,'cntn','varchar(11)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'cntnf1','date',$colafter,'');
			$colafter=vrsetcolu($tabla2,'cntnf2','date',$colafter,'');
			$colafter=vrsetcolu($tabla2,'serie1','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'serie2','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'serie3','varchar(20)',$colafter,'');
			$colafter=vrsetcolu($tabla2,'eirout','int',$colafter,'');
			$colafter=vrsetcolu($tabla2,'eirin','int',$colafter,'');
			}
    }


		if(mb_stristr('jwtv',$tabla))
		{
			$colafter=vrsetcolu($tabla2,'titulo','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'imagen','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'video','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'subtt','X',$colafter,'');
			$colafter=vrsetcolu($tabla2,'ubicacion','X',$colafter,'');
		}

}
	
		/////////////////////////////////////////////////////////
		// TABLA 5
		/////////////////////////////////////////////////////////
	{
//  		$colafter=vrsetcolu($tabla5,'iddet','smallint(4)','idnum5','');
//     $colafter=vrsetcolu($tabla5,'archivo','varchar(255)',$colafter,'');
//     $colafter=vrsetcolu($tabla5,'defa','varchar(255)',$colafter,'');
	
// 		msql_query('drop index idnum on ' .$tabla5);
// 		msql_query( 'create index idnum on ' .$tabla5.'(idnum5,iddet)');
	}
	
	if($user_tipo=='sist')
	{
	echo "\n";
	echo 'TABLA : '.$tabla2.' - '.date('H:i:s');
	}
}




function vrsetview()
{
//   file_put_contents('../info.php','php phpinfo();');
  
	include('../_cfg/config.php');

	$fini1= date('2000-01-01');
	$fini1_sql='select * from empr0';
	$fini1_res=msql_query($fini1_sql,$link_vcrx);
	$feccont=@msql_result($fini1_res,0,'empr_fcont');
	$feccele=@msql_result($fini1_res,0,'empr_fcele');
	$fecinve=@msql_result($fini1_res,0,'empr_finve');
	$feccaja=@msql_result($fini1_res,0,'empr_fcaja');
// 	$feccaja=msql_result($fini1_res,0,'empr_fcaba');
	$fecabas=@msql_result($fini1_res,0,'empr_fbcos');
	$feccxco=@msql_result($fini1_res,0,'empr_fcxco');
	$feccxpa=@msql_result($fini1_res,0,'empr_fcxpa');
// 	$fecnomi=msql_result($fini1_res,0,'empr_fnomi');
}

function exeview($view,$view_sql='',$link_vcrx='')
{
	include('../_cfg/config.php');
	msql_query('drop view '.$view,$link_vcrx);
   
//    echo '//////'.$view_sql;
  if($view_sql=='' or $view_sql=='X'){return;}
	if (msql_query($view_sql,$link_vcrx)==1)
	{
// 		echo '<br>';
// 		echo 'VISTA : '.$view.' ==> ';
// 		echo ' *** OK ***   ==> ';
// 		echo ' - '.date('H:i:s');
// 		echo '<br>';
// 		if(mb_stristr($view_sql,'item00')){echo $view_sql;}
	}
	else
	{
		echo '<br><br>';
		echo 'VISTA : '.$view.' ==> ';
		echo ' *** ERROR ***   ==> '.msql_error($link_vcrx);
		echo ' - '.date('H:i:s');
		echo '<br><br>'.$view_sql;
	}	
}

function vrsetview0($tabla='')
{
	include('../_cfg/config.php');
	vrsetview();
	
// 	echo 'AQUIIIIIIIIIIIIIIII';

	$view0='ipip00';
	{
	$view_sql= 'create view '.$view0.' as ';
	$view_sql.= 'select * from ipip0 left join user0 on ipip_user=user_codigo order by ipip_lused';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='empr1';
	{
	$view_sql= 'create view '.$view0.' as ';
	$view_sql.= 'select * from empr0 left join enti0 on empr_ruc=enti_codigo limit 1';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='codenti';
	{
	$view_sql= 'create view '.$view0.' as ';
	$view_sql.='select ';
		$view_sql.='concat("20",mid(enti_codigo,3,2)) as anio, ';
		$view_sql.='mid(enti_codigo,5,2) as mes, ';
		$view_sql.='(mid(enti_codigo,7,3)) as numero ';
	$view_sql.='from enti0 ';
	$view_sql.='where enti_codigo like "99%" ';
	$view_sql.='group by mid(enti_codigo,3,2) ';
	$view_sql.='order by anio desc, mes desc, numero desc ';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='user00';
	{
	$view_sql= 'create view '.$view0.' as ';
	 $view_sql.='select *';
	 $view_sql.=' from user0 ';
	 $view_sql.=' left join enti0 on';
// 	 $view_sql.=' where ';
	 $view_sql.=' user_cedula=enti_codigo ';
	 $view_sql.=' order by enti_descri';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='cdad00';
	{
	$view_sql= 'create view '.$view0.' as ';
	 $view_sql.='select cdad0.*, prvc_descri ';
	 $view_sql.=' from cdad0 left join prvc0 ';
	 $view_sql.=' on left(cdad_codigo,2)=prvc_codigo';
	 $view_sql.=' order by prvc_descri,cdad_descri';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='ctas00';
	{
	$view_sql= 'create view '.$view0.' as ';
	$view_sql.='select ctas0.*,';
	$view_sql.='case ';
		 $view_sql.='when ctas_status="X" or ctas_status="I" then 0 ';
		 $view_sql.='when length(ctas_codigo)=1 or length(ctas_codigo)=2 then 1 ';
		 $view_sql.='when length(ctas_codigo)=3 or length(ctas_codigo)=4 then 2 ';
		 $view_sql.='when length(ctas_codigo)=5 or length(ctas_codigo)=6 then 3 ';
		 $view_sql.='when length(ctas_codigo)=7 or length(ctas_codigo)=8 then 4 ';
		 $view_sql.='when length(ctas_codigo)=9 or length(ctas_codigo)=10 then 5 ';
		 $view_sql.='when length(ctas_codigo)>=11 then 5 ';
		 $view_sql.='else 0 ';
		 $view_sql.='end as ctas_nivel';
	 $view_sql.=' from ctas0';
	 $view_sql.=' order by ctas_codigo';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='adrs00';
	{
	$view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select adrs0.*,';
			 $view_sql.='enti_descri, ';
			 $view_sql.='enti_razsoc, ';
			 $view_sql.='enti_nomcom, ';
			 $view_sql.='enti_nom1, ';
			 $view_sql.='enti_nom2, ';
			 $view_sql.='enti_ape1, ';
			 $view_sql.='enti_ape2, ';
			 $view_sql.='prvc_descri,';
			 $view_sql.='cdad_descri ';
			 $view_sql.=' from adrs0 ';
			 $view_sql.=' left join enti0 on adrs_enti=enti_codigo ';
			 $view_sql.=' left join cdad00 on adrs_cdad=cdad_codigo ';
	exeview($view0,$view_sql,$link_vcrx);
	}

// 	$view0='suel00';
// 	{
// 	$view_sql= 'create view '.$view0.' as ';
// 			 $view_sql.='select suel0.*,';
// 			 $view_sql.='enti_descri, ';
// 			 $view_sql.='enti_nom1, ';
// 			 $view_sql.='enti_nom2, ';
// 			 $view_sql.='enti_ape1, ';
// 			 $view_sql.='enti_ape2, ';
// 			 $view_sql.='stat_descri ';
// // 			 $view_sql.='prvc_descri,';
// // 			 $view_sql.='cdad_descri ';
// 			 $view_sql.=' from suel0 ';
// 			 $view_sql.=' left join enti0 on suel_enti=enti_codigo ';
// // 			 $view_sql.=' left join csub0 on suel_csub=csub_codigo ';
// 			 $view_sql.=' left join stat0 on suel_status=stat_codigo ';
// // 			 $view_sql.=' left join cdad00 on suel_cdad=cdad_codigo ';
// 	exeview($view0,$view_sql,$link_vcrx);	
// // 	exeview($view0,$view_sql,$link_vcrx);
// 	}

	$view0='atrd00';
	{
	$view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select atrd0.*, ';
			 $view_sql.=' docu_descri ';
			 $view_sql.=' from atrd0 ';
			 $view_sql.=' left join docu0 on atrd_docu=docu_codigo ';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='atrz00'; 	$view_sql= 'create view '.$view0.' as ';
	{
			 $view_sql.='select atrz0.*, ';
			 $view_sql.=' atrd00.*, ';
			 $view_sql.=' enti_descri ';
			 $view_sql.=' from atrz0 ';
			 $view_sql.=' left join enti0 on atrz_enti=enti_codigo ';
			 $view_sql.=' left join atrd00 on atrz_codigo=atrd_atrz ';
			 $view_sql.=' order by atrz_codigo desc ';
	exeview($view0,$view_sql,$link_vcrx);
 }

	$view0='clac00'; 	$view_sql= 'create view '.$view0.' as ';
	{
			 $view_sql.='select clac0.*, ';
			 $view_sql.=' case ';
			 $view_sql.=' when substring(clac_codigo,24,1)="1" then "TEST" ';
			 $view_sql.=' when substring(clac_codigo,24,1)="2" then "PROD" ';
			 $view_sql.=' else "-" end as clac_ambiente, ';
			 $view_sql.=' substring(clac_codigo,1,8) as clac_fechadmy,';
			 $view_sql.=' substring(clac_codigo,9,2) as clac_tipocomp,';
			 $view_sql.=' substring(clac_codigo,11,13) as clac_ruc,';
			 $view_sql.=' substring(clac_codigo,24,1) as clac_tipoambi,';
			 $view_sql.=' substring(clac_codigo,25,6) as clac_serie,';
			 $view_sql.=' substring(clac_codigo,31,9) as clac_secuencial,';
			 $view_sql.=' substring(clac_codigo,40,8) as clac_codinume,';
			 $view_sql.=' substring(clac_codigo,48,1) as clac_tipoemi,';
			 $view_sql.=' substring(clac_codigo,49,1) as clac_check';
			 $view_sql.=' from clac0 ';
			 $view_sql.=' order by clac_fecha desc ';
//     echo explain_sql($view_sql);
	exeview($view0,$view_sql,$link_vcrx);
 }

	$view0='enti00'; 	$view_sql= 'create view '.$view0.' as ';
	{
			 $view_sql.='select enti0.*,';
			 $view_sql.='case when enti_fechanac is not null then date_format(enti_fechanac,"%d/%b/%y") end as enti_fechanacdmy,';
			 $view_sql.='case when enti_fechaini is not null then date_format(enti_fechaini,"%d/%b/%y") end as enti_fechainidmy,';
			 $view_sql.='	(DATEDIFF(curdate(),enti_fechanac) div 365) as enti_edad,';
			 $view_sql.='	(DATEDIFF(curdate(),enti_fechanac) mod 365)div 30 as enti_edad2,';
			 $view_sql.='	(DATEDIFF(curdate(),enti_fechaini) div 365) as enti_anti,';
			 $view_sql.='	(DATEDIFF(curdate(),enti_fechaini) mod 365)div 30 as enti_anti2,';
			 $view_sql.='case ';
				 $view_sql.='when left(enti_codigo,2)>="01" and left(enti_codigo,2)<="24" and length(trim(enti_codigo))=10 then "C" ';
				 $view_sql.='when left(enti_codigo,2)>="01" and left(enti_codigo,2)<="24" and length(trim(enti_codigo))=13 then "R" ';
				 $view_sql.='when length(trim(enti_codigo))!=10 and length(trim(enti_codigo))!=13 and length(trim(enti_pasaporte))!=0 then "P" ';
				 $view_sql.='when length(trim(enti_codigo))!=10 and length(trim(enti_codigo))!=13 and length(trim(enti_idexterior))!=0 then "E" ';
				 $view_sql.='when left(enti_codigo,2)="99" and length(trim(enti_pasaporte))>0 then "P" ';
				 $view_sql.='when left(enti_codigo,2)="99" and length(trim(enti_idexterior))>0 then "E" ';
				 $view_sql.='when left(enti_codigo,2)="99" and length(trim(enti_pasaporte))=0 and length(trim(enti_idexterior))=0 then "F" ';
				 $view_sql.='when left(enti_codigo,1)="1"  and length(trim(enti_codigo))=6 then "P" ';
				 $view_sql.='else "-" end as enti_tipoid,';
			 $view_sql.='case ';
				 $view_sql.='when left(enti_codigo,2)>="01" and left(enti_codigo,2)<="24" and substr(enti_codigo,3,1)<="5" then "N" ';
				 $view_sql.='when left(enti_codigo,2)>="01" and left(enti_codigo,2)<="24" and substr(enti_codigo,3,1)="6" then "P" ';
				 $view_sql.='when left(enti_codigo,2)>="01" and left(enti_codigo,2)<="24" and substr(enti_codigo,3,1)="9" then "J" ';
				 $view_sql.='when left(enti_codigo,2)="99" and length(trim(enti_codigo))=10 then "F" ';
				 $view_sql.='when left(enti_codigo,2)="99" and length(trim(enti_codigo))=13 then "F" ';
				 $view_sql.='else "-" end as enti_tiporuc,';
			 $view_sql.='zsub_descri,csub_descri,tpro_descri,pais_descri,cdad_descri,prvc_descri,zsub_ctaxcob,tpro_ctaxpag,pais_ats ';
			 $view_sql.=' from enti0 ';
			 $view_sql.=' left join zsub0 on enti_zsub=zsub_codigo ';
			 $view_sql.=' left join csub0 on enti_csub=csub_codigo ';
			 $view_sql.=' left join tpro0 on enti_tpro=tpro_codigo ';
			 $view_sql.=' left join pais0 on enti_pais=pais_codigo ';
			 $view_sql.=' left join cdad00 on enti_cdad=cdad_codigo ';
			 $view_sql.=' order by zsub_descri,enti_descri';
	exeview($view0,$view_sql,$link_vcrx);
}

	$dreser=4;
	$view0='item0s';
	{
	$view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select item,docu,fecha,status,';
			 $view_sql.='case when docu like "IB%" then cant else cant*-1 end as saldo,';
			 $view_sql.='0.0000 as reser,';
			 $view_sql.='case when docu like "IB%" then cant else cant*-1 end as dispo ';
			 $view_sql.='from inve1,inve2 ';
			 $view_sql.='where ';
			 $view_sql.='idnum1=idnum2 ';
			 $view_sql.='and fecha>="' .$fecinve.'" ';
			 $view_sql.='and status!="O" ';
			 $view_sql.='and status!="X" ';
			 $view_sql.='union ';
			 $view_sql.='select item,docu,fecha,status,';
			 $view_sql.='0.0000 as saldo,';
			 $view_sql.='cant as reser,';
			 $view_sql.='cant*-1 as dispo ';
			 $view_sql.='from clie1,clie2 ';
			 $view_sql.='where ';
			 $view_sql.='idnum1=idnum2 ';
			 $view_sql.='and fecha>=date(now())-'.$dreser.' ';
			 $view_sql.='and status="-" ';

	// dias reserva

	////xsqlstr		
// 		exeview($view0,$view_sql,$link_vcrx);
	}

	$view_sqlean = '';
	{
		 $view_sqlean.='concat(';
		 $view_sqlean.='char(substr(item_ean,1,1)+35),';
		 $view_sqlean.='"!",';
		 $view_sqlean.='char(substr(item_ean,2,1)+48),';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0123")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,3,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,3,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0478")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,4,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,4,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0145")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,5,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,5,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"02567")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,6,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,6,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"03689")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,7,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,7,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='"-",';
		 $view_sqlean.='char(substr(item_ean,8,1)+97,substr(item_ean,9,1)+97,substr(item_ean,10,1)+97,substr(item_ean,11,1)+97,substr(item_ean,12,1)+97,substr(item_ean,13,1)+97),"!")';
		 $view_sqlean.=' as bc_ean13, ';
 }

   if(1==1)
	{
		 $view_sqlean.='concat(';
		 $view_sqlean.='char(substr(item_ean,1,1)+35),';
		 $view_sqlean.='"!",';
		 $view_sqlean.='char(substr(item_ean,2,1)+48),';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0123")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,3,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,3,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0478")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,4,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,4,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0145")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,5,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,5,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"02567")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,6,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,6,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"03689")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,7,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,7,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='"-",';
		 $view_sqlean.='char(substr(item_ean,8,1)+97,substr(item_ean,9,1)+97,substr(item_ean,10,1)+97,substr(item_ean,11,1)+97,substr(item_ean,12,1)+97,substr(item_ean,13,1)+97),"!")';
		 $view_sqlean.=' as item_ean13bc, ';
 }

   if(1==1)
	{
		 $view_sqlean.='concat(';
		 $view_sqlean.='"!",';
		 $view_sqlean.='char(substr(item_ean,1,1)+35),';
		 $view_sqlean.='char(substr(item_ean,2,1)+48),';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0123")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,3,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,3,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0478")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,4,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,4,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='"-",';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"0145")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,5,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,5,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"02567")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,6,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,6,1)+65) ';
			 $view_sqlean.='end, ';
		 $view_sqlean.='case ';
			 $view_sqlean.='when locate(left(item_ean,1),"03689")!=0 ';
			 $view_sqlean.='then char(substr(item_ean,7,1)+48) ';
			 $view_sqlean.='else char(substr(item_ean,7,1)+65) ';
			 $view_sqlean.='end, ';
// 		 $view_sqlean.='char(substr(item_ean,8,1)+97,substr(item_ean,9,1)+97,substr(item_ean,10,1)+97,substr(item_ean,11,1)+97,substr(item_ean,12,1)+97,substr(item_ean,13,1)+97),"!")';
		 $view_sqlean.='char(substr(item_ean,8,1)+97),"!")';
		 $view_sqlean.=' as item_ean8bc, ';
 }

	$view_sqlean00 = '';
	{
		 $view_sql.='concat(';
		 $view_sql.='char(substr(item_ean,1,1)+35),';
		 $view_sql.='"!",';
		 $view_sql.='char(substr(item_ean,2,1)+48),';
		 $view_sql.='case ';
			 $view_sql.='when locate(left(item_ean,1),"0123")!=0 ';
			 $view_sql.='then char(substr(item_ean,3,1)+48) ';
			 $view_sql.='else char(substr(item_ean,3,1)+65) ';
			 $view_sql.='end, ';
		 $view_sql.='case ';
			 $view_sql.='when locate(left(item_ean,1),"0478")!=0 ';
			 $view_sql.='then char(substr(item_ean,4,1)+48) ';
			 $view_sql.='else char(substr(item_ean,4,1)+65) ';
			 $view_sql.='end, ';
		 $view_sql.='case ';
			 $view_sql.='when locate(left(item_ean,1),"0145")!=0 ';
			 $view_sql.='then char(substr(item_ean,5,1)+48) ';
			 $view_sql.='else char(substr(item_ean,5,1)+65) ';
			 $view_sql.='end, ';
		 $view_sql.='case ';
			 $view_sql.='when locate(left(item_ean,1),"02567")!=0 ';
			 $view_sql.='then char(substr(item_ean,6,1)+48) ';
			 $view_sql.='else char(substr(item_ean,6,1)+65) ';
			 $view_sql.='end, ';
		 $view_sql.='case ';
			 $view_sql.='when locate(left(item_ean,1),"03689")!=0 ';
			 $view_sql.='then char(substr(item_ean,7,1)+48) ';
			 $view_sql.='else char(substr(item_ean,7,1)+65) ';
			 $view_sql.='end, ';
		 $view_sql.='"-",';
		 $view_sql.='char(substr(item_ean,8,1)+97,substr(item_ean,9,1)+97,substr(item_ean,10,1)+97,substr(item_ean,11,1)+97,substr(item_ean,12,1)+97,substr(item_ean,13,1)+97),"!")';
		 $view_sql.=' as bc_ean1300, ';
	}
	//view_sqlean=''

	//		 $view_sql.='0 as saldo,0 as reser, 0 as dispo ';


			 $view_sql.='select item0.*,';
// 			 $view_sql.='item_puni*(1-item_dcto/100)*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_pvp0,';
			 $view_sql.='item_puni*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_pvp0,';
			 $view_sql.=$view_sqlean;
			 $view_sql.='lsub_descri,';
			 $view_sql.='cair_descri ';
			 $view_sql.=' from item0,lsub0,cair0';
			 $view_sql.=' where item_lsub=lsub_codigo';
			 $view_sql.=' and item_cair=cair_codigo';
			 $view_sql.=' order by lsub_descri,item_descri';
// 		exeview($view0,$view_sql,$link_vcrx);

	//
	$view0='item00'; 
	{
			$view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select item0.*,';
// 			 $view_sql.='item_puni*(1-item_dcto/100)*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_pvp0,';
			 $view_sql.='item_puni*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_pvp0,';
			 $view_sql.='item_puni*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_puniimp,';
			 $view_sql.='item_puni1*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_puniimp1,';
			 $view_sql.='item_puni2*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_puniimp2,';
			 $view_sql.='item_puni3*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_puniimp3,';
			 $view_sql.='item_puni4*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_puniimp4,';
			 $view_sql.='item_puni5*(1+item_ice/100)*(1+item_iva/100)+item_irbp as item_puniimp5,';
			 $view_sql.=$view_sqlean;
			 $view_sql.='lsub_descri,';
			 $view_sql.='mrca_descri,';
			 $view_sql.='tlla_descri,';
			 $view_sql.='clor_descri,';
			 $view_sql.='clor_tipo,';
			 $view_sql.='clor_hexa,';
			 $view_sql.='cair_descri,';
// 			 $view_sql.='cair_porc,';
			 $view_sql.='cair_bser,';
			 $view_sql.='lsub_ctavtas,';
			 $view_sql.='lsub_ctadcto,';
			 $view_sql.='lsub_ctacvta,';
			 $view_sql.='lsub_ctainve,';
			 $view_sql.='cair_ctacont ';
			 $view_sql.=' from item0';
			 $view_sql.=' left join lsub0 on item_lsub=lsub_codigo';
			 $view_sql.=' left join mrca0 on item_mrca=mrca_codigo';
			 $view_sql.=' left join tlla0 on item_tlla=tlla_codigo';
			 $view_sql.=' left join clor0 on item_clor=clor_codigo';
			 $view_sql.=' left join cair0 on item_cair=cair_codigo';
			 $view_sql.=' order by lsub_descri,item_descri';
		exeview($view0,$view_sql,$link_vcrx);
// 		echo '*/*/*/'.$view_sql;
// 		echo '*/*/*/'.msql_error($link_vcrx);
	}

	//
	$view0='ipro0';
	{
	$view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select * ';
			 $view_sql.=' from item0 ';
			 $view_sql.=' where item_codigo in ';
			 $view_sql.=' (select item from inve1,inve2 where idnum1=idnum2 and inve1.status!="X" and inve1.status!="O")';
			 $view_sql.=' order by item_codigo,item_descri';
	////xsqlstr		
	exeview($view0,$view_sql,$link_vcrx);
	}


	//
	$view0='iser0';
	{
	$view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select * ';
			 $view_sql.=' from item0 ';
			 $view_sql.=' where item_codigo not in ';
			 $view_sql.=' (select item from inve1,inve2 where idnum1=idnum2 and status!="X" and status!="O")';
			 $view_sql.=' order by item_codigo,item_descri';
	exeview($view0,$view_sql,$link_vcrx);
	}

	$view0='enti0b';
	{
			$view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select enti0.*,';
			 $view_sql.='concat(';
			 $view_sql.='enti_codigo,"/",';
			 $view_sql.='if(enti_descri is null,"",enti_descri),"/",';
			 $view_sql.='if(enti_razsoc is null,"",enti_razsoc),"/",';
			 $view_sql.='if(enti_nomcom is null,"",enti_nomcom),"/",';
			 $view_sql.='if(enti_nom1 is null,"",enti_nom1),"/",';
			 $view_sql.='if(enti_nom2 is null,"",enti_nom2),"/",';
			 $view_sql.='if(enti_ape1 is null,"",enti_ape1),"/",';
			 $view_sql.='if(enti_ape2 is null,"",enti_ape2),"/",';
			 $view_sql.='if(enti_codigoc is null,"",enti_codigoc),"/",';
			 $view_sql.='if(enti_codigop is null,"",enti_codigop),"/",';
			 $view_sql.='if(enti_codigoe is null,"",enti_codigoe),"/",';
			 $view_sql.='if(entis not null then adddate(fecha,plazo) else fecha end as vence,';
// 		$calfep.='case when plazo is not null then date_format(adddate(fecha,plazo),"%d/%b/%y") else date_format(fecha,"%d/%b/%y") end as vencedmy,';
// 		$calfep.='case when plazo is not null then datediff(curdate(),adddate(fecha,plazo)) else datediff(curdate(),fecha) end as diasv,';
	}

  $view0='flgh00';
  if($cfg_empr=='jwib')
	{
    $calfec2='';
		$calfec2.='date_format(fecha,"%Y") as fanio,';
		$calfec2.='date_format(fecha,"%m") as fmes,';
		$calfec2.='date_format(fecha,"%d") as fdia,';
		$calfec2.='upper(date_format(fecha,"%b")) as fmesn,';
		$calfec2.='upper(date_format(fecha,"%a")) as fdian,';
		$calfec2.='upper(date_format(fecha,"%b")) as fmesd,';
		$calfec2.='upper(date_format(fecha,"%a")) as fdiad,';
		$calfec2.='ceil(date_format(fecha,"%v")/4) as fprdo, ';
		$calfec2.='date_format(fecha,"%v") as fsema, ';
		$calfec2.='date_format(fecha,"%j") as fdoy, ';
// 		$calfec2.='date_format(idate,"%T") as fhora, ';

    $view_sql= 'create view '.$view0.' as ';
			 $view_sql.='select flgh0.*,';
			 $view_sql.=str_replace('fecha','flgh_fecha',$calfec2);
			 $view_sql.=' airl0.* ';
			 $view_sql.=' from flgh0';
			 $view_sql.=' left join airl0 on flgh_airl=airl_codigo';
			 $view_sql.=' order by flgh_fecha,flgh_ciudad1';
		exeview($view0,$view_sql,$link_vcrx);
// 		echo '*/*/*/'.$view_sql;
// 		echo '*/*/*/'.msql_error($link_vcrx);
	}
  
  
  
	}

function vrsetview1($tabla)
{
// 	echo '<br>'.$tabla;
	include('../_cfg/config.php');
	$ctasuper=r_fiel('empr',$cfg_empr,'ctasuper');
// 	$ctasuper=0;
	$userdes='';
	{
		$userdes.='user_descri,';
		$userdes.='user0.user_tipo,';
		$userdes.='user0.user_email,';
		$userdes.='user0.user_nickname,';
		$userdes.='user0.user_wsapp,';
	}	
	
	$docudes='';
	{
		$docudes.='docu_descri,';
		$docudes.='docu0.docu_tabla,';
		$docudes.='docu0.docu_tico,';
// 		$docudes.='docu_suco,';
		$docudes.='docu0.docu_ctadeb,';
		$docudes.='docu0.docu_ctacre,';
		$docudes.='docu0.docu_ctadcto,';
		$docudes.='docu0.docu_ctaice,';
		$docudes.='docu0.docu_ctaiva,';
		$docudes.='docu0.docu_ctairbp,';
		$docudes.='docu0.docu_ctaprop,';

 		$docudes.='docu0.docu_fpag,';
	}	

	$documdes='';
	{
//     $documdes=str_replace('docu_','docum_')
	}	
	
  
  

  
	$entides='';
	{
		$entides.='enti_descri,';
		$entides.='enti_pasaporte,';
		$entides.='enti_idexterior,';
		$entides.='enti_razsoc,';
		$entides.='enti_nomcom,';
		$entides.='enti_matriz,';
		$entides.='enti_parroq,';
		$entides.='enti_direccion,';
		$entides.='enti_provincia,';
		$entides.='enti_ciudad,';
		$entides.='enti_nom1,';
		$entides.='enti_nom2,';
		$entides.='enti_ape1,';
		$entides.='enti_ape2,';
		$entides.='enti_pais,';
		$entides.='enti_cdad,';
		$entides.='enti_adrs,';
		$entides.='enti_email,';
		$entides.='enti_emailce,';
		$entides.='enti_wsapp,';
		$entides.='enti_wsappce,';
		$entides.='enti_ctaxcob,';
		$entides.='enti_ctaxpag,';
		$entides.='enti_zsub,';
		$entides.='enti_csub,';
		$entides.='enti_tpro,';
// 		$entides.='zsub_descri,';
// 		$entides.='tpro_descri,';
		$entides.='enti_coesp,';
		$entides.='enti_coesn,';
		$entides.='enti_obcon,';
		$entides.='enti_rise,';
		$entides.='enti_rime,';
		$entides.='enti_agret,';
		$entides.='enti_agren,';
		$entides.='enti_tipoid,';
		$entides.='enti_tiporuc,';
		$entides.='enti_struc,';
		$entides.='enti_dnrdp,';
		$entides.='enti_referidox,';
// 		$entides.='enti_pdf,';
// 		$entides.='pais_ats,';
	}

	$nvdddes='';
	{
		$nvdddes.='nvdd_tipo,';
		$nvdddes.='nvdd_descri,';
		$nvdddes.='nvdd_posi,';
		$nvdddes.='nvdd_abrev,';
  }
  
	$asubdes='';
	{
		$asubdes.='asub_tipo,';
		$asubdes.='asub_descri,';
		$asubdes.='asub_lsub,';
// 		$asubdes.='asub_posi,';
// 		$asubdes.='asub_abrev,';
  }
  
	$itemdes='';
	{
		$itemdes.='item_lsub,';
		$itemdes.='item_descri,';
		$itemdes.='item_descri2,';
		$itemdes.='item_puni,';
		$itemdes.='item_ice,';
		$itemdes.='item_iva,';
		$itemdes.='item_irbp,';
		$itemdes.='item_prop,';
		$itemdes.='item_ssid,';
		$itemdes.='(item_puni*(1+item_ice/100))*(1+item_iva/100) as item_pvp,';
		$itemdes.='(item_puni*(1+item_ice/100))*(1+item_iva/100)*cant as valpvp,';
		$itemdes.='item_duni,';
		$itemdes.='item_dcos,';
		$itemdes.='item_dpre,';
		$itemdes.='item_dval,';
		$itemdes.='item_umdd,';
		$itemdes.='item_mrca,';
		$itemdes.='item_clor,';
		$itemdes.='item_tlla,';
		$itemdes.='item_mdlo,';
		$itemdes.='item_rfer,';
		$itemdes.='item_modelo,';
		$itemdes.='item_ean,';
		$itemdes.='item_cair,';
		$itemdes.='item_bser,';
		$itemdes.='item_codigov,';
		$itemdes.='item_codigoc,';
		$itemdes.='item_codigop,';
// 		$itemdes.='item_provee,';
		$itemdes.='item_ubik,';
		$itemdes.='item_nctlg,';
		$itemdes.='item_pctlg,';
		$itemdes.='item_hoja,';
		$itemdes.='item_carr,';
		$itemdes.='item_raiz,';
		$itemdes.='item_ctavtas,';
		$itemdes.='item_ctadcto,';
		$itemdes.='item_ctacvta,';
		$itemdes.='item_ctainve,';
	}	
			
	$ctasdes='';
	{
		$ctasdes.='ctas00.ctas_descri,';
		$ctasdes.='ctas00.ctas_cair,';
		$ctasdes.='ctas00.ctas_nivel,';
		$ctasdes.='ctas00.ctas_sri101,';
	}	
			
	$paisdes='';
	{
		$paisdes.='pais_descri,';
		$paisdes.='pais_ats,';
	}	
			
	$bodedes='';
	{
		$bodedes.='bode_descri,';
	}	
			
	$clordes='';
	{
		$clordes.='clor_descri,';
	}	
			
	$tllades='';
	{
		$tllades.='tlla_descri,';
	}	
			
	
	$calfec='';	
	{
		if(mb_stristr('noxmi.susa',$tabla))
      {
		$calfec.='case when fecha2 is not null then date_format(fecha2,"%d/%b/%y") end as fechadmy,';
		$calfec.='case when fecha2 is not null then date_format(fecha2,"%Y-%m-%d") end as fechaymd,';
      }else{
		$calfec.='case when fecha is not null then date_format(fecha,"%d/%b/%y") end as fechadmy,';
		$calfec.='case when fecha is not null then date_format(fecha,"%Y-%m-%d") end as fechaymd,';
      }
		if(mb_stristr('vtas.comp.clie.prov.prod.dxco.dxpa',$tabla))
		{
      $calfec.='case when plazo is null or plazo=0 then 0 else 1 end as pagocredi,';
      $calfec.='case when plazo is not null then adddate(fecha,plazo) else fecha end as vence,';
      $calfec.='case when plazo is not null then date_format(adddate(fecha,plazo),"%d/%b/%y") else date_format(fecha,"%d/%b/%y") end as vencedmy,';
      $calfec.='case when plazo is not null then date_format(adddate(fecha,plazo),"%a") else date_format(fecha,"%a") end as vencedian,';
      $calfec.='case when plazo is not null then datediff(curdate(),adddate(fecha,plazo)) else datediff(curdate(),fecha) end as diasv,';
		}
		$calfec.='date_format(fecha,"%Y") as fanio,';
		$calfec.='date_format(fecha,"%m") as fmes,';
		$calfec.='date_format(fecha,"%d") as fdia,';
		$calfec.='upper(date_format(fecha,"%b")) as fmesn,';
		$calfec.='upper(date_format(fecha,"%a")) as fdian,';
		$calfec.='upper(date_format(fecha,"%b")) as fmesd,';
		$calfec.='upper(date_format(fecha,"%a")) as fdiad,';
		$calfec.='ceil(date_format(fecha,"%v")/4) as fprdo, ';
		$calfec.='date_format(fecha,"%v") as fsema, ';
		$calfec.='date_format(fecha,"%j") as fdoy, ';
		$calfec.='date_format(idate,"%T") as fhora, ';
	}

	$statce='';
	{
		if(mb_stristr('vtas.retp.guia',$tabla))
		{
		$statce.='case when substring(claveacc,24,1)="1" or claveacc="" or claveacc is null then "F" ';
		$statce.='else case when substring(claveacc,24,1)="2" then "E"';
		$statce.='else "-" end end ';
		$statce.=' as tipoemi,';
			
		$statce.='case when autornum!="" and autornum is not null then "AUT" ';
		$statce.='else case when recepfec!="" and recepfec is not null then "SRI" ';
		$statce.='else case when firmado!="" and firmado is not null then "FIR" ';
		$statce.='else case when claveacc!="" and claveacc is not null then "XML" ';
		$statce.='else "---" end end end end ';
		$statce.=' as statce,';
			
		$statce.='case when (autornum="" or autornum is null) and (recepmsj!="" and recepmsj is not null) then recepmsj ';
		$statce.='else case when (autormsj!="" and autormsj is not null) then autormsj ';
		$statce.='else case when firmado="" or firmado is null then "SIN FIRMAR" ';
		$statce.='else case when claveacc="" or claveacc is null then "NO XML" ';
		$statce.='else "---" end end end end';
		$statce.=' as statcemsj,';
			
		}
	}
	
	$ptonumero1='';
	{
		$ptonumero1.='concat(ptoe,"-",numero) as ptonumero,';
		if(mb_stristr('caba.caja.bcos.dxco.dxpa.rete.retc.retp.retb',$tabla))
		{$ptonumero1.='concat(ptoem,"-",numer) as ptonumer,';}
	}
	
	$sumcant1 = '';
	{
		if(mb_stristr('acce',$tabla))
		{$sumcant1.='round(sum(case when status="X" or status="O" then 0 else (cant) end),xrnd) as tcant, ';}

		if(mb_stristr('cont',$tabla))
		{$sumcant1.='round(sum(case when status="X" or status="O" then 0 else (cant) end),xrnd) as tcant, ';}

		if(mb_stristr('inve.tfin.prod',$tabla))
		{$sumcant1.='round(sum(case when status="X" or status="O" then 0 when left(docu,1)="I" then cant else cant*(-1) end),xrnd) as tcant, ';}

		if(mb_stristr('vtas.comp.clie.prov.carr.clte.guia',$tabla))
		{$sumcant1.='round(sum(case when status="X" or status="O" then 0 else abs(cant) end),xrnd) as tcant, ';}
		
		if(mb_stristr('comi',$tabla))
		{$sumcant1.='round(sum(case when status="X" or status="O" then 0 else abs(cant) end),xrnd) as tcant, ';}
		
		if(mb_stristr('caja.caba',$tabla))
		{
			$sumcant1.='round(sum(case ';
			$sumcant1.='when status="X" or status="O" then 0 ';
			$sumcant1.='when docu like "I%" or docu like "CC%" then abs(cant) ';
			$sumcant1.='else abs(cant)*-1 end),xrnd) as tcant, ';
		}
	
		if(mb_stristr('bcos',$tabla))
		{
			$sumcant1.='round(sum(case ';
			$sumcant1.='when status="X" or status="O" then 0 ';
			$sumcant1.='when left(docu,2) in ("DB","DC","DX","DK","CA") then abs(cant) ';
			$sumcant1.='when docu in ("EV11","IV10") then abs(cant) ';
// 			$sumcant1.='when docu like "DC%" or docu like "DB%" or docu like "DK%" or docu like "DX%" or docu like "CA%" then abs(cant)';
			$sumcant1.='else abs(cant)*-1 end),xrnd) as tcant, ';
		}

		if(mb_stristr('dxco',$tabla))
		{
			$sumcant1.='round(sum(case ';
			$sumcant1.='when status="X" or status="O" then 0 ';
			$sumcant1.='when left(docu,2) in ("XC","AC") then abs(cant) ';
			$sumcant1.='else abs(cant)*-1 end),xrnd) as tcant, ';
		}
	
		if(mb_stristr('dxpa',$tabla))
		{
			$sumcant1.='round(sum(case ';
			$sumcant1.='when status="X" or status="O" then 0 ';
			$sumcant1.='when left(docu,2) in ("XP","AP") then abs(cant) ';
			$sumcant1.='else abs(cant)*-1 end),xrnd) as tcant, ';
		}
	
		if(mb_stristr('retc.retp.rete.retb',$tabla))
		{$sumcant1.='round(sum(case when status="X" or status="O" or (cant*puni)is null then 0 else abs(cant*puni/100) end),xrnd) as tcant, ';}
		
		if(mb_stristr('cont',$tabla))
		{
         $sumcant1.='round(sum(case when status="X" or status="O" then 0 when cant>0 then abs(cant) else 0 end),xrnd) as tdebito, ';
         $sumcant1.='round(sum(case when status="X" or status="O" then 0 when cant<0 then abs(cant) else 0 end),xrnd) as tcredito, ';

         $sumcant1.='round(sum(case when status="X" or status="O" then 0 else abs(cant) end),xrnd) as total, ';
         $sumcant1.='round(sum(case when status="X" or status="O" then 0 else cant end),xrnd) as diferencia, ';
		}

		if(mb_stristr('inve.tfin.prod',$tabla))
		{
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when cant>0 and left(docu,1)="I" then abs(cant) else 0 end),xrnd) as tingreso, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when cant>0 and left(docu,1)="E" then abs(cant) else 0 end),xrnd) as tegreso, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when cant>0 and left(docu,1)="I" then abs(cant*puni) else 0 end),xrnd) as tdebito, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when cant>0 and left(docu,1)="E" then abs(cant*puni) else 0 end),xrnd) as tcredito, ';
			$sumcant1.='case when left(docu,1)="I" then 1 else -1 end as signo, ';
		}

       
    
		if(mb_stristr('susa.rolp.nvdd.nomi.empl',$tabla))
		{
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 else abs(cant) end),xrnd) as tcant, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_tipo like "1%" then abs(cant*puni) else 0 end),xrnd) as tingreso, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_tipo like "2%" then abs(cant*puni)*-1 else 0 end),xrnd) as tegreso, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_tipo like "1%" then abs(cant*puni) else 0 end),xrnd) as tdebito, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_tipo like "2%" then abs(cant*puni)*-1 else 0 end),xrnd) as tcredito, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_tipo like "3%" or nvdd_tipo like "4%" then abs(cant*puni) else 0 end),xrnd) as tprovis, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_tipo like "3%" then abs(cant*puni) else 0 end),xrnd) as tprovi1, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_tipo like "4%" then abs(cant*puni) else 0 end),xrnd) as tprovi2, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_descri like "FALTA%" then abs(cant) else 0 end),xrnd) as tfalta, ';
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when nvdd_descri like "ATRASO%" then abs(cant) else 0 end),xrnd) as tatraso, ';
// 			$sumcant1.='round(sum(case when status="X" or status="O" then 0 when cant>0 and left(docu,1)="E" then abs(cant) else 0 end),xrnd) as tegreso, ';
			$sumcant1.='case when nvdd_tipo like "1%" then 1 when nvdd_tipo like "2%" then -1 else 0 end as signo, ';
		}

    
		if(mb_stristr('plan.atvd',$tabla))
		{
			$sumcant1.='round(sum(case when status="X" or status="O" then 0 else abs(cant) end),xrnd) as tcant, ';
		}
    
        
    
// 		$sumcant1=str_replace('xrnd','4',$sumcant1);
		$sumcant1=str_replace('xrnd','6',$sumcant1);
		$sumcant2=str_replace('sum(','(',$sumcant1);

		$sumcant1.='max(detalle) as mdetalle,';
	}

	$sumbser1 = '';
	{
    $listserv='"SERV","HORA","DIAS"';
    
    $cairhono='"303"';
    $cairbien='"312"';
    $cairserv='"303","304","307","308","309","310"';
    $cairtran='"310"';
    
		$sumbser1.='round(sum(case ';
		$sumbser1.='when status="X" or status="O" then 0 ';
// 		$sumbser1.='when item_bser=1 then abs(cant) ';
		$sumbser1.='when item_cair in('.$cairbien.') or item_umdd not in('.$listserv.') then abs(cant) ';
		$sumbser1.='else 0 end)';
		$sumbser1.=',xrnd) as tbien, ';

		$sumbser1.='round(sum(case ';
		$sumbser1.='when status="X" or status="O" then 0 ';
		$sumbser1.='when item_cair in('.$cairserv.') or item_umdd in('.$listserv.') then abs(cant) ';
		$sumbser1.='else 0 end)';
		$sumbser1.=',xrnd) as tserv, ';

		$sumbser1.='round(sum(case ';
		$sumbser1.='when status="X" or status="O" then 0 ';
		$sumbser1.='when item_cair in('.$cairtran.') or item_umdd in('.$listserv.') then abs(cant) ';
		$sumbser1.='else 0 end)';
		$sumbser1.=',xrnd) as ttran, ';

		$sumbser1.='round(sum(case ';
		$sumbser1.='when status="X" or status="O" then 0 ';
		$sumbser1.='when item_cair in('.$cairhono.') or item_umdd in('.$listserv.') then abs(cant) ';
		$sumbser1.='else 0 end)';
		$sumbser1.=',xrnd) as thono, ';

// 		$sumbser1=str_replace('xrnd','4',$sumbser1);
		$sumbser1=str_replace('xrnd','6',$sumbser1);
		$sumbser2=str_replace('sum(','(',$sumbser1);
	}

	$porcent1 = '';
	{
		$porcent1.='count(iddet) as cdeta,';
		$porcent1.='max(iddet) as mdeta,';
		$porcent1.='max(dcto) as pdcto,';
		$porcent1.='max(ice) as pice,';
		$porcent1.='max(iva) as piva,';
		$porcent1.='max(irbp) as pirbp,';
		$porcent1.='max(prop) as pprop,';
		$porcent1.='max(ssid) as pssid,';
	}
	
	$sumsubt1 = '';
	{
		$sumsubt1.='round(sum(case ';
		$sumsubt1.='when status="X" or status="O" then 0 ';
		
		if(mb_stristr('acce',$tabla))
		{$sumsubt1.='when docu!="" then abs(cant*puni) ';}

		if(mb_stristr('comi',$tabla))
		{$sumsubt1.='when docu!="" then abs(cant*puni) ';}

		if(mb_stristr('plan.atvd',$tabla))
		{$sumsubt1.='when docu!="" then abs(cant*puni) ';}

		if(mb_stristr('cont',$tabla))
		{$sumsubt1.='when docu!="" then abs(cant*puni) ';}

		if(mb_stristr('vtas.comp.inve.tfin.clie.prov.clte.carr',$tabla))
		{$sumsubt1.='when left(docu,2) in ("FC","FP","IB","PF","PC","PP","CA","LC","IF") then abs(cant*puni) ';}
		
		if(mb_stristr('guia',$tabla))
		{$sumsubt1.='when docu like "GR%" then abs(cant) ';}

		if(mb_stristr('caba',$tabla))
		{$sumsubt1.='when left(docu,2) in ("DB","DC","DX","DK","CA") then abs(cant*puni) ';}
		
		if(mb_stristr('caja',$tabla))
		{
      $sumsubt1.='when docu like "I%" then abs(cant*puni) ';
      $sumsubt1.='when docu in ("IV10","EV11") then abs(cant*puni) ';
    }
		
		if(mb_stristr('bcos',$tabla))
		{
      $sumsubt1.='when left(docu,2) in ("DB","DC","DX","DK","CA") then abs(cant*puni) ';
      $sumsubt1.='when docu in ("IV10","EV11") then abs(cant*puni) ';
    }
		
		if(mb_stristr('retc.retp.rete.retb',$tabla))
		{$sumsubt1.='when status!="X" and status!="O" and (cant*puni) is not null then abs(cant*puni/100)*-1 ';}
		
		if(mb_stristr('rolp.nvdd.nomi.empl',$tabla))
		{
			$sumsubt1.='when nvdd_tipo like "1" then abs(cant*puni) ';
			$sumsubt1.='when nvdd_tipo like "2" then abs(cant*puni) ';
			$sumsubt1.='when nvdd_tipo like "3" then abs(cant*puni) ';
			$sumsubt1.='when nvdd_tipo like "4" then abs(cant*puni) ';
		}
		
		if(mb_stristr('susa',$tabla))
		{
			$sumsubt1.='when docu like "S%" then sueldo ';
		}
		
		$sumsubt1.='else abs(cant*puni)*-1 end)';
		$sumsubt1.=',xrnd) as tsubt, ';

// 		$sumsubt1=str_replace('xrnd','4',$sumsubt1);
		$sumsubt1=str_replace('xrnd','6',$sumsubt1);
		$sumsubt2=str_replace('sum(','(',$sumsubt1);
	}
	
	$sumdcto1 = '';
	{
		$sumdcto1.='round(sum(case ';
		$sumdcto1.='when status="X" or status="O" then 0 ';
		$sumdcto1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*puni*dcto/100) ';
		$sumdcto1.='else abs(cant*puni*dcto/100)*-1 end)';
		$sumdcto1.=',xrnd) as tdcto, ';

// 		$sumdcto1=str_replace('xrnd','4',$sumdcto1);
		$sumdcto1=str_replace('xrnd','6',$sumdcto1);
		$sumdcto2=str_replace('sum(','(',$sumdcto1);
	}

	$sumprop1 = '';
	{
		$sumprop1.='round(sum(case ';
		$sumprop1.='when status="X" or status="O" then 0 ';
		$sumprop1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*puni*(1-dcto/100)*prop/100) ';
		$sumprop1.='else abs(cant*puni*(1-dcto/100)*prop/100)*-1 end)';
		$sumprop1.=',xrnd) as tprop, ';

// 		$sumprop1=str_replace('xrnd','4',$sumprop1);
		$sumprop1=str_replace('xrnd','6',$sumprop1);
		$sumprop2=str_replace('sum(','(',$sumprop1);
	}

	$sumssid1 = '';
	{
		$sumssid1.='round(sum(case ';
		$sumssid1.='when status="X" or status="O" then 0 ';
		$sumssid1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*ssid) ';
		$sumssid1.='else abs(cant*ssid)*-1 end)';
		$sumssid1.=',xrnd) as tssid, ';

// 		$sumprop1=str_replace('xrnd','4',$sumprop1);
		$sumssid1=str_replace('xrnd','6',$sumssid1);
		$sumssid2=str_replace('sum(','(',$sumssid2);
	}

	$sumpcp1 = '';
	{
		if(mb_stristr('vtas.clie',$tabla))
		{
		$sumpcp1.='round(sum(case ';
		$sumpcp1.='when status="X" or status="O" then 0 ';
		$sumpcp1.='when left(docu,2) in ("FC","PF","PC") then abs(cant*pcp1) ';
		$sumpcp1.='else abs(cant*pcp1)*-1 end)';
		$sumpcp1.=',xrnd) as tpcp1, ';

// 		$sumpcp1=str_replace('xrnd','4',$sumpcp1);
		$sumpcp1=str_replace('xrnd','6',$sumpcp1);
		$sumpcp2=str_replace('sum(','(',$sumpcp1);
		}
	}

	$sumcantumdd1 = '';
	{
		if(mb_stristr('comp.prov',$tabla))
		{
		$sumcantumdd1.='round(sum(case ';
		$sumcantumdd1.='when status="X" or status="O" then 0 ';
// 		$sumcantumdd1.='when left(docu,2) in ("FC","PF","PC") then abs(cant*pcp1) ';
		$sumcantumdd1.='else abs(cant*uxpre*facon) end)';
		$sumcantumdd1.=',xrnd) as cantumdd, ';

// 		$sumpcp1=str_replace('xrnd','4',$sumpcp1);
		$sumcantumdd1=str_replace('xrnd','6',$sumcantumdd1);
		$sumcantumdd2=str_replace('sum(','(',$sumcantumdd1);
		}
	}

	$sumice1 = '';
	{
		$sumice1.='round(sum(case ';
		$sumice1.='when status="X" or status="O" then 0 ';
		$sumice1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*puni)*if(ice>0,1,0) ';
		$sumice1.='else abs(cant*puni)*if(ice>0,1,0)*-1 end)';
		$sumice1.=',xrnd) as tsubtice, ';

		$sumice1=str_replace('xrnd','6',$sumice1);
		$sumice2=str_replace('sum(','(',$sumice1);
	}
	
	$sumtice1 = '';
	{
		$sumtice1.='round(sum(case ';
		$sumtice1.='when status="X" or status="O" then 0 ';
		$sumtice1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*puni)*(ice/100) ';
		$sumtice1.='else abs(cant*puni)*(ice/100)*-1 end)';
		$sumtice1.=',xrnd) as tice, ';

		$sumtice1=str_replace('xrnd','6',$sumtice1);
		$sumtice2=str_replace('sum(','(',$sumtice1);
	}
  
	$sumiva01 = '';
	{
		$sumiva01.='round(sum(case ';
		$sumiva01.='when status="X" or status="O" then 0 ';
// 		$sumiva01.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*puni)*(1-dcto/100)*(1+ice/100)*if(iva=0,1,0) ';
//     $sumiva01.='else abs(cant*puni)*(1-dcto/100)*(1+ice/100)*if(iva=0,1,0)*-1 end)';
//  		$sumiva01.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA") then abs(cant*puni)*(1-dcto/100)*(1+prop/100)*(1+ice/100)*if(iva=0,1,0) ';
//     $sumiva01.='else abs(cant*puni)*(1-dcto/100)*(1+prop/100)*(1+ice/100)*if(iva=0,1,0)*-1 end)';
		$sumiva01.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then ((abs(cant*puni)*(1-dcto/100))+(abs(cant*puni)*(ice/100)))*if(iva=0,1,0) ';
    $sumiva01.='else ((abs(cant*puni)*(1-dcto/100))+(abs(cant*puni)*(ice/100)))*if(iva=0,1,0)*-1 end)';
		$sumiva01.=',xrnd) as tsubtiva0, ';

// 		$sumiva01=str_replace('xrnd','4',$sumiva01);
		$sumiva01=str_replace('xrnd','6',$sumiva01);
		$sumiva02=str_replace('sum(','(',$sumiva01);
	}
	
	$sumiva1 = '';
	{
		$sumiva1.='round(sum(case ';
		$sumiva1.='when status="X" or status="O" then 0 ';
// 		$sumiva1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*puni)*(1-dcto/100)*(1+ice/100)*if(iva>0,1,0) ';
// 		$sumiva1.='else abs(cant*puni)*(1-dcto/100)*(1+ice/100)*if(iva>0,1,0)*-1 end)';
		$sumiva1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then ((abs(cant*puni)*(1-dcto/100)) +(abs(cant*puni)*(ice/100))) *if(iva>0,1,0) ';
                                                              $sumiva1.='else ((abs(cant*puni)*(1-dcto/100)) +(abs(cant*puni)*(ice/100))) *if(iva>0,1,0)*-1 end)';
		$sumiva1.=',xrnd) as tsubtiva, ';

// 		$sumiva1=str_replace('xrnd','4',$sumiva1);
		$sumiva1=str_replace('xrnd','6',$sumiva1);
		$sumiva2=str_replace('sum(','(',$sumiva1);
	}
	
	$sumtiva1 = '';
	{
		$sumtiva1.='round(sum(case ';
		$sumtiva1.='when status="X" or status="O" then 0 ';
// 		$sumtiva1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC","OP") then abs(cant*puni)*(1-dcto/100)*(1+ice/100)*(ifnull(iva,0)/100) ';
// 		$sumtiva1.='else abs(cant*puni)*(1-dcto/100)*(1+ice/100)*(ifnull(iva,0)/100)*-1 end)';
		$sumtiva1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(ifnull(iva,0)/100)  ';
                                                             $sumtiva1.='else ((abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(ifnull(iva,0)/100))*-1 end)';

    
		$sumtiva1.=',xrnd) as tiva, ';

// 		$sumtiva1=str_replace('xrnd','4',$sumtiva1);
		$sumtiva1=str_replace('xrnd','6',$sumtiva1);
		$sumtiva2=str_replace('sum(','(',$sumtiva1);
	}
	
	$sumirbp1 = '';
	{
		$sumirbp1.='round(sum(case ';
		$sumirbp1.='when status="X" or status="O" then 0 ';

		$sumirbp1.='when left(docu,2) in ("FC","FP","IB","PF","PC","PP","CA","LC") then abs(cant)*if(irbp>0,1,0) ';
		$sumirbp1.='else abs(cant)*if(irbp>0,1,0)*-1 end)';
		$sumirbp1.=',xrnd) as tsubtirbp, ';

// 		$sumirbp1=str_replace('xrnd','4',$sumirbp1);
		$sumirbp1=str_replace('xrnd','6',$sumirbp1);
		$sumirbp2=str_replace('sum(','(',$sumirbp1);
	}
	
	$sumtirbp1 = '';
	{
		$sumtirbp1.='round(sum(case ';
		$sumtirbp1.='when status="X" or status="O" then 0 ';

		$sumtirbp1.='when left(docu,2) in ("FC","FP","IB","PF","PC","PP","CA","LC") then abs(cant*irbp) ';
		$sumtirbp1.='else abs(cant*irbp)*-1 end)';
		$sumtirbp1.=',xrnd) as tirbp, ';

// 		$sumtirbp1=str_replace('xrnd','4',$sumtirbp1);
		$sumtirbp1=str_replace('xrnd','6',$sumtirbp1);
		$sumtirbp2=str_replace('sum(','(',$sumtirbp1);
	}
	
  
	$sumpvp1 = '';
	{
		$sumpvp1.='round(sum(case ';
		$sumpvp1.='when status="X" or status="O" then 0 ';

		if(mb_stristr('vtas.clie.carr.comp.prov',$tabla))
		{
      $sumpvp1.='when left(docu,2) in ("FC","PF","PC") ';
		  $sumpvp1.=' then puni*(1+ice/100)*(1+ifnull(iva,0)/100)+irbp ';
    }
		
		$sumpvp1.='else abs(0)*-1 end)';
		$sumpvp1.=',xrnd) as pvp, ';

		$sumpvp1=str_replace('xrnd','6',$sumpvp1);
		$sumpvp2=str_replace('sum(','(',$sumpvp1);
	}
	
  
  
	$sumtotal1 = '';
	{
		$sumtotal1.='round(sum(case ';
		$sumtotal1.='when status="X" or status="O" then 0 ';

		if(mb_stristr('acce',$tabla))
    {
	  	$sumtotal1.='else 0 end)';
    }
	
		if(mb_stristr('cont',$tabla))
		{
      $sumtotal1.='when cant>0 then abs(cant) else 0 end),xrnd) as total, ';
      }
	
		if(mb_stristr('vtas.comp.clie.clte.prov.carr',$tabla))
		{
//       $sumtotal1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then abs(cant*puni)*(1-dcto/100)*(1+ice/100)*(1+ifnull(iva,0)/100)+(cant*irbp)+(abs(cant*puni*(1-dcto/100))*prop/100) ';
//       $sumtotal1.='else (abs(cant*puni)*(1-dcto/100)*(1+ice/100)*(1+ifnull(iva,0)/100)+(cant*irbp)+(abs(cant*puni*(1-dcto/100))*prop/100))*-1 end)';
      $sumtotal1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100) ';
                                                               $sumtotal1.='else ((abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100))*-1 end)';
		}
	
		if(mb_stristr('guia',$tabla))
		{
      $sumtotal1.='when left(docu,2) in ("GR") then abs(cant) ';
      $sumtotal1.='else abs(cant*puni)*-1 end)';
		}
	
		if(mb_stristr('inve.prod',$tabla))
		{
      $sumtotal1.='when left(docu,2) in ("IB") then abs(cant*puni) ';
      $sumtotal1.='else abs(cant*puni)*-1 end)';
		}
	
		if(mb_stristr('tfin',$tabla))
		{
      $sumtotal1.='when left(docu,2) in ("IF") then abs(cant*puni) ';
      $sumtotal1.='else abs(cant*puni)*-1 end)';
		}
	
	
		if(mb_stristr('plan.atvd',$tabla))
		{
      $sumtotal1.='when 1=1 then abs(cant*puni) ';
//       $sumtotal1.='when nvdd_tipo like "2%" then abs(cant*puni)*-1 ';
      $sumtotal1.='else 0 end)';
		}
	
		if(mb_stristr('caba',$tabla))
		{
      $sumtotal1.='when left(docu,1) in ("I") or left(docu,2) in ("DB","DC","DX","DK","CA")  then abs(cant) ';
      $sumtotal1.='else abs(cant)*-1 end)';
		}
	
		if(mb_stristr('.comi',$tabla))
		{
      $sumtotal1.='when docu!="" then abs(cant*puni) ';
      $sumtotal1.='else 0 end)';
		}
	
		if(mb_stristr('caja.',$tabla))
		{
      $sumtotal1.='when left(docu,1) in ("I") then abs(cant) ';
      $sumtotal1.='when docu in ("IV10","EV11") then abs(cant) ';
      $sumtotal1.='else abs(cant)*-1 end)';
		}
	
		if(mb_stristr('bcos',$tabla))
		{
      $sumtotal1.='when left(docu,2) in ("DB","DC","DX","DK","CA") then abs(cant) ';
      $sumtotal1.='when docu in ("IV10","EV11") then abs(cant) ';
      $sumtotal1.='else abs(cant)*-1 end)';
		}

		if(mb_stristr('dxco',$tabla))
		{
      $sumtotal1.='when left(docu,2) in ("XC","SC","AC") then abs(cant*puni) ';
      $sumtotal1.='else abs(cant*puni)*-1 end)';
		}
	
		if(mb_stristr('dxpa',$tabla))
		{
      $sumtotal1.='when left(docu,2) in ("XP","SP","AP") then abs(cant*puni) ';
      $sumtotal1.='else abs(cant*puni)*-1 end)';
		}
	
		
		if(mb_stristr('rete.retc.retp.retb',$tabla))
		{
      $sumtotal1.='when status="X" or status="O" or (cant*puni) is null then 0 ';
      $sumtotal1.='else abs(cant*puni/100)*-1 end)';
		}

      
      
      
		if(mb_stristr('rolp.nomi.empl',$tabla))
		{
         $sumtotal1.='when status="X" or status="O" or (cant*puni) is null then 0 ';
         $sumtotal1.='when nvdd_tipo like "1%" then abs(cant*puni) ';
         $sumtotal1.='when nvdd_tipo like "2%" then abs(cant*puni) ';
         $sumtotal1.='when nvdd_tipo like "3%" then abs(cant*puni) ';
         $sumtotal1.='when nvdd_tipo like "4%" then abs(cant*puni) ';
         $sumtotal1.='else 0 end)';
		}
      
      
		if(mb_stristr('susa',$tabla))
		{
         $sumtotal1.='when status="X" or status="O" or (cant*puni) is null then 0 ';
         $sumtotal1.='else sueldo+alimentacion+movilizacion+comision end)';
		}
      
      
      
// 		$sumtotal1.='else abs(cant*puni)*-1 end)';
		$sumtotal1.=',xrnd) as total, ';
 
// 		$sumtotal1=str_replace('xrnd','4',$sumtotal1);
		$sumtotal1=str_replace('xrnd','6',$sumtotal1);
		$sumtotal2=str_replace('sum(','(',$sumtotal1);
	}

	$sumiegr='';
	{
		$sumiegr1.='round(sum(case ';
		$sumiegr1.='when status="X" or status="O" then 0 ';
		$sumiegr1.='when docu like "RC%" then cant*puni/100 ';
		$sumiegr1.='when docu in("IV10","EV11") then cant ';
		$sumiegr1.='when docu in("IV11","EV10") then 0 ';
		$sumiegr1.='when left(docu,2) in("IE","IC","AC", "DC","DB","DX","DK","CA") then cant ';
		$sumiegr1.='else 0 end)';
		$sumiegr1.=',xrnd) as tingreso, ';

		$sumiegr1.='round(sum(case ';
		$sumiegr1.='when status="X" or status="O" then 0 ';
		$sumiegr1.='when docu like "RC%" then cant*puni/100 ';
		$sumiegr1.='when docu in("IV10","EV11") then cant ';
		$sumiegr1.='when docu in("IV11","EV10") then 0 ';
		$sumiegr1.='when left(docu,2) in("IE","IC","AC", "DC","DB","DX","DK","CA") then cant ';
		$sumiegr1.='else 0 end)';
		$sumiegr1.=',xrnd) as tdebito, ';

		$sumiegr1.='round(sum(case ';
		$sumiegr1.='when status="X" or status="O" then 0 ';
		$sumiegr1.='when docu like "RP%" then cant*puni/100 ';
		$sumiegr1.='when docu in("IV11","EV10") then cant ';
		$sumiegr1.='when docu in("IV10","EV11") then 0 ';
		$sumiegr1.='when left(docu,2) not in("IE","IC","AC", "DC","DB","DX","DK","CA","RC") then cant ';
		$sumiegr1.='else 0 end)';
		$sumiegr1.=',xrnd) as tegreso, ';

		$sumiegr1.='round(sum(case ';
		$sumiegr1.='when status="X" or status="O" then 0 ';
		$sumiegr1.='when docu like "RP%" then cant*puni/100 ';
		$sumiegr1.='when docu in("IV11","EV10") then cant ';
		$sumiegr1.='when docu in("IV10","EV11") then 0 ';
		$sumiegr1.='when left(docu,2) not in("IE","IC","AC", "DC","DB","DX","DK","CA","RC") then cant ';
		$sumiegr1.='else 0 end)';
		$sumiegr1.=',xrnd) as tcredito, ';

		
// 		$sumiegr1=str_replace('xrnd','4',$sumiegr1);
		$sumiegr1=str_replace('xrnd','6',$sumiegr1);
		$sumiegr2=str_replace('sum(','(',$sumiegr1);
	}
	

	$sumrete1='';
	{
    $sumrete1.='case when cair>="300" then cair else concat("IVA_",lpad(round(puni,0),3,"0")) end as ccair,';
    
		$sumrete1.='round(sum(case ';
		$sumrete1.='when status="X" or status="O" then 0 ';
		$sumrete1.='else abs(cant) end)';
		$sumrete1.=',xrnd) as valbase, ';

		$sumrete1.='round(sum(case ';
		$sumrete1.='when status="X" or status="O" then 0 ';
		$sumrete1.='when cair>="300" then cant ';
		$sumrete1.='else 0 end)';
		$sumrete1.=',xrnd) as brta, ';

		$sumrete1.='round(sum(case ';
		$sumrete1.='when status="X" or status="O" then 0 ';
		$sumrete1.='when cair>="300" then puni ';
		$sumrete1.='else 0 end)';
		$sumrete1.=',xrnd) as prta, ';

		$sumrete1.='round(sum(case ';
		$sumrete1.='when status="X" or status="O" then 0 ';
		$sumrete1.='when cair>="300" then cant*puni/100 ';
		$sumrete1.='else 0 end)';
		$sumrete1.=',xrnd) as rrta, ';

		$sumrete1.='round(sum(case ';
		$sumrete1.='when status="X" or status="O" then 0 ';
		$sumrete1.='when cair>="300" then 0 ';
		$sumrete1.='else cant end)';
		$sumrete1.=',xrnd) as biva, ';

		$sumrete1.='round(sum(case ';
		$sumrete1.='when status="X" or status="O" then 0 ';
		$sumrete1.='when cair>="300" then 0 ';
		$sumrete1.='else puni end)';
		$sumrete1.=',xrnd) as piva, ';

		$sumrete1.='round(sum(case ';
		$sumrete1.='when status="X" or status="O" then 0 ';
		$sumrete1.='when cair>="300" then 0 ';
		$sumrete1.='else cant*puni/100 end)';
		$sumrete1.=',xrnd) as riva, ';
		
		$sumrete1=str_replace('xrnd','6',$sumrete1);
		$sumrete2=str_replace('sum(','(',$sumrete1);
	}
	

	$sumtcuni1 = '';
	if(mb_stristr('vtas.clie.carr',$tabla))
	{
		$sumtcuni1.='round(sum(case ';
		$sumtcuni1.='when status="X" or status="O" then 0 ';
		$sumtcuni1.='when left(docu,2) in ("FC","PF","PC","CA") then abs(cant*cuni) ';
		$sumtcuni1.='else abs(cant*cuni)*-1 end)';
		$sumtcuni1.=',xrnd) as tcuni, ';

// 		$sumcomi1=str_replace('xrnd','4',$sumcomi1);
		$sumtcuni1=str_replace('xrnd','6',$sumtcuni1);
		$sumtcuni2=str_replace('sum(','(',$sumtcuni1);
	}

	$sumtpvta1 = '';
	if(mb_stristr('inve.prod',$tabla))
	{
		$sumtpvta1.='round(sum(case ';
		$sumtpvta1.='when status="X" or status="O" then 0 ';
		$sumtpvta1.='when left(docu,2) in ("IB") then abs(cant*pvta)*-1 ';
		$sumtpvta1.='when left(docu,2) in ("EB") then abs(cant*pvta) ';
		$sumtpvta1.='else 0 end)';
		$sumtpvta1.=',xrnd) as tpvta, ';
		$sumtpvta1=str_replace('xrnd','6',$sumtpvta1);
		$sumtpvta2=str_replace('sum(','(',$sumtpvta1);
	}
  
	if(mb_stristr('tfin',$tabla))
	{
		$sumtpvta1.='round(sum(case ';
		$sumtpvta1.='when status="X" or status="O" then 0 ';
		$sumtpvta1.='when left(docu,2) in ("IF") then abs(cant*pvta) ';
		$sumtpvta1.='else 0 end)';
		$sumtpvta1.=',xrnd) as tpvta, ';
		$sumtpvta1=str_replace('xrnd','6',$sumtpvta1);
		$sumtpvta2=str_replace('sum(','(',$sumtpvta1);
	}
  
  
  
  
  
	$sumtutil1 = '';
	if(mb_stristr('vtas.clie.carr',$tabla))
	{
		$sumtutil1.='round(sum(case ';
		$sumtutil1.='when status="X" or status="O" then 0 ';
    
      $sumtutil1.='when left(docu,2) in ("FC","FP","PF","PC","PP","CA","LC") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100)-abs(cant*cuni) ';
                                                               $sumtutil1.='else ((abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100))-abs(cant*cuni)*-1 end)';
    
		$sumtutil1.=',xrnd) as tutil, ';
    
		$sumtutil1=str_replace('xrnd','6',$sumtutil1);
		$sumtutil2=str_replace('sum(','(',$sumtutil1);
	}
  
  
	if(mb_stristr('inve.prod',$tabla))
	{
		$sumtutil1.='round(sum(case ';
		$sumtutil1.='when status="X" or status="O" then 0 ';
    
      $sumtutil1.='when left(docu,2) in ("EB") then (abs(cant*pvta)-abs(cant*puni)) ';
                                 $sumtutil1.='else 0 end)';
    
		$sumtutil1.=',xrnd) as tutil, ';
    
		$sumtutil1=str_replace('xrnd','6',$sumtutil1);
		$sumtutil2=str_replace('sum(','(',$sumtutil1);
	}
  
	if(mb_stristr('tfin',$tabla))
	{
		$sumtutil1.='round(sum(case ';
		$sumtutil1.='when status="X" or status="O" then 0 ';
    
      $sumtutil1.='when left(docu,2) in ("IF") then (abs(cant*pvta)-abs(cant*puni)) ';
                                 $sumtutil1.='else 0 end)';
    
		$sumtutil1.=',xrnd) as tutil, ';
    
		$sumtutil1=str_replace('xrnd','6',$sumtutil1);
		$sumtutil2=str_replace('sum(','(',$sumtutil1);
	}
  
  
  
  
  
	
	$sumcomi1 = '';
		if(mb_stristr('vtas.clie',$tabla))
	{
		$sumcomi1.='round(sum(case ';
		$sumcomi1.='when status="X" or status="O" then 0 ';
		$sumcomi1.='when left(docu,2) in ("FC","FP","PF","PC","PP") then abs(cant*puni)*(1-dcto/100)*if(comi>0,1,0) ';
		$sumcomi1.='else abs(cant*puni)*(1-dcto/100)*if(comi>0,1,0)*-1 end)';
		$sumcomi1.=',xrnd) as tsubtcomi, ';

// 		$sumcomi1=str_replace('xrnd','4',$sumcomi1);
		$sumcomi1=str_replace('xrnd','6',$sumcomi1);
		$sumcomi2=str_replace('sum(','(',$sumcomi1);
	}
	
	$sumtcomi1 = '';
		if(mb_stristr('vtas.clie',$tabla))
	{
		$sumtcomi1.='round(sum(case ';
		$sumtcomi1.='when status="X" or status="O" then 0 ';
		$sumtcomi1.='when left(docu,2) in ("FC","FP","PF","PC","PP") then abs(cant*puni)*(1-dcto/100)*if(comi>0,1,0) ';
		$sumtcomi1.='else abs(cant*puni)*(1-dcto/100)*if(comi>0,1,0)*-1 end)';
		$sumtcomi1.=',xrnd) as tcomi, ';

// 		$sumtcomi1=str_replace('xrnd','4',$sumtcomi1);
		$sumtcomi1=str_replace('xrnd','6',$sumtcomi1);
		$sumtcomi2=str_replace('sum(','(',$sumtcomi1);
	}
	
	
	
	$sumrrta = '';
	{
		$sumrrta1.='round(sum(case ';
		$sumrrta1.='when status="X" or status="O" then 0 ';
		$sumrrta1.='when left(docu,2) in ("FC","FP","PF","PC","PP") then abs(cant*puni)*(1-dcto/100)*(prrta/100) ';
		$sumrrta1.='else 0 end)';
		$sumrrta1.=',xrnd) as rrta, ';

// 		$sumrrta1=str_replace('xrnd','4',$sumrrta1);
		$sumrrta1=str_replace('xrnd','6',$sumrrta1);
		$sumrrta2=str_replace('sum(','(',$sumrrta1);
	}
	
	$sumriva = '';
	{
		$sumriva1.='round(sum(case ';
		$sumriva1.='when status="X" or status="O" then 0 ';
		$sumriva1.='when left(docu,2) in ("FC","FP","PF","PC","PP") then abs(cant*puni)*(1-dcto/100)*(ifnull(iva,0)/100)*(priva/100) ';
		$sumriva1.='else 0 end)';
		$sumriva1.=',xrnd) as riva, ';

// 		$sumriva1=str_replace('xrnd','4',$sumriva1);
		$sumriva1=str_replace('xrnd','6',$sumriva1);
		$sumriva2=str_replace('sum(','(',$sumriva1);
	}
	
	
	$zsubdes = '';
	{
		$zsubdes.='zsub_descri,';
	}
	
	$csubdes = '';
	{
		$csubdes.='csub_descri,';
// 		$csubdes.='csub_ctacost,';
// 		$csubdes.='csub_ctagast,';
	}
	
	$lsubdes = '';
	{
		$lsubdes.='lsub_descri,';
		$lsubdes.='lsub_ctavtas,';
		$lsubdes.='lsub_ctadcto,';
		$lsubdes.='lsub_ctacvta,';
		$lsubdes.='lsub_ctainve,';
// 		$lsubdes.='lsub_ctaprod,';
	}
	
	$tprodes = '';
	{
		$tprodes.='tpro_descri,';
	}
	
	$cairdes = '';
	{
		$cairdes.='cair_descri,';
		$cairdes.='cair_porc,';
	}
	
	$sucodes = '';
	{
		$sucodes.='suco_descri,';
	}
	
	$attndes = '';
	{
// 		$attndes.='attn_descri,';
	}
	
	$vndddes = '';
	{
		$vndddes.='vndd_descri,';
	}
	
	$cmpddes = '';
	{
		$cmpddes.='cmpd_descri,';
	}
	
	$fpagdes = '';
	{
		$fpagdes.='fpag_descri,';
	}
	
	$cajades = '';
	{
		$cajades.='caja_descri,';
	}
	
	$ctabdes = '';
	{
		$ctabdes.='ctab_descri,';
	}
	
	$cabades = '';
	{
		$cabades.='caba_descri,';
	}

  

	$atrztipo = '';
	{
		$atrztipo.='case when length(autornum)=49 then "E" ';
		$atrztipo.='else case when length(atrz)=10 then "P" ';
		$atrztipo.='else "-" end end ';
		$atrztipo.='as atrztipo, ';
	}


	$view0=$tabla.'10';
	$view_sql= 'create view '.$view0.' as ';
			$view_sql.='select ';
			$view_sql.='numero as '.$tabla.'_codigo,';
			$view_sql.='concat(trim(enti_descri),"-",trim(concepto)) as '.$tabla.'_descri,';
			$view_sql.='docu as '.$tabla.'_tipo,';
			$view_sql.='iuser as '.$tabla.'_iuser,';
			$view_sql.='fecha as '.$tabla.'_idate,';
			$view_sql.='fecha as '.$tabla.'_lused,';
// 			$view_sql.=$ptonumero1;
// 			$view_sql.=$tabla.'1.*,';
// 			$view_sql.=$docudes;
// 			$view_sql.=$entides;
// 			$view_sql.=$userdes;
			$view_sql.='status as '.$tabla.'_status ';
			$view_sql.='from '.$tabla.'1 ';
// 			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
// 			$view_sql.='left join user0 on (user=user_codigo) ';
// 			$view_sql.='left join user0 on (idnum1=user_codigo) ';
// 			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join enti0 on (enti=enti_codigo) ';
// 			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='and status!="O" ';
// 			$view_sql.='group by idnum1 ';
			$view_sql.='order by fecha desc,docu,numero ';
			$view_sql.='limit 50 ';
	exeview($view0,$view_sql,$link_vcrx);




if(mb_stristr('acce',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$userdes;
			$view_sql.=$sumcant1;
			$view_sql.=$sumsubt1;
			$view_sql.=$sumtotal1;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
// 			$view_sql.='left join user0 on (user=user_codigo) ';
			$view_sql.='left join user0 on (idnum1=user_codigo) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
// 			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.='docu0.'.$docudes;
			$view_sql.=$entides;
			$view_sql.=$userdes;
			$view_sql.=$sumcant2;
			$view_sql.=$sumsubt2;
			$view_sql.=$sumtotal2;
			$view_sql.='docum0.docu_descri as docum_descri,';
			$view_sql.='docum0.docu_tabla as docum_tabla,';
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
// 			$view_sql.='left join user0 on (user=user_codigo) ';
			$view_sql.='left join user0 on (idnum1=user_codigo) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join docu0 docum0 on (docum=docum0.docu_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero,ctas';
	exeview($view1,$view_sql,$link_vcrx);
	
}	

if(mb_stristr('cont',$tabla))
{
// 	$view1='ffee1';
// 	$view_sql= 'create view '.$view1.' as ';
// 			$view_sql.='select * from cont1 where status!="O" and status!="X"';
// 	exeview($view1,$view_sql,$link_vcrx);
  
// 	$view1='ffee2';
// 	$view_sql= 'create view '.$view1.' as ';
// 			$view_sql.='select * from cont2 where idnum';
// 	exeview($view1,$view_sql,$link_vcrx);
  
  
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$calfec;
			$view_sql.=$sumcant1;
			$view_sql.=$sumsubt1;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
// 			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$itemdes;
			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumsubt2;
			if($ctasuper==1)
			{
				$view_sql.='case when left(ctas,1) in("1","2","3") then left(ctas,1) else left(ctas,2) end as ctan1,';
				$view_sql.='case when left(ctas,1) in("1","2","3") then left(ctas,3) else left(ctas,4) end as ctan2,';
				$view_sql.='case when left(ctas,1) in("1","2","3") then left(ctas,5) else left(ctas,6) end as ctan3,';
				$view_sql.='case when left(ctas,1) in("1","2","3") then left(ctas,7) else left(ctas,8) end as ctan4,';
				$view_sql.='ctas as ctan5,';
				$view_sql.='case when left(ctas,1) in("1","2","3") then ctan1.ctas_descri else ctan1b.ctas_descri end as descri1,';
				$view_sql.='case when left(ctas,1) in("1","2","3") then ctan2.ctas_descri else ctan2b.ctas_descri end as descri2,';
				$view_sql.='case when left(ctas,1) in("1","2","3") then ctan3.ctas_descri else ctan3b.ctas_descri end as descri3,';
				$view_sql.='case when left(ctas,1) in("1","2","3") then ctan4.ctas_descri else ctan4b.ctas_descri end as descri4,';
				$view_sql.='ctas00.ctas_descri as descri5,';
			}
			else
			{
				$view_sql.='left(ctas,1) as ctan1,';
				$view_sql.='left(ctas,3) as ctan2,';
				$view_sql.='left(ctas,5) as ctan3,';
				$view_sql.='left(ctas,7) as ctan4,';
				$view_sql.='ctas as ctan5,';
				$view_sql.='ctan1.ctas_descri as descri1,';
				$view_sql.='ctan2.ctas_descri as descri2,';
				$view_sql.='ctan3.ctas_descri as descri3,';
				$view_sql.='ctan4.ctas_descri as descri4,';
				$view_sql.='ctas00.ctas_descri as descri5,';
			}
			$view_sql.=$sumcant2;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join item00 on (item=item_codigo) ';
			if($ctasuper==1)
			{
				$view_sql.='left join ctas0 ctan1 on left(ctas,1)=ctan1.ctas_codigo ';
				$view_sql.='left join ctas0 ctan2 on left(ctas,3)=ctan2.ctas_codigo ';
				$view_sql.='left join ctas0 ctan3 on left(ctas,5)=ctan3.ctas_codigo ';
				$view_sql.='left join ctas0 ctan4 on left(ctas,7)=ctan4.ctas_codigo ';
				$view_sql.='left join ctas0 ctan1b on left(ctas,2)=ctan1b.ctas_codigo ';
				$view_sql.='left join ctas0 ctan2b on left(ctas,4)=ctan2b.ctas_codigo ';
				$view_sql.='left join ctas0 ctan3b on left(ctas,6)=ctan3b.ctas_codigo ';
				$view_sql.='left join ctas0 ctan4b on left(ctas,8)=ctan4b.ctas_codigo ';
				$view_sql.='left join ctas00 on (ctas=ctas00.ctas_codigo) ';
			}
			else
			{
				$view_sql.='left join ctas0 ctan1 on left(ctas,1)=ctan1.ctas_codigo ';
				$view_sql.='left join ctas0 ctan2 on left(ctas,3)=ctan2.ctas_codigo ';
				$view_sql.='left join ctas0 ctan3 on left(ctas,5)=ctan3.ctas_codigo ';
				$view_sql.='left join ctas0 ctan4 on left(ctas,7)=ctan4.ctas_codigo ';
				$view_sql.='left join ctas00 on (ctas=ctas00.ctas_codigo) ';
			}
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero,ctas';
	exeview($view1,$view_sql,$link_vcrx);

  
// 	$view1='con312';
//   $view_sql=str_replace($tabla.'2.*',' idnum2,iddet,ctas,cant,puni,detalle ',$view_sql)
// 	exeview($view1,$view_sql,$link_vcrx);
  
}	

if(mb_stristr('susa.nomi.empl',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$calfec;
			$view_sql.=$sumcant1;
			$view_sql.=$sumsubt1;
			$view_sql.=$sumtotal1;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
         if(mb_stristr('susa.empl',$tabla))
         {$view_sql.='left join enti00 on (enti=enti_codigo) ';}
//          {$view_sql.='left join enti00 on (enti2=enti_codigo) ';}
         if(mb_stristr('nomi',$tabla))
         {$view_sql.='left join enti00 on (enti2=enti_codigo) ';}
			$view_sql.='left join nvdd0 on (nvdd=nvdd_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
	exeview($view1,$view_sql,$link_vcrx);

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$nvdddes;
// 			$view_sql.=$itemdes;
// 			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant2;
			$view_sql.=$sumsubt2;
			$view_sql.=$sumtotal2;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
         if(mb_stristr('susa.empl',$tabla))
         {$view_sql.='left join enti00 on (enti=enti_codigo) ';}
//          {$view_sql.='left join enti00 on (enti2=enti_codigo) ';}
         if(mb_stristr('nomi',$tabla))
         {$view_sql.='left join enti00 on (enti2=enti_codigo) ';}
			$view_sql.='left join nvdd0 on (nvdd=nvdd_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);
	
}	
  
if(mb_stristr('plan.atvd',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$asubdes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant1;
			$view_sql.=$sumsubt1;
			$view_sql.=$sumtotal1;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join asub0 on (asub=asub_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
// 			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$asubdes;
// 			$view_sql.=$atvddes;
// 			$view_sql.=$itemdes;
// 			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant2;
			$view_sql.=$sumsubt2;
			$view_sql.=$sumtotal2;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join asub0 on (asub=asub_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);

   if($cfg_empr=='tfle' and $tabla=='atvd')
   {
      $view1=$tabla.'13';
      $view_sql=str_replace('12 as','13 as',$view_sql);
//       $view_sql=str_replace($asubdes,'nvdd_descri,',$view_sql);
//       $view_sql=str_replace('left join asub0 on (asub=asub_codigo) ','left join asub0 on (asub=asub_codigo) left join nvdd0 on (nvdd=nvdd_codigo)  ',$view_sql);
      $view_sql=str_replace($tabla.'2',$tabla.'3',$view_sql);
      exeview($view1,$view_sql,$link_vcrx);
   }
   
}	
  
  
  
if(mb_stristr('vtas.clie.comp.prov.clte.carr',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$calfec;
			$view_sql.=$porcent1;
			$view_sql.=$sumcant1;
			$view_sql.=$sumbser1;
			$view_sql.=$sumsubt1;
			$view_sql.=$sumdcto1;
			$view_sql.=$sumprop1;
			$view_sql.=$sumssid1;
			$view_sql.=$sumice1;
			$view_sql.=$sumtice1;
			$view_sql.=$sumiva01;
			$view_sql.=$sumiva1;
			$view_sql.=$sumtiva1;
			$view_sql.=$sumtirbp1;
			$view_sql.=$sumpcp1;
      if(mb_stristr('vtas.clie.carr.comp.prov',$tabla))
      {$view_sql.=$sumpvp1;}
      if(mb_stristr('comp.prov',$tabla))
      {$view_sql.=$sumcantumdd1;}
			$view_sql.=$sumtcuni1;
			$view_sql.=$sumtutil1;
			$view_sql.=$sumcomi1;
			$view_sql.=$sumtcomi1;
			$view_sql.=$sumtotal1;
			$view_sql.=$fpagdes;
			$view_sql.=$statce;
			if(mb_stristr('vtas.clie',$tabla))
			{
        $view_sql.=$vndddes;
//         $view_sql.=$cmpddes;
//         $view_sql.=$attndes;
      }
			if(mb_stristr('vtas.clie.carr',$tabla))
			{$view_sql.='zsub0.'.$zsubdes;}
			if(mb_stristr('comp.prov',$tabla))
			{
				$view_sql.='tpro0.'.$tprodes;
				$view_sql.=$sucodes;
			}
			if(mb_stristr('comp.retc.retp',$tabla))
			{$view_sql.=$atrztipo;}
			$view_sql.=$sumrrta1;
			$view_sql.=$sumriva1;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
    
// 			if(mb_stristr('vtas.clie.comp.prov',$tabla))
			if(mb_stristr('vtas.clie.carr',$tabla))
			{
				if(mb_stristr('vtas.clie',$tabla))
				{
          $view_sql.='left join vndd0 on (vndd=vndd_codigo) ';
//           $view_sql.='left join cmpd0 on (cmpd=cmpd_codigo) ';
//           $view_sql.='left join attn0 on (attn=attn_codigo) ';
        }
				$view_sql.='left join zsub0 on (zsub=zsub_codigo) ';
			}
			if(mb_stristr('comp.prov',$tabla))
			{
				$view_sql.='left join tpro0 on (enti_tpro=tpro_codigo) ';
				$view_sql.='left join suco0 on (suco=suco_codigo) ';
			}
      $view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='left join item0 on (item=item_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
// 			$view_sql.='order by fecha desc,docu,numero ';
	exeview($view1,$view_sql,$link_vcrx);

  if(mb_stristr('vtas.clie.prod',$tabla))
	{
    if(mb_stristr('ecgl',$cfg_empr))
    {
      $view3=$tabla.'112';
      $view_sql3=$view_sql;
      $view_sql3=str_replace('create view '.$view1,'create view '.$view3,$view_sql3);
      $view_sql3=str_replace('group by idnum1','group by idnum1,itnum',$view_sql3);
      exeview($view3,$view_sql3,$link_vcrx);
    }
  }

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$itemdes;
			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant2;
			$view_sql.=$sumbser2;
			$view_sql.=$sumsubt2;
			$view_sql.=$sumdcto2;
			$view_sql.=$sumprop2;
			$view_sql.=$sumssid2;
			$view_sql.=$sumice2;
			$view_sql.=$sumtice2;
			$view_sql.=$sumiva02;
			$view_sql.=$sumiva2;
			$view_sql.=$sumtiva2;
			$view_sql.=$sumtirbp2;
			$view_sql.=$sumpcp2;
      if(mb_stristr('vtas.clie.carr.comp.prov',$tabla))
      {$view_sql.=$sumpvp2;}
      if(mb_stristr('comp.prov',$tabla))
      {$view_sql.=$sumcantumdd2;}
			$view_sql.=$sumtcuni2;
			$view_sql.=$sumtpvta2;
			$view_sql.=$sumtutil2;
			$view_sql.=$sumcomi2;
			$view_sql.=$sumtcomi2;
			$view_sql.=$sumtotal2;
			$view_sql.=$csubdes;
			$view_sql.=$lsubdes;
			$view_sql.=$fpagdes;
			if(mb_stristr('vtas.clie',$tabla))
			{
        $view_sql.=$vndddes;
//         $view_sql.=$cmpddes;
//         $view_sql.=$attndes;
      }
			if(mb_stristr('vtas.clie.carr',$tabla))
			{$view_sql.='zsub0.'.$zsubdes;}
			if(mb_stristr('comp.prov',$tabla))
			{
				$view_sql.='tpro0.'.$tprodes;
				$view_sql.=$sucodes;
				$view_sql.='cair0.'.$cairdes;
			}
			if(mb_stristr('comp.retc.retp',$tabla))
			{$view_sql.=$atrztipo;}
			$view_sql.=$sumrrta2;
			$view_sql.=$sumriva2;
			$view_sql.=$statce;	
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			if(mb_stristr('vtas.clie.carr',$tabla))
			{
				if(mb_stristr('vtas.clie',$tabla))
        {
          $view_sql.='left join vndd0 on (vndd=vndd_codigo) ';
//           $view_sql.='left join cmpd0 on (cmpd=cmpd_codigo) ';
//           $view_sql.='left join attn0 on (attn=attn_codigo) ';
        }
				$view_sql.='left join zsub0 on (zsub=zsub_codigo) ';
			}

      if(mb_stristr('comp.prov',$tabla))
			{
        $view_sql.='left join suco0 on (suco=suco_codigo) ';
        $view_sql.='left join tpro0 on (enti_tpro=tpro_codigo) ';
        $view_sql.='left join cair0 on (cair=cair_codigo) ';
  // 			$view_sql.='left join tpro0 on (tpro=tpro_codigo) ';
			}
			$view_sql.='left join item00 on (item=item_codigo) ';
      $view_sql.='left join tlla0 on (item_tlla=tlla_codigo) ';
			$view_sql.='left join ctas00 on (ctas=ctas00.ctas_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero,iddet ';
	exeview($view1,$view_sql,$link_vcrx);

  
}	

if(mb_stristr('.comxi',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$calfec;
// 			$view_sql.=$porcent1;
			$view_sql.=$sumcant1;
// 			$view_sql.=$sumbser1;
			$view_sql.=$sumsubt1;
			$view_sql.=$sumdcto1;
			$view_sql.=$sumprop1;
			$view_sql.=$sumssid1;
			$view_sql.=$sumice1;
			$view_sql.=$sumtice1;
			$view_sql.=$sumiva01;
			$view_sql.=$sumiva1;
			$view_sql.=$sumtiva1;
			$view_sql.=$sumtirbp1;
			$view_sql.=$sumpcp1;
// 			$view_sql.=$sumcomi1;
// 			$view_sql.=$sumtcomi1;
// 			$view_sql.=$sumtotal1;
// 			$view_sql.=$fpagdes;
			$view_sql.=$statce;
// 			if(mb_stristr('vtas.clie',$tabla))
// 			{
//         $view_sql.=$vndddes;
//       }
// 			if(mb_stristr('vtas.clie.carr',$tabla))
// 			{$view_sql.='zsub0.'.$zsubdes;}
// 			$view_sql.=$sumrrta1;
// 			$view_sql.=$sumriva1;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
    
      $view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='left join item0 on (item=item_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
	exeview($view1,$view_sql,$link_vcrx);

  if(mb_stristr('vtas.clie.prod',$tabla))
	{
    if(mb_stristr('ecgl',$cfg_empr))
    {
      $view3=$tabla.'112';
      $view_sql3=$view_sql;
      $view_sql3=str_replace('create view '.$view1,'create view '.$view3,$view_sql3);
      $view_sql3=str_replace('group by idnum1','group by idnum1,itnum',$view_sql3);
      exeview($view3,$view_sql3,$link_vcrx);
    }
  }

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$itemdes;
			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant2;
			$view_sql.=$sumbser2;
			$view_sql.=$sumsubt2;
			$view_sql.=$sumdcto2;
			$view_sql.=$sumprop2;
			$view_sql.=$sumssid2;
			$view_sql.=$sumice2;
			$view_sql.=$sumtice2;
			$view_sql.=$sumiva02;
			$view_sql.=$sumiva2;
			$view_sql.=$sumtiva2;
			$view_sql.=$sumtirbp2;
			$view_sql.=$sumpcp2;
			$view_sql.=$sumcomi2;
			$view_sql.=$sumtcomi2;
			$view_sql.=$sumtotal2;
			$view_sql.=$csubdes;
			$view_sql.=$lsubdes;
			$view_sql.=$fpagdes;
			if(mb_stristr('vtas.clie',$tabla))
			{
        $view_sql.=$vndddes;
        $view_sql.=$cmpddes;
//         $view_sql.=$attndes;
      }
			if(mb_stristr('vtas.clie.carr',$tabla))
			{$view_sql.='zsub0.'.$zsubdes;}
			if(mb_stristr('comp.prov',$tabla))
			{
				$view_sql.='tpro0.'.$tprodes;
				$view_sql.=$sucodes;
				$view_sql.='cair0.'.$cairdes;
			}
			if(mb_stristr('comp.retc.retp',$tabla))
			{$view_sql.=$atrztipo;}
			$view_sql.=$sumrrta2;
			$view_sql.=$sumriva2;
			$view_sql.=$statce;	
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			if(mb_stristr('vtas.clie.carr',$tabla))
			{
				if(mb_stristr('vtas.clie',$tabla))
        {
          $view_sql.='left join vndd0 on (vndd=vndd_codigo) ';
          $view_sql.='left join cmpd0 on (cmpd=cmpd_codigo) ';
//           $view_sql.='left join attn0 on (attn=attn_codigo) ';
        }
				$view_sql.='left join zsub0 on (zsub=zsub_codigo) ';
			}

      if(mb_stristr('comp.prov',$tabla))
			{
        $view_sql.='left join suco0 on (suco=suco_codigo) ';
        $view_sql.='left join tpro0 on (enti_tpro=tpro_codigo) ';
        $view_sql.='left join cair0 on (cair=cair_codigo) ';
  // 			$view_sql.='left join tpro0 on (tpro=tpro_codigo) ';
			}
			$view_sql.='left join item00 on (item=item_codigo) ';
      $view_sql.='left join tlla0 on (item_tlla=tlla_codigo) ';
			$view_sql.='left join ctas00 on (ctas=ctas00.ctas_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero,ctas';
	exeview($view1,$view_sql,$link_vcrx);

  
}	

  
if(mb_stristr('guia',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$calfec;
// 			$view_sql.=$porcent1;
			$view_sql.=$sumcant1;
// 			$view_sql.=$sumbser1;
			$view_sql.=$sumsubt1;
// 			$view_sql.=$sumdcto1;
// 			$view_sql.=$sumprop1;
// 			$view_sql.=$sumice1;
// 			$view_sql.=$sumtice1;
// 			$view_sql.=$sumiva01;
// 			$view_sql.=$sumiva1;
// 			$view_sql.=$sumtiva1;
// 			$view_sql.=$sumtirbp1;
// 			$view_sql.=$sumpcp1;
// 			$view_sql.=$sumcomi1;
// 			$view_sql.=$sumtcomi1;
			$view_sql.=$sumtotal1;
// 			$view_sql.=$fpagdes;
			$view_sql.=$statce;
// 			if(mb_stristr('vtas.clie',$tabla))
// 			{$view_sql.=$vndddes;}
// 			if(mb_stristr('vtas.clie.carr',$tabla))
			{$view_sql.='zsub0.'.$zsubdes;}
// 			if(mb_stristr('comp.prov',$tabla))
// 			{
// 				$view_sql.='tpro0.'.$tprodes;
// 				$view_sql.=$sucodes;
// 			}
// 			$view_sql.=$sumrrta1;
// 			$view_sql.=$sumriva1;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
// 			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
// 			if(mb_stristr('vtas.clie.comp.prov',$tabla))
			$view_sql.='left join item0 on (item=item_codigo) ';
// 			if(mb_stristr('vtas.clie.carr',$tabla))
// 			{
// 				if(mb_stristr('vtas.clie',$tabla))
// 				{$view_sql.='left join vndd0 on (vndd=vndd_codigo) ';}
// 			}
				$view_sql.='left join zsub0 on (zsub=zsub_codigo) ';
// 			if(mb_stristr('comp.prov',$tabla))
// 			{
// 				$view_sql.='left join tpro0 on (enti_tpro=tpro_codigo) ';
// 				$view_sql.='left join suco0 on (suco=suco_codigo) ';
// 			}
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
// 			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$itemdes;
// 			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant2;
			$view_sql.=$sumbser2;
			$view_sql.=$sumsubt2;
// 			$view_sql.=$sumdcto2;
// 			$view_sql.=$sumprop2;
// 			$view_sql.=$sumice2;
// 			$view_sql.=$sumtice2;
// 			$view_sql.=$sumiva02;
// 			$view_sql.=$sumiva2;
// 			$view_sql.=$sumtiva2;
// 			$view_sql.=$sumtirbp2;
// 			$view_sql.=$sumpcp2;
// 			$view_sql.=$sumcomi2;
// 			$view_sql.=$sumtcomi2;
			$view_sql.=$sumtotal2;
// 			$view_sql.=$sumrrta2;
// 			$view_sql.=$sumriva2;
// 			$view_sql.=$csubdes;
// 			$view_sql.=$fpagdes;
// 			if(mb_stristr('vtas.clie',$tabla))
// 			{$view_sql.=$vndddes;}
// 			if(mb_stristr('vtas.clie.carr',$tabla))
			{$view_sql.='zsub0.'.$zsubdes;}
// 			if(mb_stristr('comp.prov',$tabla))
// 			{
// 				$view_sql.='tpro0.'.$tprodes;
// 				$view_sql.=$sucodes;
// 				$view_sql.=$cairdes;
// 			}
			$view_sql.=$statce;	
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
// 			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
// 			if(mb_stristr('vtas.clie.carr',$tabla))
// 			{
// 				if(mb_stristr('vtas.clie',$tabla)){
// 				$view_sql.='left join vndd0 on (vndd=vndd_codigo) ';}
// 			}
				$view_sql.='left join zsub0 on (zsub=zsub_codigo) ';
// 			if(mb_stristr('comp.prov',$tabla))
// 			{
// 			$view_sql.='left join suco0 on (suco=suco_codigo) ';
// 			$view_sql.='left join tpro0 on (enti_tpro=tpro_codigo) ';
// // 			$view_sql.='left join tpro0 on (tpro=tpro_codigo) ';
// 			}
			$view_sql.='left join item00 on (item=item_codigo) ';
// 			$view_sql.='left join ctas00 on (ctas=ctas00.ctas_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero,ctas';
	exeview($view1,$view_sql,$link_vcrx);
	
}	

if(mb_stristr('inve.tfin.prod',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$bodedes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant1;
			$view_sql.=$sumsubt1;
			$view_sql.=$sumtpvta1;
			$view_sql.=$sumtutil1;
// 			$view_sql.=$sumtiva1;
			$view_sql.=$sumtotal1;
			$view_sql.=$statce;
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join bode0 on (bode=bode_codigo) ';
			$view_sql.='left join item0 on (item=item_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
// 			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.=$docudes;
			$view_sql.=$entides;
			$view_sql.=$bodedes;
			$view_sql.=$itemdes;
// 			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumcant2;
			$view_sql.=$sumtpvta2;
			$view_sql.=$sumtutil2;
			$view_sql.=$sumsubt2;
// 			$view_sql.=$sumtiva2;
// 			$view_sql.=$sumtirbp2;
// 			$view_sql.=$sumpcp2;
// 			$view_sql.=$sumcomi2;
// 			$view_sql.=$sumtcomi2;
			$view_sql.=$sumtotal2;
// 			$view_sql.=$sumrrta2;
// 			$view_sql.=$sumriva2;
// 			$view_sql.=$fpagdes;
			$view_sql.=$lsubdes;
			$view_sql.=$statce;	
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join bode0 on (bode=bode_codigo) ';
// 			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join item00 on (item=item_codigo) ';
// 			$view_sql.='left join ctas00 on (ctas=ctas00.ctas_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero,ctas';
	exeview($view1,$view_sql,$link_vcrx);
	
}	
	
if(mb_stristr('caja.bcos',$tabla))
{
	
}	

if(mb_stristr('caja.bcos.caba.dxco.dxpa.rete.retc.retp.retb.comi',$tabla))
{
	$view1=$tabla.'11';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.='docu0.'.$docudes;
			$view_sql.='docum0.docu_descri as docum_descri,';
			$view_sql.='docum0.docu_tabla as docum_tabla,';
			$view_sql.='docum0.docu_tico as docum_tico,';
			$view_sql.=$entides;
			$view_sql.='tpro0.'.$tprodes;
			$view_sql.=$calfec;
			$view_sql.=$sumiegr1;
			if(mb_stristr('comp.retc.retp',$tabla))
			{$view_sql.=$atrztipo;}
		if(mb_stristr('caja.bcos.caba.dxco.dxpa.retc.retp',$tabla))
			{
				$view_sql.=$cajades;
				$view_sql.=$ctabdes;
				$view_sql.=$cabades;
			}
			if(mb_stristr('rete.retc.retp.retb',$tabla))
			{
        $view_sql.=$sumrete1;
//         $view_sql.=$cairdes;
      }
// 			$view_sql.=$porcent1;
			$view_sql.=$sumcant1;
// 			$view_sql.=$sumbser1;
			$view_sql.=$sumsubt1;
			$view_sql.=$sumtotal1;
// 			$view_sql.=$fpagdes;
			$view_sql.=$statce;
// 			$view_sql.='zsub0.'.$zsubdes;
			$view_sql.=$zsubdes;

			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join docu0 docum0 on (docum=docum0.docu_codigo) ';
			$view_sql.='left join tpro0 on (enti_tpro=tpro_codigo) ';
			if(mb_stristr('caja.bcos.caba.dxco.dxpa.retc.retp',$tabla))
			{
				$view_sql.='left join caja0 on (caja=caja_codigo) ';
				$view_sql.='left join ctab0 on (ctab=ctab_codigo) ';
				$view_sql.='left join caba0 on (caba=caba_codigo) ';
			}
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='group by idnum1 ';
// 			$view_sql.='order by fecha desc,docu,numero';
	exeview($view1,$view_sql,$link_vcrx);

	$view1=$tabla.'12';
	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$ptonumero1;
			$view_sql.=$tabla.'1.*,';
			$view_sql.=$tabla.'2.*,';
			$view_sql.='docu0.'.$docudes;
			$view_sql.='docum0.docu_descri as docum_descri,';
			$view_sql.='docum0.docu_tabla as docum_tabla,';
			$view_sql.='docum0.docu_tico as docum_tico,';
			$view_sql.=$entides;
			$view_sql.='tpro0.'.$tprodes;
			if(mb_stristr('comp.retc.retp',$tabla))
			{$view_sql.=$atrztipo;}
  
			if(mb_stristr('comi',$tabla))
      {$view_sql.=$itemdes;}
			$view_sql.=$ctasdes;
			$view_sql.=$calfec;
			$view_sql.=$sumiegr2;
  
			if(mb_stristr('caja.bcos.caba.dxco.dxpa.retc.retp',$tabla))
			{
				$view_sql.=$cajades;
				$view_sql.=$ctabdes;
				$view_sql.=$cabades;
			}
			$view_sql.=$sumcant2;
			$view_sql.=$sumsubt2;
			$view_sql.=$sumtotal2;
			$view_sql.=$zsubdes;
			if(mb_stristr('rete.retc.retp.retb',$tabla))
			{
        $view_sql.=$sumrete2;
        $view_sql.=''.$cairdes; 
//         echo '<br>aqui'.$view_sql;
      }
	
  
			$view_sql.=$statce;	
			$view_sql.='stat_descri ';
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join '.$tabla.'2 on (idnum1=idnum2) ';
			$view_sql.='left join enti00 on (enti=enti_codigo) ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join docu0 docum0 on (docum=docum0.docu_codigo) ';
			$view_sql.='left join tpro0 on (enti_tpro=tpro_codigo) ';
			if(mb_stristr('comp.cont.rete.retc.retp.retb',$tabla))
			{$view_sql.='left join cair0 on (cair=cair_codigo) ';}
// 			$view_sql.='left join fpag0 on (fpag=fpag_codigo) ';
			if(mb_stristr('caba.caja.bcos.dxco.dxpa.retc.retp',$tabla))
			{
				$view_sql.='left join caja0 on (caja=caja_codigo) ';
				$view_sql.='left join ctab0 on (ctab=ctab_codigo) ';
				$view_sql.='left join caba0 on (caba=caba_codigo) ';
			}
			if(mb_stristr('comi',$tabla))
      {$view_sql.='left join item00 on (item=item_codigo) ';}
			$view_sql.='left join ctas00 on (ctas=ctas00.ctas_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha desc,docu,numero,ctas';
			if(mb_stristr('rete.retc.retp.retb',$tabla))
			{$view_sql.=',cair,puni ';}
			
// 	echo '<br><br>'.$view_sql;
	exeview($view1,$view_sql,$link_vcrx);
	
}	
	
if(mb_stristr('jwib.jwiv',$tabla))
{	
		$calfec.='case when fechar is not null then date_format(fechar,"%d/%b/%y") end as fechadmyr,';
		$calfec.='case when fechar is not null then date_format(fechar,"%Y-%m-%d") end as fechaymdr,';
		$calfec.='date_format(fechar,"%Y") as fanior,';
		$calfec.='date_format(fechar,"%m") as fmesr,';
		$calfec.='date_format(fechar,"%d") as fdiar,';
		$calfec.='upper(date_format(fechar,"%b")) as fmesnr,';
		$calfec.='upper(date_format(fechar,"%a")) as fdianr,';
		$calfec.='date_format(fechar,"%v") as fsemar, ';
		$calfec.='date_format(fechar,"%j") as fdoyr ';

// 		$calfec.='date_format(idate,"%T") as fhora ';
	
	$view1=$tabla.'11'; 	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$tabla.'1.*,';
// 			$view_sql.='date_format(adddate(fecha,cong_reu1-1),"%d/%b/%y") as fechar1,';
// 			$view_sql.='date_format(adddate(fecha,cong_reu2-1),"%d/%b/%y") as fechar2,';
			$view_sql.='docu_descri, ';
			$view_sql.='cong_reu1,cong_reu2, ';
			$view_sql.='bsqj_descri,bsqj_tema, ';
			$view_sql.='orat_descri,';
			$view_sql.='jwol_tdb1,jwol_tdb2, ';
			$view_sql.='jwol_nvc1,jwol_nvc2, ';
			$view_sql.='jwol_smm0,jwol_smm1, ';
			$view_sql.='jwol_smm2,jwol_smm3, ';
// 			$view_sql.='jwol_smm4, ';
			$view_sql.='jwol_lib1,jwol_ata1, ';
			$view_sql.='stat_descri,';
			$view_sql.=$calfec;
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join cong0 on(cong=cong_codigo) ';
			$view_sql.='left join docu0 on(docu=docu_codigo) ';
			$view_sql.='left join bsqj0 on(bsqj=bsqj_codigo) ';
			$view_sql.='left join jwol0 on(fecha=jwol_fecha) ';
			$view_sql.='left join orat0 on(orat=orat_codigo) ';
			$view_sql.='left join stat0 on(status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by cong,sala,fecha ';
	//	//xsqlstr
//  	echo $view_sql;
	exeview($view1,$view_sql,$link_vcrx);
// 	echo "\n".$view1.' ==> '; 	if (msql_query($view_sql,$link_vcrx)==1){echo ' OK ';}else{echo ' *** ERROR ***   ==> '.msql_error($link_vcrx);}
}		
	
if(mb_stristr('jwrt',$tabla))
{	
		$calfec.='case ';
		$calfec.='when month(fecha)>=9 then year(fecha)+1 ';
		$calfec.='when month(fecha)<=8 then year(fecha) '; 
		$calfec.='end as fanioserv ';
// 		$calfec.='date_format(idate,"%T") as fhora ';
	
	$view1=$tabla.'11'; 	$view_sql= 'create view '.$view1.' as ';
			$view_sql.='select ';
			$view_sql.=$tabla.'1.*,';
// 			$view_sql.='date_format(adddate(fecha,cong_reu1-1),"%d/%b/%y") as fechar1,';
// 			$view_sql.='date_format(adddate(fecha,cong_reu2-1),"%d/%b/%y") as fechar2,';
			$view_sql.='docu_descri, ';
			$view_sql.='enti_descri, ';
			$view_sql.='enti_zsub, ';
			$view_sql.='enti_csub, ';
			$view_sql.='stat_descri,';
			$view_sql.=$calfec;
			$view_sql.='from '.$tabla.'1 ';
			$view_sql.='left join docu0 on (docu=docu_codigo) ';
			$view_sql.='left join enti0 on (enti=enti_codigo) ';
// 			$view_sql.='left join cong0 on (cong=cong_codigo) ';
			$view_sql.='left join stat0 on (status=stat_codigo) ';
			$view_sql.='where status!="X" ';
			$view_sql.='order by fecha ';
	//	//xsqlstr
//  	echo $view_sql;
	exeview($view1,$view_sql,$link_vcrx);
// 	echo "\n".$view1.' ==> '; 	if (msql_query($view_sql,$link_vcrx)==1){echo ' OK ';}else{echo ' *** ERROR ***   ==> '.msql_error($link_vcrx);}
}		

// 	echo '<br>'.$view1;

}	


function vrsetview3()
{
  
//       $calfec.='case when plazo is null or plazo=0 then 0 else 1 end as pagocredi,';
  
// 		+'case ';
// 			+'when diasv>360 then 999 ';
// 			+'when diasv>180 then 360 ';
// 			+'when diasv>150 then 180 ';
// 			+'when diasv>120 then 150 ';
// 			+'when diasv>90 then 120 ';
// 			+'when diasv>60 then 90 ';
// 			+'when diasv>30 then 60 ';
// 			+'when diasv>1 then 30 ';
// 			+'else 0 end as anti,';

  
  $view0='caba00';
	$view_sql= 'create view '.$view0.' as ';
  
      $tab0='caja';
			$view_sql.='select ';
			$view_sql.=$tab0.'_codigo as caba_codigo,';
			$view_sql.=$tab0.'_descri as caba_descri,';
			$view_sql.=$tab0.'_tipo as caba_tipo,';
			$view_sql.=$tab0.'_idate as caba_idate,';
			$view_sql.=$tab0.'_ctacont as caba_ctacont,';
			$view_sql.=$tab0.'_status as caba_status';
			$view_sql.=' from '.$tab0.'0 ';

      $tab0='ctab';
			$view_sql.=' union  ';
			$view_sql.='select ';
			$view_sql.=$tab0.'_codigo as caba_codigo,';
			$view_sql.=$tab0.'_descri as caba_descri,';
			$view_sql.=$tab0.'_tipo as caba_tipo,';
			$view_sql.=$tab0.'_idate as caba_idate,';
			$view_sql.=$tab0.'_ctacont as caba_ctacont,';
			$view_sql.=$tab0.'_status as caba_status';
			$view_sql.=' from '.$tab0.'0 ';
  
	exeview($view0,$view_sql,$link_vcrx);
  
  
  
  
  $view0='cxcob12';
	$view_sql= 'create view '.$view0.' as ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='case when docu like "FC%" then 1 else 2 end as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,vence,vencedmy,diasv,';
			$view_sql.='total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='case when docu like "NC%" then todocu else docu end as docum,';
			$view_sql.='case when docu like "NC%" then toptoe else ptoe end as ptoem,';
			$view_sql.='case when docu like "NC%" then tonume else numero end as numer,';
			$view_sql.='case when docu like "NC%" then abs(total) end as tcredito,';
			$view_sql.='case when (docu like "FC%" or docu like "NV%") then total end as tdebito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"vtas" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from vtas12 ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='1 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
  
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then docu else docum end as docum,';
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then ptoe else ptoem end as ptoem,';
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then numero else numer end as numer,';
			$view_sql.='0 as tcredito,';
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then total end as tdebito,';
  
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"dxco" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from dxco12 ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='abs(total)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='docum,ptoem,numer,';
			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"caja" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from caja12 ';
      $view_sql.='where substring(docu,1,2) not in ("EC","EV") ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='case when substring(docu,1,2) in("PR") then abs(total) ';
// 			$view_sql.='case when docu in ("EV11") then abs(total) ';
			$view_sql.='else abs(total)*-1 end as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='docum,ptoem,numer,';
			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"bcos" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from bcos12 ';
      $view_sql.='where substring(docu,1,2) not in ("CH","DB") ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='abs(total)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='docum,ptoem,numer,';
			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"retc" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from retc12 ';
      $view_sql.='where docu like "RC%" ';
  
//   echo $view_sql;
  
	exeview($view0,$view_sql,$link_vcrx);


$calfec='';     
		{
      $calfec.='case when plazo is null or plazo=0 then 0 else 1 end as pagocredi,';
      $calfec.='case when plazo is not null then adddate(fecha,plazo) else fecha end as vence,';
      $calfec.='case when plazo is not null then date_format(adddate(fecha,plazo),"%d/%b/%y") else date_format(fecha,"%d/%b/%y") end as vencedmy,';
      $calfec.='case when plazo is not null then date_format(adddate(fecha,plazo),"%a") else date_format(fecha,"%a") end as vencedian,';
      $calfec.='case when plazo is not null then datediff(curdate(),adddate(fecha,plazo)) else datediff(curdate(),fecha) end as diasv,';
		}
		$calfec.='date_format(fecha,"%Y") as fanio,';
		$calfec.='date_format(fecha,"%m") as fmes,';
		$calfec.='date_format(fecha,"%d") as fdia,';
		$calfec.='upper(date_format(fecha,"%b")) as fmesn,';
		$calfec.='upper(date_format(fecha,"%a")) as fdian,';
		$calfec.='upper(date_format(fecha,"%b")) as fmesd,';
		$calfec.='upper(date_format(fecha,"%a")) as fdiad,';
		$calfec.='ceil(date_format(fecha,"%v")/4) as fprdo, ';
		$calfec.='date_format(fecha,"%v") as fsema, ';
		$calfec.='date_format(fecha,"%j") as fdoy, ';
		$calfec.='date_format(idate,"%T") as fhora, ';
     
     
     
  $view0='cxco12';
	$view_sql= 'create view '.$view0.' as ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='case when docu like "FC%" then 1 else 2 end as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='case when left(docu,2) in ("FC") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100) ';
			$view_sql.=                                 'else((abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100))*(-1) end as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='case when docu like "NC%" then todocu else docu end as docum,';
			$view_sql.='case when docu like "NC%" then toptoe else ptoe end as ptoem,';
			$view_sql.='case when docu like "NC%" then tonume else numero end as numer,';
               $view_sql.='case when left(docu,2) in ("FC") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100) else 0 end as tdebito,';
               $view_sql.='case when left(docu,2) in ("NC") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100) else 0 end as tcredito,';
			$view_sql.=$calfec;
			$view_sql.='"vtas" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
               $view_sql.='from vtas1 left join vtas2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join zsub0 on enti_zsub=zsub_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='1 as cabdet,';
// 			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='cant*puni as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then docu else docum end as docum,';
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then ptoe else ptoem end as ptoem,';
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then numero else numer end as numer,';
			$view_sql.='case when substring(docu,1,2) in("XC","AC") then cant*puni end as tdebito,';
			$view_sql.='0 as tcredito,';
// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"dxco" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from dxco12 ';
      $view_sql.='from dxco1 left join dxco2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join zsub0 on enti_zsub=zsub_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
// 			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='abs(cant)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='docum,ptoem,numer,';
// 			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
               $view_sql.='case when left(docu,2) not in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end  as tdebito,';
               $view_sql.='case when left(docu,2)     in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end as tcredito,';

// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"caja" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from caja12 ';
      $view_sql.='from caja1 left join caja2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join zsub0 on enti_zsub=zsub_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
      $view_sql.='and substring(docu,1,2) not in ("EC","EV") ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
// 			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='docu,ptoe,numero,fecha,';
// 			$view_sql.='case when substring(docu,1,2) in("PR") then abs(cant) ';
			$view_sql.='case when left(docu,2) in("PR") then abs(cant) ';
			$view_sql.='else abs(cant)*-1 end as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='docum,ptoem,numer,';
// 			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
               $view_sql.='case when left(docu,2) not in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end as tdebito,';
               $view_sql.='case when left(docu,2)     in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end as tcredito,';
// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"bcos" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from bcos12 ';
      $view_sql.='from bcos1 left join bcos2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join zsub0 on enti_zsub=zsub_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
      $view_sql.='and substring(docu,1,2) not in ("CH","DB") ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
// 			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='abs(cant*puni/100)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,zsub_descri,';
			$view_sql.='docum,ptoem,numer,';
// 			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
			$view_sql.='0 as tdebito,';
			$view_sql.='abs(cant*puni/100)*-1 as tcredito,';
// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"retc" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from retc12 ';
      $view_sql.='from retc1 left join retc2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join zsub0 on enti_zsub=zsub_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
      $view_sql.='and docu like "RC%" ';
  
//   echo $view_sql;
  
	exeview($view0,$view_sql,$link_vcrx);
  
     
     
  $view0='cxpag12';
	$view_sql= 'create view '.$view0.' as ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='case when docu like "FP%" then 1 else 2 end as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,vence,vencedmy,diasv,';
			$view_sql.='total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,tpro_descri,';
			$view_sql.='case when docu like "NP%" then todocu else docu end as docum,';
			$view_sql.='case when docu like "NP%" then toptoe else ptoe end as ptoem,';
			$view_sql.='case when docu like "NP%" then tonume else numero end as numer,';
			$view_sql.='case when docu like "FP%" then total end as tdebito,';
			$view_sql.='case when docu like "NP%" then abs(total) end as tcredito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"comp" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from comp12 ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='1 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,tpro_descri,';

			$view_sql.='case when substring(docu,1,2) in("XP","AP") then docu else docum end as docum,';
			$view_sql.='case when substring(docu,1,2) in("XP","AP") then ptoe else ptoem end as ptoem,';
			$view_sql.='case when substring(docu,1,2) in("XP","AP") then numero else numer end as numer,';
			$view_sql.='case when substring(docu,1,2) in("XP","AP") then total end as tdebito,';
			$view_sql.='0 as tcredito,';
  
  
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"dxpa" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from dxpa12 ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='abs(total)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,tpro_descri,';
			$view_sql.='docum,ptoem,numer,';
			$view_sql.='tdebito,tcredito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"caja" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from caja12 ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='abs(total)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,tpro_descri,';
			$view_sql.='docum,ptoem,numer,';
			$view_sql.='tdebito,tcredito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"bcos" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from bcos12 ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='abs(total)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_zsub,enti_tpro,tpro_descri,';
			$view_sql.='docum,ptoem,numer,';
			$view_sql.='tdebito,tcredito,';
			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.='"retp" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
      $view_sql.='from retp12 ';
      $view_sql.='where docu like "RP%" ';
  
	exeview($view0,$view_sql,$link_vcrx);

     
  $view0='cxpa12';
	$view_sql= 'create view '.$view0.' as ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='case when docu like "FP%" then 1 else 2 end as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='case when left(docu,2) in ("FP") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100) ';
			$view_sql.=                                 'else((abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100))*(-1) end as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_tpro,tpro_descri,';
			$view_sql.='case when docu like "NP%" then todocu else docu end as docum,';
			$view_sql.='case when docu like "NP%" then toptoe else ptoe end as ptoem,';
			$view_sql.='case when docu like "NP%" then tonume else numero end as numer,';
               $view_sql.='case when left(docu,2) in ("FP") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100) else 0 end as tdebito,';
               $view_sql.='case when left(docu,2) in ("NP") then (abs(cant*puni)*(1-dcto/100) +(abs(cant*puni)*(ice/100))) *(1+ifnull(iva,0)/100) +(cant*irbp) +(abs(cant*puni*(1-dcto/100))*prop/100) else 0 end as tcredito,';
			$view_sql.=$calfec;
			$view_sql.='"comp" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
               $view_sql.='from comp1 left join comp2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join tpro0 on enti_tpro=tpro_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='1 as cabdet,';
// 			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='cant*puni as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_tpro,tpro_descri,';
			$view_sql.='case when substring(docu,1,2) in("XP","AP") then docu else docum end as docum,';
			$view_sql.='case when substring(docu,1,2) in("XP","AP") then ptoe else ptoem end as ptoem,';
			$view_sql.='case when substring(docu,1,2) in("XP","AP") then numero else numer end as numer,';
			$view_sql.='case when substring(docu,1,2) in("XP","AP") then cant*puni end as tdebito,';
			$view_sql.='0 as tcredito,';
// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"dxpa" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from dxco12 ';
      $view_sql.='from dxpa1 left join dxpa2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join tpro0 on enti_tpro=tpro_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='abs(cant)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_tpro,tpro_descri,';
			$view_sql.='docum,ptoem,numer,';
// 			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
               $view_sql.='case when left(docu,2)     in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end as tdebito,';
               $view_sql.='case when left(docu,2) not in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end as tcredito,';

// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"caja" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from caja12 ';
      $view_sql.='from caja1 left join caja2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join tpro0 on enti_tpro=tpro_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
//       $view_sql.='and substring(docu,1,2) not in ("EC","EV") ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
// 			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='case when substring(docu,1,2) in("PR") then abs(cant) ';
			$view_sql.='else abs(cant)*-1 end as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_tpro,tpro_descri,';
			$view_sql.='docum,ptoem,numer,';
// 			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
               $view_sql.='case when left(docu,2)     in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end as tdebito,';
               $view_sql.='case when left(docu,2) not in("IE","IC","AC","DC","DB","DX","DK","CA") then cant else 0 end as tcredito,';
// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"bcos" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from bcos12 ';
      $view_sql.='from bcos1 left join bcos2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join tpro0 on enti_tpro=tpro_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
//       $view_sql.='and substring(docu,1,2) not in ("CH","DB") ';
  
      $view_sql.='union ';
			$view_sql.='select ';
			$view_sql.='idnum1,iddet,';
			$view_sql.='2 as cabdet,';
// 			$view_sql.='docu,ptoe,numero,fecha,fecha as vence,fechadmy as vencedmy,0 as diasv,';
			$view_sql.='docu,ptoe,numero,fecha,';
			$view_sql.='abs(cant*puni/100)*-1 as total,';
			$view_sql.='substring(enti,1,10) as enti,enti_descri,enti_tpro,tpro_descri,';
			$view_sql.='docum,ptoem,numer,';
// 			$view_sql.='tdebito as tcredito,tcredito as tdebito,';
			$view_sql.='0 as tdebito,';
			$view_sql.='abs(cant*puni/100)*-1 as tcredito,';
// 			$view_sql.='fechadmy,fanio,fmes,fdia,fmesn,fdian,fmesd,fdiad,fprdo,fsema,fdoy,fhora,';
			$view_sql.=$calfec;
			$view_sql.='"retp" as mdfrom, ';
			$view_sql.='concepto,detalle,status,idate ';
//       $view_sql.='from retc12 ';
      $view_sql.='from retp1 left join retp2 on idnum1=idnum2 left join enti0 on enti=enti_codigo left join tpro0 on enti_tpro=tpro_codigo ';
      $view_sql.='where status!="O" and status!="X" ';
      $view_sql.='and docu like "RP%" ';
  
//   echo $view_sql;
  
	exeview($view0,$view_sql,$link_vcrx);
  
     
     
  $view0='caba0';
	$view_sql= 'create view '.$view0.' as ';
      $caba='caja';
			$view_sql.='select ';
			$view_sql.=$caba.'_codigo as caba_codigo,';
			$view_sql.=$caba.'_descri as caba_descri,';
			$view_sql.=$caba.'_status as caba_status ';
      $view_sql.='from '.$caba.'0 ';
      $view_sql.='union ';
      $caba='ctab';
			$view_sql.='select ';
			$view_sql.=$caba.'_codigo as caba_codigo,';
			$view_sql.=$caba.'_descri as caba_descri,';
			$view_sql.=$caba.'_status as caba_status ';
      $view_sql.='from '.$caba.'0 ';
// 	exeview($view0,$view_sql,$link_vcrx);
  
}  

function exeindx($indx,$indx_sql,$link_vcrx)
{
	include('../_cfg/config.php');
	if (msql_query($indx_sql,$link_vcrx)==1)
	{
// 		echo '<br>';
// 		echo 'INDEX : '.$indx.' ==> ';
// 		echo ' *** OK ***   ==> ';
// 		echo ' - '.date('H:i:s');
	}
	else
	{
		echo '<br>';
		echo 'INDEX : '.$indx.' ==> ';
		echo ' *** ERROR ***   ==> '.msql_error($link_vcrx);
		echo ' - '.date('H:i:s');
// 		echo ' - '.$indx_sql;
	}	
}

function vrsetindx0($tabla='')
{
	include('../_cfg/config.php');
	
	$tabla0=$tabla.'0';
	$sql_indx='show index from '.$tabla0.' where Key_name!="PRIMARY" and Seq_in_index=1';
	$res_indx=msql_query($sql_indx,$link_vcrx);
	while($aso_indx=msql_fetch_assoc($res_indx))
	{msql_query('alter table '.$tabla0.' drop index '.$aso_indx['Key_name'],$link_vcrx);}
	
	$indx=$tabla.'_codigo';
	$indx_sql='create unique index '.$indx.' on '.$tabla0.'(';
	$indx_sql.=$tabla.'_codigo';
	$indx_sql.=')';
	exeindx($indx,$indx_sql,$link_vcrx);
	
	$indx=$tabla.'_descri';
	$indx_sql='create index '.$indx.' on '.$tabla0.'(';
	$indx_sql.=$tabla.'_descri,';
	$indx_sql.=$tabla.'_codigo';
	$indx_sql.=')';
	exeindx($indx,$indx_sql,$link_vcrx);

	$indx=$tabla.'_tipo';
	$indx_sql='create index '.$indx.' on '.$tabla0.'(';
	$indx_sql.=$tabla.'_tipo,';
	$indx_sql.=$tabla.'_codigo';
	$indx_sql.=')';
// 	exeindx($indx,$indx_sql,$link_vcrx);

	if($tabla=='enti')
	{
		$indx=$tabla.'_cedularuc';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_cedularuc';
		$indx_sql.=')';
// 		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_zsub';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_zsub,';
		$indx_sql.=$tabla.'_codigo';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}

	if($tabla=='item')
	{
		$indx=$tabla.'_ean';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_ean';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_mdlo';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_ean';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_rfer';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_ean';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_lsub';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_lsub,';
		$indx_sql.=$tabla.'_codigo';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);

	}

	if($tabla=='user' or $tabla=='usrt')
	{
		$indx=$tabla.'_email';
		$indx_sql='create unique index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_email';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_cedula';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_cedula';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}


	if($tabla=='docu')
	{
		$indx=$tabla.'_tabla';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_tabla,';
		$indx_sql.=$tabla.'_codigo';
		$indx_sql.=')';
// 		exeindx($indx,$indx_sql,$link_vcrx);
	}

	if($tabla=='clor')
	{
		$indx=$tabla.'_hexa';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_hexa';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}
	
	if($tabla=='imgi')
	{
		$indx=$tabla.'_item';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_item';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}
	
	if($tabla=='teki')
	{
		$indx=$tabla.'_item';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_item,';
		$indx_sql.=$tabla.'_dato';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}
	
	if($tabla=='imge')
	{
		$indx=$tabla.'_enti';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_enti';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}
	
	if($tabla=='jwtv')
	{
		$indx=$tabla.'_lang';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_lang';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
		$indx=$tabla.'_categ0';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_categ0';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
		$indx=$tabla.'_categ1';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_categ1';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}
	
	if($tabla=='flgh')
	{
		$indx=$tabla.'_fecha';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_fecha';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
		$indx=$tabla.'_vuelo';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_vuelo';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
		$indx=$tabla.'_airl';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_airl';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
		$indx=$tabla.'_ciudad1';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_ciudad1';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
		$indx=$tabla.'_ciudad2';
		$indx_sql='create index '.$indx.' on '.$tabla0.'(';
		$indx_sql.=$tabla.'_ciudad2';
		$indx_sql.=')';
		exeindx($indx,$indx_sql,$link_vcrx);
	}
	
}

function vrsetindx1($tabla='')
{
	include('../_cfg/config.php');
	include('php_session.php');
	
	$tabla1=$tabla.'1';
	$sql_indx='show index from '.$tabla1.' where Key_name!="PRIMARY" and Seq_in_index=1';
	$res_indx=msql_query($sql_indx,$link_vcrx);
	
	while($aso_indx=msql_fetch_assoc($res_indx))
	{msql_query('alter table '.$tabla1.' drop index '.$aso_indx['Key_name'],$link_vcrx);}

	$tabla2=$tabla.'2';
	$sql_indx='show index from '.$tabla2.' where Key_name!="PRIMARY" and Seq_in_index=1';
	$res_indx=msql_query($sql_indx,$link_vcrx);

	while($aso_indx=msql_fetch_assoc($res_indx))
	{msql_query('alter table '.$tabla2.' drop index '.$aso_indx['Key_name'],$link_vcrx);}
	
// 	$indx=$tabla.'_idnum1';
// 	$indx_sql='create index '.$indx.' on '.$tabla1.'(idnum1)';
// 	exeindx($indx,$indx_sql,$link_vcrx);

	$indx=$tabla.'_docu';
	$indx_sql='create index '.$indx.' on '.$tabla1.'(docu,numero,enti)';
// 	$indx_sql='create index '.$indx.' on '.$tabla1.'(docu)';
	exeindx($indx,$indx_sql,$link_vcrx);

	$indx=$tabla.'_numero';
	$indx_sql='create index '.$indx.' on '.$tabla1.'(numero,docu)';
// 	$indx_sql='create index '.$indx.' on '.$tabla1.'(numero)';
	exeindx($indx,$indx_sql,$link_vcrx);
	
	$indx=$tabla.'_enti';
	$indx_sql='create index '.$indx.' on '.$tabla1.'(enti,docu,numero)';
// 	$indx_sql='create index '.$indx.' on '.$tabla1.'(enti)';
	exeindx($indx,$indx_sql,$link_vcrx);
	
	$indx=$tabla.'_fecha';
	$indx_sql='create index '.$indx.' on '.$tabla1.'(fecha,docu,numero)';
// 	$indx_sql='create index '.$indx.' on '.$tabla1.'(fecha)';
	exeindx($indx,$indx_sql,$link_vcrx);

	$indx=$tabla.'_idfrom';
	$indx_sql='create index '.$indx.' on '.$tabla1.'(idfrom,mdfrom)';
// 	$indx_sql='create index '.$indx.' on '.$tabla1.'(idfrom)';
	exeindx($indx,$indx_sql,$link_vcrx);

	$indx=$tabla.'_mdfrom';
	$indx_sql='create index '.$indx.' on '.$tabla1.'(mdfrom,idfrom)';
// 	$indx_sql='create index '.$indx.' on '.$tabla1.'(mdfrom)';
	exeindx($indx,$indx_sql,$link_vcrx);

	$indx=$tabla.'_idnum2';
	$indx_sql='create index '.$indx.' on '.$tabla2.'(idnum2,iddet)';
// 	$indx_sql='create index '.$indx.' on '.$tabla2.'(idnum2,iddet)';
	exeindx($indx,$indx_sql,$link_vcrx);

	$indx=$tabla.'_iddet';
	$indx_sql='create index '.$indx.' on '.$tabla2.'(iddet,idnum2)';
// 	$indx_sql='create index '.$indx.' on '.$tabla2.'(iddet)';
// 	exeindx($indx,$indx_sql,$link_vcrx);

  if(mb_stristr('vtas.clie',$tabla))
  {
		if(mb_stristr('ecgl',$cfg_empr))
    {
      $indx=$tabla.'_itnum';
      $indx_sql='create index '.$indx.' on '.$tabla2.'(idnum2,itnum)';
      exeindx($indx,$indx_sql,$link_vcrx);
    }
  }

	
// 	echo '****/'.$cfg_empr;
// 	if($cfg_empr=='jwib')
	
	if(mb_stristr('jwib.',$tabla))
	{
		$indx=$tabla.'_cong';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(cong,fecha,docu)';
// 		$indx_sql='create index '.$indx.' on '.$tabla1.'(cong)';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_fechar';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(fechar,cong,docu)';
// 		$indx_sql='create index '.$indx.' on '.$tabla1.'(fechar)';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_nombre1';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(nombre1)';
		exeindx($indx,$indx_sql,$link_vcrx);
	}

	if(mb_stristr('cont.comp',$tabla))
	{
	}
	
	if(mb_stristr('comp',$tabla))
	{
		$indx=$tabla.'_ptoemi';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(ptoe)';
		exeindx($indx,$indx_sql,$link_vcrx);

	}

	if(mb_stristr('vtas',$tabla))
	{
		$indx=$tabla.'_ptov';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(ptov,ptoe)';
		exeindx($indx,$indx_sql,$link_vcrx);

	}

	if(mb_stristr('caja',$tabla))
	{
		$indx=$tabla.'_caja';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(caja,ptoe)';
		exeindx($indx,$indx_sql,$link_vcrx);

	}

	if(mb_stristr('bcos',$tabla))
	{
		$indx=$tabla.'_ctab';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(ctab,ptoe)';
		exeindx($indx,$indx_sql,$link_vcrx);

	}

	if(mb_stristr('inve',$tabla))
	{
		$indx=$tabla.'_bode';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(bode,ptoe)';
		exeindx($indx,$indx_sql,$link_vcrx);

	}


	if(mb_stristr('cont.comp',$tabla))
	{
		$indx=$tabla.'_ctas';
		$indx_sql='create index '.$indx.' on '.$tabla2.'(ctas,idnum2)';
		exeindx($indx,$indx_sql,$link_vcrx);

          $indx=$tabla.'_cair';
		$indx_sql='create index '.$indx.' on '.$tabla2.'(cair,ctas)';
		exeindx($indx,$indx_sql,$link_vcrx);
	}


	if(mb_stristr('vtas.comp.inve.clie.prov.carr.prod.guia',$tabla))
	{
		$indx=$tabla.'_item';
		$indx_sql='create index '.$indx.' on '.$tabla2.'(item)';
		exeindx($indx,$indx_sql,$link_vcrx);
	}

	if(mb_stristr('caba.caja.bcos.dxco.dxpa,retp.retc',$tabla))
	{
		$indx=$tabla.'_docum';
		$indx_sql='create index '.$indx.' on '.$tabla2.'(docum,numer)';
// 		$indx_sql='create index '.$indx.' on '.$tabla2.'(docum)';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_numer';
		$indx_sql='create index '.$indx.' on '.$tabla2.'(numer,docum)';
// 		$indx_sql='create index '.$indx.' on '.$tabla2.'(numer)';
		exeindx($indx,$indx_sql,$link_vcrx);
	}

	if(mb_stristr('clie.prov.role.caja.bcos',$tabla))
	{
		$indx=$tabla.'_claveacc';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(claveacc)';
		exeindx($indx,$indx_sql,$link_vcrx);
	}	
	
	if(mb_stristr('vtas.comp.rete.retc.retp.retb.guia',$tabla))
	{
		$indx=$tabla.'_claveacc';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(claveacc)';
		exeindx($indx,$indx_sql,$link_vcrx);

		$indx=$tabla.'_autornum';
		$indx_sql='create index '.$indx.' on '.$tabla1.'(autornum)';
		exeindx($indx,$indx_sql,$link_vcrx);
	}
	
	
}

function vrsetlist($tabla="")
{
	include('../_cfg/config.php');
	if($tabla=='user' and $cfg_empr=='pyme')	
	{	
		$tabla0=$tabla.'0';

// 		msql_query('update user0 set user_acce=1 where user_email like "vicore@%"',$link_vcrx);
// 		msql_query('update user0 set user_vida=1 where user_email like "vicore@%"',$link_vcrx);
// 		msql_query('update user0 set user_mmae=1 where user_email like "vicore@%"',$link_vcrx);
// 		msql_query('update user0 set user_estu=1 where user_email like "vicore@%"',$link_vcrx);
// 		msql_query('update user0 set user_dpub=1 where user_email like "vicore@%"',$link_vcrx);
// 		msql_query('update user0 set user_vari=1 where user_email like "vicore@%"',$link_vcrx);
// 		msql_query('update user0 set user_asig=1 where user_email like "vicore@%"',$link_vcrx);
// 		msql_query('update user0 set user_asem=1 where user_email like "vicore@%"',$link_vcrx);
	}	

	if($tabla=='user' and $cfg_empr=='jwib')	
	{	
		$tabla0=$tabla.'0';

		msql_query('update user0 set user_acce=1 where user_email like "vicore@%"',$link_vcrx);
		msql_query('update user0 set user_vida=1 where user_email like "vicore@%"',$link_vcrx);
		msql_query('update user0 set user_mmae=1 where user_email like "vicore@%"',$link_vcrx);
		msql_query('update user0 set user_estu=1 where user_email like "vicore@%"',$link_vcrx);
		msql_query('update user0 set user_dpub=1 where user_email like "vicore@%"',$link_vcrx);
		msql_query('update user0 set user_vari=1 where user_email like "vicore@%"',$link_vcrx);
		msql_query('update user0 set user_asig=1 where user_email like "vicore@%"',$link_vcrx);
		msql_query('update user0 set user_asem=1 where user_email like "vicore@%"',$link_vcrx);
	}	
	
	if($tabla=='docu' and $cfg_empr=='jwib')	
	{	
		msql_query('delete from docu0',$link_vcrx);

		msql_query('insert into docu0(docu_codigo,docu_descri)value("DPU1","REUNION PUBLICA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("DPU2","DISCURSANTES")',$link_vcrx);

		msql_query('insert into docu0(docu_codigo,docu_descri)value("EATA","ATALAYA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("ELIB","ESTUDIO LIBRO")',$link_vcrx);

		msql_query('insert into docu0(docu_codigo,docu_descri)value("CART","CARTAS")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("VARI","VARIOS")',$link_vcrx);

		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM11","VIDA Y MINISTERIO")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM21","TESOROS DE LA BIBLIA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM41","NUESTRA VIDA CRISTIANA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM19","ORACION")',$link_vcrx);
	//  	msql_query('insert into docu0(docu_codigo,docu_descri)value("VM99","ORACION FINAL")',$link_vcrx);

		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM30","LECTURA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM31","1ra CONVERSACION")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM32","REVISITA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("VM33","CURSO BIBLICO")',$link_vcrx);


	// 	msql_query('insert into docu0(docu_codigo,docu_descri)value("AF10","ARREGLOS FIJOS")',$link_vcrx);
	//  	msql_query('insert into docu0(docu_codigo,docu_descri)value("AF11","CUENTAS")',$link_vcrx);
	//  	msql_query('insert into docu0(docu_codigo,docu_descri)value("AF11","SONIDO")',$link_vcrx);
	//  	msql_query('insert into docu0(docu_codigo,docu_descri)value("AF11","LITERATURA")',$link_vcrx);
	//  	msql_query('insert into docu0(docu_codigo,docu_descri)value("AF11","REVISTAS")',$link_vcrx);

		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS10","ARREGLOS SEMANALES")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS11","PRESIDENCIA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS12","PLATAFORMA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS13","MICROFONOS")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS14","ACOMODADORES")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS15","PARQUEO")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS16","SEGURIDAD")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("AS19","ASEO")',$link_vcrx);

		msql_query('insert into docu0(docu_codigo,docu_descri)value("ASIS","ASISTENCIA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("REU1","ASISTENCIA")',$link_vcrx);
		msql_query('insert into docu0(docu_codigo,docu_descri)value("REU2","ASISTENCIA")',$link_vcrx);

	// 	msql_query('insert into docu0(docu_codigo,docu_descri)value("AE10","ARREGLOS ESPECIALES")',$link_vcrx);

		msql_query('update docu0 set docu_tabla="jwib"',$link_vcrx);
		msql_query('update docu0 set docu_tabla="jwiv" where docu_codigo like "VARI"',$link_vcrx);
	// 	msql_query('update docu0 set docu_tabla="jwiv" where docu_codigo like "CART"',$link_vcrx);
	}

  
//   echo 'AQUIIII';
	if($tabla=='menu')
	{	
		msql_query('delete from menu0 ',$link_vcrx);
		msql_query('delete from menu0 where menu_codigo like "00%"',$link_vcrx);
    
		msql_query('insert into menu0(menu_codigo,menu_descri) value("00","INICIO")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("0099","Iniciar Sesión")',$link_vcrx);
    
//     echo 'OTRO';
//     echo msql_error($link_vcrx);

    msql_query('insert into menu0(menu_codigo,menu_descri) value("10","CONTABLE")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("1010","Registros")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("1020","Consultas")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("1030","INFORMES")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("103010","Contabilidad")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("103011","Caja")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("103012","Bancos")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("103014","Inventarios")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("103040","Ventas")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("103050","Compras")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("103090","Nominas")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("1050","SRI")',$link_vcrx);

    msql_query('insert into menu0(menu_codigo,menu_descri) value("99","SISTEMAS")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("9910","Sistemas 1")',$link_vcrx);
		msql_query('insert into menu0(menu_codigo,menu_descri) value("9920","Sistemas 2")',$link_vcrx);
    
    menu_tipo();
    
    
//   $sql_menu='update menu0 set menu_tipo="-"';
//   $res_menu=msql_query($sql_menu,$link_vcrx);

//   $sql_menu='update menu0 set menu_tipo="M" where length(trim(menu_codigo))=2';
//   $sql_menu='select * from menu0 where length(trim(menu_codigo))=2"';
//   $res_menu=msql_query($sql_menu,$link_vcrx);
//     echo msql_error($link_vcrx);

//   $sql_menu='update menu0 set menu_tipo="O" where length(trim(menu_codigo))=4"';
//   $res_menu=msql_query($sql_menu,$link_vcrx);

//   $sql_menu ='update menu0 set menu_tipo="S" where length(trim(menu_codigo))=4" ';
//   $sql_menu.=' and substring(menu_codigo,1,4) in(select substring(menu_codigo,1,4) as opciones from menu0 where length(trim(menu_codigo))=6)';
//   $res_menu=msql_query($sql_menu,$link_vcrx);

//   $sql_menu='update menu0 set menu_tipo="O" where length(trim(menu_codigo))=6"';
//   $res_menu=msql_query($sql_menu,$link_vcrx);

    
    
    
	}

  
	if($tabla=='asub' and mb_stristr('tfle.demo',$cfg_empr))
	{	
// 		msql_query('delete from asub0',$link_vcrx);
    
// 		msql_query('insert into asub0(asub_codigo,asub_descri) valuAAXX-AN-0000","PLANEACION")',$link_vcrx);
//     {    
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-0000","AUDITORIA EXTERNA")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1010","PLAN - COMPRENSION DEL TRABAJO")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1020","PLAN - CONOCIMIENTO DEL NEGOCIO")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1030","PLAN - REUNION INICIAL")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1040","PLAN - MATERIALIDAD")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1050","PLAN - RESUMEN ACTAS Y CONTRATOS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1060","PLAN - CONTROLES GENERALES Y FRAUDE")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1070","PLAN - REVISIÓN ANALÍTICA INICIAL")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1080","PLAN - ENTENDIMIENTO DEL CLIENTE")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1090","PLAN - CARTA DE INDEPENDENCIA")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1100","PLAN - COMPROBACIÓN DE SALDOS DE APERTURA")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1110","PLAN - EVALUACIÓN DEL CONTROL INTERNO")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1120","PLAN - IDENTIFICACIÓN Y EVALUACIÓN DE RIESGO")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1130","PLAN - ESTRATEGIA DE AUDITORÍA")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-1140","PLAN - IDENTIFICACIÓN Y EVALUACIÓN DE CUENTAS SIGNIFICATIVAS")',$link_vcrx);
    
// //     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-0000","PROCEDIMIENTOS SUSTANTIVOS")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2010","PSUS - EFECTIVO Y EQUIVALENTES")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2020","PSUS - INVERSIONES PERMANENTES")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2030","PSUS - CUENTAS X COBRAR")',$link_vcrx);
// 		msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2040","PSUS - INVENTARIO")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2050","PSUS - IMPUESTOS CORRIENTES")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2060","PSUS - IMPUESTOS DIFERIDOS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2070","PSUS - PROPIEDAD PLANTA Y EQUIPO")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2080","PSUS - PAGOS Y ANTICIPOS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2090","PSUS - OBLIGACIONES FINANCIERAS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2100","PSUS - NÓMINA")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2110","PSUS - PASIVOS, PROVISIONES Y CONTINGENCIAS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2120","PSUS - PATRIMONIO")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2130","PSUS - INGRESOS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-2140","PSUS - COSTO / GASTOS")',$link_vcrx);

//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-3010","ESTIMACIONES CONTABLES")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-3020","HOJA DE AJUSTES PROPUESTA A LA GERENCIA")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-3030","REVI. DE HECHOS POSTERIORES")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-3040","REVI. DE PRUEBAS SUSTANTIVAS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-3050","REVI. DE PRUEBAS DE PLANIFICACION")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-3060","REVI. DE PAPELES DE TRABAJO")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-3070","INF. DE AUDITORÍA EXTERNA")',$link_vcrx);
    
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-4010","ELAB. INF. COMUNICACION DE DEFICIENCIA DEL CONTROL INTERNO - ICDCI")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-4020","ELAB. INF. PREVENCIÓN DE LAVADO DE ACTIVOS - IPLA")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-4030","ELAB. INF. SUPLEMENTARIO DEL MERCADO DE VALORES - ISMV")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-4040","ELAB. INF. CUMPLIMIENTO TRIBUTARIO - ICT")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-4050","ELAB. INFO. PORTAL SIC - IPSIC")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-4060","ELAB. INFO. PORTAL MERCADO VALORES - IPMV")',$link_vcrx);
    
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-5010","REVI. INF. DE COMUNICACIÓN DE DEFICIENCIA DEL CONTROL INTERNO - ICDCI")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-5020","REVI. INF. DE PREVENCIÓN DE LAVADO DE ACTIVOS - IPLA")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-5030","REVI. INF. SUPLEMENTARIO DEL MERCADO DE VALORES - ISMV")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-5040","REVI. INF. DE CUMPLIMIENTO TRIBUTARIO - ICT")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-5050","CARGA INFO. PORTAL SIC - IPS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-5060","CARGA INFO. PORTAL MERCADO VALORES - IPMV")',$link_vcrx);

//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-6010","PREP. CARPETAS FISICAS")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-6020","PREP. CARPETAS MAGNETICAS")',$link_vcrx);

//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-8010","REVI. CONTROL CALIDAD")',$link_vcrx);
//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-8020","REUNION DE TRABAJO")',$link_vcrx);

//     msql_query('insert into asub0(asub_codigo,asub_descri) value("AAXX-9010","OTROS")',$link_vcrx);
//     }
    
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-0000","AUDITORIA INTERNA")',$link_vcrx);
    
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-4010","ELAB. PAPELES PLANIFICACION AUDIT.INTERNA")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-4020","ELAB. PRUEBAS SUSTANTIVAS AUDIT.INTERNA")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-4030","ELAB. INF. AUDIT. INTERNA")',$link_vcrx);

    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-5010","REVI. PAPELES PLANIFICACION AUDIT.INTERNA")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-5020","REVI. PRUEBAS SUSTANTIVAS AUDIT.INTERNA")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-5030","REVI. INF. AUDIT. INTERNA")',$link_vcrx);

    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-8010","REVI. CONTROL CALIDAD")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-8020","REUNION TRABAJO")',$link_vcrx);
    
    msql_query('insert into asub0(asub_codigo,asub_descri) value("AAII-9010","OTROS")',$link_vcrx);

    
    msql_query('insert into asub0(asub_codigo,asub_descri) value("PPCC-0000","PROCEDIMIENTOS CONVENIDOS")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("PPCC-1010","IMPLEMENTACION NIIF")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("PPCC-1020","REVI. CONTROL INVENTARIOS")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("PPCC-1030","AUDITORIA FORENSE")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("PPCC-8020","REUNION DE TRABAJO")',$link_vcrx);
    msql_query('insert into asub0(asub_codigo,asub_descri) value("PPCC-9010","OTROS")',$link_vcrx);
    

    
    
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-0000","Asesoría Contable")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1010","Registro de comprobantes de venta, retención y documentos complementarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1020","Pago a proveedores ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1030","Cobros a clientes ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1040","Elaboración de conciliaciones bancarias")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1050","Reposiciçón de caja chica")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1060","Control de Inventarios ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1070","Conciliación de cuentas contables vs. anexos extrAACCtables")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-1080","Análisis y revisión de estados financieros")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-4050","Preparación y/o elaboración de información para carga al portal de la SIC")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-5050","Carga de información al portal de la SIC")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6010","Otros registros contables")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6210","Declaración Retención en la fuente I.R. (103)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6220","Declaración Impuesto Valor Agregado  IVA (104)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6230","Declaracion del impuesto a los consumos especiales (ICE)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6240","Declaración Impuesto a la renta (101)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6250","Otras declaraciones y/o formularios tributarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6410","Anexo transaccional simplificado (ATS)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6420","Anexo a los consumos especiales (ICE)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6430","Anexo de dividendos (ADI)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6440","Anexo de Accionistas, Partícipes, Socios, Miembros de Directorio y Administradores (APS)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6450","Anexo de incentivos y beneficios tributarios del COPCI")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6460","Anexo de activos y pasivos de sociedades y establecimientos permanentes")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6470","Otros anexos tributarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6610","Generación y revisión de planillas IESS")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6620","Elaboración de roles de pago ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6630","Elaboración de avisos de entrada y salida")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6640","Registro de formularios de remuneraciones adicionales ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6650","Otras actividades laborales")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6660","Preparación de documentación física")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6680","Registro y archivo de gastos personales")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-6690","Elaboración de anexo de gastos personales")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("AACC-9010","Otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-0000","Restructuración de sistemas de costos ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-1010","Elaboración de papeles de planificación")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-1020","Revisión de papeles de planificación")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-1030","Levantamiento de Información")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-1040","Desarrollo de proceso de costeo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-1050","Revisión del proceso de costeo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-1060","Elaboracion de informes de avances del proceso de costeo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-1070","Elaboracion de informe final del proceso de costeo ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-8010","Revisión de informe del proceso de costos")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RESC-9010","Otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-0000","Reclamo del Impuesto a la Salida de Divisas (ISD)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-1010","Revisión y análisis de la Información")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-1020","Elaboración y presentación de escritos ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-1030","Preparación de documentación digital")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-1040","Preparación de documentación física")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-8010","Revisión de los procesos de reclamo de ISD")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RISD-9010","Otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-0000","Reclamo de Impuesto al Valor Agregado (IVA)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-1010","Revisión y análisis de la Información")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-1020","Elaboración y presentación de escritos ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-1030","Preparación de documentación digital")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-1040","Preparación de documentación física")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-8010","Revisión de los procesos de reclamo de IVA")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIVA-9010","otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-0000","Reclamo de Impuesto a la renta (I.R.)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-1010","Revisión y análisis de la Información")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-1020","Elaboración y presentación de escritos ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-1030","Preparación de documentación digital")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-1040","Preparación de documentación física")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-8010","Revisión de los procesos de reclamo de I.R.")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("RIRT-9010","otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-0000","Patrocinio en glosas y/o notificaciones tributarias")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-1010","Revisión y análisis de la Información")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-1020","Elaboración y presentación de escritos ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-1030","Preparación de documentación digital")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-1040","Preparación de documentación física")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-8010","Revisión de los procesos de notificaciones tributarias")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("PGNT-9010","otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-0000","Servicios Tributarios, societarios y otros")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1010","Absolución de consultas")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1020","Planeación tributaria")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1030","Revisión de impuestos en general")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1040","Elaboración y revisión de conciliación tributaria")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1050","Elaboración de formulario 101 y otros")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1060","Declaración Patrimonial")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1070","Elaboración de Informes precio de transferencia")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-1080","Elaboración Aumento de Capital")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-8010","Revisión de Estados Financieros")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("STSO-9010","Otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("SEMI-0000","Seminarios y capacitaciones")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("SEMI-1010","Gestión de ventas")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("SEMI-1020","Reserva de salones")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("SEMI-1030","Coordinación y organización")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("SEMI-1040","Facturación de seminarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("SEMI-1050","Gestión de cobranzas")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("SEMI-9010","Otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-0000","Contabilidad")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1010","Ruta para mensajeria, revision de correos y otros")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1020","Registro de comprobantes de venta, retención y documentos complementarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1030","Facturación")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1040","Pago a proveedores ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1050","Cobros a clientes")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1060","Elaboración de conciliaciones bancarias")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1070","Reposición de caja chica")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-1080","Conciliación de cuentas contables vs. anexos extrAACCtables")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-2010","Análisis y revisión de estados financieros")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-2020","Preparación y/o elaboración de información para carga al portal de la SIC")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-2030","Carga de información al portal de la SIC")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-2040","Otros registros contables")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-2050","Elaboración de flujos")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-2060","Revisión de Flujos")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-2070","Presentación de flujos a gerencia")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-3010","Declaración Retención en la fuente I.R. (103)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-3020","Declaración Retención en la fuente IVA (104)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-3030","Declaración Impuesto a la renta (101)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-3040","Otras declaraciones y/o formularios tributarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-4010","Anexo transaccional simplificado (ATS)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-4020","Anexo de dividendos (ADI)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-4030","Anexo de Accionistas, Partícipes, Socios, Miembros de Directorio y Administradores (APS)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-4040","Anexo de incentivos y beneficios tributarios del COPCI")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-4050","Otros anexos tributarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-4060","Generación y revisión de planillas IESS")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-5010","Elaboración de roles de pago ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-5020","Elaboración de avisos de entrada y salida")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-5030","Registro de formularios de remuneraciones adicionales ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-5040","Otras actividades laborales")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-5050","Control de Presupuesto")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-5060","Preparación de documentación física")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-8020","Reunión de trabajo")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("CONT-9010","Otros")',$link_vcrx);

msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-0000","Otros Administrativos")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1010","Elaboración de Propuestas ")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1020","Elaboración de Contratos")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1030","Gestión de ventas")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1040","Análisis de información para gestión de ventas")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1050","Seminarios")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1060","Reuniones")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1070","Gestiones publicitarias (social media)")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-1080","Faltas y permisos")',$link_vcrx);
msql_query('insert into asub0(asub_codigo,asub_descri) value("OOAA-9010","Otros")',$link_vcrx);

    
    
msql_query('update asub0 set asub_lsub="AUDI-" where asub_codigo like "AAEE%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="AUDI-" where asub_codigo like "AAII%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="AUDI-" where asub_codigo like "PROC%"',$link_vcrx);
    
msql_query('update asub0 set asub_lsub="OUTS-" where asub_codigo like "AACC%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="OUTS-" where asub_codigo like "RESC%"',$link_vcrx);
    
msql_query('update asub0 set asub_lsub="IMPT-" where asub_codigo like "RISD%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="IMPT-" where asub_codigo like "RIVA%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="IMPT-" where asub_codigo like "RIRT%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="IMPT-" where asub_codigo like "PGNT%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="IMPT-" where asub_codigo like "STSO%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="IMPT-" where asub_codigo like "SEMI%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="IMPT-" where asub_codigo like "SEMI%"',$link_vcrx);

msql_query('update asub0 set asub_lsub="ADMI-" where asub_codigo like "CONT%"',$link_vcrx);
msql_query('update asub0 set asub_lsub="ADMI-" where asub_codigo like "OOAA%"',$link_vcrx);
    
    
    
    
    
    
  }  
  
  
	if($tabla=='orat')	
	{	
		msql_query('delete from orat0',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("00","-")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("01","Lectura Precisa")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("02","Articulacion Clara")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("03","Pronunciacion Correcta")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("04","Fluidez")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("05","Uso adecuado de las pausas")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("06","Enfasis acertado")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("07","Enfasis en las ideas principales")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("08","Volumen adecuado")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("09","Modulacion")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("10","Entusiasmo")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("11","Afecto y otros sentimientos")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("12","Ademanes y expresiones faciales")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("13","Contacto visual")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("14","Naturalidad")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("15","Buena apariencia")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("16","Aplomo")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("17","Buen uso del microfono")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("18","Uso de la Biblia para contestar preguntas")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("19","Animar a emplear la Biblia")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("20","Introduccion eficaz a los textos biblicos")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("21","Lectura de textos biblicos con el enfasis debido")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("22","Empleo correcto de los textos biblicos")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("23","Resaltar el valor practico")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("24","Buen uso del vocabulario")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("25","Uso de un bosquejo")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("26","Desarrollo logico de la informacion")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("27","Improvisar las palabras a partir del bosquejo")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("28","Tono converscional")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("29","Calidad de la voz")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("30","Interes en los oyentes")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("31","Respeto a los demas")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("32","Expresarse con conviccion")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("33","Hablar con tacto, pero con firmeza")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("34","Ser edificante y positivo")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("35","Repeticion para dar enfasis")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("36","Desarrollo del tema")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("37","Destacar los puntos principales")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("38","Introducciones que despiertan interes")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("39","Conclusiones eficaces")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("40","Exactitud en las afirmaciones")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("41","Claridad en la exposicion")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("42","Exposicion instructiva para el auditorio")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("43","Utilizar la informacion asignada")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("44","Uso eficaz de las preguntas")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("45","Ilustraciones instructivas")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("46","Ilustraciones basadas en situaciones conocidas")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("47","Uso eficaz de medios visuales")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("48","Argumentacion que induce a razonar")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("49","Solidez en la argumentacion")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("50","Llegar al corazon")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("51","Atenerse al tiempo y distribuirlo bien")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("52","Exhortacion eficaz")',$link_vcrx);
		msql_query('insert into orat0(orat_codigo,orat_descri) value("53","Animar y fortalecer al auditorio")',$link_vcrx);
		
	}	

	if($tabla=='bsqj')	
	{	
		msql_query('delete from bsqj0',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("_DE","-","DISCURSO ESPECIAL")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("_VS","-","VISITA S.C.")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("_A1","-","ASAMBLEA DIA ESPECIAL")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("_AC","-","ASAMBLEA DE CIRCUITO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("_AR","-","ASAMBLEA REGIONAL")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("000","-","-")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("001","¿Conoce usted bien a Dios?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("002","¿Ser a usted sobreviviente de los últimos días?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("003","Sirvamos con la organización unificada de Jehová","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("004","El mundo que nos rodea prueba que Dios existe","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("005","Un afectuoso ambiente familiar","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("006","El Diluvio del día de Noé tiene significado para nosotros","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("007","La misericordia, cualidad dominante  de los cristianos verdaderos ","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("008","No viva para su yo, sino para hacer la voluntad de Dios","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("009","Nunca permitamos que se nos embote el oído","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("010","Conduciéndonos honradamente en todo tiempo","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("011","‘No ser parte del mundo’.. a semejanza de Cristo","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("012","El respeto a la autoridad nos protege","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("013","Viendo el sexo y el matrimonio como los ve Dios","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("014","Un pueblo limpio honra a Jehová","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("015","Como cristianos, nos interesamos por los demás","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("016","Siga estrechando su relación con Dios","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("017","Que todo cuanto tengamos glorifique a Dios","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("018","¿Realmente hace usted de Jehová su plaza fuerte?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("019","Su futuro.. ¿como puede saberse?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("020","¿Es tiempo de que Dios gobierne el mundo?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("021","¿Cómo puede usted colaborar con el Reino de Dios?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("022","¿Está usted contento con las provisiones de Jehová?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("023","La vida sí tiene propósito","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("024","Lo que puede hacer por nosotros la gobernación de Dios","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("025","Resistamos el espíritu del mundo","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("026","¿Lo considera Dios a usted personalmente importante?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("027","Como iniciar bien el matrimonio","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("028","Muestre respeto y amor en su matrimonio","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("029","Responsabilidades y galardones de los padres","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("030","La comunicación en la familia y con Dios","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("031","¿Cómo se puede ser feliz a pesar de tener hambre?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("032","Como enfrentarse a las inquietudes de la vida","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("033","¿Qué hay tras el espíritu de rebelión?","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("034","¿Está usted “marcado” para sobrevivir?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("035","¿Puede usted vivir para siempre? ¿Lo lograra?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("036","¿Es esta vida todo cuanto hay?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("037","Decida ahora a favor de la gobernación divina","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("038","Obren prudentemente a medida que se acerca el fin","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("039","¡Seguros de la victoria divina!","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("040","Lo que encierra el futuro cercano","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("041","“Estense quietos y vean la salvación de Jehová”","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("042","Como le afecta a usted el Reino de Dios","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("043","¿Cumple usted con los requisitos de Dios?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("044","Siga buscando el Reino de Dios","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("045","Siga el camino a la vida","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("046","Mantenga firme su confianza hasta el fin","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("047","‘Tenga fe en las buenas nuevas’","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("048","La prueba de mantener lealtad cristiana","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("049","Una Tierra limpia: ¿vivir a usted para verla?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("050","¿Cómo tomar a usted sus decisiones?","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("051","¿Está transformando la verdad su vida?","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("052","¿Quién es su Dios?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("053","¿Concuerda su forma de pensar con la de Dios?","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("054","Edifique su fe en el Hacedor del hombre","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("055","¿Qué clase de nombre se está haciendo con Dios?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("056","Hacía el nuevo mundo bajo el acaudillamiento de Cristo","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("057","Aguantemos la persecución","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("058","¿Cómo debemos servir a Dios?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("059","Se siega lo que se siembra","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("060","¿Qué propósito tiene su vida?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("061","¿En las promesas de quién confía usted?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("062","El único remedio para la humanidad enferma","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("063","¿Tiene usted espíritu evangelizador?","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("064","¿Amadores del placer, o amadores de Dios?","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("065","Como hallar honra y gozo en el ministerio de Dios","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("066","Trabaje como esclavo para el amo de la siega","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("067","Dedique tiempo a meditar en asuntos espirituales","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("068","¿Guarda usted rencor o perdona?","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("069","Renovemos el espíritu de abnegación","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("070","Cifre su confianza en Jehová","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("071","Como mantenerse despierto espiritualmente","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("072","El amor identifica a la congregación cristiana verdadera","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("073","Adquiera un corazón de sabiduría","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("074","Los ojos de Jehová están sobre nosotros","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("075","¿Reconoce usted la soberanía de Jehová  en su vida personal?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("076","¿Pueden los principios bíblicos ayudarnos a afrontar los problemas de nuestro tiempo?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("077","Siga la senda de la hospitalidad","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("078","Sirva a Jehová con corazón gozoso","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("079","La amistad con Dios o la amistad con el mundo: ¿cual escogerá usted?","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("080","¿Cifra usted su esperanza en la ciencia, o en la Biblia?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("081","¿Quiénes llenan los requisitos para ser ministros de Dios?","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("082","Jehová y Cristo: ¿son ellos parte de una trinidad?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("083","El tiempo de juicio para la religión","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("084","¿Escapará usted de lo que le espera a este mundo?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("085","Buenas nuevas en un mundo violento","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("086","Las oraciones que Dios escucha","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("087","¿Qué relación tiene usted con Dios?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("088","¿Por qué regir su vida por las normas bíblicas?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("089","¡Venga, el que tenga sed de la verdad!","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("090","¡Esfuércese por lo que realmente es vida!","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("091","La presencia y la gobernación del Mesías","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("092","El papel de la religión en los asuntos del mundo","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("093","¿Es Dios el causante de los desastres naturales?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("094","La religión verdadera satisface las necesidades  de la sociedad humana","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("095","La Biblia ante las practicas espiritistas","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("096","El fin de la religión falsa esta cerca","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("097","Permanezcamos sin culpa en medio de una generación torcida","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("098","No dejemos que este mundo nos contamine","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("099","Por qué se puede confiar en la Biblia","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("100","La amistad verdadera con Dios y con el prójimo","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("101","Jehová, el Magnifico Creador","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("102","Prestemos atención a la Palabra profética","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("103","Usted puede experimentar gozo al servir a Dios","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("104","Padres, ¿están edificando con materiales incombustibles?","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("105","Como obtener consuelo en toda tribulación","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("106","Dios dar a su merecido a los que arruinan la Tierra","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);	
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("107","Mantengamos una buena conciencia en un mundo pecador","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("108","Superemos el temor al futuro","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("109","El Reino de Dios esta cerca","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("110","La familia feliz es la que pone a Dios en primer lugar","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("111","¿Qué logra la curación de las naciones?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("112","Como mostrar amor en un mundo desaforado","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("113","¿Cómo pueden los jóvenes hacer frente a la crisis actual?","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("114","Aprecie las maravillas de la creación de Dios","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("115","Como protegernos de las trampas de Satanás","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("116","Sea sabio al elegir sus compañías","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("117","Como vencer el mal con el bien","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("118","Veamos a los jóvenes como los ve Jehová","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("119","Por qué es provechoso que los cristianos  se mantengan separados del mundo","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("120","Razones para someterse hoy al gobierno de Dios","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("121","Una hermandad mundial rescatada de la calamidad","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("122","¿De qué fuente vendrá la paz mundial?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("123","Por qué deben ser diferentes los cristianos","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("124","Razones para confiar en el origen divino de la Biblia","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("125","Por qué necesita la humanidad un rescate","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("126","¿Quién puede ser salvo?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("127","¿Qué nos sucede cuando morimos?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("128","¿Es el infierno realmente un lugar de tormento?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("129","¿Es la Trinidad una enseñanza bíblica?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("130","La Tierra existirá para siempre","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("131","¿De verdad existe el Diablo?","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("132","La resurrección: una victoria sobre la muerte","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("133","¿Importa lo que creemos sobre el origen de los seres humanos?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("134","¿Deben guardar los cristianos un día de descanso?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("135","La santidad de la vida y la sangre","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("136","¿Aprueba Dios las imágenes en la adoración?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("137","¿De verdad tuvieron lugar los milagros de la Biblia?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("138","Vivamos con buen juicio en un mundo perverso","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("139","Sabiduría piadosa en un mundo de orientación científica","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("140","Jesucristo: el nuevo gobernante de la Tierra","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("141","¿Cuándo dejar a de gemir la creación humana?","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("142","Por qué refugiarse en Jehová","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("143","Confiemos en el Dios de todo consuelo","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("144","Una congregación leal bajo la dirección de Cristo","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("145","¿Quién es como Jehová nuestro Dios?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("146","Utilice la educación para alabar a Jehová","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("147","Confíe en el poder salvador de Jehová","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("148","¿Ve usted la vida como la ve Dios?","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("149","¿Anda usted con Dios?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("150","¿Hasta qué grado es Dios real para usted?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("151","Jehová es “una altura segura” para su pueblo","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("152","¿Cuándo y por qué vendrá el verdadero Armagedón?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("153","Tengamos muy presente el día “inspirador de temor”","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("154","El gobierno del hombre, pesado en la balanza","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("155","¿Ha llegado la hora del juicio de Babilonia?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("156","¿Es el Día del Juicio un tiempo de temor, o de esperanza?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("157","Como adornan los cristianos la enseñanza divina","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("158","Seamos valerosos y confiemos en Jehová","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("159","Como encontrar seguridad en un mundo peligroso","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("160","Protejamos nuestra identidad cristiana","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("161","¿Por qué sufrió y murió Jesús?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("162","Liberados de un mundo de oscuridad","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("163","¿Por qué temer al Dios verdadero?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("164","¿Sigue Dios ejerciendo la soberanía sobre la Tierra?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("165","¿A qué valores concedemos m as importancia?","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("166","Afrontemos el futuro con fe y valor","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("167","Actuemos con sabiduría en este mundo insensato","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("168","Como sentirse seguro en este mundo turbulento","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("169","¿Por qué debemos guiarnos por la Biblia?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("170","¿Quién es el único que puede gobernar bien  a la humanidad?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("171","Usted puede disfrutar de la vida en paz  ahora y para siempre","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("172","¿Qué posición tenemos ante Dios?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("173","¿Le importa a Dios que religión tengamos?","RELIGION /ADORACION")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("174","¿Quién será digno de entrar en el nuevo mundo de Dios?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("175","¿Qué pruebas demuestran la autenticidad de la Biblia?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("176","¿Cuándo tendremos verdadera paz y seguridad?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("177","¿A quién podemos acudir en tiempos de angustia?","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("178","Andemos en el camino de la integridad","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("179","Rechace las fantasías mundanales; busque las realidades  del Reino","NO SER PARTE DEL MUNDO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("180","¿Por qué debe ser real para nosotros la esperanza  de la resurrección?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("181","¿Faltará menos de lo que usted cree?","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("182","¿Qué está haciendo por nosotros el Reino de Dios?","REINO / PARAISO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("183","Alejemos la mirada de lo que es inútil","NO SER PARTE DEL MUNDO")',$link_vcrx);		
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("184","Es la muerte el final de todo?","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("185","Influye la verdad en su vida?","NORMAS Y CUALIDADES CRISTIANAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("186","Unidos al Feliz Pueblo de Dios","PRUEBAS / PROBLEMAS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("187","¿Cómo es posible que un Dios de amor permita lamaldad?","BIBLIA/DIOS ")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("188","¿Ha depositado su confianza en Jehová?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("189","Andar con Dios nos beneficia ahora y para siempre","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("190","Una Familia Unida y Feliz Para Siempre","EVANGELIZACION / MINISTERIO")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("191","Cómo vencen al mundo la fe y el amor","NO SER PARTE DEL MUNDO")',$link_vcrx);		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("192","¿Anda usted por el camino que lleva a la vida eterna?","FE /ESPIRITUALIDAD")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("193","Pronto se nos librará de la angustia mundial","ULTIMOS DIAS /JUICIO DE DIOS")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("194","","")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("195","","")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("196","","")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("197","","")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("198","","")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("199","","")',$link_vcrx);
		msql_query('insert into bsqj0(bsqj_codigo,bsqj_descri,bsqj_tema) value("200","","")',$link_vcrx);
		
	}

	if($tabla=='modu')
	{
		msql_query('delete from modu0',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("MAES","MAESTROS")',$link_vcrx);

		msql_query('insert into modu0(modu_codigo,modu_descri)value("VTAS","VENTAS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("COMP","COMPRAS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("CAJA","CAJA")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("BCOS","BANCOS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("INVE","INVENTARIO")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("PROD","PRODUCCION")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("NOMI","NOMINAS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("RETE","RETENCIONES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("RETC","RETENCIONES CLIENTES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("RETP","RETENCIONES PROVEEDORES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("RETB" "RETENCIONES IMPUESTOS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("AFIJ","ACTIVO FIJO")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("CONT","CONTABILIDAD")',$link_vcrx);
//     msql_query('insert into modu0(modu_codigo,modu_descri)value("ACCE","ACCESOS")',$link_vcrx);
    msql_query('insert into modu0(modu_codigo,modu_descri)value("ATVD","ACTIVIDADES")',$link_vcrx);
    msql_query('insert into modu0(modu_codigo,modu_descri)value("PLAN","PLANIFICACION")',$link_vcrx);

		msql_query('insert into modu0(modu_codigo,modu_descri)value("CLIE","CLIENTES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("PROV","PROVEEDORES")',$link_vcrx);
// 		msql_query('insert into modu0(modu_codigo,modu_descri)value("ITEM","CLIENTES")',$link_vcrx);

		msql_query('insert into modu0(modu_codigo,modu_descri)value("CXCO","CUENTAS X COBRAR")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("CXPA","CUENTAS X PAGAR")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("DXCO","DOCS X COBRAR")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("DXPA","DOCS X PAGAR")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("FLUE","FLUJO EFECTIVO")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("SRI1","S.R.I.")',$link_vcrx);

		msql_query('insert into modu0(modu_codigo,modu_descri)value("ASUB","ACTIVIDADES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("HOJA","HOJA DE PEDIDOS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("CARR","CARRITO DE COMPRAS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("IMGI","IMAGENES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("TEKI","DATOS TECNICOS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("IMPO","IMPORTACIONES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri)value("CAPR","CARTA APROBACION")',$link_vcrx);
	}

// STATUS
	if($tabla=='stat')
	{	
		msql_query('insert into stat0(stat_codigo,stat_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into stat0(stat_codigo,stat_descri)value("A","APROBADO")',$link_vcrx);
		msql_query('insert into stat0(stat_codigo,stat_descri)value("R","PROCESADO")',$link_vcrx);

		msql_query('insert into stat0(stat_codigo,stat_descri)value("F","FACTURADO")',$link_vcrx);
		msql_query('insert into stat0(stat_codigo,stat_descri)value("E","ENTREGADO")',$link_vcrx);
		msql_query('insert into stat0(stat_codigo,stat_descri)value("P","PENDIENTE")',$link_vcrx);
		
		msql_query('insert into stat0(stat_codigo,stat_descri)value("I","INACTIVO")',$link_vcrx);
		msql_query('insert into stat0(stat_codigo,stat_descri)value("O","ANULADO")',$link_vcrx);
		msql_query('insert into stat0(stat_codigo,stat_descri)value("X","ELIMINADO")',$link_vcrx);

	}

	if($tabla=='zsub')
	{	
    
// 		msql_query('delete from zsub0',$link_vcrx);
		msql_query('insert into zsub0(zsub_codigo,zsub_descri)value("-","NO APLICA")',$link_vcrx);
		msql_query('insert into zsub0(zsub_codigo,zsub_descri)value("GENE-","GENERAL")',$link_vcrx);
		msql_query('insert into zsub0(zsub_codigo,zsub_descri)value("GENE-GENE","GENERAL-GENERAL")',$link_vcrx);
		msql_query('insert into zsub0(zsub_codigo,zsub_descri)value("RELA-","RELACIONADOS")',$link_vcrx);
		msql_query('insert into zsub0(zsub_codigo,zsub_descri)value("EXTE-","EXTERIOR")',$link_vcrx);
    
		msql_query('update zsub0 set zsub_ctaxcob="1010205" where zsub_ctaxcob="" or zsub_ctaxcob is null',$link_vcrx);
		msql_query('update zsub0 set zsub_ctaxcob="1010206" where (zsub_ctaxcob="" or zsub_ctaxcob is null) and zsub_codigo like "RELA%"',$link_vcrx);
	}

	if($tabla=='lsub')
	{	
		msql_query('insert into lsub0(lsub_codigo,lsub_descri)value("-","NO APLICA")',$link_vcrx);
		msql_query('insert into lsub0(lsub_codigo,lsub_descri)value("GENE-","GENERAL")',$link_vcrx);
		msql_query('insert into lsub0(lsub_codigo,lsub_descri)value("SERV-","SERVICIO")',$link_vcrx);
	  msql_query('insert into lsub0(lsub_codigo,lsub_descri)value("REEM-","REEMBOLSO")',$link_vcrx);
	}

	if($tabla=='tpro')
	{	
		msql_query('insert into tpro0(tpro_codigo,tpro_descri)value("-","NO APLICA")',$link_vcrx);
		msql_query('insert into tpro0(tpro_codigo,tpro_descri)value("BIEN","BIENES")',$link_vcrx);
		msql_query('insert into tpro0(tpro_codigo,tpro_descri)value("SERV","SERVICIOS")',$link_vcrx);
		msql_query('insert into tpro0(tpro_codigo,tpro_descri)value("RECU","RECURSOS")',$link_vcrx);
		msql_query('insert into tpro0(tpro_codigo,tpro_descri)value("REEM","REEMBOLSOS")',$link_vcrx);
		msql_query('insert into tpro0(tpro_codigo,tpro_descri)value("EXTE","EXTERIOR")',$link_vcrx);
// 		msql_query('insert into tpro0(tpro_codigo,tpro_descri)value("BANC","BANCO")',$link_vcrx);
		msql_query('update tpro0 set tpro_ctaxpag="2010301" where tpro_ctaxpag="" or tpro_ctaxpag is null',$link_vcrx);
		msql_query('update tpro0 set tpro_ctaapro="1010403" where tpro_ctaapro="" or tpro_ctaapro is null',$link_vcrx);
	}

	if($tabla=='pais')
	{
		msql_query('insert into pais0(pais_codigo,pais_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("ECUA","ECUADOR")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("COLO","COLOMBIA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("PERU","PERU")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("EEUU","ESTADOS UNIDOS")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("ITAL","ITALIA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("RDOM","REPUBLICA DOMINICANA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("ALEM","ALEMANIA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("ARGE","ARGENTINA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("BRAS","BRASIL")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("CANA","CANADA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("CHIL","CHILE")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("ESPA","ESPAÑA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("CHIN","CHINA")',$link_vcrx);
		msql_query('insert into pais0(pais_codigo,pais_descri)value("KORE","KOREA")',$link_vcrx);
		
		{
      msql_query('update pais0 set pais_tlfn="593"  where pais_codigo="ECUA"');
      msql_query('update pais0 set pais_tlfn="1"  where pais_codigo="EEUU"');
    }

    {
      msql_query('update pais0 set pais_descri="AMERICAN SAMOA", pais_ats="016" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BOUVET ISLAND", pais_ats="074" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ARGENTINA", pais_ats="101" where pais_codigo="ARGE"');
      msql_query('update pais0 set pais_descri="BOLIVIA", pais_ats="102" where pais_codigo="BOLI"');
      msql_query('update pais0 set pais_descri="BRASIL", pais_ats="103" where pais_codigo="BRAS"');
      msql_query('update pais0 set pais_descri="CANADA", pais_ats="104" where pais_codigo="CANA"');
      msql_query('update pais0 set pais_descri="COLOMBIA", pais_ats="105" where pais_codigo="COLO"');
      msql_query('update pais0 set pais_descri="COSTA RICA", pais_ats="106" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CUBA", pais_ats="107" where pais_codigo="CUBA"');
      msql_query('update pais0 set pais_descri="CHILE", pais_ats="108" where pais_codigo="CHIL"');
      msql_query('update pais0 set pais_descri="ANGUILA", pais_ats="109" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ESTADOS UNIDOS", pais_ats="110" where pais_codigo="EEUU"');
      msql_query('update pais0 set pais_descri="GUATEMALA", pais_ats="111" where pais_codigo="GUAT"');
      msql_query('update pais0 set pais_descri="HAITI", pais_ats="112" where pais_codigo="HAIT"');
      msql_query('update pais0 set pais_descri="HONDURAS", pais_ats="113" where pais_codigo="HOND"');
      msql_query('update pais0 set pais_descri="JAMAICA", pais_ats="114" where pais_codigo="JAMA"');
      msql_query('update pais0 set pais_descri="MALVINAS  ISLAS", pais_ats="115" where pais_codigo="MALV"');
      msql_query('update pais0 set pais_descri="MEXICO", pais_ats="116" where pais_codigo="MEXI"');
      msql_query('update pais0 set pais_descri="NICARAGUA", pais_ats="117" where pais_codigo="NICA"');
      msql_query('update pais0 set pais_descri="PANAMA", pais_ats="118" where pais_codigo="PANA"');
      msql_query('update pais0 set pais_descri="PARAGUAY", pais_ats="119" where pais_codigo="PARA"');
      msql_query('update pais0 set pais_descri="PERU", pais_ats="120" where pais_codigo="PERU"');
      msql_query('update pais0 set pais_descri="PUERTO RICO", pais_ats="121" where pais_codigo="PRIC"');
      msql_query('update pais0 set pais_descri="REPUBLICA DOMINICANA", pais_ats="122" where pais_codigo="RDOM"');
      msql_query('update pais0 set pais_descri="EL SALVADOR", pais_ats="123" where pais_codigo="SALV"');
      msql_query('update pais0 set pais_descri="TRINIDAD Y TOBAGO", pais_ats="124" where pais_codigo="TTOB"');
      msql_query('update pais0 set pais_descri="URUGUAY", pais_ats="125" where pais_codigo="URUG"');
      msql_query('update pais0 set pais_descri="VENEZUELA", pais_ats="126" where pais_codigo="VENE"');
      msql_query('update pais0 set pais_descri="CURAZAO", pais_ats="127" where pais_codigo="CURA"');
      msql_query('update pais0 set pais_descri="BAHAMAS", pais_ats="129" where pais_codigo="BAHA"');
      msql_query('update pais0 set pais_descri="BARBADOS", pais_ats="130" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GRANADA", pais_ats="131" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUYANA", pais_ats="132" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SURINAM", pais_ats="133" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ANTIGUA Y BARBUDA", pais_ats="134" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BELICE", pais_ats="135" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="DOMINICA", pais_ats="136" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SAN CRISTOBAL Y NEVIS", pais_ats="137" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SANTA LUCIA", pais_ats="138" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SAN VICENTE Y LAS GRANAD.", pais_ats="139" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ANTILLAS HOLANDESAS", pais_ats="140" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ARUBA", pais_ats="141" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BERMUDA", pais_ats="142" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUADALUPE", pais_ats="143" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUYANA FRANCESA", pais_ats="144" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLAS CAIMAN", pais_ats="145" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLAS VIRGENES (BRITANICAS)", pais_ats="146" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="JOHNSTON ISLA", pais_ats="147" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MARTINICA", pais_ats="148" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MONTSERRAT ISLA", pais_ats="149" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TURCAS  Y CAICOS ISLAS", pais_ats="151" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="VIRGENES", pais_ats="ISLAS(NORT.AMER.)", pais_ats="152" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ALBANIA", pais_ats="201" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ALEMANIA", pais_ats="202" where pais_codigo="ALEM"');
      msql_query('update pais0 set pais_descri="AUSTRIA", pais_ats="203" where pais_codigo="AUST"');
      msql_query('update pais0 set pais_descri="BELGICA", pais_ats="204" where pais_codigo="BELG"');
      msql_query('update pais0 set pais_descri="BULGARIA", pais_ats="205" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ALBORAN Y PEREJIL", pais_ats="207" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="DINAMARCA", pais_ats="208" where pais_codigo="DINA"');
      msql_query('update pais0 set pais_descri="ESPAÑA", pais_ats="209" where pais_codigo="ESPA"');
      msql_query('update pais0 set pais_descri="FRANCIA", pais_ats="211" where pais_codigo="FRAN"');
      msql_query('update pais0 set pais_descri="FINLANDIA", pais_ats="212" where pais_codigo="FINL"');
      msql_query('update pais0 set pais_descri="REINO UNIDO", pais_ats="213" where pais_codigo="INGL"');
      msql_query('update pais0 set pais_descri="GRECIA", pais_ats="214" where pais_codigo="GREC"');
      msql_query('update pais0 set pais_descri="PAISES BAJOS (HOLANDA)", pais_ats="215" where pais_codigo="HOLA"');
      msql_query('update pais0 set pais_descri="HUNGRIA", pais_ats="216" where pais_codigo="HUNG"');
      msql_query('update pais0 set pais_descri="IRLANDA", pais_ats="217" where pais_codigo="IRLA"');
      msql_query('update pais0 set pais_descri="ISLANDIA", pais_ats="218" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ITALIA", pais_ats="219" where pais_codigo="ITAL"');
      msql_query('update pais0 set pais_descri="LUXEMBURGO", pais_ats="220" where pais_codigo="LUXE"');
      msql_query('update pais0 set pais_descri="MALTA", pais_ats="221" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NORUEGA", pais_ats="222" where pais_codigo="NORU"');
      msql_query('update pais0 set pais_descri="POLONIA", pais_ats="223" where pais_codigo="POLO"');
      msql_query('update pais0 set pais_descri="PORTUGAL", pais_ats="224" where pais_codigo="PORT"');
      msql_query('update pais0 set pais_descri="RUMANIA", pais_ats="225" where pais_codigo="RUMA"');
      msql_query('update pais0 set pais_descri="SUECIA", pais_ats="226" where pais_codigo="SUEC"');
      msql_query('update pais0 set pais_descri="SUIZA", pais_ats="227" where pais_codigo="SUIZ"');
      msql_query('update pais0 set pais_descri="CANARIAS  ISLAS", pais_ats="228" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="UCRANIA", pais_ats="229" where pais_codigo="UCRA"');
      msql_query('update pais0 set pais_descri="RUSIA", pais_ats="230" where pais_codigo="RUSI"');
      msql_query('update pais0 set pais_descri="YUGOSLAVIA", pais_ats="231" where pais_codigo="YUGO"');
      msql_query('update pais0 set pais_descri="ANDORRA", pais_ats="233" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="LIECHTENSTEIN", pais_ats="234" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MONACO", pais_ats="235" where pais_codigo="MONA"');
      msql_query('update pais0 set pais_descri="SAN MARINO", pais_ats="237" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="VATICANO (SANTA SEDE)", pais_ats="238" where pais_codigo="VATI"');
      msql_query('update pais0 set pais_descri="GIBRALTAR", pais_ats="239" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BELARUS", pais_ats="241" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BOSNIA Y HERZEGOVINA", pais_ats="242" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CROACIA", pais_ats="243" where pais_codigo="CROA"');
      msql_query('update pais0 set pais_descri="ESLOVENIA", pais_ats="244" where pais_codigo="ESLO"');
      msql_query('update pais0 set pais_descri="ESTONIA", pais_ats="245" where pais_codigo="ESTO"');
      msql_query('update pais0 set pais_descri="GEORGIA", pais_ats="246" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GROENLANDIA", pais_ats="247" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="LETONIA", pais_ats="248" where pais_codigo="LETO"');
      msql_query('update pais0 set pais_descri="LITUANIA", pais_ats="249" where pais_codigo="LITU"');
      msql_query('update pais0 set pais_descri="MOLDOVA", pais_ats="250" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MACEDONIA", pais_ats="251" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ESLOVAQUIA", pais_ats="252" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLAS FAROE", pais_ats="253" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="FRENCH SOUTHERN TERRITORIES", pais_ats="260" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="AFGANISTAN", pais_ats="301" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ARABIA SAUDITA", pais_ats="302" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MYANMAR (BURMA)", pais_ats="303" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CAMBOYA", pais_ats="304" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="COREA NORTE", pais_ats="306" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TAIWAN (CHINA)", pais_ats="307" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="FILIPINAS", pais_ats="308" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="INDIA", pais_ats="309" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="INDONESIA", pais_ats="310" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="IRAK", pais_ats="311" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="IRAN (REPUBLICA ISLAMICA)", pais_ats="312" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISRAEL", pais_ats="313" where pais_codigo="ISRA"');
      msql_query('update pais0 set pais_descri="JAPON", pais_ats="314" where pais_codigo="JAPO"');
      msql_query('update pais0 set pais_descri="JORDANIA", pais_ats="315" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="KUWAIT", pais_ats="316" where pais_codigo="KWAI"');
      msql_query('update pais0 set pais_descri="LAOS", pais_ats="REP. POP. DEMOC.", pais_ats="317" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="LIBANO", pais_ats="318" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MALASIA", pais_ats="319" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MONGOLIA (MANCHURIA)", pais_ats="321" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="PAKISTAN", pais_ats="322" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SIRIA", pais_ats="323" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TAILANDIA", pais_ats="325" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BAHREIN", pais_ats="327" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BANGLADESH", pais_ats="328" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BUTAN", pais_ats="329" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="COREA DEL SUR", pais_ats="330" where pais_codigo="CORS"');
      msql_query('update pais0 set pais_descri="CHINA POPULAR", pais_ats="331" where pais_codigo="CHIN"');
      msql_query('update pais0 set pais_descri="CHIPRE", pais_ats="332" where pais_codigo="CHIP"');
      msql_query('update pais0 set pais_descri="EMIRATOS ARABES UNIDOS", pais_ats="333" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="QATAR", pais_ats="334" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MALDIVAS", pais_ats="335" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NEPAL", pais_ats="336" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="OMAN", pais_ats="337" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SINGAPUR", pais_ats="338" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SRI LANKA (CEILAN)", pais_ats="339" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="VIETNAM", pais_ats="341" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="YEMEN", pais_ats="342" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLAS HEARD Y MCDONALD", pais_ats="343" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BRUNEI DARUSSALAM", pais_ats="344" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TURQUIA", pais_ats="346" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="AZERBAIJAN", pais_ats="347" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="KAZAJSTAN", pais_ats="348" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="KIRGUIZISTAN", pais_ats="349" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TAJIKISTAN", pais_ats="350" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TURKMENISTAN", pais_ats="351" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="UZBEKISTAN", pais_ats="352" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="PALESTINA", pais_ats="353" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="HONG KONG", pais_ats="354" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MACAO", pais_ats="355" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ARMENIA", pais_ats="356" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MONTENEGRO", pais_ats="382" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BURKINA FASO", pais_ats="402" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ARGELIA", pais_ats="403" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BURUNDI", pais_ats="404" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CAMERUN", pais_ats="405" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CONGO", pais_ats="406" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ETIOPIA", pais_ats="407" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GAMBIA", pais_ats="408" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUINEA", pais_ats="409" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="LIBERIA", pais_ats="410" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MADAGASCAR", pais_ats="412" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MALAWI", pais_ats="413" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MALI", pais_ats="414" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MARRUECOS", pais_ats="415" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MAURITANIA", pais_ats="416" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NIGERIA", pais_ats="417" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ZIMBABWE (RHODESIA)", pais_ats="419" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SENEGAL", pais_ats="420" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SUDAN", pais_ats="421" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SUDAFRICA  (CISKEI)", pais_ats="422" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SIERRA LEONA", pais_ats="423" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TANZANIA", pais_ats="425" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="UGANDA", pais_ats="426" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ZAMBIA", pais_ats="427" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ÅLAND ISLANDS", pais_ats="428" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BENIN", pais_ats="429" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BOTSWANA", pais_ats="430" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="REPUBLICA CENTROAFRICANA", pais_ats="431" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="COSTA DE MARFIL", pais_ats="432" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CHAD", pais_ats="433" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="EGIPTO", pais_ats="434" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GABON", pais_ats="435" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GHANA", pais_ats="436" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUINEA-BISSAU", pais_ats="437" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUINEA ECUATORIAL", pais_ats="438" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="KENIA", pais_ats="439" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="LESOTHO", pais_ats="440" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MAURICIO", pais_ats="441" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MOZAMBIQUE", pais_ats="442" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MAYOTTE", pais_ats="443" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NIGER", pais_ats="444" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="RWANDA", pais_ats="445" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SEYCHELLES", pais_ats="446" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SAHARA OCCIDENTAL", pais_ats="447" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SOMALIA", pais_ats="448" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SANTO TOME Y PRINCIPE", pais_ats="449" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SWAZILANDIA", pais_ats="450" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TOGO", pais_ats="451" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TUNEZ", pais_ats="452" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ZAIRE", pais_ats="453" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ANGOLA", pais_ats="454" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CABO VERDE", pais_ats="456" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="COMORAS", pais_ats="458" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="DJIBOUTI", pais_ats="459" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NAMIBIA", pais_ats="460" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ERITREA", pais_ats="463" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MOROCCO", pais_ats="464" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="REUNION", pais_ats="465" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SANTA ELENA", pais_ats="466" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="JERSEY", pais_ats="499" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="AUSTRALIA", pais_ats="501" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NUEVA ZELANDA", pais_ats="503" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SAMOA OCCIDENTAL", pais_ats="504" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="FIJI", pais_ats="506" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="PAPUA NUEVA GUINEA", pais_ats="507" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TONGA", pais_ats="508" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="PALAO  (BELAU)  ISLAS", pais_ats="509" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="KIRIBATI", pais_ats="510" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MARSHALL ISLAS", pais_ats="511" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MICRONESIA", pais_ats="512" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NAURU", pais_ats="513" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SALOMON  ISLAS", pais_ats="514" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TUVALU", pais_ats="515" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="VANUATU", pais_ats="516" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUAM", pais_ats="517" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLAS COCOS (KEELING)", pais_ats="518" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLAS COOK", pais_ats="519" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLAS NAVIDAD", pais_ats="520" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="MIDWAY ISLAS", pais_ats="521" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NIUE ISLA", pais_ats="522" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NORFOLK ISLA", pais_ats="523" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NUEVA  CALEDONIA", pais_ats="524" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="PITCAIRN", pais_ats="ISLA", pais_ats="525" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="POLINESIA FRANCESA", pais_ats="526" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TIMOR DEL ESTE", pais_ats="529" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TOKELAI", pais_ats="530" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="WAKE ISLA", pais_ats="531" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="WALLIS Y FUTUNA", pais_ats="ISLAS", pais_ats="532" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SAAII BARTHELEMY", pais_ats="590" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ECUADOR", pais_ats="593" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="AGUAS INTERNACIONALES", pais_ats="594" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ALTO VOLTA", pais_ats="595" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="BIELORRUSIA", pais_ats="596" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="COTE DÍVOIRE", pais_ats="597" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="CYPRUS", pais_ats="598" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="REPUBLICA CHECA", pais_ats="599" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="FALKLAND ISLANDS", pais_ats="600" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="LATVIA", pais_ats="601" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="LIBIA", pais_ats="602" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="NORTHERN MARIANA ISL", pais_ats="603" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ST. PIERRE AND MIQUE", pais_ats="604" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SYRIAN ARAB REPUBLIC", pais_ats="605" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TERRITORIO ANTARTICO BRITANICO", pais_ats="606" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="TERRITORIO BRITANICO OCEANO IN", pais_ats="607" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="SERBIA", pais_ats="688" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="GUERNSEY", pais_ats="831" where pais_codigo=""');
      msql_query('update pais0 set pais_descri="ISLE OF MAN", pais_ats="833" where pais_codigo=""');
		}

		
	}


  
	if($tabla=='airl')
  {
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("XL","Latam Airlines","1")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("XL","Latam Airlines","1")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("9V","Avior Airlines","1")',$link_vcrx);
    
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AA","American Airlines","1")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CO","Continental Airlines, Inc.","5")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("DL","Delta Airlines Inc.","6")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("N7","National Airlines Inc.","7")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("NW","Northwest Airlines Inc.","12")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AC","Air Canada","14")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("TW","Trans World Airlines Inc.","15")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("UA","United Airlines, Inc.","16")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CP","Canadian Airlines International","18")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LH","Lufthansa Cargo AG","20")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("5U","L.A.D.E. Líneas Aéreas del Estado","22")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("FX","Federal Express Corp. (FedEX)","23")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AS","Alaska Airlines Inc.","27")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("7Q","Air Venezuela L.T.A.","28")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("US","US Airways","37")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("RG","Varig S.A.","42")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AR","Aerolíneas Argentinas","44")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LA","Lan Chile S.A.","45")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("TP","TAP – Air Portugal","47")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CY","Cyprus Airways","48")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("DR","Mediterranean Air Service","49")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("OA","Olympic Airways","50")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LB","Lloyd Aero Boliviano (LAB)","51")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EI","Aer Lingus Cargo","53")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AZ","Alitalia – Linee Aeree Italiane","55")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AF","Air France","57")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("IC","Indian Airlines","58")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SB","Air Caledonie International","63")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("OK","CSA Cxech Airlines","64")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SV","Saudi Arabian Airlines","65")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("TM","LAM – Linhas Aereas Mocambique","68")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MJ","Lineas Aereas Privadas Argentinas","69")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("RB","Syrian Arab Airlines","70")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ET","Ethiopian Airlines Enterprise","71")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("GF","Gulf Air Company G.S.C.","72")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("IA","Iraqi Airways","73")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("KL","KLM Royal Dutch Airlines","74")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("IB","Iberia Líneas Aéreas de España","75")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ME","Middle East Airlines AirLiban","76")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MS","Egyptair","77")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PR","Philippine Airlines Inc.","79")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LO","LOT – Polish Airlines","80")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("QF","Qantas Airways Ltd.","81")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SN","SABENA","82")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SA","South African Airways","83")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SR","Swiss Air Transport Co. (Swissair)","85")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("NZ","Air New Zealand Ltd.","86")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("WT","Nigeria Airways Ltd.","87")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AN","Ansett Australia","90")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("DP","Air 2000 Ltd.","91")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("RK","Air Afrique","92")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("WG","Wasaya Airways Ltd.","93")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("6A","AVIACSA","95")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("IR","Iran Air","96")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AI","Air India Ltd.","98")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JQ","Air Jamaican Express Ltd.","100")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("FI","Icelandair","108")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("L9","Air Mali S.A.","109")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AO","Aviación Y Comercio S.A. (Aviaco)","110")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CK","China Cargo Airlines Ltd.","112")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LY","EL AL Israel Airlines Ltd.","114")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JU","Jugoslovenski Aerotransporr (JAT)","115")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SK","Scandinavian Airlines System (SAS)","117")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("DT","TAAG Linhas Aereas de Angola","118")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AH","Air Algerie","124")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("BA","British Airways P.L.C.","125")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MP","Martinair Holland N.V.","129")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("UK","KLM uk Ltd.","130")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JL","Japan Airlines Company","131")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MX","Mexicana de Aviación","132")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LR","Lineas Aereas Costarricenses","133")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AV","Avianca","134")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("VT","Air Tahiti","135")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CU","Cubana de Aviación S.A.","136")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("VX","Aerolíneas Centrales de Colombia","137")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("HG","Haiti International Airlines","138")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AM","Aeroméxico","139")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AU","Cielos del Sur/Austral Líneas Aéreas","143")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("UC","Ladeco S.A./Ladeco Airlines","145")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("AT","Royal Air Maroc","147")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LN","Jamahiriya Libyan Arab Airlines","148")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LG","Luxair","149")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("VH","Aeropostal Alas de Venezuela","152")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ES","DHL International E.C.","155")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EH","SAETA Soc Ecuatoriana de Ttes Aereos","156")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("QR","Qatar Airways (W.L.L.)","157")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ND","Airlink Limited","159")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CX","Cathay Pacific Airways","160")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PH","Polynesian Limited","162")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JP","Adria Airways","165")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("GE","Trans Asia Airways","170")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CV","Cargolux Airlines International","172")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("HA","Hawaiian Airlines","173")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MR","Air Mauritanie","174")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EK","Emirates","176")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("KE","Korean Air Lines Co. Ltd.","180")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("TY","Air Caledonie","190")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("TA","TACA International Airlines","202")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("NH","All Nippon Airways Co. Ltd.","205")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PL","Aeroperu","210")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PK","Pakistan International Airlines","214")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LH","Deutsche  Lufthansa AG","220")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("KU","Kuwait Airways","229")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CM","COPA","230")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MH","Malaysian Airlines System Berhad","232")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JD","Japan Air System Company","234")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("TK","Turkish Airlines","235")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("BD","British Midland Airways Ltd.","236")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("A4","Southern Winds S.A.","242")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("7F","Finnair Air","245")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("FJ","Air Pacific Ltd.","260")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EQ","TAME Linea Aerea Del Ecuador","269")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("FS","Servicios de Ttes Aereos Fueguinos","278")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("T2","Thai Air Cargo Co. Ltd.","284")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PU","PLUNA","286")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CI","China Airlines","297")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EU","Ecuatoriana de Aviación S.A.","341")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("VP","VASP","343")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("KM","Maersk Air","349")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("UN","Japan Transocean Air Co. Ltd.","353")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("HP","America West Airlines Inc.","401")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PO","Polair Air Cargo, Inc.","403")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JW","Arrow Air Inc.","404")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("5X","UPS","406")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ER","DHL Airways","423")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("D7","Dinar Lineas Aéreas S.A.","429")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("9E","Express Airlines, Inc.","430")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("5Z","Airfreight Express Ltd.","466")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("WO","World Airways","468")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ZV","Air Midwest","471")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("BN","Forward Air International Airlines","472")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("DH","Atlantic Coast Airlines/United Exp.","480")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("8G","Gulf & Caribbean Cargo","486")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EZ","Evergreen International Airlines","494")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("UC","LADECO Cargo","527")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ZN","Eagle Airlines Luftverkehrsges","528")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("A2","Cielos del Peru S.A.","529")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("E4","Aero Asia International Ltd.","532")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("LP","Lan Peru S.A.","544")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("BL","Pacific Airlines Co. Ltd.","550")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("FC","Falcon Express Cargo Airlines","553")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SU","Aeroflot","555")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EB","Emery Worldwide Airlines Inc.","591")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("3Q","China Yunnan Airlines","592")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("RS","Intercontinental de Aviación","608")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("HF","Hapag Lloyd Fluggesellschaft","617")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SQ","Singapore Airlines","618")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("F6","China National Aviation Corp.","619")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("TR","Transbrasil S.A. Linhas Aereas","653")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PE","Air Europe S.p.A.","667")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JK","Spanair S.A.","680")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CL","Lufthansa CityLine GmbH","683")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EG","Japan Asia Airways Co.Ltd.","688")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("PZ","TAM S.A.","692")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("BR","EVA Airways Corporation","695")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("5C","C.A.L. Cargo Airlines","700")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("VB","Maersk Air Ltd.","702")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JO","JALways Co. Ltd.","708")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("YU","Aerolíneas Dominicanas S.A.","725")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MF","Xiamen Airlines Company","731")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("EL","Air Nippon Co.","768")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("FM","Shangai Airlines","774")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("XW","China Xinhua Airlines","779")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MU","China Eastern Airlines","781")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CJ","China Northern Airlines","782")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("WH","China Northwest Airlines","783")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CZ","China Southern Airlines","784")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("SZ","China Southwest Airlines","785")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("XT","KLM Exel","824")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("GB","ABX Air, Inc.","832")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("MY","Aerotransportes Mas de Carga","865")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("KK","TAM Transportes Aereos Regionais","877")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ML","Olympic Aviation S.A.","898")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("N6","Aero Continente","929")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("KZ","Nippon Cargo Airlines","933")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("ZQ","Ansett New Zealand","941")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("VW","Transportes Aeromar","942")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("JJ","TAM Ttes. Aereos Meridionais","957")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("BX","Coast Air K.S.","970")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("D5","DHL Aero Expresso","992")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("UX","Air Europa Lineas Aereas","996")',$link_vcrx);
    msql_query('insert into airl0(airl_codigo,airl_descri,airl_prefijo) value("CA","Air China International Corp.","999")',$link_vcrx);

    msql_query('update airl0 set airl_prefijo=lpad(airl_prefijo,3,"0")',$link_vcrx);
    
  }
  
  
// *** TICE0'
	if($tabla=='tice')
	{
		msql_query('delete from tice0',$link_vcrx);
		msql_query('insert into tice0(tice_codigo,tice_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into tice0(tice_codigo,tice_descri)value("01","FACTURA")',$link_vcrx);
		msql_query('insert into tice0(tice_codigo,tice_descri)value("04","NOTA DE CREDITO")',$link_vcrx);
		msql_query('insert into tice0(tice_codigo,tice_descri)value("05","NOTA DE DEBITO")',$link_vcrx);
		msql_query('insert into tice0(tice_codigo,tice_descri)value("06","GUIA DE REMISION")',$link_vcrx);
		msql_query('insert into tice0(tice_codigo,tice_descri)value("07","COMPROBANTE DE RETENCION")',$link_vcrx);
	}

// *** TICO0'
	if($tabla=='tico')
	{	
		msql_query('delete from tico0',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("01","FACTURA")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("02","NOTA DE VENTA")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("03","LIQUID. COMPRA")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("04","NOTA CREDITO")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("05","NOTA DEBITO")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("06","")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("07","COMP.RETENCION")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("08","BOLETO.ENTRADA ESPECT.PUBLICO")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("09","TIKETS EMIT.MAQ.REGISTRADORAS")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("10","COMP.VTA. AUTOR. ART.13")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("11","PASAJE.EXPED. X EMPR.AVIACION")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("12","DOC.EMIT.X INST.FINANC.")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("13","DOC.EMTI.X CIAS.SEGUROS")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("14","COMP.EMIT.X EMPR.TELECOM.")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("15","COMP.VTA. EMIT. EXTERIOR")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("16","FUE O DAU")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("17","DUI DAS O DAU")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("18","DOCS. AUTOR. VTAS")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("19","COMP. PAGOS CUOTAS O APORTES")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("20","DOC.SERV.ADMIN. EMIT.X ESTADO")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("21","CARTA DE PORTE AEREO")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("22","RECAP")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("23","NOTA CREDITO TC")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("24","NOTA DEBITO TC")',$link_vcrx);
		msql_query('insert into tico0(tico_codigo,tico_descri)value("41","COMP.VTA.X REEMB.")',$link_vcrx);
	}


	if($tabla=='fpag')
	{
		msql_query('delete from fpag0',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("01","SIN UTIL SIST FINAN")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("02","CHEQUE PROPIO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("03","CHEQUE CERTIFICADO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("04","CHEQUE GERENCIA")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("05","CHEQUE EXTERIOR")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("06","DEBITO CUENTA")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("07","TRANS PROPIO BANCO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("08","TRANS OTRO BANCO NACIONAL")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("09","TRANS BANCO EXTERIOR")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("10","T/C NACIONAL")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("11","T/C INTERNACIONAL")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("12","GIRO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("13","DEP. EN CUENTA")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("14","ENDOSO DE INVERSION")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("15","COMPENSACION DE DEUDAS")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("16","TARJETA DE DEBITO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("17","DINERO ELECTRONICO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("18","TARJETA DE PREPAGO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("19","TARJETA DE CREDITO")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("20","OTROS CON UTIL SIST FINAN")',$link_vcrx);
		msql_query('insert into fpag0(fpag_codigo,fpag_descri)value("21","ENDOSO DE TITULOS")',$link_vcrx);

	}


	if($tabla=='tacr')
	{
		msql_query('delete from tacr0',$link_vcrx);
		msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("00","NO APLICA")',$link_vcrx);
		msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("01","AMERICAN EXPRESS")',$link_vcrx);
		msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("02","DINERS CLUB")',$link_vcrx);
		// msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("03","COMP.NET. ACT.FIJ. - SUST - CRED.TRIB.")',$link_vcrx);
		msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("04","MASTER CARD")',$link_vcrx);
		msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("05","VISA")',$link_vcrx);
		// msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("06","COMP.NET. INVENT. - SUST - CRED.TRIB.")',$link_vcrx);
		msql_query('insert into tacr0(tacr_codigo,tacr_descri)value("07","OTRA TARJETA")',$link_vcrx);
	}

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

	if($tabla=='caja')
	{
		msql_query('update bode0 set bode_ptoe=concat("001",substring(bode_codigo,2,3))',$link_vcrx);
	}

  if($tabla=='caja')
	{
		msql_query('insert into caja0(caja_codigo,caja_descri,caja_ptoe) value("C001","CAJA GENERAL","001001")',$link_vcrx);
		msql_query('insert into caja0(caja_codigo,caja_descri,caja_ptoe) value("C002","CAJA CHICA","001002")',$link_vcrx);
// 		msql_query('insert into caja0(caja_codigo,caja_descri,caja_ptoe) value("CHPF","CHEQUES POST-FECHADOS","001999")',$link_vcrx);
// 		msql_query('insert into caja0(caja_codigo,caja_descri,caja_ptoe) value("C100","CAJA GENERAL","001100")',$link_vcrx);
// 		msql_query('insert into caja0(caja_codigo,caja_descri,caja_ptoe) value("C200","CAJA CHICA","001200")',$link_vcrx);
// 		msql_query('insert into caja0(caja_codigo,caja_descri) value("K001","CAJA CHICA")',$link_vcrx);
// 		msql_query('update caja0 set caja_ptoe=concat("001",substring(caja_codigo,2,3))',$link_vcrx);
	}

	if($tabla=='ctab')
	{
		msql_query('insert into ctab0(ctab_codigo,ctab_descri,ctab_ptoe) value("B001","CTA.BANCARIA","001001")',$link_vcrx);
// 		msql_query('insert into ctab0(ctab_codigo,ctab_descri,ctab_ptoe) value("B100","CTA.BANCARIA","001100")',$link_vcrx);
// 		msql_query('update ctab0 set ctab_ptoe=concat("001",substring(ctab_codigo,2,3))',$link_vcrx);
	}
	
	
	if($tabla=='caba')
	{
		msql_query('insert into caba0(caba_codigo,caba_descri,caba_ptoe) value("C100","CAJA GENERAL","001100")',$link_vcrx);
		msql_query('insert into caba0(caba_codigo,caba_descri,caba_ptoe) value("B001","CTA.BANCARIA")',$link_vcrx);
// 		msql_query('insert into caba0(caba_codigo,caba_descri) value("000101","CAJA GENERAL")',$link_vcrx);
// 		msql_query('insert into caba0(caba_codigo,caba_descri) value("000201","CTA.BANCARIA")',$link_vcrx);
		
		// CABA
		{
			$sql_ctab='select * from ctab0 where ctab_codigo not like "-%" ';
			$res_ctab=msql_query($sql_ctab,$link_vcrx);
			while ($r_ctab=msql_fetch_assoc($res_ctab))
			{
				$sql_caba='insert into caba0(caba_codigo)value("'.$r_ctab['ctab_codigo'].'")';
				$res_caba=msql_query($sql_caba,$link_vcrx);
			}

			$sql_ctab='select * from caja0 where caja_codigo not like "-%" ';
			$res_ctab=msql_query($sql_ctab,$link_vcrx);
			while ($r_ctab=msql_fetch_assoc($res_ctab))
			{
				$sql_caba='insert into caba0(caba_codigo)value("'.$r_ctab['caja_codigo'].'")';
				$res_caba=msql_query($sql_caba,$link_vcrx);
			}

			$sql_caba='update caba0,ctab0 set caba_descri=ctab_descri,caba_ctacont=ctab_ctacont, caba_ptoe=ctab_ptoe where caba_codigo=ctab_codigo';
			$res_caba=msql_query($sql_caba,$link_vcrx);

			$sql_caba='update caba0,caja0 set caba_descri=caja_descri,caba_ctacont=caja_ctacont, caba_ptoe=caja_ptoe where caba_codigo=caja_codigo';
			$res_caba=msql_query($sql_caba,$link_vcrx);
		}
		
	}


	if($tabla=='bode')
	{
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("B001","GENERAL")',$link_vcrx);
		msql_query('insert into bode0(bode_codigo,bode_descri) value("001001","GENERAL")',$link_vcrx);
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("001101","WEB")',$link_vcrx);
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("B101","MERCANCIA")',$link_vcrx);
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("B201","CONSIGNACION")',$link_vcrx);
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("B301","MAT.PRIMA")',$link_vcrx);
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("B401","P.PROCESO")',$link_vcrx);
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("B501","P.TERMINADO")',$link_vcrx);
// 		msql_query('insert into bode0(bode_codigo,bode_descri) value("B801","HERRAMIENTAS")',$link_vcrx);
	}

	if($tabla=='proc')
	{
		msql_query('insert into proc0(proc_codigo,proc_descri) value("P001","PROCESO 1")',$link_vcrx);
		msql_query('insert into proc0(proc_codigo,proc_descri) value("P002","PROCESO 2")',$link_vcrx);
	}

	if($tabla=='modu' and $cfg_tipo=='pyme')	
	{	
	// 	msql_query('delete from modu0',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("CONT","CONTABILIDAD")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("VTAS","VENTAS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("CLIE","CLIENTES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("COMP","COMPRAS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("PROV","PROVEEDORES")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("CAJA","CAJA")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("BCOS","BANCOS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("PROD","PRODUCCION")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("INVE","INVENTARIOS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("NOMI","NOMINA")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("ACTI","ACTIVOS")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("CXCO","C.XCOBRAR")',$link_vcrx);
		msql_query('insert into modu0(modu_codigo,modu_descri) value("CXPA","C.XPAGAR")',$link_vcrx);
	}

	if($tabla=='docu')	
	{
		set_docu("AXU1","TRAN","acce","ACCESO X USUARIO");
		set_docu("AXU2","TRAN","acce","ACCESO X USUARIO");
	}

// 	if($tabla=='docu' and ($empr_codigo=='jw19'))	
	if($tabla=='docu' and $cfg_empr=='jw19')	
	{
// 		set_docu("ACT1","TRAN","acti","ACTIVIDAD");
		set_docu("ACT1","X");
		set_docu("ATVD","TRAN","acti","ACTIVIDAD");
// 		set_docu("ACT2","TRAN","acti","ACTIVIDAD");
  }  
  
	if($tabla=='docu' and ($cfg_tipo=='cele'or $cfg_tipo=='pyme'))	
	{
		set_docu("GR10","TRAN","guia","GUIA REMISION");
		set_docu("FC10","TRAN","vtas","FACTURA CLIENTE");
		set_docu("FC50","TRAN","vtas","N/DEBITO CLIENTE");
		set_docu("NC10","TRAN","vtas","N/C CLIENTE");
		set_docu("FP10","TRAN","comp","FACTURA PROVEEDOR");
		set_docu("RCLI","TRAN","retc","RETENCION CLIENTE");
		set_docu("RPRO","TRAN","retp","RETENCION PROVEEDOR");
// 		set_docu("RBCO","TRAN","retb","RETENCION BANCO");
		set_docu("RBCO","TRAN","retc","RETENCION BANCO");
// 		set_docu("RGTO","TRAN","retb","RETENCION GASTO");
    // retenciones al gasto
    
		set_docu("NP10","TRAN","comp","N/C PROVEEDOR");

// 		set_docu("SITE","MAES","item","SUB-ITEM");
// 	}
	
// 	if($tabla=='docu' and ($cfg_tipo=='pyme'))	
	{
		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("FC10","TRAN","vtas","FACTURA CLIENTE");
// 		set_docu("FC50","TRAN","vtas","NOTA/DEBITO CLIENTE");
// 		set_docu("FC11","TRAN","vtas","NOTA VENTA");
// 		set_docu("FC14","TRAN","vtas","NOTA VENTA");
		set_docu("NC10","TRAN","vtas","N/C CLIENTE");
    
		set_docu("FP10","TRAN","comp","FACTURA PROVEEDOR");
// 		set_docu("FP11","TRAN","comp","LIQ.COMPRA");
// 		set_docu("FP14","TRAN","comp","N/VENTA PROV.");
    
// 		set_docu("FP12","TRAN","comp","FACTURA PROVEEDOR DEL EXTERIOR");
// 		set_docu("FP15","TRAN","comp","DECLARACION ADUANERA UNICA");
    
    
// 		set_docu("FP17","TRAN","comp","BOLETO DE AVION");
		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 PROVEEDOR");

		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("FP41","TRAN","comp","FACT.PROV.REEMBOLSO");
    
		set_docu("FP90","TRAN","comp","COMP. SIN COMPROBANTE");
		set_docu("NP10","TRAN","comp","N/C PROVEEDOR");
// 		set_docu("NC20","TRAN","comp","N/C PROVEEDOR");

// 		set_docu("AC10","TRAN","clie","ANTICIPO DE CLIENTE");
		set_docu("AC10","TRAN","dxco","ANTICIPO DE CLIENTE");
		set_docu("AC11","TRAN","caja","COBRO CON ANTICIPO");
    
		set_docu("AC13","TRAN","dxco","REVERSA CANC CXC");
		set_docu("AP13","TRAN","dxpa","REVERSA CANC CXP");
          
          
// 		set_docu("AP10","TRAN","prov","ANTICIPO A PROVEEDOR");
		set_docu("AP10","TRAN","dxpa","ANTICIPO A PROVEEDOR");
		set_docu("AP11","TRAN","caja","LIQUI. ANTICIPO");
		
		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","DEP.CHEQUE");
// 		set_docu("ECH1","TRAN","caja","EGR.CHEQUE");
		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("SC00","TRAN","dxco","SALDO X COBRAR (Inicial)");
// 		set_docu("SP00","TRAN","dxpa","SALDO X PAGAR (Inicial)");
		
// 		set_docu("FC00","TRAN","dxco","INI X COBRAR");
// 		set_docu("FP00","TRAN","dxpa","INI X PAGAR");
		
		set_docu("XC00","TRAN","dxco","INI X COBRAR");
		set_docu("XP00","TRAN","dxpa","INI X PAGAR");
		
		set_docu("CC00","TRAN","dxco","CXC INICIAL");
		set_docu("CP00","TRAN","dxpa","CXP INICIAL");
		
		set_docu("CC10","TRAN","dxco","CANCELA CXC");
		set_docu("CP10","TRAN","dxpa","CANCELA CXP");
		set_docu("CC13","TRAN","dxco","REVERSA CANC CXC");
		set_docu("CP13","TRAN","dxpa","REVERSA CANC CXP");

		set_docu("DB00","TRAN","bcos","SALDO INICIAL");
	
		set_docu("DC10","TRAN","bcos","DEP. 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_vcrx);
		

		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("PR10","TRAN","bcos","CHEQUE PROTESTADO");
		set_docu("PR11","TRAN","bcos","MULTA X CHEQUE PROTEST");
		
		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","tfin","INVENTARIO FISICO");
		set_docu("TFI1","TRAN","tfin","TOMA FISICA INVENTARIO");
		set_docu("TFA1","TRAN","tfin","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 REPROCESO");
		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("IB19","TRAN","inve","ING.X REVALORIZACION");
		
		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("IP10","TRAN","prod","INGRESO A PROCESO");
//     set_docu("SP10","TRAN","prod","SALIDA DE PROCESO");
    set_docu("EP10","TRAN","prod","EGRESO DE PROCESO");
//     set_docu("EP10","X");
// msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("EB20","EGRESO X NOMINA","INVE")',$link_vcrx);

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

		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("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","prod","ORDEN PRODUCCION");
// 		set_docu("PO10","TRAN","proc","PROCESO");

    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("PP10","TRAN","prov","ORDEN DE COMPRA");
// msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("OP16","PEDIDO A CONSIGNACION","CLIE")',$link_vcrx);
// msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("OP90","PEDIDO X NOMINA","CLIE")',$link_vcrx);
// msql_query('insert into docu0(docu_codigo,docu_descri,docu_tipo)value("CAR1","CARRITO DE COMPRAS","TVIR")',$link_vcrx);

// 		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","REGISTRO DE 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("NOV1","TRAN","nomi","NOV.AUTO");
		set_docu("NOV2","TRAN","nomi","NOV.MANUAL");
		set_docu("NOV3","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_vcrx);
		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_vcrx);

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

	}

  }
    
  
  
  		msql_query('delete from docu0 where docu_tipo="MAES"',$link_vcrx);
// 		set_docu("ACCE","MAES","acce","ACCESOS");
   
		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("CLAC","MAES","clac","CLAVE_ACCE_CELE");
  
		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("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("SUCO","MAES","suco","SUST.COMPROBANTES");
    
		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("CAJA","MAES","caja","CAJA");
		set_docu("CTAB","MAES","ctab","CTA.BANC.");

         set_docu("VHCL","MAES","vhcl","VEHICULO");
         set_docu("CLOR","MAES","clor","COLOR");
         set_docu("BLDN","MAES","bldn","BILL/LADING");
         set_docu("CNTN","MAES","cntn","CONTENEDOR");

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

		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");
   
  
// 	if($tabla=='item' and $cfg_tipo=='pyme')	
	if($tabla=='item' )	
	{
          set_impo0();    
    
		$sql_item='delete from item0 where item_codigo like "9910%"';
		$res_item=msql_query($sql_item,$link_vcrx);
		
// 		$sql_item='delete from item0 where item_codigo like "9900%"';
          
          
		$sql_item='update item0 set item_cair="312A" where item_descri like "%312A%"';
		$res_item=msql_query($sql_item,$link_vcrx);
          
		$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_vcrx);
		
		$prefix='9900';
		$sql_cair='select * from cair0 where cair_codigo>0 order by cair_codigo';
		$res_cair=msql_query($sql_cair,$link_vcrx);
		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) ;
//       401 AA->PO 240 variantes
      
      for($xconta=65; $xconta<=90; $xconta++)
      {
        $cair2=str_replace(chr($xconta),$xconta-64,$cair2);
//         $cair3=str_replace(chr($xconta),$xconta,$cair3);
      }
      $cair2=fillzero(trim($cair2),1);
      $cair3=fillzero(trim($cair3),1);
      
      $itemcod=$prefix.$cair1.''.$cair2.$cair3;
//       $verif=val_mod10($itemcod);
//       $verif=val_mod11($itemcod);
      $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_vcrx);
      
// 			echo msql_error($link_vcrx);
      $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_vcrx);


    }
		$sql_item='update item0 set item_prov=1 where item_codigo like "9900%"';
		$res_item=msql_query($sql_item,$link_vcrx);
		
    
//     for($cimpo=1; $cimpo<=8; $cimpo++;)
//     {
      
//     }
		
	}
	
	if($tabla=='f104')	
	{
    msql_query('insert into cair0(cair_codigo,cair_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into cair0(cair_codigo,cair_descri)value("000","NO APLICA")',$link_vcrx);
    set_f1040();
	}

	if($tabla=='cair')	
	{
    msql_query('insert into cair0(cair_codigo,cair_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into cair0(cair_codigo,cair_descri)value("000","NO APLICA")',$link_vcrx);
    set_cair0();
	}

	if($tabla=='lado')	
	{
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("--","NO DEFINIDO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("FR","ANTERIOR)',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("RE","POSTERIOR")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("RH","DERECHO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("LH","IZQUIERDO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("UP","SUPERIOR")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("DO","INFERIOR")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("IN","INTERNO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("EX","EXTERNO")',$link_vcrx);
	}

	if($tabla=='ptoe')	
	{
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("001001","DEFAULT")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("001101","COMP.ELECT.")',$link_vcrx);
		msql_query('update ptoe0 set pto_ambice=2 where substring(ptoe_codigo,4,1)="1"',$link_vcrx);
	}
	
  

	if($tabla=='ptov')	
	{
// 		msql_query('insert into ptov0(ptov_codigo,ptov_descri,ptov_ptoe)value("V001","PTO.VTA. 001001","001001")',$link_vcrx);
// 		msql_query('insert into ptov0(ptov_codigo,ptov_descri,ptov_ptoe)value("V101","PTO.VTA.ELEC. 001101","001101")',$link_vcrx);
// 		msql_query('insert into ptov0(ptov_codigo,ptov_descri,ptov_ptoe)value("V999","PTO.VTA. ONLINE","001999")',$link_vcrx);
		msql_query('update ptov0 set ptov_status="I" where ptov_codigo like "V%"  ',$link_vcrx);
		msql_query('insert into ptov0(ptov_codigo,ptov_descri,ptov_ptoe)value("001001","PTO.VTA. 001001","001001")',$link_vcrx);
		msql_query('insert into ptov0(ptov_codigo,ptov_descri,ptov_ptoe)value("001101","PTO.VTA. 001101","001101")',$link_vcrx);
		msql_query('insert into ptov0(ptov_codigo,ptov_descri,ptov_ptoe)value("001999","PTO.VTA. ONLINE","001999")',$link_vcrx);
// 		msql_query('insert into ptov0(ptov_codigo,ptov_descri,ptov_ptoe)value("001901","PTO.VTA. ONLINE","001901")',$link_vcrx);
		msql_query('update ptov0 set ptov_ptoe="001001" where ptov_ptoe ="" or ptov_ptoe is null',$link_vcrx);
// 		msql_query('update ptov0 set ptov_caja="C001" where ptov_caja ="" or ptov_caja is null',$link_vcrx);
// 		msql_query('update ptov0 set ptov_bode="B001" where ptov_bode ="" or ptov_bode is null',$link_vcrx);
		msql_query('update ptov0 set ptov_caba="001010" where ptov_caba ="" or ptov_caba is null',$link_vcrx);
		msql_query('update ptov0 set ptov_caja="001010" where ptov_caja ="" or ptov_caja is null',$link_vcrx);
		msql_query('update ptov0 set ptov_bode="001001" where ptov_bode ="" or ptov_bode is null',$link_vcrx);
	}
	
	if($tabla=='tlla')	
	{
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("00","UNICA")',$link_vcrx);
    
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("60","RN")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("61","0-3M")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("62","3-6M")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("63","6-9M")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("64","9-12M")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("65","12M")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("66","18M")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("67","24M")',$link_vcrx);
// 		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("68","36M")',$link_vcrx);
		msql_query('delete from tlla0 where tlla_codigo like "6%"',$link_vcrx);
    
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("80","RN")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("81","0-3M")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("82","3-6M")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("83","6-9M")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("84","9-12M")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("85","12M")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("86","18M")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("87","24M/2T")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("88","36M/3T")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("89","24M/4T")',$link_vcrx);
    
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("90","X-SMALL")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("91","SMALL")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("92","MEDIUM")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("93","LARGE")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("94","X-LARGE")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("95","XX-L")',$link_vcrx);
		msql_query('insert into tlla0(tlla_codigo,tlla_descri)value("96","XXX-L")',$link_vcrx);
	}
	
	if($tabla=='tusr')	
	{
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("-","NUEVO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("clie","CLIENTE")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("user","USUARIO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("oper","OPERADOR")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("admi","ADMINISTRATIVO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("sist","SISTEMAS")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("supe","SUPERVISOR")',$link_vcrx);
	}

		// ASIGNA VALORES
	if (mb_stristr('user.usrt',$tabla))
  {msql_query('insert into '.$tabla.'('.$tabla.'_codigo,'.$tabla.'_descri) value("-","NUEVO")',$link_vcrx);}

	if($tabla=='empr')	
  {
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri) value("'.strtoupper($cfg_empr).'","'.strtoupper($cfg_empr).'")',$link_vcrx);
		msql_query('update empr0 set empr_descri="'.$cfg_descri.'"',$link_vcrx);
  }
	
	if($tabla=='enti')	
  {
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("9999999999999","_CONS.FINAL")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("'.$cfg_ruc.'","NUEVA EMPRESA")',$link_vcrx);
// 		msql_query('update enti0 set enti_pasporte="" where enti_codigo like "99%" and enti_pasaporte is null',$link_vcrx);
// 		msql_query('update enti0 set enti_idexterior="" where enti_codigo like "99%" and enti_idexterior is null',$link_vcrx);
		get_ruc1($cfg_ruc);
	}
	
	if($tabla=='item')	
	{
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("100000","ITEMS")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("9999999999","_ITEMS VARIOS")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_iva)value("8888888888","_ITEMS VARIOS","12")',$link_vcrx);
	}

	if($tabla=='nvdd')	
	{
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("100000","ITEMS")',$link_vcrx);
		msql_query('delete from nvdd0 where nvdd_codigo like "10%"',$link_vcrx);
      
    $xnvdd='1001'; $xnvdd_t='1'; $xnvdd_d='SUELDO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    $xnvdd='1002'; $xnvdd_t='1'; $xnvdd_d='SALARIO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    $xnvdd='1008'; $xnvdd_t='1'; $xnvdd_d='UTILIDADES';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1009'; $xnvdd_t='1'; $xnvdd_d='JUBILACION PATRONAL';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

      
//    // otras retribuciones accesorias permanentes      
//     $xnvdd='1021'; $xnvdd_t='1'; $xnvdd_d='ALIMENTACION';
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
//     $xnvdd='1022'; $xnvdd_t='1'; $xnvdd_d='TRANSPORTE';
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
//     $xnvdd='1023'; $xnvdd_t='1'; $xnvdd_d='COMISIONES';
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
//     $xnvdd='1024'; $xnvdd_t='1'; $xnvdd_d='OTROS';
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    
   // otras retribuciones accesorias permanentes      
    $xnvdd='1011'; $xnvdd_t='1'; $xnvdd_d='ALIMENTACION';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1012'; $xnvdd_t='1'; $xnvdd_d='MOVILIZACION';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1013'; $xnvdd_t='1'; $xnvdd_d='COMISION';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    $xnvdd='1018'; $xnvdd_t='1'; $xnvdd_d='BONIFICACION';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1019'; $xnvdd_t='1'; $xnvdd_d='OTROS';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    
    $xnvdd='1025'; $xnvdd_t='1'; $xnvdd_d='HORAS 25%';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1026'; $xnvdd_t='1'; $xnvdd_d='HORAS 50%';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1027'; $xnvdd_t='1'; $xnvdd_d='HORAS 100%';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    $xnvdd='1031'; $xnvdd_t='2'; $xnvdd_d='ANTICIPO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1032'; $xnvdd_t='2'; $xnvdd_d='PTMO. EMPRESA';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1033'; $xnvdd_t='2'; $xnvdd_d='PTMO. IESS';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1034'; $xnvdd_t='2'; $xnvdd_d='IMP.RENTA';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1035'; $xnvdd_t='2'; $xnvdd_d='SEGURO MEDICO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1036'; $xnvdd_t='2'; $xnvdd_d='COMISARIATO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    
    $xnvdd='1041'; $xnvdd_t='2'; $xnvdd_d='DESCUENTO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1042'; $xnvdd_t='1'; $xnvdd_d='REEMBOLSO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1043'; $xnvdd_t='2'; $xnvdd_d='ATRASO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1044'; $xnvdd_t='1'; $xnvdd_d='ATRASO JUSTIF.';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1045'; $xnvdd_t='2'; $xnvdd_d='FALTA';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1046'; $xnvdd_t='1'; $xnvdd_d='FALTA JUSTIF.';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    $xnvdd='1047'; $xnvdd_t='2'; $xnvdd_d='APORTE PERSONAL';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1048'; $xnvdd_t='1'; $xnvdd_d='APORTE PERSONAL (EMPLEADOR)';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    $xnvdd='1051'; $xnvdd_t='3'; $xnvdd_d='APORTE PATRONAL';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
//     $xnvdd='1052'; $xnvdd_t='3'; $xnvdd_d='APORTE IECE';
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
//     $xnvdd='1052'; $xnvdd_t='3'; $xnvdd_d='APORTE SECAP';
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

    $xnvdd='1061'; $xnvdd_t='3'; $xnvdd_d='VACACIONES (PROV.)';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1062'; $xnvdd_t='1'; $xnvdd_d='VACACIONES';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1063'; $xnvdd_t='3'; $xnvdd_d='DECIMO TERCERO (PROV.)';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1064'; $xnvdd_t='1'; $xnvdd_d='DECIMO TERCERO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1065'; $xnvdd_t='3'; $xnvdd_d='DECIMO CUARTO (PROV.)';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1066'; $xnvdd_t='1'; $xnvdd_d='DECIMO CUARTO';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1067'; $xnvdd_t='3'; $xnvdd_d='FONDOS DE RESERVA (PROV.)';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);
    $xnvdd='1068'; $xnvdd_t='1'; $xnvdd_d='FONDOS DE RESERVA';
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo)value("'.$xnvdd.val_mod10($xnvdd).'","'.$xnvdd_d.'","'.$xnvdd_t.'")',$link_vcrx);

  
  }

	if($tabla=='ctas')	
	{
    if(r_fiel('empr',$cfg_empr,'ctasuper')){uplctasuper();}
	}

	if($tabla=='umdd')	
	{
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("UNI.","UNIDAD")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("ROLL","ROLLO")',$link_vcrx);
    
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("MTS.","METRO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("MTS2","METRO CUADRADO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("MTS3","METRO CUBICO")',$link_vcrx);
    
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("LITR","LITRO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("LITR","LITRO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("GAL.","GALON")',$link_vcrx);
    
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("ONZ.","ONZA")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("LIB.","LIBRA")',$link_vcrx);

         msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("CC.","CENT.CUBIC.")',$link_vcrx);
         msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("GR.","GRAMO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("KG.","KILOGRAMO")',$link_vcrx);

		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("CAJA","CAJA")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("SACO","SACO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("SC50","SACO 50 KILOS")',$link_vcrx);
// 		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("SACO","SACO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("SOBR","SOBRE")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("PACK","PAQUETE")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("TANK","TANQUE")',$link_vcrx);
    
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("-","-")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("SERV","SERVICIO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("HORA","HORA")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("DIA.","DIA")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("MES.","MES")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("ANIO","AÑO")',$link_vcrx);
	}

	if($tabla=='clor' )	
  {uplcolor();}
  
	if($tabla=='clor' and 1==2)	
	{
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("51","ROJO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("52","ROSADO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("53","VINO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("54","FUCSIA")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("55","LILA")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("56","MORADO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("57","-")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("58","-")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("59","AZUL")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("60","CELESTE")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("61","AZUL MARINO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("62","AZUL ELECTRICO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("63","TURQUESA")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("64","VERDE")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("65","VERDE OLIVO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("66","-")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("67","AMARILLO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("68","CREMA/BEIGE")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("69","BRONCE")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("70","MOSTAZA")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("71","CAMEL")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("72","NARANJADO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("73","CAFE/MARRON")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("74","DORADO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("75","BLANCO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("76","PLATEADO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("77","GRIS CLARO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("78","GRIS OSCURO")',$link_vcrx);
    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("79","NEGRO")',$link_vcrx);
//     msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("-","-")',$link_vcrx);

    msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("-","-")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("NEGR","NEGRO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("BLAN","BLANCO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("AMAR","AMARILLO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("AZUL","AZUL")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("ROJO","ROJO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("NARA","NARANJA")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("MORA","MORADO")',$link_vcrx);
		msql_query('insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri)value("VERD","VERDE")',$link_vcrx);
	}

	msql_query('update '.$tabla.'0 set '.$tabla.'_status="-" where '.$tabla.'_status is null',$link_vcrx);
	


}

function vrsetdefa()
{
	include('../_cfg/config.php');
	

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


		msql_query('update docu0 set docu_tice="81" where docu_codigo like "ICH%" ',$link_vcrx);
		msql_query('update docu0 set docu_tice="82" where docu_codigo like "CH%"',$link_vcrx);
      
		msql_query('update docu0 set docu_tice="91" where docu_codigo like "PF%"',$link_vcrx);
    msql_query('update docu0 set docu_tice="92" where docu_codigo like "PC%"',$link_vcrx);
    msql_query('update docu0 set docu_tice="93" where docu_codigo like "OP%"',$link_vcrx);
      
    msql_query('update docu0 set docu_tice="95" where docu_codigo like "PP%"',$link_vcrx);
      
    msql_query('update docu0 set docu_tice="99" where docu_codigo like "RO%"',$link_vcrx);

		}
  
		// TICO
		{
		msql_query('update docu0 set docu_tico="01" where docu_codigo like "FP10"',$link_vcrx);
// 		msql_query('update docu0 set docu_tico="02" where docu_codigo like "FP14"',$link_vcrx);
		msql_query('update docu0 set docu_tico="02" where docu_codigo like "FP02"',$link_vcrx);
		msql_query('update docu0 set docu_tico="03" where docu_codigo like "FP11"',$link_vcrx);
		msql_query('update docu0 set docu_tico="03" where docu_codigo like "FP03"',$link_vcrx);
		msql_query('update docu0 set docu_tico="05" where docu_codigo like "FP05"',$link_vcrx);
		msql_query('update docu0 set docu_tico="04" where docu_codigo like "N%" and docu_tabla="comp"',$link_vcrx);
		msql_query('update docu0 set docu_tico="04" where docu_codigo like "NC%" and docu_tabla="vtas"',$link_vcrx);
// 		msql_query('update docu0 set docu_tico="05" where docu_codigo like "FC%" and docu_tabla="vtas"',$link_vcrx);
		msql_query('update docu0 set docu_tico="07" where docu_codigo like "RP%"',$link_vcrx);
		msql_query('update docu0 set docu_tico="18" where docu_codigo like "FC%"',$link_vcrx);
		msql_query('update docu0 set docu_tico="41" where docu_codigo like "FR%"',$link_vcrx);
		}
  
		//FPAG	
		{
      msql_query('update docu0 set docu_fpag="02" where docu_codigo like "CH1%"',$link_vcrx);
      msql_query('update docu0 set docu_fpag="06" where docu_codigo like "DP%"',$link_vcrx);
      msql_query('update docu0 set docu_fpag="13" where docu_codigo like "EE%"',$link_vcrx);
      msql_query('update docu0 set docu_fpag="15" where docu_codigo like "CC2%"',$link_vcrx);
		}
  
  
  
	msql_query('update item0 set item_puni=0 where item_puni is null',$link_vcrx);
	msql_query('update item0 set item_pvp=0 where item_pvp is null',$link_vcrx);
	
	msql_query('update item0 set item_dcto=0 where item_dcto is null',$link_vcrx);
	msql_query('update item0 set item_prop=0 where item_prop is null',$link_vcrx);
	msql_query('update item0 set item_ssid=0 where item_ssid is null',$link_vcrx);
	msql_query('update item0 set item_ice=0 where item_ice is null',$link_vcrx);
	msql_query('update item0 set item_ice2=0 where item_ice2 is null',$link_vcrx);
	msql_query('update item0 set item_iva=0 where item_iva is null',$link_vcrx);
	msql_query('update item0 set item_irbp=0 where item_irbp is null',$link_vcrx);
	
// 	msql_query('update item0 set item_pvp=item_puni*(1-item_dcto/100)*(1+item_ice/100)*(1+item_iva/100)+item_irbp where item_pvp=0',$link_vcrx);
	msql_query('update item0 set item_pvp=item_puni*(1+item_ice/100)*(1+item_iva/100)+item_irbp where item_pvp=0',$link_vcrx);
	msql_query('update item0 set item_puni=(item_pvp-item_irbp)/(1+item_iva/100)/(1+item_ice/100) where item_puni=0',$link_vcrx);

}

function set_docu($docu,$tipo,$tabla='',$descri='')
{
	include('../_cfg/config.php');
  $sql_sdoc='insert into docu0(docu_codigo,docu_descri)value("'.$docu.'","'.$descri.'")';
	msql_query($sql_sdoc,$link_vcrx);

  if($tipo=='X')
  {  
    $sql_sdoc='update docu0 set docu_status="'.$tipo.'" where docu_codigo="'.$docu.'"';
    msql_query($sql_sdoc,$link_vcrx);
    return;
  }  
  
  $sql_sdoc='update docu0 set docu_tipo="'.$tipo.'" where docu_codigo="'.$docu.'"';
	msql_query($sql_sdoc,$link_vcrx);
  
  $sql_sdoc='update docu0 set docu_tabla="'.$tabla.'" where docu_codigo="'.$docu.'"';
	msql_query($sql_sdoc,$link_vcrx);

  $sql_sdoc='update docu0 set docu_descri="'.$descri.'" where docu_codigo="'.$docu.'"';
	msql_query($sql_sdoc,$link_vcrx);
}	




function describe_table($tabla)
{
	include('../_cfg/config.php');
		echo '<br>';
		echo '<button data-toggle="collapse" data-target="#'.$tabla.'">'.$tabla.'</button>';
		echo '<div id="'.$tabla.'" class="collapse">';
		$sql_desc='describe '.$tabla;
		$res_desc=msql_query($sql_desc,$link_vcrx);
		$crow=0;
	
		echo '<table border=0 width="30%" cellpadding="2" cellspacing="0" style="border-collapse:collapse;">';
		while($aso_desc=msql_fetch_assoc($res_desc))
		{
			$crow++;
			echo '<tr style="';
						if($crow%3==0){echo 'border-bottom:dotted 1px;';}
			echo '">';
			echo '<td>'.$tabla.'</td>';
			echo '<td>'.$aso_desc['Field'].'</td>';
			echo '<td>'.$aso_desc['Type'].'</td>';
			echo '<td>'.$aso_desc['Null'].'</td>';
			echo '<td>'.$aso_desc['Key'].'</td>';
			echo '<td>'.$aso_desc['Default'].'</td>';
			echo '<td>'.$aso_desc['Extra'].'</td>';
			echo '</tr>';
		}
		echo '</table>';
		echo '</div>';
	
}

?>

