topic-11568

Posts: 109

Joined: Tue Dec 12, 2006 12:39 AM

Campos con combobox
Posted: Sat Jun 14, 2008 01:22 PM

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

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Campos con combobox
Posted: Sat Jun 14, 2008 08:57 PM

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 Collapse

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.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

jaba

Posts: 109

Joined: Tue Dec 12, 2006 12:39 AM

Campos con combobox
Posted: Sun Jun 15, 2008 05:19 PM

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

Posts: 109

Joined: Tue Dec 12, 2006 12:39 AM

Para cmsoft
Posted: Mon Jun 16, 2008 03:14 PM

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

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Campos con combobox
Posted: Mon Jun 16, 2008 07:04 PM

Jairo,

Prueba asi:

Code: Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion