(CASE WHEN implementation=1 then 'На контроле' WHEN implementation IS NULL then 'Выполнено' else '' end)
jenek wrote:

может я что-то не там меняю? при запуске такая ошибка (скрин), при нажатии на кнопку дубликат - Access violationat address 0087E3B1 in module "Employees.exe"/ Write of address 00000014

замените TableGrid1 на GridEmployees в коде.

6,878

(10 replies, posted in Russian)

попробуйте так

s,z: string;

    begin
    s := SQLExecute('SELECT group_concat('-' || contentDetails, char(13)) FROM details WHERE date(dateCompletion)=date(''now'') AND status=1');
    z := SQLExecute('SELECT group_concat('-' || contentTask, char(13)) FROM tasks WHERE date(dateCompletion)=date(''now'') AND status=1');
    if (z <>'')  OR (s <>'') then
    begin
        ShowMessage( 'Сегодня закончился срок выполнения:' +#13#10 +#13#10 +'Задач:' +#13#10 +z +#13#10 +#13#10 +'Мероприятий:' +#13#10 +s );
    end;

6,879

(10 replies, posted in Russian)

kunar80 wrote:

Код работает без проблем и отбирает записи, принадлежащие к определённой дате. Каждая запись пишется с новой строки (рисунок прилагаю). Но всё равно визуально они сливаются.

В чем вопрос? )

kunar80 wrote:

P.S. На рисунке задач - 3, мероприятий - 6. Последнее, шестое, почему-то сїехало вниз (?)

Последнее съехало вниз, возможно потому что в самой записи есть перенос строки.



Пожалуйста, описывайте вопрос более ясно, у меня к сожалению нет представления о целях и сущности вашего проекта, который есть у вас.

inter1292 wrote:

Что бы в форме frmReestrVidmovu в поле ComboBox1 выбирался адвокат, а в поле ComboBox2 можно было выбрать номер телефона принадлежащий даному адвокату на который был осуществлем звонок (таких номеров может быть несколько), и запись  всех етих данных в базу с последюющим просмотром через форму frmJurnal.

Поправил ваш проект:

6,881

(3 replies, posted in Script)

Do you store any files in database?
Speed of work depends how many user online?


There is no any limits for database.

6,882

(10 replies, posted in Russian)

Я не могу понять, о каких нескольких записях идет речь, судя по коду, у вас одна запись в z и одна в s

К сожалению я не могу понять, что именно вам необходимо. Пожалуйста, задайте вопрос в общем виде, какие именно операции с данными вам нужны.

6,884

(13 replies, posted in Russian)

к сожалению я не совсем понимаю, что вы делаете, я могу вам помочь только с конкретным вопросом.

6,885

(10 replies, posted in Russian)

К сожалению не ясно, о какой пустой строке идет речь.


добавить символ в переменную текстового типа можно так:

s := '-' + s;

Необходимо подробное описание, с указанием форм и компонентов, где это необходимо реализовать.

6,887

(1 replies, posted in Script)

Hello,


Unfortunately no, but you can try use clipboard, right click on TableGrid and select "Copy all" then try paste to office suite.

6,888

(12 replies, posted in Script)

SkwarNX wrote:

I want to create report but my result was wrong with this ....!!!
You can't have 307.31 with 32.09 in tablegrid on report...
...3 days on this application but no solution....

Please, try fixed version of your project:

6,889

(12 replies, posted in Script)

maybe it's due to rounding, please open record with prix: 32,09
and you will see value: 32,085


In table grid you got rounded value.

6,890

(12 replies, posted in Script)

Where I can see your picture?

6,891

(13 replies, posted in Russian)

kunar80
Проверил ваш проект, работает, ключ удаляется, но код можно чуть упростить.

procedure frmMain_Button1_OnClick (Sender: string; var Cancel: boolean);
var
reg: TRegistry;
begin
             reg := TRegistry.Create;
             reg.Access := KEY_ALL_ACCESS;
             reg.RootKey := HKEY_CURRENT_USER;
             reg.DeleteKey('\software\MyAssistantTrial');
             reg.CloseKey;
             reg.Free;
end;

6,892

(33 replies, posted in Russian)

nikolai_nn
не видя структуру вашей базы данных, я не могу исправить ваш запрос, приложите пожалуйста проект.

6,893

(12 replies, posted in Script)

Where exactly error in your project? Please let me know more details.

попробуйте так

procedure frmDogovor_knpkAddDog_OnClick (Sender: string; var Cancel: boolean); // проверка на заполнение обязательных полей и соответствие ИНН количеству введенных символов
begin
    if (Length(frmDogovor.addINN.Text)<>10) and (Length(frmDogovor.addINN.Text)<>12) then
        begin
            ShowMessage('Не верный ИНН!');
            Cancel := True;
        end;
end;

попробуйте заменить данный участок кода на следующий:

id =''' + IntToStr(Form1.TableGrid1.dbItemID) + '''' )

6,896

(12 replies, posted in Script)

Hello,


I don't have access to download the file.

6,897

(8 replies, posted in Russian)

ShowModal не поможет.


таймер скрывает форму License, как бы отделяется от события OnShow от Form1

6,898

(8 replies, posted in Russian)

pha1984 wrote:

При первом запуске программа запрашивает код активации, который можно взять с Edit3. Теперь при повторном запуске пишет ошибку (см. изображение)

Нет возможности скрывать окно в событии этого же окна (OnShow)
Пришлось сделать немного не стандартно, с помощью таймера:

d.v.aleinikov wrote:

Ограничение минимального размера окна при установленной функции "Sizeable"- возможно ли такое?

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.Constraints.MinWidth := 400;
    Form1.Constraints.MinHeight := 400;
end;

6,900

(8 replies, posted in Russian)

приложите пожалуйста проект, с описанием действий для возникновения ошибки.