Information générale
Catégorie:
Programmation Orientée Object
Titre:
Converting From 2.6
I have been in the process of converting an application for approximately a month now. I am having some troubles with the ShowGet,
ShowGets, and _CUROBJ=OBJNUM. I know that I need to use THISFORM.Refresh for the ShowGet and ShowGets; and I also know that I need to use SetFocus for the _CUROBJ=OBJNUM. But my problem is I have tried almost everyway possible using this code but I have had strikeout after strikeout. Can anyone help?
Here is a sample of my application.
CASE m.control = 'Add'
SELECT dsaddr
m.recsave = RECNO()
SCATTER MEMVAR MEMO BLANK
m.newadd = 'Y'
_CUROBJ = OBJNUM(m.company)
SHOW GETS ENABLED
SHOW GET m.control DISABLE
SHOW GET m.control,6 ENABLE
SHOW GET m.control,7 ENABLE
SHOW GET m.control,8 ENABLE
CASE m.control = 'Save'
IF m.newadd = 'Y'
SELECT dsaddr
SET ORDER TO TAG reccode OF dsaddr.CDX
SEEK m.reccode
IF FOUND()
WAIT WINDOW 'Code already exists'
_CUROBJ = OBJNUM(m.reccode)
ELSE
APPEND BLANK
GATHER MEMVAR MEMO
_CUROBJ = OBJNUM(m.company)
SHOW GET m.control ENABLE
SHOW GETS DISABLE
SHOW GET m.control ENABLE
SHOW GET m.choice ENABLE
ENDIF
ELSE
GATHER MEMVAR MEMO
_CUROBJ = OBJNUM(m.company)
SHOW GET m.control ENABLE
SHOW GETS DISABLE
SHOW GET m.control ENABLE
SHOW GET m.choice ENABLE
ENDIF
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