|
Hola UTECYBE
no se si tiene repuesta de tu pregunda pero lo que quiere es un autoIncremento, el codigo es el siquiente.
procedure TFrm_Giros.Tbl_SolicitudDocumentoNewRecord(DataSet: TDataSet);
begin
if Tbl_SolicitudDocumento.State = dsInsert Then
Begin
Qry_Secuencia.Open;
Numero_Documento := Tbl_SolicitudDocumentoNumero_Documento.Value;
Tbl_SolicitudDocumentoNumero_Documento.Value := Qry_Secuencia.Fields[0].AsInteger + 1;
Qry_Secuencia.Close;
|