FRF CREATECORRECTCHK — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 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

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

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

Функции Delphi