### RESPUESTA A LA PREGUNTA 29693 - OTROS ###
### http://www.lawebdelprogramador.com    ###


Creacion de campo en tabla:
Con ISQL:
Table Notas
Campo gaceta
        Variable-Length
                 Text
                         Table               Para que se grabe en tabla
                  or   Blobspace       Si tienes un Blobspace definido
Te quedara el campo definido asi:    gaceta    text

Definir un formulario, especificando el campo y el editor de texto asi:

DATABASE xxxxx                                               
SCREEN size 24 by 80                                          
{                                                             
               N O T A S                    
               --------------                    
                                                              
 NOTA:[f001                                                  ]
                                                              
                Para ingresar o modificar presione !     ### Ojo, estando en el campo se debera presionar "!", caso contrario no entra
}                                                             
END                                                           
                                                              
TABLES                                                        
notas                                                       
                                                              
ATTRIBUTES                                                    
                                                              
f001 = notas.gaceta,WORDWRAP,PROGRAM = "vi";
                                                        Este es el editor, si tienes otro
                                                       
INSTRUCTIONS                                                  
DELIMITERS " "                                                
SCREEN RECORD s_text(notas.gaceta)                                
END

Despues en el codigo:
   DEFINE l_demtexto    TEXT   
                                
   LOCATE l_demtexto IN MEMORY    ## Para reservar espacio en memoria

   OPEN WINDOW w_texto AT 14,4 WITH FORM "wintext" ATTRIBUTE(BORDER)
                                                                    
   INPUT l_demtexto WITHOUT DEFAULTS FROM s_text.demtexto           

Aqui deberas enseñar el uso del "VI" (o el editor que utilizaras), para el ingreso de la informacion y la grabación.

Para grabar:

   IF l_demtexto IS NOT NULL THEN                        
         INSERT INTO notas VALUES(numtran,l_demtexto)
    END IF                                                

Para actualizar                                                    
         UPDATE notas SET gaceta = l_demtexto              
          WHERE ?????? = XXXXXX                        

Para imprimir:
define       demtex     ARRAY[10] OF text,
                   nomarch    ARRAY[10] OF CHAR(10),
                   l_i              smallint

      LET nomarch[l_i] = "notas",l_i USING "<<&",".rpt"
      locate demtex[l_i] in file nomarch[l_i]          
                                                       
      select demtexto INTO demtex[l_i] from notas
       where  ????? = XXXXXXX
                                                       
      output to report noti(l_i)                 

Report (r_i)
   define r_i    smallint

      print file nomarch[r_i]


John Sanzetenea T.
jsanzetenea@labairlines.com.bo