Search options (Page 33 of 34)

Thanks a lot for your help,

for the sake of other people willing in reproducing this item, please find below the working code:

//##################################################################################################
// Field protection and Checkbox section

// Checkbox to add "DECT" in two fields at once EditCisco Form
procedure AddInfo_CheckBox1_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
    if AddInfo.CheckBox1.Checked then
    begin
        if not AddInfo.AddTK.ReadOnly then
        begin
            AddInfo.AddTK.Text:='DECT';
            AddInfo.AddPF.Text :='DECT';
        end;
    end;
end;

// Check if fields PF is empty or not for the checkbox, if not empty then read-only AddInfo Form
procedure AddInfo_AddPF_OnChange (Sender: string);
begin
    if (AddInfo.AddTK.Text='DECT') and (AddInfo.AddPF.Text='DECT') then AddInfo.CheckBox1.Checked:=True else AddInfo.CheckBox1.Checked:=False;
end;

// Check if fields TK is empty or not for the checkbox, if not empty then read-only AddInfo Form
procedure AddInfo_AddTK_OnChange (Sender: string);
begin
    if (AddInfo.AddTK.Text='DECT') and (AddInfo.AddPF.Text='DECT') then AddInfo.CheckBox1.Checked:=True else AddInfo.CheckBox1.Checked:=False;
end;

// Protect fields PF and TK when not empty, if not empty then read-only AddInfo Form
procedure AddInfo_OnShow (Sender: string; Action: string);
begin
    if AddInfo.AddPos.Text<>'' then AddInfo.AddPos.ReadOnly := True else AddInfo.AddPos.ReadOnly := False;
    if AddInfo.AddTK.Text<>'' then AddInfo.AddTK.ReadOnly := True else AddInfo.AddTK.ReadOnly := False;
    sLastActionForm := Action; // variable for edit/add logging
end;

I will send you my current project with explaination. I have anonymized the data in the db

Looks nice but if I copy / paste your code in a script tab, I get an error : "BEGIN expected at 5:1"

I do not understand how to do it (feel like a noob)....

What is the correct syntax to put comments in the code? I would like to make the script easy to understand as per good practice.

Ok, great but I am not a developer as for almost all your users, how can I implement that with the employee log database?

Wow, it is more complex than I thought.

It works now but when I create a new record, the ID is logged as -1 instead of current ID

Thanks a lot for super fast reply. Being very busy at the moment, I have no time to try it but I will do as soon as I have some spare time.

I quickly looked into your example and everything is based on scripts. Would it be possible to get any kind of documentation about the script features? (functions, how to use them, etc...) That would be very helpful especially if you want to sell you application to companies.

Cool, when do you plan to implement multiple reports on same page? (I know, I bother you with this )

I think that you should not write in capital letters and give more information on what you want to do in order to get any answers.