FiveTech Software tech support forums

... 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 Saludos.

... 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

Solved for footer:

oRpt:bPostEnd = { || oRpt:Say( ... ) }

Any ideas for header? I'm trying with oRpt:bInit but it prints after the columns header.

EMG

... on a single page. I did it more than 20 years ago using FW 16 bits. I remember it was a bit tricky, using the DelColumn and AddColumn methods with bPostEnd block but it worked flawlessly. For a reason I could not discover the upgrade to FWH broke my code. As it coincided with the closing of the ...

... s_oBrowse:CreateFromCode() hLays["BROWSE"]:oClient := s_oBrowse // s_oWndSqlBrowser:SetIcon( TIcon():New(,,'MGAICON')) s_oWndSqlBrowser:bPostEnd := {|| MsgRun("Aguarde...",,{|| Valid_SQLBrowser() } ) } activate window s_oWndSqlBrowser maximized on init(xSetFocus(oGet)); valid( ...

... }, ; o:nEditType := EDIT_GET } ) WITH OBJECT oBrw :bPopUp := { |o| ColMenu( o ) } :MakeTotals() :CreateFromCode() END oWnd:oClient := oBrw oWnd:bPostEnd := { || oRs:Close() } BtnBar( oBrw )

... MDICHILD of M->oWnd vscroll TITLE cTitulo endif if lChild s_oWndPDF:bValid := {|| HB_GCAll(.t.), s_oWndPDF := Nil , .t. } else s_oWndPDF:bPostEnd := {|| HB_GCAll(.t.), s_oWndPDF := Nil } endif ACTIVATE WINDOW s_oWndPDF MAXIMIZED /*****************************************************************************/ ...

... FONT oLetra oBrwPen:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrwPen:M:SetCheck( , .t. ) oBrwPen:CreateFromCode() oVenChPen:oClient:=oBrwPen oVenChPen:bPostEnd := { || ( aNomBas[PEND] )->( DBCLOSEAREA() ) } ACTIVATE WINDOW oVenChPen; ON INIT ( oVenChPen:SetFocus() ); VALID( alBases[PEND]:=.F.,.T. ...

Francisco:

En lugar de footer, utiliza bPostEnd

Code: Select all  Expand view

    oReporte:bPostEnd       := { || PonFooter(oReporte)}
 

Saludos

do not end font in timers or valid clauses.

What you need to do after the end of MDICHILD, do it in oWnd:bPostEnd

... still some buttons or controls that keep referring to the recordset. Advice: a) If the browse is on MDICHILD window, close the recordset in oWnd:bPostEnd. eg: oWnd:bPostEnd := { || oRs:Close() }. By the time the recordset is closed all controls on the window are already destroyed. b) If the browse ...

When using MDI ChildWindow, closing data, release of fonts/resources, etc should be done in oWndChild:bPostEnd, but NOT in VALID clause or after activate command Please replace    oWChild:oClient := oBrw    ACTIVATE WINDOW oWChild MAXIMIZED VALID(oRsCte:close(),.t. ...

... columnas tienen su nTotal en 0, pero desde oReport:lCreated. ¿Se puede? Por ejemplo: Con oReport:bEnd se pueden identificar //ok Con oReport:bPostEnd se pueden identificar //ok Con if oReport:lCreated NO se pueden identificar // las muestra, todas, con nTotal en 0 El caso es que se necesita ...

... clause, because the window and browse objects are still active. When we are using MDICHILD windows, the best place to close DBF is inside the oWin:bPostEnd codeblock. This codeblock is evaluated after the window is closed (and all controls are destroyed) Please close the DBF in the oWin:bPostEnd ...

... clause. 1) MODAL DIALOG ( in your example ) and MAIN WINDOWs Close data after dialog exits. ACTIVATE DIALOG ....... oDbf:Close() 2) MDICHILD oWnd:bPostEnd := { || oDbf:Close() } // This is executed after the window is closed. 3) NON-MODAL DIALOGS AND WINDOWS (other than main window and other than ...