4,251 Reply by DriveSoft

(31 replies, posted in General)

derek
Hello.


1. I will do it before final version.


2. In the current alpha version it's not possible but I will try to do it.

Go to forum: General

4,252 Reply by DriveSoft

(32 replies, posted in Russian)

Приветствую.


Скачайте пожалуйста последнюю бета версию.
http://myvisualdatabase.com/forum/viewtopic.php?id=2887



Пример, как получить html из TWebBrowser

Go to forum: Russian

4,253 Reply by DriveSoft

(2 replies, posted in Russian)

Так задумано, можете изменить это поведение простым скриптом, создайте событие OnClick для кнопки, пример

procedure Form1_buttonSave_OnClick (Sender: string; Action: string);
begin
    Form1.buttonSave.dbDontResetID := True; 
end;

Go to forum: Russian

4,254 Reply by DriveSoft

(9 replies, posted in Russian)

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

Go to forum: Russian

4,255 Reply by DriveSoft

(26 replies, posted in Russian)

Игоревич
Пожалуйста прикладывайте проект целиком, я не смогу запустить скрипт в голове, чтобы протестировать его )

Go to forum: Russian

4,256 Reply by DriveSoft

(19 replies, posted in Russian)

menshikov-76 wrote:

https://cloud.mail.ru/public/7W7G/w9XPiYYuW попробуйте с майла.

В настройках кнопки Excel вы просто не указали, по какому полю сортировать, я указа по фирме.

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

Go to forum: Russian

4,257 Reply by DriveSoft

(37 replies, posted in Russian)

ZBear
К сожалению по данному куску скрипта не смогу определить ошибку.

Go to forum: Russian

4,258 Reply by DriveSoft

(1 replies, posted in Reports)

Hello.


http://myvisualdatabase.com/forum/viewt … 220#p17220

Go to forum: Reports

4,259 Reply by DriveSoft

(26 replies, posted in Russian)

Игоревич
По данном отрывку кода я не могу определить ошибку, видимо в скрипте используются глобальные переменные, которые не описаны в этом событии (такие как sDeletedObekt, sDeletedSistema) и формируются где то в  других частях скрипта.

Go to forum: Russian

4,260 Reply by DriveSoft

(13 replies, posted in General)

Игоревич
Увы я не могу помочь с поиском пиратских програм.

Go to forum: General

4,261 Reply by DriveSoft

(10 replies, posted in Script)

clyde wrote:

@Dmitry - That was exactly what I was looking for - thank you! I have one question though, is TdbStringGridEx referenced anywhere in the documentation or the functions reference in the code editor? I couldn't find it. Anyway, I've added an example project file to show how I'm using it. Hope it can help some other forum members.

For grid Iam using component TNextGrid 5 from bergsoft.net.
Please download attached help file for the component, look section "GridView"

Go to forum: Script

4,262 Reply by DriveSoft

(1 replies, posted in Script)

Hello.


The function RemoveDir will be in the next version.


Thanks.

Go to forum: Script

4,263 Reply by DriveSoft

(19 replies, posted in Russian)

Приветствую.


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

Go to forum: Russian

4,264 Reply by DriveSoft

(1 replies, posted in Script)

Hello.


It's not support.

Go to forum: Script

4,265 Reply by DriveSoft

(4 replies, posted in General)

AD1408
I just can't run your project, to many mistakes. I think you have errors in the calculated fields.
Also you have wrong database structure, too many relationships between tables.

Go to forum: General

4,266 Reply by DriveSoft

(4 replies, posted in General)

kkalgidim
You should use SQL query for report in WHERE section
Date(teslimtarihi) = Date('Now','localtime','+1 day')



Please download fixed project:

Go to forum: General

4,267 Reply by DriveSoft

(37 replies, posted in Russian)

ZBear wrote:

Ошибок больше нет, но скрипт определения пользователя так и отрабатывает не верно, ещё раз отмечу - в 2.8 всё работает.


Опишите пожалуйста подробней, что это за скрипт? У меня нет доступа к вашей базе поэтому нет тестовых данных с пользователями.

Go to forum: Russian

4,268 Reply by DriveSoft

(37 replies, posted in Russian)

ZBear wrote:

При запуске из версии 3.0 неверно определяется пользователь и выходят ошибки. В 2.8 всё работает.

Исправил, скачайте пожалуйста снова последнюю версию 3.01а

Go to forum: Russian

4,269 Reply by DriveSoft

(3 replies, posted in Russian)

Роман
Запретить тестировать я вам не могу, тестируйте )
Позже можно будет запрещать редактировать колонки.

Go to forum: Russian

4,270 Reply by DriveSoft

(31 replies, posted in General)

doing.whatever.it.takes wrote:

i have version 2.8 with minor update license.  do i need to buy new license to use version 3?

If you have purchased a license in August 2016 or later, you will get all updates 3.xx for free.


But version 3.0 alpha can use all registered users (2.xx).

Go to forum: General

4,271 Reply by DriveSoft

(4 replies, posted in General)

Hello.


Please attach your project.

Go to forum: General

4,272 Reply by DriveSoft

(5 replies, posted in Russian)

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

Go to forum: Russian

4,273 Reply by DriveSoft

(237 replies, posted in Russian)

motorolla
Можно скриптом

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    // запрещает изменять размер колонок мышкой  
    Form1.TableGrid1.Columns[0].Options := Form1.TableGrid1.Columns[0].Options + coFixedSize;
    Form1.TableGrid1.Columns[1].Options := Form1.TableGrid1.Columns[1].Options + coFixedSize;

    // указываем размеры колонок
    Form1.TableGrid1.Columns[0].Width := 50;
    Form1.TableGrid1.Columns[1].Width := 50;
end;

Go to forum: Russian

4,274 Reply by DriveSoft

(10 replies, posted in Script)

clyde

Example:

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    TableGrid_OnChange(Form1.TableGrid1);
end;

procedure Form1_GridEmployees_OnChange (Sender: string);
begin
    TableGrid_OnChange(Form1.GridEmployees);
end;


procedure TableGrid_OnChange (Sender: TdbStringGridEx);
var
   i,k: integer;
begin
    for i := 0 to Sender.RowCount - 1 do
    begin
        for k := 0 to Sender.Columns.Count - 1 do
        begin
            Sender.Cell[k,i].Color := $00F0F0F0;
        end;
    end;
end;

Go to forum: Script

4,275 Reply by DriveSoft

(8 replies, posted in Script)

clyde wrote:

@Dmitry - Many thanks for the link to 2.8 and the example code. Unfortunately, the XML is the response from an HTTP GET request - not a file I can load using LoadFromFile(<filename>). I could use the PosEx though. Which leads me to a question. When does 2.8 come out of Beta. I'm wondering about using the beta just to obtain the PosEx function smile.



Example using HTTPGet('http://site.com/file.xml');

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    sXML: string;
    s, sRow, sDuration, sDistance: string;
    iPos1, iPos2, iOffset: integer;
begin
     sXML := HTTPGet('http://site.com/file.xml');

     iOffset := 1;
     iPos1 := 1;
     while true do
     begin
         iPos1 := PosEx('<row>', sXML, iOffset);
         if iPos1=0 then break;

         iPos2 := PosEx('</row>', sXML, iOffset);
         iOffset := iPos2+1;

         sRow := Copy(sXML, iPos1, iPos2-iPos1);

         sDuration := Copy(sRow,  Pos('<duration>', sRow),  Pos('</duration>', sRow)-Pos('<duration>', sRow) );
         sDistance := Copy(sRow,  Pos('<distance>', sRow),  Pos('</distance>', sRow)-Pos('<distance>', sRow) );


         s := Copy(sDuration, Pos('<text>', sDuration)+Length('<text>') , Pos('</text>', sDuration)-Pos('<text>', sDuration)-Length('<text>'));
         Form1.Memo1.Lines.Add(s);

         s := Copy(sDistance, Pos('<text>', sDistance)+Length('<text>') , Pos('</text>', sDistance)-Pos('<text>', sDistance)-Length('<text>'));
         Form1.Memo1.Lines.Add(s);
     end;    


end;

Now you can download final version of 2.8

Go to forum: Script