<?php //session_start();?>
<?php include('../_cfg/config.php');?>
<?php include('php_gene1.php'); ?>
<?php include('php_session.php');?>
<?php foreach($_POST as $campo => $valor){${$campo}=$valor;} ?>
<?php if($pant==''){$pant='PANT0';}?>
<?php if(!mb_stristr('PANT.GRAB',substr($pant,0,4))){return;} ?>

<?php //$fecha1=date('Y-m-01',strtotime ('today')); ?>
<?php $fecha1=date('Y-m-d',strtotime ('today')); ?>
<?php //if(empty($fecha2)){$fecha2=$th_fecha2;} ?>
<?php if(empty($fecha2)){$fecha2=$fecha9;} ?>
<?php if(empty($fecha2)){$fecha2=$fechaa;} ?>

<?php
if($idnum1==''){$idnum1=$idnum;}

if(substr($docu,0,2)=='CE'){$fecha2=$fecha9;}
     
// set_cair("303A",3,"SERV.PROFESIONALES.SOC.RESIDENTES");

$dias_clon=180;

if(mb_stristr('imcp.demo',$cfg_empr) and date('Y-m-d')<='2020-10-30')
{$dias_clon=360;}

if(mb_stristr('groo',$cfg_empr) and date('Y-m-d')<='2020-10-30')
{$dias_clon=720;}

if(mb_stristr('demo',$cfg_empr) )
{$dias_clon=365;}

if(mb_stristr('imcp.demo',$cfg_empr) and date('Y-m-d')<='2022-02-15')
{$dias_clon=400;}

if(mb_stristr('pcs1',$cfg_empr) and date('Y-m-d')<='2022-03-30')
{$dias_clon=4000;}


if($docu=='undefined'){$docu='';}

$docu=strtoupper($docu);
if($docu!='')
{
  $sql_docu='select * from docu0 where docu_codigo like "'.$docu.'%" order by docu_codigo';
  $res_docu=msql_query($sql_docu,$link_vcrx);
  $docu=msql_result($res_docu,0,'docu_codigo');
  $tabla=msql_result($res_docu,0,'docu_tabla');
}

$user_nuev=0;
$user_cons=0;
$user_modi=0;
$user_anul=0;
$user_elim=0;
$user_clon=0;

$docuacce=$docu; 
include('php_useracce.php');
if($user_tipo=='sist')
{
  $user_nuev=1;
  $user_cons=1;
  $user_modi=1;
  $user_anul=1;
  $user_elim=1;
  $user_clon=1;
}
if($user_tipo=='supe')
{
  $user_nuev=1;
  $user_cons=1;
  $user_modi=1;
  $user_anul=1;
  $user_elim=1;
  $user_clon=1;
}

// $docu=strtoupper($docu);
// if($docu!='')
// {
//   $sql_docu='select * from docu0 where docu_codigo like "'.$docu.'%" order by docu_codigo';
//   $res_docu=msql_query($sql_docu,$link_vcrx);
//   $docu=msql_result($res_docu,0,'docu_codigo');
//   $tabla=msql_result($res_docu,0,'docu_tabla');
// }


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

$sql_pant ='select * from user0 where user_codigo="'.$user_codigo.'"';
$res_pant=msql_query($sql_pant,$link_vcrx);
$defaptov=@msql_result($res_pant,0,'user_ptov');
$defabode=@msql_result($res_pant,0,'user_bode');
$defacaba=@msql_result($res_pant,0,'user_caba');
$defacaja=@msql_result($res_pant,0,'user_caja');
$defactab=@msql_result($res_pant,0,'user_ctab');

if(empty($defabode)){$defabode='001001';}
if(empty($defacaba)){$defacaba='001001';}
if(empty($defaptov))
{
  $sql_ptov='select * from vtas1 where docu like "FC%" order by fecha desc limit 1';
  $res_ptov=msql_query($sql_ptov,$link_vcrx);
  $defaptov=msql_result($res_ptov,0,'ptov');
}
if(empty($defaptov)){$defaptov='001001';}


$entilabel='ENTIDAD';

if($tabla=="")
{
	if($docu=='DD'){$tabla='cont';}
	if($docu=='FC'){$tabla='vtas';}
	if($docu=='AC'){$tabla='clie';}
	if($docu=='AP'){$tabla='prov';}
	if($docu=='OP'){$tabla='prod';}
	if($docu=='PF'){$tabla='clie';}
	if($docu=='CA'){$tabla='carr';}
	if($docu=='NC'){$tabla='vtas';}
	if($docu=='FP'){$tabla='comp';}
	if($docu=='GR'){$tabla='guia';}
	if($docu=='RP'){$tabla='retp';}
	if($docu=='IB'){$tabla='inve'; $entilabel='PROVEEDOR';}
	if($docu=='EB'){$tabla='inve'; $entilabel='CLIENTE';}
	if($docu=='IF'){$tabla='infi'; $entilabel='ENTIDAD';}
	
	if($docu=='DC'){$tabla='bcos'; $entilabel='CLIENTE';}
	if($docu=='CH'){$tabla='bcos'; $entilabel='PROVEEDOR';}
	if($docu=='DP'){$tabla='bcos'; $entilabel='PROVEEDOR';}
	if($docu=='IE'){$tabla='caja'; $entilabel='CLIENTE';}
	if($docu=='IC'){$tabla='caja'; $entilabel='CLIENTE';}
	if($docu=='EE'){$tabla='caja'; $entilabel='PROVEEDOR';}
}

if($tabla!="")
{
	if(mb_stristr('vtas.clie.carr.retc.guia.',$tabla)){$entilabel='CLIENTE';}
	if(mb_stristr('comp.prov.retp.',$tabla)){$entilabel='PROVEEDOR';}
	if(mb_stristr('nomi.roln.suel',$tabla)){$entilabel='EMPLEADO';}
}



$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);
$hpant2 =ceil($screenh*0.60);

$wpant1 =$screenw-20;



if ($orient=='V')
{
	$hpant1 =ceil($screenh*0.90);
	$hpant11=ceil($screenh*0.40);
	$hpant2 =ceil($screenh*0.90);
}


?>


<?php ob_start(); ?>
<?php //echo '****'.$docu.$pant;?>
<resultado>
<titulo style="display:none;">Registro de Documentos</titulo>  
<?php val_usercodigo(); ?>
<?php if(mb_stristr('PANT0.PANT1',$pant)){ ?>
  <?php
     gen_lote();

     
    $ptov='V101';
    $caja='C001';
    $ctab='B001';
    $bode='B001';
    $proc='P001';
     
    $guia=r_fiel('user',$user_codigo,'guia'); 
     if(empty($guia))
     {$guia=r_fiel('user',$user_codigo,'ptoe'); }
  
    if($docu!='' and $idnum1!='')
    {
      $peditar=1;
      $sql_docu='select * from '.$tabla.'1 where idnum1='.$idnum1;
      $res_docu=msql_query($sql_docu,$link_vcrx);
      
      $ptoe=msql_result($res_docu,0,'ptoe');
      $ptov=@msql_result($res_docu,0,'ptov');
      $caja=@msql_result($res_docu,0,'caja');
      $ctab=@msql_result($res_docu,0,'ctab');
      $bode=@msql_result($res_docu,0,'bode');
      $proc=@msql_result($res_docu,0,'proc');
      $numero=msql_result($res_docu,0,'numero');
      $enti=msql_result($res_docu,0,'enti');
      $fecha=msql_result($res_docu,0,'fecha');
      $fecha1=msql_result($res_docu,0,'fecha');
      $concepto=msql_result($res_docu,0,'concepto');
      $status=msql_result($res_docu,0,'status');
      $stfin=msql_result($res_docu,0,'stfin');
      $autornum=msql_result($res_docu,0,'autornum');
    }  
  ?>
		<?php { ?>
		<div id="pant0" width="99%" style="border:solid 2px; overflow:auto;">
			<?php //echo '***'.$sql_docu.msql_error($link_vcrx).$docu.$idnum1;?>
			<table width="100%" cellpadding="2" border="0"
						style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
				<tr>
          
<!-- 					<td width="40%" valign="top"> -->
					<td width="10%" 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%">
                  <?php $pidtxt='dl_enti'; $ptabla='enti'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_item'; $ptabla='item';
                    if($cfg_empr=='test'){$pwhere='(item_codigo in(select distinct item from inve12 where bode="'.$defabode.'"))';}
                    include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_ctas'; $ptabla='ctas'; $pctadet=1; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_docu'; $ptabla='docu'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_cair'; $ptabla='cair'; include('vrsetlist.php'); ?>
                  
                  <?php $pidtxt='dl_impor'; $pdocu='FP'; $pcolu='impor'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_ice'; $pdocu='FP'; $pcolu='ice'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_fodi'; $pdocu='FP'; $pcolu='fodi'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_dcto'; $pdocu='FC'; $pcolu='dcto'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_renti1'; $ptabla='enti'; $pwhere='(enti_codigo in(select r_enti1 from comp2))'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_renti2'; $ptabla='enti'; $pwhere='(enti_codigo in(select r_enti2 from comp2 ))'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_numfc'; $ptabla='empr'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_numfp'; $ptabla='empr'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_cxco'; $ptabla='empr'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_cxpa'; $ptabla='empr'; include('vrsetlist.php'); ?>
                  <?php $pidtxt='dl_iva'; $ptabla='item'; $pcolu='item_iva'; include('vrsetlist.php'); ?>
                  
                </td>
              </tr>

              <tr>
                <?php if($mobile!='true'){?>        
<!--                 <td width="25%"> -->
<!--                 </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).';"';} ?> >
                  <?php if($docu==''){$xtitulo='Registro de DOCUMENTOS';}else{$xtitulo='Registro de Documentos';} ?>
                  <titulo><?php echo $xtitulo; ?></titulo>
                </td>
              </tr>
              
							<tr>
                  <?php
                 $pidtxt='docu'; $pcaption='Docum.'; $ptabla='docu'; $psize=$xfontsize; $pobj=3; //$pcodigo=$docu;
                 $ponblur="vali_docu();vali_docunume();";
//               echo '*/*/*/'.$docu;
                 $ponblur.="if(document.getElementById('idnum1').value*1==0){document.getElementById('numero').value='';}";
                 $pdefa=$docu;       
                 if($peditar==1){$preado=1;}
                 include('vrgetcod.php');
                 ?>
							</tr>

							<tr id="tr_ptov" style="display:none;" class="tran vtas clie">
							<?php $pidtxt='ptov'; $pcaption='PTO.VTA.'; $ptabla='ptov'; $pdefa=$defaptov; $pvalue=$defaptov; $psize=$xfontsize;
						 			$ponblur="document.getElementById('ptoe').value=document.getElementById('ptov').value;";
                 if($peditar==1){$preado=1;$pdefa=$ptov;}
						 			include('vrgetcod.php'); ?>
							</tr>

							<tr style="display:none;" class="tran inve">
							<?php $pidtxt='bode'; $pcaption='BODEGA'; $ptabla='bode'; $pdefa=$defabode; $pvalue=$defabode; $psize=$xfontsize;
						 			$ponblur="document.getElementById('ptoe').value=document.getElementById('bode').value;";
                 if($peditar==1){$preado=1;$pdefa=$bode;}
						 			include('vrgetcod.php'); ?>
							</tr>

							<tr style="display:none;" class="tran prod">
							<?php $pidtxt='proc'; $pcaption='PROCESO'; $ptabla='proc'; $pdefa=$defabode; $pvalue=$defabode; $psize=$xfontsize;
                 if($peditar==1){$preado=1;$pdefa=$proc;}
						 			include('vrgetcod.php'); ?>
							</tr>

							<tr style="display:none;" class="tran caja">
							<?php $pcaption='CAJA'; $ptabla='caja'; $pdefa=$defacaba;$psize=$xfontsize;
						 			$ponblur="document.getElementById('ptoe').value=document.getElementById('caja').value;";
                 if($peditar==1){$preado=1;$pdefa=$caja;}
						 			include('vrgetcod.php'); ?>
							</tr>

							<tr style="display:none;" class="tran bcos">
							<?php $pcaption='CTA.BANC.'; $ptabla='ctab'; $pdefa=$ctab; $psize=$xfontsize;
						 			$ponblur="document.getElementById('ptoe').value=document.getElementById('ctab').value;";
                 if($peditar==1){$preado=1;$pdefa=$ctab;}
						 			include('vrgetcod.php'); ?>
							</tr>

							<tr style="display:table-row;" class="tran comp reem prov retc retp rete guia ncre impo expo " >
							<?php $pidtxt='ptoe'; $pcaption='Pto.Emi.'; $pdefa='001101'; if(!empty($guia)){$pdefa=$guia;}  $plong=6; $psize=$xfontsize;
               $ponblur="vali_ptoe();vali_docunume();";
                if($peditar==1){$preado=1;$pdefa=$ptoe;}
               include('vrgetnum.php'); ?>
							</tr>

							<tr style="display:table-row;"  >
							<?php $pidtxt='numero'; $pcaption='Numero'; $pdefa=$numero; $plong=9; $psize=$xfontsize; // $pdefa=$numero;
                if($peditar==1){$preado=1; $pdefa=$numero;}
                $pphold='00: Auto Num';
						 		$ponblur ="vali_ptoe();";
						 		$ponblur.="vali_numero();";
						 		$ponblur.="vali_docunume();";
                $ponblur.="gath_idnum();";
						    include('vrgetnum.php'); ?>
							</tr>
              
							<tr style="display:table-row;"  >
							<?php $pcaption='ENTIDAD'; $pidtxt='enti'; $ptabla='enti'; 
                $pdefa=$enti; $psize=$xfontsize;
                $plist='dl_enti';
//                 $pphold='cedula - ruc';
                $ponblur ='vali_docunume();'; 
                $ponblur.="gath_idnum();";
                $ponblur.="list_cxcp();";
                 if($peditar==1 and mb_stristr('FP10.RC10.PP10',$docu)){$preado=1;}
                include('vrgetcod.php'); ?>
							</tr>
							
							<tr style="display:table-row;"  >
							<?php $pcaption='CONCEPTO'; $pidtxt='concepto'; $plong=25; $prows=2; $pdefa=$concepto; $ponblur=''; $psize=$xfontsize; include('vrgettxt.php'); ?>
							</tr>

          </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 width="1%"></td>
              </tr>
                     <?php $fechadtr=get_fechadtr() ;   ?>
							<tr>
							<?php $pidtxt='fechadtr'; $pcaption='Fecha'; $pdefa=$fechadtr; $psize=$xfontsize; $preado=1; $phide=1; include('vrgetfec.php'); ?>
							</tr>
							<tr>
							<?php $pidtxt='fecha'; $pcaption='Fecha'; $pdefa=$fecha1; $psize=$xfontsize; $pmin=$fechadtr; include('vrgetfec.php'); $pmin='';?>
							</tr>

							<tr id="tr_empr1" style="display:none;" class="tran plan atvd">
							<?php $pidtxt='empr1'; $pcaption='EMPRESA'; $ptabla='plan1'; $pcolu='empr1'; $pdefa=$empr1; $psize=$xfontsize; include('vrgettxt.php'); ?>
							</tr>

							<tr id="tr_bode2" style="display:none;" class="tran inve">
							<?php $pidtxt='bode2'; $pcaption='BODEGA 2'; $ptabla='bode'; $pdefa=$bode2; $ponblur='';$psize=$xfontsize; include('vrgetcod.php'); ?>
							</tr>

							<tr id="tr_numfac" style="display:none;" class="tran inve">
							<?php $pidtxt='numfac'; $pcaption='# FC/NC/OP'; $plist='dl_numfac'; $plong=9; $ptabla=''; $ponblur='';$psize=$xfontsize; include('vrgetnum.php'); ?>
							</tr>

							<tr id="tr_numord" style="display:none;" class="tran prod">
							<?php //$pidtxt='numord'; $pcaption='# ORDEN'; $plist='dl_numord'; $plong=9; $ptabla=''; $ponblur='';$psize=$xfontsize; include('vrgetnum.php'); ?>
							</tr>

							<tr id="tr_numpro" style="display:none;" class="tran prod">
							<?php $pidtxt='numord'; $pcaption='# ORDEN'; $plist='dl_numord'; $plong=9; $ptabla=''; $ponblur='';$psize=$xfontsize; include('vrgetnum.php'); ?>
							</tr>

							<tr style="display:none;" class="tran caba">
							<?php //$pidtxt='caba2'; $pcaption='CAJA/CTAB '; $ptabla='caba'; $pdefa=''; $ponblur='';$psize=$xfontsize; include('vrgetcod.php'); ?>
							</tr>

							<tr style="display:none;" class="tran bcos">
                                   <?php $pcaption='BENEFICIARIO'; $pidtxt='benefic'; $pobj=3; $plong=20;  include('vrgettxt.php'); ?>
							</tr>

							<tr style="display:none;" class="tran caja bcos">
							<?php $pidtxt='caba2'; $pcaption='CAJ/BCO 2'; $ptabla='caba'; $pdefa=$caba2; $ponblur='';$psize=$xfontsize; include('vrgetcod.php'); ?>
							</tr>

							<tr style="display:none;" class="tran cxco dxco">
							<?php $pidtxt='cxco'; $pcaption='C.X COB.'; $plist='dl_cxco'; $pdefa=''; $ponblur="sele_cxcp('".$pidtxt."');"; $psize=$xfontsize; $plong=30; include('vrgettxt.php'); ?>
							</tr>

							<tr style="display:none;" class="tran cxpa dxpa">
							<?php $pidtxt='cxpa'; $pcaption='C.X PAG.'; $plist='dl_cxpa'; $pdefa=''; $ponblur="sele_cxcp('".$pidtxt."');"; $psize=$xfontsize; $plong=30; include('vrgettxt.php'); ?>
							</tr>

							<tr id="tr_plazo" style="display:none;" valign="top"  class="tran vtas clie comp reem prov prod">
							<?php $pidtxt='plazo'; $pcaption='Plazo'; $pdefa=$plazo; $plong=3; $psize=$xfontsize; include('vrgetnum.php'); ?>
							</tr>
							<tr id="tr_dscto" style="display:none;" valign="top"  class="tran vtas clie comp reem prov">
							<?php $pidtxt='dcto1'; $pcaption='%Dscto'; $pdefa=$dcto; $plong=2; $psize=$xfontsize; include('vrgetval.php'); ?>
							</tr>

							<tr style="display:none;" class="tran ncre guia">
		 		      <?php $pcaption='DOC.REL.'; $pidtxt='todocu'; $pobj=3; $pclass='tran ncre guia'; $ptabla='docu'; 
                                   $pwhere='(docu_codigo like "F%" or docu_codigo like "EB%")'; 
                                   if($cfg_empr=='hfre'){$pwhere='(docu_codigo like "EB%")'; $pdefa=''; }
                                   include('vrgetcod.php'); ?> 
							</tr>
							<tr style="display:none;" class="tran ncre guia">
				      <?php $pcaption='PTO.EMI.'; $pidtxt='toptoe'; $pobj=3; $pclass='tran ncre guia'; $pdefa=''; $plong=6; include('vrgetnum.php'); ?> 
							</tr>
							<tr style="display:none;" class="tran ncre guia">
				      <?php $pcaption='NUMERO.'; $pidtxt='tonume'; $pobj=3; $pclass='tran ncre guia'; $pdefa=0; include('vrgetnum.php'); ?> 
							</tr>

                 
               </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 width="1%"></td>
              </tr>
                 
                 
                 
              <tr style="display:none;" class="tran guia">
                <?php if(empty($fecha2) or $fecha2<$fecha1){$fecha2=$fecha1;}  ?>
							<?php $pidtxt='fecha2'; $pcaption='Fec.Llega'; $pdefa=$fecha2; $psize=$xfontsize; include('vrgetfec.php'); ?>
							</tr>
              
              <tr style="display:none;" class="tran guia">
        				<?php $pidtxt='placa'; $pcaption='PLACA'; $ptabla='vhcl'; $pclass='tran guia'; $psize=$xfontsize; include('vrgetcod.php'); ?>
              </tr>
              <tr style="display:none;" class="tran guia">
                <?php $pidtxt='cedula1'; $pcaption='CED.CONDUC.'; $ptabla='enti'; $psize=$xfontsize; 
                $pwhere='(enti_codigo in(select distinct cedula1 from guia1))'; 
//                 $pwhere='(length(trim(enti_codigo))=10)'; 
//                   $plist='dl_enti';
                 include('vrgetcod.php'); ?>
              </tr>
              <tr style="display:none;" class="tran guia">
                <?php $pidtxt='nombre1'; $pcaption='NOM.CONDUC.'; $plong=15;  $prows=2; $psize=$xfontsize; include('vrgettxt.php'); ?>
              </tr>
              
              

         </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 width="1%"></td>
              </tr>

              <tr style="display:none;" valign="top"  class="tran vtas clie prod">
                <?php $pidtxt='email'; $pcaption='E-Mail'; $plong=20; $psize=$xfontsize; $pobj=$xobj; include('vrgettxt.php'); ?>
              </tr>
              <tr style="display:none;" valign="top"  class="tran vtas clie prod">
                <?php $pidtxt='wsapp'; $pcaption='WhatsApp'; $plong=10; $psize=$xfontsize; $pobj=$xobj; include('vrgetnum.php'); ?>
              </tr>
              
              <tr style="display:none;" valign="top"  class="tran vtas clie comp reem sri">
							<?php $pidtxt='fpag'; $pcaption='F.Pago'; $ptabla='fpag'; $psize=$xfontsize; $pdefa=$fpag; $ptitle='Forma de Pago'; include('vrgetcod.php');?>
							</tr>

              <tr id="tr_vndd" style="display:none;" class="tran vtas clie">
							<?php $pidtxt='vndd'; $pcaption='Vendedor'; $ptabla='enti'; $psize=$xfontsize; $pdefa=$vndd; 
                $pwhere='(enti_codigo in(select distinct vndd from vtas1))'; 
//                   $plist='dl_enti';
                include('vrgetcod.php'); ?>
					    </tr>
               <tr id="tr_zsub" style="display:none;" class="tran vtas clie">
               <?php $pidtxt='zsub'; $pcaption='Zona'; $ptabla='zsub'; $psize=$xfontsize; $pdefa=$zsub; include('vrgetcod.php'); ?>
               </tr>


              
							<?php if($empr_cont==1){ ?>
							<tr style="display:none;" class="tran comp reem sri">
							<?php $pidtxt='suco'; $pcaption='Sust.Comp.'; $ptabla='suco'; $psize=$xfontsize; $pdefa=$suco; $ptitle='Sustento del Comprobante'; include('vrgetcod.php'); ?>
							</tr>
							<tr style="display:none;" class="tran comp reem sri ncre">
							<?php $pidtxt='atrz'; $pcaption='#.Autor.'; $pdocu='FP10'; $pcolu='atrz'; $plong=10; $psize=$xfontsize; $pdefa=$atrz; $ptitle='Número de Autorización'; include('vrgetnum.php'); ?>
							</tr>
							<?php }?>

                 
							<tr style="display:none;" class="tran comp ">
							<?php $pidtxt='toenti'; $pcaption='ENTI_3ro'; $ptabla='enti'; $plist='dl_enti'; $ptitle='Entidad X CP'; include('vrgetcod.php'); ?>
							</tr>
                 
                 
                 
							<?php if($empr_impo==1){ ?>
							<tr style="display:none;" class="tran impo nimpo ">
							<?php $pidtxt='impor'; $pcaption='Import.'; $pdocu='FP10'; $pcolu='impor'; $psize=$xfontsize; $plong=6; $plist='dl_impor'; $ptitle='Importación'; include('vrgettxt.php'); ?>
							</tr>
                 
              <tr style="font-family:arial; font-weight:bold; display:none;" class="tran impo cimpo">
                <td></td>
                <td>VALOR</td>
                <td>DISTRIB.</td>
              </tr>
							<tr style="display:none;" class="tran impo cimpo">
							<?php $pidtxt='costoe1'; $pcaption='COSTO EXT'; $psize=$xfontsize; $ptitle='Costos Ext.'; include('vrgetval.php'); ?>
              <td>
							<?php $pidtxt='costoe1d'; $pcaption=''; $psize=$xfontsize; $ptitle='Distrib.'; $pobj=1; $poptions='1,Unidades;2,Valores;3,Peso'; include('vrselopt.php'); ?>
              </td>
							</tr>
							<tr style="display:none;" class="tran impo cimpo">
							<?php $pidtxt='seguro1'; $pcaption='SEGURO'; $psize=$xfontsize; $ptitle='Seguro Total'; include('vrgetval.php'); ?>
              <td>
							<?php $pidtxt='seguro1d'; $pcaption=''; $psize=$xfontsize; $ptitle='Distrib.'; $pobj=1; $poptions='1,Unidades;2,Valores;3,Peso'; include('vrselopt.php'); ?>
              </td>
							</tr>
							<tr style="display:none;" class="tran impo cimpo">
							<?php $pidtxt='flete1'; $pcaption='FLETE'; $psize=$xfontsize; $ptitle='Flete Total'; include('vrgetval.php'); ?>
              <td>
							<?php $pidtxt='flete1d'; $pcaption=''; $psize=$xfontsize; $ptitle='Distrib.'; $pobj=1; $poptions='1,Unidades;2,Valores;3,Peso'; include('vrselopt.php'); ?>
              </td>
							</tr>
							<tr style="display:none;" class="tran impo cimpo">
							<?php $pidtxt='costol1'; $pcaption='COSTO LOC'; $psize=$xfontsize; $ptitle='Costos Loc.'; include('vrgetval.php'); ?>
              <td>
							<?php $pidtxt='costol1d'; $pcaption=''; $psize=$xfontsize; $ptitle='Distrib.'; $pobj=1; $poptions='1,Unidades;2,Valores;3,Peso'; include('vrselopt.php'); ?>
              </td>
							</tr>
							<?php }?>
							
							<tr>
							<?php //$pidtxt='fecha2'; $pcaption='Hasta'; $psize=$xfontsize; include('vrgetfec.php'); ?>
							</tr>

            
              <tr style="display:none;" class="tran guia">
                <?php $pidtxt='punto1'; $pcaption='PARTIDA'; $plong=15; $prows=3; $psize=$xfontsize; include('vrgettxt.php'); ?>
              </tr>
              <tr style="display:none;" class="tran guia">
                <?php $pidtxt='punto2'; $pcaption='LLEGADA'; $plong=15; $prows=3;$psize=$xfontsize; include('vrgettxt.php'); ?>
              </tr>
              <tr style="display:none;" class="tran guia">
                <?php $pidtxt='ruta'; $pcaption='RUTA'; $plong=15; $prows=2; $psize=$xfontsize;include('vrgettxt.php'); ?>
              </tr>
              <tr style="display:none;" class="tran guia">
                <?php //$pidtxt='numfac'; $pcaption='# FACT.'; $ptabla='vtas1'; $pcolu='numero'; $psize=$xfontsize; $pwhere='(docu like "FC%")'; include('vrgetnum.php'); ?>
              </tr>
               <?php if(mb_stristr('hfre',$cfg_empr)){?>
              <tr style="display:none;" class="tran guia">
				<?php $pcaption='CONTENEDOR'; $pidtxt='cntn'; $ptabla='cntn'; $pobj=0; $pclass='tran guia'; include('vrgetcod.php'); ?>
              </tr>
               <?php }?>
              

          </table>

          <?php if($mobile!='true'){?>        
          </td>
          <td valign="top" width="1%">
          <?php } ?>
            
            <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>
              
            <tr>
                <td align="center" style="display:none;">
                  <?php $pidtxt='detadocu'; $pcaption='Detalle'; $ponclick='regi_docu("DETA")'; $psize=$xfontsize; $pdefa=1; include('vrchkbox.php'); ?>
                </td>
              </tr>
            
              <tr>
              <td colspan="1" id="pant11v"></td>
              </tr>

          </table>

          <?php if($mobile!='true'){?>        
          </td>
          <td valign="top" width="1%" style="background-color:<?php echo 'gainsboro'; ?>;">
          <?php } ?>
            
            <table width="100%" cellpadding="2" border="0"
                  style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
            <tbody style="background-color:<?php echo 'gainsboro'; ?>;">
              <tr>
<!--                 <td width="1%"></td> -->
              </tr>
              
              <tr style="display:;">
			<?php  $pidtxt='idnum1'; $pcaption='ID-NUM'; $pobj=3; $psize=$xfontsize-1; $preado=1; if($peditar==1){$pdefa=$idnum1;};
                  $ponclick='gath_idnum();'; $plong=5;
//                   $ponchange='info_docu("PANT2",document.getElementById("docu").value,document.getElementById("idnum1").value);'; 
                  include('vrgetnum.php');?>
							</tr>
              <tr>
			<?php  $pidtxt='stat_descri'; $pcaption='STATUS'; $pobj=3; $preado=1; $psize=$xfontsize-1; $plong=3; $pdefa=$status;
                  include('vrgettxt.php');?>
							</tr>
              <tr>
                <td colspan="2">
				<?php  $pidtxt='cobrar'; $pcaption='COBRAR'; $psize=12; $psize=$xfontsize; $pclass='tran vtas';
                    $ponclick='{window.open("?scri=regi_copa&docu="+document.getElementById("docu").value+"&idnum="+document.getElementById("idnum1").value+"&formato=","_blank")}';
                    include('vrbutton.php');
                  ?>
                </td>
              </tr>
              <tr>
                <td colspan="2">
				<?php  $pidtxt='pagar'; $pcaption='PAGAR'; $psize=12; $psize=$xfontsize; $pclass='tran comp';
                    $ponclick='{window.open("?scri=regi_copa&docu="+document.getElementById("docu").value+"&idnum="+document.getElementById("idnum1").value+"&formato=","_blank")}';
                    include('vrbutton.php');
                  ?>
                </td>
              </tr>
              <tr>
                <td colspan="2">
				<?php  $pidtxt='impri'; $pcaption='IMPRIMIR'; $psize=12; $psize=$xfontsize;
                    $ponclick='{window.open("?prnt=1&docu="+document.getElementById("docu").value+"&idnum="+document.getElementById("idnum1").value+"&formato=","_blank")}';
                    include('vrbutton.php');
                  ?>
                </td>
              </tr>
              <tr>
                <td colspan="2">
				<?php  $pidtxt='graba'; $pcaption='GRABAR'; $psize=12; $psize=$xfontsize;
                    $ponclick='regi_docu("GRABAR");';
                    $ponclick.='php_func("vali_regidocu(\'+document.getElementById("docu").value+\',\'+document.getElementById("idnum1").value+\')");';
                    $ponclick.='gath_idnum();';
                    $ponclick.='document.getElementById("iddet_btn").onclick();';
                    $ponclick.='list_cxcp();';
                    if(!mb_stristr('FROX',$status)
                       and $autornum==''
                       and days_diff($fecha,$fechaa)<=$dias_clon
                      )
                    {include('vrbutton.php');}
                  ?>
                </td>
              </tr>
              
              <tr style="display:none;">
              <?php $pidtxt='vermodi'; $pcaption='Modif.'; $ponclick=''; $psize=$xfontsize; $pdefa=1; $phide=1;
//                   $pclass="tran comp caja bcos plan clie inve prod"; 
                  include('vrchkbox.php'); ?>
          <?php
              $pidtxt='repo'; $pcaption='Reporte'; $psize=$xfontsize; $pdefa=$docu;  $pvalue=$pdefa; $pobj=1; $pnotob=0; 
               $poptions ='';
//                $poptions.='1,Resumen;3,Detalle;';
               $poptions.='3,Detalle;';
              $phide=1;
               include('vrselopt.php');
          ?>              

              </tr>
              
<!--               <tr>
                <td colspan="1">
				<?php 
                    $pidtxt='modif'; $pcaption='MODIF'; $psize=12; $psize=$xfontsize;
//                     $ponclick='info_docu("PANT"+document.getElementById("repo").value,'.'document.getElementById("docu").value'.')'; 
                    $ponclick='info_docu("PANT3",'.'document.getElementById("docu").value,document.getElementById("idnum1").value'.')'; 

//                     $ponclick='regi_docu("GRABAR");';
//                     $ponclick.='php_func("vali_regidocu(\'+document.getElementById("docu").value+\',\'+document.getElementById("idnum1").value+\')");';
//                     $ponclick.='gath_idnum();';
//                     $ponclick.='document.getElementById("iddet_btn").onclick();';
//                     $ponclick.='list_cxcp();';
//                     if(!mb_stristr('FROX',$status)
//                        and $autornum==''
//                        and days_diff($fecha,$fechaa)<=$dias_clon
//                       )
//                     {include('vrbutton.php');}
                  ?>
                </td>
              </tr> -->
            </tbody>
              
						</table>
					</td>
				</tr>
			</table>
		</div>
<!-- 		<hr> -->
		<div id="pant00" width="100%" style="border:solid 0px; overflow:auto; display:none; padding:0px;">
		<table id="th_detalle" width="60%" cellspacing="0" cellpadding="1"  border="0"
						style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white; ">
			<tbody style="display:block;">
			<tr align="center" valign="center" style="border-top: solid 0px;border-bottom: solid 2px; ">
				<?php $pcaption='L'; $ptitle='Nueva Linea'; $pidtxt='iddet'; $pdefa=0; $pobj=2; $pclass=''; $plong=3; $phide=0; 
              
                    $preado=1; 
              if($cfg_empr=='imcp' and substr($docu,0,2)=='DD' and date('Y-m-d')<="2022-02-15")
              {$preado=0;}
              
          $pstyle='background-color:steelblue; color:snow;';
          $ponclick ="document.getElementById('".$pidtxt."').value='';";
          $ponclick.="document.getElementById('docum').value='';";
          $ponclick.="document.getElementById('item').value='';";
          $ponclick.="if(document.getElementById('docum').style.display!='none'){document.getElementById('docum').focus();}";
          $ponclick.="if(document.getElementById('item').style.display!='none'){document.getElementById('item').focus();}";
          include('vrgetnum.php'); ?> 
				<?php $pcaption='FECHA'; $pidtxt="fecha9"; $pobj=2; $pclass='tran nomi empl'; include('vrgetfec.php'); ?> 
				<?php $pcaption='CEDULA'; $pidtxt="enti2"; $pobj=4; $ptabla='enti'; $pclass='tran rolp acti'; 
                $pwhere='(enti_codigo in(select distinct enti from atvd1) or enti_codigo in(select distinct enti from nomi2))'; 
//                   $plist='dl_enti';
                include('vrgetcod.php'); ?>
				<?php $pcaption='ITEM'; $ptabla='item'; $pobj=4; $psize=$xfontsize;
						 $ponblur="vali_item()";
						 $pclass='tran vtas clie guia carr comp reem prov inve prod ncre impo expo'; 
            $plist='dl_item';
            include('vrgetcod.php'); ?> 
				<?php $pcaption='NOVEDAD'; $ptabla='nvdd'; $pobj=4; $pclass='tran rolp empl'; include('vrgetcod.php'); ?> 
				<?php $pcaption='DOCU'; $ptabla='docu'; $pidtxt='docum'; $pobj=4; $pclass='tran caba caja bcos retc retp dxco dxpa'; $plist='dl_docu'; include('vrgetcod.php'); ?>  
				<?php $pcaption='P.EMIS.'; $pidtxt="ptoem"; $plong=6; $pobj=2; $pdefa='001001';  $pclass='tran caba caja bcos retc retp dxco dxpa '; include('vrgetnum.php'); ?>  
				<?php $pcaption='NUMERO'; $pidtxt='numer'; $plong=9; $pobj=2; $ponclick=""; $pclass='tran caba caja bcos retc retp dxco dxpa'; include('vrgetnum.php'); ?> 
				<?php $pcaption='UMDD'; $pidtxt='umdd'; $pdefa=''; $plong=4; $pobj=2; $preado=1; $psize=$xfontsize-1;
               $pclass='tran vtas clie guia comp reem prov inve prod impo expo ';
               include('vrgettxt.php'); ?>
				
				<?php $pcaption='CANT.'; $pidtxt='cant'; $pdefa=1; $plong=9; $pobj=2;  $psize=$xfontsize;
               $pclass='tran vtas clie guia comp reem prov inve prod caba caja bcos ncre impo expo dxco dxpa retp retc';
//                $pclass='tran vtas clie guia comp reem prov inve prod caba caja bcos ncre impo expo dxco dxpa';
               include('vrgetval.php'); ?>
				
		<!--  JW19  -->
				<?php if($empr=='jw19'){?>
				<?php $pcaption='FUNCION'; $pidtxt="funcion"; $pobj=2; $ptabla='acti2'; $pcolu='funcion'; $pclass='tran acti'; include('vrgettxt.php'); ?> 
				<?php $pcaption='ASIGNACION'; $pidtxt="asignacion"; $pobj=2; $ptabla='acti2'; $pcolu='asignacion'; $pclass='tran acti'; include('vrgettxt.php'); ?> 
				<?php } ?>
		<!--  RCSA  -->

		<!--  RCSA  -->
				<?php if($empr=='rcsa'){?>
				<?php $pcaption='P.UNIT.'; $pidtxt='puni_o'; $plong=8; $pobj=2; $pclass='tran vtas clie'; include('vrgetval.php'); ?>
				<?php $pcaption='P.ALT..'; $pidtxt='puni_a'; $plong=7; $pobj=2; $pclass='tran vtas clie'; include('vrgetval.php'); ?>
				<?php $pcaption='IMPO'; $pidtxt='impo'; $plong=1; $pobj=2; $pclass='tran vtas clie'; include('vrchkbox.php'); ?>
				<?php } ?>
		<!--  RCSA  -->

        
				<?php $pcaption='P.UNIT.'; $pidtxt='puni'; $plong=7; $pobj=2;  $psize=$xfontsize;
               $pclass='tran vtas clie comp reem prov inve prod rolp empl ncre impo expo dxco dxpa retp retc '; 
                $plist='dlpuni';
//                $pclass='tran vtas clie comp reem prov inve prod rolp empl ncre impo expo dxco dxpa  '; 
               include('vrgetval.php'); ?>
				<?php //$pcaption='P.V.P.'; $pidtxt='pvp1'; $plong=8; $pobj=2; $pclass=''; include('vrgetval.php'); ?> 
				<?php $pcaption='%ICE'; $pidtxt='ice'; $pobj=2;  $psize=$xfontsize; $pclass='tran comp reem prov'; $plist='dl_ice'; include('vrgetval.php'); ?>
				<?php $pcaption='%DCTO'; $pidtxt='dcto'; $pobj=2;  $psize=$xfontsize;$pclass='tran vtas clie comp reem prov'; $plist='dl_dcto1'; include('vrgetval.php'); ?> 
				<?php //$pcaption='%IVA'; $pidtxt='iva'; $pobj=2; $pdefa=12; $pclass='tran vtas clie comp reem prov'; include('vrgetval.php'); ?> 
				<?php $pcaption='%IVA'; $pidtxt='iva'; $pobj=2; $pdefa=12;  if(date('Y-m-d')>='2024-04-01'){$pdefa=15;}   $psize=$xfontsize; $pclass='tran vtas clie comp reem prov ncre impo expo'; $poptions='0;12'; include('vrselopt.php'); ?> 
				<?php $pcaption='IRBP'; $pidtxt='irbp'; $pobj=2; $plong=4;  $psize=$xfontsize; $pclass='tran comp reem prov'; $psize=$xfontsize-1; include('vrgetval.php'); ?> 

	<!--  PACO.PCS1.PSR1.IDMT  -->
				<?php //if(mb_stristr('pcs1.prs1',$empr)){?>
				<?php if(mb_stristr('pcs1.prs1',$cfg_empr)){?>
				<?php $pcaption='CONTENEDOR'; $pidtxt='cntn'; $ptabla='cntn'; $pobj=2; $pclass='tran vtas'; include('vrgetcod.php'); ?>
				<?php $pcaption='DESDE'; $pidtxt='cntnf1'; $pobj=2; $pclass='tran vtas'; include('vrgetfec.php'); ?>
				<?php $pcaption='HASTA'; $pidtxt='cntnf2'; $pobj=2; $pclass='tran vtas'; include('vrgetfec.php'); ?>
                    <?php $pcaption='ENVIO'; $pidtxt='envio'; $plong=5; $pobj=2; include('vrgetval.php'); ?>
				<?php //$pcaption='CHASIS'; $pidtxt='chasis'; $plong=10; $pobj=2; $pclass='tran vtas'; include('vrgettxt.php'); ?>
				<?php }?>
	<!--  PACO  -->
        
        
				<?php if(mb_stristr('demo.tgck.sawo.ztej',$cfg_empr)){?>
				<?php $pidtxt='vhcl'; $pcaption='VHCL'; $ptabla='vhcl'; $pobj=2; $pclass='tran vtas'; include('vrgetcod.php'); ?>
				<?php $pidtxt='odmt'; $pcaption='KM.'; $pobj=2; $pclass='tran vtas'; $plong=6; include('vrgetnum.php'); ?>
				<?php }?>
        
        
				<?php if($cfg_empr=='anml'){?>
				<?php $pidtxt='pcnt'; $pcaption='PCNT'; $ptabla='enti'; $pobj=2; $pclass='tran vtas'; include('vrgetcod.php'); ?>
				<?php }?>
        
        
				<?php $pcaption='PESO'; $pidtxt='peso'; $plong=10; $pobj=2; $pclass='tran impo'; include('vrgetval.php'); ?> 
				<?php $pcaption='ARANCEL'; $pidtxt='arcl'; $ptabla='arcl'; $pobj=2; $pclass='tran impo'; include('vrgetcod.php'); ?> 
				<?php $pcaption='AD-VAL'; $pidtxt='adva'; $pobj=2; $pclass='tran impo'; $plist=''; include('vrgetval.php'); ?>
				<?php $pcaption='FDINFA'; $pidtxt='fodi'; $pobj=2; $pclass='tran impo'; $plist='dl_fodi'; include('vrgetval.php'); ?>
        
				<?php $pcaption='CAIR'; $ptabla='cair'; $pobj=2; $psize=round($xfontsize*.8,0); $pclass='tran comp reem prov retc retp'; include('vrgetcod.php'); ?> 
				<?php if($empr_cont==1){?> 
				<?php $pcaption='CUENTA'; $ptabla='ctas'; $pobj=4; $pclass='tran comp reem prov cont caba caja bcos dxco dxpa'; $plist='dl_ctas';
                    $pctadet=1; 
                    if($cfg_empr=='pcs1'){$pctadet=0;}
                    include('vrgetcod.php'); ?>
				<?php //$pcaption='BASE'; $pidtxt='base'; $plong=9; $pobj=2; $pclass='tran retc retp'; include('vrgetval.php'); ?> 
				<?php //$pcaption='%RET'; $pidtxt='porc'; $pobj=2; $pclass='tran retc retp'; include('vrgetval.php'); ?> 
				<?php $pcaption='DEBITO'; $pidtxt='debito'; $plong=9; $pobj=2; $pclass='tran cont'; include('vrgetval.php'); ?> 
				<?php $pcaption='CREDITO'; $pidtxt='credito'; $plong=9; $pobj=2; $pclass='tran cont'; include('vrgetval.php'); ?> 
				<?php $pcaption='C.SUB'; $ptabla='csub'; $pobj=2; $pclass='tran comp reem prov cont rolp empl'; include('vrgetcod.php'); ?> 
				<?php } ?>

				<?php if($empr_lote==1 or $cfg_empr=='demo'){?> 
				<?php //$pcaption='LOTE'; $pidtxt='lote'; $plong=10; $pobj=2; $pdocu='IB'; $pcolu='numlote'; $pclass='tran inve prod'; include('vrgettxt.php'); ?> 
				<?php $pcaption='LOTE'; $pidtxt='lote'; $pobj=2; $ptabla='lote'; $pclass='tran inve prod'; include('vrgetcod.php'); ?> 
				<?php } ?>
				<?php if($empr_srie==1 or $cfg_empr=='demo'){?> 
				<?php $pcaption='# SERIE'; $pidtxt='numserie'; $plong=15; $pobj=2; $pdocu='IB'; $pcolu='numeserie'; $pclass='tran inve'; include('vrgettxt.php'); ?>  
				<?php } ?>
				<?php if($empr_inve==1){?> 
				<?php $pcaption='Cambio'; $ptabla='item'; $pidtxt='cambio'; $pobj=4; $pclass='tran inve'; $plist='dl_item'; include('vrgetcod.php'); ?> 
				<?php //$pcaption='ReVal.'; $pidtxt='reval'; $pobj=4; $pclass='tran inve'; include('vrgetval.php'); ?> 
				<?php } ?>
				
				<?php if($empr_nomi==1){?> 
				<?php $pcaption='SUELDO'; $pidtxt='sueldo'; $plong=9; $pobj=2; $ponblur='valsueldo();'; $pclass='tran nomi'; include('vrgetval.php'); ?>
				<?php $pcaption='% ANTI'; $pidtxt='poranti'; $pobj=2; $ponblur='valsueldo();'; $pclass='tran nomi'; include('vrgetval.php'); ?>
        <?php $pcaption='ANTICIPO'; $pidtxt='valanti'; $plong=9; $pobj=2; $ponblur='valsueldo();'; $pclass='tran nomi'; include('vrgetval.php'); ?>
				<?php $pcaption='IESS'; $pidtxt='iess'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php $pcaption='RELOJ'; $pidtxt='reloj'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php $pcaption='ATRAS.'; $pidtxt='atraso'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php $pcaption='FALTA'; $pidtxt='falta'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php $pcaption='H.25%'; $pidtxt='h25'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php $pcaption='H.50%'; $pidtxt='h50'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php $pcaption='H100%'; $pidtxt='h100'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>

        <?php $pcaption='DECIMO 3ro'; $pidtxt='de13'; $plong=2; $poptions='1,ANUAL;2,MENSUAL'; $pobj=2; $pclass='tran nomi'; include('vrselopt.php'); ?>
        <?php $pcaption='DECIMO 4to'; $pidtxt='de14'; $plong=2; $poptions='1,ANUAL;2,MENSUAL'; $pobj=2; $pclass='tran nomi'; include('vrselopt.php'); ?>
        <?php $pcaption='FOND.RES.' ; $pidtxt='fres'; $plong=2; $poptions='1,ANUAL;2,MENSUAL'; $pobj=2; $pclass='tran nomi'; include('vrselopt.php'); ?>
        
				<?php //$pcaption='D_13'; $pidtxt='de13'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php //$pcaption='D_14'; $pidtxt='de14'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php //$pcaption='F.RES'; $pidtxt='fres'; $plong=1; $pobj=2; $pclass='tran nomi'; include('vrchkbox.php'); ?>
				<?php } ?>

                    <?php if(mb_stristr('demo.saar.gmny.gnya.hfre.',$cfg_empr)){ ?>
				<?php $pcaption='Stock'; $pidtxt='stock'; $plong=5; $pobj=2; $psize=$xfontsize; $pclass='tran vtas clie carr inve'; $preado=1; include('vrgetval.php'); ?>
                    <?php } ?>
                    
				
				<?php $pcaption='DETALLE'; $pidtxt='detalle'; $plong=50; $prows=1.5; $pobj=2;  $psize=$xfontsize; $pclass=''; include('vrgettxt.php'); ?>
				
			</tr>
			</tbody>
		</table>

		<table id="treem" width="60%" cellspacing="0" cellpadding="1"  border="0" class="tran reem"
						style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white; ">
			<tbody style="display:block;">
			<tr align="center" valign="center" style="border-top: solid 0px;border-bottom: solid 2px; ">
				<?php $pcaption='REEMBOLSO'; $pidtxt="r_docu"; $pobj=6; $ptabla='docu'; $pdefa='FP10'; $pclass='tran reem'; $psize=$xfontsize; $plist='dl_docu'; include('vrgetcod.php'); ?> 
				<?php $pcaption='ptoe'; $pidtxt="r_ptoe"; $pobj=1; $pclass='tran reem'; $plong=6; $pdefa='001001'; $psize=$xfontsize; include('vrgetnum.php'); ?> 
				<?php $pcaption='numero'; $pidtxt="r_numero"; $pobj=1; $pclass='tran reem'; $psize=$xfontsize; include('vrgetnum.php'); ?> 
				<?php $pcaption='fecha'; $pidtxt="r_fecha"; $pobj=1; $pclass='tran reem'; $psize=$xfontsize; include('vrgetfec.php'); ?> 
				<?php $pcaption='proveedor'; $pidtxt="r_enti1"; $pobj=1; $ptabla='enti'; $pclass='tran reem'; $psize=$xfontsize; $pphold='Proveedor'; $plist='dl_renti1'; include('vrgetcod.php'); ?> 
				<?php $pcaption='intermediario'; $pidtxt="r_enti2"; $pobj=1; $ptabla='enti'; $pclass='tran reem'; $psize=$xfontsize; $pphold='Intermediario'; $plist='dl_renti2'; include('vrgetcod.php'); ?> 
				<?php $pcaption='ATRZ'; $pidtxt="r_atrz"; $pobj=1; $pdocu='FP10'; $pcolu='atrz'; $plong=10; $psize=$xfontsize; $pclass='tran reem'; $pphold='Autorización'; include('vrgetnum.php'); ?> 
				<?php $pcaption='CLAVE'; $pidtxt="r_claveacc"; $pobj=1; $pclass='tran reem'; $plong=49; $psize=$xfontsize; include('vrgetnum.php'); ?> 
			</tr>
			</tbody>
		</table>

    <div id="clortlla">
    </div>      
      
    <datalist id="dlpuni">
    </datalist>
    <datalist id="dlpvp">
    </datalist>
    <datalist id="dldcto">
    </datalist>
      
      
		</div>
		<?php } ?>
		<hr>
		<div id="pant1" style="border:solid 0px; overflow:auto; font-family:arial;"></div>
		<div id="tpant1b" style="display:none;"></div>
<!-- 		<hr> -->
		<div id="pant11" style="border:solid 0px; 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-100).'px;';}  ?> 
					<?php if($orient=='V'){echo'height:'.($hpant2-75).'px;';}else{echo'height:'.($hpant2-80).'px;';}  ?> 
           "></div>
  
		<div id="pant9"></div>
<?php } ?>			

     
<?php   //$fechaclose=get_fechaclose($tabla); ?>
     
<?php if(mb_stristr('GRABAR',$pant)){ ?>
<?php
   
  $fechaclose=get_fechaclose($tabla);
  $fechamin=$fechadtr; 
  $fechamin=$fechaclose; 
  $fechamax=date('Y-m-d',strtotime ('+1 days')); 
     
   
   if(mb_stristr('IC.CH',substr($docu,0,2)))      
   {$fechamax=date('Y-m-d',strtotime ('+12 month')); }
   
   if(mb_stristr('FC',substr($docu,0,2)))      
   {$fechamax=date('Y-m-d',strtotime ('+7 days')); }
   
   if(mb_stristr('inve',$tabla))      
   {
     $fechamin=date('Y-m-d',strtotime ('-7 days'));
     $fechamax=date('Y-m-d',strtotime ('today'));
   }
   
   if($fecha<$fechamin){$fecha=$fechamin;}
   if($fecha>$fechamax){$fecha=$fechamax;}
   
  $detaok=1;
  
//   if($user_nuev==0 and $user_modi==0){die('<msgalert>NO TIENE ACCESO A GRABAR</msgalert>');}

  if($docu==''){die('<msgalert>DOCUMENTO NO VALIDO</msgalert>');}
  if($fecha<$fechamin or $fecha>$fechamax){die('<msgalert>FECHA NO VALIDO</msgalert>');}

  
  if($docu=='FC50')
  {if(empty($todocu) or empty($toptoe) or empty($tonume)){die('<msgalert>ERROR EN DOCUMENTO APLICADO</msgalert>');}}
  
  
//   if(empty($ptoe))
  {
//     if($tabla=='vtas'){$ptoe=r_fiel('ptov',$ptov,'ptoe');}
//     if($tabla=='inve'){$ptoe=r_fiel('bode',$bode,'ptoe');}
//     if($tabla=='caja'){$ptoe=r_fiel('caja',$caja,'ptoe');}
//     if($tabla=='bcos'){$ptoe=r_fiel('ctab',$ctab,'ptoe');}

    $tptoe='';
    
    if($tabla=='vtas'){$tptoe ='ptov'; $cptoe=$ptov;}
    if($tabla=='inve'){$tptoe ='bode'; $cptoe=$bode;}
    if($tabla=='caja'){$tptoe ='caja'; $cptoe=$caja;}
    if($tabla=='bcos'){$tptoe ='ctab'; $cptoe=$ctab;}
    
//     $sql_ptoe='select * from '.$tptoe.'0 where '.$tptoe.'_codigo ="'.$cptoe.'"';
    if(!empty($tptoe))
    {
      $sql_ptoe='select * from '.$tptoe.'0 where '.$tptoe.'_codigo ="'.${$tptoe}.'"';
      $res_ptoe=msql_query($sql_ptoe,$link_vcrx);
      $nptoe=@msql_result($res_ptoe,0,$tptoe.'_ptoe');
      if(!empty($nptoe)){$ptoe=$nptoe;}
    }
  }
  
  if($ptoe==''){die('<msgalert>PTO.EMISION NO VALIDO</msgalert>');}
  
  // si es documento de inventario IB o EB.... buscar numero por docu,bodega,enti
  // si es documento de CAJA IE o EE.... buscar numero por docu,bodega,enti
  
  $cant=str_replace(',','',$cant);   
     
  if($tabla=='cont'){if($debito!=0){$cant=abs($debito);}else{$cant=abs($credito)*(-1);}}
  if($numero*1==0){die('<msgalert>NUMERO NO VALIDO</msgalert>');}
  if($cant==0){$cant=1;}
  if($puni==0){$puni=1;}
  if(strlen($enti)!=10 and strlen($enti)!=13){$enti=str_repeat('9',13);}
  
  $ruced=val_ruced($enti);
  if(($docu=='FP03' or $docu=='FP11')and $ruced!='N'){die('<msgalert>CEDULA INCORRECTA</msgalert>');}
  if($docu=='RCLI' and $ruced=='0'){die('<msgalert>RUC INCORRECTO</msgalert>');}
  if($ruced=='J' or $ruced=='P'){$enti=substr($enti,0,10).'001';}  
  if($docu=='RPRO' or $docu=='RCLI')
  {
   if($cant==0){$cant=$base;}
   if($puni==0){$puni=$porc;}
  }

//  echo('<msgalert>DETALLE INCORRECTO</msgalert>');
  if(mb_stristr('cont',$tabla) and strlen($ctas)==0){$detaok=0;}
  if(mb_stristr('cont',$tabla) and strlen($ctas)>0 and strlen($ctas)<4){$detaok=0; echo('<msgalert>ESCOJA UNA CUENTA DE DETALLE</msgalert>');}
  
  if(mb_stristr('caja.bcos',$tabla) and strlen($docum)!=4 and strlen($ctas)<4){$detaok=0;}
  
  if(mb_stristr('retc.retp',$tabla) and strlen($docum)==0){$detaok=0;}
  if(mb_stristr('retc.retp',$tabla) and strlen($docum)!=0 and strlen($docum)!=4){$detaok=0; echo('<msgalert>DEBE APLICAR A UN DOCUMENTO</msgalert>');}
 
  if(!mb_stristr('gmny.gnya',$cfg_empr))
  {
  if(mb_stristr('vtas.clie.carr.comp.inve.prod',$tabla) and strlen($item)!=8 and strlen($item)!=10 and strlen($item)!=13){$detaok=0; echo('<msgalert>1.- ITEM NO VALIDO '.$item.'</msgalert>');}
  }
  
  if(mb_stristr('vtas.clie.carr.comp.inve.prod',$tabla) and strlen($item)==0){$detaok=0; echo('<msgalert>2.- ITEM NO VALIDO</msgalert>');}
  

  $idnum=get_idnum($docu,$ptoe,$numero,$enti);
  
  if($idnum*1==0)
  {
    $sql_inse='insert into '.$tabla.'1(docu,status,iuser,idate)value("'.$docu.'","-","'.$user_codigo.'",now())';
    $res_inse=msql_query($sql_inse,$link_vcrx);
    $idnum=msql_insert_id($link_vcrx);
  }
  else
  {
    $sql_docu='select * from '.$tabla.'1 where idnum1='.$idnum;
    $res_docu=msql_query($sql_docu,$link_vcrx);
    $stfin=msql_result($res_docu,0,'stfin');
    $autornum=msql_result($res_docu,0,'autornum');

    if($autornum!=''){die('<msgalert>DOCUMENTO YA ESTA AUTORIZADO</msgalert>');}

       
   if($cfg_empr=='imcp' and substr($docu,0,2)=='DD' and date('Y-m-d')<="2022-02-15")
   {$stfin=0;}
       
    if($stfin==1){die('<msgalert>DOCUMENTO YA ESTA FINALIZADO</msgalert>');}
     
  }
  
  $idnum1=$idnum;

   
   $sql_updt ='update enti0 set enti_email="'.$email.'" ';
   $sql_updt.='where enti_codigo like "'.substr($enti,0,10).'%" and (enti_email="" or enti_email is null)';
   $res_updt=msql_query($sql_updt,$link_vcrx);
  
   $sql_updt ='update enti0 set enti_wsapp="'.$wsapp.'" ';
   $sql_updt.='where enti_codigo like "'.substr($enti,0,10).'%" and (enti_wsapp="" or enti_wsapp is null or (enti_wsapp*1)<=99999999 )';
   $res_updt=msql_query($sql_updt,$link_vcrx);
  
  $sql_stru='describe '.$tabla.'1';
  $res_stru=msql_query($sql_stru,$link_vcrx);
  $sql_updt='';
  $sql_updt.='update '.$tabla.'1 set ';
  while($aso_stru=@msql_fetch_assoc($res_stru))
  { 
    $xvalor=${$aso_stru['Field']};
    $xtype.=$aso_stru['Type'];
    if($xvalor!='' and $aso_stru['Field']!='idnum1')
    {$sql_updt.=$aso_stru['Field'].'="'.$xvalor.'", ';}
  }
//   $sql_updt.='uuser="'.$user_codigo.'",';
//   $sql_updt.='udate=now(),';
  $sql_updt.='status=status ';
  $sql_updt.='where idnum1='.$idnum1;
  // cambiar true=1 false=0
//   $res_updt=msql_query($sql_updt,$link_vcrx);
  $res_updt=msql_query($sql_updt,$link_vcrx);

     
//      echo '*/*/*/'.$sql_updt;
//      die('here');
     
// echo '<msgalert>';
// echo $sql_updt;
// echo '</msgalert>';
     

  $sql_updt='';
  $sql_updt.='update '.$tabla.'1 set ';
  $sql_updt.='uuser="'.$user_codigo.'",';
  $sql_updt.='udate=now(),';
  $sql_updt.='status=status ';
  $sql_updt.='where idnum1='.$idnum1;
  $res_updt=@msql_query($sql_updt,$link_vcrx);

  
  
  if($detaok==1)
  {
    $iddet=$iddet*1;
    if($iddet=='' or $iddet==0)
    {
      $iddet=get_iddet($docu,$idnum1);
      $sql_inse='insert into '.$tabla.'2(idnum2,iddet)value('.$idnum1.','.$iddet.')';
//       $sql_inse='insert into '.$tabla.'2(idnum2,iddet,idate2)value('.$idnum1.','.$iddet.',now())';
      $res_inse=msql_query($sql_inse,$link_vcrx);
    }
    $sql_stru='describe '.$tabla.'2';
    $res_stru=msql_query($sql_stru,$link_vcrx);

    $sql_updt='';
    $sql_updt.='update '.$tabla.'2 set ';
    while($aso_stru=@msql_fetch_assoc($res_stru))
    { 
      $xvalor=${$aso_stru['Field']};
      $xtype=$aso_stru['Type'];
      if($xvalor!='')
      {$sql_updt.=$aso_stru['Field'].'="'.$xvalor.'", ';}
    }
//     $sql_updt.='idate2=now() ';
    $sql_updt.='iddet=iddet ';
    $sql_updt.='where idnum2='.$idnum1;
    $sql_updt.=' and iddet='.$iddet;
    // cambiar true=1 false=0
    $res_updt=msql_query($sql_updt,$link_vcrx);


    $sql_updt='';
    $sql_updt.='update '.$tabla.'2 set ';
    $sql_updt.='idate2=now() ';
    $sql_updt.='where idnum2='.$idnum1;
    $sql_updt.=' and iddet='.$iddet;
    $res_updt=@msql_query($sql_updt,$link_vcrx);

  if($envio!=0)
  {
    $st1=$cant*$puni*(1-$dcto/100)+$envio;
    $st2=$st1+($cant*$puni*$dcto/100);
    $dcto=(1-($st1/$st2))*100;
    $puni=$st2/$cant;
    $sql_updt='';
    $sql_updt.='update '.$tabla.'2 set ';
    $sql_updt.='puni="'.$puni.'",';
    $sql_updt.='dcto="'.$dcto.'",';
    $sql_updt.='idate2=now() ';
    $sql_updt.='where idnum2='.$idnum1;
    $sql_updt.=' and iddet='.$iddet;
    $res_updt=@msql_query($sql_updt,$link_vcrx);
  }
       

  }

  
  
  if(mb_stristr('gmny.gnya',$cfg_empr))
  {
    $xcodi2=$item;
    $xcodi2=trim(substr($xcodi2,0,10));
    
    $sql_tlla ='select * from item0 ';
    $sql_tlla.='left join clor0 on item_clor=clor_codigo ';
    $sql_tlla.='left join tlla0 on item_tlla=tlla_codigo ';
    $sql_tlla.='where item_codigo like "'.$xcodi2.'%" order by item_codigo ';
    $res_tlla=msql_query($sql_tlla,$link_vcrx);
    
    if(msql_num_rows($res_tlla)>1)
    {
      $iddetmaster=$iddet;
      $itemmaster=1;
//       $sql_updt='update '.$tabla.'2 set cant=0.001, puni=0.001 where item="'.$xcodi2.'" and idnum2="'.$idnum1.'" and iddet="'.$iddet.'"' ;
//       $res_updt=msql_query($sql_updt,$link_vcrx);
        
      while($aso_tlla=msql_fetch_assoc($res_tlla))
      {
        $xitem2=trim($aso_tlla['item_codigo']);
        $clor_descri=$aso_tlla['clor_descri'];
        $clor_hexa=$aso_tlla['clor_hexa'];
        $tlla_descri=$aso_tlla['tlla_descri'];
//         if(${$xitem2}>0)
        
        if(strlen($xitem2)>8 and ${$xitem2}>0)
        {
          $itemmaster=0;
            $oktllas=0;
            if(substr($xitem2,10,2)!='00')
            {
              $sql_item00='select * from item0 where item_codigo like "'.substr($xitem2,0,10).'%"  ';
              $res_item00=msql_query($sql_item00,$link_vcrx);
              if(msql_num_rows($res_item00)>1){$oktllas=1;}
            }
            if($oktllas==1)
            {
              $iddet=get_iddet($docu,$idnum1);
              $sql_inse='insert into '.$tabla.'2(idnum2,iddet)value('.$idnum1.','.$iddet.')';
              $res_inse=msql_query($sql_inse,$link_vcrx);
              
              $sql_updt='';
              $sql_updt.='update '.$tabla.'2 set ';
              $sql_updt.='item="'.$xitem2.'", ';
              $sql_updt.='cant="'.${$xitem2}.'", ';
              $sql_updt.='puni="'.$puni.'", ';
              $sql_updt.='iddet=iddet ';
              $sql_updt.='where idnum2='.$idnum1;
              $sql_updt.=' and iddet='.$iddet;
              // cambiar true=1 false=0
              $res_updt=msql_query($sql_updt,$link_vcrx);

              $sql_updt='';
              $sql_updt.='update '.$tabla.'2 set ';
              $sql_updt.='idate2=now() ';
              $sql_updt.='where idnum2='.$idnum1;
              $sql_updt.=' and iddet='.$iddet;
              $res_updt=@msql_query($sql_updt,$link_vcrx);
              
              
            }
        }
      }
      
      if($itemmaster==0)
      {
        $sql_updt='update '.$tabla.'2 set cant=0.001, puni=0.001 where item="'.$item.'" and idnum2="'.$idnum1.'" and iddet="'.$iddetmaster.'"' ;
        $res_updt=msql_query($sql_updt,$link_vcrx);
      }
      
      $sql_imas='select * from '.$tabla.'2 where item="'.$item.'" and cant<0.01 and idnum2="'.$idnum1.'"';
      $res_imas=msql_query($sql_imas,$link_vcrx);
      
      $xlimit=msql_num_rows($res_imas);
      if($xlimit>1)
      {
        $xlimit=$xlimit-1;
        $sql_dele='delete from '.$tabla.'2 where item="'.$item.'" and cant<0.01 and idnum2="'.$idnum1.'" order by iddet desc limit '.$xlimit;
        $res_dele=msql_query($sql_dele,$link_vcrx);
      }

    }
  }
  
  
  
  
  if($dcto1>0)
  {
    $sql_updt='';
    $sql_updt.='update '.$tabla.'2 set ';
    $sql_updt.='dcto='.$dcto1.', ';
    $sql_updt.='iddet=iddet ';
    $sql_updt.='where idnum2='.$idnum1;
    $res_updt=msql_query($sql_updt,$link_vcrx);
  }
  
     
     if($tabla=='guia')
     {val_guia($docu,$idnum1);}
     
//   vali_regidocu($docu,$idnum1);

  
  
  
  
  echo '<idnum1>'.$idnum1.'</idnum1>';
?>
<?php } ?>


</resultado>

<?php $obstart = ob_get_clean(); ?>
<?php $obstart = alltrim($obstart) ?>
<?php echo $obstart;	?>

		