** END HEADER -- do not remove this line // // Generated on 12/29/2022 // parameter bModal local f f = new ghorForm() if (bModal) f.mdi = false // ensure not MDI f.readModal() else f.open() endif class ghorForm of FORM with (this) onOpen = class::FORM_ONOPEN height = 23.28 left = 8.375 top = -0.12 width = 126.375 text = "" endwith this.QSALES = new QUERY(this) with (this.QSALES) left = 15.0 top = 1.0 width = 4.0 height = 1.0 sql = "select * from sales where sno=:msno" params["msno"] = "" active = true endwith with (this.QSALES.rowset) onNavigate = class::ROWSET_ONNAVIGATE endwith this.QTEMPSAL = new QUERY(this) with (this.QTEMPSAL) left = 21.0 width = 6.0 height = 1.0 sql = "select distinct sno,sdate,op from sales where sdate between :mdate1 and :mdate2" params["mdate1"] = {12/28/2022} params["mdate2"] = {12/28/2022} active = true endwith with (this.QTEMPSAL.rowset) onNavigate = class::ROWSET_ONNAVIGATE1 endwith this.LINE3 = new LINE(this) with (this.LINE3) left = 68.0 right = 68.0 top = 3.0 bottom = 22.0 width = 1 endwith this.PBCLOSE = new PUSHBUTTON(this) with (this.PBCLOSE) onClick = class::PBCLOSE_ONCLICK height = 1.5 left = 48.0 top = 18.5 width = 16.0 text = "Close The Form" fontName = "Calibri" fontSize = 12.0 endwith this.GRID2 = new GRID(this) with (this.GRID2) fontName = "Calibri" fontSize = 12.0 headingFontName = "Calibri" headingFontSize = 12.0 dataLink = form.qtempsal.rowset columns["COLUMN1"] = new GRIDCOLUMN(form.GRID2) with (columns["COLUMN1"]) dataLink = form.qtempsal.rowset.fields["sno"] editorType = 1 // EntryField width = 8.625 endwith columns["COLUMN2"] = new GRIDCOLUMN(form.GRID2) with (columns["COLUMN2"]) dataLink = form.qtempsal.rowset.fields["sdate"] editorType = 1 // EntryField width = 12.0 endwith columns["COLUMN4"] = new GRIDCOLUMN(form.GRID2) with (columns["COLUMN4"]) dataLink = form.qtempsal.rowset.fields["op"] editorType = 1 // EntryField width = 11.375 endwith with (columns["COLUMN1"].editorControl) fontName = "" endwith with (columns["COLUMN1"].headingControl) fontName = "" value = "SNO" endwith with (columns["COLUMN2"].editorControl) fontName = "" endwith with (columns["COLUMN2"].headingControl) fontName = "" value = "DATE" endwith with (columns["COLUMN4"].editorControl) fontName = "" endwith with (columns["COLUMN4"].headingControl) fontName = "" value = "OPERATOR" endwith allowEditing = false allowAddRows = false height = 13.5 left = 24.0 top = 3.5 width = 40.0 endwith this.GRID1 = new GRID(this) with (this.GRID1) fontName = "Calibri" fontSize = 13.0 headingFontName = "Calibri" headingFontSize = 12.0 dataLink = form.qsales.rowset columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1) with (columns["COLUMN1"]) dataLink = form.qsales.rowset.fields["code"] editorType = 1 // EntryField width = 22.0 endwith columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1) with (columns["COLUMN2"]) dataLink = form.qsales.rowset.fields["qty"] editorType = 1 // EntryField width = 10.625 endwith columns["COLUMN5"] = new GRIDCOLUMN(form.GRID1) with (columns["COLUMN5"]) dataLink = form.qsales.rowset.fields["verify"] editorType = 1 // EntryField width = 12.25 endwith with (columns["COLUMN1"].editorControl) fontName = "" endwith with (columns["COLUMN1"].headingControl) fontName = "" value = "CODE" endwith with (columns["COLUMN2"].editorControl) picture = "999,999" fontName = "" endwith with (columns["COLUMN2"].headingControl) fontName = "" value = "QTY" endwith with (columns["COLUMN5"].editorControl) fontName = "" endwith with (columns["COLUMN5"].headingControl) fontName = "" value = "VERIFIED BY" endwith allowEditing = false allowAddRows = false height = 17.5 left = 69.0 top = 3.0 width = 53.0 endwith this.ESCAN = new ENTRYFIELD(this) with (this.ESCAN) onLostFocus = class::ESCAN_ONLOSTFOCUS onChange = class::ESCAN_ONCHANGE visible = false height = 1.0 left = 102.0 top = 21.0 width = 20.0 fontName = "Calibri" fontSize = 12.0 value = "" endwith this.LBSCAN = new TEXTLABEL(this) with (this.LBSCAN) visible = false height = 1.0 left = 71.0 top = 21.0 width = 31.0 text = "For this item verification , Scan Here" fontName = "Calibri" fontSize = 12.0 endwith function PBCLOSE_onClick() close databases form.close() return function form_onOpen() with (this) //height = 24.5909 left = 1.7143 top = 4.0 //width = 179 endwith form.qtempsal.active=true if form.qtempsal.rowset.count()>0 form.qtempsal.rowset.first() form.qsales.active=true endif return function ESCAN_onChange() this.keyboard("{Tab}") class::escan_onlostfocus() return function ESCAN_onLostFocus() ? "Escan_onLostFocus()" do case case empty(this.value) this.setFocus() case not form.qsales.rowset.fields["CODE"].lookuprowset.fields["code"].value==this.value and ; empty(form.qsales.rowset.fields["VERIFY"].value) msgbox("Scan Code Unmatched","",48) form.qsales.rowset.next() if form.qsales.rowset.endofset form.lbscan.visible=false form.escan.visible=false form.grid2.setfocus() endif case form.qsales.rowset.fields["CODE"].lookuprowset.fields["code"].value==this.value form.qsales.rowset.fields["VERIFY"].value=_app.session.user() form.qsales.rowset.save() form.qsales.rowset.next() if form.qsales.rowset.endofset form.lbscan.visible=false form.escan.visible=false form.grid2.setfocus() endif endcase return function rowset_onNavigate(type, nRows) pref = this.parent.parent if this.endofset pref.grid2.setfocus() return endif pref.escan.value="" if empty(this.fields["verify"].value) pref.lbscan.visible=true pref.escan.visible=true pref.escan.setfocus() else pref.lbscan.visible=false pref.escan.visible=false endif return function rowset_onNavigate1(type, nRows) this.parent.parent.qsales.params["msno"]=this.fields["sno"].value this.parent.parent.qsales.requery() this.parent.parent.qsales.rowset.first() oref = this.parent.parent do while not oref.qsales.rowset.endofset if not empty(oref.qsales.rowset.fields["verify"].value) oref.qsales.rowset.next() else exit endif enddo return endclass