>DEFINE CLASS tdbflink AS tmessagelink > > saveenvtries = 0 > */BarryT 07/17/2019 09:46:32 AM START > discode = "" > discount = 0.00 > *\BarryT 07/17/2019 09:46:35 AM END > Name = "tdbflink" > > PROCEDURE set > *-- we are on a new order, so create what we need, and save the info that we want > this.setupdata() > *-- Create all the necessary line items. > this.createlines() > > ENDPROC > > > PROCEDURE setupdata > *-- Setupdata() > *-- get the standard stuff > > */BarryT 07-17-2019 11:22:44 AM START > THIS.discode = Alltrim(a_soimp.discode) > THIS.discount = a_soimp.disc > *\BarryT 07-17-2019 11:22:45 AM END > > ENDPROC > > > PROCEDURE createlines > *-- Create lines for each of the order lines in this file. > > */BarryT 07-17-2019 12:37:17 PM START > lo_line.discount = a_soimp.disc > lo_line.discode = a_soimp.discode > *\BarryT 07-17-2019 12:37:19 PM END > > ENDPROC > >ENDDEFINE >>