Удаление ошибочно созданных производственных заказов

[%Anton%]

Подскажите, что можно сделать:

Создан производственный заказ ошибочно, на него списали материал и работы. Т.к. списали ошибочно, все операции сторнировали отрицательными строками.
Хочется удалить из списка данный производственный заказ, но не знаю как. ???????????????????????????7
Такое ощущение, что через полшодика, таких кривых производственных заказов накопится достаточно много , посоветуте, что с ними можно сделать.

[Milk]

Лично я переписывал функции OutputExists, MatrOrCapConsumpExists в кодеюните 5407 - Prod. Order Status Management, чтобы в такого типа случаях заказ можно было завершить. А потом из завершенных уже можно удалять.

[%Anton%]

А завершаете их соответственно без фыхода продукции?
К сожалению порка не имею навыков переписывать функции

[Milk]

Да, завершаю без выхода. Без программирования, боюсь, вам от этих заказов не избавиться. Можете добавить в них признак, по которому фильтровать в формах, чтобы их хотя бы не видеть

[DA_NEAL]

Нехороший вариант но я писал функцию отмены потребления материалов. Для конкретного проекта с определенными настройками все работало. В принципе ничего сложного нет, но без серьезного опыта работы и набитых шишек на применении товарных операций я бы за такую реализацию не брался.

[DA_NEAL]

Примерно такой вот нужен код (сильно не бейте :-)). Фин. учет себестоимости должен быть по операциям.

DeleteConsumptionEntry(_ItemLedgEntryNo : BigInteger;_ShowMessage : Boolean)

ItemLedgEntry.RESET;
ItemLedgEntry.GET(_ItemLedgEntryNo);

IF ProdOrderLine.FINDFIRST THEN
REPEAT

ProdOrderLine."Cost is Adjusted" := FALSE;
ProdOrderLine.MODIFY;

Item.GET(ProdOrderLine."Item No.");
Item."Cost is Adjusted" := FALSE;
Item.MODIFY;

UNTIL ProdOrderLine.NEXT = 0;

ProdOrderLine.RESET;
ProdOrderLine.SETRANGE("Prod. Order No.",ItemLedgEntry."Prod. Order No.");


ItemApplEntry.RESET;
ItemApplEntry.SETRANGE("Item Ledger Entry No.",ItemLedgEntry."Entry No.");
IF ItemApplEntry.FINDFIRST THEN
REPEAT

AppliedFromItemLedgEntry.RESET;
IF AppliedFromItemLedgEntry.GET(ItemApplEntry."Inbound Item Entry No.") = TRUE THEN
BEGIN
AppliedFromItemLedgEntry."Remaining Quantity" := AppliedFromItemLedgEntry."Remaining Quantity" - ItemApplEntry.Quantity;
AppliedFromItemLedgEntry.Open := TRUE;
AppliedFromItemLedgEntry."Applied Entry to Adjust" := TRUE;
AppliedFromItemLedgEntry.MODIFY;
END;

ItemApplEntry.DELETE;
UNTIL ItemApplEntry.NEXT = 0;

LedgEntryDim.RESET;
LedgEntryDim.SETRANGE("Table ID",32);
LedgEntryDim.SETRANGE("Entry No.",ItemLedgEntry."Entry No.");
IF LedgEntryDim.FINDFIRST THEN
LedgEntryDim.DELETEALL;

ItemLedgEntry.DELETE;

ValueEntry.RESET;
ValueEntry.SETRANGE("Item Ledger Entry No.",_ItemLedgEntryNo);
IF ValueEntry.FINDFIRST THEN
REPEAT
GLEntry.RESET;
GLEntry.SETRANGE("Value Entry No.",ValueEntry."Entry No.");
IF GLEntry.FINDFIRST THEN
REPEAT

LedgEntryDim.RESET();
LedgEntryDim.SETRANGE("Table ID",17);
LedgEntryDim.SETRANGE("Entry No.",GLEntry."Entry No.");
IF LedgEntryDim.FINDFIRST THEN
LedgEntryDim.DELETEALL;

GLEntry.DELETE;
UNTIL GLEntry.NEXT = 0;

LedgEntryDim.RESET;
LedgEntryDim.SETRANGE("Table ID",5802);
LedgEntryDim.SETRANGE("Entry No.",ValueEntry."Entry No.");
IF LedgEntryDim.FINDFIRST THEN
LedgEntryDim.DELETEALL;

ValueEntry.DELETE;
UNTIL ValueEntry.NEXT = 0;



IF _ShowMessage THEN
MESSAGE('Изменено потребление в заказе ' + ProdOrderLine."Prod. Order No.");

[apanko]

Если все сторнировали (потребление материалов и производственных мощностей).

То попробуйте выпустить по этому заказу товар на вспомогательный склад, а потом спишите его.

Затем закройте заказ

Если все сторнировано правильно - себестоимость будет равна нулю и никак не повлияет на финансовый учет.

Обороты количественные - пройдут по другому складу - соотвественно материально-ответсвенное лицо/начальник цеха возражать не будут.



PS это не сработает, если для товара в поле Трассировка Заказа <> Нет.
Система не разрешит указать склад, отличный от указанного в производственном заказе.

[rov_imported]

Цитата:

Сообщение от DA_NEAL

Примерно такой вот нужен код (сильно не бейте :-)).

Сильно - не будем.

Цитата:

Сообщение от DA_NEAL

ItemApplEntry.RESET;
ItemApplEntry.SETRANGE("Item Ledger Entry No.",ItemLedgEntry."Entry No.");

А как же выбрать ключик для таблички применения? Ведь SETRANGE вы ставите по Тов. операция Но. - чай не первичный ключ то...

И здесь:

Цитата:

Сообщение от DA_NEAL

ValueEntry.RESET;
ValueEntry.SETRANGE("Item Ledger Entry No.",_ItemLedgEntryNo);

И здесь то же самое

Цитата:

Сообщение от DA_NEAL

GLEntry.RESET;
GLEntry.SETRANGE("Value Entry No.",ValueEntry."Entry No.");
IF GLEntry.FINDFIRST THEN

Неужели этот код быстро работает без выбора правильных ключей в трех самых объемных таблицах?

[DA_NEAL]

А кто говорил что он быстро работает ? Использовался этот код в единичных случаях, но в принципе проблем с быстродействием не было. А например на GLEntry в стандарте ключа по "Value Entry No." вообще нет, вот это место тормозило, но после создания ключа (даже без его выбора) проблеме снялась.

[%Anton%]

Спасибо всем за участие, посоветуюсь со своим программистом, может и действительно коды перепишет

[OntheJump]

Цитата:

Сообщение от rov

Сильно - не будем.


А как же выбрать ключик для таблички применения? Ведь SETRANGE вы ставите по Тов. операция Но. - чай не первичный ключ то...

И здесь:


И здесь то же самое

Если мне не изменяет память, замечание актульно только для нативной версии, в сиквельной оптимальный ключ sql выберет сам, думаю что у Да Нила sql версия