home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00078_Feldabfrage.ls < prev    next >
Encoding:
Text File  |  1997-02-10  |  3.1 KB  |  99 lines
  1. on FELD1
  2.   put the value of field "stk1" * 69.0 into field "lagerA1"
  3.   repeat with a = 1 to the number of chars in field "lagerA1"
  4.     if char a of field "lagerA1" = "." then
  5.       put "," after field "lagerB1"
  6.       next repeat
  7.     end if
  8.     put char a of field "lagerA1" after field "lagerB1"
  9.   end repeat
  10.   put field "lagerB1" & "0 DM" into field "gesmtprx1"
  11.   delete field "lagerb1"
  12. end
  13.  
  14. on FELD2
  15.   put the value of field "stk2" * 199.0 into field "lagerA2"
  16.   repeat with a = 1 to the number of chars in field "lagerA2"
  17.     if char a of field "lagerA2" = "." then
  18.       put "," after field "lagerB2"
  19.       next repeat
  20.     end if
  21.     put char a of field "lagerA2" after field "lagerB2"
  22.   end repeat
  23.   put field "lagerB2" & "0 DM" into field "gesmtprx2"
  24.   delete field "lagerb2"
  25. end
  26.  
  27. on FELD3
  28.   put the value of field "stk3" * 12.40000000000000036 into field "lagerA3"
  29.   repeat with a = 1 to the number of chars in field "lagerA3"
  30.     if char a of field "lagerA3" = "." then
  31.       put "," after field "lagerB3"
  32.       next repeat
  33.     end if
  34.     put char a of field "lagerA3" after field "lagerB3"
  35.   end repeat
  36.   put field "lagerB3" & "0 DM" into field "gesmtprx3"
  37.   delete field "lagerb3"
  38. end
  39.  
  40. on FELD4
  41.   put the value of field "stk4" * 9.60000000000000142 into field "lagerA4"
  42.   repeat with a = 1 to the number of chars in field "lagerA4"
  43.     if char a of field "lagerA4" = "." then
  44.       put "," after field "lagerB4"
  45.       next repeat
  46.     end if
  47.     put char a of field "lagerA4" after field "lagerB4"
  48.   end repeat
  49.   put field "lagerB4" & "0 DM" into field "gesmtprx4"
  50.   delete field "lagerb4"
  51. end
  52.  
  53. on FELD5
  54.   put the value of field "stk5" * 35.0 into field "lagerA5"
  55.   repeat with a = 1 to the number of chars in field "lagerA5"
  56.     if char a of field "lagerA5" = "." then
  57.       put "," after field "lagerB5"
  58.       next repeat
  59.     end if
  60.     put char a of field "lagerA5" after field "lagerB5"
  61.   end repeat
  62.   put field "lagerB5" & "0 DM" into field "gesmtprx5"
  63.   delete field "lagerb5"
  64. end
  65.  
  66. on FELD6
  67.   put the value of field "stk6" * 29.0 into field "lagerA6"
  68.   repeat with a = 1 to the number of chars in field "lagerA6"
  69.     if char a of field "lagerA6" = "." then
  70.       put "," after field "lagerB6"
  71.       next repeat
  72.     end if
  73.     put char a of field "lagerA6" after field "lagerB6"
  74.   end repeat
  75.   put field "lagerB6" & "0 DM" into field "gesmtprx6"
  76.   delete field "lagerb6"
  77. end
  78.  
  79. on summe
  80.   global summe
  81.   set i to the value of field "stk1" * 69.0
  82.   set ii to the value of field "stk2" * 199.0
  83.   set iii to the value of field "stk3" * 12.40000000000000036
  84.   set iv to the value of field "stk4" * 9.60000000000000142
  85.   set v to the value of field "stk5" * 35.0
  86.   set vi to the value of field "stk6" * 29.0
  87.   set summe to i + ii + iii + iv + v + vi
  88.   put summe into field "SummelagerA"
  89.   repeat with a = 1 to the number of chars in field "SummelagerA"
  90.     if char a of field "SummelagerA" = "." then
  91.       put "," after field "SummelagerB"
  92.       next repeat
  93.     end if
  94.     put char a of field "SummelagerA" after field "SummelagerB"
  95.   end repeat
  96.   put field "SummelagerB" & "0 DM" into field "summe"
  97.   delete field "SummelagerB"
  98. end
  99.