Процедура ПечатьЧека()
Док = глРасшифровка.Получить("Документ");
if FS.ExistFile("fp35301c.fpd") = 1 then FS.DeleteFile("fp35301c.fpd"); endif;
FPFile=CreateObject("Текст");
FPFile.Clear();
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
FPFile.AddLine(?(СокрЛП(Строка(Док.Товар.Код))="",Лев(Док.Товар.Наименование,24),String(Док.Товар.Код)) + ";" +
String(Док.ЦенаСНДС) + ";" + String(Док.Количество) +";" + String(Док.СуммаСНДС-(Док.ЦенаСНДС*Док.Количество)));
КонецЦикла;
FPFile.Write("fp35301c.fpd");
Результт = RunApp(КаталогИБ() + "FP3530T.exe");
Если Результт = 0 Тогда
Док.ЧекПробит = 1; //ЕстьЧек
Иначе
Сообщить("Ошибка печати " + Результт);
КонецЕсли;
КонецПроцедуры
может у кого нибудь есть инструкция по FP3530T.exe, при каких условиях он печатает чек из файла fp35301c.fpd?
ФР Датекс Украина.
Спасибо.