VISUAL FOXPRO Ejemplos Con Ejercicios PDF
VISUAL FOXPRO Ejemplos Con Ejercicios PDF
VISUAL FOXPRO
Páginas
Ejemplos con Ejercicios Página principal
Historia
Preparar un formulario de Facturación Caracteristicas
Ventajas y Desventajas
Versiones
En la parte inferior se muestra el producto final para llegar a ello,
¿COMO INSTALARLO?
Ud. Debe realizar ciertos pasos previos que se detallan después
INSTALADOR
del grafico
Video Tutorial
Manual teorico practico
Enlaces
Ejemplos con Ejercicios
Seguidores
Miembros (6)
Laura Cañon
monagarcia.blogspot.com.ar/p/ejemplos-con-ejercicios.html 1/7
08/12/13 VISUAL FOXPRO: Ejemplos con Ejercicios
4. En tiempo de Diseño:
Mas propiedades
continuación
Evento Init
Public srec
set multilock on
set talk off
set safety off
set exclusive on
SELECT GUIAENC
=cursorsetprop("buffering",3)
set order to tag Nguia
monagarcia.blogspot.com.ar/p/ejemplos-con-ejercicios.html 3/7
08/12/13 VISUAL FOXPRO: Ejemplos con Ejercicios
go bottom
thisform.txtnguia.value=right("00000"+alltrim(str(val(nguia)+
1)),6)
append blank
replace nguia with thisform.txtnguia.value
Select temporal
dele all
set dele on
append blank
replace nguia with thisform.txtnguia.value
srec=recno()
thisform.grdDetalle.refresh
thisform.txttotal.value=0
Evento Destroy
SELECT GUIAENC
=Tablerevert(.t.)
SELECT TEMPORAL
Objeto: Cmbdescripcion
Evento: Click
if
len(allt(thisform.grddetalle.coldescripcion.cmbdescripcion.v
alue))>0
thisform.grddetalle.colcantidad.spncantidad.setfocus
else
thisform.grddetalle.coldescripcion.cmbdescripcion.setfocus
endif
thisform.refresh
Evento: Interactivechange
SELECT temporal
go srec
replace artcod with articulo.artcod
replace preuni with articulo.artpre
replace subtotal with
thisform.grddetalle.colcantidad.spncantidad.value*p
reuni
sum subtotal to ntotal
go srec
thisform.txttotal.value=ntotal
thisform.grddetalle.colcantidad.spncantidad.value=
1
thisform.refresh
Evento: LostFocus
if
len(allt(thisform.grddetalle.coldescripcion.cmbdescripcion.v
alue))>0
thisform.grddetalle.colcantidad.spncantidad.setfocus
else
thisform.grddetalle.coldescripcion.cmbdescripcion.setfocus
endif
monagarcia.blogspot.com.ar/p/ejemplos-con-ejercicios.html 4/7
08/12/13 VISUAL FOXPRO: Ejemplos con Ejercicios
thisform.refresh
Objeto: spnCantidad
Evento: InteractiveChange
select temporal
replace subtot with
thisform.grddetalle.colcantidad.spncantidad.value*preuni
nrec=recno()
sum subtotal to ntotal
go nrec
thisform.txttotal.value=ntotal
thisform.refresh
Evento: LostFocus
thisform.grddetalle.coldescripcion.cmbdescripcion.
setfocus
Objeto: cmbCliente
Evento: Click
SELECT GUIAENC
replace cliecod with cliente.cliecod
thisform.grddetalle.coldescripcion.cmbdes
cripcion.setfocus
THISFORM.REFRESH
Objeto: cmdAgregar
Evento: Click
public srec
SELECT TEMPORAL
if len(allt(artdet))>0
append blank
srec=recno()
thisform.grddetalle.colcantidad.spncantidad.value=1
endif
replace nguia with thisform.txtnguia.value
thisform.grddetalle.coldescripcion.cmbdes
cripcion.setfocus
thisform.refresh
Objeto: cmdNuevo
Evento: Click
Public srec
select temporal
dele all
set dele on
append blank
replace nguia with
thisform.txtnguia.value
srec=recno()
thisform.grddetalle.refresh
thisform.txttotal.value=0
thisform.refresh
Objeto: cmdGuardar
monagarcia.blogspot.com.ar/p/ejemplos-con-ejercicios.html 5/7
08/12/13 VISUAL FOXPRO: Ejemplos con Ejercicios
Evento: Click
SELECT GUIAENC
replace igv with thisform.txttotal.value*0.18
replace total with thisform.txttotal.value
=tableupdate(.t.)
SELECT TEMPORAL
Scan
insert into
guiadet(nguia,artcod,artdet,preuni,cant,subtotal);
values(temporal.nguia,temporal.art
cod,temporal.artdet,;
temporal.preuni,temporal.cant,temporal.subtotal)
EndScan
SELECT GUIAENC
set order to tag Nguia
go bottom
thisform.txtnguia.value=right("00000"+alltri
m(str(val(nguia)+1)),6)
Objeto: cmdSalir
Evento: Click
SELECT GUIAENC
=tablerevert(.t.)
SELECT TEMPORAL
release thisform
Queda para el usuario hacer los últimos toques, para que resulte un buen
monagarcia.blogspot.com.ar/p/ejemplos-con-ejercicios.html 6/7
08/12/13 VISUAL FOXPRO: Ejemplos con Ejercicios
diseño.
Página principal
monagarcia.blogspot.com.ar/p/ejemplos-con-ejercicios.html 7/7