|
<< Kliknij, aby wyświetlić spis treści >> Nawigacja: »brak tematów« Chwilowe odpinanie kosztów od faktury zakupowej |
Jeżeli musimy zdjąć zatwierdzenie z faktury zakupowej obciążonej kosztami to chwilowo należy odpiąć związane z nią koszty.
execute block (
NUMBER_STR TDOC_NUMBER = :NUMBER_STR)
returns (
LOC_ID_INVOICE_STOCK TREC_ID)
as
begin
select INVS.ID_INVOICE_STOCK
from INVOICE_STOCK INVS
where INVS.NUMBER_STR = :NUMBER_STR
into :LOC_ID_INVOICE_STOCK;
if (:LOC_ID_INVOICE_STOCK is not null) then
begin
update COSTS C
set C.OBJECT_NAME = 'INVOICE_STOCK_XXX'
where C.OBJECT_NAME = 'INVOICE_STOCK' and
C.ID_OBJ = :LOC_ID_INVOICE_STOCK;
update COSTS_BURDEN CB
set CB.OBJECT_NAME = 'INVOICE_STOCK_XXX'
where CB.OBJECT_NAME = 'INVOICE_STOCK' and
CB.ID_OBJ = :LOC_ID_INVOICE_STOCK;
end
suspend;
end
Po zdjęciu zatwierdzenia, wykonaniu koniecznych modyfikacji i ponownym zatwierdzeniu koszty należy ponownie przypiąć.
execute block (
NUMBER_STR TDOC_NUMBER = :NUMBER_STR)
returns (
LOC_ID_INVOICE_STOCK TREC_ID)
as
begin
select INVS.ID_INVOICE_STOCK
from INVOICE_STOCK INVS
where INVS.NUMBER_STR = :NUMBER_STR
into :LOC_ID_INVOICE_STOCK;
if (:LOC_ID_INVOICE_STOCK is not null) then
begin
update COSTS C
set C.OBJECT_NAME = 'INVOICE_STOCK'
where C.OBJECT_NAME = 'INVOICE_STOCK_XXX' and
C.ID_OBJ = :LOC_ID_INVOICE_STOCK;
update COSTS_BURDEN CB
set CB.OBJECT_NAME = 'INVOICE_STOCK'
where CB.OBJECT_NAME = 'INVOICE_STOCK_XXX' and
CB.ID_OBJ = :LOC_ID_INVOICE_STOCK;
end
suspend;
end
Uwaga: wartość kosztów po zmianach w fakturze może się różnić!!!