R09 KOD KG — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
[[R09_KOD_KG]] - это программа из справочника [[R09]] | [[R09_KOD_KG]] - это программа из справочника [[R09]] | ||
| − | Возвращает код кг из справочника R09 | + | Возвращает код кг из справочника [[R09]] |
[[R09_KOD_KG]]( kod_okei ) | [[R09_KOD_KG]]( kod_okei ) | ||
| Строка 7: | Строка 7: | ||
kod_okei - код из общероссийского справочника единиц измерения | kod_okei - код из общероссийского справочника единиц измерения | ||
= Пример = | = Пример = | ||
| − | R09_KOD_KG() | + | [[R09_KOD_KG]]() |
[[Файл:21-04-2017 12-06-50.png]] | [[Файл:21-04-2017 12-06-50.png]] | ||
| + | |||
| + | = Текст = | ||
| + | parameters kod_okei := '166' | ||
| + | |||
| + | local sql | ||
| + | sql := [ Select KOD From [[R09]] Where KOD_OKEI = '] + kod_okei + [' ] | ||
| + | result := [[SqlToArr]]( sql,, ReflisPath ) | ||
| + | // 166 кг | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Текущая версия на 11:32, 15 июня 2017
R09_KOD_KG - это программа из справочника R09
Возвращает код кг из справочника R09
R09_KOD_KG( kod_okei )
kod_okei - код из общероссийского справочника единиц измерения
Пример
R09_KOD_KG()
Текст
parameters kod_okei := '166' local sql sql := [ Select KOD From R09 Where KOD_OKEI = '] + kod_okei + [' ] result := SqlToArr( sql,, ReflisPath ) // 166 кг
