** END HEADER -- do not remove this line
//
// Generated on 25.02.2017
//
class inveDATAMODULE of DATAMODULE
this.VATRATE = new QUERY(this)
with (this.VATRATE)
left = 138.0
top = 19.0
database = mcompany.db
sql = 'select recno,tax,vat,sat from "vatrate.dbf"'
requestlive = true
active = true
endwith
with (this.VATRATE.rowset)
indexName = "TAX"
autoNullFields = false
endwith
/*this.INV = new QUERY(this)
with (this.INV)
left = 446.0
top = 23.0
sql = 'Select * from "'+mcompany.direct+'\inv'+mcompany.fyear+'.dbf"'
requestlive = true
active = true
endwith
with (this.INV.rowset)
indexName = "RECNO"
autoNullFields = false
endwith*/
this.INVE = new QUERY(this)
with (this.INVE)
onOpen = class::INVE_ONOPEN
left = 291.0
top = 22.0
database = mcompany.db
sql = 'Select * from "inve'+mcompany.fyear+'.dbf"'
//requestlive = false
active = true
endwith
with (this.INVE.rowset)
indexName = "RECNO"
with (fields["tax"])
lookupRowset = form.vatrate.rowset
endwith
with (fields["full"])
beforeGetValue = {||iif(this.parent["company"].value#null ,ltrim(this.parent["company"].value),"1") ;
+iif(this.parent["item"].value#null , ltrim(this.parent["item"].value), "1" ) ;
+iif(this.parent["descrip"].value#null , ltrim(this.parent["descrip"].value), "1" );
+iif(this.parent["bcode"].value#null , ltrim(this.parent["bcode"].value), "1" )}
endwith
with (fields["nett"])
beforegetvalue = {||iif(this.parent["offerp"].value >0,this.parent["offerp"].value ,round(this.parent["mrp"].value*(1-this.parent["disc"].value/100),0))}
endwith
autoNullFields = false
endwith
this.rapid = new QUERY(this)
with (this.rapid)
left = 251.0
top = 22.0
database = mcompany.db
sql = 'SELECT rapid.key_st, rapid.company, rapid.item , rapid.descrip , inve.recno FROM "rapid" INNER JOIN "inve'+mcompany.fyear+'" inve ON (rapid.company=inve.Company AND rapid.item=inve.item AND rapid.descrip=inve.descrip)'
requestlive = false
//?sql
active = true
endwith
with (this.rapid.rowset)
autoNullFields = false
endwith
function inve_onOpen()
g = new field()
g.fieldname = "full"
this.rowset.fields.add(g)
g.beforegetvalue = {||iif(this.parent["company"].value#null ,ltrim(this.parent["company"].value),"1") ;
+iif(this.parent["item"].value#null , ltrim(this.parent["item"].value), "1" ) ;
+iif(this.parent["descrip"].value#null , ltrim(this.parent["descrip"].value), "1" );
+iif(this.parent["bcode"].value#null , ltrim(this.parent["bcode"].value), "1" )}
h = new field()
h.fieldname = "nett"
this.rowset.fields.add(h)
h.beforegetvalue = {||iif(this.parent["offerp"].value >0,this.parent["offerp"].value ,round(this.parent["mrp"].value*(1-this.parent["disc"].value/100),0))}
return
endclass
Warning: Unknown: write failed: No space left on device (28) in Unknown on line 0
Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in Unknown on line 0