 ;       
//*******************************************
 ()    
 =1 
	2=();
	1=(2);

	 =1 
		1=(2);
		2=(2);
	 //=1
		1=(2);
		2=(2);
	;
;	
   
//*******************************************
 ()
	//.("",2);
	.("");	
	 (=0)  (=0) 
		 = 1;
		 = 0;
		 = 0;                    
	; 
	2=();
	();


//*******************************************
 () 
 ;
 A,B,C,D,E,F; 
 ;     
 [13],[4];
 ;

	 ((.)) = 0  
	     = "";
    	();
		("      !",40);
		 (,"    ( )",2,0) = 1 
			. = ;
		 
			 ~;
		;
	;      
	 (=0)  (=0)  (=0)  
		();
		("    !",40);
		 ~;
	;
	 ()<1  
		();
		("    !",40);
		 ~;
	;
	 =1  ="t";
		 =1  ="m";
		 ="k";
	;
	 (2) <= 9  1 = "0" + (2)  1 = (2) ;
	 (2) <= 9  1 = "0" + (2)  1 = (2) ;
	 = . + 1 + 1 + "o" +  + ".dbf";
	 = "C:\Svod_buh\";
	 .((,()-1))=0  
		.();	     
	;
	 =  + ;
	.();
	 = ("XBase");
		.("ID",2,7, );
		.("SND",1,15,2);
		.("SNK",1,15,2);
		.("DO",1,15,2);
		.("KO",1,15,2);
		.("SKD",1,15,2);
		.("SKK",1,15,2);
	.();

	 = ("");
    .(..);
	.(1,0);
    .(1, 2);
    .(1,,,); 
	 .() = 1 
	 = ..;
	.();
	.ID = ;
	.SND = .(1);
	.SNK = .(1);
	.DO = .(1);
	.KO = .(1);
	.SKD = .(1);
	.SKK = .(1);
    .();
	;
	.();       

//   	   
	1 = . + 1 + 1 + "h" +  + ".dbf";
	 =  + 1;
	.();

	 = ("XBase");
		.("ID1",2,7, );
		.("ID2",2,7,);
		.("Oborot",1,15,2);
	.();

	 = ("");
    .(..);
	.(1,1);
    .(1, 2,,,,2,,1);
    .(); 
	 .() = 1 
     = ..;
	.();
    	 .() = 1 
         = ..;
         .(1)>0 
        .();
		.ID1 = ;
		.ID2 = ;
		.Oborot = .(1);
    	.();
        ;
    	;
	;
	.();      
	
	();
                                              
     (()) <= 9  1 = "0" + (())  1 = (()) ;
	 (()) <= 9  1 = "0" + (())  1 = (()) ;
	2 = . + 1+ 1+ "p1" + ".dbf";
	 = "C:\Svod_buh\";
	 =  + 2;
	 = ("XBase");
	.("Counter",1,15, );
		
	.();

	.();
	.Counter = ();
	.();			
	.();       
        
//   
	 (2) <= 9  1 = "0" + (2)  1 = (2) ;
	 (2) <= 9  1 = "0" + (2)  1 = (2) ;
	3 = . + 1 + 1 + "d" +  + ".dbf";
	 = "C:\Svod_buh\";
	
	 =  + 3;
	
	.();
	 .()=0   //**0**
		 = ("XBase");
			.("ID",1,7, );
			.("Name",2,25, );
			.("Schet",2,7, );
			.("SND",1,15,2);
			.("SNK",1,15,2);
			.("DO",1,15,2);
			.("KO",1,15,2);
			.("SKD",1,15,2);
			.("SKK",1,15,2);
		.();
	
		 = ("");
	    .(..);
		.(1,0);        
		=(".");
		[1]="90001";
		[2]="90002";
		[3]="90003";
		[4]="90006";
	    [1]="60"; 
	    [2]="61";
	    [3]="62";
	    [4]="64.01";
	    [5]="76"; 
	    [6]="45.05";
	    [7]="45.06";
	    [8]="45.07";
	    [9]="45.11";
	    [10]="45.12";
	    [11]="45.13";
	    [12]="45.14";
	    [13]="45.15";
	    
	
	     =1  4   //**1**
			.([],0);
			.(1);
			.(.,.(),1);
			.(1, 2,,,,,,5);
		    .(1);     
		    
		     .(1)=1  //**2**
		    	=.(1);
		    	=.;
		    	=.;      
		    	 .(1,0,0,)=1  //**1**
			    	
			    	 =1  13  //**3**
				    	 .(0,([]))=1  //**2**
					    	="";
					    	=0;
					    	=0;
					    	=0;
					    	=0;
					    	=0;
					    	=0;
					    	
					    	=.();
					    	=.();
					    	=.();
					    	=.();
					    	=.();
					    	=.();
				             (<>0) or (<>0) or (<>0) or (<>0) or (<>0) or (<>0)  //**3**
						    	.();
								.ID = ;
								.Schet = [];
								.Name = ;
								.SND = ;
								.SNK = ;
								.DO = ;
								.KO = ;
								.SKD = ;
								.SKK = ;
							    .();
							     ([],2)="45"  //**4**
							    	=""; 
							    	=0;
							    	=0;
							    	=0;
							    	=0;
							    	=0;
							    	=0;
							    	=.();
							    	=.();
							    	=.();
							    	=.();
							    	=.();
							    	=.();
						             (<>0) or (<>0) or (<>0) or (<>0) or (<>0) or (<>0)  //**5**
								    	.();
										.ID = ;
										.Schet = [] + "_";
										.Name = ;
										.SND = ;
										.SNK = ;
										.DO = ;
										.KO = ;
										.SKD = ;
										.SKK = ;
									    .();
								    ; //**5**
							    ; //**4**
							; //**3**
						; //**2**
			        ; //**3** 
				;	//**1**    	
			; //**2**
		; //**1**
	
		.();       

	 (2) <= 9  1 = "0" + (2)  1 = (2) ;
	 (2) <= 9  1 = "0" + (2)  1 = (2) ;
	4 = . + 1 + 1 + "p" +  + ".dbf";
	 = "C:\Svod_buh\";
	
	 =  + 4;
	
	.();
	 .()=0   //**0**
		 = ("XBase");
			.("ID",1,7, );
			.("Name",2,25, );
			.("SND",1,15,2);
			.("SNK",1,15,2);
			.("DO",1,15,2);
			.("KO",1,15,2);
			.("SKD",1,15,2);
			.("SKK",1,15,2);
		.();
	
		 = ("");
	    .(..);
		
		.(.,,1);
		.(1, 2,("71"),,,,,1);
		.();     
		    
	     .()=1  //**0**
	    	=.();
        	=.;
	    	=.;      
	    	.();
			.ID = ;
			.Name = ;
			.SND = .();
			.SNK = .();
			.DO = .();
			.KO = .();
			.SKD = .();
			.SKK = .();
		    .();
		; //**0**
	; //**0**
	
		.();       
	    	
		();
	    ("   "++", "+1+", "+2+", "+3+"  "+4+"   "++" !!!",40);
	
		("     "++3+"."+LineBreak+ "    ,  ,  .");
	; //**0**
~:

//*******************************************
 () //  
	1 = ();
	2 = ();
             
//*******************************************
 () //    
	 (())=1   (()) + ", "; ;
	 (())=2   (()) + ", "; ;
	 (())=3   (()) + ", "; ;
	 (())=4   (()) + ", "; ;
	 (())=5   (()) + ", "; ;
	 (())=6   (()) + ", "; ;
	 (())=7   (()) + ", "; ;           
 
//*******************************************
 () //   
	2=();	
	1=(2);
	 = 1;
	 = 0;
	 = 0;
             
//*******************************************
 () //    
	1=(2);
	2=(2);
	 = 1;
	 = 0;
	 = 0;
             
//*******************************************
//*******************************************
 () //    
	1=(2);
	2=(2);	
	 = 1;
	 = 0;
	 = 0;
             
//*******************************************

