Pasar datos de un edit a un datamodule
Hola a todos
Empiezo desde el principio, estoy haciendo un programa de facturación casero en el cual tengo tres tablas (empresa,artículo y pedido) relacionadas entre si por sus claves. Para ello he utilizado una serie de Forms y un Datamodule que contiene los Ttables, Datasources y los Querys. Mi problema viene a la hora de generar un nuevo pedido cuando introduzco cantidad (Cantidad es un campo integer calculado que esta en el query)en un edit del form, tengo: procedure TDataModule7.Query8CalcFields(DataSet: TDataSet); begin Query8Cantidad.Value.asinteger:=Form6.Edit1.Text; --> no va Query8Total.value:=(Query8Cantidad.value*Query8Precio_unitario.value); --> si va end; la de bajo si que va porque poniendo Query8Cantidad.Value:=3; ya tiene candidad para multiplicar; Bueno he proba muchas cosas, con StrtoInt, con variables, y no me sale con nada, por lo que ya no se si estara bien puesto. Luego otro poblema es a la hora de guardarla, que el edit y el post no me van: //para nombre empresa DATAMODULE7.QUERY6.CLOSE; DATAMODULE7.QUERY6.PARAMBYNAME('invento').ASSTRING:=DBLookupComboBox1.text; DATAMODULE7.QUERY6.OPEN; //para descripcion articulo DATAMODULE7.QUERY7.CLOSE; DATAMODULE7.QUERY7.PARAMBYNAME'invento2').ASSTRING:=DBLookupListBox1.SelectedItem; DATAMODULE7.QUERY7.OPEN; //los convertimos //uno:=StrToInt(DBEdit3.Text); estan sin hacer nada //dos:=StrToInt(DBEdit2.Text); nada //para introducir datos DATAMODULE7.Table4.Edit; DATAMODULE7.Table4.AppendRecord([StrToInt(DBEdit3.Text),StrToInt(DBEdit2.Text),date]); DATAMODULE7.Table4.Post; Bueno luego en el Qreport ya pongo lo de Cantidad y el Total. Muchas gracias, y si alguien me puede ayudar pos muy agradecido:rolleyes: |
Cita:
|
DATAMODULE7.Table4.Edit;
DATAMODULE7.Table4.AppendRecord([StrToInt(DBEdit3.Text),StrToInt(DBEdit2.Text),date]); DATAMODULE7.Table4.Post; Esto no lo entiendo :confused: |
Cita:
|
La franja horaria es GMT +2. Ahora son las 00:58:11. |
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