Re: Переход на 3й диалект

Mon, 21 Jan 2008 06:49:48 -0800 


Dmitriy A. Beloshistov wrote:
1.000/3.000 - дробная. 


  Кстати, о дробной. А не сочти за труд, кинь сюда результат селекта 
вот этой процедурки, выполненной на современном сервере:


Create Procedure Atomuliadalato

Returns (Temp Numeric (15,2), S SmallInt, N92 Numeric (9,2), N95 Numeric 
(9,5), D Numeric (15,2))

As
Declare Variable M3 Numeric (9,2);
Declare Variable STO Smallint;
Declare Variable  days Smallint;
Declare Variable  hours Smallint;
Declare Variable  PROC_STO Numeric(9,2);
Declare Variable  PRICE_K Numeric(9,5);
Begin
   M3=1.22;
   STO=1;
   days=31;
   hours=8;
   PROC_STO=1.00;
   PRICE_K=1.11666;
   S=STO*Days;
   Suspend;
   S=S*hours;
   Suspend;
   N92=S*M3;
   Suspend;
   N92=N92*PROC_STO;
   Suspend;
   N95=N92*PRICE_K;
   Suspend;
   D=N95;
   temp=STO*days*hours*M3*PROC_STO*PRICE_K;
   Suspend;
   temp=null; S=Null; N92=Null; N95=Null; D=Null;
   Suspend;
   S=STO*Days;
   Suspend;
   S=S*hours;
   Suspend;
   N92=S*M3;
   Suspend;
   N95=N92*PRICE_K;
   Suspend;
   N92=N95*PROC_STO;
   D=N92;
   Suspend;
   temp=STO*days*hours*M3*PRICE_K*PROC_STO;
   Suspend;
End

--
Regards. Ded.
























					Ответить