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:

Hola... debes poner query8Cantidad.AsInteger (sin Value) y pasar a integer el edit1 StrToInt(Form6.edit1.Text). (si no mal recuerdo :D )

DATAMODULE7.Table4.Edit;
DATAMODULE7.Table4.AppendRecord([StrToInt(DBEdit3.Text),StrToInt(DBEdit2.Text),date]);
DATAMODULE7.Table4.Post;
Esto no lo entiendo :confused:

AppendRecord añade un nuevo registro al final del dataset y hace un post en el database insertando el registro.