Wow, creo que la parte donde expones el código te llevó mucho tiempo hacer (poner colores, negritas) con las
Etiquetas vB evitas esto. Date una vuelta por ahí.
Ej: Tu código solo con las etiquetas
Código Delphi
[-]
procedure TForm8.RoundButton2Click(Sender: TObject);
begin
table1.edit;
TABLE1.first;
while not table1.eof do
table1.Delete;
label3.caption:= '0';
label5.Caption:= '0';
dbgrid1.Fields[0].FocusControl;
end;
procedure TForm8.RoundButton1Click(Sender: TObject);
begin
table1.first;
while not table1.Eof do
begin
with form2.table1 do
begin
FindKey([fieldbyname('serial').asinteger]);
edit;
fieldbyname('exi_PRO').asfloat :=
fieldbyname('exi_pro').asfloat + dbgrid1.Fields[3].asfloat;
FieldByName('iva_PRO').ascurrency:=
fieldbyname('prv_pro').AsCurrency * (14/100);
fieldbyname('prV_PRO').AsCurrency:= dbgrid1.Fields[4].ascurrency * (40/100)
+ dbgrid1.Fields[4].ascurrency;
Post;
end; with TABLE2 do begin
INSERT;
fieldbyname('fec_COM').asdatetime := date;
fieldbyname('ser_COM').asinteger := dbgrid1.Fields[0].AsInteger;
fieldbyname('Nro_fac').Asstring := dbgrid1.Fields[1].Asstring;
fieldbyname('Des_com').asstring := dbgrid1.Fields[2].Asstring;
fieldbyname('Can_com').asfloat := dbgrid1.Fields[3].Asfloat;
fieldbyname('Cun_com').ascurrency := dbgrid1.Fields[4].Ascurrency;
fieldbyname('IVA_com').ascurrency := dbgrid1.Fields[5].Ascurrency;
fieldbyname('Cot_com').ascurrency := dbgrid1.Fields[6].Ascurrency;
fieldbyname('RIF_com').asstring := dbedit1.Field.AsString;
fieldbyname('nom_com').asstring := dbedit2.Field.AsString;
fieldbyname('nit_com').asinteger := dbedit3.Field.Asinteger;
fieldbyname('dir_com').asstring := dbedit4.field.AsString;
fieldbyname('tel_com').asstring := dbedit5.Field.AsString;
post;
end; table1.Next;
end;END;
Hice algunas mejoritas no mu reelevantes
Pd:Para codigos delphi usa [ delphi][ /delphi] (sin los espacio entre corchete)
Nt:Se me hace un rollo esto del
ident