Acondicionar Fuente de los Datos para utilizar SQL

Para el programa que a continuación se desarrolla vamos a utilizar SQL en lugar de los verbos tradicionales como OPEN, WRITE y WRITE. Para eso necesitamos asegurarnos que el archivo c:\basis\vpro5\sql.ini considere el diccionario donde definimos la tabla CLENTES, cuando hicimos la práctica con DDBuilder. Por lo tanto, el archivo sql.ini que sirve para mostrar las bases de datos nativas disponibles, debe tener algo así como esto:

[BASIS Data Sources]
Chile Company
CD-Store
Cuentas por Cobrar

[Chile Company]
CONFIG=c:\BASIS\TOOLS\CHILEDD\CONFIG.TPM

[CD-Store]
CONFIG=c:\BASIS\TOOLS\GUIBUILD\CD-STORE\CONFIG.TPM

[Cuentas por Cobrar]
CONFIG=c:\basis\cursovp5\curso.tpm

Enterados de que Cuentas por Cobrar está incluida dentro del archivo sql.ini, podemos empezar a utilizarla en nuestro programa.

>DELETE
>
0010 REM Ejercicio1 Mantenimiento al Maestro de Clientes
0020 BEGIN
0030 REM -- Abre dispositivo SYSGUI --
0040 LET sysgui=UNT; OPEN (sysgui)"X0"
0050 DIM e$:TMPL(sysgui)
0060 REM
0070 REM --- Abre base de datos a usar ---
0080 LET sqlchan=SQLUNT
0090 SQLOPEN (sqlchan)"Cuentas por Cobrar"
0100 SQLPREP (sqlchan)"select * from Clientes order by Nombre"
0110 SQLEXEC (sqlchan)
0120 DIM clien$:SQLTMPL(sqlchan)
0130 REM
0140 REM  ----- abre el Contexo y lo despliega -----
0150 LET h=RESOPEN("\basis\cursovp5\Ejercicio1.brc")
0160 LET reg$=RESGET(h,1,101),consulta$=RESGET(h,1,102)
0170 PRINT (sysgui)'CONTEXT'(0),'RESOURCE'(LEN(reg$)),reg$; RESCLOSE (h)
0180 REM
0190 REM Asigna el Id de cada control a variables. Es lo mas recomendable.
...