...
1200 LET clien.codigo$=nombre$(LEN(clien.nombre$)+2); GOTO 1240
1210 REM -------------------------------------
1220 desplegar_cliente:
1230 LET clien.codigo$=CTRL(sysgui,id_cliente,obtener_texto)
1240 IF clien.codigo$=FILL(LEN(clien.codigo$)) THEN RETURN
1250 SQLPREP (sqlchan)"select * from clientes where codigo='"+clien.codigo$+"'
1250:"
1260 SQLEXEC (sqlchan)
1270 LET clien$=SQLFETCH(sqlchan,ERR=registro_no_existe)
1280 REM
1290 REM Pasa campos a objetos
1300 GOSUB limpiar_pantalla
1310 PRINT (sysgui)'TITLE'(id_cliente,clien.codigo$),'DISABLE'(id_cliente)
1320 PRINT (sysgui)'TITLE'(id_nombre,clien.nombre$)
1330 PRINT (sysgui)'TXADD'(id_direccion,-1,clien.direccion$)
1340 PRINT (sysgui)'TITLE'(id_telefono,clien.telefono$)
1350 PRINT (sysgui)'TITLE'(id_fecha,DATE(clien.fecha_ing:"%Dz%Mz%Yl"))
1360 PRINT (sysgui)'TITLE'(id_limite,STR(clien.limite_cr))
1370 PRINT (sysgui)'ENABLE'(boton_borrar,-mnu_borrar)
1380 RETURN
1390 REM
1400 registro_no_existe:
1410 RETURN
1420 REM
1430 REM ---------------------------------------------------------------------
1440 busca_cliente_por_nombre:
1450 REM Primero debe hacer aparecer el segundo contexto
1460 PRINT (sysgui)'CONTEXT'(1),'RESOURCE'(LEN(consulta$)),consulta$
1470 PRINT (sysgui)'SHOW'(0)
1480 PRINT (sysgui)'FOCUS'(101)
1490 REM
1500 analisa_eventos_segundo_contexto:
1510 IF e.code$="X" THEN PRINT (sysgui)'CONTEXT'(1),'DESTROY','CONTEXT'(0); GO
1510:TO leer_eventos
1520 IF e.id=102 AND e.code$="l" THEN GOTO fin_busqueda
1530 IF e.id=101 AND e.code$="f" AND e.flags=0 THEN GOTO 1560
1540 GOTO leer_eventos
1550 REM
1560 REM Al perder Foco en objeto 101 muestra nombres que coincidan
1570 LET nombre$=CTRL(sysgui,101,obtener_texto)
1580 IF CVS(nombre$,2)="" THEN GOTO leer_eventos
1590 SQLPREP (sqlchan)"SELECT CODIGO,NOMBRE FROM CLIENTES WHERE NOMBRE >='"+no
1590:mbre$+"' ORDER BY NOMBRE"
1600 SQLEXEC (sqlchan)
1610 DIM cli$:SQLTMPL(sqlchan)
1620 PRINT (sysgui)'LISTCLR'(102)
1630 lee_nombres:
1640 LET cli$=SQLFETCH(sqlchan,ERR=leer_eventos)
1650 IF cli.nombre$(1,LEN(nombre$))>nombre$ THEN GOTO leer_eventos
1660 PRINT (sysgui)'LISTADD'(102,-1,cli.nombre$+" "+cli.codigo$)
1670 GOTO lee_nombres
1680 REM
1690 fin_busqueda: REM de clientes por nombre (Clic en Caja de Lista)
...