Campos con combobox

[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

[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  Expand view

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.

[jaba]

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  Expand view

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

[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

[Antonio Linares]

Jairo,

Prueba asi:

Code: Select all  Expand view

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