Ayuda Por Favor

Post Reply
colthop
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Ayuda Por Favor

Post by colthop »

Hola a todos:

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)
La ventana la defino asi:

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
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Top
User avatar
cmsoft
Posts: 653
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Ayuda Por Favor

Post by cmsoft »

Por lo que veo, no para porque es una ventana y no un dialogo, probá definiendo oDlgVen como dialog y no como Window, y en todo caso, que dicho dialogo sea no modal.
Espero te sirva.
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”