Universe Basic преобразовать список выбора в массив?

Question

Universe Basic преобразовать список выбора в массив?

У меня есть один основной список выбора в программе

ВЫПОЛНИТЬ 'ВЫБРАТЬ ПРОДУКТЫ С DEL.DATE <= "':EOM.DATE;'"' ВЫХОД КАПИТАЦИИ

Затем я хочу преобразовать список выбора в массив. Существует ли базовая функция Universe для этого или мне нужно написать функцию?

2

select basic universe

Источник

user3732832 27 мар '17 в 01:53

1 ответ

Решение

Другие вопросы по тегам select basic universe

user1866961 29 мар '17 в 21:13 2017-03-29 21:13 · Accepted Answer · 2017-03-29 21:13

Используйте READLIST для чтения содержимого вашего активного списка выбора в динамический массив с разделителями (@FM). Это парадигма, которую я использую при работе с несколькими списками выбора, и полезные нагрузки не слишком велики. Вы также можете выбрать другой список, отличный от значения по умолчанию, равного 0, но в интеллектуальном плане это немного запутанно.

EXECUTE 'SELECT PRODUCTS WITH DEL.DATE <= "':EOM.DATE;'"' CAPTURING OUTPUT
READLIST PRODUCTS.LIST ELSE PRODUCTS.LIST = ''
PRODUCTS.COUNT = DCOUNT(PRODUCTS.LIST,@FM)
FOR X=1 TO PRODUCTS.COUNT
   ID.PRODUCTS = PRODUCTS.LIST<X>
   ;* Your per ID magic goes here
NEXT X

Удачи!