by Willi Quintana » Fri Jan 03, 2014 1:55 pm
Gracias por el Tip,,, pero a mi se me complica, por que yo uso un DIALOG incrustado en una Window MDI +- asi: y aun no veo como "asignar" un 2do DIALOG.
...
ACTIVATE DIALOG oDlg CENTER NOWAIT ;
ON INIT (oMTick:Hide(),oSerieNumero[4]:Hide(), EVAL(eVaciaDet), ; //
IF(oApp:lValesConsumo, oValeCon:Show(), oValeCon:Hide()), ;
CargaFont(oMySQL , oTiEmp, "t1"), ;
ReAsignaBoton(oMySQL, oBMetro), ;
IF(lTicket,(oMTick:Show(),oSerieNumero[4]:Show(),oTDocum:Hide(), oTxTotal:Show(), oTxRecibi:Show(), oTxVUelto:Show(), oTotall:Show(), oRecii:Show(),oVueltoo:Show()),(oTxTotal:Hide(), oTxRecibi:Hide(), oTxVUelto:Hide(), oTotall:Hide(), oRecii:Hide(), oVueltoo:Hide(), oTDocum:Show())), ;
If(nNumWin = 1, aDetVen := BackTemporal(aDetVen, 1), ), oLbx:SetArray(aDetVen), oLbx:Refresh(), ;
If(!lTicket,oTicket:Hide(),), ;
nNumWin++, ;
oDlg:Move( 0, 0 ) ) ;
VALID (oWnd3:End(), If(lSalir,tFacBolGui:End(),), lSalir )
oWnd3:bGotFocus = { || oDlg:SetFocus() }
ACTIVATE WINDOW oWnd3 ;
ON INIT (oWnd3:Move(0,0), oWnd3:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ; // MAXIMIZED ;
ON RESIZE (oWnd3:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ;
VALID (oApp:aVentana[4] := .f., lSalir )