Moving tGrid Item on Save

I added to your filter on the purchase invoice grid setting.  If a purchase invoice is converted to a sale then the filter will exclude it from the purchase grid. Also, I placed a dbupdate after deleting a sale invoice so the purchase invoice will immediately show again in the purchase grid.

Hi again EHW,

I wanted to apply on sale invoice delete moving record back to purchase inv tGrid for 1 table (sale and purchase) Invoice table and 1 form(sale and purchase) frmInvoice version.
Tried following but no success:

procedure Form1_btnSaleDelete_OnAfterClick (Sender: string);
begin
  frmInvoice.cbInvoiceDBCR.Text := 'Purchase';
  frmInvoice.edDBCR.Text := 'Purchase';
  Form1.tgMainPurchInvs.dbUpdate;
end;

On filters front I couldn't think of adding anything to existing one:

Invoice.DBCRvalue= "Purchase"

Hi EHW,

I did something using inv type DBCR value and it seems to be working excluding certain points I may have missed. However, I think it's bit messy. Most likely there is cleaner and simpler way to do it.

- Added "Convert to Purchase Invoice" btn (marked on properties as visible false) on frmInvoice under sale tab for changing DBCR value to Porvhase. Extra DBCR value field just for visual effect where I may hide actual DBCR field.  "Convert to Purchase Invoice" btn and additional filed with Clear btn visible only on edit of a sale inv
- Disabled  "Convert to Purchase Invoice" btn when sale inv with Cr (Refund) to be edited.
- It wasn't clearing customer details when purchase inv converted to sale then converted back to purchase and converting to sale inv again. So I added clear fields lines under invOnShow event

Please see the attached sample project:

Hi EHW,

Thank you very much for much more cleaner version.............................

I wanted prevent removing sale invoice with refund (Cr) using a message dialog as follows:

procedure Form1_btnSaleDelete_OnClick (Sender: string; var Cancel: boolean);
begin
If (Form1.tgMainSaleInvs.Cells[1,Form1.tgMainSaleInvs.SelectedRow] = '') and
   (MessageBox('Are you sure you want to remove the selected sale','Confirm',MB_YESNO+MB_ICONQUESTION) = IDYES) then
   Begin
   SqlExecute('Update Invoice Set DBCRValue = "Purchase", Counter1 = "", SIPrice = 0 Where id = ' + Form1.tgMainSaleInvs.sqlValue);
   Form1.tgMainPurchInvs.dbUpdate;
   Form1.tgMainSaleInvs.dbUpdate;
   Exit;
   End;

   If Form1.tgMainSaleInvs.Cells[1,Form1.tgMainSaleInvs.SelectedRow] = 'Cr' then
   begin
   Cancel := true;
   MessageDlg ('Sale Invoice with Refund cannot be removed.',mtInformation,MB_OK,0);
   end;
end;

It seems to be working but not so sure it's the correct way of doing it tho...