SQL - PROBLEMA CON EL GRID

   
Vista:

PROBLEMA CON EL GRID

Publicado por HUGO (Guatemala) (27 intervenciones) el 13/02/2010 16:44:12
HOLA AMIGOS, QUE DIOS LES BENDIGA A TODOS

ESTOY HACIENDO UN PROGRAMA PARA FACTURAR
EN LA FORM EN DONDE SE INGRESAN LOS CODIGOS DE LOS PRODUCTOS
Y LAS CANTIDADES, LE AGREGUE UN GRID

EN EL TEXT2 RECIBE EL PRODID Y EL TEXT3 RECIBE LA CANTIDAD

EN LOST FOCUS DEL TEXT3, LE PUSE ESTA RUTINA, QUE DEBIERA DE
ACUMULAR TANTO LA CANTIDAD VENDIDA COMO EL TOTAL, CUANDO
SE REPITIERA UN PRODID, PERO NO ME FUNCIONA

DE ANTEMANO GRACIAS POR SU AYUDA

ELMISMO = THISFORM.TEXt2.Value

SELECT PRODID AS CODIGO;
FROM FACTURA1;
WHERE PRODID = ELMISMO;
INTO CURSOR MISMO

IF MISMO.CODIGO = ELMISMO

UPDATE FACTURA1 SET CANTIDAD = CANTIDAD+THISFORM.Text3.Value;
WHERE PRODID = MISMO.CODIGO
UPDATE FACTURA1 SET TOTAL = CANTIDAD * PRECIO;
WHERE PRODID = MISMO.CODIGO

THISFORM.Grid1.Refresh

THISFORM.Text2.SetFocus

ELSE

SELECT NOMBRE AS ARTICULO;
FROM CAT_FAMILIAS;
WHERE FAMID = LEFT (THISFORM.Text2.Value,2);
INTO CURSOR NOMBRE

SELECT PRECIOD AS VALOR;
FROM CAT_PRODUCTOS;
WHERE PRODID = THISFORM.TExt2.Value;
INTO CURSOR VALOR

INSERT INTO FACTURA1 (FECHA,CLIENTEID,PRODID,PRODUCTO,CANTIDAD,PRECIO,TOTAL)VALUES(;
DATE(),;
THISFORM.Text1.Value,;
THISFORM.Text2.Value,;
NOMBRE.ARTICULO,;
THISFORM.Text3.Value,;
VALOR.VALOR,;
THISFORM.Text3.VALUE*VALOR.VALOR)

THISFORM.Grid1.Refresh

THISFORM.Text2.SetFocus
ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder