Subject Re: Menu problem still plus others
From Tony Hughes <tamarak1@bigpond.com>
Date Fri, 07 Aug 2020 02:33:54 -0400
Newsgroups dbase.getting-started

Sorry all trying to help, but I was trying yo keep things compacted. I will know better next time.

What I can not understand is.

I executed my "Batch" program / file / code at least 30 times and they all executed as expected, I think perfect is too strong a term, but you get the picture.
I did this to test the "Mathematics" of the coding to check for errors. It printed, deleted the "Batch.Dbf" as wanted with "Empty Table" and all was good.

Then on the say ?? 31 attempt it came up with "Batch.dbf" does not exist ?? If that is not some type of "Bug" well then I have no idea at all. I will be happy to share the code with the world if anyone can assist. My apologies Akshat, entirely accidental on my part. Harping on, the same happened with the menu forms. No change by me and then they do not execute any more" Maybe I should download a fresh copy pf dBase - I am using Windows 10 Pro combined with the latest version of dBase 12.1

Tony Hughes    








Lee Grant Wrote:

> Tony,
 >
> I believe that was Akshat that was offering to talk to you by viewer/email.
 >
> I'm not sure what you're doing here but I can say from these two code
> snippets you gave us that:
 >
> 1. - You are not closing your classes with endclass, so when we copy and
> paste this to see your form, or try to, it errors out that first.
 >
> 2. - Both of the Forms attempt to use class:FORM_ONOPEN and yet, there
> is no code in what you've listed that shows a method to do FORM_ONOPEN.
 >
> I say this in that obviously you're calling a method for execution that:
 >
> a) Has No named method in the code you show
 >
> b) Has no external file referenced in the code that could have been used
 >      ie. No "set procedure to" external files.
 >
> Based on these two issues, how is it possible your program is running at
> all?
 >
> Lee
 >
> Can't diagnose what you haven't included, because it won't run. This
> is...not helpful.  Unless your code is a secret, at which point, no one
> CAN help you by the nature of your security reasons, you really should
> provide more to help with the trouble shooting.
 >
> On 8/6/2020 1:14 AM, Tony Hughes wrote:
 > > Yes Mervy - I would be happy to converse with you on on one if I do not drive you nuts ??
 > >
> > Tony Hughes - tamarak1@bigpond.com
 > >
> >
> > THIS CODE EXECUTES ??
 > >
> > Mbc Menu As below - This code executes OK ??
 > >
> > ** END HEADER -- do not remove this line
 > > //
 > > // Generated on 06/08/2020
 > > //
 > > parameter bModal
 > > local f
 > > f = new mbcindexForm()
 > > if (bModal)
 > >     f.mdi = false // ensure not MDI
 > >     f.readModal()
 > > else
 > >     f.open()
 > > endif
 > >
> > class mbcindexForm of FORM
 > >     with (this)
 > >        onOpen = class::FORM_ONOPEN
 > >        metric = 6        // Pixels
 > >        height = 500.0
 > >        left = 406.0
 > >        top = 6.0
 > >        width = 563.0
 > >        text = "MBC Menu"
 > >     endwith
 > >
> >     this.DATABASE1 = new DATABASE(this)
 > >     with (this.DATABASE1)
 > >        left = 247.0
 > >        top = 223.0
 > >        width = 53.0
 > >        height = 37.0
 > >     endwith
 > >
> >     this.ADMINISTRATION1 = new QUERY(this)
 > >     with (this.ADMINISTRATION1)
 > >        left = 476.0
 > >        top = 27.0
 > >        width = 84.0
 > >        height = 37.0
 > >        sql = 'select * from "C:\Users\Anthony Hughes\Desktop\Mbcdisplay\Administration.DBF"'
 > >        active = true
 > >     endwith
 > >
> >     this.QUERY1 = new QUERY(this)
 > >     with (this.QUERY1)
 > >        left = 241.0
 > >        top = 96.0
 > >        width = 39.0
 > >        height = 37.0
 > >        database = form.database1
 > >     endwith
 > >
> >     this.PUSHBUTTON1 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON1)
 > >        onClick = class::PUSHBUTTON1_ONCLICK
 > >        height = 24.0
 > >        left = 42.0
 > >        top = 270.0
 > >        width = 107.0
 > >        text = "TV Display A- Z"
 > >     endwith
 > >
> >     this.PUSHBUTTON2 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON2)
 > >        onClick = class::PUSHBUTTON2_ONCLICK
 > >        height = 24.0
 > >        left = 42.0
 > >        top = 315.0
 > >        width = 107.0
 > >        text = "Locker Room"
 > >     endwith
 > >
> >     this.PUSHBUTTON3 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON3)
 > >        onClick = class::PUSHBUTTON3_ONCLICK
 > >        height = 24.0
 > >        left = 42.0
 > >        top = 369.0
 > >        width = 107.0
 > >        text = "Maintain"
 > >     endwith
 > >
> >     this.TEXTLABEL1 = new TEXTLABEL(this)
 > >     with (this.TEXTLABEL1)
 > >        height = 29.0
 > >        left = 105.0
 > >        top = 18.0
 > >        width = 332.0
 > >        text = "MEREWETHER BOWLING CLUB LIMITED"
 > >        colorNormal = "Red/0xf0f0f0"
 > >        fontSize = 13.0
 > >        fontBold = true
 > >        fontItalic = true
 > >        fontUnderline = true
 > >     endwith
 > >
> >     this.IMAGE1 = new IMAGE(this)
 > >     with (this.IMAGE1)
 > >        height = 144.0
 > >        left = 35.0
 > >        top = 63.0
 > >        width = 175.0
 > >        dataSource = 'FILENAME "C:\Users\Anthony Hughes\Desktop\AllproTest\alproicon.jpg"'
 > >        borderStyle = 1        // Raised
 > >     endwith
 > >
> >     this.SPINBOX1 = new SPINBOX(this)
 > >     with (this.SPINBOX1)
 > >        onChange = class::SPINBOX1_ONCHANGE
 > >        dataLink = form.administration1.rowset.fields["displaytime"]
 > >        height = 22.0
 > >        left = 203.0
 > >        top = 270.0
 > >        width = 56.0
 > >        rangeMax = 100
 > >        rangeMin = 1
 > >     endwith
 > >
> >     this.SPINBOX2 = new SPINBOX(this)
 > >     with (this.SPINBOX2)
 > >        onChange = class::SPINBOX2_ONCHANGE
 > >        dataLink = form.administration1.rowset.fields["duration"]
 > >        height = 22.0
 > >        left = 203.0
 > >        top = 324.0
 > >        width = 56.0
 > >        rangeMax = 100
 > >        rangeMin = 1
 > >     endwith
 > >
> >     this.TEXTLABEL2 = new TEXTLABEL(this)
 > >     with (this.TEXTLABEL2)
 > >        height = 22.0
 > >        left = 287.0
 > >        top = 270.0
 > >        width = 175.0
 > >        text = "Set Display Time (Seconds)"
 > >     endwith
 > >
> >     this.TEXTLABEL3 = new TEXTLABEL(this)
 > >     with (this.TEXTLABEL3)
 > >        height = 22.0
 > >        left = 284.0
 > >        top = 326.0
 > >        width = 122.0
 > >        text = "Set Duration (Hours)"
 > >     endwith
 > >
> >     this.DATETIMEPICKER1 = new DATETIMEPICKER(this)
 > >     with (this.DATETIMEPICKER1)
 > >        onOpen = class::DATETIMEPICKER1_ONOPEN
 > >        height = 147.0
 > >        left = 301.0
 > >        top = 63.0
 > >        width = 175.0
 > >     endwith
 > >
> >     this.TEXTLABEL4 = new TEXTLABEL(this)
 > >     with (this.TEXTLABEL4)
 > >        height = 22.0
 > >        left = 295.0
 > >        top = 370.0
 > >        width = 202.0
 > >        text = "23 Caldwell Street, Merewether"
 > >     endwith
 > >
> >     this.TEXTLABEL5 = new TEXTLABEL(this)
 > >     with (this.TEXTLABEL5)
 > >        height = 22.0
 > >        left = 293.0
 > >        top = 415.0
 > >        width = 162.0
 > >        text = "Phone :   02/49631461"
 > >     endwith
 > >
> >     this.PUSHBUTTON4 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON4)
 > >        onClick = class::PUSHBUTTON4_ONCLICK
 > >        height = 24.0
 > >        left = 42.0
 > >        top = 432.0
 > >        width = 122.0
 > >        text = "TV Display Z -- A"
 > >     endwith
 > >
> >     this.rowset = this.administration1.rowset
 > >
> >     function DATETIMEPICKER1_onOpen()
 > >        form.datetimepicker1.value = date()
 > >        return
 > >
> >     function PUSHBUTTON1_onClick()
 > >        form.close()
 > >                 do Displaymbc.wfm
 > >        return
 > >
> >     function PUSHBUTTON2_onClick()
 > >        
 > >                 do mbclocker.wfm
 > >        return
 > >
> >     function PUSHBUTTON3_onClick()
 > >        form.close()
 > >                 do mbcmaintain.wfm
 > >        return
 > >
> >     function PUSHBUTTON4_onClick()
 > >        form.close()
 > >                 do mbcdisplay.wfm
 > >        return
 > >
> > THIS CODE DOES NOT EXECUTE.??
 > >
> > I can not see the reason ??
 > >
> > // Allpro Menu As below
 > >
> > ** END HEADER -- do not remove this line
 > > //
 > > // Generated on 06/08/2020
 > > //
 > > parameter bModal
 > > local f
 > > f = new StartForm()
 > > if (bModal)
 > >     f.mdi = false // ensure not MDI
 > >     f.readModal()
 > > else
 > >     f.open()
 > > endif
 > >
> > class StartForm of FORM
 > >     with (this)
 > >        onOpen = class::FORM_ONOPEN
 > >        metric = 6        // Pixels
 > >        height = 497.0
 > >        left = 564.0
 > >        top = 35.0
 > >        width = 484.0
 > >        text = ""
 > >     endwith
 > >
> >     this.ALLPROICON = new IMAGE(this)
 > >     with (this.ALLPROICON)
 > >        height = 99.0
 > >        left = 0.0
 > >        top = 0.0
 > >        width = 117.0
 > >        dataSource = 'FILENAME "C:\Users\Anthony Hughes\Desktop\allprotest\alproicon.jpg"'
 > >        alignment = 3        // Keep Aspect Stretch
 > >        borderStyle = 1        // Raised
 > >     endwith
 > >
> >     this.PUSHCLOSE = new PUSHBUTTON(this)
 > >     with (this.PUSHCLOSE)
 > >        onClick = class::PUSHCLOSE_ONCLICK
 > >        height = 24.0
 > >        left = 147.0
 > >        top = 441.0
 > >        width = 119.0
 > >        text = "Close Menu"
 > >        fontSize = 12.0
 > >        fontBold = true
 > >        colorNormal = "Red/BtnFace"
 > >     endwith
 > >
> >     this.PUSHEMP = new PUSHBUTTON(this)
 > >     with (this.PUSHEMP)
 > >        onClick = class::PUSHEMP_ONCLICK
 > >        height = 24.0
 > >        left = 147.0
 > >        top = 99.0
 > >        width = 120.0
 > >        text = "Employee's"
 > >     endwith
 > >
> >     this.PUSHRAWS = new PUSHBUTTON(this)
 > >     with (this.PUSHRAWS)
 > >        onClick = class::PUSHRAWS_ONCLICK
 > >        height = 24.0
 > >        left = 147.0
 > >        top = 225.0
 > >        width = 120.0
 > >        text = "Raws Product"
 > >     endwith
 > >
> >     this.PUSHRAWSADJ = new PUSHBUTTON(this)
 > >     with (this.PUSHRAWSADJ)
 > >        onClick = class::PUSHRAWSADJ_ONCLICK
 > >        height = 24.0
 > >        left = 147.0
 > >        top = 45.0
 > >        width = 120.0
 > >        text = "Adjust Raws"
 > >     endwith
 > >
> >     this.PUSHFORMULA = new PUSHBUTTON(this)
 > >     with (this.PUSHFORMULA)
 > >        onClick = class::PUSHFORMULA_ONCLICK
 > >        height = 24.0
 > >        left = 147.0
 > >        top = 153.0
 > >        width = 120.0
 > >        text = "Formula's"
 > >     endwith
 > >
> >     this.PUSHTESTBATCH = new PUSHBUTTON(this)
 > >     with (this.PUSHTESTBATCH)
 > >        onClick = class::PUSHTESTBATCH_ONCLICK
 > >        height = 46.0
 > >        left = 147.0
 > >        top = 306.0
 > >        width = 120.0
 > >        text = "Tast Batch Make Batch"
 > >     endwith
 > >
> >     this.PUSHBUTTON1 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON1)
 > >        onClick = class::PUSHBUTTON1_ONCLICK
 > >        height = 46.0
 > >        left = 336.0
 > >        top = 306.0
 > >        width = 120.0
 > >        text = "Forward Estimates"
 > >     endwith
 > >
> >     this.PUSHBUTTON2 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON2)
 > >        onClick = class::PUSHBUTTON2_ONCLICK
 > >        height = 24.0
 > >        left = 329.0
 > >        top = 45.0
 > >        width = 107.0
 > >        text = "Order Raws"
 > >     endwith
 > >
> >     this.PUSHBUTTON3 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON3)
 > >        onClick = class::PUSHBUTTON3_ONCLICK
 > >        height = 24.0
 > >        left = 329.0
 > >        top = 99.0
 > >        width = 107.0
 > >        text = "Receive Raws"
 > >     endwith
 > >
> >     this.PUSHBUTTON4 = new PUSHBUTTON(this)
 > >     with (this.PUSHBUTTON4)
 > >        onClick = class::PUSHBUTTON4_ONCLICK
 > >        height = 24.0
 > >        left = 329.0
 > >        top = 153.0
 > >        width = 107.0
 > >        text = "Raws Grid"
 > >     endwith
 > >
> >
> >     function PUSHBUTTON1_onClick()
 > >        do allproahead.wfm
 > >        form.close()
 > >        return
 > >
> >     function PUSHBUTTON2_onClick()
 > >        do allproorders.wfm
 > >        form.close()
 > >        return
 > >
> >     function PUSHBUTTON3_onClick()
 > >        do allproreceivals.wfm
 > >        form.close()
 > >        return
 > >
> >     function PUSHBUTTON4_onClick()
 > >        do allprodetail.wfm
 > >        form.close()
 > >                 return
 > >
> >     function PUSHCLOSE_onClick()
 > >     form.close()
 > >        return
 > >
> >     function PUSHEMP_onClick()
 > >        do allproemp.wfm
 > >        form.close()
 > >                 return
 > >
> >     function PUSHFORMULA_onClick()
 > >        msgbox (" Try One "  )
 > >                 do allproformula.wfm
 > >                 form.close()
 > >        return
 > >
> >     function PUSHRAWSADJ_onClick() // = {;msgbox(set("directory")); do MbcDisplay.wfm}
 > >      do allproadjust.wfm
 > >          form.close()
 > >                 return
 > >
> >     function PUSHRAWS_onClick()
 > >        do allproraws.wfm
 > >        Form.Close()
 > >                 return
 > >
> >     function PUSHTESTBATCH_onClick()
 > >        do allprobatch.wfm
 > >        return
 > >
> >
> >
> >
>