Herlabelen inkoopboekingen Facebook van Ierland naar VS

We liepen er tegen aan dat niet alle facturen van Facebook door dezelfde juridische entiteiten gestuurd werden. Deel komt vanuit Ierland en deel komt vanuit VS, maar alles was geboekt op Ierland.

Met het volgende script hebben we alle inkoopboekingen gecorrigeerd voor wat betreft leverancier en BTW-code:

--
-- Switch all invoices of Facebook from Ireland to Canada where applicable.
--
-- f096ec1d-742c-4363-ae0e-87198f0e7080 = Meta Platforms Ireland Limited
-- 436d33ff-3912-4c16-9300-1a502346fcbf = Meta Platforms, Inc.
--
begin
  set use-http-disk-cache@eol false;
  set use-http-memory-cache@eol false;
  for r
  in 
  ( select pey.Division
    ,      pey.EntryDate
    ,      pey.EntryId
    ,      pey.EntryNumber
    from   PurchaseEntries@eol pey
    where  pey.Division = 3907094
    and    pey.Supplier = to_guid('f096ec1d-742c-4363-ae0e-87198f0e7080')
    and    pey.Currency = 'CAD'
    order
    by     pey.EntryDate
  )
  loop
    dbms_output.put_line('Update ' || r.entrynumber || ' of ' || to_char(r.EntryDate, 'DD-MM-YYYY') || '.');
    update PurchaseEntries@eol
    set    Supplier = to_guid('436d33ff-3912-4c16-9300-1a502346fcbf')
    where  Currency = 'CAD'
    and    EntryId  = r.EntryId
    ;
    update PurchaseEntryLines@eol
    set    VATCode = '9'
    where  Division = r.Division
    and    EntryId  = r.EntryId
    and    VATCode  = '10'
    ;
  end loop;
end;