<?php
session_start();
require('../cfg/cfg.php');
require('../cfg/res.php');

include('php_gene1.php');
require('../../_lib/vr_contab.php');

$docu=$_POST['docu'];
$idnum=$_POST['idnum'];

 $contab=new vrcontab($docu,$idnum);

// $xfechanow=date('Y-m-d');
// $xuser= $_SESSION['user_vcrx_id'];

// $xmdfrom='X';		
// $xbode='B010';
// $xbode2='';
// $xptoe='001001';


// $sql_empr='select * from empr1';
// $res_empr=mysql_query($sql_empr,$link_vcrx);
// $empr_ruc=mysql_result($res_empr,0,'empr_ruc');
// $empr=mysql_result($res_empr,0,'empr_codigo');


// // VALIDA DOCU
// $tdocu=substr($docu,0,2);

// $sql_docu='select * from docu0 where docu_codigo="'.$docu.'"';
// $res_docu=mysql_query($sql_docu,$link_vcrx);

// if($res_docu==0){die('Error en DOCU');}
// if(substr($docu,0,2)=="DD"){die('Error en DOCU');}


// // FECHA CONTABILIZAR
// // 		$xfcont1="20160101";
// $xfcont1=date('2016-01-01');

// if (mb_stristr('apri',$_SESSION['user_vcrx_empr']))
// {$xfcont1=date('2016-03-01');;}

// if (mb_stristr('pcs1.prs1',$_SESSION['user_vcrx_empr']))
// {$xfcont1=date('2016-04-01');;}


// // DOCU

// $xidfrom=$idnum;
// $xmdfrom=strtoupper(mysql_result($res_docu,0,'docu_tabla'));

// $ctadeb=mysql_result($res_docu,0,'docu_ctadeb');
// $ctacre=mysql_result($res_docu,0,'docu_ctacre');
// $ctadcto=mysql_result($res_docu,0,'docu_ctadcto');
// $ctaice=mysql_result($res_docu,0,'docu_ctaice');
// $ctaiva=mysql_result($res_docu,0,'docu_ctaiva');
// $ctairbp=mysql_result($res_docu,0,'docu_ctairbp');

// $tabla=strtolower(mysql_result($res_docu,0,'docu_tabla'));
// $rescont=mysql_result($res_docu,0,'docu_rescont');

// if($ctadcto==""){$ctadcto=$ctacre;}
// if($ctaice=="") {$ctaice=$ctadeb;}
// if($ctaiva=="") {$ctaiva=$ctadeb;}
// if($ctairbp==""){$ctairbp=$ctadeb;}


// $tabla1=$tabla.'1';
// $tabla2=$tabla.'2';
// $tabla11=$tabla.'11';
// $tabla12=$tabla.'12';

// // 		$sql_tab1='select * from '.$tabla1.' where fecha>"2016" and idnum1="'.$idnum.'"';
// $sql_tab1='select * from '.$tabla1.' where fecha>="'.$xfcont1.'" and idnum1="'.$idnum.'"';
// // 		echo $sql_tab1;
// $res_tab1=mysql_query($sql_tab1,$link_vcrx);
// if($res_tab1==0){die('ERROR EN TABLA 1');}

// if (mysql_num_rows($res_tab1)==0)
// {
// 	die ('NO HAY DATOS X CONTABILIZAR');
// }
// else
// {
// // echo 
// }	


// $sql_tab2='select * from '.$tabla2.' where idnum2="'.$idnum.'" order by iddet';
// $res_tab2=mysql_query($sql_tab2,$link_vcrx);
// if($res_tab2==0){die('ERROR EN TABLA 2');}

// $sql_tab11='select * from '.$tabla11.' where fecha>"2016" and idnum1="'.$idnum.'"';
// $res_tab11=mysql_query($sql_tab11,$link_vcrx);
// if($res_tab11==0){die('ERROR EN TABLA 11');}

// $sql_tab12='select * from '.$tabla12.' where fecha>"2016" and idnum2="'.$idnum.'" order by iddet';
// $res_tab12=mysql_query($sql_tab12,$link_vcrx);
// if($res_tab12==0){die('ERROR EN TABLA 12');}


// if ($tabla=='vtas')
// {
// // 		$sql_uctas='update vtas2,item0,lsub0 set ctas=lsub_ctavtas where item=item_codigo and item_lsub=lsub_codigo and idnum2="'.$idnum.'"';
// // 		$res_uctas=mysql_query($sql_uctas,$link_vcrx);
// }

// if ($tabla=='comp')
// {
// // 		$sql_uctas='update comp2,item0,lsub0 set ctas=lsub_ctainve where item=item_codigo and item_lsub=lsub_codigo and idnum2="'.$idnum.'" and (ctas="" or ctas is null)';
// // 		$res_uctas=mysql_query($sql_uctas,$link_vcrx);
// }

// if ($tabla=='bcos')
// {
// // 		$sql_uctas='update bcos2,bcos1,enti0,zsub0 set ctas=zsub_ctaxcob where (ctas="" or ctas is null) and idnum1=idnum2 and enti=enti_codigo and enti_zsub=zsub_codigo and idnum2="'.$idnum.'"';
// // 		$res_uctas=mysql_query($sql_uctas,$link_vcrx);
// }



// $ptoe=mysql_result($res_tab1,0,'ptoe');
// $numero=mysql_result($res_tab1,0,'numero');
// $fecha=mysql_result($res_tab1,0,'fecha');
// $enti=mysql_result($res_tab1,0,'enti');
// $status=mysql_result($res_tab1,0,'status');
// $concepto=mysql_result($res_tab1,0,'concepto');

// // echo $docu.'==>'.$ptoe.'-'.$numero.'_'.date_format($fecha,'Y-m-d');
// echo $docu.'==>'.$ptoe.'-'.$numero;

// // capturo el id de contabilidad
// $sql_cont='select * from cont1 where docu="'.$docu.'" and idfrom="'.$idnum.'" order by idnum1';
// $res_cont=mysql_query($sql_cont,$link_vcrx);

// if (mysql_num_rows($res_cont)==0)
// {
// $sql_cont='insert into cont1(docu,mdfrom,idfrom,iuser,idate) values("'.$docu.'","'.$xmdfrom.'","'.$idnum.'","'.$_SESSION['user_vcrx_id'].'",now())';
// $res_cont=mysql_query($sql_cont,$link_vcrx);
// }

// $sql_cont='select * from cont1 where docu="'.$docu.'" and idfrom="'.$idnum.'" order by idnum1';
// $res_cont=mysql_query($sql_cont,$link_vcrx);

// $idcont=mysql_result($res_cont,0,'idnum1');
// // $this->idreturn=$idcont;

// $sql_cont='delete from cont2 where idnum2="'.$idcont.'"';
// $res_cont=mysql_query($sql_cont,$link_vcrx);

// $sql_upd1='update cont1 set ';
// $sql_upd1.=' ptoe="'.$ptoe.'",';
// $sql_upd1.=' numero="'.$numero.'",';
// $sql_upd1.=' fecha="'.$fecha.'",';
// $sql_upd1.=' enti="'.$enti.'",';
// $sql_upd1.=' status="'.$status.'",';
// $sql_upd1.=' concepto="'.$concepto.'" ';
// $sql_upd1.=' where idnum1='.$idcont.'';
// $res_upd1=mysql_query($sql_upd1,$link_vcrx);

// // 		echo $sql_upd1;

// $sql_upd1='update cont1 set ';
// if ($tabla=='vtas')
// {
// }

// if ($tabla=='comp')
// {
// }

// if ($tabla=='caja')
// {
// }

// if ($tabla=='bcos')
// {
// }

// if ($tabla=='retc')
// {
// }

// if ($tabla=='retp')
// {
// }

// if ($tabla=='inve')
// {
// }

// if ($tabla=='nomi')
// {
// }

// $sql_upd1.=' concepto="'.$concepto.'" ';
// $sql_upd1.=' where idnum1='.$idcont.'';
// $res_upd1=mysql_query($sql_upd1,$link_vcrx);

// if (mb_stristr('apri.emar.emun',$_SESSION['user_vcrx_empr']))
// {
// $sql_upd1='update cont1 set ';
// $sql_upd1.=' bldn="'.mysql_result($res_tab1,0,'bldn').'" ';
// $sql_upd1.=' concepto="'.$concepto.'" ';
// $sql_upd1.=' where idnum1='.$idcont.'';
// $res_upd1=mysql_query($sql_upd1,$link_vcrx);
// }

// if (mb_stristr('rcsa',$_SESSION['user_vcrx_empr']))
// {
// $sql_upd1='update cont1 set ';
// $sql_upd1.=' sntr="'.mysql_result($res_tab1,0,'sntr').'" ';
// $sql_upd1.=' concepto="'.$concepto.'" ';
// $sql_upd1.=' where idnum1='.$idcont.'';
// $res_upd1=mysql_query($sql_upd1,$link_vcrx);
// }

// $res_tab1=mysql_query($sql_tab1,$link_vcrx);
// $res_tab2=mysql_query($sql_tab2,$link_vcrx);
// $res_tab11=mysql_query($sql_tab11,$link_vcrx);
// $res_tab12=mysql_query($sql_tab12,$link_vcrx);

// if ($xstatus!="X" and $xstatus!="O")
// {		

// $concepto=mysql_result($res_tab11,0,'concepto');
// $detalle=mysql_result($res_tab11,0,'detalle');
// $total=abs(mysql_result($res_tab11,0,'total'));

// $iddet=0;
// if ($tabla=='vtas' or $tabla=='comp')
// {
// // 				$concepto=mysql_result($res_tab11,0,'concepto');
// // 				$detalle=mysql_result($res_tab11,0,'detalle');
// // 				$total=abs(mysql_result($res_tab11,0,'total'));
// $tdcto=abs(mysql_result($res_tab11,0,'tdcto'));
// $tice=abs(mysql_result($res_tab11,0,'tice'));
// $tiva=abs(mysql_result($res_tab11,0,'tiva'));
// $tirbp=abs(mysql_result($res_tab11,0,'tirbp'));

// if(mb_stristr('FC.NP.NV.FR',$tdocu)){$stran=1;}
// if(mb_stristr('FP.NC',$tdocu)){$stran=-1;}

// // 				if($tabla=='comp'){$ctadeb=$r_deta['ctas'];}

// $iddet++;
// $sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",0)';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $xctas='';
// if($stran==1)	{$xctas=$xctadeb;}
// if($stran==-1){$xctas=$xctacre;}

// if ($tabla=='vtas')
// {

// 	if ($xctas=="")
// 	{
// 	$sql_ctas0='select * from docu0 where docu_codigo="'.mysql_result($res_tab11,0,'docu').'"  order by docu_codigo desc';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	if($stran==1){$xctas=mysql_result($res_ctas0,0,'docu_ctadeb');}
// 	if($stran==-1){$xctas=mysql_result($res_ctas0,0,'docu_ctacre');}
// 	}


// 	if ($xctas=="")
// 	{
// 	$xctas=mysql_result($res_tab11,0,'zsub_ctaxcob');
// 	}


// 	if($xctas=="")
// 		{
// 			$sql_ctas0='select * from ctas0 ';
// 			$sql_ctas0.=' where left(ctas_codigo,1)="1" ';
// 			$sql_ctas0.=' and (ctas_descri like "%POR COBRAR%" or ctas_descri like "%X COBRAR%") ';
// 			$sql_ctas0.=' and (ctas_descri like "CUEN%" or ctas_descri like "CTA%") ';
// 			$sql_ctas0.=' order by ctas_codigo desc';
// 			$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 			$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 		}
// 	if($xctas==""){$xctas='1';}
// }

// if ($tabla=='comp')
// {
// 	$sql_ctas0='select * from tpro0,enti0,comp1 where enti=enti_codigo and trim(enti_tpro)=trim(tpro_codigo) and idnum1="'.$idnum.'" order by tpro_codigo desc';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	$xctas=mysql_result($res_ctas0,0,'enti_ctaxpag');

// 	if($xctas=="")
// 		{$xctas=mysql_result($res_ctas0,0,'tpro_ctaxpag');}

// 	if($xctas=="")
// 		{
// 			$sql_ctas0='select * from ctas0 ';
// 			$sql_ctas0.=' where left(ctas_codigo,1)="2" ';
// 			$sql_ctas0.=' and (ctas_descri like "%POR PAGAR%" or ctas_descri like "%X PAGAR%") ';
// 			$sql_ctas0.=' and (ctas_descri like "CUEN%" or ctas_descri like "CTA%") ';
// 			$sql_ctas0.=' order by ctas_codigo desc';
// 			$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 			$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 		}
// 	if($xctas==""){$xctas='2';}
// }

// $sql_upd2='update cont2 set ';	
// $sql_upd2.=' ctas="'.$xctas.'",';
// $sql_upd2.=' cant='.$total*$stran.',';
// $sql_upd2.=' detalle="'.$concepto.'"';
// $sql_upd2.=' where idnum2="'.$idcont.'" and iddet="'.$iddet.'"';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// if($tdcto!=0)
// {
// $iddet++;
// $sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",0)';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $xctas=$ctadcto;
// if($xctas=="")
// 	{
// 	$sql_ctas0='select * from ctas0 where left(ctas_codigo,1)="4" and (ctas_descri like "%DESCUENTO%") order by ctas_codigo';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 	}
// if($xctas==""){$xctas='4';}

// $sql_upd2='update cont2 set ';	
// $sql_upd2.=' ctas="'.$xctas.'",';
// $sql_upd2.=' cant='.$tdcto*$stran.',';
// $sql_upd2.=' detalle="'.$concepto.'"';
// $sql_upd2.=' where idnum2="'.$idcont.'" and iddet="'.$iddet.'"';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);
// }

// if($tice!=0)
// {
// $iddet++;
// $sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",0)';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $xctas=$ctaice;
// if($xctas=="")
// 	{
// 	$sql_ctas0='select * from ctas0 where left(ctas_codigo,1)="1" and (ctas_descri like "% ICE %") order by ctas_codigo';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 	}
// if($xctas==""){$xctas='1';}

// $sql_upd2='update cont2 set ';	
// $sql_upd2.=' ctas="'.$xctas.'",';
// $sql_upd2.=' cant='.$tice*$stran.'*-1,';
// $sql_upd2.=' detalle="'.$concepto.'"';
// $sql_upd2.=' where idnum2="'.$idcont.'" and iddet="'.$iddet.'"';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);
// }

// if($tiva!=0)
// {
// $iddet++;
// $sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",0)';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $xctas=$ctaiva;
// if($xctas=="")
// 	{
// 	$sql_ctas0='select * from ctas0 where left(ctas_codigo,1)="4" and (ctas_descri like "% IVA %") order by ctas_codigo';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 	}
// if($xctas==""){$xctas='4';}

// $sql_upd2='update cont2 set ';	
// $sql_upd2.=' ctas="'.$xctas.'",';
// $sql_upd2.=' cant='.$tiva*$stran.'*-1,';
// $sql_upd2.=' detalle="'.$concepto.'"';
// $sql_upd2.=' where idnum2="'.$idcont.'" and iddet="'.$iddet.'"';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);
// }

// if($tirbp!=0)
// {
// $iddet++;
// $sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",0)';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $xctas=$ctairbp;
// if($xctas=="")
// 	{
// 	$sql_ctas0='select * from ctas0 where left(ctas_codigo,1)="4" and (ctas_descri like "% IRBP %") order by ctas_codigo';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 	}
// if($xctas==""){$xctas='4';}

// $sql_upd2='update cont2 set ';	
// $sql_upd2.=' ctas="'.$xctas.'",';
// $sql_upd2.=' cant='.$tirbp*$stran.'*-1,';
// $sql_upd2.=' detalle="'.$concepto.'"';
// $sql_upd2.=' where idnum2="'.$idcont.'" and iddet="'.$iddet.'"';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);
// }

// $rescont=0;
// if ($rescont==1)
// {
// 	$sql_tab12=str_replace('*','*,sum(tsubt)as tsubtd',$sql_tab12);
// 	$sql_tab12=str_replace('order by ','group by ctas order by ',$sql_tab12);
// 	$res_tdet=mysql_query($sql_tab12,$link_vcrx);
// }
// else
// {
// 	$sql_tab12=str_replace('*','*,tsubt as tsubtd',$sql_tab12);
// 	$res_tdet=mysql_query($sql_tab12,$link_vcrx);
// }

// // GRABA DETALLE
// while($r_deta=mysql_fetch_assoc($res_tdet))
// {
// // 					$xctas=$r_deta['ctas'];
// 	if ($tabla=='vtas'){$xctas=$r_deta['lsub_ctavtas'];}
// 	if ($tabla=='comp'){$xctas=$r_deta['ctas'];}

// 	if ($xctas=="")
// 	{
// 	if($stran==1){$xctas=$ctacre;}
// 	if($stran==-1){$xctas=$ctadeb;}
// 	}

// 	if ($tabla=='vtas')
// 	{	
// 	if($xctas=="")
// 		{
// 		$sql_ctas0='select * from ctas0 where left(ctas_codigo,1)="4" and (ctas_descri like "%VENTAS%") order by ctas_codigo';
// 		$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 		$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 		}
// 	if($xctas==""){$xctas='4';}
// 	}	

// 	if ($tabla=='comp')
// 	{	
// 	if($xctas=="")
// 		{
// 		$sql_ctas0='select * from ctas0 where left(ctas_codigo,1)="5" and (ctas_descri like "%COMPRAS%") order by ctas_codigo';
// 		$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 		$xctas=mysql_result($res_ctas0,0,'ctas_codigo');
// 		}
// 	if($xctas==""){$xctas='5';}
// 	}	


// 	$iddet++;
// 	$sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",0)';
// 	$res_upd2=mysql_query($sql_upd2,$link_vcrx);

// 	$sql_upd2='update cont2 set ';	
// 	$sql_upd2.=' ctas="'.$xctas.'",';
// 	$sql_upd2.=' cant='.$r_deta['tsubtd']*$stran.'*-1,';
// 	$sql_upd2.=' item="'.$r_deta['item'].'",';
// 	$sql_upd2.=' csub="'.$r_deta['csub'].'",';
// 	$sql_upd2.=' cair="'.$r_deta['cair'].'",';
// 	$sql_upd2.=' detalle="'.$r_deta['detalle'].'"';
// 	$sql_upd2.=' where idnum2='.$idcont.' and iddet='.$iddet.'';
// 	$res_upd2=mysql_query($sql_upd2,$link_vcrx);

// }

// }

// if ($tabla=='caja')
// {
// }

// if ($tabla=='bcos')
// {
// if(mb_stristr('DB.DC.NC.DX.CA',$tdocu)){$stran=1;}
// if(mb_stristr('DP.CH.ND.TB',$tdocu)){$stran=-1;}

// $xctab=mysql_result($res_tab11,0,'ctab');
// $sql_ctab='select * from ctab0 where ctab_codigo="'.$xctab.'"';
// $res_ctab=mysql_query($sql_ctab,$link_vcrx);
// $xctas=mysql_result($res_ctab,0,'ctab_ctacont');

// $iddet++;
// $sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",'.$total.')';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $sql_upd2='update cont2 set ';	
// $sql_upd2.=' ctas="'.$xctas.'",';
// $sql_upd2.=' cant='.$total*$stran.'*1,';
// $sql_upd2.=' detalle="'.$r_deta['detalle'].'"';
// $sql_upd2.=' where idnum2='.$idcont.' and iddet='.$iddet.'';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);


// $rescont=1;
// if ($rescont==1)
// {
// 	$sql_tab12=str_replace('*','*,sum(abs(tcant)) as tsubtd',$sql_tab12);
// 	$sql_tab12=str_replace('order by ','group by ctas,docum order by ',$sql_tab12);
// 	$res_tdet=mysql_query($sql_tab12,$link_vcrx);
// }
// else
// {
// 	$sql_tab12=str_replace('*','*,abs(tcant) as tsubtd',$sql_tab12);
// 	$res_tdet=mysql_query($sql_tab12,$link_vcrx);
// }
// // GRABA DETALLE
// while($r_deta=mysql_fetch_assoc($res_tdet))
// {
// 	if(mb_stristr('CA',$tdocu)){$stran=-1;}

// 	$xctas=$r_deta['ctas'];
// 	if ($xctas=="")
// 	{
// 	$sql_ctas0='select * from enti0,'.$tabla.'1 where enti=enti_codigo and idnum1="'.$idnum.'" order by enti_codigo desc';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	if($stran==1){$xctas=mysql_result($res_ctas0,0,'enti_ctaxcob');}
// 	if($stran==-1){$xctas=mysql_result($res_ctas0,0,'enti_ctaxpag');}
// 	}

// 	if ($xctas=="")
// 	{
// 	$sql_ctas0='select * from docu0 where docu_codigo="'.$r_deta['docum'].'"  order by docu_codigo desc';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	if($stran==1){$xctas=mysql_result($res_ctas0,0,'docu_ctadeb');}
// 	if($stran==-1){$xctas=mysql_result($res_ctas0,0,'docu_ctacre');}
// 	}

// 	if ($xctas=="")
// 	{
// 	if($stran==1){$xctas=$r_deta['zsub_ctaxcob'];}
// 	if($stran==-1){$xctas=$r_deta['tpro_ctaxpag'];}
// 	}

// 	if ($xctas=="")
// 	{
// 	if($stran==1){$xctas=$ctacre;}
// 	if($stran==-1){$xctas=$ctadeb;}
// 	}

// 	if(mb_stristr('CA',$tdocu)){$stran=1;}

// 	$iddet++;
// 	$sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",'.$total.')';
// 	$res_upd2=mysql_query($sql_upd2,$link_vcrx);

// 	$sql_upd2='update cont2 set ';	
// 	$sql_upd2.=' ctas="'.$xctas.'",';
// 	$sql_upd2.=' cant='.$r_deta['tsubtd']*$stran.'*-1,';
// // 				$sql_upd2.=' item="'.$r_deta['item'].'",';
// // 				$sql_upd2.=' csub="'.$r_deta['csub'].'",';
// // 				$sql_upd2.=' cair="'.$r_deta['cair'].'",';
// 	$sql_upd2.=' detalle="'.$r_deta['detalle'].'"';
// 	$sql_upd2.=' where idnum2='.$idcont.' and iddet='.$iddet.'';
// 	$res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $xctas="";
// }

// }

// if (mb_stristr('retc.retp',$tabla))
// {
// if(mb_stristr('RC',$tdocu)){$stran=1;}
// if(mb_stristr('RP',$tdocu)){$stran=-1;}

// if(mb_stristr('RC',$tdocu)){$xctas=$ctadeb;}
// if(mb_stristr('RP',$tdocu)){$xctas=$ctacre;}


// $iddet++;
// $sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",'.$total.')';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);

// $sql_upd2='update cont2 set ';	
// $sql_upd2.=' ctas="'.$xctas.'",';
// $sql_upd2.=' cant='.$total*$stran.'*1,';
// $sql_upd2.=' cair="'.$r_deta['cair'].'",';
// $sql_upd2.=' detalle="'.$r_deta['detalle'].'"';
// $sql_upd2.=' where idnum2='.$idcont.' and iddet='.$iddet.'';
// $res_upd2=mysql_query($sql_upd2,$link_vcrx);


// $rescont=1;
// if ($rescont==1)
// {
// 	$sql_tab12=str_replace('*','*,sum(abs(tcant)) as tsubtd',$sql_tab12);
// 	$sql_tab12=str_replace('order by ','group by cair,docu order by ',$sql_tab12);
// 	$res_tdet=mysql_query($sql_tab12,$link_vcrx);
// }
// else
// {
// 	$sql_tab12=str_replace('*','*,abs(tcant) as tsubtd',$sql_tab12);
// 	$res_tdet=mysql_query($sql_tab12,$link_vcrx);
// }
// // 				echo $sql_tab12;

// // GRABA DETALLE
// while($r_deta=mysql_fetch_assoc($res_tdet))
// {
// 	$xctas=$r_deta['ctas'];
// 	if ($xctas=="")
// 	{
// 	$sql_ctas0='select * from enti0,'.$tabla.'1 where enti=enti_codigo and idnum1="'.$idnum.'" order by enti_codigo desc';
// 	$res_ctas0=mysql_query($sql_ctas0,$link_vcrx);
// 	if($stran==1){$xctas=mysql_result($res_ctas0,0,'enti_ctaxcob');}
// 	if($stran==-1){$xctas=mysql_result($res_ctas0,0,'enti_ctaxpag');}
// 	}

// 	if ($xctas=="")
// 	{
// 	if($stran==1){$xctas=$r_deta['zsub_ctaxcob'];}
// 	if($stran==-1){$xctas=$r_deta['tpro_ctaxpag'];}
// 	}
// 	if ($xctas=="")
// 	{
// 	if($stran==1){$xctas=$ctacre;}
// 	if($stran==-1){$xctas=$ctadeb;}
// 	}

// // 					if(mb_stristr('RC',$tdocu)){$xctas=$ctacre;}
// // 					if(mb_stristr('RP',$tdocu)){$xctas=$ctadeb;}



// // 					if ($xctas=="")
// // 					{
// // 					if($stran==1){$xctas=$r_deta['zsub_ctaxcob'];}
// // 					if($stran==-1){$xctas=$r_deta['tpro_ctaxpag'];}
// // 					}
// // 					if ($xctas=="")
// // 					{
// // 					if($stran==1){$xctas=$ctacre;}
// // 					if($stran==-1){$xctas=$ctadeb;}
// // 					}

// 	$iddet++;
// 	$sql_upd2='insert into cont2(idnum2,iddet,cant)value("'.$idcont.'","'.$iddet.'",'.$total.')';
// 	$res_upd2=mysql_query($sql_upd2,$link_vcrx);

// 	$sql_upd2='update cont2 set ';	
// 	$sql_upd2.=' ctas="'.$xctas.'",';
// 	$sql_upd2.=' cant='.$r_deta['tsubtd']*$stran.'*-1,';
// 	$sql_upd2.=' cair="'.$r_deta['cair'].'",';
// 	$sql_upd2.=' detalle="'.$r_deta['detalle'].'"';
// 	$sql_upd2.=' where idnum2='.$idcont.' and iddet='.$iddet.'';
// 	$res_upd2=mysql_query($sql_upd2,$link_vcrx);

// }

// }

// // 			if ($tabla=='retp')
// // 			{
// // 			}

// if ($tabla=='inve')
// {
// }

// if ($tabla=='nomi')
// {
// }


// }


?>