General information
Category:
Object Oriented Programming
Title:
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only