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