Antonio:
Con este código intento que se posicione en el ultimo valor y se posiciona siempre en el primero. luego quiero consultar con un botón el valor de la práctica y que al volver conserve la obra social elegida , igual siempre queda en la primera posición . sldos gracias. Silvina
ESTE ES MI CODIGO
if len(aParams)=4 // LA PRIMERA VEZ ASIGNA EL ULTIMO, UNA VEZ ELEGIDA LA OS ASIGNO LA QUE DEVUELVO AL VOLVER DE LA CONSULTA
(OSO)->(dbseek(aParams[3]))
cValor:=(OSO)->descrip+' ['+(OSO)->cod_osoc+']' // PARA HACER N CONSULTAS CONSERVANDO LA OBRA SOCIAL ELEGIDA
else // NO VEO NUNCA QUE ME PONGA UN "SELECTED" EN EL CODIGO FUENTE
cValor :=aObras[ len(aObras) ]
endif
cValor :=aObras[ len(aObras) ]
*
DEFINE DIALOG oDlg TITLE "Consultar el valor de una práctica" SIZE 550 , 300
@ 42 , 130 SAY "Obra Social :" OF oDlg
TComboBox():New( 42 , 250 , , , oDlg , aObras , "oGet1", cValor , )
ESTE ES EL CODIGO FUENTE DE LA PAGINA
↧