FRF CREATECORRECTCHK

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

Смотрите также

Полезные функции

Функции Delphi