 _, ;      
 ,,,;
 person_id,nDocType;
 _;
 ;
 __, ;
//_____________________________________________________________________________ 

 (,)
	=(".");
	.();
	 (..()); 

//_____________________________________________________________________________ 
 (,,1,2)
	 ()=0 
	    =1+2;
	
		=2;
	;
	 ()=0    
		=++();
	;
                                          
//_____________________________________________________________________________ 

 () 
	 (()=0)  (()=0) 
         ("  !",40);
        ;
    ;
   	 ()=1 
         ("  !",40);
        ;
    ; 
     ()=1 
         ("  !",40);
        ;
    ;   
	=("");  
    
     = .(.());
    =.((1998,12,1),(), ());
     .()>0  
        =0;
        ();
         ()>0       
          	 _69=.() 
    		    _ = .N_;  
   	    	     = .;
   	            = .("");                  
   	            = .("")+ .;
   	            = .;
       			;
       		;	
       		= +1;
        ;
         =()  
        	();
		    _ = .N_;  
	    	     = .;
	            _69 = .();   
	            = .("");
   	            =  .("")+ .;
   	            =.;
        ;
 	;  

	=("."+);  
	.(,);
	 .()>0 
		 .() = 1  ; ;
		=.; 
		  ((( = )  ((.)=1) ))
	     (. = ()) 
	        =0;
	        ();
	         ()>0       
	          	 _69=.() 
	    		    _ = .N_;  
	   	    	     = .;
	   	            = .("") ;
	   	            = .("")+ .;
	   	            = .;
	       			;
	       		;	
	       		= +1;
	        ;
	         =()  
	        	();
    		    _ = .N_;  
   	    	     = .;
   	            _69 = .();   
   	            = .("") ;
   	            = .("")+ .;
   	            =.;
	        ;
        ;    
 	;  
  
//_____________________________________________________________________________ 

 ()
	2 = .(.()); 
	 2 <>   = 2; ;
	 =2 
		=0;
		nDocType=104;
		="";
	
	    =1;                      
		="";
		nDocType=105; 
	;
	..(); 		
	..(); 
	..();     
	..(1-); 


//_____________________________________________________________________________ 

 ()   
	.(1);
	 =1 
    	 = ();
		 = ();  
	;	
	=(()); 
    =..; 

	.(2," ");
   	.(3," ");
   	 =0 
   		.(1);
   		
   		.(.()); 
    ;	
    ();
    
    
//_____________________________________________________________________________ 
		                                                                          
 ()   
	=("."+);
	();
	 ()>0       
	   .(_69);
	   .=();   
   	   _ = .N_;  
	    = .;
       = .("");   
       = .;
	   .();
	;	
  
//_____________________________________________________________________________ 
 ()   
	="";

//_____________________________________________________________________________ 
 ()
	=;                             
	 = "";
	 (.)<>"" 
		=;
		=.;
		=.;
	
		=;
	;	           
	 ("    ?",4)=6 
		 () = "" 
			 = (".");
			.();
			.();
			.();
			.(); 
			 = .();
		;
		 = ("."+);  
		();
		 () =1         
			   	.(_69);
				  = 2 
					 . <>  
						. = ;
						.N___ =; 
						.=;
						.=;
						.();
					;
				  = 3 
					 . <>  
						. = ;
						.N___ =;
						.=;
						.=;
    					//_69. = ;
						.();
					;
				;
		;
		("!",40);
	;	           

//_____________________________________________________________________________ 

 ()      
	
	 ,SQL_rep,,Err,,; 
	// ;
	
	=("");
	.("");
	=();
	=();
	.(""); 
	=1;
    SQL_rep="select reestr_number,reestr_date,shortname,nvl(car_number,'.')  car_number,nvl(to_char(date_post_1s,'dd.mm.yyyy'),'') date_post_1s ,nvl(to_char(date_post_gupta, 'dd.mm.yyyy'),'') date_post_gupta,nvl(nvl(act_number,nacladn),'') as act_number "+
    ",nvl(to_char(act_date, 'dd.mm.yyyy'),'') act_date,nvl(goods_shortname,'') goods_shortname,nvl(weight,0) weight,nvl(price_1s,0) price_1s,nvl(price_gupta,0) price_gupta,e_car_realized,e_car_closed,e_dif_post_date,w_exists_link,w_dif_reestrs,e_price,e_no_weight from v_car_analize_res1 where company_id="++" and reestr_number="++" order by shortname,reestr_number,car_number";

   
   	OraDynaset = OraDatabase.DbCreateDynaset(SQL_rep, 0); 
   	="";
    For Rownum = 1 To OraDynaset.RecordCount  do 
   		=OraDynaset.Fields("reestr_number").Value;
		  <>  
  	   		="";
   			  OraDynaset.Fields("e_car_realized").Value="1" 
   				="+";
   			;
            .("_");
   			=;
   		;   
   		.(""); 
   		=+1;
    	OraDynaset.DbMoveNext();
    EndDo;    
   	.(0,0,0,0);
	.(1);
	.();



    
//_____________________________________________________________________________ 
 ()      
	
	 ,SQL_rep,,Err,;
//	 ;
	=(""); 
	.("");
	=();
	=();
	.(""); 
	=1;
  	SQL_rep="select reestr_number,reestr_date,shortname,nvl(car_number,'') car_number,nvl(to_char(date_post, 'dd.mm.yyyy'),'') date_post,nvl(nvl(act_number,nacladn),'') as act_number, "+
  	"nvl(to_char(act_date, 'dd.mm.yyyy'),'') act_date,error from v_car_search_res where company_id="++"and reestr_number="++" order by shortname,reestr_number,error,car_number";

   	OraDynaset = OraDatabase.DbCreateDynaset(SQL_rep, 0);    
   	
   	="";
    For Rownum = 1 To OraDynaset.RecordCount  do 
    	=OraDynaset.Fields("reestr_number").Value;
    	  <> 
    		.("_");
    		=;
    	;
    	Err=OraDynaset.Fields("error").Value;  
    	 Err = "1"  Err= "   ";
  		 Err = "2"  Err= "     ";
  		 Err = "3"  Err= "    ";
  		 Err = "4"  Err= "  ";
  		 Err = "5"  Err= "   ";
  		 Err = "6"  Err= "   ";
  		 Err = "7"  Err= "   ";
  		 Err = "8"  Err= "     ";
 		  Err = ""; 
  		;		
        .("");
        =+1;
    	OraDynaset.DbMoveNext();
    EndDo;    
   	.(0,0,0,0);
	.(1);
	.();
      
//_____________________________________________________________________________ 	
 ()   
    	OraDatabase.Parameters.Remove("nActionID");
    	OraDatabase.Parameters.Remove("PriceDate");
    	OraDatabase.Parameters.Remove("nCarID");
   		OraDatabase.Parameters.Remove("nGoodsID");
		OraDatabase.Parameters.Remove("Price");
   		OraDatabase.Parameters.Remove("Pr_BEZ_NDS");
    	OraDatabase.Parameters.Remove("InclNDS");
		OraDatabase.Parameters.Remove("Is_Set");  
		OraDatabase.Parameters.Remove("CurrID");  	
   		OraDatabase.Parameters.Remove("PrError");   
   		OraDatabase.Parameters.Remove("NormZagr"); 
   	 	OraDatabase.Parameters.Remove("Incl_ZDT");
	  
//_____________________________________________________________________________
 (CompID,ReestrNum,nDocType)     
	 ,,,,,,_,,_,__,,IsPrihod;
	
	 OraDatabase.Parameters.Count>2  
    	();
    ;	 
    OraDynaset = OraDatabase.DbCreateDynaset("select is_prihod from doc_type_1s where doc_type="+nDocType , 0);
    IsPrihod=(OraDynaset.Fields("is_prihod").Value);
	 IsPrihod=0 
		SQL_="select t.KOD_VAG_1S,contract_buy as contract,action_id_buy as action,real_company_buy as real_comp,nvl(station_id_post,0) as station,decode("+CompID+"-c.we,0,c.partner,c.we) as partner,c.IS_CHECK,t.car_id"+
		" from doc_1s_table t,doc_1s_header h ,t_wag_pered tw,contract c "+
		" where  t.doc_id=h.doc_id and company_id="+CompID+" and reestr_number="+ReestrNum+" and doc_type="+nDocType+ 
		" and t.car_id=tw.car_id and tw.ind_id=0 and contract_buy=c.contract_id  and  (t.STATE=-2 or t.E_CAR_REALIZED=1) "+
		" union all " +
		" select t.KOD_VAG_1S,v1.contract_id,v1.contract_id,real_company_buy,nvl(station_id_post,0),decode("+CompID+"-c.we,0,c.partner,c.we),1,t.car_id"+
		" from doc_1s_table t,doc_1s_header h ,t_inner_pered v1,v_max_chain_id mc,contract c "+
		" where  t.doc_id=h.doc_id and company_id="+CompID+" and reestr_number="+ReestrNum+" and doc_type="+nDocType+ 
		" and t.car_id=v1.car_id and h.contract_id=v1.contract_sell "+
		" and  v1.chain_id=max_id and mc.ind_id=v1.ind_id and c.contract_id=v1.contract_id and  (t.STATE=-2 or t.E_CAR_REALIZED=1) " ;
	   
		SQL_="select t.KOD_VAG_1S,contract_sell as contract,action_id_sell as action,real_company_sell as real_comp,nvl(station_id_potr,0) as station,decode("+CompID+"-c.we,0,c.partner,c.we) as partner,c.IS_CHECK,t.car_id"+
		" from doc_1s_table t,doc_1s_header h ,t_wag_pered tw,contract c "+
		" where  t.doc_id=h.doc_id and company_id="+CompID+" and reestr_number="+ReestrNum+" and doc_type="+nDocType+  
		" and t.car_id=tw.car_id and tw.ind_id=0 and contract_sell=c.contract_id and  (t.STATE=-2 or t.E_CAR_REALIZED=1) "+
		" union all " +
		" select t.KOD_VAG_1S,v2.contract_id,v2.contract_id,v2.real_company_sell,nvl(v2.station_id_potr,0),decode("+CompID+"-c.we,0,c.partner,c.we),1,t.car_id"+
		" from doc_1s_table t,doc_1s_header h ,t_inner_pered v1,t_inner_pered v2,contract c "+
		" where  t.doc_id=h.doc_id and company_id="+CompID+" and reestr_number="+ReestrNum+" and doc_type="+nDocType+ 
		" and t.car_id=v1.car_id and h.contract_id=v1.contract_id "+
		" and  v1.ind_id=v2.ind_id and v2.chain_id=v1.chain_id+1 and v1.car_id=v2.car_id and v1.partion_id=v2.partion_id and c.contract_id=v2.contract_id  and  (t.STATE=-2 or t.E_CAR_REALIZED=1) " +
		" union all "+
		" select t.KOD_VAG_1S,v1.contract_id,v1.contract_id,real_company_sell,nvl(station_id_potr,0),decode("+CompID+"-c.we,0,c.partner,c.we),1,t.car_id"+
		" from doc_1s_table t,doc_1s_header h ,t_inner_pered v1,contract c "+
		" where  t.doc_id=h.doc_id and company_id="+CompID+" and reestr_number="+ReestrNum+ " and doc_type="+nDocType+ 
		" and t.car_id=v1.car_id and h.contract_id=v1.contract_buy "+
		" and  v1.chain_id=1 and c.contract_id=v1.contract_id  and  (t.STATE=-2 or t.E_CAR_REALIZED=1) " ;
 
	;	
    OraDynaset = OraDatabase.DbCreateDynaset(SQL_, 0);     
    
    OraDatabase.Parameters.Add ("nActionID",0,1);
    OraDatabase.Parameters.Add ("PriceDate",0,1); 
    OraDatabase.Parameters.Add ("nCarID",0,1); 
   	OraDatabase.Parameters.Add ("nGoodsID",0,1);
	OraDatabase.Parameters.Add( "Price",0,2);
   	OraDatabase.Parameters.Add ("Pr_BEZ_NDS",0,2);
 	OraDatabase.Parameters.Add ("InclNDS",0,2);
	OraDatabase.Parameters.Add ("Is_Set",0,2); 
   	OraDatabase.Parameters.Add ("Incl_ZDT",0,2);
   	OraDatabase.Parameters.Add ("CurrID",0,2);
   	OraDatabase.Parameters.Add ("PrError",0,2);
   	OraDatabase.Parameters.Add ("NormZagr",0,2);
   	
        
     = (".");
	 = ("."+);
	= (".");
	 = (".");

     = ();
	 =1  OraDynaset.RecordCount   //     
		 = (".");
		=OraDynaset.Fields("KOD_VAG_1S").Value;
		=.(,(0));
		 <>1 
			("    " + + "  !");
	    	OraDynaset.DbMoveNext();
			;
		 . <>  
			(" " + .N_ + "    " + + "   !");
	    	OraDynaset.DbMoveNext();
			;
		;
		(" " + .N_);
//   
        =OraDynaset.Fields("PARTNER").Value;
		=.();
		 <>1 
			(" " + .N_ +" ("+++"):   " + + "    1!");
	    	OraDynaset.DbMoveNext();
			;
		;
		 =.();
		.();
		.(OraDynaset.Fields("CONTRACT").Value,1);
		 = .();
		//("=" + + ";  ="+ +"/"+.+"(="+.()+")");
		 OraDynaset.Fields("CONTRACT").Value= OraDynaset.Fields("ACTION").Value 
			 = ;
			Action=OraDynaset.Fields("CONTRACT").Value;
		 
			1 = (".");
			1.();
			1.(); 
			Action=OraDynaset.Fields("ACTION").Value;
			 =0;
			// =1.(Action,1);
			
			1.();
			 1.()=1 
				//(" 1="+1+ "  = "+1.);
				 (1.) = (Action) 
					=1;
					//("!");
					;
				;
			;
			
		  	 =1 
				 1.()=0 		  		
					 = 1.(); 
				
			//("      " + RstTable("ACTION_POST"));
					("!!! " + .N_ +"-"++" ("+++"):      " + OraDynaset.Fields("ACTION").Value);
				   	OraDynaset.DbMoveNext();
					; //    
				;
				      
				(" " + .N_ +"-"++" ("+++"):      " + OraDynaset.Fields("ACTION").Value);
			   	OraDynaset.DbMoveNext();
				; //    
	        ;
		;
		=.(OraDynaset.Fields("REAL_COMP").Value);
		 <>1 
			(" " + .N_ +"-"++" ("+++"):-/.   " +OraDynaset.Fields("REAL_COMP").Value + "    1!");
		;
		=.(OraDynaset.Fields("STATION").Value);
		 <>1 
			(" " + .N_ +"-"++" ("+++"):   " +OraDynaset.Fields("STATION").Value + "  !");
        ;
		. = ;
		. = ;
		. = ;
		. =.();
		 IsPrihod=0 
			.=.();
	//		.=. 
		
			.=.();
//			.=. 
		; 
		=.;
		OraDatabase.Parameters("nActionID").Value = Action;
		OraDatabase.Parameters("PriceDate").Value = .;
		OraDatabase.Parameters("nCarID").Value =OraDynaset.Fields("car_id").Value;
		//.("_");
		//=.();
		__=.(.);   
	

// , -  			
		.();
		=.("");      
		 .()=1    
			=0;
		  	=0;
		 	=0;
		  	=0;
		  	=0;
		 	_=0;
		  	=0;
		  	_=0;
		  	__=0;
		  	=0;

			//=..;
			// = ..(.);
			 = .(.);

           	OraDatabase.Parameters("nGoodsID").Value =(..) ;
           	 (OraDynaset.Fields("IS_CHECK").Value)<>1 
        		SQL_Item="begin sysadm.Get_Price_1S (:PriceDate, :nActionID, :nGoodsID,:Price, :Pr_BEZ_NDS,:InclNDS, :Is_Set,:Incl_ZDT,:CurrID,:NormZagr, :PrError); end;";
           	
           		SQL_Item="begin sysadm.Get_Inner_Price_1S (:nActionID,:nCarID ,:nGoodsID,:Price,:InclNDS,:Is_Set,:Incl_ZDT,:CurrID,:NormZagr,:PrError); end;";
           	;	
           	OraDatabase.DbExecuteSQL (SQL_Item);
           	 (OraDatabase.Parameters("PrError").Value)=0 
		       	=(OraDatabase.Parameters("NormZagr").Value);
           		=(OraDatabase.Parameters("CurrID").Value);
           		=...;
           		 = (OraDatabase.Parameters("Price").Value);
           		 <>  
           			 =1  =1  =(,.);;	
           			 =1  =1  =(,.);;	
           			=?(=0,0,*/);	
           		;	
           		 = .*;          		
  //          	  (OraDatabase.Parameters("Incl_ZDT").Value)=1 
  //         			 = ..;  
  //         			=0;
  //         		 (OraDatabase.Parameters("Incl_ZDT").Value)=0      
  //         			 = ..;
  //         			 = . * . /;
  //         		
   ///        			 = ..;
     ///      			 =0   = 50; ;
	//				 = . / ;
	//				  >1  =1;;
	//				 = . * ;
	//			;	       
				//***************    ************************         		
            	  (OraDatabase.Parameters("Incl_ZDT").Value)=1 
           			 = ..;  
           			=0;
           		 (OraDatabase.Parameters("Incl_ZDT").Value)=0      
           			 = ..;
           			 = . * . /;
           		
           			 = ..;
           			 =0   = 50; ;
					 = . / ;
					  >1  =1;;
					  > (. / )  =. /  ;;
					 = . * ;
				;	 
				  >    =; ;
				 =  -  ;
//*********************************************************************************				

        		  (OraDatabase.Parameters("InclNDS").Value)=1 
           			_ = ..;
           			 = .* +  *(1+__/100) ;
		        	_ = .**/( + 100); 
		        	 =  - _;
           		     
           			_ = ..;
           		 	 = .*  *(1+/100) +  *(1+__/100) ;
           		   	_= .*  *(/100);
           		;
               	__ = *(__/100) ; //     ""	
		       	 = _ + __ ;
		       	.=;
		  		.=;
		  		.=;
	  			.=;
	  			.=;
	  			._=_;
	  			.=;
	  			.=_;
	  			.=__;
	  			.=;
   		    
		       	.(OraDatabase.Parameters("nGoodsID").Value );
		       	=.;
       	    	 OraDatabase.Parameters("PrError").Value = "1"  (" " + .N_ +"-"++" ("+++"):   -    "+ +"  ");
		  		 OraDatabase.Parameters("PrError").Value = "2"   (" " + .N_ +"-"++" ("+++"):   -    "+ +" ");;
  				 OraDatabase.Parameters("PrError").Value = "3"  (" " + .N_ +"-"++" ("+++"):   -    "+ +"   ");
		  		;
		  	;
		;//     
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!		  
        //. = 1;            
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!        
		.();
	    //  
	    ();
		 = 0;
		 () = 1  //   
			 _69 = .() 
				 = 1;  = .N_; =.; =;
			;
			;
		; //   
		  = 0  
			 = (" "+.N_+"    , 
				|      !
				|   ?" ,4);
			  =6 
				();
				_69 = .();
				 = .N_; =.;
				=;
			;
		;

    	OraDynaset.DbMoveNext();
	; 
    ();
   	
  
//_____________________________________________________________________

 ()  
  ActDate,DatePotr,doc_id,,DatePost,,;              
    
	 ()=1 
		 ("  . !",40);
		;
	;
    ();
    ("   ORACLE");  
     OraDatabase.Parameters.Count<>0 
    	OraDatabase.Parameters.Remove("err_msg"); 
    	OraDatabase.Parameters.Remove("Count");
    ;	 
    OraDatabase.Parameters.Add ("err_msg","",2);
    OraDatabase.DbExecuteSQL ("begin sysadm.del_from_doc_1s("++","++"); end;");
    
    SQL_Header="begin insert into doc_1s_header (doc_id,doc_type,company_id,reestr_number,reestr_date,old_reestr_id,partner,contract_id,LINK_PARTNER,LINK_CONTRACT) values (sqdoc_1s_header.NEXTVAL,"+nDocType+","++",'"++"', to_date('"+ +"','dd.mm.rr'),"+().ORACLE+","+()..+","+()..+",1,1); exception when others then :err_msg:=SQLERRM; end; ";
	OraDatabase.DbExecuteSQL (SQL_Header);
	 OraDatabase.Parameters("err_msg").Value<>"" 
		("    :"+OraDatabase.Parameters("err_msg").Value);
		("!   ",40);
	
		=("."+);  
 		SQL_Table="";
 		();
 		 ()>0       
   			.(_69);
   			 (.)=1 
   				ActDate="null";
			 
				ActDate=" to_date('"+. +"','dd.mm.RR')";
			;	
			 (.)=1 
				DatePotr="null";
			 
				DatePotr=" to_date('"+. +"','dd.mm.RR')";
			;
			 (.)=1 
				DatePost="null";
			 
				DatePost=" to_date('"+.+"','dd.mm.RR')";
			;	
			=?(nDocType=2,"LTRIM(RTRIM('"+.N__+"')),","null");
       		//=(".");
			//.("_");
			//=.();
			
			 =.(.);
			OraDatabase.Parameters("err_msg").Value="";
			SQL_Table="begin insert into doc_1s_table (row_id,doc_id,car_number,date_post_1s,date_potr_1s,act_number,act_date,nacladn,action_id,kod_vag_1s,full_tarif) values (SQDOC_1S_TABLE.NEXTVAL,sqdoc_1s_header.CURRVAL,LTRIM(RTRIM('"+.N_+"')),"+DatePost+","+DatePotr+",LTRIM(RTRIM('"+.+"')),"+ActDate +","++","+..+","+.+","+.+");"+
			" exception when others then :err_msg:=SQLERRM; end; ";
		 	OraDatabase.DbExecuteSQL (SQL_Table); 
			 OraDatabase.Parameters("err_msg").Value<>"" 
				("      "+.N_+":"+OraDatabase.Parameters("err_msg").Value);
				;
			;		
        	SQL_Item="";
	   		.();
	   		 .()>0    
	   			 (.)=1  ; ;
		   	    =?(=2,0,.);
		   	     =2 
	   				 ._=.. 
		   				=/(1+*0.01);	
		   			;	                           
		   		;	
		   		OraDatabase.Parameters("err_msg").Value="";
		   		//("..="+..);
				SQL_Item="begin insert into doc_1s_item (row_id,row_number,goods_id,zdt,price_1s,weight,weight_theor) values (SQDOC_1S_TABLE.CURRVAL,"+(.-1)+","+..+","+.+","++","+.+","+?(=3,.,.)+"); exception when others then :err_msg:=SQLERRM; end; ";
				OraDatabase.DbExecuteSQL (SQL_Item);
				 OraDatabase.Parameters("err_msg").Value<>"" 
					("       "+.N_+":"+OraDatabase.Parameters("err_msg").Value);
					;
				;		
			;	
		;
		(" ");
		OraDatabase.DbExecuteSQL ("begin sysadm.Check_Reestr_1S75("++","++"); end;");
		(" ");  
		OraDatabase.DbExecuteSQL ("begin sysadm.Check_Car_1S75("++","++"); end;");
		("   ORACLE "); 
		OraDatabase.DbExecuteSQL ("begin sysadm.Find_By_Number75("++","++"); end;");
		("  1     ORACLE");
		OraDatabase.DbExecuteSQL ("begin sysadm.Get_Car_Info75("++","++"); end;");
		("   ORACLE    1,   ");  
		OraDatabase.DbExecuteSQL ("begin sysadm.Check_Car_Item_1S75("++","++"); end;");
		(" ");
		("    "+);
	    OraDatabase.Parameters.Add ("Count",0,1);
		OraDatabase.DbExecuteSQL ("begin sysadm.Realize_Car_1S75("++","++","+_+",:Count); end;");
	 	
		OraDynaset = OraDatabase.DbCreateDynaset("select doc_id,old_reestr_id from doc_1s_header where company_id="++" and reestr_number="+ , 0);

		ORACLE=OraDynaset.Fields("old_reestr_id").Value;  
		("    "++" !  ="+ORACLE);
		doc_id=OraDynaset.Fields("doc_id").Value;
		("     1");
		EmpDynaset = OraDatabase.CreateDynaset("select kod_vag_1s , car_id from doc_1s_table where e_car_search=0 and doc_id="+doc_id, 0);
		=("."+);  
    	For Rownum = 1 To EmpDynaset.RecordCount  do 
        	.(EmpDynaset.Fields("kod_vag_1s").Value,(0)); 
    		.=EmpDynaset.Fields("car_id").Value ; 
    		.();
    		EmpDynaset.DbMoveNext();
    	EndDo; 
//		("   /");        	
    	(,,nDocType);
       	 (OraDatabase.Parameters("Count").Value)<>() 
// __________   ___________________________________       		
    		();
	    	();
        ;	
    ;	
	OraDatabase.Parameters.Remove("err_msg"); 
    OraDatabase.Parameters.Remove("Count");
	("");
	C = "#" ;
                
//_____________________________________________________________________________ 
 ()
	    ();
	    ();
	    ();
    
//_____________________________________________________________________________ 
 ()                                                      
	
	 (()) = "" 
		("    (),       !",40);
		(0);
		;
	;  
	 = ("."+);
	.();
	. = ();    
	. = ;
	. = ..;   
	. =  ;
 	. =  ;
 	 =2 
 		.=.;  
 	  =3  
 		.=.;
 	;		
 	. = .;
 	
 	 = (".");
 	.();
	.();
	.();
	 .()=1   
		. = .();
	;
  	.();
	();           
	_69 = .();
	(.(),0);
	//("");
 
//_____________________________________________________________________________ 
 ()    
	 ,,,,,,,,, ; 
	 , , ,,, , ;
	
//	 = .(.()); 

	=(.);
	=.;
	=(".");
	=(".");
	.(.); 
	.(..);
	=((.));
	=("");
	 =2 
		.(" ()");  		
		
		.(" ");  	
	;	
	.("");
	.(9,9);
	.("_");
	=("."+); 
	=("."); 
	=0;
	=0;
	=0;
	=0;
	=0; 
	=0;
	=0; 
	=0;
	();
	 ()>0       
		.(_69);
       	//=(".");
		//.("_");
		//=.();
		 =.(.);
         =3 
   	        	 (.)<>"" 
   	        		.(.);
   	        		=.;
   	        		=.;
   	        	;	
        ;
        =+.; 
		=+.; 
		=0;
		.();
		 .()>0 
		   =+.;
		;	

        .();
		 .()>0 
			 =3 
		    	=.; 
		    	=.*.;
		    	=.*./.("");
		    	=(+)**0.01;
		    	=.;
		    	=+; 
		    	=+;
		    	=+; 
    	  	    =++; 
		//		 .__=.. 
		
   		//			 =./(1+*0.01);	
		//		;
   		    ;
            =?(=0,0,.*./);
            =?(=0,0,.*./);
   	        =+1;
   	        =+.;
   	        .("");	
		;	
	;	
	.("");	

	
    .(0,0,0,0);
	.(0);
	.();

     
//_____________________________________________________________________________ 
 () 
 	(0);
 
//_____________________________________________________________________________ 
  () 
 	
	 = ("."+);
    .(_69);
   	=("    .    ?",3) ;
   	//(" = " + );
   	  = 6  
	   	();                     
   		.(0);
   	  = 7  
	   	();                     
	    . = "";
	    .();                
	 
  // 	(" " );
		;
	;
     = "#" ;
    
 
//_____________________________________________________________________________
 ()   
	  , ;
	=.(); 
	 =1   
		.();  
		.(); 
		.();
	;
 
//_____________________________________________________________________________
  (,)
  , , , ,;  
  ,,,,,,  ;
 
	
//=(".");
	=("."+); 
	=(".");
	=(".");

    =(); 
     =("");  
    1 =(""); 
   	=".";=".";=".";
   	=".";=".";="._";


   	=
   	"//{{()
	| ;
	| ;
    |    ;	
	|=."++".;	
	| = ."++".; 
	|=  ."++".; 
	| = ."++".;
	| = ."+++";
	| = ."+++";
	| = ."+++";
	| = ."+++";
	|_ = ."+++";
	| = ."+++";   
	| = ."++".;
	| = ."++".;  	
	|  = ();	
	| _ = ();	
	| _ = ();
	| _ = ();
	|  = ();
	|  = ();
	| __ = (_);
	| ;
	| ;
	| ;
	| ;
	|    ;	
	| ( = );
	|"//}}
	;

	="//{{(1)
	| ;
	| ; 
	|=."++".;
	| = ."++".N_;
	|= ."++".;
	|=."++".;
	|=."++".;
	|=."++".; 
	| = ."++".;  
	|    ;   
	| ( = );
	|"//}}
	;


	.(); 
	 .("")=1  
//		 .("")=0 
        	 =1  
				.();
			
				 .()<>1 
					(+"  !!");
					;
				
					();
			    ;
			;
			.(..);
	    	 =2  // 	
				. = ..();
				. = ;
				. = ;
				.=" "+.+"  "+.
			 // 	
        		. =;
				. =  .;
				. = .;
				.=" "+.+"  "+.
			;
			=.;
			="";
			=0; =0; =0;
			1="";		
			1=+"(=);";
			1.(1);
			 1.("")=1 
   				=+?(="","",?(1.="","",", "))+(1.);
   				=+1.;
   				=+1.;
   				=+1.;
   			;	
   			.=; 
   			.=;
   			.=;
   			.=;
			.();
			. = ;  
			.20 = ._ + ._; 
			. = ._;
			.= ._;
			 .("")=1 
				 .("")=1 
					 .("")=1 
						 .("")=1 
							.( .);
							 =1 	
								 (.)<>"" 
					 					 .(.)=1  .(0); ; 	  
					 			;		
								.=.();
								.(); 
								
							;	
						;	
						.();
						. = .;   
						=  ?(.<>0,.,.);
						  =0    
							.=0;
							
							. = ._/;
						;	
						. = ;
						. = ._;
						. = .__;
						. = ._ + .__;  
					;	
				;
			;					

  		   	.(); 
//		   ;	
	;
     =1 
   		 = "#" ;
   	;	

//_____________________________________________________________________________
 ()  
  , ;
	 ()>0 
	 ("   !"++"     !",40);
     =(); 
	  =1   
		();  
		(); 
		();
	 ;

	;	
     ()<>"" 
    	="";
    ;	
	=1; 


//_____________________________________________________________________________
 ()
	=0;            
	=1;

	
    =(".");
	
	 ( = 1)  (()="")   //   
		=1; //    
	 .()=0  
		=1;
	
		=0;
	;
	 =1            
		=(" -?",4);
		  =6  // 
			=1;
			(,1);
		;
	;



//_____________________________________________________________________________ 
 ()
	 .()=1  
		
	;
	.();
	
//_____________________________________________________________________________
 () 
	 ;
//	();  
	//  <> 1   //   
	//	();
	//;           
	(, );
	();
	//. = ""+ N_+ "/"+ . +"/"+ ; 
	  ()<>"" 
		=(".");  
		(,0);
	;	

//_____________________________________________________________________________ 
 ()     
	 ()<>"" 
		=(".");  
		 .()=1 
			 = ("  - " + (.) +"  " + (.),4);
			 =6  
				.(0); 
				="";
				 = "#" ;          
    		;	
		;
	;
	
//_____________________________________________________________________________

 ()
	();  
	
//_____________________________________________________________________________
 () 
    =("");                 
    =("."); 
    =("."+);
    .("_");

    
    =(); 
     =(""); 
   	="//{{(qq)
	| ;
	| ;
    |    ;	
	| = ."++".;
	| = ."++".;	
	| = ."++".;
	| ; 
	| ;	
	| ( = );
	|"//}}
	;

	.(); 
	 .("")=1  
		.(.);		           
		.("");
    	.("_8"); 
		.("_");

   		//=(".");
		//.("_");
		//=.();
		 .("")=1       
			 =.(.);
			.(.);
			.();
			 .()>0  
		    	=.; 	
				 ._=.. 
   				 	=/(1+*0.01);	
				; 
				 = ....(.);
            	=.+.;
            	=0;
            	=0;
		    	.("_9");
			;
			 .("")<>0 
	    		.("_10");
	   		;
	    ;
		.("");
        .();
	;	
		
	.(0,0,0,0,"");
	.(0);
	.(" -","");

	
//_____________________________________________________________________________
 ()
	 (_69,0);

	
//_____________________________________________________________________________

   ()            // ()          
  	 ,,, ;
  	=" "+.;
	=(".");
	=("."); 
   	//=(".");
   	="";
   	(,..(),"",": ");
	(,..(),", ",".: ");

   	=("."+);
   	=("");       
   	=("");
	 =2 
		.(()+"mxl\ree_syr.mxl");
		
		                                
		.("");    
	;	
	=((. ));
	
	 =(""); 
    =();
   	="//{{(qq)
	| ;
	| ; 
    |    ;	
	|=."+?(=2,"","")+".;
	//| = ..;
	| = ."+?(=2,"","")+".;	
	| = ."+?(=2,"","")+". ;
	| ; 
	| ;	
	| ( = );
	|"//}}
		;
	=1;
	.(); 
	 .("")=1 
	//	=.;
       	 >1 
    	   	.("");
			.();
		;
   		.(..); 
		.(..);
		=((.));
		_ = .;
        .("");
        =0;
		=0;
	   	=0;
    	=0; 
    	=0;
    	=0;  
    	=0; 
   		=0; 
		=0;
		 .("")=1 
    		.(.);
			=+1;  
	   		//=(".");
			//.("_");
			//=.();
			 =.(.);
	  		.();	
        	 .()>0 
		    	=.; 	
				 ._=.. 
   					 =/(1+*0.01);	
				; 
            	=.;
            	=.;
            	 = .;
   	        	=+1;
   	        	=+?(=2,.,?((.)<>0, .,.));
   	        	=+.; 
   	        	=+.;
   	        	=+.;
   	        	=+.;
           		=+; 
				=+;

		 		.("");	
			;   
			 (=3)    
				 .<>0 
					=+1;
	    			.("_5");  
	    			=+.; 
	    			=+.;
	    			=+.;
	    		;	
                 .("")<>0 
                	=+1;
	    			.("_4"); 
	    			=+.("");
   	    		;
	   		;	
		 ;	
		 =+1;
    ;
   	.("");
   	.(0,0,0,0,"");
	.(0);
	.(?(=2,"   "," "),"");
  	
 //_____________________________________________________________________________ 

  ()  
 	(0);

 //_____________________________________________________________________________ 

 ()
	();
	=("."+);
	 () = 1 
		 .(_69)=1 
			.();
		;	
	;

	
//_____________________________________________________________________________
