Código Delphi [-]// Esto en el evento BeforeInsert de la tabla en la que guardaras procedure TForm1.Table2BeforeInsert(DataSet: TDataSet); var cod : Integer; // Creas la variable begin cod := Table1.FieldByName('cod_mer').Value + 1; // Table1 es la tabla de las mercancias, sea el nombre que le diste Table2.FieldByName('campo').AsInteger := cod; // Asignas a la tabla en la que guardaras el consecutivo end;
// Esto en el evento BeforeInsert de la tabla en la que guardaras procedure TForm1.Table2BeforeInsert(DataSet: TDataSet); var cod : Integer; // Creas la variable begin cod := Table1.FieldByName('cod_mer').Value + 1; // Table1 es la tabla de las mercancias, sea el nombre que le diste Table2.FieldByName('campo').AsInteger := cod; // Asignas a la tabla en la que guardaras el consecutivo end;