Portada
Banner
Portada Foros Manuales Enlaces Email
clear1x1.gif clear1x1.gif clear1x1.gif
clear1x1.gif
clear1x1.gif

Portada
Foros
Manuales
Enlaces
Distribuidores
Precios
Sugerencias

Contacto

 

clear1x1.gif clear1x1.gif
 ResBuilder - Manual del Usuario (Parte 32/35)
Primero Previo Próximo Último

...
0700 LET clien.limite_cr=NUM(CTRL(sysgui,id_limite,obtener_texto))
0710 IF clien.codigo$=FILL(LEN(clien.codigo$)) THEN GOTO falta_codigo
0720 IF clien.nombre$=FILL(LEN(clien.nombre$)) THEN GOTO falta_nombre
0730 RETURN
0740 REM ------------
0750 grabar_registro:
0760 SQLPREP (sqlchan)"Insert into Clientes values(?,?,?,?,?,?)"
0770 SQLEXEC (sqlchan,ERR=actualizar_tabla)clien.codigo$,clien.nombre$,clien.d
0770:ireccion$,clien.telefono,clien.fecha_ing,clien.limite_cr
0780 GOTO nuevo_registro
0790 REM --------------
0800 actualizar_tabla:
0810 SQLPREP (sqlchan)"Update Clientes set Nombre=?,Direccion=?,TELEFONO=?,FEC
0810:HA_ING=?,LIMITE_CR=? WHERE CODIGO='"+clien.codigo$+"'"
0820 SQLEXEC (sqlchan)clien.nombre$,clien.direccion$,clien.telefono,clien.fech
0820:a_ing,clien.limite_cr
0830 GOTO nuevo_registro
0840 REM ------------
0850 borrar_registro:
0860 LET m=MSGBOX("Desea borrar el codigo de cliente "+clien.codigo$,4+32,"Bor
0860:rar")
0870 IF m=7 THEN RETURN
0880 SQLPREP (sqlchan)"DELETE FROM CLIENTES WHERE CODIGO='"+clien.codigo$+"'"
0890 SQLEXEC (sqlchan)
0900 GOTO nuevo_registro
0910 REM -----------------------------
0920 validar_fecha:
0930 LET fecha$=CTRL(sysgui,id_fecha,obtener_texto)
0940 IF fecha$="" THEN LET clien.fecha_ing=-1; RETURN
0950 IF LEN(fecha$)=8 THEN LET clien.fecha_ing=JUL(NUM(fecha$(5)),NUM(fecha$(3
0950:,2)),NUM(fecha$(1,2)),ERR=fecha_incorrecta) ELSE IF LEN(fecha$)=6 THEN LE
0950:T clien.fecha_ing=JUL(NUM(STR(20-INT(NUM(fecha$(5))/50))+fecha$(5)),NUM(f
0950:echa$(3,2)),NUM(fecha$(1,2)),ERR=fecha_incorrecta) ELSE GOTO fecha_incorr
0950:ecta
0960 RETURN
0970 REM
0980 limpiar_pantalla:
0990 PRINT (sysgui)'CLRTITLE'(id_cliente,id_nombre,id_telefono,id_fecha,id_lim
0990:ite)
1000 PRINT (sysgui)'TXCLR'(id_direccion)
1010 RETURN
1020 REM -------------------------------------------
1030 carga_lista_nombres: REM De Clientes existentes
1040 SQLPREP (sqlchan)"select codigo,nombre from clientes order by nombre"
1050 SQLEXEC (sqlchan)
1060 DIM cli$:SQLTMPL(sqlchan)
1070 PRINT (sysgui)'LISTCLR'(id_nombre)
1080 lee_clientes:
1090 LET cli$=SQLFETCH(sqlchan,ERR=fin_lista)
1100 PRINT (sysgui)'LISTADD'(id_nombre,-1,cli.nombre$+" "+cli.codigo$)
1110 GOTO lee_clientes
1120 fin_lista:
1130 RETURN
1140 REM
1150 REM -------------------
1160 busca_cliente_en_lista:
1170 LET nombre$=CTRL(sysgui,id_nombre,obtener_texto)
1180 IF nombre$="" THEN RETURN
1190 IF LEN(nombre$)<LEN(clien.nombre$)+LEN(clien.codigo$) THEN RETURN
...

Primero Previo Próximo Último

Portada -- Foros -- Manuales -- Enlaces-- Sugerencias
Para comentarios: webmaster@essnet.com

clear1x1.gif
clear1x1.gif
clear1x1.gif
Portada Email Foros