 _;      
 ,,;
 person_id,UserPass, UName,OraSession,OraDatabase,_,PersonName,nDocType;
 _;
 ;
 __;
 , ;
 [1000];   
 , ; 
//_____________________________________________________________________________
 ()                                                    
	  , ;
	=.(); 
	 =1   
		.();  
		.(); 
		.();
	;
 
//_____________________________________________________________________________ 
 (,)
	 =.(,1);
	  = 1  
		 =.;
		("="++"; =" +.);
		();
	 ("="+ +"  !");
		("");
	;

//_____________________________________________________________________________ 


 (, , , , 1)

	 ="//{{(1)
	|    ;
	| ;
	| ;
	| =";    
	1 ="//{{(2)
	| ;
	| ;
	| =";

	 =0;
     = "" ;
     = "" ;       
    ="";
    = "";
	= "";
	= "";
	= "";
	 = "";
    
	0 = 1;1 = 1;2 = 1;3 = 1;4 = 1;5 = 1;6 = 1;7 = 1;8 = 1;
	2 = (".");
	3 = (".");
	.();
	  =1  .()   
		 =  .();  
		 .()=0 
		    ;
		;
		 = 2.(.);
		 =  2.();
		3.();
		 = + ?(0=1,"",",") + "." + +".";
		1 =1 + ?(0=1,"",",") + "." + +".";
		0 = 0 +1;
		  = 2   
			 =(3,"");
			  <> ""  = +  ?(1=1,"",",") + "." + +"."+ (); 1 = 1 +1;;
			 =(3,"");
			  <> ""  = +  ?(2=1,"",",") + "." + +"."+ ();2 = 2 +1; ;
			 =(3,"");
			  <> ""  
				 =  +  ?(3=1,"",",") + "." + +"."+ (); 3 = 3 +1;
				("="+ + "; =" +);
			;
		
			 =(3,"");
			  <> ""  = +  ?(1=1,"",",") + "." + +"."+ ();1 = 1 +1; ;
			 =(3,"");
			  <> ""  = +  ?(2=1,"",",") + "." + +"."+ (); 2 = 2 +1;;
			 =(3,"");
			  <> ""   = +  ?(3=1,"",",") + "." + +"."+ (); 3 = 3 +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;;

	;
	 =  +";
	| = " +  + ";
	| = " +  + ";
	|= " +  + ";
	| = " +   + ";
	| = " +  + "; 
	|= "  +  + "; 
	| ;
	| ;
	| ( = );
//	| (( = )  (=));
	|"//}}
	;                   
	1 = 1 +";
	| = " +  + ";
	| = " +  + ";
	|= " +  + ";
	| = " +   + ";
	| = " +  + "; 
	|= "  +  + "; 
	| ;
	| ;
	|  (=);
    |"//}}
	;                   



//       ""
//     ""
//  -     
 () //    ""
//	 = .();
////	();
//	 =.();
//	 =0 
//		.(,);
//	;
//

//_____________________________________________________________________________ 

// () //    ""
//	.(.());
//
//_____________________________________________________________________________ 

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

//_____________________________________________________________________________ 

// () //    ""
//	 ("   ?",4) = 6 
//		();
//	;
//	
//

//_____________________________________________________________________________ 

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

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

	 (()=0)  (()=0) 
         ("  !",40);
        ;
    ;
   	 ()=1 
         ("  !",40);
        ;
    ; 
     ()=1 
         ("  !",40);
        ;
    ;     

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

    (, , , ,1); 
    ();        
    (1);
    
  
//_____________________________________________________________________________ 

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

    
//_____________________________________________________________________________ 
 

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

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

//_____________________________________________________________________________ 
 ()
	 .()=2 
		=.  
	;	           

//_____________________________________________________________________________ 
 ()      
	 ,,,,,,,;
	 , ,, , ,;  
//	 = .(.()); 
	="";                                    
	 = ();
//	(,..(),"",": ");
//	(,..(),", ",".: ");
	
	 = ("");
	//=((..(())));
	=" "+..(());
	=(".");
	=(".");
	.(.); 
	.(..);
	=((.));
	_ = .;
	 = .();
	=("");
//	 =2 
//		.("1");  		
//	 =1 	
		.(" /");  	
//	 =5 	
//		.(" / ");  	
//	 =4 	
//		.("");
//	
//		.("2");  			
//	;	

	.("");
	.(9,9);
	.("_");
	//=("."); 
	=0;
	=0;
	=0;
	=0;
	=0; 
	=0;
	=0; 
	=0;                                                                         

	=.();
	 = "";
// ________________________  __________________________________
	 ="//{{(1)
	| ;
	| ;
	| =";
     = "" ;
     = "" ;       
    =""; 
    =""; 
    _="";
    ="";  
    =""; 
    ="";
    = "";
	= "";
	= "";
	= "";
	="";
	="";
	="";  
	="";
	="";
	="";
	="";
	 = 0;
  
	2 = (".");
	3 = (".");
    ();
	.();
     ()>0  
    	=.();
    	=+1;
          <>  
	       	 =  ;
    		 = 2.();
			  =0   ;	; //  
			3.(2.());
        	=+?(="","",",") + "." + +".";	
 			  = 2   
				 =(3,"");
				  <> ""  = +  ?(="","",",") + "." + +"."+ ; ;
				 =(3,"");
				  <> ""  = +  ?(="","",",") + "." + +"."+; ;
				 =(3,"");
				  <> ""     =  +  ?(="","",",") + "." + +"."+ ; ;
				 =(3,"");
				  <> ""     =  +  ?(="","",",") + "." + +"."+ ; ;
	             =(3,"");
				  <> ""  _ = _+  ?(_="","",",") + "." + +"."+ ; ;
				 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
               	 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
               	 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
         	
				 =(3,"");
				  <> ""  = +  ?(="","",",") + "." + +"."+ ; ;
				 =(3,"");
				  <> ""  = +  ?(="","",",") + "." + +"."+ ; ;
				 =(3,"");
				  <> ""     =  +  ?(="","",",") + "." + +"."+ ;;
                 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
                 =(3,"");
				  <> ""  _ = _+  ?(_="","",",") + "." + +"."+ ; ;
                 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
               	 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
               	 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
    		;         
			 =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
			 =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
			 =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
			 =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
   			 =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
             =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;

             =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
             =(3,"");
			  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
            			
		;		
		.(.());
  	;
	 =+  +";
	| = " +  + ";
	| = " +  + ";
	|= " +  + ";
	| = " +   + ";
	| = " +  + ";
	| = " +  + ";"+
	?(_<>"","
	| = " + _ + ";","")+"
	| = " +  + ";  
	| = " +  + ";
	| = " +  + "; 
	| = " +  + ";
	|=" +  + ";
	|=" +  + ";"+
	?(<>"","
	|="++";","")+
	?(<>"","
	|="+ +";","")+"
	|    ;  
	|    ;   
	|  = ();	
	|(  );
	|"//}}
	;                   

 //  ();

     .() = 0 
		("  ");
		;
	;  
// ________________________ _______________________________________
	 .("") = 1 
	   		 =..(.);  
            =.;
    		 .("") = 1 
			    =.;
			     _<>""  
			    	 .=.. 
	   					 =/(1+*0.01);	
					;
	   		    ;
	   			=0; =0;
	   	         <>""  
	   	        	=?(=0,0,.*./);
            		=?(=0,0,.*./);
            	;	
            	=+; 
				=+; 

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

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

//_____________________________________________________________________________ 
 ()   
	=("");
	();
	 ()>0       
	   .();
	   .=();   
   	   _ = .N_;  
	    = .;
       = .("");   
       = ?(=2,.,.);
	   .();
	;	
  
//_____________________________________________________________________________ 

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

//_____________________________________________________________________________ 
 ()
	 (,0);

	
//_____________________________________________________________________________

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


//_____________________________________________________________________________ 
 (,)
   , , , ;
     =("");
    1 =("");
    2 =("");
   	=(".");
   	=(".");
	=(".");

	2 = (".");
	3 = (".");  
	// ________________________  __________________________________
	 ="//{{(1)
	| ;
	| ;";
	
	 =;


     = 0;
    ="";="";="";=""; =""; ="";
    ="";="";  ="";=""; ="";
   	 = ""; 	="";   ="";	="";

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

	=+"
	|="++";	
	| = "++";
	| = " +  + ";
	| = "++";
	| = "++";
	| = "++";
	| = "++";"+
	?(<>"","
	|_ ="++";","")+"
	|="+ +";
	|="+ +";
	| ;
	|  ;
	|    .N_;	
	|  = ();	
	| _ = ();	
	| _ = ();
	| _ = ();
	|  = ();"+
	?(<>"","
	| __ = (_);","")+"
	|(  );
	|"//}}
	; 
	
	=+" 
	|="++";	
	| = " +  + ";
	|="+ +";"+
	?(<>"","
	|="++";","")+
	?(<>"","
	|="+ +";","")+
	?(<>"","
	|="++";","")+"
    |    ;
	|(  );
	|"//}}
	;
	//|(("++")  (=));

 //   ();
//_________________________ ________________________________________
	 .() = 0 
		("  ");
		;
	;  
   	=(".");
	.("_");
	=.();
	 =..();  
 
	 .("")=1  
       	 =1  
			.();
		
			 .()<>1 
				(+"  !!");
				;
			
				();
			;
		;
		.(..);
	     =2  // 	
			. = ..();
			. = ;
			. = ;
			.=" "+.+"  "+.
		 // 	
        	. =;
			. =  .;
			. = .;
			.=" "+.+"  "+.
		;
		=.;
		="";
		1="";		
		1=+"(=);";
		=0; =0;=0;
		1.(1);
		 1.("")=1 
   			=+?(="","",?(1.="","",", "))+(1.);
   			 <>"" 
   				=+1.;
   				=+1.;
   				=+1.;
   			;	
        ;	
   		.=;
   		.=;
   		.=;
   		.=;
        .();
		. = ;  
		.20 = ._ + ._; 
		. = ._;
		.= ._;
 		 .("")=1  
			 .("")<>1 
				.();
				. = .;
				  .=0    
					.=0;
					
					. = ._/.;
				;	
				. = .;
				. = ._;
				. = ?(<>"",.__,.*.**0.01);
				. = ._ +.;  
			; 
			 .("")=1 
				=("."+..());
				.( .);
//-- -   -       -  --
				 =1 	
						 (.)<>"" 
					 		 .(.)=1  .(0); ; 	
					 	;	
						.=.();
						.(); 
				;	
			;	
		;
		.();
	     =1 
	   		 =2 
   				=.();
   				();
   			;	
   		;
    ;
	
     
//_____________________________________________________________________________ 
 ()
	=(".");
	(,1);
     
 //_____________________________________________________________________________ 
 ()   
	   	 (=2)  (()=1) 
         ("   -!");
        ;
	    ; 
    =("");                 
    =("."); 
//    =("._");
    .("_");
    2 = (".");
	3 = (".");  
	// ________________________  __________________________________
   	="//{{(qq)
		| ;
		| ;"
        ;
      	 = 0;
    	="";="";="";=""; ="";=""; ="";
   		 = "";="";
		.();
   		();
    	 ()>0  
    		=.();
    		=+1;
        	  <>  
	       		 =  ;
				 = 2.();
				  =0   ;	; //  
				3.(2.());
        		=+?(="","",",") + "." + +".";	
				 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
           		 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
           		 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
				 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
				 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;
            	 =(3,"");
				  <> ""   = +  ?(="","",",") + "." + +"."+ ; ;

			;		
			.(.());
    	;

		=+"
		| = "+ +";
		| = "++";
		| = "++";
		| = "++"; 
		|="+ +";
		| = " +  + ";
		| = " +  + ";
		| ; 
		| ;	
		| _ = ();	
		| _ = ();
		| _ = ();
		|(  );
		|"//}}
		;

  ();

     =(""); 
	 .() = 0 
		("  ");
		;
	;  

	 .("")=1  
		 =2 
			.();
			
			.(.);
		;	
      	.("");
//	(); 
    	   =1  
			.("_");
			Ok=1;
			 Ok=1       
				 .("")=0 
	       			Ok=0;
					
					1=.;
					1=.; 
					1=(._+._,"14.2-'");
					1=(._+._+._,"14.2-'");
					 .("")=0 
						2="";
						2="";
						3="";
						3="";
						2="";
						3=""; 
						2="";
						3="";
       	 				.("_");
						Ok=0;
						
						2=.;
						2=.; 
						2=(._+._,"14.2-'");
						2=(._+._+._,"14.2-'");
						 .("")=0 
							3="";
							3="";  
							3="";
							3="";
      	    				.("_");
	        	  			Ok=0;
						
	       					3=.;
							3=.;
							3=(._+._,"14.2-'");
							3=(._+._+._,"14.2-'");
							.("_");					
						;	
					;		
				;	
			;	
		     
		    .("_8"); 
	    ;	
		.("_");
		.();
		=0;
		 .()=1  
			=+1;                  
			 = ....(.);
			.("");
		;   
		 . >0 
			.("_4");
		;   
		 . >0 
			.("_11");
		; 

		.("");
		.();
	;	
		
	.(0,0,0,0,"");
	.(0);
	.(" -","");

	
//_____________________________________________________________________________  
 ()   
		 (,0);

 
=0;
 = ("");
