Widok Moderator-Следопыт Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Предыдущие части: Часть 1 Супер Окна Программа «СуперОкна» предназначена для проектирования оконных и дверных блоков, а также конструкций на базе нескольких блоков. Проектирование окон происходит визуальным методом, используя интуитивно понятный интерфейс: при помощи мышки можно перемещать элементы и их соединения, делить раму на две рамы, устанавливать импосты, створки, увеличивать и уменьшать окна, уравнивать створки по ширине, высоте, а также по ширине и высоте светового проема. Имеется возможность проектирования окон с раздвижными створками, безимпостными створками.   Домашняя страница Бесплатная версия Поиск программы в варезнике Всего записей: 24190 | Зарегистр. 07-04-2002 | Отправлено: 13:04 17-09-2008 | Исправлено: Maz, 12:37 25-02-2017

LEGOMAX1 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Egor PR FastReport 4.6   Вот скрипт уже в Супер Окнах 8: Код: procedure Memo4OnBeforePrint(Sender: TfrxComponent); begin   with Memo4, Engine do   begin     sys := COPY([Изделие: система],1,LENGTH([Изделие: система]));     //while POS(CRLF,sys) <> 0 do     //begin        //sys := [COPY(sys, 1, (POS(CRLF,sys)-1))] + ' - ' + [COPY(sys, (POS(CRLF,sys)+2),9999)];     //end;     Memo.Text := sys;   end;                   end;   begin   end.   Закомментировал 4 строки и убрал крайние квадратные скобки в строке sys := [COPY([Изделие: система],1,LENGTH([Изделие: система]))];   После этого [Изделие: система] стала присваиваться переменной sys и выводиться в отчёте. Затем открыл строку while POS(CRLF,sys) <> 0 do и после этого вышла ошибка: Не могу преобразовать вариант типа (Null) в тип (OleStr) Всего записей: 39 | Зарегистр. 26-06-2010 | Отправлено: 14:34 18-11-2016 | Исправлено: LEGOMAX1, 15:20 18-11-2016

xynter Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору вот можно в со8 создать функцию Код:   function ProfSystem2Stroka(s:string):string; var   ss:string;   p,l:integer;                         begin  ss:='';  p := pos(#13,s);  if p>0 then  begin                l := Length(s);                                                                      while pos(#13,s)>0 do    begin      p := pos(#13,s);      if p>0 then                                       begin         ss := ss + Copy(s,1,p-1)+'\';         s := Copy(s,p+2,l-p);                                           end;                      end;     ss := ss + Copy(s,1,100);          end  else    ss:=s;        Result := ss;                                     end;   и потом     procedure STD_IzdBand1OnBeforePrint(Sender: TfrxComponent);                         begin                                                                      Memo7.Memo.Text := ProfSystem2Stroka(<Изделие: система>);         end;     Memo7 - положить на бэнд и оставить пустым... Всего записей: 160 | Зарегистр. 10-09-2006 | Отправлено: 17:27 18-11-2016 | Исправлено: xynter, 17:30 18-11-2016

xynter Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору и квадратные и треугольные.... Всего записей: 160 | Зарегистр. 10-09-2006 | Отправлено: 10:51 20-11-2016

LEGOMAX1 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Egor PR #13 получилось! Хотя в отчетах, идущих вместе с программой есть CRLF: вот фрагмент кода: if S1<>'' then S :=S+S1+[CRLF];   Так сказать для будущих поколений выкладываю рабочий код для программы Супер Окна 8: Код: procedure Memo4OnBeforePrint(Sender: TfrxComponent);   begin     with Memo4, Engine do     begin       sys := COPY([Изделие: система],1,LENGTH([Изделие: система]));       while POS(#13,sys) <> 0 do       begin          sys := COPY(sys, 1, (POS(#13,sys)-1)) + ' - ' + COPY(sys, (POS(#13,sys)+2),9999);       end;       Memo.Text := sys;     end;                     end;     begin     end.   xynter Спасибо за вариант. Тоже попробую) Всего записей: 39 | Зарегистр. 26-06-2010 | Отправлено: 08:36 21-11-2016 | Исправлено: LEGOMAX1, 08:40 21-11-2016

LEGOMAX1 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Egor PR Цитата: а здесь CRLF в квадратных скобках, может в этом дело? А вот это уже смешно) Я само собой заметил что CRLF в квадратных скобках и поспешил проверить ещё на прошлой неделе, но скрипт не заработал. Сейчас ещё раз попробовал, всё работает. Похоже какой-то косяк был в скрипте. Подтверждаю: в СО8 [CRLF] работает. Можно использовать #13 без скобок, либо [CRLF]. Спасибо! Всего записей: 39 | Зарегистр. 26-06-2010 | Отправлено: 11:55 21-11-2016 | Исправлено: LEGOMAX1, 11:56 21-11-2016

LEGOMAX1 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ещё одна штука не получается с текстовым элементом [Счет работы: название]. Если просто вставить в отчет этот текстовый элемент, то работы выводятся столбцом. Хочу добиться примерно следующего: если есть монтаж, то выводим 'Вид отгрузки: Монтаж', если ещё есть демонтаж, то выводим 'Вид отгрузки: Монтаж/Демонтаж', если ещё есть откосы, то выводим 'Вид отгрузки: Монтаж/Демонтаж/Откосы'. Иначе выводим 'Вид отгрузки: Доставка'. Что можете посоветовать? Всего записей: 39 | Зарегистр. 26-06-2010 | Отправлено: 11:45 24-11-2016

LEGOMAX1 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Братцы, помогите) Всего записей: 39 | Зарегистр. 26-06-2010 | Отправлено: 07:53 28-11-2016

Ralf999 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Решение для ламинации створок наружнего открывания: http://clip2net.com/s/3F3iqxp Всего записей: 75 | Зарегистр. 13-09-2009 | Отправлено: 15:25 02-12-2016 | Исправлено: Ralf999, 15:25 02-12-2016

DIMAX6002 Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: Блин скоро взорвется голова, может кто знает че ему надо???  Загрузка невозможна. В процессе анализа файла были найдены ошибки:    это при загрузке цен из Excel Блин скоро терпения не хватит на всё это!!! Зачем вы тут? Куда бежать? А если серъезно- что куда и как загружаем не плохо бы продемострировать. Всего записей: 446 | Зарегистр. 11-01-2007 | Отправлено: 18:28 10-12-2016

DIMAX6002 Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: seka88 Какая версия СО? СО2006 или выше? А настойки загрузки указаны? Загружаемый артикул должен быть 1:1 с тем, что в базе, включая цветовой код. Всего записей: 446 | Зарегистр. 11-01-2007 | Отправлено: 19:39 11-12-2016

DIMAX6002 Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Сборка 8 чего? Программа какая? Пример строчки, котрую загружаете покажите. Всего записей: 446 | Зарегистр. 11-01-2007 | Отправлено: 19:50 11-12-2016 | Исправлено: DIMAX6002, 19:56 11-12-2016

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199

Компьютерный форум Ru.Board » Компьютеры » Программы » Супер Окна (часть 2)

gyra (01-09-2017 11:32): Супер Окна (часть 3)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование