[aurbano]

Gracias lepe por tu ayuda. me funciono.

Si alguien del foro me me puede ayudar ya que tengo un problema.


EL DBLOOKUPCOMBOBOX QUE ESTOY UTILIZANDO ESTA RELACIONADO EN EL LISTSOURCE CON LA TABLA CLIENTES UN CAMPO LLAMADO RIF_CLI. EN EL DATASOURCE TENGO RALACIONADO LA TABLA VENTAS UN CAMPO LLAMADO RIF_COM. EN EL FORMULARIO TENGO UNOS DBEDITS TODOS RELACIONADOS CON LA TABLA CLIENTES. TAMBIEN EN EL FORMULARIO TENGO UN DBGRID RELACIONADO A LA TABLA VENTAS.


EL PROBLEMA RADICA ES QUE CUANDO GUARDO LOS REGISTROS DE LA TABLA VENTA Y LA TABLA CLIENTES QUEDA DE LA SIGUIENTE FORMA:

RIF_CLI NOM_CLI DES_COM PUN_COM PTO_COM
PEDRO P. BUJIAS 35.000,00 70.000,00
12.745.722


PORQUE NO ME GUARDA EL CAMPO RIF_CLI EN EL REGISTRO INICIAL, SINO QUE LA GUARDA EN EL REGITRO SIGUIENTE. COMO HAGO PARA QUE LA GUARDE EN LA POSICION INICIAL.

EL CODIGO QUE UTILIZO ES EL SIGUIENTE:


procedure TForm8.RoundButton2Click(Sender: TObject);
begin
table1.edit;
TABLE1.first;
while table1.eof = false do
table1.Delete;
label3.caption:= '0';
label5.Caption:= '0';
dbgrid1.Fields[0].FocusControl;
end;

procedure TForm8.RoundButton1Click(Sender: TObject);
begin
table1.first;
while table1.Eof=false do
begin
form2.Table1.FindKey([table1.fieldbyname('serial').asinteger]);
form2.Table1.edit;
form2.Table1.fieldbyname('exi_PRO').asfloat := form2.Table1.fieldbyname('exi_pro').asfloat
+ dbgrid1.Fields[3].asfloat;
form2.Table1.FieldByName('iva_PRO').ascurrency:= form2.Table1.fieldbyname('prv_pro').AsCurrency * (14/100);
form2.Table1.fieldbyname('prV_PRO').AsCurrency:= dbgrid1.Fields[4].ascurrency * (40/100)
+ dbgrid1.Fields[4].ascurrency;
form2.Table1.Post;
/// REGISTRO EN LA TABLA DE COMPRAS
TABLE2.INSERT;
table2.fieldbyname('fec_COM').asdatetime := date;
table2.fieldbyname('ser_COM').asinteger := dbgrid1.Fields[0].AsInteger;
table2.fieldbyname('Nro_fac').Asstring := dbgrid1.Fields[1].Asstring;
table2.fieldbyname('Des_com').asstring := dbgrid1.Fields[2].Asstring;
table2.fieldbyname('Can_com').asfloat := dbgrid1.Fields[3].Asfloat;
table2.fieldbyname('Cun_com').ascurrency := dbgrid1.Fields[4].Ascurrency;
table2.fieldbyname('IVA_com').ascurrency := dbgrid1.Fields[5].Ascurrency;
table2.fieldbyname('Cot_com').ascurrency := dbgrid1.Fields[6].Ascurrency;
table2.fieldbyname('RIF_com').asstring := dbedit1.Field.AsString;
table2.fieldbyname('nom_com').asstring := dbedit2.Field.AsString;
table2.fieldbyname('nit_com').asinteger := dbedit3.Field.Asinteger;
table2.fieldbyname('dir_com').asstring := dbedit4.field.AsString;
table2.fieldbyname('tel_com').asstring := dbedit5.Field.AsString;
table2.post;
table1.Next;
end;
END;




GRACIAS.