FoxPro/Visual FoxPro - AYUDA CON UN GRID

 
Vista:

AYUDA CON UN GRID

Publicado por hugo (22 intervenciones) el 21/03/2015 01:12:53
Amigos de la web...necesito de su gran ayuda, resulta que tengo un grid con una vista relacionando dos tablas conteniendo en ellas las ordenes de trabajo para asgnar a los tecnicos de reparacion, en la grid tengo un boton que al darle un click quiero irme a esa Orden y el tecnico asi mismo trabajar con ella... pero siempre me muestra el primer registro de la tabla aun dandole el foco a esa orden...que puede hacer para que se elija esa orden o esa linea del Grid..?
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

AYUDA CON UN GRID

Publicado por Mauricio (45 intervenciones) el 21/03/2015 01:21:41
Que tienes en ese comando?? Disculpa, he extraviado la bola magica y adivinadora.....
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

AYUDA CON UN GRID

Publicado por hugo (22 intervenciones) el 21/03/2015 02:15:10
este codigo lo tengo en el boton del gridpara irme a la Orden señalada

m.orden = ALLTRIM(This.Parent.Parent.Column1.Text1.Value)

DO FORM frmordenes2


me da la primer orden nunca obedece la linea donde esta enfoque.
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
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

AYUDA CON UN GRID

Publicado por Fidel José (558 intervenciones) el 21/03/2015 12:57:32
Parece que tienes una columna con botones en tu grid.
La referencia debe ser al cursor o tabla que es recordsource del grid. Por ejemplo:

lcCursor=This.parent.parent.RecordSource
lcOrden = trim(evaluate(lcCursor+".orden")) && acá supongo que el campo de la Columna 1 se llama "Orden"
&& además supongo que es caracter por el Alltrim() que pones.
DO FORM frmordenes2

En este form frmOrdenes2, supuestamente te basas en la posición del puntero en la tabla del grid.
O tal vez pasas un parámetro que aquí no has puesto.
O estás tomando m.lcOrden como variable PRIVATE y resulta visible desde frmOrdenes2. Si es así, trata de respetar la encapsulación:

<Click_Botongrd>
local lcOrden
lcOrden = trim(evaluate(This.parent.parent.RecordSource+".orden"))
do form frmOrdenes2 WITH lcOrden
</Click_Botongrd>

En el form frmOrdenes2 tienes que hacer un cambio:
<Init>
LPARAMETERS tcOrden
Addproperty(thisform,"Orden",tcOrden)
</Init>
En frmOrdenes2, donde uses la variable m.Orden, reemplaza por Thisform.Orden

Apostilla:
No es buena práctica usar el prefijo "frm" para el nombre de los binarios (scx,sct). Cuando tengas muchos formularios, será una penuria encontrar alguno. Mejor, usa la propiedad Name de cada form para ese prefijo.
En cambio es absolutamente recomendable usar los prefijos para designar las variables de memoria y los objetos de form o de clase.

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
Variables (2 caracteres)
----------------------------------
Caracter 1 (izquierda)
l: LOCAL
p: PRIVATE
g: global (variable publica)
t: Parámetro
 
Caracter 2
c	Character
n	Numeric
i	Integer
d	Fecha (date())
t	Fecha y hora (datetime())
l	logic (.T. , .F.)
o	Objeto
 
* Ejemplos
LOCAL lnCasos,lcSTring,ldFecha,ltFecha,llEstado,loForm
lnCasos = 12
lcString = "Visual Fox Pro 9.0"
ldFecha = date()
ltFecha = datetime()
llEstado = .t.
loForm = newobject("Form")
 
 
-------------------------------------------------------------------------------
Objetos (3 caracteres)
Prefijo			Objeto				Ejemplos
--------------	------------------	---------------------
chk				CheckBox			chkReadOnly
col				Collection			colFormObjects
cbo				ComboBox			cboEnglish
cmd				CommandButton		cmdCancel
cmg				CommandGroup		cmgChoices
cnt				Container			cntMoverList
ctl				Control				ctlFileList
edt				EditBox				edtTextArea
frm				Form				frmFileOpen
frs				FormSet				frsDataEntry
grd				Grid				grdPrices
grc				Column				grcCurrentPrice
grh				Header				grhTotalInventory
img				Image				imgIcon
lbl				Label				lblHelpMessage
lin				Line				linVertical
lst				ListBox				lstPolicyCodes
olb				OLEBoundControl		olbObject1
ole				OLE					oleObject1
opt				OptionButton		optFrench
opg				OptionGroup			opgType
pag				Page				pagDataUpdate
pgf				PageFrame			pgfLeft
sep				Separator			sepToolSection1
shp				Shape				shpCircle
spn				Spinner				spnValues
txt				TextBox				txtGetText
tmr				Timer				tmrAlarm
tbr				ToolBar				tbrEditReport
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