主页 / user-375510

galago's questions

Martin Hope
galago
Asked: 2020-05-19 02:58:09 +0000 UTC
  • 1

在 lsFusion 中，您可以使用 PRINT 语句以 XLSX 格式导出表单的打印表示。卸载时，可以指定创建书本中的工作表名称：

PRINT printSheet1 OBJECT o = o XLSX SHEET 'Sheet1';

但是，如果需要将数据上传到同一本书的两个不同页面，就会出现困难。设计：

LOCAL f = EXCELFILE;
PRINT printSheet1 OBJECT o = o XLSX SHEET 'Sheet1' TO f;
PRINT printSheet2 OBJECT o = o XLSX SHEET 'Sheet2' TO f;
open(f());

只是在第一个文件之上覆盖第二个文件。到目前为止，我找到了一种解决方法 - 使用 WRITE 将第一张工作表写入临时文件，然后使用 WRITE APPEND 附加第二张工作表 - 但有些事情告诉我必须有一种更简单的方法。实际上，这是个问题 - PRINT 操作员是否有一个选项（嗯，或者另一种简单而明显的方式）允许您不覆盖 XLSX 文件，而是向已经创建的文件添加新工作表？

lsfusion
Martin Hope
galago
Asked: 2020-03-25 02:53:40 +0000 UTC
  • 1

在 lsFusion 3.0 中，很容易创建抽象动作并添加单参数实现。例如像这样：

CLASS TrafficLight {
    red 'Red',
    yellow 'Yellow',
    green 'Green'
}

crossroads ABSTRACT CASE (TrafficLight);

crossroads(TrafficLight t) + WHEN t = TrafficLight.red THEN {MESSAGE 'Stop - ' + staticCaption(t);}

但是，值得再添加一个参数，服务器会停止启动。下面的示例不再起作用

CLASS TrafficLight {
    red 'Red',
    yellow 'Yellow',
    green 'Green'
}

CLASS Vehicle {
    truck 'Truck',
    car 'Car'
}

crossroads ABSTRACT CASE (TrafficLight, Vehicle);

crossroads(TrafficLight t, Vehicle v) + WHEN t = TrafficLight.red THEN {MESSAGE 'Stop ' + staticCaption(v);}

到目前为止，作为一种解决方法，我在添加的实现中使用了 ABSTRACT LIST 和 IF...THEN，但是我如何在没有拐杖的情况下做到这一点？

lsfusion
Martin Hope
galago
Asked: 2020-03-06 19:37:13 +0000 UTC
  • 4

向表单结构添加属性时，可以向表单属性添加选项。例如像这样：

MODULE Main;

CLASS LockedField;
text = DATA STRING[10] (LockedField);
isLock = DATA BOOLEAN (LockedField);

// здесь я добавляю свойство 'text' сразу с 
// опцией 'READONLYIF'
FORM lockedField
    OBJECTS lf = LockedField
    PROPERTIES (lf) text READONLYIF isLock(lf), isLock, NEW, DELETE 
;

NAVIGATOR {
    NEW lockedField FIRST;
}

是否可以以类似的方式向已添加的属性添加选项？例如：

MODULE Main;

CLASS LockedField;
text = DATA STRING[10] (LockedField);

// Здесь в структуру формы я добавляю свойство
// 'text' без опций
FORM lockedField
    OBJECTS lf = LockedField
    PROPERTIES (lf) text, NEW, DELETE 
;

isLock = DATA BOOLEAN (LockedField);

// а здесь свойству 'text' нужно добавить
//  опцию 'READONLYIF'
EXTEND FORM lockedField
    PROPERTIES (lf) isLock
;

NAVIGATOR {
    NEW lockedField FIRST;
}
lsfusion