<?php session_start();?>
<?php include('../_cfg/config.php');?>
<?php include('php_gene1.php'); ?>
<?php include('php_session.php');?>
<?php //$orient=$_POST['orient']; ?>


<?php foreach($_POST as $campo => $valor){${$campo}=$valor;} ?>
<?php if($docu==''){$docu=$tabla;} ?>
<?php //if($codigo==''){$docu=$tabla;} ?>

<?php set_lsuborel();?>
<?php set_mrca();?>
<?php set_duni(); ?>


<?php if($pant==''){$pant='PANT0';}?>
<?php if(!mb_stristr('PANT.IMPR.MAIL.GRAB',substr($pant,0,4))) {return;} ?>
<?php if($user_codigo==''){echo ('<msgalert>Usuario desconectado...</msgalert>');}?>

<?php if(mb_stristr('IMPR',substr($pant,0,4))){$maesmodi='' ;} ?>
<?php

if($tabla=='refe'){$referidos=1; $tabla='user';}

if($fecha1==''){$fecha1='2010-01-01';}
if($fecha2==''){$fecha2=$fechaa;}
if($numero1==''){$numero1='1';}
if($numero2==''){$numero2='999999999';}

$numero1=fillzero($numero1);
$numero2=fillzero($numero2);


// if($tabla=='item' and $iteminve!='true' and $itemvtas!='true' and $itemcomp!='true'){$itemvtas='true';}
if($tabla=='item' and ($iteminve=='true' or $itemvtas=='true' or $itemcomp=='true')){$itemtodo='false';}



$ver_tlla=0;

if(mb_stristr('gmny.gnya',$cfg_empr)){$ver_tlla=1;}
if(mb_stristr('gmny.gnya',$cfg_empr) and $itemteki=='true' ){$ver_tlla=0;}




?>


<?php	
	
// $user_modi=0;
// $user_anul=0;
// $user_elim=0;


$docuacce=$docu;  
include('php_useracce.php');

$ver_kit=0;



if($user_tipo=='sist'){$user_modi=1;$user_anul=1;$user_elim=1;}
if($user_tipo=='supe'){$user_modi=1;$user_anul=1;$user_elim=1;}
// if($user_tipo=='clie' and substr($docu,0,2)=='OP'){$user_anul=1;}
if($user_tipo=='clie'){$user_modi=0;$user_anul=0; $user_elim=0;}


if($cfg_empr=='jwib' and strtolower($docu)=='tlfn'){$user_cons=1;}



// if(mb_stristr('sist.supe',$user_tipo) and mb_stristr('gnya',$cfg_empr))
if(mb_stristr('sist.supe',$user_tipo) and mb_stristr('gnya',$cfg_empr))
{$ver_kit=1;}


// $sql_referx='update user0 set user_referx1=user_referidox';
// $res_referx=msql_query($sql_referx,$link_vcrx);




if(mb_stristr('clie',$user_tipo) and mb_stristr('gnya',$cfg_empr) and 1==2)
{
  
    $fecha30=date('Y-m-d',strtotime('-30 days'));
    $fecha365=date('Y-m-d',strtotime('-365 days'));
    $sql_kit ='select idnum1,docu,ptonumero,fecha,enti,item_descri from vtas12 '; 
    $sql_kit.='where status!="O" '; 
    $sql_kit.=' and docu like "FC%" '; 
    $sql_kit.=' and fecha>="'.$fecha365.'"'; 
    $sql_kit.=' and item_descri like "KIT%" '; 
    $sql_kit.=' and enti like "'.substr($user_cedula,0,10).'%"'; 
    $sql_kit.=' order by fecha desc,idnum1 desc';
    $sql_kit.=' limit 1';

//     if($user_cedula==''){$sql_kit='';}
//     $res_kit=msql_query($sql_kit,$link_vcrx);
  
//     if(msql_num_rows($res_kit)!=0)
    {$ver_kit=1;}
//     else
//     {
//       $msgerror='';
//       $msgerror.= '<msgerror>';
//       $msgerror.= '***** NO HA COMPRADO KIT DE DISTRIBUCION *****';
//       $msgerror.= '</msgerror>';
//     }
}  
	

if($idnum=='undefined'){$idnum='';}
// echo '*/*/*'.$docu;
if($docu=='undefined')
{$docu='';}
else
{
//   $docu.='10';
//   $docu.='%';
  $docu=trim(substr($docu,0,4));
}

// if(strlen($docu)==4)
{$tabla=r_fiel('docu',$docu,'tabla');}
$tabla=strtolower($tabla);

// else
// {$tabla=r_fiel('docu',substr($docu,0,2).'10','tabla');}  
  


$entilabel='ENTIDAD';


if($tabla=="")
{
	if($docu=='DD'){$tabla='cont';}
	if($docu=='DDMM'){$tabla='cont';}
	
	if($docu=='FC'){$tabla='vtas';}
	if($docu=='NC'){$tabla='vtas';}
	
// 	if($docu=='OP'){$tabla='clie';}
	if($docu=='PC'){$tabla='clie';}
	if($docu=='PF'){$tabla='clie';}
	if($docu=='CA'){$tabla='carr';}
	
	if($docu=='FP'){$tabla='comp';}
	if($docu=='NP'){$tabla='comp';}
	
	if($docu=='AC'){$tabla='caja';}
	if($docu=='AP'){$tabla='caja';}
	if($docu=='GR'){$tabla='guia';}
	if($docu=='RP'){$tabla='retp';}
	if($docu=='RC'){$tabla='retc';}
	
	if($docu=='IB'){$tabla='inve'; $entilabel='PROVEEDOR';}
	if($docu=='EB'){$tabla='inve'; $entilabel='CLIENTE';}
	if($docu=='DC'){$tabla='bcos'; $entilabel='CLIENTE';}
	if($docu=='CH'){$tabla='bcos'; $entilabel='PROVEEDOR';}
	if($docu=='IE'){$tabla='caja'; $entilabel='CLIENTE';}
	if($docu=='EE'){$tabla='caja'; $entilabel='PROVEEDOR';}
}

// if($tabla==""){$tabla=$docu;}


// echo '*/*/*'.$docu.$tablas;


if(@mb_stristr('acce.',$tabla)){$entilabel='USUARIO';}
if(@mb_stristr('vtas.clie.carr.retc.guia.',$tabla)){$entilabel='CLIENTE';}
if(@mb_stristr('prod',$tabla)){$entilabel='TALLER';}
if(@mb_stristr('comp.prov.retp.',$tabla)){$entilabel='PROVEEDOR';}
if(@mb_stristr('nomi.roln.suel',$tabla)){$entilabel='EMPLEADO';}
if(@mb_stristr('RC.',substr($docu,0,2))){$entilabel='CLIENTE';}
if(@mb_stristr('RP.',substr($docu,0,2))){$entilabel='PROVEEDOR';}

if($tabla=='acce'){$user_anul=0;$user_elim=0;$user_modi=0;}


$xfontsize=12;
// if($mobile=='true' and $orient=='V'){$xfontsize=40;}
// if($mobile=='true' and $orient=='H'){$xfontsize=12;}
if($orient=='V'){$xfontsize=40;}
if($orient=='H'){$xfontsize=12;}

$hpant1 =ceil($screenh*0.30);
$hpant11=ceil($screenh*0.10);
$hpant2 =ceil($screenh*0.30);

$wpant1 =$screenw*.9;
	
if ($orient=='V')
{
	$hpant1 =ceil($screenh*0.90);
	$hpant11=ceil($screenh*0.40);
	$hpant2 =ceil($screenh*0.90);
  $wpant1 =$screenw-20;
}

// TOTALES
{
	$docuitem=0;
	$docuiimp=0;
// 				$docuinve=0;
	$docudocu=0;
	$docurete=0;
	$docuctas=0;

	if(@mb_stristr('vtas.comp.clie.prov.inve.prod.guia.carr',$tabla)){$docuitem=1;}
	if(@mb_stristr('vtas.comp.clie.prov.carr',$tabla)){$docuiimp=1;}
// 				if(mb_stristr('inve.prod.guia',$tabla)){$docuinve=1;}
	if(@mb_stristr('caja.bcos.retc.retp.rete',$tabla)){$docudocu=1;}
	if(@mb_stristr('retc.retp.rete',$tabla)){$docurete=1;}
	if(@mb_stristr('cont',$tabla)){$docuctas=1;}

$sql_total='';
  
	$dispcolu=1;
	if($mobile=='true'){$dispcolu=0;}
  if($tabla=='item' and $itemimgi=='true'){$dispcolu=0;}
  
}

// echo 'fdfdf';
?>


<?php
// $aa=file_get_contents('https://declaraciones.sri.gob.ec/facturacion-internet/consultas/publico/ruc-datos2.jspa?ruc=0992353554001');
// return $aa;	
?>	


<?php ob_start(); ?>
<resultado>
<?php	val_usercodigo(); ?>

  
  
  
<?php $tdisplay=''; ?>  
<?php if(substr($pant,0,4)=='PANT'){$tdisplay='display:block;';}?>  

<?php //echo '<r><msgalert>'.$pant.$docu.'</msgalert></r>'; ?>  
  
<?php if(mb_stristr('PANT0',$pant)) { ?>
  
<?php
  
      $sql_item='update item0 set item_rfer=concat(trim(item_mdlo),trim(item_clor)) where item_rfer is null and item_clor>0 ';
      $res_item=msql_query($sql_item,$link_vcrx);
  
      $sql_item='update item0 set item_ean=item_codigo where item_codigo like "20%" and length(trim(item_codigo))=8 and (item_ean=0 or item_ean is null)';
      $res_item=msql_query($sql_item,$link_vcrx);

      $sql_item='update item0 set item_ean=item_codigo where item_codigo like "20%" and length(trim(item_codigo))=13 and (item_ean=0 or item_ean is null)';
      $res_item=msql_query($sql_item,$link_vcrx);
  
      $sql_updt=' update item0 set item_mdlo=item_raiz where item_mdlo="" or item_mdlo is null';
      $res_updt=msql_query($sql_updt,$link_vcrx);                                 
                                 
      $sql_updt=' update item0 set item_ice=0 where item_ice is null';
      $res_updt=msql_query($sql_updt,$link_vcrx);                                 
                                 
      $sql_updt=' update item0 set item_irbp=0 where item_irbp is null';
      $res_updt=msql_query($sql_updt,$link_vcrx);                                 

      $sql_updt=' update item0 set item_tlla="" where length(trim(item_codigo))=8 and item_codigo like "20%"  ';
      $res_updt=msql_query($sql_updt,$link_vcrx);                                 

      $sql_updt=' update item0 set item_tlla=substring(item_codigo,11,2) where length(trim(item_codigo))=13 and item_codigo like "20%"  ';
      $res_updt=msql_query($sql_updt,$link_vcrx);                                 

    if(mb_stristr('gmny.gnya',$cfg_empr))
    {
      $sql_newext ='update item0  ';     
      $sql_newext.='left join clor0 on item_clor=clor_codigo ';     
      $sql_newext.='left join tlla0 on item_tlla=tlla_codigo ';     
      $sql_newext.='set item_codigov=concat(substring(item_codigo,3,6),".",substring(tlla_descri,1,3),".",substring(clor_tipo,1,2)), ';        
      $sql_newext.='item_status=item_status ';     
      $sql_newext.='where ';     
      $sql_newext.=' item_codigo like "201%"';     
      $res_newext=msql_query($sql_newext,$link_vcrx);
      
      $sql_newext ='update item0  ';     
      $sql_newext.='set item_codigov=substring(item_codigo,3,6), ';        
      $sql_newext.='item_status=item_status ';     
      $sql_newext.='where ';     
      $sql_newext.=' item_codigo like "201%"';     
      $sql_newext.=' and length(item_codigo)=8';     
      $res_newext=msql_query($sql_newext,$link_vcrx);
      
      
    }
   
   
?>  
  
<?php $fecha1=date('Y-m-01',strtotime ('today -365 day')); ?>
<?php $fecha1='2000-01-01'; ?>
<?php $fecha2=$fechaa; ?>
  
<?php $pidtxt='dl_opera'; $ptabla='tlfn'; $pcolu='tlfn_opera'; include('vrsetlist.php'); ?>
<?php $pidtxt='dl_area'; $ptabla='tlfn'; $pcolu='tlfn_area'; include('vrsetlist.php'); ?>
<?php $pidtxt='dl_calle1'; $ptabla='tlfn'; $pcolu='tlfn_calle1'; include('vrsetlist.php'); ?>
<?php $pidtxt='dl_calle2'; $ptabla='tlfn'; $pcolu='tlfn_calle2'; include('vrsetlist.php'); ?>
  
		<div id="pant0" style="border:solid 2px; overflow:auto; width:99%;">
      
		<?php { ?>
			<table id="tpant0" cellpadding="2" width="100%" border="0"
					 style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
				<tr>

         <td  valign="top">
            <table width="100%" cellpadding="2" width="100%" border="0"
                  style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white; display:;">
                  <tr>
                <?php if($mobile!='true'){?>        
                <td width="1%">
                </td>
                <?php } ?>
                <td colspan="2" align="center" <?php if($mobile=='false'){echo 'style="display:none;"';}else{echo 'style="text-transform:uppercase;font-weight:bold;font-family:arial;font-size:'.($xfontsize*1.2).';"';} ?> >
                  <titulo>Consulta de Maestros</titulo>
                </td>
              </tr>
                  <tr>
                    <?php $pidtxt='fecha1'; $pcaption='Desde'; $psize=$xfontsize; $pobj=0; $pdefa=$fecha1; include('vrgetfec.php'); ?>
              </tr>
                  <tr>
                    <?php $pidtxt='fecha2'; $pcaption='Hasta'; $psize=$xfontsize; $pobj=0; include('vrgetfec.php'); ?>
              </tr>

          <?php if($mobile!='true'){?>        
            </table>
          </td>
          <td valign="top">
            
            <table width="100%" cellpadding="2" border="0"
                  style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
          
              <tr>
                <td width="1%"></td>
              </tr>
          <?php } ?>
              <tr>
                <?php $pidtxt='docu'; $pcaption='MAESTRO'; $ptabla='docu';  $psize=$xfontsize; $pdefa=$docu;  $pobj=3;  $pnotob=0; 
                   $pwhere='(docu_tipo="MAES")';  $ponblur="vali_maes();";
                   if(@mb_stristr('invi.clie.prov',$user_tipo) or $user_tipo==''){$phide=1;}
                   if(strlen($docu)==4){$preado=1;}                          
                   include('vrgetcod.php'); ?>              
              </tr>
              <tr>
                <?php $pidtxt='codigo'; $pcaption='CODIGO';  $psize=$xfontsize; $plong=15; $pobj=3; include('vrgettxt.php'); ?>
              </tr>
              <tr>
                <?php $pidtxt='descri'; $pcaption='DESCRIPCION';  $psize=$xfontsize; $plong=20; $pobj=3; include('vrgettxt.php'); ?>
              </tr>
          
                 
          <?php if($mobile!='true'){?>        
          </table>

          </td>
          <td valign="top">
            
            <table width="100%" cellpadding="2" border="0"
                  style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
              <tr>
                <td width="1%"></td>
              </tr>
          <?php } ?>
          
              <tr>
                <?php $pidtxt='stat'; $pcaption='STATUS'; $ptabla='stat';  $psize=$xfontsize; $plong=4; $pobj=3; include('vrgetcod.php'); ?>
              </tr>
              <tr>
                <?php $pidtxt='tipo'; $pcaption='TIPO'; $ptabla=$tabla.'0'; $pcolu=$tabla.'_tipo'; $psize=$xfontsize; $plong=4; $pobj=3; include('vrgettxt.php'); ?>
              </tr>
              
          <?php if($mobile!='true'){?>        
          </table>

          </td>
          <td valign="top">
            
            <table width="100%" cellpadding="2" border="0"
                  style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
              <tr>
                <td width="1%"></td>
              </tr>
          <?php } ?>
                 
               <tr style="display:none;" class="maes clac">
                    <?php
//                    $pidtxt='tipoprec'; $pcaption='Precio';  $psize=$xfontsize; $pdefa='';   $pvalue=$pdefa; $pobj=3;  $pnotob=0; $pclass='maes prec';
//                    $poptions ='';
//                    $poptions.='1,Unitario;2,Dcto.;3,P.V.P.;';
//                    include('vrselopt.php');
              ?>
                <?php $pidtxt='propexte'; $pcaption='Origen'; $psize=$xfontsize; $pdefa=''; $pobj=3; $pclass='maes clac'; 
              $poptions='0,Todos;1,Propias;2,Externas';
               include('vrselopt.php'); ?>
              </tr>
                 
               <tr style="display:none;" class="maes atrz adrs">
                <?php $pidtxt='enti'; $pcaption='CED/RUC'; $ptabla='enti'; $psize=$xfontsize; $pobj=3; $pclass='maes atrz adrs';  include('vrgetcod.php'); ?>
              </tr>
              <tr style="display:none;" class="maes user enti ppto">
                <?php $pidtxt='ciudad'; $pcaption='CIUDAD'; $ptabla='user0'; $pcolu='user_ciudad'; $psize=$xfontsize; $plong=20; $pobj=3; $pclass='maes user enti ppto'; include('vrgettxt.php'); ?>
              </tr>
			<tr style="display:none;" class="maes enti">
                <?php $pidtxt='zsub'; $pcaption='ZONA'; $ptabla='zsub'; $psize=$xfontsize; $plong=4; $pobj=3; $pclass='maes enti'; include('vrgetcod.php'); ?>
              </tr>
			<tr style="display:none;" class="maes item prec">
                <?php $pidtxt='lsub'; $pcaption='LINEA'; $ptabla='lsub'; $psize=$xfontsize; $plong=4; $pobj=3; $pclass='maes item prec'; 
//                   if($cfg_empr=='saar'){$pvalue='ELED-';}
//                   if($cfg_empr=='hfre'){$pvalue='INAG-';}
//                   if($cfg_empr=='orel'){$pvalue='ELCA-';}
                  include('vrgetcod.php'); ?>
              </tr>
              
					<tr style="display:none;" class="maes item prec">
                <?php $pidtxt='mrca'; $pcaption='MARCA'; $ptabla='mrca'; $psize=$xfontsize; $plong=4; $pobj=3; $pclass='maes item prec'; include('vrgetcod.php'); ?>
              </tr>
              
					<tr style="display:none;" class="maes prec">
                <?php 
                   $pidtxt='tipoprec'; $pcaption='Precio';  $psize=$xfontsize; $pdefa='';   $pvalue=$pdefa; $pobj=3;  $pnotob=0; $pclass='maes prec';
                   $poptions ='';
                   $poptions.='1,Unitario;2,Dcto.;3,P.V.P.;';
                   include('vrselopt.php');
                 ?>              
              </tr>
              
          
							<tr style="display:none;" class="maes tlfn">
                <?php $pidtxt='opera'; $pcaption='OPERADOR'; $psize=$xfontsize; $pobj=3; $pclass='maes tlfn'; $plist='dl_opera'; $plong=6; include('vrgettxt.php'); ?>
              </tr>
              
							<tr style="display:none;" class="maes tlfn">
                <?php $pidtxt='area'; $pcaption='AREA'; $psize=$xfontsize; $pobj=3; $pclass='maes tlfn'; $plist='dl_area'; $plong=6; include('vrgettxt.php'); ?>
              </tr>
              
							<tr style="display:none;" class="maes tlfn">
                <?php $pidtxt='contacto'; $pcaption='CONTACTO';  $psize=$xfontsize; $plong=20; $pobj=3; $pclass='maes tlfn'; include('vrgettxt.php'); ?>
              </tr>
              
              
          <?php if($mobile!='true'){?>        
          </table>

          </td>
          <td valign="top">
            
            <table width="100%" cellpadding="2" border="0"
                  style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
              <tr>
                <td width="1%"></td>
              </tr>
          <?php } ?>
              
              
              <?php if($cfg_empr=='jwib'){ ?>
							<tr style="display:none;" class="maes tlfn">
                <?php $pidtxt='calle1'; $pcaption='CALLE1'; $psize=$xfontsize; $pobj=3; $pclass='maes tlfn'; $plist='dl_calle1'; $plong=10; include('vrgettxt.php'); ?>
              </tr>
              
							<tr style="display:none;" class="maes tlfn">
                <?php $pidtxt='calle2'; $pcaption='CALLE2'; $psize=$xfontsize; $pobj=3; $pclass='maes tlfn'; $plist='dl_calle2'; $plong=6; include('vrgettxt.php'); ?>
              </tr>
              
							<tr style="display:none;" class="maes tlfn">
                <?php $pidtxt='scantlfn'; $pcaption='SCAN';  $psize=$xfontsize; $plong=15; $pobj=3; $pclass='maes tlfn'; 
                                       if($user_tipo=='invi'){$phide=1;}
                                       $ponclick='scan_tlfn(document.getElementById("scantlfn").value)'; include('vrgetnum.php'); ?>
              </tr>
              <?php } ?>
          </table>

          <?php if($mobile!='true'){?>        
          </td>
          <td valign="top">
          <?php } ?>

            <table width="100%" cellpadding="2" border="0"
                style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:snow;">
              <tr>
                <td width="10%"></td>
              </tr>
              <tr>
                
                 
              <?php $pidtxt='listpre1'; $pcaption='Lista 1'; $ponclick=''; $psize=$xfontsize; $pdefa=1; $phide=1; $pclass='maes prec'; include('vrchkbox.php'); ?>
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
                
              <?php $pidtxt='listpre2'; $pcaption='Lista 2'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes prec'; include('vrchkbox.php'); ?>
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
                
              <?php $pidtxt='listpre3'; $pcaption='Lista 3'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes prec'; include('vrchkbox.php'); ?>
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
                
              <?php $pidtxt='listpre4'; $pcaption='Lista 4'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes prec'; include('vrchkbox.php'); ?>
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
                
              <?php $pidtxt='listpre5'; $pcaption='Lista 5'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes prec'; include('vrchkbox.php'); ?>
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
                
              <?php $pidtxt='listimpt'; $pcaption='Impuestos'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes prec'; include('vrchkbox.php'); ?>
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
                

              <?php if($mobile=='true'){?>        
              <tr><td><br></td></tr>
              <?php } ?>

            </table>

            
          <?php if($mobile!='true'){?>        
          </td>
          <td valign="top">
          <?php } ?>

            <table width="100%" cellpadding="2" border="0"
                style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:snow;">
              <tr>
                <td width="10%"></td>
              </tr>
              <tr>
              <?php if($mobile=='true'){ ?>        
              <td>
              <?php } ?>  
              <?php $pidtxt='detadocu'; $pcaption='Detalle'; $ponclick='info_docu("DETA");'; $psize=$xfontsize; $pdefa=0; $pclass='maes'; $phide=1; include('vrchkbox.php'); ?>

              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='itemtodo'; $pcaption='Todos'; $pname="item"; $psize=$xfontsize; $pdefa=1 ; $phide=1; $pclass='maes item'; include('vrchkbox.php'); ?>
                 
              <?php if($mobile=='true'){ ?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='itemvtas'; $pcaption='Ventas'; $pname="item"; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes item'; include('vrchkbox.php'); ?>
                 
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='itemcomp'; $pcaption='Compras'; $pname="item"; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes item'; include('vrchkbox.php'); ?>
                 
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='iteminve'; $pcaption='Inventarios'; $pname="item"; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes item'; include('vrchkbox.php'); ?>
                 
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='ctasused'; $pcaption='Solo Utilizadas'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes ctas'; include('vrchkbox.php'); ?>


                
                
              <?php if($mobile=='true'){?>        
              <tr><td><br></td></tr>
              <?php } ?>

            </table>

            
          <?php if($mobile!='true'){?>        
          </td>
          <td valign="top">
          <?php } ?>

            <table width="100%" cellpadding="2" border="0"
                style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:snow;">
              <tr>
                <td width="10%"></td>
              </tr>
              <tr>
                
                
                
                
                
                
                
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='itemmdlo'; $pcaption='X Modelo'; $pname="item"; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes item prec';
//                 if(mb_stristr('gmny.gnya',$cfg_empr)){$pdefa=1;}
                include('vrchkbox.php'); ?>
                 
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='itemimgi'; $pcaption='Imagen'; $pname="item"; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes item prec'; include('vrchkbox.php'); ?>
                 
              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>
              <?php $pidtxt='maesmodi'; $pcaption='Modif.'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $phide=1; $pclass='maes prec'; include('vrchkbox.php'); ?>

              <?php if($mobile=='true'){?>        
              </td>
              <td valign="top">
              <?php }else{ ?>
              </tr>
              <tr style="display:none;" >
              <?php } ?>

              <?php if($mobile=='true'){?>        
              <tr><td><br></td></tr>
              <?php } ?>

            </table>


          <?php if($mobile!='true'){?>        
          </td>
          <td valign="top">
          <?php } ?>
            
            <table width="100%" cellpadding="2" border="0"
                  style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
              
          <tr>
            <td style="display:;">
					<?php $pidtxt='acepta'; $pcaption='Aceptar '; $ponclick='info_maes("PANT1",'.'document.getElementById("docu").value'.')'; $psize=$xfontsize; include('vrbutton.php'); ?>
            </td>  
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
					<?php $pidtxt='imprim'; $pcaption='Imprimir'; $ponclick='info_maes("IMPR1",'.'document.getElementById("docu").value'.')'; $psize=$xfontsize; include('vrbutton.php'); ?>
            </td>  
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
              <?php //$pidtxt='vermodi'; $pcaption='Modif.'; $ponclick=''; $psize=$xfontsize; $pdefa=0; $pclass="maes enti item"; $phide=1; include('vrchkbox.php'); ?>
            </td>  
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
            <?php $pidtxt='graba'; $pcaption='Graba Codigo';  $phide=1; 
              $pclass='maes caja bcos ctab bode zsub csub lsub asub lote clor atrz mrca kldd ptov'; 
              $ponclick =''; 
              $ponclick.='info_maes("GRABA",'.'document.getElementById("docu").value'.');'; 
              $ponclick.='document.getElementById("codigo").value=document.getElementById("codigo").value.substring(0,4);'; 
//               $ponclick.='document.getElementById("descri").value="";'; 
              $ponclick.='info_maes("PANT1",'.'document.getElementById("docu").value'.');'; 
              include('vrbutton.php'); 
               ?>
            </td>  
            <td>
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
            <?php $pidtxt='nuevc'; $pcaption='Nueva Cuenta';  $phide=1; $pclass='maes ctas'; 
              $ponclick =''; 
              $ponclick.='info_maes("GRABA",'.'document.getElementById("docu").value'.');'; 
              $ponclick.='document.getElementById("codigo").value=document.getElementById("codigo").value.substring(0,7);'; 
              $ponclick.='document.getElementById("descri").value="";'; 
              $ponclick.='info_maes("PANT1",'.'document.getElementById("docu").value'.');'; 
              include('vrbutton.php'); 
               ?>
            </td>  
            <td>
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
          <?php $pidtxt='nuevi'; $pcaption='Nueva ENTI';  $phide=1; $pclass='maes enti'; 
              $ponclick='php_func("new_enti(99)");document.getElementById("codigo").value=99;info_maes("PANT1",'.'document.getElementById("docu").value'.');'; 
              include('vrbutton.php'); ?>
            </td>  
            <td>
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
          <?php 
              $sql_nite='select item_codigo from item0 where item_status not in("O","X") and item like "20%" order by item_codigo desc limit 1';
              $res_nite=msql_query($sql_nite,$link_vcrx);
              $xitem=msql_result($res_nite,0,'item_codigo');
              //$nitem=substr($nitem,0,2);
              $nitem=substr($xitem,0,2);
              if($cfg_empr=='gmny'){$nitem=substr($xitem,0,5);}
              if($cfg_empr=='gnya'){$nitem=substr($xitem,0,5);}
              if(empty($nitem)){$nitem='20';}
              
              $pidtxt='nuevi'; $pcaption='Nuevo Item';  $phide=1; $pclass='maes item'; 
              $ponclick ='php_func("new_item(20)");'; 
              $ponclick.='document.getElementById("codigo").value='.$nitem.';'; 
              $ponclick.='document.getElementById("descri").value="%NUEVO%";'; 
//               $ponclick.='document.getElementById("descri").value="***";'; 
              $ponclick.='document.getElementById("itemtodo").checked=1;'; 
//               $ponclick.='document.getElementById("itemvtas").checked=1;'; 
              $ponclick.='info_maes("PANT1",'.'document.getElementById("docu").value'.');'; 
              include('vrbutton.php'); ?>
            </td>  
            <td>
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
          <?php $pidtxt='nuevg'; $pcaption='Nuevo Gasto';  $phide=1; $pclass='maes item'; 
              $ponclick='php_func("new_item(99)");'; 
              $ponclick.='document.getElementById("codigo").value=99;'; 
//               $ponclick.='document.getElementById("descri").value="NUEVO";'; 
              $ponclick.='document.getElementById("itemtodo").checked=1;'; 
              $ponclick.='info_maes("PANT1",'.'document.getElementById("docu").value'.');'; 
              include('vrbutton.php'); ?>
          <?php //$pcaption='Nuevo Gasto';  $ponclick="php_func('new_item(99)');redireccionar();" ;include('vrbutton.php'); ?>
            </td>  
            <td>
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td>
            <?php if($cfg_empr=='jw19'){ ?>
					<?php $pidtxt='asam'; $pcaption='Asamblea '; $ponclick='info_maes("PANT1",'.'document.getElementById("docu").value'.',"ASAM")'; $psize=$xfontsize; include('vrbutton.php'); ?>
            <?php } ?> 
              </td>
            <?php if($mobile!='true'){?>        
            </tr>
            <tr>
            <?php } ?>              
            <td style="<?php if(mb_stristr('invi.clie.prov',$user_tipo) or $user_tipo==''){echo 'display:none;';} ?>">
                
                <?php 
                  $pidtxt='nueva'; $pcaption='Nuevo ';
                  $ponclick='';                                                                 
//                   $ponclick.="crea_docu(document.getElementById('docu').value);"; 
                  $ponclick.="info_docu('PANT1',document.getElementById('docu').value,5);"; 
//                   $psize=$xfontsize; include('vrbutton.php');
                 ?>
              </td>
                <td><div id='idnum_creadocu'style='display:none;'></div></td>
             </tr>  
            <?php if($mobile=='true'){?>        
              <tr><td><br></td></tr>
            <?php } ?>              
              
            </table>
           </td>

              	
				</tr>	
        
			</table>
      <?php if($cfg_empr=='jw19') {?>
      <table>
        <tr style="display:none;" class="maes user enti ppto">
          <?php //$pidtxt='cong'; $pcaption='ZONA'; $ptabla='zsub'; $psize=$xfontsize; $plong=4; $pobj=3; $pclass='maes enti'; include('vrgetcod.php'); ?>
          <?php //$pidtxt='ciudad'; $pcaption='CIUDAD'; $ptabla='user0'; $pcolu='user_ciudad'; $psize=$xfontsize; $plong=20; $pobj=3; $pclass='maes user enti ppto'; include('vrgettxt.php'); ?>
          
          <?php $pidtxt='gruposeg'; $pcaption='GRUPO'; $ptabla='ppto0'; $pcolu='ppto_grupo_seg'; $psize=$xfontsize; $plong=5; $pobj=3; $pclass='maes ppto'; include('vrgettxt.php'); ?>
          <?php $pidtxt='congname'; $pcaption='CONGRE'; $ptabla='ppto0'; $pcolu='ppto_congname'; $psize=$xfontsize; $plong=20; $pobj=3; $pclass='maes ppto'; include('vrgettxt.php'); ?>
        </tr>
      </table>
      <?php } ?>
		<?php } ?>
		</div>	
		<div id="pant1" style="border:solid 1px; overflow:auto; font-family:arial;">
		<div id="tpant1b"></div>
    </div>
		<hr>
		<div id="pant11" style="border:solid 1px; overflow:auto; font-family:arial; display:none;"></div>
		<div id="pant2"  style="border:solid 1px; overflow:auto; font-family:arial; display:none;
					<?php if($orient=='V'){echo'min-height:'.($hpant2-75).'px;';}else{echo'min-height:'.($hpant2-90).'px;';}  ?> 
					<?php if($orient=='V'){echo'height:'.($hpant2-75).'px;';}else{echo'height:'.($hpant2-30).'px;';}  ?> 
           "></div>
		<div id="pant9"></div>
<?php } ?>			

<?php if(mb_stristr('PANT1.IMPR1.MAIL1.',$pant)) { ?>


 <?php //if(@mb_stristr('.PREC',$docu)){regula_punimdlo0();} ?>    
 <?php if(@mb_stristr('.PREC',$docu)){regula_pvp();} ?>    


  <?php if(mb_stristr('PANT1.PANT3',$pant)){ ?>
       <?php //$pidtxt='dl_'; $ptabla=$tabla; include('vrsetlist.php'); ?>
  <?php } ?>
  
  <?php if(mb_stristr('PANT1.IMPR1.PANT3.IMPR3',$pant)){ ?>
  <?php 
    $sql_stat ='update '.$tabla.'0 set '.$tabla.'_status="-" ';
    $sql_stat.=' where ('.$tabla.'_status="" or '.$tabla.'_status is null) ';
    $sql_stat=strtolower($sql_stat);
    msql_query($sql_stat,$link_vcrx); 
  ?>
  <?php 
    $sql_stat ='update '.$tabla.'0 set '.$tabla.'_idate="2000-01-01" ';
    $sql_stat.=' where ('.$tabla.'_idate="" or '.$tabla.'_idate is null) ';
    $sql_stat=strtolower($sql_stat);
    msql_query($sql_stat,$link_vcrx); 
  ?>
  <?php 
    $sql_stat ='update '.$tabla.'0 set '.$tabla.'_descri0='.$tabla.'_descri ';
    $sql_stat.=' where ('.$tabla.'_descri0="" or '.$tabla.'_descri0 is null or '.$tabla.'_descri0 like "*** N%") ';
    $sql_stat=strtolower($sql_stat);
    msql_query($sql_stat,$link_vcrx); 
  ?>
  <?php 
    if($tabla=='item')
    {
      $sql_stat ='update '.$tabla.'0 set '.$tabla.'_dcos=6 ';
      $sql_stat.=' where ('.$tabla.'_dcos=0 or '.$tabla.'_dcos is null) ';
      $sql_stat=strtolower($sql_stat);
      msql_query($sql_stat,$link_vcrx); 
    }
  ?>
  <?php 
    if($tabla=='item')
    {
      $sql_stat ='update '.$tabla.'0 set '.$tabla.'_puni1='.$tabla.'_puni';
      $sql_stat.=' where ('.$tabla.'_puni1=0 or '.$tabla.'_puni1 is null) and ('.$tabla.'_pvp1=0 or '.$tabla.'_pvp1 is null) ';
      $sql_stat=strtolower($sql_stat);
      msql_query($sql_stat,$link_vcrx); 
      
    }
  ?>


  <?php } ?> 
  
	<?php
// echo '*/*/*'.$fecha1.$fecha2;
    { 
    $limit=0;
//     $limit=$idnum*1;
    $fecha0='2000-01-01';
  
    if($limit>0)  
    {
      $fecha1='2000-01-01';
      $fecha2='2100-01-01';
    }

    if(mb_stristr('docu',$tabla))
    {
      $fecha1='2000-01-01';
      $fecha2='2100-01-01';
    }
      
    if(mb_stristr('ctas',$tabla))
    {
      $fecha1='2000-01-01';
      $fecha2='2100-01-01';
    }
      
//       $user_cedula='0992667559';
    $docu=$docu;

    $docu=strtolower($docu);
    $tabla=strtolower($tabla);
      
      
		$sql_pant ='update '.$tabla.'0 set '.$tabla.'_idate="2010-01-01" where '.$tabla.'_idate is null';
		$res_pant=msql_query($sql_pant,$link_vcrx);
      
		$sql_desc ='describe '.$tabla.'0 ';
		$res_desc=msql_query($sql_desc,$link_vcrx);
    $autoi=msql_result($res_desc,0,'extra');
    if($autoi==''){$autoi=0;}else{$autoi=1;}
      
    $tabla0=$tabla.'00';
		$sql_pant ='select * from '.$tabla0.' limit 1';
    $res_pant =msql_query($sql_pant,$link_vcrx);
      
    if(msql_error($link_vcrx)!=''){$tabla0=$tabla.'0';}
         
         
     if($tabla=='enti'){$limit=1000;}
     if($tabla=='item' and mb_stristr('gmny.gnya',$cfg_empr)){$limit=1000;}
         
		$sql_pant ='select * from '.$tabla0.' ';
		$sql_pant.=' where '.$tabla.'_status!="X"';
		$sql_pant.=' and  trim('.$tabla.'_codigo)!=""';

    $sql_fecs=' and(date_format('.$tabla.'_idate,"%Y-%m-%d") between "'.$fecha1.'" and "'.$fecha2.'")';  
    if($tabla=='atrz')
    {
      $fecha3=date('Y-m-01',strtotime('-24 month'));
      $sql_fecs=' and '.$tabla.'_caduca >= "'.$fecha3.'" ';
    }
//     {$sql_fecs=' and(date_format('.$tabla.'_caduca,"%Y-%m-%d") between "'.$fecha1.'" and "'.$fecha2.'")';}
    if($tabla=='clac')
    {$sql_fecs=' and(date_format('.$tabla.'_fecha,"%Y-%m-%d") between "'.$fecha1.'" and "'.$fecha2.'")';}
         
    if($tabla=='clac')
    {
      if($propexte==1)
      {$sql_pant.=' and('.$tabla.'_enti like "'.substr($cfg_ruc,0,10).'%" )';}
      if($propexte==2)
      {$sql_pant.=' and('.$tabla.'_enti not like "'.substr($cfg_ruc,0,10).'%" )';}
    }
         
//     {$sql_pant.=' and(date_format('.$tabla.'_fecha,"%Y-%m-%d") between "'.$fecha1.'" and "'.$fecha2.'")';}
//     else
//     {$sql_pant.=' and(date_format('.$tabla.'_idate,"%Y-%m-%d") between "'.$fecha1.'" and "'.$fecha2.'")';}
      
    $sql_pant.=$sql_fecs;

    if($codigo!='')
    {
      $sql_pant.=' and('.$tabla.'_codigo like "'.$codigo.'%"';
      if($tabla=='item')
      {
        $sql_pant.=' or '.$tabla.'_codigov like "'.$codigo.'%"';
        $sql_pant.=' or '.$tabla.'_ean like "'.$codigo.'%"';
        $sql_pant.=' or '.$tabla.'_mdlo like "'.$codigo.'%"';
        $sql_pant.=' or '.$tabla.'_numpart like "'.$codigo.'%"';
      }
      $sql_pant.=' )';
    }
      
     
      
   if($codigo*1>=10000000)
   {$descri='';$lsub='';$mrca='';$kldd='';$composi='';$clor1='';}

    if($descri!='')
    {$sql_pant.=' and('.$tabla.'_codigo like "%'.$descri.'%" or '.$tabla.'_descri like "%'.$descri.'%" )';}
//     {$sql_pant.=' and('.$tabla.'_codigo like "'.$descri.'%" or '.$tabla.'_descri like "%'.$descri.'%" )';}

    if($tipo!='')
    {$sql_pant.=' and('.$tabla.'_tipo like "%'.$tipo.'%" )';}

      
    if($tabla=='item')
    {
      if($lsub!='')
      {$sql_pant.=' and('.$tabla.'_lsub like "%'.$lsub.'%" )';}

      if($mrca!='')
      {$sql_pant.=' and('.$tabla.'_mrca like "%'.$mrca.'%" )';}

    if($itemvtas=='true')
    {$sql_pant.=' and('.$tabla.'_codigo in (select item from vtas2) )';}

    if($iteminve=='true')
    {$sql_pant.=' and('.$tabla.'_codigo in (select item from inve2) )';}
         
    }

    if($stat!='')
    {$sql_pant.=' and('.$tabla.'_status = "'.$stat.'" )';}

    if($status!='')
    {$sql_pant.=' and('.$tabla.'_status = "'.$status.'" )';}

     if(mb_stristr('invi.clie.prov',$user_tipo) or empty($user_tipo))
    {
          if($tabla=='adrs')
         {
          $user_cons=1;
          $enti=r_fiel('user',$user_codigo,'cedula');
          if(empty($enti)){$enti='9999999999';}
          }
    }


    $sql_maes='describe '.$tabla.'0';
    $res_maes=msql_query($sql_maes,$link_vcrx);
    while($aso_maes=@msql_fetch_assoc($res_maes))
    { 
      $field=trim($aso_maes['Field']);
      $field=substr($field,5);
//       if(!mb_stristr('codigo.descri.tipo.empr.tabla.orient',$field))
      if(!mb_stristr('codigo.descri.tipo.empr.tabla.orient.docu',$field))
      {if(${$field}!=''){$sql_pant.=' and('.$tabla.'_'.$field.' like "%'.${$field}.'%" )';}}
    }
      
//         echo '<msgalert>';
  //     echo '***** '.$sql_pant;
    //     echo '</msgalert>';


    if($congname!='')
    {$sql_pant.=' and('.$tabla.'_congname like "%'.$congname.'%" )';}

    if($gruposeg!='')
    {$sql_pant.=' and('.$tabla.'_grupo_seg like "%'.$gruposeg.'%" )';}
      

    if($idnum=='ASAM')
    {$sql_pant.=' and('.$tabla.'_d14=1 or '.$tabla.'_d15=1 or '.$tabla.'_d16=1)';}
      
//    gnya      
//     if($cfg_empr=='gnya' and $docu=='user')
    if(mb_stristr('gnya.gmny',$cfg_empr) and  $docu=='user')
    {
      if(mb_stristr('invi.clie.prov',$user_tipo) or $user_tipo=='')
      {
        gnya_niveles($docu,$user_codigo);        
        $sql_pant.=' and('.$tabla.'_referx1="'.$user_codigo.'" or '.$tabla.'_referx2="'.$user_codigo.'" or '.$tabla.'_referx3="'.$user_codigo.'")';
      }
    }

      
    if(mb_stristr('gnya.gmny',$cfg_empr) and  $docu=='user' and 1==2)
    {
      if($nombre!='')
      {$sql_pant.=' and (user_descri like "%'.$nombre.'%" )';}

      if($ciudad!='')
      {$sql_pant.=' and (user_ciudad like "%'.$ciudad.'%" )';}

      if(mb_stristr('invi.clie.prov',$user_tipo) or $user_tipo=='')
      {$sql_pant.=' and (user_referidox="'.$user_codigo.'" or user_referidox like "'.substr($user_cedula,0,10).'%")';}
    }
      
    if($itemmdlo=='true')
    {$sql_pant.='group by item_mdlo';}  
      
		$sql_pant.=' order by trim('.$tabla.'_descri),'.$tabla.'_codigo ';
    if(mb_stristr('ctas.lsub.csub.cair.suco',$tabla))
    {$sql_pant=str_replace('order by ','order by '.'trim('.$tabla.'_codigo),',$sql_pant);}
      
    if($limit>0)  
    {$sql_pant.=' limit '.$limit;}
     
         
//     if($idnum=='ASAM')
//     {
//       $sql_pant.=' ,ppto_d14 desc, ppto_d15 desc, ppto_d16 desc ';
//       $sql_pant.=' limit 300';
//     }  
         
    if($msgerror!=''){$sql_pant='';}

    if(mb_stristr('gnya.gmny',$cfg_empr) and $docu=='user')
    {$user_cons=1;}
      
      
    if($user_cons==0)
    {$sql_pant='';$sql_tpant='';}

      
       if($itemteki=='true')
       {
         $showok=1;
         $sql_pant ='select *,';
//           $sql_pant.='sum(case when item_tlla=91 then teki_valor else 0 end) as t91,';
//           $sql_pant.='sum(case when item_tlla=92 then teki_valor else 0 end) as t92,';
//           $sql_pant.='sum(case when item_tlla=93 then teki_valor else 0 end) as t93,';
          $sql_pant.='item_status ';
          $sql_pant.='from item00 left join teki0 on item_codigo=teki_item  ';
          $sql_pant.='where item_clor="00" and teki_valor>0 ';
          $sql_pant.='and item_codigo like "'.$codigo.'%" ';
          $sql_pant.='group by substring(item_codigo,1,8),teki_dato ';
          $sql_pant.='order by item_tlla,item_codigo,teki_dato ';
       }
      
		$res_pant=msql_query($sql_pant,$link_vcrx);
      
		if(mb_stristr('comp',$tabla))
		{
			$trrta=msql_result($res_tpant,0,'srrta');
			$triva=msql_result($res_tpant,0,'sriva');
		}			

		$tdocu=@msql_num_rows($res_pant);

// 		if($dispcolu=='true')
		if($dispcolu==0)
		{
			$tsubt=0;
			$tsubtiva=0;	
			$tsubtiva0=0;
			$tdcto=0;
			$tprop=0;
			$tiva=0;
			$tice=0;
			$tirbp=0;

			$trrta=0;
			$triva=0;
		}

	
	}	?>

	<?php $crow=0; ?>
	<?php $ccol=0; ?>
	<?php $tnumero=0; ?>
	<?php $emailist=''; ?>
	<pant1>
		<?php //echo ($sql_pant);	?>
		<?php 
    if($user_codigo==2){
//         echo '***'.$sql_pant;
//   echo explain_sql($sql_pant);	
    }
    ?>
    <?php //gnya_niveles($docu,$user_codigo); ?>

    <?php if(mb_stristr('IMPR1.IMPR3',$pant) and 1==1){ ?>
    <?php $xfontsize=$xfontsize*(1.2); ?>  
    <?php $xfontfamily='font-family:arial;';  ?>

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title><?php echo strtoupper($cfg_empr).' -  '.r_fiel('docu',$docu); ?></title>
    <style type="text/css">
    p.saltodepagina{page-break-after: always;}
    #header{display:none;}
    @font-face{font-family:'Barcode'; src:url('/_font/BarcodeFont.ttf') format('truetype');}
    barcode{font-family:'Barcode';}
    @media print {.noprint {display:none}}
    @media screen{.noscreen {display:none}}

      /* 	top right bottom left */
    @page
    {
      size: A4 <?php if($pant=='IMPR3'){echo 'landscape';}else{echo 'portrait';} ?>;
      margin: 10mm 5mm 10mm 5mm;
    }
    </style>
    </head>
    <body>
    <div style="font-size:<?php echo $xfontsize; ?>;<?php echo $xfontfamily;?> width:; ">
    <table id="titulos" class="pant1" border="0"
           align="center" cellpadding="3" width="100%"
           style="font-size:<?php {echo $xfontsize;} ?>px;
            border-collapse:collapse;background-color:snow; position:;"
            >
    <tr style="background-color:<?php echo $gris1; ?>; border-top:solid 2px; border-bottom:solid 2px; font-weight:bold">
      <td width="20%" align="" style="font-size:<?php {echo $xfontsize*1.3;} ?>px;">
        <?php if($pant=='IMPR1'){echo 'CONSULTA DE MAESTROS';}else{echo 'CONSULTA DE REGISTROS';}; ?>
      </td>
      <td width="60%" align="center" style="font-size:<?php {echo $xfontsize*1.3;} ?>px;">
        <?php echo r_fiel('enti',$cfg_ruc).'<br> RUC : '.$cfg_ruc; ?>
      </td>
      <td width="20%" align="right" style="font-size:<?php {echo $xfontsize*.7;} ?>px;">
        <?php echo 'USUARIO : '.$user_codigo.' - '.r_fiel('user',$user_codigo); ?>
        <br>
        <?php echo 'FECHA : '.date('D d/M/y'); ?> 
        <br>
        <?php echo 'HORA : '.date('H:i:s'); ?> 
      </td>
    </tr>
    </table>  

    <table id="filtros" class="pant1" border="0"
           align="center" cellpadding="3" width="100%"
           style="font-size:<?php {echo $xfontsize*.75;} ?>px;
            border-collapse:collapse;background-color:snow; position:;"
            >
    <tr>
      <td width="50%" valign="top">
        <table id="" class="" border="1"
           align="center" cellpadding="3" width="100%"
           style="font-size:<?php {echo $xfontsize;} ?>px;
            border-collapse:collapse;background-color:snow; position:;">
          <tr style="background-color:<?php echo $gris1; ?>;">
            <td align="center" colspan="2" style="font-weight:bold;">FILTROS</td>
          </tr>  
          <tr style="display:none;">
            <td style="font-weight:bold;">FECHAS </td>
            <td><?php echo date('d/M/y',strtotime($fecha1)).' - '.date('d/M/y',strtotime($fecha2)); ?></td>
          </tr>  
          <tr>
            <td width="20%"  style="font-weight:bold;"  >MAESTRO</td>
            <td style="font-weight:bold;"><?php echo $docu.' - '.r_fiel('docu',$docu); ?></td>
          </tr>  
          <tr style="display:none;">
            <td style="font-weight:bold;">NUMEROS</td>
            <td><?php echo $numero1.' - '.$numero2; ?></td>
          </tr>  
          <tr>
            <td style="font-weight:bold;"><?php echo 'DESCRIPCION'?></td>
            <td><?php if($descri==''){echo 'TODOS';}else{echo $descri;}; ?></td>
          </tr>  
          <tr>
            <td style="font-weight:bold;">STATUS</td>
            <td><?php if($stat==''){echo 'TODOS';}else{echo r_fiel('stat',$stat);}; ?></td>
          </tr>  
          <?php          
          $res_maes=msql_query($sql_maes,$link_vcrx);
          while($aso_maes=@msql_fetch_assoc($res_maes))
          { 
            $field=trim($aso_maes['Field']);
            $field=substr($field,5);
            if(!mb_stristr('codigo.descri.tipo.empr.tabla.orient',$field))
            {
              if(${$field}!='')
              { 
                echo '<tr>';
                echo '<td style="font-weight:bold;">'.strtoupper($field).'</td>';
                echo '<td>'.${$field}.'</td>';
                echo '</tr>';
              }
            }
          }
          ?>
          
        </table>
      </td>
      <td width="50%" valign="top">
        <table id="" class="" border="1"
           align="center" cellpadding="3" width="100%"
           style="font-size:<?php {echo $xfontsize;} ?>px;
            border-collapse:collapse;background-color:snow; position:;">
          <tr align="center" style="background-color:<?php echo $gris1; ?>;">
            <td colspan="2" style="font-weight:bold;">RESUMEN</td>
          </tr>  
          <tr align="right">
            <td style="font-weight:bold;"><?php if($pant=='IMPR1'){echo 'CODIGOS';}else{echo 'REGISTROS';}?></td>
            <td width="20%" style="font-weight:bold;" align="center"><?php echo $tdocu; ?></td>
          </tr>  
          <?php if($tabla=='cont'){ ?>
          <tr align="right">
            <td style="font-weight:bold;">DEBITOS</td>
            <td><?php echo number_format(abs($tdebito),2); ?></td>
          </tr>
          <tr align="right">
            <td style="font-weight:bold;">CREDITOS</td>
            <td><?php echo number_format(abs($tcredito),2); ?></td>
          </tr>
          <?php $total=abs($tdebito)-abs($tcredito);?>
          <?php $tsubt=0;?>
          <?php } ?>
          <tr align="right" style="display:none;">
            <td style="font-weight:bold;">CANTIDAD</td>
            <td align="right"><?php echo number_format($tcant,2); ?></td>
          </tr>  
          <?php if($tdcto!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">DESCUENTOS</td>
            <td><?php echo number_format($tdcto,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($tssid!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">SUBSIDIO</td>
            <td><?php echo number_format($tssid,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($tice!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">ICE</td>
            <td><?php echo number_format($tice,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($tsubtiva0!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">SUB-TOT IVA 0</td>
            <td><?php echo number_format($tsubtiva0,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($tsubtiva!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">SUB-TOT IVA</td>
            <td><?php echo number_format($tsubtiva,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($tiva!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">IVA</td>
            <td><?php echo number_format($tiva,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($tbrta!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">BASE RENTA</td>
            <td><?php echo number_format($tbrta,2); ?></td>
          </tr>
          <tr align="right">
            <td style="font-weight:bold;">RET. RENTA</td>
            <td><?php echo number_format($trrta,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($tbiva!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;">BASE IVA</td>
            <td><?php echo number_format($tbiva,2); ?></td>
          </tr>
          <tr align="right">
            <td style="font-weight:bold;">RET. IVA</td>
            <td><?php echo number_format($triva,2); ?></td>
          </tr>
          <?php } ?>
          <?php if($total!=0){ ?>
          <tr align="right">
            <td style="font-weight:bold;"><?php if($tabla=='cont'){echo 'DIFER.';}else{echo 'TOTAL';} ?></td>
            <td style="font-weight:bold; <?php if($tdiferencia!=0){ echo 'color:red;';}?>"><?php echo number_format(abs($total),2); ?></td>
          </tr>
          <?php } ?>
        </table>
      </td>
    </tr>  

    </table>

    <hr>
    <?php } ?>
      <?php if($user_codigo==2){ ?>
    <?php //echo  explain_sql($sql_pant);	?>
      <?php } ?>
    <?php //$dispcolu=0; ?>
    <?php $tmaxwidth=''; ?>  

    
		<table id="tpant1" class="pant1 <?php if(mb_stristr($pant,'PANT')){echo 'ListaTabla header_fijo';}?>" border="0"
					 align="center" cellpadding="3" width="100%"
					 style="font-size:<?php if($orient=='V'){echo $xfontsize-8;}else{echo $xfontsize;} ?>px;
						border-collapse:collapse;background-color:white; position:;"
						>
			<?php { // THEAD ?>
			<thead style="<?php echo $tdisplay; ?><?php if($mobile!='true'){echo 'max-width:'.($screenw-20).'px;';} ?>;background-color:#eee;">
				<tr style="border-bottom:solid 1px; cursor:pointer;">
          <th onclick="sortTable(this,0);" style="display:none;"><?php  $ccol++; ?></th>
          <?php if(substr($pant,0,4)=='PANT'){ ?>
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);" title="Imprimir" style="position:;">I</th>
          <?php } ?>
          <?php if(substr($pant,0,4)=='PANT'){ ?>
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);" title="Editar" style="<?php if($dispcolu==0){echo'display:;';}?>">E</th>
          <?php } ?>
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);">CODIGO</th>
          <?php if($docu=='user' and mb_stristr('gmny.gnya',$cfg_empr) and (mb_stristr('invi.clie.prov',$user_tipo) or $user_tipo=='')){ ?>
  					<th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*.7; ?>px;">NIVEL</th>
          <?php } ?>
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);">DESCRIPCION</th>
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);" width="">TIPO</th>
          
          <?php if(@mb_stristr('enti',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">T</th>
          <?php } ?>
                         
          <?php if(@mb_stristr('docu.modu',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CERRADO</th>
          <?php } ?>
                         
          <?php if(@mb_stristr('adrs',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">RUC/CED</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">NOMBRE</th>
          <?php } ?>
                         
          <?php if(@mb_stristr('user.usrt.enti.ppto.adrs',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">E-MAIL</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CELULAR</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">WhatsApp</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="<?php if($dispcolu==0){echo'display:none;';}?>">PAIS</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="<?php if($dispcolu==0){echo'display:none;';}?>">PROV.</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CIUDAD</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="<?php if($dispcolu==0){echo'display:none;';}?>">DIRECCION</th>
          <?php } ?>

          <?php if(@mb_stristr('atrz.atrd',$docu)){ ?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">RUC</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">RAZ.SOC.</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CADUCA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">DOCU</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">DESDE</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">HASTA</th>
          <?php } ?>

          <?php if(@mb_stristr('CLOR',$docu)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  >HEXA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  >____</th>
          <?php } ?>
          
          <?php if(@mb_stristr('ITEM.PREC',$docu)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  >LINEA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  title="Unidad de Medida">UMDD</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  >MRCA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  >MDLO</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  >#PART</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"  >SKU</th>
          <?php } ?>
               
          <?php if(@mb_stristr('PREC',$docu)){ ?>
            <?php if($tipoprec==1){ ?>
               <?php if($listpre1=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px; border-left:solid 1px;">P.U.1</th>
               <?php } ?>
               <?php if($listpre2=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">P.U.2</th>
               <?php } ?>
               <?php if($listpre3=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">P.U.3</th>
               <?php } ?>
               <?php if($listpre4=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">P.U.4</th>
               <?php } ?>
               <?php if($listpre5=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">P.U.5</th>
               <?php } ?>
            <?php } ?>

            <?php if($tipoprec==2){ ?>
               <?php if($listpre1=='true' or 1==1){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px; border-left:solid 1px;">P.U.1</th>
               <?php } ?>
               <?php if($listpre2=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">Dcto.2</th>
               <?php } ?>
               <?php if($listpre3=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">Dcto.3</th>
               <?php } ?>
               <?php if($listpre4=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">Dcto.4</th>
               <?php } ?>
               <?php if($listpre5=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">Dcto.5</th>
               <?php } ?>
           <?php } ?>
               
               
            <?php if($listimpt=='true'){ ?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px; border-left:solid 1px;">IVA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">ICE</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">IRBP</th>
            <?php } ?>
               
            <?php if($tipoprec==3){ ?>
               <?php if($listpre1=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px; border-left:solid 1px;">PVP.1</th>
               <?php } ?>
               <?php if($listpre2=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">PVP.2</th>
               <?php } ?>
               <?php if($listpre3=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">PVP.3</th>
               <?php } ?>
               <?php if($listpre4=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">PVP.4</th>
               <?php } ?>
               <?php if($listpre5=='true'){ ?>
               <th onclick="sortTable(this,<?php echo $ccol++; ?>,'N');" style="font-size:<?php echo $xfontsize*.8; ?>px;">PVP.5</th>
               <?php } ?>
            <?php } ?>
               
          <?php } ?>
               
          <?php if(@mb_stristr('ITEM.PREC',$docu)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">COLOR</th>
            <?php if($ver_tlla==1){ ?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">TALLA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CTLG.</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">KLDD.</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">COMP.</th>
            <?php } ?>
          <?php } ?>

          <?php if($itemteki=='true'){ ?>
            <?php
              $sql_tlla ='select distinct tlla_codigo, tlla_descri from item0 ';
              $sql_tlla.='left join tlla0 on item_tlla=tlla_codigo ';
              $sql_tlla.='left join teki0 on item_codigo=teki_item ';
              $sql_tlla.='where item_clor="00" and teki_valor>0 ';
              $sql_tlla.='and item_codigo like "'.$codigo.'%" ';
              $res_tlla=msql_query($sql_tlla,$link_vcrx);
            ?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">MEDIDA</th>
            <?php while($aso_tlla=msql_fetch_assoc($res_tlla)){ ?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"><?php echo substr($aso_tlla['tlla_descri'],0,6); ?></th>
            <?php } ?>
          <?php } ?>
               
          <?php if(@mb_stristr('cair',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">%</th>
          <?php } ?>
          
          <?php if(@mb_stristr('docu',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">TABLA</th>
          <?php } ?>

          <?php if(@mb_stristr('tlfn',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">OPER</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">AREA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CI/RUC</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">NOMBRE</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CONTACTO</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">DIRECCION</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CALLE 1</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CALLE 2</th>
          <?php } ?>

          <?php if(@mb_stristr('clac',$tabla)){?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">ENTI</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">FECHA</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">FEC.UPL.</th>
          <?php } ?>
          
          
          <?php if(@mb_stristr('jw19',$cfg_empr) and mb_stristr($tabla,'ppto')){?>
          
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">GRUPO</th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);">CONG.</th>
            <?php if($idnum==''){?>
              <?php if(date('Y-m-d')<'2019-06-08'){$dia1=8;}else{$dia1=date('d');};?>
              <?php for($cdisp=$dia1; $cdisp<=22; $cdisp++) {?>
                <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*(0.7) ?>;"><?php echo 'd'.fillzero($cdisp,2);?></th>
                <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*(0.7) ?>;"><?php echo 'e'.fillzero($cdisp,2);?></th>
              <?php } ?>
            <?php } ?>
            <?php if($idnum=='ASAM'){?>
              <?php $dia1=14; ?>
              <?php for($cdisp=$dia1; $cdisp<=16; $cdisp++) {?>
                <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*(0.7) ?>;"><?php echo 'd'.fillzero($cdisp,2);?></th>
                <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*(0.7) ?>;"><?php echo 'a'.fillzero($cdisp,2).'-1';?></th>
                <th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*(0.7) ?>;"><?php echo 'a'.fillzero($cdisp,2).'-2';?></th>
              <?php } ?>
            <?php } ?>

          <?php } ?>
          
          <?php if($maesmodi=='true'){ ?>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"></th>
            <th onclick="sortTable(this,<?php echo $ccol++; ?>);"></th>
          <?php } ?>
          
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*.8; ?>px;<?php if($itemimgi!='true'){echo'display:none;';}?>">IMG.</th>
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);" style="font-size:<?php echo $xfontsize*.8; ?>px;<?php if($dispcolu==0){echo'display:none;';}?>">IDate</th>
          <th onclick="sortTable(this,<?php echo $ccol++; ?>);" title="Status">ST</th>
					<th onclick="sortTable(this,<?php echo $ccol++; ?>);"
							title="
							<?php if($user_anul==1){echo 'Anular';}?>
							<?php if($user_elim==1){echo '/Eliminar';}?>
										 ">
						<?php if($user_anul==1){echo 'O';}?>
						<?php if($user_elim==1){echo '/X';}?>
					</th>
          <?php if($ver_kit==1){ ?>
          <th onclick="sortTable(this,<?php echo $ccol++; ?>);" title="Ultima Compra">KIT</th>
          <?php } ?>
          
          <th style="font-size:<?php echo $xfontsize*.5;?>px;" title="Descargar XLS" <?php  $ccol++; ?>>
            <a href="#" id="downxls1" onClick="javascript:fnExcelReport('tpant1',this,'<?php echo $cfg_empr.'_'.$tabla.'_'.date('Ymd_His');?>');">XLS</a>
          </th>
<!--           <th>__</th> -->
				</tr>
			</thead>
			<?php } ?>
			<?php { // TBODY ?>
			<tbody id="tpant1b" style="<?php echo $tdisplay; ?>overflow-y:auto; 
							<?php if($orient=='V'){echo'min-height:'.($hpant1-7).'px;';}		else{echo'min-height:'.($hpant1-75).'px;';}  ?> 
							<?php if($orient=='V'){echo'height:'.($hpant1-7)*(2.4).'px;';}	else{echo'height:'.($hpant1-75)*(2.4).'px;';}  ?> 
							">
        
        
        <?php if(@msql_num_rows($res_pant)==0){?>
          <?php if($tabla=='enti' and strlen($codigo)>=10){val_ruced($codigo); $res_pant=msql_query($sql_pant,$link_vcrx);} ?>
          <?php if($tabla=='item' and strlen($codigo)==13){val_ean($codigo); $res_pant=msql_query($sql_pant,$link_vcrx);} ?>
        <?php }?>
        
        <?php if(@msql_num_rows($res_pant)==0){?>
          <tr><td style="font-weight:bold;">
            <?php echo 'NO HAY DATOS'; ?>  
            <?php echo '<br>==>'.date('H:i:s'); ?>
            <?php //echo '<br>'.$docu.' /'.$enti; ?>
          </td></tr>
        <?php }?>
        
        <?php if($docu==''){?>
          <tr><td style="font-weight:bold;color:red;">DEBE ESPECIFICAR UN MAESTRO</td></tr>
        <?php }?>
        <?php if($user_cons==0){?>
          <tr><td style="font-weight:bold;color:red;">NO TIENE ACCESO PARA CONSULTAR ==> <?php echo $docu.' - '.r_fiel('docu',$docu);?></td></tr>
        <?php }?>
        
        <?php  $ctasusedfec=date('Y-01-01',strtotime('-365 days')); ?>
        <?php  //$ctasusedfec=date('Y-1-1',strtotime('today')); ?>
        
				<?php
             if($user_codigo==2){
                
//              echo explain_sql($sql_pant);	
             }
            ?>
				<?php while($aso_pant=@msql_fetch_assoc($res_pant)){ ?>
				<?php $showok=1; ?> 
          <?php $codigo=trim($aso_pant[$tabla.'_codigo']);?>
              <?php
                  if($docu=='ctas' and $ctasused=='true')
                  {
                    $sql_cont='select * from cont1,cont2 ';
                    $sql_cont.=' where idnum1=idnum2 and status!="O" and status!="X" ';
                    $sql_cont.=' and fecha>="'.$ctasusedfec.'" ';
                    $sql_cont.=' and ctas like "'.$codigo.'%" limit 1 ';
                    $res_cont=@msql_query($sql_cont,$link_vcrx);
                    if(msql_num_rows($res_cont)==0){$showok=0;}
                  }
              ?>
              <?php
                  if($docu=='item')
                  {
                     $showok=0;
                     
//                      if($iteminve!='true' and $itemvtas!='true' and $itemcomp!='true'){$itemvtas='true';}
//                      if($iteminve!='true' and $itemvtas!='true' and $itemcomp!='true'){$showok=1;}
                     if($itemtodo=='true'){$showok=1;}
                    
                     
                     if($iteminve=='true' and $showok==0)
                     {
                       $sql_cont='select * from inve1,inve2 ';
                       $sql_cont.=' where idnum1=idnum2 and status!="O" and status!="X" ';
                       $sql_cont.=' and fecha>="'.$fecha1.'" ';
                       $sql_cont.=' and item like "'.$codigo.'%" limit 1 ';
                       $res_cont=@msql_query($sql_cont,$link_vcrx);
                       if(msql_num_rows($res_cont)!=0){$showok=1;}
                     }
                     if($itemvtas=='true' and $showok==0)
                     {
                       $sql_cont='select * from vtas1,vtas2 ';
                       $sql_cont.=' where idnum1=idnum2 and status!="O" and status!="X" ';
                       $sql_cont.=' and fecha>="'.$fecha1.'" ';
                       $sql_cont.=' and item like "'.$codigo.'%" limit 1 ';
                       $res_cont=@msql_query($sql_cont,$link_vcrx);
                       if(msql_num_rows($res_cont)!=0){$showok=1;}
                     }
                     if($itemcomp=='true' and $showok==0)
                     {
                       $sql_cont='select * from comp1,comp2 ';
                       $sql_cont.=' where idnum1=idnum2 and status!="O" and status!="X" ';
                       $sql_cont.=' and fecha>="'.$fecha1.'" ';
                       $sql_cont.=' and item like "'.$codigo.'%" limit 1 ';
                       $res_cont=@msql_query($sql_cont,$link_vcrx);
                       if(msql_num_rows($res_cont)!=0){$showok=1;}
                     }
                  }
              ?>
        <?php
           if($docu=='user' and mb_stristr('gmny.gnya.',$cfg_empr) and (mb_stristr('invi.clie.prov',$user_tipo) or $user_tipo=='') and 1==1)
           {
//               $showok=0;
              $nivel=0;
              $referx0=trim($aso_pant[$tabla.'_codigo']);
             
//               $referx1=r_fiel('user',$referx0,'referidox');
//               $referx2=r_fiel('user',$referx1,'referidox');
//               $referx3=r_fiel('user',$referx2,'referidox');
//               $referx4=r_fiel('user',$referx3,'referidox');
//               $referx5=r_fiel('user',$referx4,'referidox');
             
              $referx1=$aso_pant[$tabla.'_referx1'];
              $referx2=$aso_pant[$tabla.'_referx2'];
              $referx3=$aso_pant[$tabla.'_referx3'];
//               $referx4=$aso_pant[$tabla.'_referx4'];
//               $referx5=$aso_pant[$tabla.'_referx5'];

//              $user_codigo=565;
              if($referx1==$user_codigo){$showok=1; $nivel=1;}
              if($referx2==$user_codigo){$showok=1; $nivel=2;}
              if($referx3==$user_codigo){$showok=1; $nivel=3;}
//               if($referx4==$user_codigo){$showok=1; $nivel=4;}
//               if($referx5==$user_codigo){$showok=1; $nivel=5;}
//               $referxfull=$referx1+$referx2+$referx3+$referx4+$referx5;
              $referxfull=$referx1+$referx2+$referx3;
           } 
        ?>
        
        <?php if($showok==1){?>
          <?php $crow++; ?> 
          <?php $tnumero++; ?> 
          <?php $codigo=trim($aso_pant[$tabla.'_codigo']);?>
          <?php $codigo0=fillzero($codigo);?>
          <?php if($autoi==1){$codigo=$codigo0;}?>
                    
          <?php $descri=trim($aso_pant[$tabla.'_descri']);?>
          <?php $pasaporte=trim($aso_pant[$tabla.'_pasaporte']);?>
          <?php $idexterior=trim($aso_pant[$tabla.'_idexterior']);?>
          <?php if(mb_stristr('user.enti.ppto',$tabla)){$descri=ucwords(strtolower($descri));};?>
          <?php $tipo=trim($aso_pant[$tabla.'_tipo']);?>
                    
          <?php 
          if($tabla=='enti'){$ruced=val_ruced($aso_pant[$tabla.'_codigo']);}
          ?>
                    
          <?php $email=strtolower(trim($aso_pant[$tabla.'_email']));?>
          <?php $cedula=$aso_pant[$tabla.'_cedula'];?>
          <?php $celular=$aso_pant[$tabla.'_celular'];?>
          <?php $tlfnarea=$aso_pant[$tabla.'_area'];?>
          <?php $tlfnumero=$aso_pant[$tabla.'_numero'];?>
          <?php $wsapp=$aso_pant[$tabla.'_wsapp'];?>
          <?php $direccion=$aso_pant[$tabla.'_calle1'].$aso_pant[$tabla.'_calle2'].$aso_pant[$tabla.'_callen'].$aso_pant[$tabla.'_calle3']; ?>
          <?php if($direccion!=''){$direccion=$aso_pant[$tabla.'_calle1'].' / '.$aso_pant[$tabla.'_calle2'].' ('.$aso_pant[$tabla.'_callen'].') '.$aso_pant[$tabla.'_calle3'];} ?>
          <?php $pais=$aso_pant[$tabla.'_pais']; ?>
          <?php $paisdescri=r_fiel('pais',$pais); ?>
          <?php $paistlfn=r_fiel('pais',$pais,'tlfn'); ?>
          <?php $idate=$aso_pant[$tabla.'_idate']; ?>
          <?php $item_rfer=@$aso_pant[$tabla.'_rfer']; ?>
          <?php $item_tlla=@$aso_pant[$tabla.'_tlla']; ?>
          <?php if(empty($item_rfer)){$item_rfer=@$aso_pant[$tabla.'_codigo'];} ?>
          <?php
             $imgi_file='';
             if($tabla=='item' and $itemimgi=='true' and 1==2)
             {
               $sql_imgi='select * from imgi0 where imgi_item="'.$codigo.'" order by imgi_defa desc limit 1';
               $res_imgi=msql_query($sql_imgi,$link_vcrx);
               $imgi_file=msql_result($res_imgi,0,'imgi_file');
               if(!empty($imgi_file))
               {
//                  http://orel.vcrxol.com/imgi/2020144559_05301.png
//                  $pfile='../'.$ptabla.'/'.$pname;
                 $imgi_file='../imgi/'.$imgi_file;
                 if(!file_exists($imgi_file)){$imgi_file='';}
               }
             }
          ?>
          <?php if($wsapp==''){$wsapp=$celular;} ?>
          <?php
            if(mb_stristr($email,'@'))
            {
              if(@!mb_stristr($email,$descri))                                              
              {$emailist.='&lt'.$descri.'&gt';}
              $emailist.=$email.', '; 
            }
          ?>
        
        <tr id="tr_fila<?php echo $crow;?>" class="tr_fila" valign="top" 
            height="<?php //if($mobile=='true'){echo '55px';};?>"
						style="<?php if ($crow%5==0){echo 'border-bottom:dotted 1px;'; } ?> "
						onmouseover="_filabg(event,'tr_fila','<?php echo $crow; ?>','');"
						onclick="_filabg(event,'tr_fila','<?php echo $crow; ?>','');
                    {
										{info_docu('PANT2','<?php echo $docu; ?>','<?php echo $aso_pant[$tabla.'_codigo']; ?>');}}
										<?php if($touchs=='true'){?>
										<?php } ?>
										 "
						>
          
          <td style="display:none;"><?php echo fillzero($crow,5); ?></td>
          <?php if(substr($pant,0,4)=='PANT'){ ?>
					<td align="center" style="position:;">
					<?php
//               if($crow%2==0)
              {
                $pcaption='Imprimir: '.$docu.'-'.$aso_pant[$tabla.'_codigo']; $pabrev='I';
                $pidnum=$aso_pant[$tabla.'_codigo'];
                //$pidtxt='i_'.$aso_pant[$tabla.'_codigo'];
                $pidtxt='i_'.$crow;
                $psize=$xfontsize;
                $ponclick='{window.open("?prnt=1&docu='.$docu.'&idnum='.$aso_pant[$tabla.'_codigo'].'","_blank")}';
                  if($tabla=='clac')
                  {
                  $ponclick='{window.open("?prnt=1&clave='.$aso_pant[$tabla.'_codigo'].'","_blank")}';
                  include('vrbutton.php');
                  }
                include('vrbutton.php');
                }
          ?>
					</td>
          <?php } ?>
          <?php if(substr($pant,0,4)=='PANT'){?>
					<td align="center" title="<?php echo 'COD:'.$aso_pant[$tabla.'_codigo'];?>"
							onclick="
										<?php if(substr($pant,0,1)=='P' and $touchs=='false'){?>
                    {                       
										{info_maes('PANT2','<?php echo $docu; ?>','<?php echo $aso_pant[$tabla.'_codigo']; ?>');}}
										<?php } ?>
										 ">
              <?php
//               if($docu!='PLA1')
              {
              if(!mb_stristr('OX',$status)
                 and ($user_anul==1 or $user_modi==1)
                 and mb_stristr($pant,'PANT')
                 )
              {
//                 echo '**/*/'.$user_anul.$user_modi;
                $pcaption='Editar : '.$tabla.'-'.$aso_pant[$tabla.'_codigo'];
                $pabrev='E';
                $pidtxt='e_'.$crow.'_'.$iddet; $pname='itr_fila'; $psize=$xfontsize;
//                 $pidnum=$aso_pant['idnum1'];$pdocu=$aso_pant['docu'];
                $ponclick='{window.open("?scri=regi_maes&docu='.$tabla.'&codigo='.$aso_pant[$tabla.'_codigo'].'","_blank")}';
                include('vrbutton.php');
              }
              }
            ?>
            
					</td> 
          <?php } ?>

<?php
  $href='';                          
//   if($tabla=='enti'){$href='?elbl=1&codigo='.$aso_pant[$tabla.'_codigo'].'&tipo=" target="_blank"';}
//   if($tabla=='item'){$href='?ilbl=1&codigo='.$aso_pant[$tabla.'_codigo'].'&tipo=" target="_blank"';}
         
 ?>          
          
					<td align="left" style="">
            <?php if(!empty($href)){echo '<a href="'.$href.'">';} ?>
            <?php  
             if(@mb_stristr('user.usrt',$tabla)){echo fillzero($codigo,4);}
             elseif(@mb_stristr('ppto',$tabla)){echo fillzero($codigo,5);}
              else{echo $codigo;}
            ?>
            <?php if($pasaporte!='') {echo '<br>'.'Pass : '.$pasaporte;} ?>
            <?php if($idexterior!=''){echo '<br>'.'Id.Ext: '.$idexterior;} ?>
            <?php if(!empty($href)){echo '</a>';} ?>
					</td>
          
          <?php if($docu=='user' and mb_stristr('gmny.gnya',$cfg_empr) and (mb_stristr('invi.clie.prov',$user_tipo) or $user_tipo=='')){ ?>
					<td align="center" style="">
						<?php echo $nivel.''; ?>
					</td>
          <?php } ?>
          
          
					<td align="" style="<?php if($dispcolu==0){echo'display:;';}?> "
							title="<?php if(mb_stristr('user.enti.ppto',$tabla)){echo $aso_pant[$tabla.'_cedula'];} ?>">
               <?php if(@mb_stristr('tlfn',$tabla)){?>
               <a href="tel:<?php echo $tlfnarea.$tlfnumero; ?>" style="font-weight:bolder;float:left;color:;"><?php echo $descri; $descri='';?></a>        
               <?php } ?>
						<?php //echo split_words($descri).''; ?>
						<?php echo $descri; ?>
					</td>
          
					<td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> "
							title="<?php  ?>">
						<?php echo $tipo; ?>
					</td>
          <?php if(@mb_stristr('enti',$tabla)){?>
					<td align="center" style="">
						<?php echo $ruced.''; ?>
					</td>
          <?php } ?>
          
          
          <?php if(@mb_stristr('docu.modu',$tabla)){ ?>
					<td align="center" style="">
                         <?php echo ($aso_pant[$tabla.'_closed']); ?>
					</td>
          <?php } ?>
          
          
          <?php if(@mb_stristr('adrs',$tabla)){ ?>
					<td align="center" style="">
                         <?php echo substr($aso_pant[$tabla.'_enti'],0,10); ?>
					</td>
					<td align="" style="">
					<?php echo $aso_pant['enti_descri']; ?>
					</td>
          <?php } ?>
          
          
          <?php if(@mb_stristr('user.usrt.enti.ppto.adrs',$tabla)){?>
              <td align="" style="<?php if($dispcolu==0){echo'display:;';}?> ">
                <?php echo '<a href="mailto:'.$email.'?Subject=Saludos" target="_top">'; ?>
                <?php echo $email; ?>
                <?php echo '</a>'; ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> ">
                <?php echo '<a href="tel:'.$paistlfn.$celular.'">'; ?>
                <?php echo $celular; ?>
                <?php echo '</a>'; ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> ">
                <?php echo '<a href="http://wa.me/'.$paistlfn.$wsapp.'" target="_blank">'; ?>
                <?php echo $wsapp; ?>
                <?php echo '</a>'; ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:none;';}?> ">
                <?php echo $pais; ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:none;';}?> ">
                <?php echo $aso_pant[$tabla.'_provincia']; ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> ">
                <?php echo $aso_pant[$tabla.'_ciudad']; ?>
              </td>
<?php
  if($print==0)
  {
  {$href='?elbl=1&codigo='.$aso_pant[$tabla.'_codigo'].'&tipo=" target="_blank"';}
  }
?>          
              <td align="center" style="<?php if($dispcolu==0){echo'display:none;';}?> font-size:<?php echo $xfontsize*0.8 ;?>px;">
            <?php if(!empty($href)){echo '<a href="'.$href.'">';} ?>
                <?php echo split_words($direccion); ?>
            <?php if(!empty($href)){echo '</a>';} ?>
              </td>
          <?php } ?>

          
<?php
  $href='';                          
  if($print==0)
  {
       if($tabla=='item')
       {
            $href.='?ilbl=1&codigo='.$aso_pant[$tabla.'_codigo'];
            if($docu=='prec')
            {$href.='&prec=1';}
            $href.='&tipo="';
            $href.='target="_blank"';
       }
  }
?>
<?php
         
  $mrca_descri=trim($aso_pant['mrca_descri']);
  $mrca_descri=substr($mrca_descri,0,8);
  if(mb_stristr($mrca_descri,' '))
  {$mrca_descri=substr($mrca_descri,0,strpos($mrca_descri,' ')+2);}
 ?>          

          <?php if(@mb_stristr('CLOR',$docu)){?>
            <?php $clor_codigo = trim($aso_pant['clor_codigo']); ?>
            <?php $clor_hexa = trim($aso_pant['clor_hexa']); ?>
            <?php 
               $sql_icol='select * from item0 where trim(item_clor)="'.$clor_codigo.'"';
               $res_icol=msql_query($sql_icol,$link_vcrx);
               $xused=msql_num_rows($res_icol);
                                           
                if($xused==0)
                {
//                  $sql_icol='update clor0 set clor_status="X" where clor_codigo="'.$aso_pant['clor_codigo'].'"';
//                  $res_icol=msql_query($sql_icol,$link_vcrx);
                }
            ?>
              <td align="center" style="border:solid 0px; border-color:<?php echo $clor_hexa; ?>;">
                <?php //if($xused==0){} ?>
                <?php echo $clor_hexa; ?>
                <?php //echo '***'.$sql_icol.msql_error($link_vcrx);?>
                <?php //echo '=== '.$xused.' ***'; ?>
              </td>
          
              <?php if((substr($pant,0,4)=='PANT' and empty($xused)) or empty($clor_hexa) or 1==1){ ?> 
              <?php
                    $pidtxt='clor_'.$clor_codigo;
                    $pcaption='C.Color'; $ptitle='C贸digo de Color'; $psize=$xfontsize;  $pobj=1;
                    $pline=$clor_codigo;
//                     $ptabla='clor';
//                     $pcolu='hexa';
//                     $pdefa=$aso_pant['clor_hexa'];
                    $pvalue=$clor_hexa;
                    $ptype='color';
                    $ponblur="{_updtinput(event,'".$pidtxt."')}";
                    include('vrgettxt.php'); 
              ?>                
              <?php }else{ ?>          
              <td align="center" style="background-color:<?php echo $clor_hexa; ?>"></td>
              <?php } ?>          
                
                
          <?php } ?>          
          
          <?php if(@mb_stristr('ATRZ.ATRD',$docu)){ ?>
              <td align="center" style="">
                <?php echo $aso_pant[$tabla.'_enti']; ?>
              </td>
              <td align="left" style="">
                <?php echo substr($aso_pant['enti_descri'],0,40); ?>
              </td>
              <td align="center" style="">
                <?php echo $aso_pant[$tabla.'_caduca']; ?>
              </td>
              <td align="center" style="">
                <?php echo $aso_pant[$tabla.'_docu']; ?>
              </td>
              <td align="center" style="">
                <?php echo $aso_pant[$tabla.'_desde']; ?>
              </td>
              <td align="center" style="">
                <?php echo $aso_pant[$tabla.'_hasta']; ?>
              </td>
          <?php } ?>          
          
          <?php if(@mb_stristr('ITEM.PREC',$docu)){?>
              <td align="center" style="">
                <?php echo $aso_pant['item_lsub']; ?>
              </td>
              <td align="center" style="">
                <?php echo $aso_pant['item_umdd']; ?>
              </td>
              <td align="center" style="">
                <?php //echo substr($aso_pant['mrca_descri'],0,8); ?>
                <?php echo $mrca_descri; ?>
                <?php //echo $aso_pant['item_mrca']; ?>
              </td>
              <td align="left" style="">
                <?php //if($aso_pant['item_mdlo']!=$aso_pant['item_codigo'])
                  {echo $aso_pant['item_mdlo'];} ?>
              </td>
              <td align="center" style="">
                <?php //if($aso_pant['item_mdlo']!=$aso_pant['item_codigo'])
                  {echo $aso_pant['item_numpart'];} ?>
              </td>
              <td align="center" style=""><span style="display:none;"><?php echo $aso_pant['item_codigov']; ?></span>
            <?php if(!empty($href)){echo '<a href="'.$href.'">';} ?>
                <?php echo $aso_pant['item_codigov']; ?>
            <?php if(!empty($href)){echo '</a>';} ?>
              </td>
            <?php if(1==2){ ?>
              <td align="center" style="background-color:<?php echo $aso_pant['clor_hexa']; ?>">
                <?php echo str_replace(' ','<br>',substr($aso_pant['clor_descri'],0,20)); ?>
              </td>
              <td align="center" style="">
                <?php echo substr($aso_pant['tlla_descri'],0,6); ?>
              </td>
          <?php } ?>
          <?php } ?>
           
           <?php 
               $dpre=$aso_pant['item_dpre'];
               if($dpre==0){$dpre=2;}
           ?>
          
          <?php if(@mb_stristr('PREC',$docu)){?>
            <?php if($tipoprec==1){ ?>
               <?php if($listpre1=='true'){ ?>
                    <?php
                        $item_puni1=$aso_pant['item_puni1'];
                        $ddig=decimaldigit($item_puni1)+1;
             
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_puni1'; $pobj=1; $pdefa=number_format($item_puni1,$ddig,'.',''); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style=" border-left:solid 1px;">
                        <?php   echo number_format($item_puni1,$dpre); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre2=='true'){ ?>
                    <?php
                        $item_puni2=$aso_pant['item_puni2'];
                        $ddig=decimaldigit($item_puni2)+1;
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_puni2'; $pobj=1; $pdefa=number_format($item_puni2,$ddig,'.',''); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_puni2,$dpre); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre3=='true'){ ?>
                    <?php
                        $item_puni3=$aso_pant['item_puni3'];
                        $ddig=decimaldigit($item_puni3)+1;
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_puni3'; $pobj=1; $pdefa=number_format($item_puni3,$ddig,'.',''); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_puni3,$dpre); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre4=='true'){ ?>
                    <?php
                        $item_puni4=$aso_pant['item_puni4'];
                        $ddig=decimaldigit($item_puni1)+1;
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_puni4'; $pobj=1; $pdefa=number_format($item_puni4,$ddig,'.',''); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_puni4,$dpre); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre5=='true'){ ?>
                    <?php
                        $item_puni5=$aso_pant['item_puni5'];
                        $ddig=decimaldigit($item_puni1)+1;
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_puni5'; $pobj=1; $pdefa=number_format($item_puni5,$ddig,'.',''); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_puni5,$dpre); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
            <?php } ?>

            <?php if($tipoprec==2){ ?>
               <?php if($listpre1=='true'){ ?>
                    <?php
                        $item_puni1=$aso_pant['item_puni1'];
                        $ddig=decimaldigit($item_puni1)+1;
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_puni1'; $pobj=1; $pdefa=number_format($item_puni1,$ddig,'.',''); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style=" border-left:solid 1px;">
                        <?php   echo number_format($item_puni1,$dpre); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre2=='true'){ ?>
                    <?php
                        $item_dcto2=$aso_pant['item_dcto2'];
                        $ddig=decimaldigit($item_dcto2);
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_dcto2'; $pobj=1; $pdefa=round($item_dcto2,$ddig); $psize=$xfontsize*.8;  $plong=5; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="center" style="">
                        <?php   echo number_format($item_dcto2,$ddig); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre3=='true'){ ?>
                    <?php
                        $item_dcto3=$aso_pant['item_dcto3'];
                        $ddig=decimaldigit($item_dcto3);
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_dcto3'; $pobj=1; $pdefa=round($item_dcto3,$ddig); $psize=$xfontsize*.8;  $plong=5; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="center" style="">
                        <?php   echo number_format($item_dcto3,$ddig); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre4=='true'){ ?>
                    <?php
                        $item_dcto4=$aso_pant['item_dcto4'];
                        $ddig=decimaldigit($item_dcto4);
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_dcto4'; $pobj=1; $pdefa=round($item_dcto4,$ddig); $psize=$xfontsize*.8;  $plong=5; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="center" style="">
                        <?php   echo number_format($item_dcto4,$ddig); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre5=='true'){ ?>
                    <?php
                        $item_dcto5=$aso_pant['item_dcto5'];
                        $ddig=decimaldigit($item_dcto5);
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_dcto5'; $pobj=1; $pdefa=round($item_dcto5,$ddig); $psize=$xfontsize*.8;  $plong=5; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="center" style="">
                        <?php   echo number_format($item_dcto5,$ddig); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
            <?php } ?>           
           
           
              <?php if($listimpt=='true'){ ?>

                 <?php
                     $item_iva=$aso_pant['item_iva'];
                     if($maesmodi=='true')
                     {$pidtxt=$aso_pant['item_codigo'].'_iva'; $pobj=1; $pdefa=round($item_iva,2); $psize=$xfontsize*.8;  $plong=5; include('vrgetval.php');}
                     else
                     { ?>
                        <td align="right" style=" border-left:solid 1px;">
                     <?php   echo number_format($item_iva,2); ?>
                        </td>
                    <?php }
                 ?>
                 <?php
                     $item_ice=$aso_pant['item_ice'];
                     if($maesmodi=='true')
                     {$pidtxt=$aso_pant['item_codigo'].'_ice'; $pobj=1; $pdefa=round($item_ice,2); $psize=$xfontsize*.8;  $plong=5; include('vrgetval.php');}
                     else
                     { ?>
                        <td align="right" style="">
                     <?php   echo number_format($item_ice,2); ?>
                        </td>
                    <?php }
                 ?>
                 <?php
                     $item_irbp=$aso_pant['item_irbp'];
                     if($maesmodi=='true')
                     {$pidtxt=$aso_pant['item_codigo'].'_irbp'; $pobj=1; $pdefa=round($item_irbp,2); $psize=$xfontsize*.8;  $plong=5; include('vrgetval.php');}
                     else
                     { ?>
                        <td align="right" style="">
                     <?php   echo number_format($item_irbp,2); ?>
                        </td>
                    <?php }
                 ?>
           <?php } ?>
           

            <?php if($tipoprec==3){ ?>
               <?php if($listpre1=='true'){ ?>
                    <?php
                        $item_pvp1=$aso_pant['item_pvp1'];
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_pvp1'; $pobj=1; $pdefa=round($item_pvp1,2); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style=" border-left:solid 1px;">
                        <?php   echo number_format($item_pvp1,2); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre2=='true'){ ?>
                    <?php
                        $item_pvp2=$aso_pant['item_pvp2'];
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_pvp2'; $pobj=1; $pdefa=round($item_pvp2,2); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_pvp2,2); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre3=='true'){ ?>
                    <?php
                        $item_pvp3=$aso_pant['item_pvp3'];
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_pvp3'; $pobj=1; $pdefa=round($item_pvp3,2); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_pvp3,2); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre4=='true'){ ?>
                    <?php
                        $item_pvp4=$aso_pant['item_pvp4'];
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_pvp4'; $pobj=1; $pdefa=round($item_pvp4,2); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_pvp4,2); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
               <?php if($listpre5=='true'){ ?>
                    <?php
                        $item_pvp5=$aso_pant['item_pvp5'];
                        if($maesmodi=='true')
                        {$pidtxt=$aso_pant['item_codigo'].'_pvp5'; $pobj=1; $pdefa=round($item_pvp5,2); $psize=$xfontsize*.8; include('vrgetval.php');}
                        else
                        { ?>
                           <td align="right" style="">
                        <?php   echo number_format($item_pvp5,2); ?>
                           </td>
                       <?php }
                    ?>
              <?php } ?>
            <?php } ?>
           
           
          <?php } ?>
          
          
          
          <?php if(@mb_stristr('ITEM.PREC',$docu)){?>
          
              <?php 
                  $item_clor =$aso_pant['item_clor'];
                  $clor_descri=$aso_pant['clor_descri'];
                  if($item_clor*1==0)
                  {
                    
                  }
              ?>
              <td align="center" style=" font-weight:bold;font-size:80%; background-color:<?php echo $aso_pant['clor_hexa']; ?>; "
                  title="<?php  ?>">
                <?php  ?>
                <?php
                  if(strlen(trim($codigo))==8)
                  {
                    if(mb_stristr('PANT',substr($pant,0,4))){                    
                    if(mb_stristr('gmny.gnya',$cfg_empr))
                    {
                      $pcaption='COLOR : '.$tabla.'-'.$aso_pant[$tabla.'_codigo'];
                      $pabrev='C';
                      $pidtxt='c_'.$crow.'_'.$iddet; $pname='itr_clor'; $psize=$xfontsize;
                      $ponclick='{window.open("?scri=item_exte&codigo='.$codigo.'","_blank")}';
//                     if(!mb_stristr('gmny.gnya',$cfg_empr)){$phide=1;}
                      include('vrbutton.php');
                    }
                    }
                  }
                  else{echo substr($clor_descri,0,10);}
                ?>
              </td>
              <?php if($ver_tlla==1){ ?>
              <td align="center" style="font-size:80%;">
                <?php
                  if(strlen(trim($codigo))==8)
                  {
                    if(mb_stristr('PANT',substr($pant,0,4))){                    
                    if(mb_stristr('gmny.gnya',$cfg_empr))
                    {
                      $pcaption='FICHA : '.$tabla.'-'.$aso_pant[$tabla.'_codigo'];
                      $pabrev='F';
                      $pidtxt='f_'.$crow.'_'.$iddet; $pname='itr_clor'; $psize=$xfontsize;
                      $ponclick='{window.open("?scri=item_exte&teki=1&codigo='.$codigo.'","_blank")}';
//                     if(!mb_stristr('gmny.gnya',$cfg_empr)){$phide=1;}
                      include('vrbutton.php');
                    }
                    }
                  }
                  else{echo substr($aso_pant['tlla_descri'],0,6);}
                ?>
              </td>
          
              <td align="center">
                <?php if(mb_stristr('PANT',substr($pant,0,4))){ ?>
                <?php $pidtxt='chkctlg'.$aso_pant['item_codigo'];  $pdefa=$aso_pant['item_ctlg']; $ptabla='item'; $pline=$aso_pant['item_codigo']; $pcolu='ctlg'; include('vrchkbox.php'); ?>
                <?php }else{ ?>
                <?php if($aso_pant['item_ctlg']==1){echo 'S';}else{ echo 'N';} ?>
                <?php } ?>
              </td>
          
              <td align="center" style=""
                  title="<?php  ?>">
                <?php echo $aso_pant['item_kldd']; ?>
              </td>
              <td align="center" style=""
                  title="<?php  ?>">
                <?php echo $aso_pant['item_composi']; ?>
              </td>
          
              <?php } ?>
          
          
          <?php if($itemteki=='true'){ ?>
            <?php
              $sql_tlla ='select distinct tlla_codigo, tlla_descri from item0 ';
              $sql_tlla.='left join tlla0 on item_tlla=tlla_codigo ';
              $sql_tlla.='left join teki0 on item_codigo=teki_item ';
              $sql_tlla.='where item_clor="00" and teki_valor>0';
//               $res_tlla=msql_query($sql_tlla,$link_vcrx);
            ?>
            <td><?php echo $aso_pant['teki_dato']; ?></td>
            <?php msql_data_seek($res_tlla,0); ?>
            <?php while($aso_tlla=msql_fetch_assoc($res_tlla)){ ?>
            <?php $tekivalor=r_teki(substr($aso_pant['item_codigo'],0,8).'00'.$aso_tlla['tlla_codigo'],$aso_pant['teki_dato']); ?>
            <td align="right" ><?php echo number_format($tekivalor,2); ?></td>
            <?php } ?>
          <?php } ?>
               
          
          
          
          <?php } ?>

          
          
          
          
          <?php if(@mb_stristr('cair',$tabla)){?>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> "
                  title="<?php  ?>">
                <?php echo $aso_pant[$tabla.'_porc'].'%'; ?>
              </td>
          <?php } ?>

          <?php if(@mb_stristr('docu',$tabla)){?>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> ">
    						<?php echo $aso_pant[$tabla.'_tabla']; ?>
              </td>
          <?php } ?>
          
          
          <?php if(@mb_stristr('tlfn',$tabla)){?>
            <?php $xnombre=split_words($aso_pant[$tabla.'_nombre']); ?>
            <?php $xcontacto=split_words($aso_pant[$tabla.'_contacto']); ?>
            <?php $xdireccion=split_words($aso_pant[$tabla.'_direccion']); ?>
            <td align="center"><?php echo $aso_pant[$tabla.'_opera']; ?></td>
            <td align="center"><?php echo $aso_pant[$tabla.'_area']; ?></td>
            <td align="center"><?php echo $aso_pant[$tabla.'_enti']; ?></td>
            <td align=""><?php echo $xnombre; ?></td>
            <td align=""><?php echo $xcontacto ?></td>
            <td align=""><?php echo $xdireccion;?></td>
            <td align="center"><?php echo $aso_pant[$tabla.'_calle1']; ?></td>
            <td align="center"><?php echo $aso_pant[$tabla.'_calle2']; ?></td>
          <?php } ?>
          
          <?php if(@mb_stristr('clac',$tabla)){?>
            <td align="center"><?php echo $aso_pant[$tabla.'_enti']; ?></td>
            <td align="center"><?php echo $aso_pant[$tabla.'_fecha']; ?></td>
            <td align="center"><?php echo $aso_pant[$tabla.'_upldfec']; ?></td>
          <?php } ?>
          
          <?php if(@mb_stristr('jw19',$cfg_empr) and mb_stristr($tabla,'ppto')){?>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> ">
    						<?php echo $aso_pant[$tabla.'_grupo_seg']; ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> ">
    						<?php echo $aso_pant[$tabla.'_congname']; ?>
              </td>
          <?php if(date('Y-m-d')<'2019-06-08'){$dia1=8;}else{$dia1=date('d');};?>
          <?php if($idnum==''){ ?>
            <?php for($cdisp=$dia1; $cdisp<=22; $cdisp++) {?>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> font-size:<?php echo $xfontsize*.7 ;?>px; <?php if(($cdisp % 2)==0){echo 'background-color:#eee;';}?><?php if(mb_stristr('8.9.14.15.16.22',$cdisp)){echo 'font-weight:bold;';}?>">
                <?php echo $aso_pant[$tabla.'_d'.fillzero($cdisp,2)]; ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> font-size:<?php echo $xfontsize*.7 ;?>px; <?php if(($cdisp % 2)==0){echo 'background-color:#eee;';}?><?php if(mb_stristr('8.9.14.15.16.22',$cdisp)){echo 'font-weight:bold;';}?>">
                <?php echo $aso_pant[$tabla.'_e'.fillzero($cdisp,2)]; ?>
              </td>
            <?php } ?>
            <?php } ?>
          <?php if($idnum=='ASAM'){ ?>
            <?php $dia1=14; ?>
            <?php for($cdisp=$dia1; $cdisp<=16; $cdisp++) {?>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> font-size:<?php echo $xfontsize*.7 ;?>px; <?php if(1==1){echo 'background-color:#eee;';}?><?php if($aso_pant[$tabla.'_d'.fillzero($cdisp,2)]==1){echo 'font-weight:bold;';}?>">
                <?php echo $aso_pant[$tabla.'_d'.fillzero($cdisp,2)]; ?>
              </td>
          
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> font-size:<?php echo $xfontsize*.7 ;?>px;">
                <?php $pidtxt='f'.$cdisp.'1'; $pcaption=''; $ptabla='ubik';  $psize=$xfontsize*.7; $plong=2; $pobj=1; $pdefa=$aso_pant[$tabla.'_f'.$cdisp.'1']; include('vrgettxt.php'); ?>
                <?php $pidtxt='a'.$cdisp.'1'; $pcaption=''; $ptabla='ubik';  $psize=$xfontsize*.7; $plong=3; $pobj=1; $pdefa=$aso_pant[$tabla.'_a'.$cdisp.'1']; include('vrgetcod.php'); ?>
              </td>
              <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> font-size:<?php echo $xfontsize*.7 ;?>px;">
                <?php $pidtxt='f'.$cdisp.'2'; $pcaption=''; $ptabla='ubik';  $psize=$xfontsize*.7; $plong=2; $pobj=1; $pdefa=$aso_pant[$tabla.'_f'.$cdisp.'2']; include('vrgettxt.php'); ?>
                <?php $pidtxt='a'.$cdisp.'2'; $pcaption=''; $ptabla='ubik';  $psize=$xfontsize*.7; $plong=3; $pobj=1; $pdefa=$aso_pant[$tabla.'_a'.$cdisp.'2']; include('vrgetcod.php'); ?>
              </td>
          
            <?php } ?>
          
          
            <?php } ?>
          <?php } ?>
          
          
               <?php if($maesmodi=='true'){ ?>
              <td align="left" style="">
               <?php $pcaption='Modif';  $pabrev='M'; $ponclick='_modi0("'.$tabla.'",'.$aso_pant[$tabla.'_codigo'].');'; include('vrbutton.php'); ?>
              </td>
              <td>
               <span style="font-size:10px;"><div id="error_<?php echo $aso_pant[$tabla.'_codigo'];?>"></div></span>
              </td>
               <?php } ?>

          <?php
            if($itemimgi=='true' and $item_tlla*1==0)
            {
                $sql_imgi='select imgi_codigo from imgi0 where imgi_item like "'.$item_rfer.'%" and imgi_status not in("X","I")';
                $res_imgi=msql_query($sql_imgi,$link_vcrx);
                $cimgi=msql_num_rows($res_imgi);
            }
          ?>
          
					<td align="center" style="<?php if($itemimgi!='true'){echo'display:none;';}?>" title="<?php echo $cimgi;?>">
            <?php if($itemimgi=='true' and $item_tlla*1==0){ ?>
            <a href="?scri=upld_imgi&item=<?php echo $codigo;?>" target="_blank">
              <?php echo $cimgi;?>
            </a>
                <?php $pidtxt=$item_rfer; $ptabla='imgi'; $pcodigo=$item_rfer; $pobj=1; $plimit=1;  include('vrsayimgs.php');?>
            <?php } ?>
          </td>
          
					<td align="center" style="<?php if($dispcolu==0){echo'display:none;';}?> font-size:<?php echo $xfontsize*0.7 ;?>px;">
           <div class="hidden"></div>
            <?php if($idate!=''){?>
						<?php echo date('y-m-d', strtotime($idate)); ?><br>
						<?php echo date('H:i:s', strtotime($idate)); ?>
            <?php } ?>
					</td>
					<td align="center" style="<?php if($dispcolu==0){echo'display:none;';}?> "
							title="<?php  ?>">
						<?php echo $aso_pant[$tabla.'_status']; ?>
					</td>
					<?php // } ?>	

          <td align="center" >
					<?php
						if(!mb_stristr('ROX',$aso_pant[$tabla.'_status']) and $user_anul==1)
						{
// 							$pcaption='Anular: '.$docu.'-'.$aso_pant[$tabla.'_numero']; $pabrev='O';
// 							$pidtxt='o_'.$crow;
//               $pname='itr_fila';
// 							$pidnum=$aso_pant[$tabla.'_codigo'];$pdocu=$docu;
// 							$psize=$xfontsize;
// 							$ponclick="anul_docu('".$docu."','".$aso_pant[$tabla.'_codigo']."','".$aso_pant[$tabla.'_numero']."');";
// 							include('vrbutton.php');
						}

						if($aso_pant[$tabla.'_status']=='O' and $user_elim==1)
						{
// 							$pcaption='Eliminar: '.$docu.'-'.$aso_pant[$tabla.'_numero']; $pabrev='X';
// 							$pidtxt='anul'.'tr_fila'.$crow; $pname='itr_fila';
// 							$pidnum=$aso_pant[$tabla.'_codigo'];$pdocu=$docu;
// 							$psize=$xfontsize;
// 							$ponclick="elim_docu('".$docu."','".$aso_pant[$tabla.'_codigo']."','".$aso_pant[$tabla.'_numero']."');";
// 							include('vrbutton.php');
						}
					?>
					</td>

          
          <?php
            if($ver_kit==1)
            {
              $fechakit=date('Y-m-d',strtotime('-365 days'));
              $sql_kit ='select idnum1,docu,ptonumero,fecha,enti,item_descri from vtas12 '; 
              $sql_kit.='where status!="O" '; 
              $sql_kit.=' and docu like "FC%" '; 
              $sql_kit.=' and fecha>="'.$fechakit.'"'; 
              $sql_kit.=' and item_descri like "KIT%" '; 
              $sql_kit.=' and enti like "'.substr($cedula,0,10).'%"'; 
              $sql_kit.=' order by fecha desc,idnum1 desc';
              $sql_kit.=' limit 1';
              if($cedula==''){$sql_kit='';}

              $res_kit=msql_query($sql_kit,$link_vcrx);
              if(@msql_num_rows($res_kit)!=0)
              {
                $kit_idnum=msql_result($res_kit,0,'idnum1');
                $kit_docu=msql_result($res_kit,0,'docu');
                $kit_numero=msql_result($res_kit,0,'ptonumero');
                $kit_fecha=msql_result($res_kit,0,'fecha');
                  ?>
                <td align="center" style="<?php if($dispcolu==0){echo'display:;';}?> font-size:<?php echo $xfontsize*0.8 ;?>px;"
                  title="<?php echo $kit_docu.'-'.$kit_numero; ?>">
                <div class="hidden"><?php echo $kit_fecha.$kit_numero;?></div>
                <?php echo '<a href="?prnt=1&docu='.$kit_docu.'&idnum='.$kit_idnum.'" target="_blank">';?>
                <?php echo date('d/M/y', strtotime($kit_fecha)); ?>
                <?php echo '</a>'; ?>
                </td>
               <?php   
              }
              else
              {
                echo '<td align="center">NO-KIT</td>';
              }
            }
          
          ?>
         <td></td>    
                
        </tr>
          <?php } ?>
				<?php } ?>
			</tbody>
		<?php } ?>	
			<?php { // FOOT ?>
			<tfoot style="<?php echo $tdisplay; ?><?php if($mobile!='true'){echo 'max-width:'.($screenw-20).'px;';} ?>;background-color:#eee; font-size:<?php echo $xfontsize*.80;?>px;">
				<tr style="border-top:solid 1px;">
          <th style="display:none;"<?php $ccol--; ?>></th>          
          <?php if(substr($pant,0,4)=='PANT'){ ?>
					<th><?php $ccol--; ?></th>
					<th><?php $ccol--; ?></th>
          <?php } ?>
					<th><?php $ccol--; ?><?php echo ($tnumero).'/'.($crow); ?></th>
					<th><?php $ccol--; ?></th>
          <?php if(mb_stristr($pant,'PANT')){ ?>
          <?php echo str_repeat('<th></th>',$ccol); ?>
          <?php } ?>
				</tr>
			</tfoot>
			<?php } ?>	
		</table>

    <br>
    <br>
    <?php if(mb_stristr('demo.gmny.gnya',$cfg_empr)){?>
    <div style="font-size:<?php echo $xfontsize*.80;?>px;" max-width="90%">
      <?php echo $emailist;?>
    </div>
    <?php }?>
    
  </pant1>
	<?php //echo '***'.date('H:i:s') .'<br>';?>
				
<?php } ?>			
		
<?php if(mb_stristr('PANT2',$pant)) { ?>
<?php {
// 	if(mb_stristr('retc.retp.rete',$tabla))
// 	{
// 		$sql_pant ='select * from '.$tabla.'12 where status!="O" and ';
// 		$sql_pant.='concat(numero,fecha,enti) in (select concat(numero,fecha,enti) as numero from '.$tabla.'1 where idnum1="'.$idnum.'" )';
// 	}
// 	else
	$sql_pant ='select * from '.$tabla.'0 where trim('.$tabla.'_codigo)="'.$codigo.'"';
	$sql_tpant =str_replace($tabla.'0 ',$tabla.'00 ',$sql_pant);

// 	$res_pant=msql_query($sql_pant,$link_vcrx); 
//   $res_tpant=msql_query($sql_tpant,$link_vcrx); 
// 	echo explain_sql($sql_pant);


}	?>
<pant11>

<!-- datos hdd   -->
<div id="pant11a" style="display:none">
  <?php 
    $res_pant2=msql_query($sql_tpant,$link_vcrx);
    if(msql_num_rows($res_pant2)==0)
    {
      $sql_pant2=str_replace($tabla.'00',$tabla.'0',$sql_tpant);
      $res_pant2=msql_query($sql_pant2,$link_vcrx);
    }
                                  
    $campo=''; 
    $cfield=msql_num_fields($res_pant2);
    for($indx=0; $indx<$cfield; $indx++)
    {
      $nfield=msql_field_name($res_pant2,$indx);
      $tfield=msql_field_type($res_pant2,$indx);
      $vfield=@msql_result($res_pant2,0,$nfield);
      if(mb_stristr($nfield,'idate')){$vfield=substr($vfield,0,10);}
//       if(mb_stristr($vfield,'.')){$vfield=rtrim($vfield,'0'); $vfield.='0';}
      if($tfield=='real'){$vfield=rtrim($vfield,'0'); $vfield.='0';}
      if(!empty($vfield))
      {
        $nfield=str_replace($tabla.'_','',$nfield);
        $campo.='<input type="hidden" class="hdd"';
        $campo.='name="'.$nfield.'" ';
        $campo.='value="'.$vfield.'" ';
//         $campo.='tipo="'.$tfield.'" ';
        $campo.='/>';
      }  
    }
    echo $campo;
  ?>
</div>
  
  
  
  
<div id="pant11b" style="display:none">
<!--   <table sborder="0" cellpadding="0" cellspacing="0" 
         style="
                border-collapse:collapse
								padding:0px;
								margin:0px;
								width:100%;
								max-width:100%;
								font-family:arial;
								font-size:<?php echo $xfontsize;?>px;
         ">
    <?php if ($tsubt!=0) {?>
    <tr>
      <td align="right" >
        <input type="button" value="SUB-TOTAL" style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tsubt),2);?>
      </td>
    </tr>
    <?php } ?>
    <?php if ($tsubtiva0!=0) {?>
    <tr>
      <td align="right">
        <input type="button" value="SUB-TOT.IVA 0%" style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tsubtiva0),2);?>
      </td>
    </tr>
    <?php } ?>
    <?php if ($tsubtiva!=0) {?>
    <tr>
      <td align="right">
        <input type="button" value="SUB-TOT.IVA" style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tsubtiva),2);?>
      </td>
    </tr>
    <?php } ?>
    <?php if ($tdcto!=0) {?>
    <tr>
      <td align="right">
        <input type="button" value="DSCTO." style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tdcto)*-1,2);?>
      </td>
    </tr>
    <?php } ?>
    <?php if ($tprop!=0) {?>
    <tr>
      <td align="right">
        <input type="button" value="PROP." style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tprop),2);?>
      </td>
    </tr>
    <?php } ?>
    <?php if ($tice!=0) {?>
    <tr>
      <td align="right">
        <input type="button" value="ICE" style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tice),2);?>
      </td>
    </tr>
    <?php } ?>
    <?php if ($tiva!=0) {?>
    <tr>
      <td align="right">
        <input type="button" value="IVA" style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tiva),2);?>
      </td>
    </tr>
    <?php } ?>
    <?php if ($tirbp!=0) {?>
    <tr>
      <td align="right">
        <input type="button" value="IVA" style="font-weight:bold;">
      </td>
      <td align="right" style="font-weight:bold;">
        <?php echo number_format(abs($tirbp),2);?>
      </td>
    </tr>
    <?php } ?>
    <tr>
      <td align="right">
        <input type="button" value="TOTAL" style="font-weight:bold; font-size:<?php echo $xfontsize*1.5;?>px;">
      </td>
      <td align="right" style="font-weight:bold; font-size:<?php echo $xfontsize*1.5;?>px;">
        <div style="min-width:<?php echo $xfontsize*3*2;?>px;"></div>
        <?php echo ' '. number_format(abs($total),2);?>
      </td>
    </tr>
  </table> -->
</div>
  
</pant11>

  
    
<pant2>
</pant2>
		
<?php } ?>	
    
       
<?php if(mb_stristr('GRABA',$pant)){ ?>
	
	<?php $crow=0; ?>
	<?php $ccol=0; ?>
	<?php $tnumero=0; ?>
	<?php //echo '***'.date('H:i:s') .'<br>';?>
	<pant1>
	<?php	val_usercodigo(); ?>
	<?php 	
     
    if($tabla=='ctas'){new_ctas($codigo,$descri);}
    if($tabla=='atrz'){new_atrz($codigo,$enti); $descri=$codigo;}
                                 
    $minlen=2;
    if(mb_stristr($tabla,'sub'))
    {
       $minlen=4;
       if(strlen($codigo)==4){$codigo.='-';}
    }

   if(empty($descri)){$descri=$codigo;}
                                 
   if(strlen($codigo)>=$minlen and strlen($descri)>=3)
   {
      if(mb_stristr('caja.ctab.bcos.bode.zsub.csub.lsub.asub.lote.clor.mrca.kldd',$tabla))
      {
         $sql_inse ='insert into '.$tabla.'0('.$tabla.'_codigo,'.$tabla.'_descri,'.$tabla.'_tipo,'.$tabla.'_idate)';
         $sql_inse.='value("'.$codigo.'","'.$descri.'","'.$tipo.'",now())';
         $res_inse=msql_query($sql_inse,$link_vcrx);
      }
   }
                                 
   if(strlen($codigo)<$minlen)
   {
      echo '<msgalert>';                                 
      echo ' *** CODIGO NO VALIDO *** ';                                 
      echo '</msgalert>';                                 
   }
                                 
   if(strlen($descri)<3)
   {
      echo '<msgalert>';                                 
      echo ' *** DESCRIPCION NO VALIDA *** ';                                 
      echo '</msgalert>';                                 
   }

              
                                 
  ?>

  </pant1>
	<?php //echo '***'.date('H:i:s') .'<br>';?>
				
<?php } ?>			
       
       
       
</resultado>

<?php $obstart = ob_get_clean(); ?>
<?php //$obstart = str_replace(';;',';',$obstart); ?>
<?php //$obstart = alltrim($obstart) ?>
<?php echo $obstart;	?>

		