FoxPro/Visual FoxPro - que tengo malo

 
Vista:

que tengo malo

Publicado por renegado (49 intervenciones) el 21/11/2005 14:16:20
saludos estoy creando un formulario con codigo

en desarrollo me funciona, pero enel ejcutable no me abre el formulario
que puede ser ??

ver codigo

Define Class crearbotones As CommandButton
Visible = .T.
Note: procedimiento Click del boton
Procedure Click
Do crearForm With This.Caption,Substr(Alltrim(This.Name),Len(Alltrim(This.Name)),1),This.Tag
Enddefine

Procedure crearForm
Parameters rCaptionMenu,rnumeroOpcionRZ,rCodigoMenuRZ
Set Classlib To misclases Additive
Set Classlib To varias Additive
cNameforma = 'frmMyForm'+rnumeroOpcionRZ
cNameforma = Createobject('submenu')
cNameforma.AddObject('cmdsalir','cmdSalir1')
cNameforma.Name = rCaptionMenu+rnumeroOpcionRZ
cNameforma.Closable = .F. && Disable the Control menu box
cNameforma.WindowState = 0
cNameforma.WindowType = 0
cNameforma.Icon = 'DIBUJOS\'+rnumeroOpcionRZ+'.ICO'
cNameforma.ControlBox = .F.
cNameforma.TitleBar = 0
cNameforma.AutoCenter = .T.
cNameforma.ColorSource = 5
cNameforma.MaxButton = .F.
cNameforma.MinButton = .T.
cNameforma.Caption = 'M E N U '+Upper(rCaptionMenu)
cNameforma.cmdsalir.Visible =.T. && Quit Command button visible
cNameforma.Lblabel1.Caption = 'M E N U '+Upper(rCaptionMenu)
cNameforma.Lblabel2.Caption = ' Operador '+Alltrim(cNombreOPERADOR)+' - '+Alltrim(Transform(Ttod(DfeCHATRABAJO)))+' - '+Alltrim(cNombreCompañia)
cNameforma.Show && Display the form
Read Events && Start event processing


NOTE: CREAMOS LOS BOTONES del submenu
fexec("select nombrecontrol,captionControl,programa from menucargos where codcargo=?cCargoOperador and "+;
"codigomenu =?rCodigoMenuRZ and acceso = 'S'","tmpControles",.F.)
Local cNombreobjeto1 As String
Local x As Integer
cNombreobjeto1 = "BotonMenu"
DistBordSuperior = 61 && distancia del borde superior al boton
TamañoBoton = 25 && alto del boton
DistBordIzq = 15 && distancia del borde izquierdo al boton

*!* SET STEP ON
*!* For x = 1 TO 64
Select tmpControles
Go Top
Do While !Eof()
IF Recno() = 64
EXIT
ENDIF
c=Allt(Str(Recno()))
* c=Allt(Str(x))
cNameforma.AddObject('BotonMenu'+c ,"crearbotonessubmenu")
cNameforma.BotonMenu&c..Visible = .T.
cNameforma.BotonMenu&c..Caption = ALLTRIM(tmpControles.captionControl )
cNameforma.BotonMenu&c..Top = DistBordSuperior
cNameforma.BotonMenu&c..Height = TamañoBoton
cNameforma.BotonMenu&c..Left = DistBordIzq
cNameforma.BotonMenu&c..FontBold = .T.
cNameforma.BotonMenu&c..MousePointer = 15
cNameforma.BotonMenu&c..tag = tmpControles.programa
cNameforma.BotonMenu&c..Width = 215
If DistBordSuperior <= 500
DistBordSuperior=(DistBordSuperior + (cNameforma.BotonMenu&c..Height))+ 5
Else
DistBordSuperior = 61
DistBordIzq = DistBordIzq + cNameforma.BotonMenu&c..Width + 10
Endif
Select tmpControles
Skip
Loop
Enddo
*Endfor

Define Class cmdSalir1 As salir && crea el botn de salida
Left = 372
Top = 600
Procedure Click
Clear Events && Stop event processing, close Form
Enddefine

Define Class crearbotonessubmenu As botonsubmenu
Visible = .T.
Height = 25
Width = 204
Note: procedimiento Click del boton
Procedure Click
cEjecutarPrograma = Alltrim(This.Tag)
Do &cEjecutarPrograma

Enddefine

de abtemano mucahs gracias

attr

rene castañeda zapata
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:que tengo malo

Publicado por Plinio (7844 intervenciones) el 21/11/2005 19:32:55
Una pregunta, por que no estas usando el diseñador, no creo que hay necesidad de tanto sacrificio.

- El problema creo que recide donde esa el READ EVENTS. prueba poniendolo en el ACTIVATE de la ventana.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar