Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Refresh not refreshing
Message
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00510014
Message ID:
00510347
Views:
17
ok I can't repreduse the error when I take the navigation buttons out of the form following is the add button code, the refresh code and the navigation code

and yes I know this is gonna look like kiddie code, but it works
if you want more code to try and help me just say

**********************************
add button, click event

THISFORM.ADDMODE = .T.
THISFORM.ID_ARRAY (create a array of unique usernames, to prevent duplicates)
WITH THISFORM
.ADDMODE = .T.
.editmode = .T.
.setcaption() (set "save" and "cancel" command buttons)
.setenable() (set the enabled and disabled state for objects)
ENDWITH
APPEND BLANK
THISFORM.REFRESH
REPLACE START.administrator WITH .F.
REPLACE START.Purchase_gen WITH .F.
REPLACE START.Purchase_rec WITH .F.
REPLACE START.Purchase_mod WITH .F.
REPLACE START.Receipt_mod WITH .F.
REPLACE START.Vendor WITH .F.
REPLACE START.administrator WITH .F.
REPLACE START.Invoice_gen WITH .F.
REPLACE START.Invoice_mod WITH .F.
REPLACE START.Inventory_add WITH .F.
REPLACE START.Inventory_del WITH .F.
REPLACE START.Inventory_pic WITH .F.
REPLACE START.Adjustments WITH .F.
REPLACE START.Back_comp WITH .F.
REPLACE START.Back_mod WITH .F.
REPLACE START.Return_modi WITH .F.
REPLACE START.Customer WITH .F.
THISFORM.cmb_Group.VALUE = la_group[1,1]
lc_enctypt = ''
THISFORM.txtf_name.SETFOCUS() (no code)
THISFORM.REFRESH
*_SCREEN.WINDOWSTATE = 1 (this will make the form look fine)
*_SCREEN.WINDOWSTATE = 0 (this will make the form look fine)

**********************************
thisform.refresh code

_SCREEN.LOCKSCREEN = .T.
IF THISFORM.addmode <> .T.
lc_enctypt = loTools.decrypt(START.user_id)
ENDIF
IF THISFORM.editmode = .F. AND THISFORM.addmode = .F.
THISFORM.navclass1.cmdtop.ENABLED =.T.
THISFORM.navclass1.cmdnext.ENABLED =.T.
THISFORM.navclass1.cmdprior.ENABLED =.T.
THISFORM.navclass1.cmdbottom.ENABLED =.T.
THISFORM.navclass1.ENABLED = .T.
THISFORM.cmdreset.ENABLED = .T.
THISFORM.cmd_exit.ENABLED = .T.
THISFORM.cmdsearch.ENABLED = .T.
THISFORM.cmdadd.ENABLED = .T.
THISFORM.cmd_pic.ENABLED = .T.

IF DELETE()
THISFORM.lbl_delete.CAPTION = 'User deleted'
THISFORM.CMDDELETEREVERT.CAPTION = 'Recall'
THISFORM.CMDDELETEREVERT.TOOLTIPTEXT = 'Recall user.'
THISFORM.CMDEDITSAVE.ENABLED = .F.
ELSE
THISFORM.lbl_delete.CAPTION = 'Active user'
THISFORM.CMDDELETEREVERT.CAPTION = 'Delete'
THISFORM.CMDDELETEREVERT.TOOLTIPTEXT = 'Delete user.'
THISFORM.CMDEDITSAVE.ENABLED = .T.
ENDIF

IF START.Purchase_gen = .T.
THISFORM.chkPurchase_gen.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkPurchase_gen.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Purchase_rec = .T.
THISFORM.chkPurchase_rec.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkPurchase_rec.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Purchase_mod = .T.
THISFORM.chkPurchase_mod.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkPurchase_mod.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Receipt_mod = .T.
THISFORM.chkReceipt_mod.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkReceipt_mod.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Vendor = .T.
THISFORM.chkVendor.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkVendor.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Vendorad = .T.
THISFORM.chk_Venad.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chk_Venad.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Administrator = .T.
THISFORM.chkAdministrator.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkAdministrator.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Invoice_gen = .T.
THISFORM.chkInvoice_gen.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkInvoice_gen.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Invoice_mod = .T.
THISFORM.chkInvoice_mod.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkInvoice_mod.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Inventory_add = .T.
THISFORM.chkInventory_add.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkInventory_add.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Inventory_del = .T.
THISFORM.chkInventory_del.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkInventory_del.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Inventory_pic = .T.
THISFORM.chkInventory_pic.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkInventory_pic.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Adjustments = .T.
THISFORM.chkAdjustments.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkAdjustments.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Back_comp = .T.
THISFORM.chkBack_comp.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkBack_comp.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Back_mod = .T.
THISFORM.chkBack_mod.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkBack_mod.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Return_modi = .T.
THISFORM.chkReturn_modi.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkReturn_modi.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

IF START.Customer = .T.
THISFORM.chkCustomer.DISABLEDFORECOLOR = RGB(128,0,0)
ELSE
THISFORM.chkCustomer.DISABLEDFORECOLOR = RGB(128,128,128)
ENDIF

ELSE
WITH THISFORM
.cmdreset.ENABLED = .F.
.navclass1.cmdtop.ENABLED =.F.
.navclass1.cmdnext.ENABLED =.F.
.navclass1.cmdprior.ENABLED =.F.
.navclass1.cmdbottom.ENABLED =.F.
.navclass1.ENABLED = .F.
.cmd_exit.ENABLED = .F.
.cmdsearch.ENABLED = .F.
.cmdadd.ENABLED = .F.
.cmd_pic.ENABLED = .F.
ENDWITH
IF START.Purchase_gen = .T.
THISFORM.chkPurchase_gen.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkPurchase_gen.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Purchase_rec = .T.
THISFORM.chkPurchase_rec.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkPurchase_rec.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Purchase_mod = .T.
THISFORM.chkPurchase_mod.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkPurchase_mod.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Receipt_mod = .T.
THISFORM.chkReceipt_mod.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkReceipt_mod.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Vendor = .T.
THISFORM.chkVendor.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkVendor.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Vendorad = .T.
THISFORM.chk_Venad.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chk_Venad.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Administrator = .T.
THISFORM.chkAdministrator.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkAdministrator.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Invoice_gen = .T.
THISFORM.chkInvoice_gen.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkInvoice_gen.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Invoice_mod = .T.
THISFORM.chkInvoice_mod.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkInvoice_mod.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Inventory_add = .T.
THISFORM.chkInventory_add.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkInventory_add.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Inventory_del = .T.
THISFORM.chkInventory_del.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkInventory_del.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Inventory_pic = .T.
THISFORM.chkInventory_pic.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkInventory_pic.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Adjustments = .T.
THISFORM.chkAdjustments.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkAdjustments.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Back_comp = .T.
THISFORM.chkBack_comp.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkBack_comp.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Back_mod = .T.
THISFORM.chkBack_mod.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkBack_mod.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Return_modi = .T.
THISFORM.chkReturn_modi.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkReturn_modi.FORECOLOR = RGB(0,0,0)
ENDIF

IF START.Customer = .T.
THISFORM.chkCustomer.FORECOLOR = RGB(255,0,0)
ELSE
THISFORM.chkCustomer.FORECOLOR = RGB(0,0,0)
ENDIF
ENDIF

WITH THISFORM
.cmd_invoice.ENABLED = .editmode
.cmd_inventory.ENABLED = .editmode
.cmd_purchase.ENABLED = .editmode
.cmd_back_order.ENABLED = .editmode
.chkLogged_in.ENABLED = .F.
ENDWITH
IF START.logged_in = .T.
THISFORM.chkLogged_in.CAPTION = 'Logged in'
ELSE
THISFORM.chkLogged_in.CAPTION = 'Logged out'
ENDIF
_SCREEN.MOUSEPOINTER=0
_SCREEN.LOCKSCREEN = .F.
**********************************
nav button code from container class

?? CHR(7) && ring the bell
WITH THISFORM
.NAVCLASS1.CMDTOP.ENABLED = .T.
.NAVCLASS1.CMDPRIOR.ENABLED = .t.
ENDWITH

IF NOT EOF()
SKIP
ENDIF

IF EOF()
GO BOTTOM
WAIT "Bottom of the table" window nowait
with thisFORM
.NAVCLASS1.cmdbottom.enabled = .f.
.NAVCLASS1.cmdnext.enabled = .f.
endwith
else
with thisFORM
.NAVCLASS1.cmdbottom.enabled = .t.
.NAVCLASS1.cmdnext.enabled = .t.
endwith
ENDIF
THISFORM.Refresh
Stephen McLaughlin
"Sexy Steve Valenteno", "Blastmaster"
stephenmclaughlin@gmail.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform