SoloCodigo

muchachos
esperon que esten bien

les pido un favor si alguno de ustedes puede ayudarme a resolver un pequeño problema que tengo en una aplicacion que estoy diseñando

el problema es el siguiente

tengo varios formularios en los que utilizo grid
osea que introdusco la informacion en las cajas de texto y  luego las paso al grid pormedio de un boton que tiene la siguiente programacion
SELECT entrada_produc

IF EMPTY(thisForm.txtCod_producto.Value)
MESSAGEBOX("El código del producto es obligatorio")
thisForm.txtCod_producto.setfocus
return
ENDIF

IF EMPTY(ThisForm.txtValor.Value)
MESSAGEBOX("El valor del producto es obligatorio")
ThisForm.txtValor.setfocus
RETURN
ENDIF

IF EMPTY(ThisForm.txtCantidad.Value)
MESSAGEBOX("Digite la cantidad del producto")
ThisForm.txtCantidad.setfocus
RETURN
ENDIF

IF EMPTY(ThisForm.txtDescuento1.Value)
MESSAGEBOX("Digite el descuento del producto")
ThisForm.txtDescuento1.setfocus
RETURN
ENDIF

APPEND BLANK

numerofactura=Compras.num_factura
replace Entrada_produc.num_factura WITH numerofactura

nombredelproducto=Productos.articulo
replace Entrada_produc.nombre_produc WITH nombredelproducto
replace Entrada_produc.cod_produc WITH VAL(ThisForm.txtCod_producto.text)
replace Entrada_produc.valor WITH ThisForm.txtValor.value
replace Entrada_produc.cantidad WITH VAL(ThisForm.txtCantidad.text)
*replace Entrada_produc.total_COMPRA WITH VAL(ThisForm.valor.Text )
replace entrada_produc.descuento1 with VAL(ThisForm.txtDescuento1.text)
replace Entrada_produc.iva WITH VAL(thisform.txtiva.text)

ThisForm.txtDescuento1.Value=""
ThisForm.txtCantidad.Value=""
ThisForm.txtValor.Value=""
ThisForm.txtCod_producto.Value=""
ThisForm.txtArticulo.ControlSource=""
ThisForm.txtArticulo.VALUE=""
*ThisForm.txttotal_compra.controlsource=""

 
 SELECT ENTRADA_produc
SUM valor TO xp
ThisForm.Subtot.Value=xp
*hj=thisform.txtdescuento1.Value
*mer=ThisForm.subtot*(hj/100)
*thisform.txttotaldescuento.Value=mer
fiva=ThisForm.txtIva.Value
LO=THISFORM.subtot.Value*(fiva/100)
thisform.txttotaliva.Value =LO
NA=THISFORM.SUbtot.Value+LO
*vc=na-mer
THISFORM.TXTimporte.Value=na
 
  al momento de hacer click en el  boton la informacion se desparece de las cajas de texto pero no aparece en la grilla y puedo seguir ingresando informacion y no aparece y al hacer click en el boton deshacer toda la informacion aparece en la
 grilla que puedo hacer en ese caso para corregir eso


espero que puedan ayudarme
mil gracias

hola muchachos molestando de nuevo

MInueva consulta es que como hago para sumar
la columna de un grid y que el resultado se muestre en una caja de texto.


ejemplo formulario de compras dentro del grid de una factura van quedando el grid pero nose como hacer para que cada ves que agrege una compra
se balla sumando



les agradesco la ayudita


marjos

Hola muchachos como estan tiempo que no les escribia pero los molesto de nuevo es que soy nuevo en esto de visual y me falta mucho por aprender gracias a ustedes e aprendido muchas cosas nuevas se los agradesco mucho....


les pido ayuda en lo siguiente quiero crear una funcion pero no se como para faciltaeme
mas el trabajo es que estoy creando un programa de inventario

Muchachos una vez mas necesito de su ayuda.....

Como puedo poner los botones de formulario como si fuera una cal culadora..

ejemplo
tengo un formulario

tengo 10 botones con los numeros de una calculadora 0-9 y los signo de matematicos como puedo hacer que al dar cli en el boton 2 y lo multiplique por los signo matematico y lo muestre en un cuadro de texto

gracias ............
espero me puedan colaborar

muchachos requiero de su ayuda

como puedo introducir los datos desde un into cursor hasta una grilla


gracias

espero me puedan ayudar

marjos

muchachos necesti ayuda por que pormas que e intentado no e podido programar un formulario para que trabaje con la hota del sistema.



ejemplo formulario de ventas necestio la hora y la fecha de la venta pero que la optenga del sistema.



gracias ....

espero que me ayuden