Grid no me presenta un dato en foxpro

Cuando agrego datos a un cursor que esta vinculado a un grid no me sale la descripción uso este código

PUBLIC MSUP, MEXI, des, vcodigo
IF EMPTY(this.value) .OR. ;
LASTKEY() = 27
RETURN
ENDIF
VCODIGO = THIS.Value
mpre = thisform.precio.ListItemId
ABRE_TABLA ("ITEMS")
LOCATE FOR ITEMS.CODIGO = VCODIGO
If found()
COD = ITEMS.CODIGO
DES = ITEMS.DESIT
CAN = 1
ITE = ITEBIS
existencia = ITEMS.exiit
DO CASE
CASE mpre = 1
PRE = ITEMS.PRECIO1
CASE mpre = 2
PRE = ITEMS.PRECIO2
CASE mpre = 3
PRE = ITEMS.PRECIO3
ENDCASE
IMP = CAN*PRE
MSUP = NOM_SUP_IT
cost = COSIT
ite = ITBIT
DESCU = DESC_IT
DG = ITEBIS
NF = THISFORM.MNUMERO.Value
existencia = exiit
ELSE
MESSAGEBOX("Producto no registrado.")
RETURN
ENDIF
ABRE_TABLA ("Configuracion")
SELECT configuracion
IF val_exi = 1
IF existencia =< 0
= MESSAGEBOX('No Hay Existencia de Ese Producto , Verifique.....!', 64, 'Aviso')
RETURN 0
ENDIF
ENDIF
MON_IT = ITE/100+1
MON_I = PRE/MON_IT
MON_ITEB = MON_I*ITE/100
Thisform.meXI.Value = existencia
SELECT (thisform.detalle_factura)
Index on cod_items TAG cod_items
Seek vcodigo
IF Found()
UPDATE (thisform.detalle_factura) SET Cantidad = Cantidad+1, precio = pre, mon_itebis = CANTIDAD*MON_ITEB, Subtotal = Cantidad*Precio WHERE cod_items = vcodigo
ELSE
INSERT INTO (thisform.detalle_factura) VALUES(COD, DES, CAN, PRE, CAN*MON_ITEB, IMP, NF, MSUP, cost, Ite, descu, DG)
ENDIF
SUM(Subtotal)to thisform.mtotal.value
SUM(Subtotal)to thisform.text7.value
SUM(mon_itebis)to thisform.TEXT5.value
SELECT (thisform.detalle_factura)
LOCATE
THISFORM.TEXT4.Value = RECCOUNT()
THISFORM.GRID1.Refresh
cierra_Tabla ("ITEMS")

Cualquier recomendación con el código es aceptado

1

1 Respuesta

57.100 pts. Programación, hardware, configuraciones, temas...

Perdona la demora en responder Placido... ¿haz resuelto ya tu problema o aún necesitas ayuda?.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas