Information générale
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Network:
Windows 2000 Server
I tried it even but no result.
The Code of the Save and Exit button is as follows:
Save Button
------------
micode = ThisForm.contMaster.txtIcode.Value
mprice = ThisForm.contMaster.mprice.value
SELECT dicode
SET ORDER TO icode
SEEK micode IN dicode
IF FOUND()
REPLACE sell_price WITH mprice
ENDIF
ThisForm.contMaster.mprice.value = 0
ThisForm.contMaster.txtIcode.SetFocus
Exit Button
-----------
ThisForm.Release
Init Event of the form
----------------------
LPARAMETER lType
Public retval
Store 0 to retval
SET EXCLUSIVE OFF
SET DATE BRITISH
SET CENTURY ON
SET deleted ON
This.Height=519
This.Width=681
This.vtype = '19'
This.AutoCenter = .F. && I put it here as per your suggestion
This.AutoCenter = .T. &&
ThisForm.contMaster.mprice.Value = 0
ThisForm.contMaster.txtIcode.SetFocus
Saify
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement