<?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

$xenti='';
$xdocu='FP10';
$xptoe='001001';
// $numero='';
$xcair='312';
if($idnum=='undefined'){$idnum='';}  
if($docu=='undefined' or $docu==''){$docu=r_fiel('comp1',$idnum,'docu');}  

// echo $docu.$idnum

?>

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

$modi_docu=1;

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;}
if($user_tipo=='clie' and substr($docu,0,2)=='PC'){$user_anul=1;}


// echo '*/*/*'.$docu;
if($docu=='undefined'){$docu='';}
if($docu==''){$docu='FP10';}

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


$tabla=r_fiel('docu',$docu,'tabla');
$entilabel='ENTIDAD';

// echo '<msgalert>';
// echo $tabla;
// echo '</msgalert>';
$titulo='Registro de Cobros/Pagos';
if($tabla=='comp'){$entilabel='PROVEEDOR'; $titulo='Registro de Pagos';}
if($tabla=='vtas'){$entilabel='CLIENTE'; $titulo='Registro de Cobros';}

// $tabla='retp';
$modu='CXCO';
if(mb_stristr('comp.dxpa',$tabla)){$modu='CXPA';}
  

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


$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;
}

?>

<?php
$docuacce='IE10';  
include('php_useracce.php');
?>


<?php ob_start(); ?>
<resultado>
  
<?php val_usercodigo(); ?>
  
<?php $xobj=3;?>
<?php if($mobile=='true'){$xobj=3; $xfontsize=$xfontsize*1.0; }?>
  
<?php
// PRUEBAS	
//   echo '*/*/*/'.$user_nuev.$user_cons;
  
?>	
	
  
<?php if(mb_stristr('PANT0',$pant) and ($user_nuev==1 or $user_cons==1)) { ?>
<?php //echo get_ced1('0915379374');?>	
<?php $fecha1=date('Y-m-01',strtotime ('today')); ?>
<?php $fecha2=date('Y-m-01',strtotime ('+1 month')); ?>
<?php $fecha2=date('Y-m-d',strtotime ($fecha2.' -1 day')); ?>
<?php $fecha2=$fechaa; ?>
  

<?php $pidtxt='dl_prta'; $pdocu='RPRO'; $pcolu='puni'; $pwhere='(cair like "3%" or cair like "4%")'; include('vrsetlist.php');?>
<?php $pidtxt='dl_piva'; $pdocu='RPRO'; $pcolu='puni'; $pwhere='(cair not like "3%" and cair not like "4%")';include('vrsetlist.php');?>
  
<?php

                                                                       
if($idnum=='' or $idnum=='undefined')
{
  $sql_docu =' select idnum1,docu,numero from comp1 ';
  $sql_docu.=' where concat(docu,numero) not in(select concat(docum,numer) as clave from retp12 where docum is not null and numer is not null) ';
  $sql_docu.=' and enti not like "99%"';
  $sql_docu.=' and status!="O"';
  $sql_docu.=' and status!="X"';
  $sql_docu.=' order by idnum1 desc';
  $sql_docu.=' limit 10';
//   $res_docu=msql_query($sql_docu,$link_vcrx);
//   $idnum=@msql_result($res_docu,0,'idnum1');
}

if($idnum!='' and $idnum!='undefined')
{
  $sql_comp ='select *,';
  $sql_comp.='max(cair*1) as max_cair,  ';
  $sql_comp.='sum(tsubtiva0+tsubtiva) as base_rta, ';
  $sql_comp.='sum(tiva) as base_iva,';
  $sql_comp.='status as xst ';
  $sql_comp.=' from '.$tabla.'12 ';
  $sql_comp.=' where idnum1='.$idnum.' ';
//   $sql_comp.=' group by idnum1';
//   $sql_comp.=' group by idnum1, cair';
  
  $res_comp=msql_query($sql_comp,$link_vcrx);
   $xtotal=msql_result($res_comp,0,'base_rta')+msql_result($res_comp,0,'base_iva');;   
   
   
  $sql_comp.=' group by cair';
  $sql_comp.=' order by cair ';
//   $sql_comp ='select * from comp1,comp2 where idnum1=idnum2 and idnum1="'.$idnum.'"';
  $res_comp=msql_query($sql_comp,$link_vcrx);
//   explain_sql($sql_comp);

   
  $xenti=msql_result($res_comp,0,'enti');
  $xfecha=msql_result($res_comp,0,'fecha');
  $xfecha1="2000-01-01";
  $xfecha2="2100-12-31";
  $xdocu=msql_result($res_comp,0,'docu');
  $xptoe=msql_result($res_comp,0,'ptoe');
  $xnumero=msql_result($res_comp,0,'numero');
  
  $xcair1=msql_result($res_comp,0,'max_cair');
  $base_rta=msql_result($res_comp,0,'base_rta');
  $base_iva=msql_result($res_comp,0,'base_iva');
  
  $sql_docu ='select *, ';
  $sql_docu.=' max(cair*1) as max_cair,';
  $sql_docu.=' max(prta) as por_rta, ';
  $sql_docu.=' max(piva) as por_iva';
  $sql_docu.=' from retp12';
  $sql_docu.=' where enti like "'.substr($xenti,0,10).'%" ';
  $sql_docu.=' and status!="O" ';
//   $sql_docu.=' group by idnum1';
//   $sql_docu.=' order by fecha desc';
  $res_docu=msql_query($sql_docu,$link_vcrx);
//   explain_sql($sql_docu);
  $xcair=@msql_result($res_docu,0,'max_cair').'';
  $porc_rta=@msql_result($res_docu,0,'por_rta');
  $porc_iva=@msql_result($res_docu,0,'por_iva');

  
//   echo $xcair;
  if($xcair==''){$xcair=$xcair1;}
  if($porc_rta==0){$porc_rta=r_fiel('cair',$xcair,'porc');}
//   echo '<br>****'.date('H:i:s').$xenti;
//   if($porc_iva==0){$porc_iva=r_fiel('comp1',$idnum,'priva');}
  if($porc_iva==0){$porc_iva=get_lriva($xenti);}
//   echo '<br>****'.date('H:i:s').$porc_iva;
  
}
?>

  <?php	val_usercodigo(); ?>
  <?php $pidtxt='detadocu'; $pcaption='Detalle'; $ponclick='regi_copa("DETA")'; $psize=$xfontsize; $pdefa=1; $phide=1; include('vrchkbox.php'); ?>

		<div id="pant0" style="border:solid 2px; overflow:auto;">
		<?php { ?>
			<table id="tpant0" cellpadding="2" width="99%" border="0"
					 style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
				<tr>
          <td valign="top">
          <table width="100%" cellpadding="2" border="0"
                style="font-size:<?php echo $xfontsize; ?>px;border-collapse:collapse; background-color:white;">
              <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).';"';} ?> >
                  <titulo><?php echo $titulo; ?></titulo>
                </td>
              </tr>
              <tr>
                <?php $pidtxt='modu'; $pcaption='MODU'; $ptabla='modu';  $psize=$xfontsize; $pdefa=$modu;  $pobj=$xobj; $preado=1; $phide=1; include('vrgetcod.php'); ?>
              </tr>
            
	             <tr>
                <?php $pidtxt='enti'; $pcaption=$entilabel; $ptabla='enti'; $psize=$xfontsize; $pdefa=$xenti;  $pobj=$xobj; if($idnum!=''){$preado=1; $pwhere='(enti_codigo="'.$xenti.'")';} include('vrgetcod.php'); ?>
              </tr>
	            <tr>
                <?php $pidtxt='docum'; $pcaption='DOCUM.'; $ptabla='docu';  $psize=$xfontsize; $pdefa=$docu;  $pobj=$xobj; if($idnum!=''){$preado=1;} include('vrgetcod.php'); ?>
              </tr>
            
              <tr>
                <?php $pidtxt='ptoem'; $pcaption='Pto.Emi.';  $psize=$xfontsize; $pdefa=$xptoe; $plong=6;   if($idnum!=''){$preado=1;};$pobj=$xobj; include('vrgetnum.php'); ?>
              </tr>
              <tr>
                <?php $pidtxt='numer'; $pcaption='Numero';  $psize=$xfontsize; $pdefa=$xnumero; $pobj=$xobj; if($idnum!=''){$preado=1;} include('vrgetnum.php'); ?>
              </tr>

             
               <?php $fechadtr=get_fechadtr() ;?>
              <tr style="display:none;">
                <?php $pidtxt='fechadtr'; $pcaption='Fecha1';  $psize=$xfontsize; $pdefa=$fechadtr; $pobj=$xobj; $preado=1; $phide=1; include('vrgetfec.php'); ?>
              </tr>
             
              <tr>
                <?php $pidtxt='fecha1'; $pcaption='Fecha';  $psize=$xfontsize; $pdefa=$xfecha; $pobj=$xobj;  if($idnum!=''){$preado=1;} include('vrgetfec.php'); ?>
              </tr>
             
             
         </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="25%"></td>
            </tr>
          <?php } ?>
             
            <tr>
             
              <tr>
                <?php //$pidtxt='total'; $pcaption='Total';  $psize=$xfontsize; $pdefa=number_format($xtotal,2); $pobj=$xobj;  if($idnum!=''){$preado=1;} include('vrgetval.php'); ?>
              </tr>
         </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="25%"></td>
            </tr>
          <?php } ?>

             
             
            <tr id="tr_fecha">
              <?php $pidtxt='fecha'; $pcaption='FECHA';  $pdefa=''; $psize=$xfontsize; $pobj=$xobj;  include('vrgetfec.php'); ?>
            </tr>
             
             
            <tr>
              <?php $pidtxt='docu'; $pcaption='DOCU'; $ptabla='docu'; $pdefa=''; $psize=$xfontsize; $pobj=$xobj; $ponblur="vali_docu()"; 
            if($tabla=='comp'){$pwhere='(substring(docu_codigo,1,2)in("EE","CH","EV","DP","AP","RP"))';}
            if($tabla=='vtas'){$pwhere='(substring(docu_codigo,1,2)in("IE","IC","IV","DC","AC","RC"))';}
//           $pvalue='CH10';
            include('vrgetcod.php'); ?>
            </tr>

            <tr id="tr_caja" style="display:;">
              <?php $pidtxt='caja'; $pcaption='CAJA'; $ptabla='caja'; $pdefa=''; $psize=$xfontsize; $pobj=$xobj; $pclass='tran caja'; $phide=1; include('vrgetcod.php'); ?>
            </tr>

            <tr id="tr_bcos" style="display:none;">
              <?php $pidtxt='ctab'; $pcaption='CTA.BANC.'; $ptabla='ctab'; $pdefa=''; $psize=$xfontsize; $pobj=$xobj;  $pclass='tran bcos'; $phide=1; include('vrgetcod.php'); ?>
            </tr>
             

            <tr id="tr_ptoe" style="display:none;">
              <?php $pidtxt='ptoe'; $pcaption='PTO.EMI.';  $pdefa='001001'; $psize=$xfontsize; $pobj=$xobj; $plong=6; $phide=0;  include('vrgetnum.php'); ?>
            </tr>

            <tr id="tr_numero">
              <?php $pidtxt='numero'; $pcaption='NUMERO';  $pdefa=''; $psize=$xfontsize; $pobj=$xobj; $pphold='00: Auto Num'; include('vrgetnum.php'); ?>
            </tr>

            <tr id="tr_cant">
              <?php $pidtxt='cant'; $pcaption='CANT.';  $pdefa=''; $psize=$xfontsize; $pobj=$xobj; include('vrgetval.php'); ?>
            </tr>
               
            <tr id="tr_benefic">
               <?php $pcaption='BENEFICIARIO'; $pidtxt='benefic'; $psize=$xfontsize; $pobj=3; $plong=20; $pclass='tran bcos'; $phide=1; include('vrgettxt.php'); ?>
            </tr>
            
            <tr id="tr_cair" style="display:none;">
              <?php $pidtxt='cair'; $pcaption='CAIR'; $ptabla='cair'; $pdefa='-'; $psize=$xfontsize; $pobj=$xobj;  include('vrgetcod.php'); ?>
            </tr>

            <tr id="tr_puni" style="display:none;">
              <?php $pidtxt='puni'; $pcaption='PUNI';  $pdefa=''; $psize=$xfontsize; $pobj=$xobj; $phide=0;  include('vrgetval.php'); ?>
            </tr>

            <?php if($cfg_empr=='imcp'){ ?>
            <tr id="tr_concepto">
              <?php $pidtxt='concepto'; $pcaption='CONCEPTO';  $pdefa=''; $psize=$xfontsize; $pobj=$xobj; $plong=20; include('vrgettxt.php'); ?>
            </tr>
            <?php } ?>
             
             
        <?php $crow=0; ?>
        <?php msql_data_seek($res_comp,0); ?>
        <?php while($aso_comp=@msql_fetch_assoc($res_comp)){ ?>
        <?php $crow++; ?>
        <?php $duni=$aso_comp['item_duni']; ?>
        <?php $cair1=$aso_comp['cair']; ?>
        <?php $base_rta=$aso_comp['base_rta']; ?>
        <?php $base_iva=$aso_comp['base_iva']; ?>
        <?php //echo $cair1.$base_rta.$base_iva; ?>            
        <?php } ?>

            
          <?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="25%"></td>
            </tr>
          <?php } ?>
            <tr>
              <?php //$pidtxt='cair'; $pcaption='CAIR'; $ptabla='cair'; $pdefa=$xcair; $psize=$xfontsize;   if($mobile=='true'){$pobj=6;}; $pobj=$xobj;include('vrgetcod.php'); ?>
            </tr>

            <tr>
                <?php //$pidtxt='base_rta'; $pcaption='base rta'; $pdefa=number_format($base_rta,2,'.','');  $pobj=$xobj; $psize=$xfontsize; include('vrgetval.php'); ?>
            </tr>
            <tr>
                <?php //$pidtxt='porc_rta'; $pcaption='% rta'; $pdefa=@number_format($porc_rta,2); $psize=$xfontsize;  $pobj=$xobj; $plist='dl_prta'; include('vrgetval.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="25%"></td>
            </tr>
          <?php } ?>
            <tr><td><br></td></tr>            
            <tr>
              <?php //$pidtxt='base_iva'; $pcaption='base iva'; $pdefa=@number_format($base_iva,2,'.',''); $psize=$xfontsize;  $pobj=$xobj; include('vrgetval.php'); ?>
            </tr>
            <tr>
              <?php //$pidtxt='porc_iva'; $pcaption='% iva'; $pdefa=@number_format($porc_iva,2); $psize=$xfontsize; $pobj=$xobj; $plist='dl_piva'; include('vrgetval.php'); ?>
            </tr>
            
            
            <tr>
              <td></td>
              <td></td>
              <td>
              </td>
            </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 style="display:;">
            <?php $pidtxt='consul'; $pcaption='Consultar '; 
              $ponclick ="info_modu('PANT2',";
              $ponclick.="document.getElementById('modu').value,document.getElementById('enti').value.substring(0,10)";
              $ponclick.="+document.getElementById('docum').value";
              $ponclick.="+document.getElementById('ptoem').value";
              $ponclick.="+document.getElementById('numer').value);";
              $psize=$xfontsize; include('vrbutton.php'); ?>
            </td>  
            <?php if($mobile!='true'){?>        
            </tr>
            <tr><td><br></td></tr>
            <tr>
            <?php } ?>              
            <td>
            <?php $pidtxt='graba'; $pcaption='Grabar'; 
                $ponclick='if(confirm("GRABAR ?")){regi_copa("GRABA"); document.getElementById("consul").click();}'; 
                $psize=$xfontsize; include('vrbutton.php'); ?>
            </td>
            <?php if($mobile=='true'){?>        
              </tr>
              <tr><td><br></td></tr>
              <tr>
            <?php } ?>              
            </tr>
          </table>
           
         </td>
              	
				</tr>	
			</table>
		<?php } ?>
		</div>	

		<div id="pant1" style="border:solid 1px; overflow:auto; font-family:arial;"></div>
		<div id="pant2" style="border:solid 1px; overflow:auto; font-family:arial;"></div>
		<div id="tpant1b"></div>
<!-- 		<div id="pant11" style="border:solid 1px; overflow:auto; font-family:arial; display:none;"></div> -->
    </div>
		<hr>
		<div id="pant11" style="border:solid 1px; overflow:auto; font-family:arial; display:none;"></div>
		<div id="pant2x"  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('GRABA',$pant)){ ?>
	
	<?php $crow=0; ?>
	<?php $ccol=0; ?>
	<?php $tnumero=0; ?>
	<?php //echo '***'.date('H:i:s') .'<br>';?>
	<pant1>
	<?php	val_usercodigo(); ?>
	<?php 	
   if(mb_stristr('GRABA',$pant))  
   {
     $grabaok=1;
        
        
        if($cant==0){$cant=1;}
        if($puni==0){$puni=1;}

        $fechamin=$fecha1; 
        $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($fecha<$fechamin){$fecha=$fechamin;}
        if($fecha>$fechamax){$fecha=$fechamax;}

      
      
      
        $tabla=r_fiel('docu',$docu,'tabla'); 
//         $ptoe='001001';
        if($tabla=='caja')
        {$ptoe=r_fiel('caja',$caja,'ptoe');}
        if($tabla=='bcos')
        {$ptoe=r_fiel('ctab',$ctab,'ptoe');}
     
//      if(mb_stristr('AC.AP',substr($docu,0,2)))
     if(mb_stristr('AC.AP.CC.XC.CP.XP',substr($docu,0,2)))
     {$ptoe='001001';}

//      if(mb_stristr('IE.EE.AC.AP',substr($docu,0,2)))
     if(mb_stristr('IE.EE.AC.AP.CC.XC.CP.XP',substr($docu,0,2)))
     {
         $numero=nume_docu($docu,$ptoe);
     } 

      
      
     if($docu=='' or $ptoe=='' or $numero=='' or $enti=='' )
     {$grabaok=0;}     

      
      $sql_docu ='select * from '.$tabla.'1 ';
      $sql_docu.='where status not in ("O","X") ';
      $sql_docu.='and docu="'.$docu.'" ';
      $sql_docu.='and numero="'.$numero.'" ';

      if(mb_stristr('IC.CH',substr($docu,0,2)))
      {$sql_docu.='and enti like"'.substr($enti,0,10).'%" ';}

      if(!mb_stristr('IC.CH',substr($docu,0,2)))
      {$sql_docu.='and ptoe="'.$ptoe.'" ';}
      
      $sql_docu.=' order by idnum1 desc ';
      $res_docu=msql_query($sql_docu,$link_vcrx);


     $regi_exist=msql_num_rows($res_docu);
      
      if($regi_exist>0 and substr($docu,0,1)!='R')
      {
         echo '<msgalert>';
         echo '*** DOCUMENTO YA EXISTE ***'.$ptoe.'-'.$numero;
         echo '</msgalert>';
         $grabaok=0;
      }
      
      if($regi_exist>1 and substr($docu,0,1)=='R')
      {
         echo '<msgalert>';
         echo '*** DOCUMENTO YA EXISTE ***';
         echo '</msgalert>';
         $grabaok=0;
      }
      
      
      if($grabaok==1)
      {
         $sql_inse='insert into '.$tabla.'1(docu,ptoe,numero,enti)value("'.$docu.'","'.$ptoe.'","'.$numero.'","'.$enti.'")';
         $res_inse=msql_query($sql_inse,$link_vcrx);
         
         $idnum=msql_insert_id($link_vcrx);
         
         $sql_updt ='update '.$tabla.'1 ';
         $sql_updt.='set fecha="'.$fecha.'",';
         $sql_updt.='caja="'.$caja.'", ';
         $sql_updt.='ctab="'.$ctab.'", ';
           if($tabla=='bcos')
           {$sql_updt.='benefic="'.$benefic.'", ';}
         $sql_updt.='concepto="'.$concepto.'", ';
         $sql_updt.='status="-", ';
         $sql_updt.='iuser="'.$user_codigo.'", ';
         $sql_updt.='idate=now() ';
         $sql_updt.='where idnum1="'.$idnum.'" ';
         $res_updt=msql_query($sql_updt,$link_vcrx);
         
//          echo '<msgalert>';
//          echo $sql_updt.msql_error();
//          echo '</msgalert>';
         
         $sql_inse='insert into '.$tabla.'2(idnum2,iddet)value("'.$idnum.'","1")';
         $res_inse=msql_query($sql_inse,$link_vcrx);
         
         $sql_updt ='update '.$tabla.'2 ';
         $sql_updt.='set docum="'.$docum.'",';
         $sql_updt.='ptoem="'.$ptoem.'", ';
         $sql_updt.='numer="'.$numer.'", ';
         $sql_updt.='cant="'.$cant.'", ';
         $sql_updt.='puni="'.$puni.'", ';
         $sql_updt.='detalle="'.$detalle.'" ';
         $sql_updt.='where idnum2="'.$idnum.'" ';
         $res_updt=msql_query($sql_updt,$link_vcrx);
         
         $sql_updt ='update '.$tabla.'2 ';
         $sql_updt.='set cair="'.$cair.'",';
         $sql_updt.='detalle="'.$detalle.'" ';
         $sql_updt.='where idnum2="'.$idnum.'" ';
         $res_updt=msql_query($sql_updt,$link_vcrx);
         
//          echo '<msgalert>';
//          echo $sql_updt.msql_error();
//          echo '</msgalert>';

         
         
         
      }
      
      

//      if(days_diff($fecharet30,$fechaa)>30)
//      {$grabaok=0;}

//      if($fechaa>$fecharet30){$fecharet=$fecharet30;}
//      else
//      {
//        if(days_diff($fechafac,$fechaa)<=5){$fecharet=$fechaa;}
//        else{$fecharet=$fecharet5;}
//      }
     

//      if($grabaok==1)
//      {
//        if($idnum!=0) // ya tiene retencion
//        {echo '<r><msgalert>'.'YA TIENE RETENCION'.'</msgalert></r>';}  
       
//        if($idnum==0) //no tiene retencion
//        {
//          $xdocu='RPRO';
// //          $xptoe='001001';
         
//          $sql_ptoe='select * from retp1 where status!="O" and status!="X" order by fecha desc, numero desc';
//          $res_ptoe=msql_query($sql_ptoe,$link_vcrx);
//          $xptoe=@msql_result($res_ptoe,0,'ptoe');

//          if($xptoe==''){$xptoe='001101';}
//          $xnumero=nume_docu($xdocu,$xptoe);
         
//          $sql_iret ='insert into retp1(docu,ptoe,numero,enti,status,fecha,idate)';
//          $sql_iret.='value("'.$xdocu.'","'.$xptoe.'","'.$xnumero.'","'.$enti.'","-","'.$fecharet.'",now())';
//          $res_iret=msql_query($sql_iret,$link_vcrx);

//          $sql_rete ='select * from retp1 where status!="X" and status!="O" and docu="'.$xdocu.'" and ptoe="'.$xptoe.'" and numero="'.$xnumero.'" order by idnum1 desc';
//          $res_rete=msql_query($sql_rete,$link_vcrx);
//          $idnum=msql_result($res_rete,0,'idnum1');
//        }
       
//        {echo '<r><msgalert>/F:'.number_format($fbaserta,2).' /R1: '.number_format($sbrta,2).' /R2: '.$base_rta.' /C: '.$cair.' /S: '.$stfin.'</msgalert></r>';}  

// //        if($fbaserta-$sbrta-$base_rta<=(0.01))
// //        {echo '<r><msgalert>'.number_format($fbaserta-$sbrta-$base_rta,2).'</msgalert></r>';}
// //        if($base_rta>=(0.01)){echo '<r><msgalert>2</msgalert></r>';}
// //        if($cair!='-'){echo '<r><msgalert>3</msgalert></r>';}
// //        if($stfin!=1){echo '<r><msgalert>4</msgalert></r>';}
       
       
       
// //        if($sbrta==0 and $base_rta!=0 and $cair!='-' and $stfin!=1)
// //        if($fbaserta-$sbrta-$base_rta<=(0.01) and $base_rta>=(0.01)  and $cair!='-' and $stfin!=1)
//        if(($fbaserta-$sbrta-$base_rta)>=(-0.01) and $base_rta>=(0.01)  and $cair!='-' and $stfin!=1)
//        {
//          $iddet=get_iddet($xdocu,$idnum);
//          $sql_iret ='insert into retp2(idnum2,iddet,cant,puni,cair,docum,ptoem,numer)';
//          $sql_iret.='value("'.$idnum.'","'.$iddet.'","'.$base_rta.'","'.$porc_rta.'","'.$cair.'","'.$docu.'","'.$ptoe.'","'.$numero.'")';
//          $res_iret=msql_query($sql_iret,$link_vcrx);
// //        {echo '<r><msgalert>'.msql_error($link_vcrx).$sql_iret.'</msgalert></r>';}  
//        }

// //        if($sbiva==0 and $base_iva!=0 and $stfin!=1)
// //        if($fbaseiva-$sbiva-$base_iva<=(0.01) and $base_iva>=(0.01) and $stfin!=1)
//        if($fbaseiva-$sbiva-$base_iva>=(-0.01) and $base_iva>=(0.01) and $stfin!=1)
//        {
//          $iddet=get_iddet($xdocu,$idnum);
//          $sql_iret ='insert into retp2(idnum2,iddet,cant,puni,cair,docum,ptoem,numer)';
//          $sql_iret.='value("'.$idnum.'","'.$iddet.'","'.$base_iva.'","'.$porc_iva.'","-","'.$docu.'","'.$ptoe.'","'.$numero.'")';
//          $res_iret=msql_query($sql_iret,$link_vcrx);
//        }
//      }
   }   
  ?>

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

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

		