FRF CREATECORRECTCHK — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 2: | Строка 2: | ||
Сформировать чек коррекции | Сформировать чек коррекции | ||
[[FRF_CREATECORRECTCHK]]( ComPort := nil ) | [[FRF_CREATECORRECTCHK]]( ComPort := nil ) | ||
| + | = Текст = | ||
| + | parameters ComPort:=nil | ||
| + | public checkType, Summa:=0 | ||
| + | local propFld | ||
| + | |||
| + | |||
| + | PropFld:={; | ||
| + | {; | ||
| + | {'FldName','CheckType'},{'FldTitl','Тип чека коррекции'},; | ||
| + | {'FldType','N'},{'FldArray','{{"Приход},{"Возврат прихода"},{"Расход},{"Возврат расхода"}}'},{'FLDLEN',3},{'Default',1}; | ||
| + | },; | ||
| + | {; | ||
| + | {'FldName','summa'},{'FldTitl','Сумма'},{'FldType','N'},; | ||
| + | {'FLDLEN',10},{'FLDDEC',2},{'Picture','!999999999999,99'}}; | ||
| + | } | ||
| + | |||
| + | |||
| + | if not InputProperty('Сформировать чек коррекции',PropFld,; | ||
| + | 'Введите параметры чека');result:=false;return;endif | ||
| + | |||
| + | |||
| + | if [[frfCreateCorrectionCheck]](ComPort,checkType, Summa) = true | ||
| + | message("Чек сформирован!") | ||
| + | endif | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 14:11, 13 августа 2018
FRF_CREATECORRECTCHK - это программа из справочника R266
Сформировать чек коррекции
FRF_CREATECORRECTCHK( ComPort := nil )
Текст
parameters ComPort:=nil
public checkType, Summa:=0
local propFld
PropFld:={;
{;
{'FldName','CheckType'},{'FldTitl','Тип чека коррекции'},;
{'FldType','N'},{'FldArray','{{"Приход},{"Возврат прихода"},{"Расход},{"Возврат расхода"}}'},{'FLDLEN',3},{'Default',1};
},;
{;
{'FldName','summa'},{'FldTitl','Сумма'},{'FldType','N'},;
{'FLDLEN',10},{'FLDDEC',2},{'Picture','!999999999999,99'}};
}
if not InputProperty('Сформировать чек коррекции',PropFld,;
'Введите параметры чека');result:=false;return;endif
if frfCreateCorrectionCheck(ComPort,checkType, Summa) = true
message("Чек сформирован!")
endif
