Here is a sample of my problem. I found if I make my search window modal the first window can not close which is what I wanted.
now I can not release the second window.
My real brcr is a complete other program. I made it a function for this demo.
I use brcr to browse 2 fields from anywhere in my program. This works GREAT if no errors.
If you try this demo The error is can not release top modal window, but i want to release because it is a different program in main system.
Any thoughts ?
Code: Select all
* -._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.
#include <hmg.ch>
* Temporary Table Test by Grigory Filatov
* Slightly modified by Roberto Lopez
Function Main
CreateTemp()
define window winMain ;
at 0, 0 ;
width 640 height 480 main ;
title "Temporary Table"
DEFINE GRID brwTemp
COL 0
ROW 0
WIDTH 600
HEIGHT 340
HEADERS {"Item Code", "Item Description", "Rate"}
WIDTHS {125, 300, 100}
ROWSOURCE "curItem"
COLUMNFIELDS {"itemcd", "itemnm", "rate"}
END GRID
DEFINE BUTTON Btr3New
ROW 350
COL 10
WIDTH 60
HEIGHT 60
FONTBOLD .T.
CAPTION "V"
ACTION BRcr(135,746, 100, 100, 390, 'Item', 'Name', 'curitem', 'curitem->itemcd', 'curitem->itemnm')
TOOLTIP 'Enter New Invoice'
END BUTTON
end window
winMain.center
winMain.activate
Return
function CreateTemp()
local aDbf := {}
aadd(adbf, {"itemcd", "c", 10, 0})
aadd(adbf, {"itemnm", "c", 40, 0})
aadd(adbf, {"rate", "n", 8, 2})
if !hb_dbcreatetemp("curItem", adbf)
msgbox("Cannot create temporary table: Item")
RELEASE WINDOW ALL
return nil
endif
if select("curItem") = 0
use curItem new
endif
select curItem
append blank
curItem->itemcd := "CD1"
curItem->itemnm := "Compact Disc"
curItem->rate := 10.00
unlock
append blank
curItem->itemcd := "AD2"
curItem->itemnm := "Compact Disc"
curItem->rate := 10.00
unlock
index on itemcd to curitem
return nil
function brcr
LOCAL WID1
PARAMETERS R1, C1, W1, W2, H1, H2, H3, T1, FC1, FC2 // TA, W1, W2, C1, R1, H1, I1, D1, FC1, FC2
go top
IF W2 = 0
WID1 := 'FC1'
ELSE
WID1 := 'FC1 , FC2'
ENDIF
DEFINE WINDOW frmQSMain ;
AT R1+80, C1+10 ;
WIDTH W1+W2+40 ; //GetDesktopWidth() * 0.75 ;
HEIGHT H1+20 ; // GetDesktopHeight() * 0.75 ;
WINDOWTYPE modal
// ON KEY ESCAPE ACTION frmQSMain.Release
// ON KEY ESCAPE ACTION ''
DEFINE BROWSE brwItems
ROW 25 //133
COL 0 //211
WIDTH W1 + W2+25 // 400
HEIGHT H1 //290
BACKCOLOR { 255, 255, 255}
FONTCOLOR { 0, 0, 0 }
HEADERS {H2 , H3}
WIDTHS {W1, W2}
WORKAREA &T1 //inv
FIELDS { &WID1}
ONDBLCLICK { || dbgoto(this.value), thiswindow.Release }
ONLOSTFOCUS { || dbgoto(this.value), thiswindow.Release }
ONCHANGE { || dbgoto(this.value) }
NOLINES .F.
END BROWSE // brwItems
DEFINE TEXTBOX textSearch
ROW 0 //R1
COL 0 //232
WIDTH 200 // 200 can make 0 so you cannot see
HEIGHT 24
TOOLTIP 'START TO TYPE SEARCH ITEM'
ONCHANGE { || DBSEEK( UPPER( this.Value ), .T. ), frmQSMain.brwItems.value := curitem->(RECNO() ) }
ONENTER { || frmQSMain.brwItems.SETFOCUS }
ONLOSTFOCUS { || frmQSMain.brwItems.SETFOCUS}
END TEXTBOX // tbxSearch
END WINDOW // frmQSMain
frmQSMain.textSEARCH.VISIBLE := .T.
frmQSMain.brwItems.VISIBLE := .T.
frmQSMain.textSEARCH.SETFOCUS
frmQSMain.Activate
return
// HMG_HELP Main()
* -._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.
Thanks Franco
