|
Estimado Experto:
Gracias por la ayuda, en la Propiedad de la Columna que corresponde al campo Cantidad efectuo lo siguiente:
IF nKeyCode = 13 THEN
replace cantidad with this.value
=seek(Salida_d.codarti,"articulo","codarti")
thisformset.form1.grid1.column6.text1.value=thisformset.form1.grid1.column4.text1.value * salida_d.prec_men
thisformset.form1.grid1.column6.text1.refresh()
Sele Salida_d
go top
sum valor_tota for Salida_d.nordcompra=Salida_c.nordcompra to thisformset.form1.txtTotal.value
thisformset.form1.txtTotal.refresh
Endif
*****
Codarti = Código del Producto
Articulo = Tabla Maestra de Productos
Column6 = Column a de Total en cada Fila
Column4 = Cantidad
Salida_c = Tabla Cabecera
Salida_d = Tabla Detalle
nordcompra = No. de Documento
A medida que voy avanzando fila a fila, los calculos son correctos. El problema es cuando avanzo por decir 10 filas y tengo que m,odificar en la fila 2 por error de digitación, entonces el cursor se va a la última fila y los calulos que hizo se pierden. No se estabiliza, es decir no se mantiene el cursor en la misma fila ni los cálculos o en que propiedad debo colocar estre módulo de calculo
Gracias por tu colaboración
Johnny
johnnyeloy@gmail.com
|