FoxPro/Visual FoxPro - Desaparecen componentes de form al usar BROWSE

 
Vista:

Desaparecen componentes de form al usar BROWSE

Publicado por kineko (5 intervenciones) el 16/01/2013 09:54:02
Hola buenas a todos.

Estoy convirtiendo una aplicación de FoxPro 2.6 a Visual FoxPro 9. Uso para las ventanas codigo directamente de los SPR ya que no uso formularios como tal.
En uno de mis PRG hago una llamada a un BROWSE lo que me muestra el browse pero el fondo me desaparece junto a mis otros componentes de la ventana.

Estuve buscando informacion sobre este error y he leido que se debe a las propiedas del tema que hay que ponerlo en .F. pero yo no doy con la solucion. Mi llamada al BROWSE desde un prg es asi:


1
2
3
4
5
6
7
8
9
10
BROWSE REST NODELETE NOAPPEND TITLE 'Mano de Obra/Alb.      F1 Añadir F2 Borrar '+;
			'F3 Insertar abajo  F4 Insertar arriba   F5 Texto' ;
			FIELDS  cod_mo :p = '@!' :v = cogemo(), ;
			rep1 :H = 'Concepto', ;
			eprecio1 :H = 'Precio' :p ='9,999,999.99' :v = cogeese() , ;
			tmo1 :H = 'T.M.O.', TOTAL=eprecio1*tmo1 :p = '9,999,999.99' :R :W=.F., ;
			seccion :H = 'Sec.' :p = '@!' :v = agna2() :F,;
			nalba :R :W=.F. ;
			FOR nfactura=xx .AND. re1=SPACE(50) .AND. linea<9000 ;
			WINDOW peio COLOR SCHEME 10


La llamada a este PRG la hago desde un SPR. He probado a ponerle los temas antes del browse y luego volverselo a quitar, pero nada, imposible.

Por defecto al empezar mi programa hago un SYS(2700,0) para que me desabilite los temas ya que si no al pasar por un boton o campo me hace el mismo efecto que me hace el browse; me desaparecen todos los componentes.


Si a alguien mas le ha ocurrido y me puede echar una mano le estaria enormemente agradecido
Un coridial saludo
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

Desaparecen componentes de form al usar BROWSE

Publicado por Saul (728 intervenciones) el 18/01/2013 06:08:47
mm dejame te investigo, es que yo no uso asi..

en Visual foxpro se usa el Grid

Saludos
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

Desaparecen componentes de form al usar BROWSE

Publicado por kineko (5 intervenciones) el 18/01/2013 10:16:33
Si, eso lo se. Pero quiero seguir usando Browse ya que mi programa es basatnte extenso y para cambiar de un browse ha un grid es bastante laborioso, tendria que crear los forms de cero.

Gracias por tu respuesta
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

Desaparecen componentes de form al usar BROWSE

Publicado por fredy mora (3 intervenciones) el 21/01/2013 01:55:40

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
*------------------------------------------------------------------------------------------------------------------*
Prueba el siguiente código Modelo y adáptalo a tu aplicación:
*------------------------------------------------------------------------------------------------------------------*
m.browx=.f. && variable control para no repetir
*------------------------------------------------------------------------------------------------------------------*
   BROWSE name ObjectBrowse FIELDS ;
      dbf_ppal.TIPOCURSO  :H="Nivel"     :P="@It" :22 :R , ;
      dbf_ppal.textogrado :H="Año/Grado" :P="@I"  :08 :R , ;
      dbf_ppal.seccio     :H="Sección"   :P="@I"  :V=VBROWS01(LASTKEY(),WONTOP()) :W=LOC_DLOG03(01) :08 :R  :F, ;
       freezedbf_ppal.seccio ;
       noedit nodelete nomenu ;
       IN window WINBRWN02  WHEN WHENGRILD_1();
       title m.c_brtitle ;
       FONT "Courier New" , 8 STYLE "N" COLOR SCHEME 5
*------------------------------------------------------------------------------------------------------------------*
*------------------------------------------------------------------------------------------------------------------*
m.browx=.f. && variable control para no repetir
*------------------------------------------------------------------------------------------------------------------*
return
*------------------------------------------------------------------------------------------------------------------*
*------------------------------------------------------------------------------------------------------------------*
*-***---------------------------------------------------------**-*
*-***---------------------------------------------------------**-*
PROCEDURE WHENGRILD_1 && *--* acción when en ObjectBrowse *--*
**PARAMETERS m.xParVne_ver**
IF m.browx=.T. && variable control para no repetir
   RETURN
ENDIF
*------------------------------------------------------------------------------------------------------------------*
IF m.browx=.f.
   *----------------------------------------------------------------------------------------------------------------------*
   ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(NUMRECURSO,2)=1,RGB(206,255,247),RGB(245,247,252)))", "Column")  && Alternate white and green records
   ObjectBrowse.HighlightBackColor    = RGB(201,216,239)  && RGB(239,239,209)  && RGB(230,181,216) && <=[ROSADO/CLARO] RGB(255,237,164) &&  RGB(255,245,205)
   ObjectBrowse.SelectedItemBackColor = RGB(185,255,185) &&  RGB(182,202,234)
   ObjectBrowse.SelectedItemForeColor = RGB(145,072,000)  && RGB(109,100,095)  &&  RGB(255,05,200)
   ObjectBrowse.HighlightForeColor    = RGB(010,001,090) && <=[AZUL/INTENSO] && RGB(055,055,034) &&  RGB(064,100,164)
   ObjectBrowse.GridLineColor=rgb(176,198,223) && rgb(255,000,0) && *--* linea Roja
   ObjectBrowse.HighlightStyle = 2
   ObjectBrowse.FontBold=.t.
   ObjectBrowse.Highlight=.t.
   *----------------------------------------------------------------------------------------------------------------------*
   *----------------------------------------------------------------------------------------------------------------------*
   *ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(numrecurso,2)=1,RGB(255,255,234),RGB(255,245,203)))", "Column")  && Alternate white and green records
   *ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(numrecurso,2)=1,RGB(250,255,254),RGB(245,247,252)))", "Column")  && Alternate white and green records
   *----------------------------------------------------------------------------------------------------------------------*
   *ObjectBrowse.HighlightBackColor = RGB(250,250,240)  &&  RGB(255,255,0)
   *ObjectBrowse.HighlightForeColor = RGB(64,0,64)
   *ObjectBrowse.HighlightStyle = 2
   *ObjectBrowse.FontBold=.t.
   *ObjectBrowse.Highlight=.t.
   *ObjectBrowse.SelectedItemBackColor= RGB(200,200,200)
   *ObjectBrowse.SelectedItemForeColor= RGB(255,05,200)
   *m.browx=.t.
*ENDIF
   *-------------------------------------------------------------------------------------------------*
   *-01-->dbf_ppal.TIPOCURSO  <-----*
   *-02-->dbf_ppal.grado      <-----*
   *-03-->dbf_ppal.seccio     <-----*
   *-04-->dbf_ppal.mencio     <-----*
   *-05-->dbf_ppal.NREG_FINAL <-----*
   *-06-->dbf_ppal.TIPOEVALUA <-----*
   *-------------------------------------------------------------------------------------------------*
   *ObjectBrowse.Column4.Alignment= 2
   *ObjectBrowse.Column4.ToolTipText="Seleccionar Curso"
   *-------------------------------------------------------------------------------------------------*
   *-------------------------------------------------------------------------------------------------*
   *->ObjectBrowse.HighlightBackColor =(IIF(MOD(RECNO(),2)=1,RGB(217,255,253),RGB(192,220,192))) &&  RGB(217,255,253) && RGB(250,250,240)  &&  RGB(255,255,0)
   *-------------------------------------------------------------------------------------------------*
   *-------------------------------------------------------------------------------------------------*
   *->ObjectBrowse.SelectedItemBackColor= RGB(215,215,215) && RGB(200,200,200)/
   *->ObjectBrowse.SelectedItemForeColor= RGB(119,00,095)  &&  RGB(255,05,200)
   *-------------------------------------------------------------------------------------------------*
   *ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(NUMRECURSO,2)=1,RGB(255,255,234),RGB(255,245,203)))", "Column")  && Alternate white and green records
   ObjectBrowse.Column2.DynamicBackColor="(IIF(MOD(numrecurso,2)=1,RGB(255,255,234),RGB(255,245,223)))"
   ObjectBrowse.Column3.DynamicBackColor="(IIF(MOD(numrecurso,2)=1,RGB(255,255,234),RGB(255,245,223)))"
   *-------------------------------------------------------------------------------------------------*
   *--(01)--------dbf_ppal.TIPOCURSO  :H="Nivel"   ---------------------------------------------------*
   *-------------------------------------------------------------------------------------------------*
   *ObjectBrowse.Column1.Header1.BackColor= RGB(255,255,0)
   ObjectBrowse.Column1.DynamicFOREColor="( IIF( ALLTRIM(cursos.TIPOCURSO) $ 'Educación Básica', RGB(017,055,253), RGB(080,073,039) ) )"
   ObjectBrowse.Column1.Header1.BackColor= RGB(255,255,240)
   ObjectBrowse.Column1.FontName="ARIAL"
   ObjectBrowse.Column1.FontSize= 9
   ObjectBrowse.Column1.FontBold=.F.
   *-------------------------------------------------------------------------------------------------*
   *--(02)--------dbf_ppal.grado      :H="º"       ---------------------------------------------------*
   *-------------------------------------------------------------------------------------------------*
   ObjectBrowse.Column2.Alignment= 2
   ObjectBrowse.Column2.Header1.BackColor= RGB(255,255,0)
   ObjectBrowse.Column2.BackColor= RGB(217,255,255) && RGB(255,255,0) && amarillo
   ObjectBrowse.Column2.ForeColor= RGB(047,048,018) && RGB(005,255,0) && verde
   ObjectBrowse.Column2.FontSize=9
   ObjectBrowse.Column2.FontName="Arial"
   ObjectBrowse.Column2.DynamicFOREColor="( IIF( ALLTRIM(CURSOS.TIPOEVALUA) $ 'Curso para Notas', RGB(183,86,4), RGB(047,048,018) ) )"
   *-------------------------------------------------------------------------------------------------*
return
*------------------------------------------------------------------------------------------------------------------*


*------------------------------------------------------------------------------------------------------------------*
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

Desaparecen componentes de form al usar BROWSE

Publicado por kineko (5 intervenciones) el 22/01/2013 09:55:36
Por lo que veo pones este codigo en un form verdad? Yo lo que hago es arrancar el browse desde un PRG.

m.browx que es si me puedes comentar?

Muchas gracias por tu respuesta, un saludo
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

Desaparecen componentes de form al usar BROWSE

Publicado por fredy mora (3 intervenciones) el 24/01/2013 15:16:56
m.browx que es si me puedes comentar?
--------------------------------------------------------
Es una variable de control que evita que el código se repita por cuanto esta en acción when
dentro del browse.

PROCEDURE WHENGRILD_1 && *--* acción when en ObjectBrowse *--* **PARAMETERS m.xParVne_ver** IF m.browx=.T. && variable control para no repetir RETURN ENDIF *------------------------------------------------------------------------------------------------------------------*
IF m.browx=.T. && variable control para no repetir
RETURN
ENDIF
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