<?php
	$LIMPIAR_DET=0;
	$LIMPIAR=0;
	$SYS_FOC="Ori";
	//++++++++++++++++++++++++++++++++++
	$GII=0;
	$StrId=V($_POST['TxtId']);
	$StrCmd=V($_POST['TxtAc']);
	if(strlen($StrCmd)==0){
		$StrCmd=V($_GET['TxtAc']);
		if($StrCmd=="X"){
			$StrCmd="C";
			$StrFec=date("d-m-y");
		}
	}
	//-------------------------++++++++++++++
	$Ori=V($_POST['Ori']);
	$Ser=V($_POST['Ser']);
	$Num=V($_POST['Num']);
	$Fec=V($_POST['Fec']);
	$Mnd=V($_POST['Mnd']);
	$EmiRuc=V($_POST['EmiRuc']);
	$EmiNom=V($_POST['EmiNom']);
	$CliRuc=V($_POST['CliRuc']);
	$CliNom=V($_POST['CliNom']);
	$Sto=V($_POST['Sto']);
	$Igv=V($_POST['Igv']);
	$Tot=V($_POST['Tot']);
	$Fdp=V($_POST['Fdp']);
	$Ret=V($_POST['Ret']);
	$Tca=V($_POST['Tca']);
	$Lot=V($_POST['Lot']);
	
	/*
	echo "st=".$Sto."<br>";
	echo "igv=".$Igv."<br>";
	echo "tot=".$Tot."<br>";
	*/
	$Fdp=V($_POST['Fdp']);
	$TotDet=V($_POST['TotDet']);
	//------------------------
	$StrTC=1;//gs("valor","valores","dato='T_CAMBIO'");
	//-------------------------
	//ACTIVAR DESDE OTRA PAGINA
	if(strlen($StrId)==0){
		$StrId=V($_GET['Id']);
		if(is_numeric($StrId)==false){
			$StrId="";
		}else{
			$StrCmd="AR";
			$LStrPag=V($_GET['Pag']);
			if(!is_numeric($LStrPag)){
				$LStrPag="";
			}
		}
	}
	//FUNCIONES DE DESZPLAZAMIENTO
	if(strlen($LStrPag)==0)$LStrPag="0";
	if($StrCmd=="MSig")$LStrPag=($LStrPag+1);
	if($StrCmd=="MAnt")$LStrPag=($LStrPag-1);
	if($StrCmd=="MPri")$LStrPag=0;
	if($StrCmd=="MUlt")$LStrPag=(floor($LStrTR / $VP_RegXPag) );
	//FUNCION PARA ACTIVAR UN REGISTRO	
	//
	if(($StrCmd=="G" || $StrCmd=="M") && $TODO_OK==1){
		
	}
	if($StrCmd=="L"){
		$LIMPIAR=1;
	}	
	//
	if($StrCmd=="M" && $TODO_OK==1){	
		$KEY=vbval($StrId);
		ejt("DELETE FROM ges_xml WHERE id_xml=$KEY");
		ejt("DELETE FROM ges_xml_det WHERE id_xml=$KEY");
		ejt("DELETE FROM ges_xml_cuo WHERE id_xml=$KEY");
		$StrCmd="G";
	}
	//
	//
	if($StrCmd=="G" && $TODO_OK==1){		
		//
		if($Ori=="XML"){
			$x=gr("ges_xml_tmp","hw='$HW' AND usu=$IdUsu");
			$FAC_SER=$x['xml_ser'];
			$FAC_NUM=$x['xml_num'];
			$FAC_FEC=$x['xml_fec'];
			$FAC_HOR=$x['xml_hor'];
			$FAC_MND=$x['xml_mnd'];
			$EMI_RUC=$x['xml_emi_ruc'];
			$EMI_NOM=$x['xml_emi_nom'];
			$CLI_RUC=$x['xml_cli_ruc'];
			$CLI_NOM=$x['xml_cli_nom'];
			$FAC_STO=$x['xml_sub'];
			$FAC_IGV=$x['xml_igv'];
			$FAC_TOT=$x['xml_tot'];
			$FAC_FDP=$x['xml_fdp'];
			$FAC_RET=$x['xml_ret'];
			$FAC_RET=TU26($Ret);
			$FAC_TC=vbval($x['xml_tc']);
			//
			$XML_NOM_ORI=$x['xml_nom'];
			$XML_NOM_TMP=TU26($Lot);//$x['xml_nom_tmp'];	//Lote		
			$XML_ORI="XML";
		}else{
			$FAC_SER=TU26($Ser);
			$FAC_NUM=TU26($Num);
			$FAC_FEC=ToDateEx($Fec);
			$FAC_HOR="";
			$FAC_MND=TU26($Mnd);
			$EMI_RUC=TU26($EmiRuc);
			$EMI_NOM=TU26($EmiNom);
			$CLI_RUC=TU26($CliRuc);
			$CLI_NOM=TU26($CliNom);
			$FAC_STO=vbval($Sto);
			$FAC_IGV=vbval($Igv);
			$FAC_TOT=vbval($Tot);
			$FAC_FDP=TU26($Fdp);
			$FAC_RET=TU26($Ret);
			$FAC_TC=vbval($Tca);			
			//
			$XML_NOM_ORI="-";
			$XML_NOM_TMP=TU26($Lot);
			$XML_ORI="MAN";
		}
		//
		//echo "LOTE=".$XML_NOM_TMP."<br>";
		//
		XML_EMP_ADD($EMI_RUC,$EMI_NOM);
		XML_EMP_ADD($CLI_RUC,$CLI_NOM,$FAC_RET);
		//
		$SYS_FEC=date("Y-m-d");
		$SYS_HOR=GetHoraAP();
		$SYS_TIM=time();		
		//
		$s="INSERT INTO ges_xml
			(hw,usu,fec,hor,tim,xml_nom,xml_ser,xml_num,xml_fec,xml_hor,xml_mnd,
			xml_emi_ruc,xml_emi_nom,xml_cli_ruc,
			xml_cli_nom,xml_sub,xml_igv,xml_tot,xml_fdp,xml_nom_tmp,xml_ori,xml_ret,xml_tc) 
			VALUES 
			('$HW',$IdUsu,'$SYS_FEC','$SYS_HOR',$SYS_TIM,'$XML_NOM_ORI','$FAC_SER','$FAC_NUM','$FAC_FEC','$FAC_HOR','$FAC_MND',
			'$EMI_RUC','$EMI_NOM','$CLI_RUC',
			'$CLI_NOM',$FAC_STO,$FAC_IGV,$FAC_TOT,'$FAC_FDP','$XML_NOM_TMP','$XML_ORI','$FAC_RET',$FAC_TC)";
		$KEY=ejt7($s);
		//echo $s."<br>";
		//BIT
		$_BIT_MOD_ID=$KEY;
		$_BIT_SQL_CAB=$s;
		$_BIT_SQL_DET="";
		$_BIT_PHP="ges_factura.php";
		$_BIT_ID=BIT_ADD("PROCESOS","XML","GUARDAR",$_BIT_MOD_ID,$_BIT_SQL_CAB,$_BIT_SQL_DET,$_BIT_PHP);
		BIT_DET_ADD($_BIT_ID,$s);
		/*
		$qqq=ejt("DELETE FROM ges_xml_det WHERE id_xml=$KEY");
		BIT_DET_ADD($_BIT_ID,$s);
		//
		$PX=0;
		$s="SELECT * FROM ges_xml_tmp_det WHERE hw='$HW' AND usu=$IdUsu ORDER BY id_det";		
		$rs=grs($s);
		while($r=$rs->fetch_assoc()){
			$DET_CAN=$r['det_can'];		
			$DET_PRE=$r['det_pre'];	
			$DET_DES=$r['det_des'];		
			$DET_TOT=$r['det_tot'];	
			$s="INSERT INTO ges_xml_det 
				(hw,usu,id_xml,det_can,det_pre,det_des,det_tot) 
				VALUES 
				('$HW',$IdUsu,$KEY,$DET_CAN,$DET_PRE,'$DET_DES',$DET_TOT)";
			ejt($s);	
			//
			BIT_DET_ADD($_BIT_ID,$s);
		}
		*/
		$qqq=ejt("DELETE FROM ges_xml_cuo WHERE id_xml=$KEY");
		BIT_DET_ADD($_BIT_ID,$s);
		//
		$PX=0;
		$s="SELECT * FROM ges_xml_tmp_cuo WHERE hw='$HW' AND usu=$IdUsu ORDER BY id_cuo";		
		$rs=grs($s);
		while($r=$rs->fetch_assoc()){
			$CUO_NRO=$r['cuo_nro'];		
			$CUO_TOT=$r['cuo_tot'];	
			$CUO_FEC=$r['cuo_fec'];
			$CUO_FEP=$r['cuo_fep'];	
			//
			$CUO_TIP=$r['cuo_tip'];		
			$CUO_OBS=$r['cuo_obs'];		
			$CUO_ANU=$r['cuo_anu'];		
			$CUO_ANU_FEC=$r['cuo_anu_fec'];		
			$CUO_ANU_USU=$r['cuo_anu_usu'];		
			$CUO_PAG=$r['cuo_pag'];		
			$CUO_PAG_FEC=$r['cuo_pag_fec'];		
			$CUO_PAG_USU=$r['cuo_pag_usu'];		
			$CUO_PAG_SYS_FEC=$r['cuo_pag_sys_fec'];		
			$CUO_PAG_OBS=$r['cuo_pag_obs'];		
			$CUO_ORI=$r['cuo_ori'];		
			//
			if($FAC_RET=="SI"){
				$CUO_TOT_RET=round($CUO_TOT * 0.03,2);
				$CUO_TOT_PAG=round($CUO_TOT - $CUO_TOT_RET,2);				
			}else{
				$CUO_TOT_PAG=$CUO_TOT;
				$CUO_TOT_RET=0;
			}
			$CUO_PAG_ID_BAN=$r['cuo_pag_id_ban'];
			$CUO_PAG_NRO_OPE=$r['cuo_pag_nro_ope'];
			$CUO_PAG_TOT=$r['cuo_pag_tot'];
			$CUO_RET_FEC=$r['cuo_ret_fec'];
			$CUO_RET_NRO_OPE=$r['cuo_ret_nro_ope'];
			$CUO_RET_TOT=$r['cuo_ret_tot'];
			//
			$s="INSERT INTO ges_xml_cuo 
				(hw,usu,id_xml,cuo_nro,cuo_tot,cuo_fec,cuo_fep,
				 cuo_tip , cuo_obs , cuo_anu , cuo_anu_fec , cuo_anu_usu ,
				 cuo_pag , cuo_pag_fec , cuo_pag_usu , cuo_pag_sys_fec , cuo_pag_obs , cuo_ori ,
				 cuo_tot_pag , cuo_tot_ret , cuo_pag_id_ban , cuo_pag_nro_ope , cuo_pag_tot , 
				 cuo_ret_fec , cuo_ret_nro_ope , cuo_ret_tot ) 
				VALUES 
				('$HW',$IdUsu,$KEY,'$CUO_NRO','$CUO_TOT','$CUO_FEC','$CUO_FEP',
				 '$CUO_TIP' , '$CUO_OBS' , '$CUO_ANU' , '$CUO_ANU_FEC', $CUO_ANU_USU ,
				 '$CUO_PAG' , '$CUO_PAG_FEC' , $CUO_PAG_USU , '$CUO_PAG_SYS_FEC', '$CUO_PAG_OBS' , '$CUO_ORI' ,
				 $CUO_TOT_PAG , $CUO_TOT_RET , $CUO_PAG_ID_BAN , '$CUO_PAG_NRO_OPE' , $CUO_PAG_TOT ,
				 '$CUO_RET_FEC' , '$CUO_RET_NRO_OPE' , $CUO_RET_TOT )";
			ejt($s);	
			//echo $s."<br>";
			//
			BIT_DET_ADD($_BIT_ID,$s);
		}
		//	
		XML_FAC_SET_PAG_EX($KEY);
		//
		$SYS_FOC="Ser";
		$SYS_MSG="Datos registrados";
		$LIMPIAR=1;
	}
	//
	if($StrCmd=="CUO_KIL"){
		$SYS_FOC="CuoNro";
	}
	//
	if($StrCmd=="DET_KIL"){
		$SYS_FOC="DetCan";
	}
	//
	if($StrCmd=="ADD_DET"){
		$DetCan_=vbval(V($_POST['DetCan']));
		$DetDes=V($_POST['DetDes']);
		$DetPre_=vbval(V($_POST['DetPre']));
		$DetImp_=vbval(V($_POST['DetImp']));
		//
		$KEY=0;
		$s="INSERT INTO ges_xml_tmp_det 
			(hw,usu,id_xml,det_can,det_pre,det_des,det_tot) 
			VALUES 
			('$HW',$IdUsu,$KEY,$DetCan_,$DetPre_,'$DetDes',$DetImp_)";
		ejt($s);
		$SYS_FOC="DetCan";
	}
	//
	if($StrCmd=="ADD_CUO"){
		$AppRet=V($_POST['Ret']);		
		$CuoNro=V($_POST['CuoNro']);
		//
		if(is_numeric($CuoNro)){
			$CuoNro=vbval($CuoNro);
			$CuoNro="CUOTA".vbr("00000".$CuoNro,3);
		}
		//
		$CuoFec_=ToDateEx(V($_POST['CuoFec']));		
		$CuoTot_=vbval(V($_POST['CuoTot']));
		$CuoTip=V($_POST['CuoTip']);
		$CuoObs=V($_POST['CuoObs']);
		$CuoFecPro_=ToDateEx(V($_POST['CuoFecPro']));		
		$KEY=0;
		//
		if($AppRet=="SI"){
			$CUO_TOT_RET=round($CuoTot_ * 0.03,2);
			$CUO_TOT_PAG=round($CuoTot_ - $CUO_TOT_RET,2);		
		}else{
			$CUO_TOT_PAG=$CuoTot_;
			$CUO_TOT_RET=0;
		}
		//
		$s="INSERT INTO ges_xml_tmp_cuo 
			(hw,usu,id_xml,cuo_nro,cuo_tot,cuo_fec,cuo_fep,
			 cuo_tip,cuo_obs,cuo_ori,cuo_tot_pag , cuo_tot_ret) 
			VALUES 
			('$HW',$IdUsu,$KEY,'$CuoNro',$CuoTot_,'$CuoFec_','$CuoFecPro_',
			'$CuoTip','$CuoObs','MAN', $CUO_TOT_PAG , $CUO_TOT_RET)";
		ejt($s);
		$SYS_FOC="CuoNro";
	}
	//
	if($StrCmd=="IMP_XML"){
		//echo $StrCmd."<br>";
		$xml_nom_ori=V($_FILES['Productos']['name']);
		$xml_nom_tmp=$IdUsu."_".time().".xml";
		$xml_full="xml_tmp/".$xml_nom_tmp;
		if(move_uploaded_file($_FILES['Productos']['tmp_name'],$xml_full)){
			if(XML_OK($xml_full)){
				$ret=XML_PROCESAR($xml_full,$HW,$IdUsu,$xml_nom_ori,$xml_nom_tmp);	
				if($ret=="OK"){
					//
					$x=gr("ges_xml_tmp","hw='$HW' AND usu=$IdUsu");
					$Ser=$x['xml_ser'];
					$Num=$x['xml_num'];
					$Fec=$x['xml_fec'];
					$Mnd=$x['xml_mnd'];
					$EmiRuc=$x['xml_emi_ruc'];
					$EmiNom=$x['xml_emi_nom'];
					$CliRuc=$x['xml_cli_ruc'];
					$CliNom=$x['xml_cli_nom'];
					$Sto=$x['xml_sub'];
					$Igv=$x['xml_igv'];
					$Tot=$x['xml_tot'];
					$Fdp=$x['xml_fdp'];
					$Ret=$x['xml_ret'];
					if(strlen($Ret)==0)$Ret="NO";
					//
					$SYS_MSG="Xml procesado correctamente";
					$ES_XML=1;
				}else{
					if($ret=="RE"){
						$SYS_MSG="Comprobante ya registrado";
					}else{
						if($ret=="ERROR"){
							$SYS_MSG="Error al procesar el xml";
						}else{
							$SYS_MSG="No se pudo procesar el xml";
						}
					}
				}
			}else{
				$SYS_MSG="Formato de xml no valido";
			}
		}
	}
	//++++
	if($StrCmd=="PAGO_DESHACER"){
		$CUO_KEY=vbval(V($_POST['CUO_KEY']));
		$s="UPDATE ges_xml_tmp_cuo 
			SET 
			cuo_pag='NO',
			cuo_pag_fec='1900-01-01',
			cuo_pag_usu=0,
			cuo_pag_sys_fec='1900-01-01',
			cuo_pag_obs='' 
			WHERE id_cuo=$CUO_KEY";
		ejt($s);
	}
	//++++
	if($StrCmd=="CUOTA_ANULAR"){
		$CUO_KEY=vbval(V($_POST['CUO_KEY']));
		$PAG=gs("cuo_pag","ges_xml_tmp_cuo","id_cuo=$CUO_KEY");
		if($PAG=="SI"){
			$SYS_MSG="No se puede anular una cuota pagada";
		}else{
			$s="UPDATE ges_xml_tmp_cuo 
				SET cuo_anu='SI', 
					cuo_anu_fec='".date("Y-m-d")."',
					cuo_anu_usu=$IdUsu ,
					cuo_pag='NO',
					cuo_pag_fec='1900-01-01',
					cuo_pag_usu=0,
					cuo_pag_sys_fec='1900-01-01',
					cuo_pag_obs='' 
				WHERE id_cuo=$CUO_KEY";
			ejt($s);
		}
	}
	//++++
	if($StrCmd=="E" && $TODO_OK==1){
		$ACC_INV_ELI="SI";

		if($ACC_INV_ELI=="NO"){
			$SYS_MSG="No tiene permisos para esta accion";
		}else{
			//
			ejt("DELETE FROM ges_xml_det WHERE id_xml=$StrId");
			ejt("DELETE FROM ges_xml_cuo WHERE id_xml=$StrId");
			//		
			$qqq=ejt("DELETE FROM ges_xml WHERE id_xml=$StrId");
			//BIT
			$_BIT_MOD_ID=$StrId;
			$_BIT_SQL_CAB=$qqq;
			$_BIT_SQL_DET="";
			$_BIT_PHP="ges_facturas.php";
			$_BIT_ID=BIT_ADD("PROCESOS","FACTURAS","ELIMINAR",$_BIT_MOD_ID,$_BIT_SQL_CAB,$_BIT_SQL_DET,$_BIT_PHP);
			BIT_DET_ADD($_BIT_ID,$qqq);
			//
			$SYS_MSG="Registro eliminado";
			$LIMPIAR=1;
		}
	}	
	//++++
	if(strlen($StrId)>0 && $StrCmd=="AR" && $TODO_OK==1){
		//
		ejt("DELETE FROM ges_xml_tmp WHERE hw='$HW' AND usu=$IdUsu");
		ejt("DELETE FROM ges_xml_tmp_det WHERE hw='$HW' AND usu=$IdUsu");
		ejt("DELETE FROM ges_xml_tmp_cuo WHERE hw='$HW' AND usu=$IdUsu");
		//
		$Id=$StrId;
		$r=gr("ges_xml","id_xml=$Id");
		$Ser=$r['xml_ser'];
		$Num=$r['xml_num'];
		$Fec=$r['xml_fec'];
		$Mnd=$r['xml_mnd'];
		$EmiRuc=$r['xml_emi_ruc'];
		$EmiNom=$r['xml_emi_nom'];
		$CliRuc=$r['xml_cli_ruc'];
		$CliNom=$r['xml_cli_nom'];
		$Sto=$r['xml_sub'];
		$Igv=$r['xml_igv'];
		$Tot=$r['xml_tot'];
		$Fdp=$r['xml_fdp'];
		$Ret=$r['xml_ret'];
		$Tca=$r['xml_tc'];
		$Ori=$r['xml_ori'];
		$Edi=$r['xml_edi'];
		$Lot=$r['xml_nom_tmp'];
		//
		if($Ori=="XML"){
			$ES_XML=1;
		}
		//
		$SYS_FEC=date("Y-m-d");
		$SYS_HOR=GetHoraAP();
		$SYS_TIM=time();
		$XML_NOM_ORI=$r['xml_nom'];
		$FAC_HOR=$r['xml_hor'];
		$XML_NOM_TMP=$r['xml_nom_tmp'];
		//
		$s="INSERT INTO ges_xml_tmp
			(hw,usu,fec,hor,tim,xml_nom,xml_ser,xml_num,xml_fec,xml_hor,xml_mnd,
			xml_emi_ruc,xml_emi_nom,xml_cli_ruc,xml_cli_nom,xml_sub,xml_igv,xml_tot,
			xml_fdp,xml_nom_tmp,xml_ori,xml_edi,xml_tc) 
			VALUES 
			('$HW',$IdUsu,'$SYS_FEC','$SYS_HOR',$SYS_TIM,'$XML_NOM_ORI','$Ser','$Num','$Fec','$FAC_HOR','$Mnd',
			'$EmiRuc','$EmiNom','$CliRuc','$CliNom',$Sto,$Igv,$Tot,
			'$Fdp','$XML_NOM_TMP','$Ori',$Edi,$Tca)";
		$KEY=ejt7($s);
		/*		
		$s="SELECT * FROM ges_xml_det WHERE id_xml=$Id ORDER BY id_det";		
		$rs=grs($s);
		while($r=$rs->fetch_assoc()){
			$det_can=$r['det_can'];
			$det_pre=$r['det_pre'];
			$det_des=$r['det_des'];
			$det_tot=$r['det_tot'];
			//
			$s="INSERT INTO ges_xml_tmp_det
				(hw,usu,id_xml,det_can,det_pre,det_des,det_tot) 
				VALUES 
				('$HW',$IdUsu,$KEY,$det_can,$det_pre,'$det_des',$det_tot)";
			ejt($s);			
		}
		*/
		$s="SELECT * FROM ges_xml_cuo WHERE id_xml=$Id ORDER BY cuo_fec";		
		$rs=grs($s);
		while($r=$rs->fetch_assoc()){			
			$cuo_nro=$r['cuo_nro'];
			$cuo_tot=$r['cuo_tot'];
			$cuo_fec=$r['cuo_fec'];
			$cuo_fep=$r['cuo_fep'];
			//
			$CUO_TIP=$r['cuo_tip'];		
			$CUO_OBS=$r['cuo_obs'];		
			$CUO_ANU=$r['cuo_anu'];		
			$CUO_ANU_FEC=$r['cuo_anu_fec'];		
			$CUO_ANU_USU=$r['cuo_anu_usu'];		
			$CUO_PAG=$r['cuo_pag'];		
			$CUO_PAG_FEC=$r['cuo_pag_fec'];		
			$CUO_PAG_USU=$r['cuo_pag_usu'];		
			$CUO_PAG_SYS_FEC=$r['cuo_pag_sys_fec'];		
			$CUO_PAG_OBS=$r['cuo_pag_obs'];		
			$CUO_ORI=$r['cuo_ori'];	
			//
			$CUO_TOT_PAG=$r['cuo_tot_pag'];	
			$CUO_TOT_RET=$r['cuo_tot_ret'];	
			$CUO_PAG_ID_BAN=$r['cuo_pag_id_ban'];	
			$CUO_PAG_NRO_OPE=$r['cuo_pag_nro_ope'];	
			$CUO_PAG_TOT=$r['cuo_pag_tot'];	
			$CUO_RET_FEC=$r['cuo_ret_fec'];	
			$CUO_RET_NRO_OPE=$r['cuo_ret_nro_ope'];	
			$CUO_RET_TOT=$r['cuo_ret_tot'];	
			//
			if(strlen($cuo_fep)==0)$cuo_fep="1900-01-01";
			$s="INSERT INTO ges_xml_tmp_cuo 
				(hw,usu,id_xml,cuo_nro,cuo_tot,cuo_fec,cuo_fep,
				 cuo_tip , cuo_obs , cuo_anu , cuo_anu_fec , cuo_anu_usu ,
				 cuo_pag , cuo_pag_fec , cuo_pag_usu , cuo_pag_sys_fec , cuo_pag_obs , cuo_ori ,				 
				 cuo_tot_pag , cuo_tot_ret , cuo_pag_id_ban , cuo_pag_nro_ope , cuo_pag_tot , cuo_ret_fec , cuo_ret_nro_ope , cuo_ret_tot ) 
				VALUES 
				('$HW',$IdUsu,$KEY,'$cuo_nro',$cuo_tot,'$cuo_fec','$cuo_fep',
				 '$CUO_TIP' , '$CUO_OBS' , '$CUO_ANU' , '$CUO_ANU_FEC', $CUO_ANU_USU ,
				 '$CUO_PAG' , '$CUO_PAG_FEC' , $CUO_PAG_USU , '$CUO_PAG_SYS_FEC', '$CUO_PAG_OBS' , '$CUO_ORI' ,
				 $CUO_TOT_PAG , $CUO_TOT_RET , $CUO_PAG_ID_BAN , '$CUO_PAG_NRO_OPE' , $CUO_PAG_TOT , '$CUO_RET_FEC' , '$CUO_RET_NRO_OPE' , $CUO_RET_TOT  )";
			ejt($s);
			//+++
			//echo $s."<bR>";
			//echo "NRO OPE=".$CUO_PAG_NRO_OPE."<br>";
		}
		//
		if($Ori=="MAN")$Ori="MANUAL";
		if($Ori=="XML")$Ori="XML";
		//
		$MODO_AR=1;
	}
	//
	if($LIMPIAR==1){
		$StrId="";		
		$Ser="";
		$Num="";
		$Fec="";
		$Mnd="";
		$EmiRuc="";
		$EmiNom="";
		$CliRuc="";
		$CliNom="";
		$Sto="";
		$Igv="";
		$Tot="";
		$Fdp="";
		$ES_XML=0;
		$Ori="";
		$Tca="";
		$Lot="";
		//
		ejt("DELETE FROM ges_xml_tmp WHERE hw='$HW' AND usu=$IdUsu");
		ejt("DELETE FROM ges_xml_tmp_det WHERE hw='$HW' AND usu=$IdUsu");
		ejt("DELETE FROM ges_xml_tmp_cuo WHERE hw='$HW' AND usu=$IdUsu");
		//
		
		//
		$LIMPIAR_DET=1;
	}
	//
	if($LIMPIAR_DET==1){
		$Cod="";
		$Des="";
		$Pie="";
		$Caj="";
		$Und="";
		$TotPie="";
		$TotUni="";
		$TotUwi="";
		$Pre="";
		$Imp="";
	}
?>

