...
1700 LET nombre$=CTRL(sysgui,102,obtener_texto)
1710 IF CVS(nombre$,2)="" THEN GOTO leer_eventos
1720 LET clien.codigo$=nombre$(LEN(clien.nombre$)+2)
1730 REM
1740 verifica_codigo:
1750 PRINT (sysgui)'CONTEXT'(1),'DESTROY','CONTEXT'(0)
1760 SQLPREP (sqlchan)"SELECT * FROM CLIENTES WHERE CODIGO='"+clien.codigo$+"'
1760:"
1770 SQLEXEC (sqlchan)
1780 DIM cli$:SQLTMPL(sqlchan)
1790 LET cli$=SQLFETCH(sqlchan,ERR=nuevo_registro)
1800 REM desplegar_registro
1810 GOSUB limpiar_pantalla
1820 PRINT (sysgui)'TITLE'(id_cliente,cli.codigo$)
1830 PRINT (sysgui)'TITLE'(id_nombre,cli.nombre$)
1840 PRINT (sysgui)'TXADD'(id_direccion,-1,cli.direccion$)
1850 PRINT (sysgui)'TITLE'(id_telefono,cli.telefono$)
1860 PRINT (sysgui)'TITLE'(id_fecha_ing,DATE(cli.fecha_ing:"%Dz%Mz%Yl"))
1870 PRINT (sysgui)'TITLE'(id_limite,STR(cli.limite_cr))
1880 GOTO leer_eventos
1890 nuevo_registro:
1900 GOSUB limpiar_pantalla
1910 RETURN
1920 REM
1930 REM
1940 REM ---------------------------------------------------------------------
1950 imprimir_reporte:
1960 LET imp=UNT; OPEN (imp,MODE="PREVIEW,COLS=132",ERR=impresora_ocupada)"PD"
1970 LET lin=99,lxp=54,pag=0
1980 SQLPREP (sqlchan)"select * from clientes"
1990 SQLEXEC (sqlchan)
2000 REM
2010 imprimir_clientes:
2020 LET clien$=SQLFETCH(sqlchan,ERR=fin_de_reporte)
2030 READ RECORD(sysgui,SIZ=LEN(e$),TIM=0,ERR=2040)e$; IF e.code$="X" THEN LET
2030: m=MSGBOX("Desea Cancelar el Reporte",4+32,"Cancelar Impresión"); IF m=6
2030:THEN GOTO cancelar_impresion
2040 IF lin>lxp THEN GOSUB encabezado
2050 PRINT (imp)clien.codigo$," ",clien.nombre$," ",clien.telefono$," ",DATE
2050:(clien.fecha_ing:"%Dz/%Mz/%YL")," ",clien.limite_cr
2060 LET lin=lin+1
2070 GOTO imprimir_clientes
2080 REM
2090 encabezado:
2100 LET lin=0,pag=pag+1; IF pag>1 THEN PRINT (imp)'FF',
2110 PRINT (imp)PAD("REPORTE DE CLIENTES",132,"C"),@(115),"Pagina: ",pag
2120 PRINT (imp)FILL(132,"-")
2130 PRINT (imp)"CODIGO NOMBRE"+FILL(45)+"TELF"+FILL(4)+"FECHA ING "+FILL(4)
2130:+"LIMITE_CR"
2140 PRINT (imp)FILL(132,"-")
2150 RETURN
2160 REM
2170 fin_de_reporte:
2180 PRINT (imp)'FF',
2190 REM
2200 cancelar_impresion:
2210 CLOSE (imp)
2220 GOTO leer_eventos
...