Форум профессиональных мебельщиков PROMEBELclub

Форум профессиональных мебельщиков PROMEBELclub (https://промебельклуб.рф/forum/index.php)
-   Базис-мебельщик 2021-2024 (https://промебельклуб.рф/forum/forumdisplay.php?f=304)
-   -   Базис Бирка 2021/2024 (https://промебельклуб.рф/forum/showthread.php?t=16543)

AlexBolton 01.03.2021 17:00

Базис Бирка 2021/2024
 
https://abload.de/img/thumb_e0e1105f16c9be2tbczw.png


Playlist БАЗИС-Бирка 2022 8 видео

https://www.youtube.com/playlist?lis...3FHyl-3WojIWQA

Playlist БАЗИС-Бирка 9 10 видео
https://www.youtube.com/playlist?lis...nJ2FZAuQvkRAsV

__________________


Рекомендации по установке программы, исправления ошибок сохранения настроек и т.д, "access violation at address ****":

Скрытый текст

1. Раскройте всю папку установки БАЗИС`а (по умолчанию это С:\Program Files (x86)\Bazissoft\) на чтение и запись: папка/ПКМ/Свойства/Безопасность - там дать полные доступы на чтение и запись для Вашего Пользователя Windows.
2. То же самое сделайте для всех папок, где храните пользовательские файлы БАЗИСа, в том числе и для папки C:\Users\<имя пользователя>\Documents\Bazis\, в том числе и для папки с базой материалов *.fdb.
3. Назначьте каждому *.exe файлу БАЗИСа атрибут "Запуск от имени Администратора":
Файл/ПКМ/Свойства/Совместимость - там назначить этот атрибут. Лучше даже - для всех Пользователей Windows.
4. Разрешите индексировать содержимое файлов в следующих областях Вашего компьютера (Папка/ПКМ/Свойства/Общие/Другие - там поставить соответствующую галочку):
4.1. В папке установки БАЗИСа (по умолчанию это С:\Program Files (x86)\Bazissoft\)
4.2. В папке личных настроек БАЗИСа (по умолчанию это C:\Users\<имя пользователя>\AppData\Roaming\Bazis\)
4.3. В папках, где храните пользовательские файлы БАЗИСа.
5. В настройках Вашего антивируса/защитника ПОЛНОСТЬЮ исключите из проверки и сканирования следующие области Вашего компьютера:
5.1. Всю папку БАЗИСа (по умолчанию это С:\Program Files (x86)\Bazissoft\)
5.2. Папку личных настроек БАЗИСа (по умолчанию это C:\Users\<имя пользователя>\AppData\Roaming\Bazis\)
5.3. Папку С:\Program Files (x86)\CodeMeter\, С:\Program Files\CodeMeter\
5.4. Сам ключ CodeMeter (он видится, как съемный диск, как обычная флэшка).
5.5. Все папки, где храните пользовательские файлы БАЗИСа, в том числе и папку C:\Users\<имя пользователя>\Documents\Bazis\, в том числе и папку с базой материалов *.fdb.
6. Для хранения пользовательских настроек в папке с програмой, а не в папке %AppData%\Roaming\Bazis, при закрытой программе создайте в папке с Базис`ом подпапку Settings,
при запуске Базиса настройки автоматически создадутся в ней, так же можно сюда перенести свои существующие настройки из %AppData%\Roaming\Bazis
7. Открыть порты в брандмауэре Windows для CodeMeter и Firebird - TCP 22350, 14357, 14358, UDP 22350.
8. При работе на ноутбуке с дискретным графическим адаптером назначить на все модули *.exe запуск с высокопроизводительной видеокартой (в настройках драйверов видеокарты - параметры 3D - программные настройки).
[свернуть]

Майкл 26.08.2021 00:53

Вложений: 1
Доброго времени всем. Вопрос по бирке. Создал колонку в рабочем окне данных с вычисляемым параметром: ставить 1, если деталь является обрезком и ничего не ставить если такой не является. Для чего я эти единыцы собрал? Чтоб просто подсчитать кол-во обрезков, чтоб потом это прописать в бирке. К сожалению такого параметра я ни где не нашел. Не могу понять какими формулами можно прописать сумирование значений. Подскажите, пожалуйста

mackx 18.10.2022 15:29

Здравствуйте! Можно ли информацию о длине паза с модели передать на бирку?

HaddinG 04.11.2022 11:08

Добрый день.
Подскажите, пожалуйста - попытался создать бирку (на паскале) по ролику на ютуб канале базиса с выводом разной толщины кромки, но появляется ошибка "Could not convert variant of type (UnicodeString) into type (Double)", хотя вроде передрано в точности - в чем ошибка и как ее исправить?
PHP код:

procedure Line1OnBeforePrint(SenderTfrxComponent);
var 
WidthTickrrrdouble;
    
sssstring;
begin
  sss 
:= <Параметры."См.черт.">;

  
Line1.Visible := true;
  
WidthTick := StrToFloat(<Параметры."Кромка L1 толщ.">);
  if 
WidthTick 0 then
  begin
    
if (VarToStr(<Параметры."Кромка L1 обозн.">) <> '') and (VarToStr(<Параметры."Кромка L1 обозн.">) = sssthen
    begin
      Line1
.Frame.Style := fsDot;
      
Line1.Frame.Width := 2;
    
end
    
else Line1.Visible := false;
  
end
  
else
  
begin
    Line1
.Frame.Style := fsSolid;
    
Line1.Frame.Width := WidthTick 2;
  
end;

  
Line2.Visible := true;
  
WidthTick := StrToFloat(<Параметры."Кромка L2 толщ.">);
  if 
WidthTick 0 then
  begin
    
if (VarToStr(<Параметры."Кромка L2 обозн.">) <> '') and (VarToStr(<Параметры."Кромка L2 обозн.">) = sssthen
    begin
      Line2
.Frame.Style := fsDot;
      
Line2.Frame.Width := 2;
    
end
    
else Line2.Visible := false;
  
end
  
else
  
begin
    Line2
.Frame.Style := fsSolid;
    
Line2.Frame.Width := WidthTick 2;
  
end;

  
Line3.Visible := true;
  
WidthTick := StrToFloat(<Параметры."Кромка W1 толщ.">);
  if 
WidthTick 0 then
  begin
    
if (VarToStr(<Параметры."Кромка W1 обозн.">) <> '') and (VarToStr(<Параметры."Кромка W1 обозн.">) = sssthen
    begin
      Line3
.Frame.Style := fsDot;
      
Line3.Frame.Width := 2;
    
end
    
else Line3.Visible := false;
  
end
  
else
  
begin
    Line3
.Frame.Style := fsSolid;
    
Line3.Frame.Width := WidthTick 2;
  
end;

  
Line4.Visible := true;
  
WidthTick := StrToFloat(<Параметры."Кромка W2 толщ.">);
  if 
WidthTick 0 then
  begin
    
if (VarToStr(<Параметры."Кромка W2 обозн.">) <> '') and (VarToStr(<Параметры."Кромка W2 обозн.">) = sssthen
    begin
      Line4
.Frame.Style := fsDot;
      
Line4.Frame.Width := 2;
    
end
    
else Line4.Visible := false;
  
end
  
else
  
begin
    Line4
.Frame.Style := fsSolid;
    
Line4.Frame.Width := WidthTick 2;
  
end;
end;

procedure Barcode2D2OnBeforePrint(SenderTfrxComponent);
begin
  Barcode2D2
.Visible := False;
  
Picture8.Visible := True;
  if <
Параметры."Кол. гл. отв. в пласть низ"> > 0 then
  begin
    Barcode2D2
.Visible := True;
    
Picture8.Visible := False;
  
end;
end;

procedure Barcode2D1OnBeforePrint(SenderTfrxComponent);  
begin
  Barcode2D1
.Visible := False;
  
Picture7.Visible := True;
  if <
Параметры."Кол. гл. отв. в пласть верх"> +
     <
Параметры."Кол. отв. в торец"> +
     <
Параметры."Кол. прямол. пазов"> +
     <
Параметры."Кол. кривол. пазов"> > 0 then
     begin
       Barcode2D1
.Visible := True;
       
Picture7.Visible := False;
     
end;
end;

procedure Picture10OnBeforePrint(SenderTfrxComponent);
begin
   Picture10
.Visible := False;
   
Picture14.Visible := True;
   if <
Параметры."Кол. гл. отв. в пласть"> +
      <
Параметры."Кол. скв. отв. в пласть"> +
      <
Параметры."Кол. отв. в торец"> > 0 then
      begin
        Picture10
.Visible := True;
        
Picture14.Visible := False;
      
end;
end;

procedure Picture11OnBeforePrint(SenderTfrxComponent);
begin
   Picture11
.Visible := False;
   
Picture15.Visible := True;
   if <
Параметры."Паз"> <> '' then
      begin
        Picture11
.Visible := True;
        
Picture15.Visible := False;
      
end;
end;

procedure Picture12OnBeforePrint(SenderTfrxComponent);
begin
  Picture12
.Visible := False;
   
Picture16.Visible := True;
   if <
Параметры."Пластик"> > 0 then
      begin
        Picture12
.Visible := True;
        
Picture16.Visible := False;
      
end;
end;

procedure Picture13OnBeforePrint(SenderTfrxComponent);
begin
  Picture13
.Visible := False;
   
Picture17.Visible := True;
   if <
Параметры."Контур"> <> '' then
      begin
        Picture13
.Visible := True;
        
Picture17.Visible := False;
      
end;
end;

begin

end



Артем Валерьевич 05.11.2022 12:56

Цитата:

Сообщение от HaddinG (Сообщение 518352)
Добрый день.
Подскажите, пожалуйста - попытался создать бирку (на паскале) по ролику на ютуб канале базиса с выводом разной толщины кромки, но появляется ошибка "Could not convert variant of type (UnicodeString) into type (Double)", хотя вроде передрано в точности - в чем ошибка и как ее исправить?

что за ролик про паскаль и скрипты?

AlexBolton 05.11.2022 15:02

Цитата:

Сообщение от Артем Валерьевич (Сообщение 518369)
что за ролик про паскаль

Это про код в событиях

https://abload.de/img/thumb_3fd7b6b6f48c1218oeko.png

https://youtu.be/2Ro2JfIP7mU?t=64

lelik07 16.04.2023 00:34

Добрый день .

Скрытый текст


Посмотрел видео там можно скрывать QR код по параметрам с панели - сделал 2 детали только с пазами, на первой паз только с верху и тут все отрабатывает штатно ,а на второй паз с двух стороно и нет параметра сторона паза соответственно QR только на одну сторону подсвецивается . Как с этим боротся ? Есть решение этой проблеммы?

sibmebel 16.08.2023 11:25

Вложений: 3
В чем может быть причина такого отображения Обозначения детали на бирке? Вместо "01.13" на бирке "1,13"
Проблема только с форматом "00.00". Если формат "00.00.00", то все отображается правильно.

AlexBolton 16.08.2023 11:55

Цитата:

Сообщение от sibmebel (Сообщение 522598)
Проблема только с форматом "00.00"

Скорее всего автоматом данные распознаются как число с разделителем по-умолчанию :)
Настройте в шаблоне по вкусу.
https://abload.de/img/thumb_1c3349242c91683defnl.png

sibmebel 16.08.2023 13:05

Вложений: 1
Цитата:

Сообщение от AlexBolton (Сообщение 522599)
распознаются как число

У меня было выбрано "Текст"
Пока помогла только "кастрация" одного из форматов даты, но тогда это отдельная настройка для формата "00.00" получается.. но все равно выход!)


Текущее время: 20:59. Часовой пояс GMT +3.

Powered by vBulletin® Version 3.8.12 by vBS
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
© 2007-2023 PROMEBEL