SUMA DE VALORES

ROS
24 de Diciembre del 2003
HOLA, TENGO UN PROBLEMA CON SUMA DE VALORES Y ES EL SIGUIENTE, NECESITO SACAR CUSNTO VENDI EN UN DIA DETERMINADO POR MEDIO DE FACTURAS, EN ESTAS FACTURAS TENGO EL NUMERO DE FATURA Y LA FECHA EN QUE SE VENDIO Y SI TENGO 3 FACTURAS PARA EL DIA 6 Y LAS DE LAS TRES FACTURAS UNA TIENE 100, LA OTRA 200 Y LA OTRA 300, MI VENTA BRUTA ES DE 600 Y ESE RESULTADO NO ME SALE, EL CODIGO ES EL SIGUIENTE Y ES UN PRG:


CLEAR
CLOSE DATABASE
DEFINE WINDOW VENTANA FROM 1,1 TO 50,100
ACTIVATE WINDOW VENTANA
SELEC 1
USE BASE1
SET INDEX TO INDEX1
SELEC 5
USE BASE5
SELEC 6
USE BASE6
SET INDEX TO INDEX6
GO TOP
LIN1 = 4
STORE (0) TO TOTAL, VTOTAL
SELEC 5
DO WHILE .NOT. EOF ()
IF B = DATE ()
@ LIN1,19 SAY A COLOR B/W
STORE A TO NUMERO
SELEC 6
GO TOP
SEEK NUMERO
* CONVERCION DE LAS VARIABLES PARA LA BUSQUEDA DE DATOS EN LA BASE 1
STORE C1 TO VC1
STORE CANT1 TO VCANT1
STORE C2 TO VC2
STORE CANT2 TO VCANT2
STORE C3 TO VC3
STORE CANT3 TO VCANT3
STORE C4 TO VC4
STORE CANT4 TO VCANT4
STORE C5 TO VC5
STORE CANT5 TO VCANT5
* COMINEZA EL PRIMER CICLO DE VARIABLES CON VC1
SELEC 1
GO TOP
SEEK VC1
IF FOUND ()
STORE (0) TO IMPO1
IMPO1 = F * VCANT1
ELSE
STORE (0) TO IMPO1
ENDIF
* COMINEZA EL PRIMER CICLO DE VARIABLES CON VC2
SELEC 1
GO TOP
SEEK VC2
IF FOUND ()
STORE (0) TO IMPO2
IMPO2 = F * VCANT2
ELSE
STORE (0) TO IMPO2
ENDIF
* COMINEZA EL PRIMER CICLO DE VARIABLES CON VC2
SELEC 1
GO TOP
SEEK VC2
IF FOUND ()
STORE (0) TO IMPO2
IMPO2 = F * VCANT2
ELSE
STORE (0) TO IMPO2
ENDIF
* COMINEZA EL PRIMER CICLO DE VARIABLES CON VC3
SELEC 1
GO TOP
SEEK VC3
IF FOUND ()
STORE (0) TO IMPO3
IMPO3 = F * VCANT3
ELSE
STORE (0) TO IMPO3
ENDIF
* COMINEZA EL PRIMER CICLO DE VARIABLES CON VC4
SELEC 1
GO TOP
SEEK VC4
IF FOUND ()
STORE (0) TO IMPO4
IMPO4 = F * VCANT4
ELSE
STORE (0) TO IMPO4
ENDIF
* COMINEZA EL PRIMER CICLO DE VARIABLES CON VC5
SELEC 1
GO TOP
SEEK VC5
IF FOUND ()
STORE (0) TO IMPO5
IMPO5 = F * VCANT5
ELSE
STORE (0) TO IMPO5
ENDIF
* COMIENZA LA SUMA DE LOS VALORES DE VC1 HASTA VC5
STORE (0) TO SUBTOTAL
STORE (0) TO IVA
SUBTOTAL = IMPO1 + IMPO2 + IMPO3 + IMPO4 + IMPO5
IVA = SUBTOTAL * 0.15
TOTAL = IVA + SUBTOTAL
@ LIN1,35 SAY TOTAL
LIN1 = LIN1 + 2
SELEC 5
SKIP
ELSE
SKIP
ENDIF
ENDDO

NOTA : SI VEN MUCHAS BASES DE DATOS ABRIENDO Y CERRANDO ES QUE ASI LO QUIERE MI MAESTRO Y LA BUSQUEDA DE FACTURA Y LOS IMPORTES VAN POR SEPARADO YA QUE EN BASE FACTURA ESTA EL NUMERO Y LA FECHA CON LOS DATOS DEL CLIENTE Y EN LA BASE VENTAS ESTA EL NUMERO DE VENTA QUE ESTA LIGADO CON EL DE LA FACTURA, LAS CLAVES DE LOS PRODUCTOS Y LA CANTIDAD QUE VENDI DE CADA PRODUCTO, POR ESO ES DE QUE HAGO MUCHAS BUSQUEDAS EN BASES DISTINTAS Y ESO NO ES PROBLEMA, EL PROBLEMA ES ESA PINCHE SUMA QUE NO ME SALE, POR FAVOR AYUNDEME PARA NO PERDER MI BECA.

ATENTAMENTE

UNA DAMA DESESPERADA...


ferherpe
24 de Diciembre del 2003
Hola Ros
Si me lo permites te voy a enviar un fragmento de codigo que uso en una consulta de ventas, las cuales pueden ser diarias y/o en un periodo entre 2 fechas. Hay algunas variantes, pero basicamente es lo mismo
Espero que te sea de utilidad
Saludos