Delphi - este error no me deja tranquila.. quien me ayuda..

 
Vista:

este error no me deja tranquila.. quien me ayuda..

Publicado por Risos (7 intervenciones) el 12/12/2004 18:07:08
codigo..
procedure TForm16.Button1Click(Sender: TObject);
begin
query1.Close;
query1.params[0].Value :=StrToInt(edit1.text); //numero_serie
query1.Params[1].Value := 1;
query1.params[3].Value :=StrToInt(edit2.text); // cuenta corriente
query1.params[9].Value :=StrToint(edit3.text); //monto
query1.params[2].Value :=query2.FieldbyName('cod_banco').asinteger;//cod_banco
query1.parambyName('fecha').Value:= DateTimePicker1.Date;//fecha parametro 4
query1.params[7].Value :=StrToInt(edit6.text); // rut_dueño
query1.params[5].Value :=edit7.text; // nimbres_dueño
query1.params[6].Value :=edit8.text; // apellidos_dueño
query1.params[8].Value :=StrToInt(edit9.text);// fono_dueño
query1.params[10].Value :=edit10.text; // descripción
query1.Params[11].Value :=query3.FieldbyName('codigo_estado_d').asinteger;// codigo estado documento
query1.ExecSql;
//if query1.eof then
//begin
//end;

query es la siguiente....
INSERT INTO Cheque(numero_serie,codigo_documento,cod_banco,cuenta_corriente,fecha_cobro,nombres_dueño,apellidos_dueño,rut_dueño,fono_dueño,monto_cheque,descripcion,codigo_estado_d)
VALUES (:num, :cod_doc, :cod_b, :cu_co, :fecha, :nom_d, :ape, :rut_d, :fono, :monto, :des, :cod_est);
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder