Conditional coloring of label and panel

Adam, First your DbCr table was empty (No sale and No Refund). I added them manually. Second, you tried to set the label caption and the color all in one statement. You can't really do that, so I separated them out for you.  See the attached for the fix.

Also, I'm assuming you realize that in this particular project, that your Save button will always add a new SaleInv record.

I'm still playing with Derek's approach on refunds. It was all fine until I start testing inv report/print. I realized that it's not practical to have sale and return items on same invoice when printing; as sale and refunds usually happens at different times. If already sale invoice issued/sent later on adding refund items to same invoice and issuing it again would be incorrect. Granted, one can issue sale and refund inv headers and items separately but this would require extra attention on user part so that user doesn't add refund items to sale inv header etc.

In order to avoid all those inconveniences, I thought moving sale or refund (DbCr) combo to sale invoice header and referencing combo value on sale inv items so that user can only add sale inv items to sale inv header and vice versa. With additional coloring (Thanks to EHW) to highlight it's whether sale or refund + hiding refund reason combo and it's label if it's a sale on sale inv items form.

In attached sample project I have tried to apply coloring and getting sale/ refund (DbCr) value on sale inv item form in order to apply same coloring + show / hide refund reason combo and it's label but failed again?

EHW, I used onAfterClick for coloring on form1 add and edit buttons beside combo on change events. Thinking it'd be used with add and edit actions beside combo change on inv header. When existing record displayed with edit action it'd keep the original status (coloring) whether it's a sale or refund.

Hi EHW,

Thank you very much for the fix and the info......................
There are some great stuff for me to learn and use in future projects... truly appreciated............

Your fixed sample project runs perfectly. No problem on there.
However, my work project not when I remove dbcr field from the sales items table I get an error.

I checked tgMainCustomersTrans grid, even taken out additional columns to make it same as the test project but no luck. When I put back dbcr field to sales items table it works without error but causes invoice items table refresh failure on browsing customers.

Thanks a lot for the quick info EHW..........

I noticed an issue on adding inv item. It would come up with not null error since id_customer was marked as required.  I checked off nut null. However, this time saved invoice item is not displayed tgMainCustomersTransItems tGrid.

Also, I'm not clear how to get customer details (address) on sale inv form as combo changed to label. I couldn't see onChange event for labels.

Once again I'm grateful for your kind help.........

Great Stuff EHW.......................
Thank you very much.......................

What was the issue with adding and showing records on inv items? Your sample project works perfectly but with my work project I couldn't solve showing records correctly on inv items tGrid.

edit:
I think I sorted it out. I forgot to include combobox1 on inv items save.

See attached for hiding column. I'm not sure I understand your tax issue though.

I wanted to color all rows text to red on tgMainCustomersTransItems,  if  tgMainCustomersTrans column[1] contained 'Refund' as follow:

procedure tgCustInvItemChange2; // ********* Coloring refund Inv Items rows
var
   iRow1 ,c2: integer;
   q1, iCol1: integer;
begin
     c2 := Form1.tgMainCustomersTransItems.RowCount - 1;
     q1 := Form1.tgMainCustomersTransItems.Columns.Count-1;
     for iRow1 := 0 to c2 do
        if Form1.tgMainCustomersTrans.Cells[1,iRow1] = 'Refund' then
            for iCol1 := 0 to q1 do Form1.tgMainCustomersTransItems.Cell[iCol1,iRow1].textColor := clRed;
end;

but it didn't work? Tried to add Form1.btnCustTransItemSearch.click; to above which caused app crash on run.

--------------------------------------------------------------------------------------------------------------------------------------------------------------

Also tried to get tGrid focused on newly added record row with the following but didn't work too:

procedure frmSalesInv_Button1_OnAfterClick (Sender: string);
begin
      Form1.tgMainCustomersTrans.dbItemID:= Last_Insert_id;
      Form1_tgMainCustomersTrans_OnCellClick('',0,0);
end;