!!!Sistema de ventas!!!
3 participantes
INTEC Forum :: Info :: Programacion
Página 1 de 1.
!!!Sistema de ventas!!!
¿Ola yo tenGo un sistema de ventas pero Necezito k alGuien me Diga k TenGo k Azer para k del inventario me va deduciendo lo k Yo voi venDiendo?. . . . . . . . !!!!
Destephen- Cantidad de envíos : 9
Puntos : 26471
Fecha de inscripción : 02/10/2009
Edad : 31
Localización : SAM,PEDRO,SULA
Sistema de Ventas
Mira que para que te dedusca tienes que hacer una tabla de inventario para llebar un control de los porductos que entran y salen de tu sistema, lo podes hacer entrelasando tablas o poniendole fecha y hora para que cuando revises en la tabla mires que los productos que se movieron!..
By Cuellar92
By Cuellar92
cuellar92®- Cantidad de envíos : 5
Puntos : 26467
Fecha de inscripción : 02/10/2009
Edad : 31
Mmmm??
Man ezo lo tenGo. . lo k me Taz Dicendo. . Lo k nesesito es k tenGo 10 lapises en inventario ajaw venDo 3 Me tienen k kdar 7 en el inventario correcto. . Pero como lo aGro ez el Problema. . . !!!
Destephen- Cantidad de envíos : 9
Puntos : 26471
Fecha de inscripción : 02/10/2009
Edad : 31
Localización : SAM,PEDRO,SULA
Re: !!!Sistema de ventas!!!
en el load del formulario tenes que ingresar las dos tablas las de ventas y inventario bueno luego te vas a interative chain del txt que sumara o restara al inventario y te pondre un ejemplo mas claro para que mires como quedara:
SELECT inventario
f=0
IF SEEK(thisform.txtCodigo.Value)
f=existencia
endif
como miras lo mando a buscar el codigo de la tabla de inventario de declaro que la variable f sera existencia entiendes luego lo que ise para q isiera el calculo fue en clic de guarda:
thisform.parent.txtmeta.InteractiveChange
c=0
c=f-ThisForm.parent.txtmeta.value
replace existencia WITH c
aqui le digo que valla a interative change del txt y revise luego le digo que aga un claculo c sera c para despues renplasarla f qu es existencia lo resto con el txt y solo digo que replance c y ya.
espero que te sirva este ejemplo
SELECT inventario
f=0
IF SEEK(thisform.txtCodigo.Value)
f=existencia
endif
como miras lo mando a buscar el codigo de la tabla de inventario de declaro que la variable f sera existencia entiendes luego lo que ise para q isiera el calculo fue en clic de guarda:
thisform.parent.txtmeta.InteractiveChange
c=0
c=f-ThisForm.parent.txtmeta.value
replace existencia WITH c
aqui le digo que valla a interative change del txt y revise luego le digo que aga un claculo c sera c para despues renplasarla f qu es existencia lo resto con el txt y solo digo que replance c y ya.
espero que te sirva este ejemplo
aguilera92- Cantidad de envíos : 16
Puntos : 26487
Fecha de inscripción : 02/10/2009
Edad : 31
x )
Deztephen: >
Brother nu tenez una idea maz claRa k m POdaz Dar. . . .!!!! zi eze ejemplo esta bn. . Peo kiziera k me explikaraz un poco maz. . . . !!!!!
Brother nu tenez una idea maz claRa k m POdaz Dar. . . .!!!! zi eze ejemplo esta bn. . Peo kiziera k me explikaraz un poco maz. . . . !!!!!
Destephen- Cantidad de envíos : 9
Puntos : 26471
Fecha de inscripción : 02/10/2009
Edad : 31
Localización : SAM,PEDRO,SULA
Re: !!!Sistema de ventas!!!
mira en mi caso me voy a "metas" que es mi txt y en interative change escribo lo siguiente despues de aver agregado las dos tablas al load claro para eso debes tenerla en el entorno de datos
SELECT inventario
f=0
IF SEEK(thisform.txtCodigo.Value) = (como miras lo mando a buscar el codigo de la tabla de inventario)
f=existencia= (declaro que la variable f sera existencia entiende)
endif
luego lo que ise para q isiera el calculo fue en clic de guarda:
thisform.parent.txtmeta.InteractiveChange=(aqui le digo que valla a interative change del txt y revise) luego le digo que aga un claculo
c=0=(esta "c" la dejo a cero porque solo es una variable igual a f recuerda que "f" es existencia de la tabla inventario )
c=f-ThisForm.parent.txtmeta.value(aqui resto la existencia(f) - el txt lo cual seria el calculo )
select inventario (selecciono la tabla en la que voy a guardar)
replace existencia WITH c (aqui se remplasa c en la tabla de inventario)
sdime lo que no entiendes para explicarte mas complejo
SELECT inventario
f=0
IF SEEK(thisform.txtCodigo.Value) = (como miras lo mando a buscar el codigo de la tabla de inventario)
f=existencia= (declaro que la variable f sera existencia entiende)
endif
luego lo que ise para q isiera el calculo fue en clic de guarda:
thisform.parent.txtmeta.InteractiveChange=(aqui le digo que valla a interative change del txt y revise) luego le digo que aga un claculo
c=0=(esta "c" la dejo a cero porque solo es una variable igual a f recuerda que "f" es existencia de la tabla inventario )
c=f-ThisForm.parent.txtmeta.value(aqui resto la existencia(f) - el txt lo cual seria el calculo )
select inventario (selecciono la tabla en la que voy a guardar)
replace existencia WITH c (aqui se remplasa c en la tabla de inventario)
sdime lo que no entiendes para explicarte mas complejo
aguilera92- Cantidad de envíos : 16
Puntos : 26487
Fecha de inscripción : 02/10/2009
Edad : 31
INTEC Forum :: Info :: Programacion
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|