Базис Бирка 2021/2024

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 - программные настройки).

[свернуть]

[Майкл]

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

[mackx]

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

[HaddinG]

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

PHP код:

procedure Line1OnBeforePrint(Sender: TfrxComponent);
var WidthTick, rrr: double;
    sss: string;
begin
  sss := <Параметры."См.черт.">;

  Line1.Visible := true;
  WidthTick := StrToFloat(<Параметры."Кромка L1 толщ.">);
  if WidthTick = 0 then
  begin
    if (VarToStr(<Параметры."Кромка L1 обозн.">) <> '') and (VarToStr(<Параметры."Кромка L1 обозн.">) = sss) then
    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 обозн.">) = sss) then
    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 обозн.">) = sss) then
    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 обозн.">) = sss) then
    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(Sender: TfrxComponent);
begin
  Barcode2D2.Visible := False;
  Picture8.Visible := True;
  if <Параметры."Кол. гл. отв. в пласть низ"> > 0 then
  begin
    Barcode2D2.Visible := True;
    Picture8.Visible := False;
  end;
end;

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

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

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

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

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

begin

end. 


[Артем Валерьевич]

Сообщение от HaddinG

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

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

[AlexBolton]

Сообщение от Артем Валерьевич

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

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



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

[lelik07]

Добрый день .

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

Ссылка на сервисе

[свернуть]

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

[sibmebel]

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

[AlexBolton]

Сообщение от sibmebel

Проблема только с форматом "00.00"

Скорее всего автоматом данные распознаются как число с разделителем по-умолчанию
Настройте в шаблоне по вкусу.

[sibmebel]

Сообщение от AlexBolton

распознаются как число

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