var CSTTCD as String
var vCnt As Int
var vLoop As Int
var Admin as Money
var Delivery as Money
var EHF as Money
var vMyTotal As Double
var LNET1 as Money
var vTPNET as Money
var vComm as Money
var vLEO as Double
var vSup2 as Double
var vTPGRS as Money
var vGRSSUB1 as Money
var vTPRICE as Money

vTPRICE = TPRICE0
vGRSSUB1 = @FORMFIELDVALUE("CUSTOMER","GRSSUB10",0)
Admin = @FORMFIELDVALUE("CUSTOMER","Admin0",0)
EHF = @FORMFIELDVALUE("CUSTOMER","EHF0",0)
Delivery = @FORMFIELDVALUE("CUSTOMER","Delivery",0)
vTPGRS = vGRSSUB1 - (Admin + Delivery + EHF)
vTPNET = @FORMFIELDVALUE("CUSTOMER","TPRICEALL1",0)
vSup2 = vTPRICE / vTPGRS
vLEO = LE0
LNET1 =  vTPNET * vSUP2
TPGRS = vTPGRS
TPNET = vTPNET
Comm = vLEO * LNET1
LNET = LNET1
SUP2 = vSUP2
GRSPRF = LNET - TOTALCOST - COMM