Aqui estan los datos
Publicado por Yadira (3 intervenciones) el 11/04/2001 01:47:15
Hola
Gracias por contestar, mira aqui les envio un programa que hize ese fue el proyecto
3 y bueno no se mucho de V.F. pero supuestamente todos llevan la misma estructura,excepto
los ultimos proyectos pero todavia no los entregan, creo que la otra semana, ya podemos
ir a recogerlos, pero me gustaria que me ayudaran con estos
Miren este es el programa pasado y si me corrio:
*PROGR8.prg
*tabla de entrada factura_e.dbf
*tabla de salida importe.dbf
*inicializacion de variables
venta_s=0
descuen_s=0
importe_w=0
nombre_e=0
select 1 && area de trabajo para factura_e.dbf
use a:\factura_e
select 2 && area de trabajo para factura_s.dbf
use a:\importe
* dejar vacio la tabla de salida factura_s.dbf
DELETE ALL && borra logicamente los registros de factura_s.dbf
PACK && borra fisicamente todos los registros de factura_s.dbf
SELECT 1 && activa area de trabajo factura_e.dbf
*lectura secuencial del archivo factura_e.dbf
if venta_e > 100
descuen_s = 3
importe_s=venta_e * descuen_s
else
descuen_s=2
importe_s=venta_e
ENDIF
SELECT 2 && activa area de trabajo para importe.dbf
*hace espacio despues del ultimo registro en importe.dbf
APPEND BLANK
*reemplaza los valores de las variables
REPLACE IMPORTE.factura_s WITH FACTURA_E.factura_e,IMPORTE.nombre_s WITH FACTURA_E.nombre_e
REPLACE IMPORTE.venta_s WITH FACTURA_E.venta_e
REPLACE importe_s WITH importe_w
SELECT 1 && abre area de trabajo para factura_e
BROWSE && ver importe.dbf
CLOSE DATABASES &&cierra todas las tablas abierta
Gracias por contestar, mira aqui les envio un programa que hize ese fue el proyecto
3 y bueno no se mucho de V.F. pero supuestamente todos llevan la misma estructura,excepto
los ultimos proyectos pero todavia no los entregan, creo que la otra semana, ya podemos
ir a recogerlos, pero me gustaria que me ayudaran con estos
Miren este es el programa pasado y si me corrio:
*PROGR8.prg
*tabla de entrada factura_e.dbf
*tabla de salida importe.dbf
*inicializacion de variables
venta_s=0
descuen_s=0
importe_w=0
nombre_e=0
select 1 && area de trabajo para factura_e.dbf
use a:\factura_e
select 2 && area de trabajo para factura_s.dbf
use a:\importe
* dejar vacio la tabla de salida factura_s.dbf
DELETE ALL && borra logicamente los registros de factura_s.dbf
PACK && borra fisicamente todos los registros de factura_s.dbf
SELECT 1 && activa area de trabajo factura_e.dbf
*lectura secuencial del archivo factura_e.dbf
if venta_e > 100
descuen_s = 3
importe_s=venta_e * descuen_s
else
descuen_s=2
importe_s=venta_e
ENDIF
SELECT 2 && activa area de trabajo para importe.dbf
*hace espacio despues del ultimo registro en importe.dbf
APPEND BLANK
*reemplaza los valores de las variables
REPLACE IMPORTE.factura_s WITH FACTURA_E.factura_e,IMPORTE.nombre_s WITH FACTURA_E.nombre_e
REPLACE IMPORTE.venta_s WITH FACTURA_E.venta_e
REPLACE importe_s WITH importe_w
SELECT 1 && abre area de trabajo para factura_e
BROWSE && ver importe.dbf
CLOSE DATABASES &&cierra todas las tablas abierta
Valora esta pregunta


0