Posted by Grant Foraker on December 08, 2005 at 08:57:47: Uploaded files: 1
In Reply to: Re: cosw GPF posted by Brian Levantine on December 05, 2005 at 08:29:24:
Brian:
I've attached a screen shot of the program at work. Upgrade of the old Solutions GIP program using an Extended Window to "highlight" the transaction being entered or modified. The error doesn't seem to happen when the window closes. As I recall, it happens when exiting either or both the journal being worked on or the programs return to the menu. Trouble is it happens so infrequently.
Logic that launches the window and displays the data...
!-------------------- Create Extended Window ----------------------------------!
LET BR = 3 ! BOTTOM ROW OF WINDOW
LET CW = 80 ! WIDTH IN COLUMNS
LET Flags = 0 ! modeless
LET Style = 2 + 64 ! child, no caption, vis
LET HI = 2 ! Column
LET VI = Y + 2 ! Row
LET Caption$ = ""
PRINT (CreateWindowEx = HI, VI, CW, BR, Style, Flags, Caption$)
INPUT WindowHandle$
!-------------------------------------------------------------------------------
!
PRINT @(0,0);TRNO$
PRINT @(6,0);ORG$
PRINT @(10,0);GLNO$
PRINT @(23,0);TRDATE$
PRINT @(35,0);REFNO$
PRINT @(48,0);DESC$
PRINT (0,2742)
3410!
LET SORG$ = ORG$
PRINT @(6,0);ORG$
INPUT (0) @(6,0) ORG$
IF ORG$ EQ ''
IF MODE$ NE 'N'
LET ORG$ = SORG$
GOTO 3490
ENDIF
!
!------------------- Close Extended Window --------------------------------
PRINT (DeleteWindowEx = WindowHandle$) ! CLOSE WINDOW
!--------------------------------------------------------------------------
!
GOTO 3300
ENDIF