//===========================================
// 11.11.2007 -- dnp : 
//  
//===========================================

//-------- 
 ;	//  SQL
 ;	//    

//--------    
 ; // 1++ 
 ;
 ;
 ; //     
 ; //:MetaDataWork

//*******************************************
 () 
	 = ( "" );
	 = ( "" );
	 = ( "" );
	 = ( "MetaDataWork" );
			= 0;
		= 0;
			= 0;
  //

//*******************************************
 (  ) 
     ( () = "" ) 
		 ?( ()=100, 1, 0 );
     ( () = " " ) 
		 ". = " + .();
	 ( () = "" ) 
		 ?( ()=100, 1, 0 );
	
		 0;
	;


//*******************************************
 ( , SQL_, SQL_ ) 
	 = (""); 
	 ( .("EnableDebugging")=0 )  //           ..     . 
		.( "" );
		.(  );
		._();
	;
	 (  = 1 ) 
		
			 = ( "" );
		
			 = 0;
		;
	;
	 (SQL_=1)  (SQL_=1) 
		
			 = ( "SQL" );
			 ( .(SQL_,SQL_) = 0 ) 
				 = 0;   
			;
		
			 = 0;
		;
	;
  //

//*******************************************
//        SQL
 () 
	.();
	 "    SQL";
  //

//*******************************************
//       ,
//  ,      .
//-------------------------------------------
// 		-  
// 	-   (,,,,,,...)
// 	-   (,,,...)    .. ( = ="" ?)
// 	-   (,,,,)
// 	-      "" (     )
//				    .
//				   ,    {,,}
//
 ( , , , ,  ) 
	.( . );
			= .();
		= .();
		= ( , ".",  );
			= (,2);
		= (,3);
		= (,4); //     
	 ( ( ",,,",  ) <> 0 ) 
		 (  = "" ) 
			 (  = "" ) 
				 = "";
			 (  = "" ) 
				 = "";
			
				 = "";
			;
		
			 = "";
		;
		
	 ( ( ",,,,",  ) <> 0 ) 
		 = "";
	 ( ( ",,,,",  ) <> 0 ) 
		 = "";
		 = "";
			= (,3);
	 ( ( ",,,,",  ) <> 0 ) 
		 (  = "" ) 
			 = "";
				= (,3);
		
			 = "";
				= "";
		;
		 = "";
	 ( ( ",,,",  ) <> 0 ) 
		 = "";
	 (  = "" ) 
		 = "";
		.( ,  );
	
				= "";
				= .();
	;
	 1;
	//

//*******************************************
 (  )
	//   ,     :
	 .();
	
     = ( (), """",  );
	 ""
		+ "" + ( (,2) )
		+ "/" + ( (,8) )
		+ "/" + ( (,14) )
		;
	//

//*******************************************
 ( , , , ,  ) 
     (  = 0 ) 
		 0;
	;
	.( , , 3, , ,  );
	//

//*******************************************
 ( , ,  ) 
     (  = 0 ) 
		 0;
	;
	.( , ,  );
	//

//*******************************************
//        -     .
 (  )
	 , , , ;
	
	 = .(  ); 
	 ( () = 0 ) 
		;
	;
	( , , , ,  );
	Descr =  + "" +  + "" +  + "" + ;
	 (  = "" ) 
		 = ("");
	 (  = "" ) 
		 = ("" +  ); // , , 
	 (  = "" ) 
		 = ("");
	
		 = ("");
	;
	 =  + 1;
	.( , , Descr );
	 (  = "" ) 
		 (  = "" ) 
			// -
		
			 ( .() = 1 ) 
				Descr = .() + " " + . + " " + .;
				( "Refs", "RefOpen", (.()), Descr, "" );
			;
		;
	 (  <> "" ) 
		( "Forms", "FormOpen", , Descr, "" );
	;
	////( "-------  " +  );//+ "  " +  );
	//

//########################################################################//
//########################################################################//

//*******************************************//
//                              //
//              1            //
//          //
//*******************************************//

////*******************************************
////
// _( ,  ) 
//	//  .
//	 = ( "" );
//	.( "", ,  );
//    ////( "  " +  + ",  = " +  );
//	 1;
//	//_

//*******************************************
//  1;     
//
 _( , , ,  ) 

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

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



//*******************************************//
//                                //
//                  1++                     //
//   (    )   //
//*******************************************//

//*******************************************
//
 __( EvType, Event, EvCat, Comment, Obj, ObjDescr ) 
	 (  <> 0 ) 
		 ( Event = "RefNew" ) 
			Event = "WriteNew";
		 ( Event = "DocNew" ) 
			Event = "Create";
		// ( Event = "DocWriteNew" ) 
		//	Event = "WriteNew";
		// ( Event = "DocNotWrite" ) 
		//	Event = "NotWrite";
		 ( (Event,3) = "Doc" ) 
			Event = (Event,4);
		;
		 ( (Obj) = 2 ) 
			//( "  1++" );
			 ( (Obj,2) = "/0" ) and ( Event = "NotWrite" ) 
				Event = "CANCEL";
			;
			_ = Obj; /// !   1++            !!!
		
			////( "1++ 3.0.1.19 ==
			////|[" + EvType + "/" + Event + "/" + EvCat + "/" + Comment + "/" + Obj + "(" + (Obj) + ")/" + ObjDescr + "]" );
			 = (Obj);
			 (  <> 0 ) 
				 ( Obj.() = 0 ) and ( Event = "NotWrite" ) 
					Event = "CANCEL";
				;
			;
			_ = .(Obj);
			//_ = (_,1)      ,      1
			//	+ "/" + _strtoid( ((_,3,6)) )
			//	+ "/" + _strtoid( ((_,9,6)) )
			//	;
		;
		 = .( EvType, Event, EvCat, Comment, _, ObjDescr );
	;
	 1; //    ,        SQL


//*******************************************
//
 _(  )  
	 ( () = 1 )   1;;
	//( "" );
	(  );
	 1;


////*******************************************
////
// _( , , ,  ) 
//	( "" +  + "/" +  + "/" + , "!!!" );
//	 1;
//

//*******************************************
//
 _(  ) 
	 ( () = 1 )   1;;
	////( "_ (" +  + ")" );
	(  );
	 1;


//*******************************************
//
 _( ,  ) 
	 ( () = 1 )   1;;
	(  );
	 1;


//*******************************************
//
  _(  ) 
	 , , , ;
	 ( () = 1 )  ;;
	( , , , ,  );
	 (  = "" ) 
		 = ( .() );
		 ( .() = 1 ) 
			 = .();
			 = "Close";
		
			 = ;
			 = "Cancel";
		;
		 = ( .() + " " + (.) + " " + (.,"") + " " + .() );
		( "Docs", , , , "" );
		////( "" + .() + "." + .() + " -- " + .() + " " );
	 (  = "" ) 
		 (  = "" ) 
			// -
		 ( .() = 1 ) 
			 = .();
			 = ( .() + " " + (.) + " " + . );
			 = (  );
			( "Refs", "Close", , , "" );
		
			( "Refs", "Cancel", "",  + "  ", "" );
		;
	
		 = .(  );
		 ( () = 0 ) 
			 = .;
			 = .;
			( "Forms", "FormClose", , , "" );
		;
	;



//*



