Subject Changing 2019 address
From Bob McKinney <bmckinmey721@gmail.com>
Date Thu, 07 Oct 2021 16:50:10 -0400
Newsgroups dbase.getting-started


Hi All: I'm Testing DB2019 w/w10. I'm trying to use existing 2.8 form's, dmd's, etc.
I already know they will need adjusting, addresses, etc.  I'm working with the simplest ones first.  If I can just get one to work, who knows if those adjustments will work for all.

    When I attempt to open an existing datamodule created w/db2.8, I get the error msg "File does not exist", which means db can't find it.  The current address for BMCustom (My Controls folder) is [This PC > Windows(C) > C > Users > Bobnbie > BSSBiz > BMCustom.]
Where and how do I tell db2019 where "BMCustom" is located?

     I'm sure there will be other adjustments but lets tackle one problem at a time.

    If I can get this to work, I will then be be doing some "Path shortening".  Any help to solve
my problem would be greatly appreciated.............Bob

// Generated on 07/22/2011
//
class NewSalesDATAMODULE ofBASECDATAMODULEfrom :BMCustom:base.cdm // Here's the problem
   with (this.BobsBiz)
      left = 19.0
      top = 135.0
      width = 115.0
      height = 112.0
   endwith

   this.CUSTOMER1 = new QUERY()
   this.CUSTOMER1.parent = this
   with (this.CUSTOMER1)
      left = 158.0
      top = 42.0
      width = 114.0
      height = 140.0
      database = form.BobsBiz
      sql = 'Select * from "customer"'
      active = true
   endwith

   this.INVOICE1 = new QUERY()
   this.INVOICE1.parent = this
   with (this.INVOICE1)
      left = 322.0
      top = 42.0
      width = 114.0
      height = 140.0
      database = form.BobsBiz
      sql = 'Select * from "invoice"'
      active = true
   endwith

   with (this.INVOICE1.rowset)
      indexName = "CUSTNO"
      masterRowset = form.customer1.rowset
      masterFields = "CUSTNO"
   endwith

   this.LINEITEM1 = new QUERY()
   this.LINEITEM1.parent = this
   with (this.LINEITEM1)
      left = 503.0
      top = 46.0
      width = 114.0
      height = 138.0
      database = form.BobsBiz
      sql = "Select * from " + '"' + "lineitem" + '"' + " where partNumber not like 'S%'"
      active = true
   endwith

   with (this.LINEITEM1.rowset)
      indexName = "INVOICENO"
      masterRowset = form.invoice1.rowset
      masterFields = "InvoiceNumber"
   endwith

   this.NEWSALES1 = new QUERY()
   this.NEWSALES1.parent = this
   with (this.NEWSALES1)
      left = 676.0
      top = 45.0
      width = 114.0
      height = 134.0
      database = form.BobsBiz
      sql = 'Select * from "newsales"'
      active = true
   endwith

   with (this.NEWSALES1.rowset)
      indexName = "INVOICENO"
      masterRowset = form.invoice1.rowset
      masterFields = "InvoiceNumber"
   endwith


endclass