Estoy haciendo una ventana con says, gets y tres botones de la siguiente manera:
Code: Select all
FUNCTION asigcuen()
fich = rutadato+"EMP" + zempr + "\CUENGENE.DBF"
SELECT 28
use &fich SHARED
bloqfila()
zcuivaso = cuivaso
zcuivarep = cuivarep
zcuivasono = cuivasono
zreteivasop = reteivasop
zreteivarep = reteivarep
zcuenclie = cuenclie
zcuenprov = cuenprov
zreteclie = reteclie
zreteprov = reteprov
zcuencomp = cuencomp
zcuenvent = cuenvent
zreguexis = reguexis
zvaexipos = vaexipos
zvaexineg = vaexineg
oDlgwVen:Move(191*ProPorV,262*ProPorH,500*ProPorH,430*ProPorV,.T.)
SELECT 999
use TEXTOS SHARED
locate for numero = 134
@ 10*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 135
@ 30*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 136
@ 50*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 137
@ 70*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 138
@ 90*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 139
@110*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 140
@130*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 141
@150*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 142
@170*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
locate for numero = 143
@190*ProporV,10*ProporH say tDlg001 VAR alltrim(texto01) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,16*ProporV
@ 10*ProporV,300*ProPorH get gDlg001 VAR zcuivaso OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@ 10*ProporV,410*ProPorH get gDlg002 VAR zcuivarep OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@ 30*ProporV,300*ProPorH get gDlg003 VAR zcuivasono OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@ 50*ProporV,300*ProPorH get gDlg004 VAR zreteivasop OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@ 70*ProporV,300*ProPorH get gDlg005 VAR zreteivarep OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@ 90*ProporV,300*ProPorH get gDlg006 VAR zcuenclie OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@ 90*ProporV,410*ProPorH get gDlg007 VAR zcuenprov OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@110*ProporV,300*ProPorH get gDlg008 VAR zreteclie OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@110*ProporV,410*ProPorH get gDlg009 VAR zreteprov OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@130*ProporV,300*ProPorH get gDlg010 VAR zcuencomp OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@130*ProporV,410*ProPorH get gDlg011 VAR zcuenvent OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@150*ProporV,300*ProPorH get gDlg012 VAR zreguexis OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@170*ProporV,300*ProPorH get gDlg013 VAR zvaexipos OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@190*ProporV,300*ProPorH get gDlg014 VAR zvaexineg OF oDlgwVen PIXEL COLOR escri02, fondo02 SIZE 100*ProPorH,16*ProPorH PICT "###########"
@215*ProPorV,160*ProPorH BTNBMP oBot01 PROMPT alltrim(texto01) OF oDlgwVen PIXEL ACTION salida(0) SIZE 70*ProPorH,20*ProPorV
locate for numero = 119
@215*ProPorV,240*ProPorH BTNBMP oBot01 PROMPT alltrim(texto01) OF oDlgwVen PIXEL ACTION salida(1) SIZE 70*ProPorH,20*ProPorV
locate for numero = 118
@215*ProPorV,320*ProPorH BTNBMP oBot01 PROMPT alltrim(texto01) OF oDlgwVen PIXEL ACTION salida(2) SIZE 70*ProPorH,20*ProPorV
use
SELECT 28
gDlg001:SetFocus()
oDlgwVen:Show()
RETURN (NIL)
DEFINE WINDOW oDlgwVen OF oVentPrinc MDICHILD PIXEL FROM 100*ProPorV,100*ProPorH TO 200*ProPorH,200*ProPorV COLORS escri01, fondo01 NOICONICE NOMAXIMIZE NOCAPTION
ACTIVATE WINDOW oDlgwVen NORMAL
Mi problema es que no para para poder variar o pulsar los botones.
Como puedo hacer para que en este momento para la aplicación.
Un saludo
Carlos