Código Delphi [-] procedure TDM.TblClientesAfterScroll(DataSet: TDataSet); begin if TblCientessFecha_baja.IsNull then FrmClientes.Btnbaja.Caption := 'Baja' else FrmClientes.Btnbaja.Caption := 'Alta'; end;
procedure TDM.TblClientesAfterScroll(DataSet: TDataSet); begin if TblCientessFecha_baja.IsNull then FrmClientes.Btnbaja.Caption := 'Baja' else FrmClientes.Btnbaja.Caption := 'Alta'; end;