Search options (Page 22 of 42)

Hi Derek and Manixs,

My apologies for not making my layout clear. I should have added additional two columns (cost of deposit and cost of withdrawal)  in addition and show deposits and withdrawal in separate columns. At my end I wanted to use running balance in banking terms.

Manixs' calc field formula with printf("%.2f",... seems to be working OK. Thanks for sharing Manixs.

When formatting tGrid cell values with decimals and thousand separator;
the following works fine without printf("%.2f",...  calc fields and on form calcs:

procedure Form1_tgMain_OnChange (Sender: string);
begin
 if form1.tgMain.Columns[4] is TNxNumberColumn then
    begin
    TNxNumberColumn(form1.tgMain.Columns[4]).FormatMask := '#,###,##0.00'; //
    TNxNumberColumn(form1.tgMain.Columns[6]).FormatMask := '#,###,##0.00'; //
   end;
end;

However, the above didn't work with calc field containing printf("%.2f",...
I found out that old method below worked with calc field containing printf("%.2f",...

procedure Form1_tgMain_OnChange (Sender: string);
var i,c: integer;
begin
    Form1.tgMain.BeginUpdate;

    c := Form1.tgMain.RowCount - 1;
    for i := 0 to c do
    begin
        Form1.tgMain.Cells[8, i] := FormatFloat('#,##0.00', Form1.tgMain.Cell[8, i].AsFloat);
        Form1.tgMain.Cells[9, i] := FormatFloat('#,##0.00', Form1.tgMain.Cell[9, i].AsFloat);
    end;
    Form1.tgMain.EndUpdate;
end;

Just wanted to share in case others may encounter the same issue and also for correction if needed.

Hi Derek,

Unfortunately, same issue still remains.
This time, I've added product and issued a refund, exit then re-run the project.

I'm interested in running balance calc too.
At my end it'd be laid out like this:

Deposits   |   Withdrawals   |   Running Balance
                                                               100.00
100.00                     0.00                        200.00
100.00                   50.00                        250.00

Hi Derek,

Thank you very much for your kind update..........
Truly appreciated....................

No, it's not your bad. Actually it's your good. It shows alternative ways doing same thing. I like alternatives. After all we all need Plan A, Plan B etc to complete tasks.

One thing still bugging me which I couldn't get it working. I wanted to add reference column (*) to form1 PI and SI tGrids via PR and SR forms. I used a text field with default value R
I like to use reference columns for conditional manipulation of those relevant tGrids, in this case PI and SI tGrids. Could you please help?

Hi Derek,

Thank you so much for taking time to for doing 1 table version................
Truly appreciated...........

Your approach deserves a laud applause. You did all that with minimal script.

On downside, at my end due to luck of proper understanding of MVD functionality, changing something breaks it. For instance I changed PI Grid "Show Refunds" button name and lost button functionality (clicking on a record on PI grid to display purchase refunds of selected purchase inv record) I could only find that button name referenced on script once. I changed that too but still couldn't make it work? I'm sure I'm missing something but in spite of trying and checking all the items I can think of, couldn't solve it.

EHW,

I hope you are around and have some free times...

I got the two tables version working the way I wanted thanks to your and Derek's help. Hopefully I won't have any further issues with it.

Now I'm trying one table version.
Main stumbling block for me here SQL script in order to save mostly same data as a different record (refunds). I Googled for sql script but couldn't find anything that I could learn and use.
Perhaps you could give me a quick info about items highlighted on the illustration below:

On attached one table sample project I couldn't get dbRef and crRef fields under PI and SI Ref columns. I may be wrong but I'm guessing I couldn't get sql script right. I like to use these columns for conditional codes such as row coloring, preventing delete action if item contains any refund etc.

They work OK on two tables version as you can see on the screen cap below:

Also when refunds relating to Invoice record is/are deleted, Inv tGrid updates by changing color to original record color and takes out Db / Cb text under Ref column.

Derek,

Thank you very much for the info that I consider is very helpful...................

No, I didn't notice creation of duplicate records and of course you are right. Could you possibly fix it please?

Originally, I have started the project one main table and 1 main form, both named same (Invoice).
In the the process I hit some issues those that I couldn't solve myself. Main issue was working out refunds.
What I wanted do is when issuing a refund against selected purchase and sale is to display original inv details in read only mode with their own unique record numbers. I was using show record action for refund buttons to get original inv details displayed on refund forms. It didn't work as it was saving over the original invoice. Thanks to EHW, he provided solution but I couldn't adopt his script to actual project. I posted for help under "Script help please" thread but I think EHW is away.
It would be simple to use new record action for refund button but I couldn't find a way to get original inv fields values to display on refund form. I guess I could use inv num combobox on refunds form to call original inv details but that's not a practical solution. When there are many invs it'd be not easy to locate correct inv num.
If you have time, It'd be great help for me to have your version of this sample project.

Hi Derek,

Thank you very much................
Truly appreciated................

My thinking was linking refunds table to invoice table would do the job. In any case I don't think I could have come up with the combo usage.

I guess you wanted me to apply same to sales for me to learn bit more; not because you couldn't do it. I have applied your solution for purchase part to original sample project for learning purposes. However, failed to apply same method to sales.

Also, I couldn't get refund prices displayed with minus (-)

Hi Guys,

Thank you very much.................

What I was trying to do is disabling the click of tab itself in a multi tabs situation. User sees all available tabs but cannot click other than predefined tab with something like

Form2.pagecontrol1.ActivePageIndex := 1;
Form2.TabSheet0.Enabled  := False;
Form2.TabSheet2.Enabled  := False;
Form2.TabSheet3.Enabled  := False;

Perhaps it's not possible...

Derek, I added radio button simulation for the checkboxes so that only one can be selected.

procedure Form1_CheckBox1_OnClick (Sender: string);
begin
  if form1.checkbox1.checked = true then form1.tabsheet1.enabled := false else form1.tabsheet1.enabled := true;
     Form1.CheckBox2.Checked := False;
     Form1.CheckBox3.Checked := False;
end;

procedure Form1_CheckBox2_OnClick (Sender: string);
begin
  if form1.checkbox2.checked = true then form1.tabsheet1.tabvisible := false else form1.tabsheet1.tabvisible := true;
     Form1.CheckBox1.Checked := False;
     Form1.CheckBox3.Checked := False;
end;

procedure Form1_CheckBox3_OnClick (Sender: string);
begin
  if form1.checkbox3.checked = true then form1.tabsheet1.visible := false else form1.tabsheet1.visible := true;
     Form1.CheckBox2.Checked := False;
     Form1.CheckBox1.Checked := False;
end;

How can I use multiple statements with and in one line something like below which doesn't work:

procedure Form1_CheckBox1_OnClick (Sender: string);
begin
  if form1.checkbox1.checked = true then form1.tabsheet1.enabled := false else form1.tabsheet1.enabled := true;
     //Form1.CheckBox2.Checked := False;
     //Form1.CheckBox3.Checked := False;
     (Form1.CheckBox2.Checked) and (Form1.CheckBox3.Checked) := False;
end

Is it possible to use more than one and on same line?

Hi EHW,

Agreed, using labels instead of fields in this case is definitely a better approach.
Thank you very much.................
Truly appreciated....................

Indeed.