Search options (Page 17 of 18)

Hello Dmitry and Thank you so much for your reactivity !!

I downloaded the new beta and tried it with a few URL, it looks to work fine.

I'll do some more extensive tested latter on today and come back to you.

As always you've been fast and efficient, thank you again.

Sincerely

Math

Hello Dmitry,

Thank you for your fast answer as usual !
On second thought, saving multiple values in one single field is a bad idea. I'll try something else and keep you posted (I plan on a pairing table with only id in it).

But I still have another related question :

I'm trying to save records as I go from form to form (because I need the id of the newly created product for pairing it with keywords).

So the product is created and saved in FormA (no problem here), and when FormA is closed, FormB is opened.
In order to assign keywords to this product, I need to lookup it's id in the table "products".

Her'es my code :

Var
prod_id : String;

procedure new_product_Button1_OnClick (Sender: string; var Cancel: boolean);
begin

    new_product.hide;
    new_product_keywords.Show;
end;


procedure new_product_keywords_OnShow (Sender: string; Action: string);


begin
    prod_id := IntToStr(Last_Insert_id('products'));
    new_product_keywords.Label_prod_id.Caption := prod_id;
    new_product_keywords.Edit_prod_id.Text := prod_id;
end;



begin

end.

I have no error message, but the result (displayed in an Edit Field and in a label) is always 0.
What do you think am I doing wrong ?

Cheers

Mathias

Well... I don't get it... I missed your post to Dmitry...

I don't understand why it works after upgrading for you while it does not for me with the same version ? Furthermore, why would 2 out of 3 tablegrids work and one not if this is a version bug ? Shouldn't the 3 tablegrids be broken as well ?

Anyway, glad you solved your problem

Math

OK, I think I found your bug

The problem was not with the blank line (no value or 0), but with the 'sfa' variable that was assigned to footer too early in your code, before the calculation. Only the last line was taken into account.

Try changing the line in red, it is misplaced - move it to the line in green, should work.

Math

Dmitry you're the best !

I was trying something like :

• count days

• find what the first day is

• divide total number of days by 7

• chain the if conditions with divisions and modulos to find how many saturdays and sundays

This looks like pure magic to me and in the same time it is so logical now that it is written !

Thanks again

Mathias

Hello Dimtry and thank you for your help, question is solved.

I post my project as an example if someone needs it or if you want to keep it for further reference

I used 2 different approaches for calculating the result :

1- conversion in seconds and then divisions and modulos for each steps

2- direct conversion in days/hours/minutes wit the between method  and modulos

Each method gives the same result (script is commented in english).

Thanks again for you valuable help.

Cheers

Mathias

PS1 : version of MVDB is 1.50
PS2 : no guaranty that it's 100% bug free

Thank you Dimtry for your quick answer.

Well, I'll open link in browser then, not a problem :-)

By two variables do you mean for example :

if 0 then color is green
if between 1 and 5 color is orange
if 6 or greater then color is red ?

Is it the between statment that causes you problem ?

If yes (and I say if because it would not be the first time I answer a question you did not ask ), then you shoud try the in [x..y] statment like this :

if Form1.TableGrid1.Cells[1,i] in [0..9]) then
...instruction...
if Form1.TableGrid1.Cells[1,i] in [10..19]) then
...instruction...
if Form1.TableGrid1.Cells[1,i]  >=20 then
...instruction...

Hope I got it right this time

Have a good day

Mathias

Aaaaaaah, clever : include on the form closed by the user, a procedure to close the intial form !!

That did the trick, thank you