Форум OlegON > Ресурсы OlegON > Вопросы сервера > Архив > Gestori

Матрицы в Gestori : Gestori

19.03.2024 10:52


25.05.2010 17:58
mrakden
 
Подскажите пожалуйста
Можно ли из Gestori организовать выгруз всех сразу ассортиментных матриц (код, наименование, кол-во товара) в Excel или в текстовые файлы
Спасибо!
26.05.2010 00:35
akonev
 
если есть база данных - значит выгруз возможен.
вопрос только, насколько ты дружишь с базами вообще и progress'ом в частности.

девять лет назад у меня сходная задача решалась так:
Код:
/* выборка остатков товаров, входящих в ассортимент */

def stream qqq.

/* в кавычках указано имя файла, в который записывается результат */
output stream qqq to "/u/boffice/otchet/kai/k_resta".

/* в конце следующей строки указать номер ассортимента между "=" и ":" */
for each asskat where asskat.num_as=1:

for each katalog where katalog.cod_good=asskat.cod_good:
for each art where katalog.cod_good=art.cod_good:
put stream qqq katalog.cod_group "_" katalog.cod_sgr "_" art.cod_good "_" katalog.name "_" art.min_quant "_" art.quantityF + art.quantityC skip.
end.
end.
end.
06.10.2011 20:37
Karimych
 
выводим на печать в Wordpad и все - хотите - затяните в Эксель. Коды товаров там есть
07.10.2011 12:04
Жнец_
 
Запускай редактор Progress, далее вводи такой код:

DEFINE STREAM sFileOut.
DEFINE VARIABLE fiFileName AS CHARACTER INIT "/home/boffice/matrix.csv"
VIEW-AS FILL-IN LABEL "Имя файла" FORMAT "x(60)".

UPDATE fiFileName.

RUN GetMatrix.

MESSAGE "Завершено" VIEW-AS ALERT-BOX.

PROCEDURE GetMatrix:
DEFINE VARIABLE FQuant AS DECIMAL.

OUTPUT STREAM sFileOut TO VALUE(fiFileName) CONVERT TARGET "1251".

FOR EACH katalog NO-LOCK:
FIND FIRST asskat NO-LOCK
WHERE asskat.cod_good = katalog.cod_good NO-ERROR.
IF AVAILABLE asskat
THEN DO:
ASSIGN
Fquant = 0.

FOR EACH art NO-LOCK
WHERE art.cod_good = katalog.cod_good:
FQuant = FQuant + art.quantityF + art.quantityC.
END.

PUT STREAM sFileOut UNFORMATTED
TRIM(STRING(katalog.cod_good,">>>>>>>>>>>9")) ";"
TRIM(katalog.name) ";"
TRIM(STRING(Fquant,"->>>>>>>>>>9.99")) CHR(13) CHR(10).
END.
END.

OUTPUT STREAM sFileOut CLOSE.
END PROCEDURE.

В файле будут три столбца:
код товара,
наименование товара,
количество на текущий момент по всем подразделениям
Часовой пояс GMT +3, время: 10:52.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.