 _;      
 ,,;
 person_id,UserPass, UName,OraSession,OraDatabase,_,PersonName,nDocType;
 _;
 ;
 __;
 ;
 , ;
 [1000];

//_____________________________________________________________________________ 
//_____________________________________________________________________________ 
 (,)
	 =.(,1);
	  = 1  
		 =.;
		//("="++"; =" +.);
		();
	 ("="+ +"  !");
		("");
	;

//_____________________________________________________________________________ 


 (, , , )
	 ;         
	 ="//{{(1)
	|    ;
	| ;
	| ;
	| =";
	 =0;
     = "" ;
     = "" ;       
    ="";
    = "";
	= "";
	= "";
	= "";
	 = "";
    
	 = 0;0 = 1;1 = 1;2 = 1;3 = 1;4 = 1;5 = 1;6 = 1;7 = 1;8 = 1;
	2 = (".");
	3 = (".");
	  < .()     
		 =  +1; 
		 .()=0 
		    ;
		;
		 =  .(,); 
//		 = .();
		(" = " +  + " =" + );
//		  =0   =  -1;; ; //  
		 = 2.();
		  =0  
			// =  - 1; 
			("  "++"    '' !!!");
			; 
		; //  
		3.(2.());
		 = + ?(0 = 1,"",",") + "." + +".";
		0 = 0 + 1;
		  = 2   
			 =(3,"");
			  <> ""  = +  ?(1=1,"",",") + "." + +"."+ (); 1 = 1 +1;;
			 =(3,"");
			  <> ""  = +  ?(2=1,"",",") + "." + +"."+ ();2 = 2 +1; ;
			 =(3,"");
			  <> ""  
				 =  +  ?(3=1,"",",") + "." + +"."+ (); 3 = 3 +1;
				("="+ + "; =" +);
			;
			//  =  + ?((.)="","", ?(=1,"",",") + "." + +"."+ (.));
			//  =  +  ?((.)="","",?(=1,"",",") + "." + +"."+ (.)); 
		
			 =(3,"");
			  <> ""  = +  ?(1=1,"",",") + "." + +"."+ ();1 = 1 +1; ;
			 =(3,"");
			  <> ""  = +  ?(2=1,"",",") + "." + +"."+ (); 2 = 2 +1;;
			 =(3,"");
			  <> ""   = +  ?(3=1,"",",") + "." + +"."+ (); 3 = 3 +1;
				//("="+ + "; =" +);
			;
			//= +  ?(=1,"",",") + "." + +"."+ (.);  
			//  =  +  ?((.)="","",?(=1,"",",") + "." + +"."+ (.));
			//  = + ?((.)="","",  ?(=1,"",",") + "." + +"."+ (.)); 
		;         
		// = + ?((.)="","",  ?(=1,"",",") + "." + +"."+ (.));
		// =  + ?((.)="","",  ?(=1,"",",") + "." + +"."+ (.));
		// =  + ?((.)="","",  ?(=1,"",",") + "." + +"."+ (. ));
		// =  + ?((.)="","",  ?(=1,"",",") + "." + +"."+ (.));
		
		 =(3,"");
		  <> ""   = +  ?(4=1,"",",") + "." + +"."+ ();4 = 4 +1; ;
		 =(3,"");
		  <> ""   = +  ?(5=1,"",",") + "." + +"."+ (); 5 = 5 +1;;
		 =(3,"");
		  <> ""   = +  ?(6=1,"",",") + "." + +"."+ (); 6 = 6 +1;;
		 =(3,"");
		  <> ""   = +  ?(7=1,"",",") + "." + +"."+ (); 7 = 7 +1;;
	
	;  
	
	 =  +";
	| = " +  + ";
	| = " +  + ";
	|= " +  + ";
	| = " +   + ";
	| = " +  + ";
	| ;
	| ;
	|( = );
	|"//}}
	;                   


//       ""
//     ""
//  -     
//_____________________________________________________________________________ 

 () //    ""
	
//	(, , , );
	

//_____________________________________________________________________________ 

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

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

    (, , , );
    
    //();
	 .() = 0 
		("  ",40);
		;
	;  
	
	 = ("");
    
	 .() = 1     //""
		// .("") =1   ; ;
		 = .;  
		=0;
		//* ,       
		.(,,);
		 (.()=1)   
			 (.()="")  (.()<>()) 
			    (" "++"     "+.()); 
				=1;
				;
			;
		; 
		 =1 
		    ;
		;
		
		//("=" + .  +"; =" + . +"; =" + . +"; =" + . );
        =0;
        ();                  
        =0;
         ()>0       
          	 =.() 
          		=1;
    		    _ = .;  
   	    	     = .;
   	            //= (.(""),"14.2.") ;
       			;
       		;	
       		= +1;
        ;
         =0  
        	();
		    _ = .;  
	    	     = .;
	             = .();   
	            //= (.(""),"14.2.") ;
        ;
  //      ;    
 	;  
  
//_____________________________________________________________________________ 

 ()
	 = .(.()); 
	 =2 
		=1;
		nDocType=100;
	
		=0;
		nDocType=101;
	;	
  	//..(); 
 	//..();

    
//_____________________________________________________________________________ 
 

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

//_____________________________________________________________________________ 
 ()
	=;                             
	 = "";
	 .()<>1 
		=;
		=.  
	
		=;
	;	           

//_____________________________________________________________________________ 
 () 
	 ;
	// ,,,,,,,,;
	// , ;      
	
	    ();
	
		("    - "+());
		;
	;
	("",,()+"\extforms\buch.mc\doc_set.ert");
	. = ();
	
	
//	 = ("");
//	 = (".");
//
//	=((..(())));
//	=..(());
//	=(".");
//	=(".");
//	.(.); 
//	.(..);
//	=((.));
//	=(""); 
//	.(" /");  
//	.("");
//	.(9,9);
//	.("_");
//	//=("."+); 
//	=("."); 
//	=0;
//	=0;
//	=0;
//	=0;
//	=0; 
//	=0;
//   	//=(".");
//	//.("_");
//	=.();
//	 = "";
//	();
//	 ()>0       
////		.();
////		 =..(.);
//		 =.(.);
//		 = .();
//		
//          <>  
//        	 =  ;
//        	 =  ;
//        	="//{{(1)
//			//|    ;
//			| ;
//			| ;
//			| =."++".";
//			//|";
//			 = .();
//			  =0  ; ; //  
//			  = 2   
//				= "." + +"."+ .;
//				  =?((.)="","", "." + +"."+ .);
//				  = ?((.)="","0", "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//				_ = ?((._)="","",  "." + +"."+ ._); 
//				 =?((.)="","",  "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//			
//				= + "." + +"."+ .;  
//				  = ?((.)="","", "." + +"."+ .);
//				  =?((.)="","",  "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//				_ = ?((._)="","",  "." + +"."+ ._); 
//				 =?((.)="","",  "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//				=?((.)="","",  "." + +"."+ .); 
//			;         
//			 = ?((.)="","", "." + +"."+ .);
//			 = ?((.)="","",  "." + +"."+ .);
//			 = ?((.)="","", "." + +"."+ . );
//			 = ?((.)="","",  "." + +"."+ .);
//			=?((.)="","",  "." + +"."+ .); 
//		    
//			 = +";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + (_) + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			| = " + () + ";
//			|    ;
//			|     ;
//			|( = );
//			|"//}}
//			;                   
//		    ();
//			 = 0; 
//        ;
//		 .() = 0 
//			("  ",40);
//			;
//		;
//		 .("") = 1 	    
//			 .("") =1   
//				 = .;
//				(" ="+ );
//				; 
//			;
//			 .("") = 1 
//				(" ="+);
//	//        .();
//	//		 .()>0 
//				
//			    =.; 	
//				 .=.. 
//	   				 =/(1+*0.01);	
//				;
//	            //=(?(.=.._,.*./,.),"14.2.,");
//	   	        =+1;
//	   	         = .;
//	   	        N_ = .;
//	   	        =+.;
//	   	         = .;
//	   	        =+.; 
//	   	        =.;
//	   	        =+.;
//	   	         = .;
//	   	        =+.;  
//	   	        =.;
//	   	        =+.;
//	   	        =.;
//	   	        =.;
//			 	.("");	
//			;	
//	;	
//	;	
//	.("");	
//	
//	
//    .(0,0,0,0);
//	.(0);
//	.();
//
     
//_____________________________________________________________________________
 ()
	=1; 

//_____________________________________________________________________________
 () 
//	  <> 1   //   
		(,);
//	;           
	// = .();
     

//_____________________________________________________________________________
 ()
	=(); 
	 =1   
		();  
		(); 
		();
	;
 //

 ()
	 (,0);
	
//_____________________________________________________________________________

// ()  
// 	(0);
//
//_____________________________________________________________________________ 
 ()
	();    
	 () = 1                           
		=("."+.());
		 .()=1 
			.();
		;	
	;
	
//_____________________________________________________________________________
