FoxPro/Visual FoxPro - Campo variable en grid, no me funciona

   
Vista:

Campo variable en grid, no me funciona

Publicado por Juan Miguel (79 intervenciones) el 22/07/2014 10:58:25
Hola a Todos

Tengo un grid, en el que un campo tiene que ponerme "Terrestre", "Aereo" o "Maritimo", en fucnion del valor de un campo de la tabla que tengo asociada al grid, lo he probado de muchas maneras, pero no consigo que funcione, podéis echarme una mano ??

Lo ultimo que tengo implementado es esto, pero al ejecutarlo me dice que falta una "," (una coma), y la verdad yo lo veo bien.

En el caso de tner qu eponer una funcion, esta funcion tendria que tenerla excrita en ??? (prg. principal?), en el INIT del formulario ??

Ahh, esta aplicacion esta desarrollada en VFP6

Gracias anticipadas y un saludo

------------------------------------------ Código para inicializar el GRID -------------------------------------------
PUBLIC cTipoDocIn

cTipoDocIn = "Iif( EXPEINTE.X_TIPEXP = 'T', 'Terrestre', Iif( EXPEINTE.X_TIPEXP = 'A', 'Aéreo', Iif( EXPEINTE.X_TIPEXP = 'M', 'Maritimo, 'Sin tipo.' ) ) )"


with ThisForm.GridExpe
* .ColumnCount = 10
.RecordSource = 'EXPEINTE'
.SetAll( 'movable', .F. )
.SetAll( 'enabled', .T. )
.SetAll( 'resizable', .F. )

.Column1.ControlSource = 'X_INTE'
.Column2.ControlSource = 'X_IEXP'
.Column3.ControlSource = 'X_IFECEXP'
.Column4.ControlSource = &cTipoDocIn

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

Campo variable en grid, no me funciona

Publicado por Fidel José (558 intervenciones) el 22/07/2014 15:35:44
Para VFp6, te conviene poner como controlsource una función de usuario:

* 1 - La función (en un prg)

PROCEDURE TipoDesp
lparameters tcTipo
local lcResp
lcResp=""

do case
case tcTipo="T"
lcResp="Terrestre
case tcTipo="A"
lcResp="Aereo"
case tcTipo="M"
lcResp="Marítimo"
otherwise
lcREsp="(No Informado)"
endcase
return lcResp
ENDPROC

* 2 - La asignación de control source
.Column4.ControlSource="TipoDesp( EXPEINTE.X_TIPEXP)"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Campo variable en grid, no me funciona

Publicado por Juan Miguel solis.juanmiguel@gmail.com (79 intervenciones) el 22/07/2014 21:58:13
Hola Fidel Jose

Perecto, me funciona muy bien.

Muchas gracias.


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