lsFusion Tests

REQUIRE Utils, Time;

CLASS Supplier;
name = DATA STRING[100] (Supplier);
contactInfo = DATA STRING[255] (Supplier);

exportSuppliers1() {
  EXPORT FROM name(Supplier s), contactInfo(s) WHERE contactInfo(s);
  WRITE CLIENT exportFile() TO 'd:/0/exportSuppliers ' + toChar(currentDateTime(), 'YYYY-MM-DD HH24-MI-SS');
}

exportSuppliers2() {
  EXPORT FROM name(Supplier s), contactInfo(s) WHERE s IS Supplier;
  WRITE CLIENT exportFile() TO 'd:/0/exportSuppliers ' + toChar(currentDateTime(), 'YYYY-MM-DD HH24-MI-SS');
}

exportSuppliers3() {
  EXPORT FROM name(Supplier s1), contactInfo(Supplier s2) WHERE s1 IS Supplier AND s2 IS Supplier;
  WRITE CLIENT exportFile() TO 'd:/0/exportSuppliers ' + toChar(currentDateTime(), 'YYYY-MM-DD HH24-MI-SS');
}

exportSuppliers4() {
  EXPORT FROM name(Supplier s1), contactInfo(Supplier s2);
  WRITE CLIENT exportFile() TO 'd:/0/exportSuppliers ' + toChar(currentDateTime(), 'YYYY-MM-DD HH24-MI-SS');
}

FORM SuppliersForm 'Поставщики'
    OBJECTS supplier=Supplier
    PROPERTIES(supplier) name, contactInfo, NEW, DELETE
;

NAVIGATOR {
    NEW SuppliersForm;
    NEW exportSuppliers1;
    NEW exportSuppliers2;
    NEW exportSuppliers3;
    NEW exportSuppliers4;
}