FiveTech Software tech support forums

... oBrw:nHeight := ( oRect:nHeight - oBar:nHeight - oMsgBar:nHeight ) * 0.6
oChild:nTop := oBrw:nTop + oBrw:nHeight
return nil
>

oWndDeposits:bPostEnd := { || oWndDeposits := nil }

if cRequest = "online"
oBrw:seek("DEP003")
ACTIVATE WINDOW oWndDeposits MAXIMIZED ;
ON INIT ( ViewDeposit( oBrw ...

... oBrw:nHeight := ( oRect:nHeight - oBar:nHeight - oMsgBar:nHeight ) * 0.6
oChild:nTop := oBrw:nTop + oBrw:nHeight
return nil
>

oWndDeposits:bPostEnd := { || oWndDeposits := nil }

if cRequest = "online"
oBrw:seek("DEP003")
ACTIVATE WINDOW oWndDeposits MAXIMIZED ;
ON INIT ( ViewDeposit( oBrw ...

... oSeek PROMPT oBrw:cSeek SIZE 200,10 PIXEL ;
OF oDlg COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'

oBrw:CreateFromCode()

oDlg:oClient := oBrw

oDlg:bPostEnd := { || DbCloseArea() }

ACTIVATE DIALOG oDlg AS MDICHILD SETUP oWndChild := oWnd // SIN ESTA INSTRUCCIÓN LO HACE CORRECTAMENTE

return nil ...

... SetFocus() // con click NO RETORNA a oBrw

@ 10, 10 COMBOBOX oBrw:cFilterFld ;
ITEMS aHdrs ;
ON CHANGE ( oBrw:Seek( "" ), oBrw:SetFocus() ) ;
SIZE 50,400 PIXEL OF oDlg

oDlg:oClient := oBrw
oDlg:bPostEnd := {||oRs:Close(),oRs:=Nil}
ACTIVATE DIALOG oDlg CENTER AS MDICHILD

Fivewin 22.03, BCC 7.4