SHARE
TWEET

Untitled

a guest Jun 9th, 2017 139 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub object1020()
  2. Dim job as Integer
  3. Dim boxes as Float
  4. Dim skids as Float
  5. Dim overs as Float
  6. Dim labels as Float
  7. Dim books as Integer
  8. Dim partial as Float
  9. Dim boxespart as Float
  10.  
  11.     job = val(field1006.Text)
  12.     books = job
  13.     overs = val(field1031.text) * books
  14.     boxes = (books + overs) / val(field1012.text)
  15.     skids = boxes / val(field1010.Text)
  16.     field1014.Text = str(boxes)
  17.     field1004.text = str(skids)
  18.     field1034.Text = str(overs)
  19.     partial = skids - val(field1047.Text)
  20.     field1049.Text = str(partial)
  21.     boxespart = val(field1049.Text) * val(field1010.Text)
  22.     field1051.Text = str(boxespart)
  23.     labels = boxes * val(field1036.Text)
  24.     field1008.Text = str(labels)
  25. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top