Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   descontar mercancia de una tabla a otra (https://www.clubdelphi.com/foros/showthread.php?t=71318)

elsamurai 13-12-2010 17:51:53

descontar mercancia de una tabla a otra
 
saludos a todos,estoy terminado un pequeña aplicacion que tendra el fin de registrar todas las mercancia que la empresa compre y venda,tendo dos tablas hechas en access y tengo el siguiente problema,pense que lograr descontar la mercancia vendida en una tabla de otra era algo parecido a una calculadora y asi lo hice,despues de calcular se graba y no me da ningun error,pero la mercancia en la otra tabla no se reduce,alguien me explica cual es mi error
Código Delphi [-]
procedure TFRMCLIENTES.ToolButton4Click(Sender: TObject);
var
 valor1,valor2,resultado:integer;
begin
  inherited;

  begin
  valor1:=strtoint(dbedit9.text);
  valor2:=strtoint(dbedit10.text);
  resultado:=valor1-valor2;
  dbedit9.text:=inttostr(resultado);
  end ;
if dm.adocliente.State=dsinsert  then
begin
dm.adocliente.Post;
dm.adocliente.Refresh;
dm.ADOPRODUCTO.Open;
dm.ADOPRODUCTO.Refresh;
dm.adoproducto.Close;
end
else
IF DM.ADOcliente.State=DSEDIT THEN
BEGIN
DM.ADOcliente.Post;
DM.ADOcliente.Refresh;
dm.adoproducto.Open;
dm.adoproducto.refresh;
dm.adoproducto.close;
END
ELSE
begin
showmessage('no se encuentra en estado de insercion')
end;
las tablas tablas adoproducto tube que abrirla y cerrarla manualmente porque tengo un codigo en el evento onclose para que se cierre,espero que alguien pueda ayudarme

Caral 13-12-2010 18:28:26

Hola
No entiendo
Saludos

Casimiro Notevi 13-12-2010 18:53:23

Ese código no hace nada de lo que dices que quieres hacer :confused:
Si en una tabla tienes el campo "stock" y vendes 2 unidades de un artículo, tendrás que buscar ese artículo y descontar su stock, o sea, si en el campo stock tienes 100 unidades y has vendido 2, entonces haces algo así como:
cambia stock por stock -2
Eso traducido al lenguaje sql, delphi o lo que estés usando.



Cita:

Empezado por Caral (Mensaje 384839)
Hola
No entiendo
Saludos

Creo que vas a tener que pasarle alguno de tus tutoriales o programas de ejemplo :)

elsamurai 13-12-2010 19:03:34

podrias dejar algunos codigo de ejemplo para guiarme,y me imagine que ese codigo no haria nada de lo que queria,como dije arriba pense que seria como una calculadora y despues que guardara los resultados

Casimiro Notevi 13-12-2010 19:19:03

Disculpa, pero no entiendo lo que quieres decir :confused:

Te aconsejo que leas nuestra guía de estilo, gracias.

Caral 13-12-2010 19:30:04

Hola
Para ayudar hace falta que nos ayudes.
Si no nos das datos es dificil entender.
Por ejemplo:
En la tabla 1 tengo estos campos
En la tabla 2 tengo estos.
Quiero que al hacer una operacion X me descuente de la tabla 1 y me agregue en la tabla 2.
Tambien hay que recordar que ya casi estamos en navidad, asi que no olvidar:
Quiero que me obsequien un codigo parecido al que quiero hacer.
Quiero un ordenador con mas memoria
etc., etc.
Saludos

elsamurai 13-12-2010 22:51:57

ok comenzare desde el principio mi aplicacion tiene dos formulario el primero donde se agregan el cliente a la hora de vender un producto,los campos que tiene son
nombre (edit1)
apellido (edit 2)
cedula (edit3)
telefono1 (edit4)
telefono2 (edit5)
celular (edit6)
producto (dblookcombobox)
descripcion del producto (dblookcombobox)
provincia (dbcombobox)
fecha (edit7)
cantidad en existencia (edit8)
cantidad a comprar (edit9)
precio (edit10)
total pagado (edit11)
saldo deudor (edit12)
y una dbgrib

el segundo form es donde se agrega la mercancia cuando se compran,los campos que tiene son
id del producto
producto
fabricante
descripcion
costo por unidad
cantidad en existencia
precio por unidad
precio para la venta

las base de datos estan hechas en access 2003 y se llaman clientes,y producto, mi plan era agregar todos los productos a la base de productos atraves del form2 y cuando este en el form 1 tener disponible toda la informacion,todo esta bien en las conecciones ,despues que selecciono el producto en el edit de cantidad en existencia se pone el valor que puse en la base de datos de producto,y cuadno escribo en el edit cantidad a comprar ,quiero que se descuente de la tabla de producto,por ejemplo si tengo 2 radio en la tabla de producto y vendo uno en la de clientes,quiero que en la de producto quede 1,utilizo adotable para al coneccion,llamado adocliente y ado producto,espero que me puedas ayudar caral

Caral 14-12-2010 17:44:56

Hola
Enviame el programa y la BD por correo, vere que puedo hacer en cuanto tenga un rato.
Saludos

elsamurai 14-12-2010 21:29:09

claro caral,pero la pagina tiene una opcion para mandar correos electronicos o como le hago

Caral 14-12-2010 22:01:25

Hola
En mi avatar
Saludos

Casimiro Notevi 14-12-2010 22:03:03

Cita:

Empezado por elsamurai (Mensaje 384957)
claro caral,pero la pagina tiene una opcion para mandar correos electronicos o como le hago

Pincha encima de donde pone el nombre de caral, junto a su avatar (foto) y se abrirá un menú.

elsamurai 15-12-2010 04:21:44

vi que si se puede mandar un correo pero no veo para poder agregarle archivos y ese tipò de cosas


La franja horaria es GMT +2. Ahora son las 08:02:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi