Page 1 of 1
Campos con combobox
Posted: Sat Jun 14, 2008 1:22 pm
by jaba
Antonio
Un saludo cordial
Como puedo con un combobox abrir diferentes campos uno a la vez
Tengo una base con diferentes campos memo en donde guardo texto el que se debe ver según la elección, no se como hacerlo o si se puede hacer.
De antemano.. Gracias
Jairo Barbosa
Posted: Sat Jun 14, 2008 8:57 pm
by cmsoft
Hola Jaba:
Lo que puedes hacer es mostrar un Browse y un campo Texto multilinea que muestre el contenido del campo memo.
Code: Select all
REDEFINE GET oGet2 VAR mobserva ID 118 OF oDlg WHEN(.F.) MULTILINE
REDEFINE BROWSE oBrw ID 120 OF oDlg;
ON CHANGE ((oGet2:cText := MEMOTRAN((marchi)->observa,". "," ")),oGet2:Refresh())
ADD COLUMN TO oBrw DATA (marchi)->fecha SIZE 100 HEADER "Fecha"
ADD COLUMN TO oBrw DATA (marchi)->nombre SIZE 1300 HEADER "Medico"
A medida que cambia el registro en el browse cambia el contenido del texto.
Espero te sirva.
Posted: Sun Jun 15, 2008 5:19 pm
by jaba
cmsoft wrote:Hola Jaba:
Lo que puedes hacer es mostrar un Browse y un campo Texto multilinea que muestre el contenido del campo memo.
Code: Select all
REDEFINE GET oGet2 VAR mobserva ID 118 OF oDlg WHEN(.F.) MULTILINE
REDEFINE BROWSE oBrw ID 120 OF oDlg;
ON CHANGE ((oGet2:cText := MEMOTRAN((marchi)->observa,". "," ")),oGet2:Refresh())
ADD COLUMN TO oBrw DATA (marchi)->fecha SIZE 100 HEADER "Fecha"
ADD COLUMN TO oBrw DATA (marchi)->nombre SIZE 1300 HEADER "Medico"
A medida que cambia el registro en el browse cambia el contenido del texto.
Espero te sirva.
//***********************************************************/
Gracias cmsoft por tu orientacion
No lo había pensado así pero me parece un buen camino, lo tomare
Cordila Abrazo
Jairo Barbosa
Para cmsoft
Posted: Mon Jun 16, 2008 3:14 pm
by jaba
Buen dia cmsoft
Funciona perfectamente la sugerencia que me hiciste, no se si quieras ver una imagen pero me surge otra pregunta, como puedo hacer una búsqueda con memoread sobre el texto que estoy presentando para que la búsqueda se ubique en el primer renglón del get multilinea?
Te agradecer cualquier orientación al respecto ya que soy un aprendiz de este sistema
Saludo Cordial
Jairo Barbosa
Posted: Mon Jun 16, 2008 7:04 pm
by Antonio Linares
Jairo,
Prueba asi:
Code: Select all
function BuscaTexto( oMultiGet, cTexto )
local n
for n = 1 to oMultiGet:GetLineCount()
if cTexto $ oMultiGet:GetLine( n )
oMultiGet:Goto( n )
return nil
endif
next
return nil