Hola Willi,
gracias una vez mas por la ayuda.
Hice lo que me indicaste pero tengo el siguiente error:
Application
===========
Path and name: C:\Neuro32\Neuro32.EXE (32 bits)
Size: 9,236,992 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20170215)
FiveWin Version:
FWHX 14.06
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 13/10/2022, 08:40:42
Error description: Warning BASE/1004 Message not found: TWINDOW:OWNDCLIENT
Stack Calls
===========
Called from: source\rtl\tobject.prg => TWINDOW:ERROR( 0 )
Called from: source\rtl\tobject.prg => TWINDOW:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TWINDOW:OWNDCLIENT( 0 )
Called from: c:\fwh\source\classes\mdichild.prg => TMDICHILD:NEW( 150 )
Called from: .\prg\NewVentas.PRG => FNCT_REGISTRARVENTAS( 316 )
Called from: .\prg\Menus.PRG => (b)FBARRADEBOTONES( 529 )
Called from: c:\fwh\source\classes\btnbmp.prg => TBTNBMP:CLICK( 477 )
Called from: c:\fwh\source\classes\btnbmp.prg => TBTNBMP:LBUTTONUP( 668 )
Called from: c:\fwh\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1723 )
Called from: c:\fwh\source\classes\btnbmp.prg => TBTNBMP:HANDLEEVENT( 1485 )
Called from: c:\fwh\source\classes\window.prg => _FWH( 3279 )
Called from: => WINRUN( 0 )
Called from: c:\fwh\source\classes\window.prg => TWINDOW:ACTIVATE( 1003 )
Called from: .\prg\Neuro32.PRG => NEURO32( 444 )
mi codigo:
- Code: Select all Expand view RUN
DEFINE WINDOW oWndVenta MDICHILD FROM 0,0 to 2,2 OF _oWnd BORDER NONE NOSYSMENU NOCAPTION TITLE "VENTAS"
Define Dialog oDlgNewSell resource "oDlg_NewVenta" title 'Procesar Documentos de Ventas' of oWndVenta //Brush oBrush
oDlgNewSell:lHelpIcon:=.f.
oDlgNewSell:lTransparent:=.t.
oDlgNewSell:SetFont(_oFontDlgs)
...
...
...
Activate dialog oDlgNewSell nowait on Init ( (oDlgNewSell:Move( 0, 0 ), oWndVenta:bGotFocus := { || oDlgNewSell:SetFocus() } ),;
oCbxMonedas :Select(nPosiMonedas) ,;
Fnct_ResizeGets() ,;
oCbxDias:Hide() ,;
oDateImage:Hide() ,;
oSayText1:Hide() ,;
oGetRif:SetFocus() ,;
iif(_lFacturaVzla,oGetNumeroDoc:Disable(),),;
oBtn_Imprime:Hide() ,;
oGetNumeroDoc:Refresh())
Activate Window oWndVenta ;
ON INIT (oWndVenta:Move(0,0), oWndVenta:SetSize( oDlgNewSell:nWidth, oDlgNewSell:nHeight ) ) ;
ON RESIZE (oWndVenta:SetSize( oDlgNewSell:nWidth, oDlgNewSell:nHeight ) )
Perdona mi ignorancia pero es primera vez que veo esto.
alguna idea de que estoy haciendo mal o que me esta faltando?