NAV4U
Main | My View | View Issues | help
  

Viewing Issue Simple Details [ Jump to Notes ] [ << ] [ >> ] [ View Advanced ] [ Issue History ] [ Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0000005 [Dynamics NAV 4SP3] Товары и склады minor always 23-05-2008 14:12 28-04-2009 16:20
Reporter apanko View Status public  
Assigned To apanko
Priority normal Resolution fixed  
Status resolved  
Summary 0000005: Акты оприходования / Акты списания при учете всегда изменяют номер документа
Description Не смотря на одинаковые серии, указанные в окне Товары настройка (для не учтенных и учтенных), при учете изменяются номера.
Additional Information
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0000006)
apanko (administrator)
23-05-2008 15:02
edited on: 23-05-2008 15:11

 Кодеюнит 12460 Item Doc.-Post Receipt.

Триггер OnRun
…
// Insert shipment header
ItemShptHeader.LOCKTABLE;
ItemShptHeader.INIT;
ItemShptHeader."Location Code" := "Location Code";
ItemShptHeader."Posting Date" := "Posting Date";
ItemShptHeader."Document Date" := "Document Date";
ItemShptHeader."Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
ItemShptHeader."Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
ItemShptHeader."Shipment No." := "No.";
ItemShptHeader."External Document No." := "External Document No.";
ItemShptHeader."Gen. Bus. Posting Group" := "Gen. Bus. Posting Group";
*ItemShptHeader."No. Series" := InvtSetup."Posted Item Shipment Nos.";
*ItemShptHeader."No." :=
* NoSeriesMgt.GetNextNo(
* InvtSetup."Posted Item Shipment Nos.","Posting Date",TRUE); //ссылка 1
ItemShptHeader."Posting Description" := "Posting Description";
ItemShptHeader.INSERT;
…


Вместо строк отмеченных звездочками нужно вставить примерно следующий код:

ItemShptHeader."No. Series" := "No. Series";
ItemShptHeader."Posting No. Series" := InvtSetup."Posted Item Shipment Nos.";
//серии номеров уже заполнены документе (см. триггер onInsert таблицы 12450)

IF "Posting No."='' THEN
  IF ItemShptHeader."Posting No. Series" =ItemShptHeader."No. Series" THEN
    ItemShptHeader."No.":="No."
  ELSE
    ItemShptHeader."No." :=NoSeriesMgt.GetNextNo(
      ItemShptHeader."Posting No. Series","Posting Date",TRUE)
ELSE
  ItemShptHeader."No." :="Posting No.";
  



Таблица 12450 Item Document Header

Триггер onRename
ERROR(Text003,TABLECAPTION);


Глобальная текстовая константа
Text003 = «Вы не можете переименовать %1.»




Примечание.
Модификации для Актов списания (товарных накладных) аналогичны и выполняются в кодеюните 12461 ItemDoc.-PostShipment.
(0000100)
apanko (administrator)
28-04-2009 16:20

 В версии 5.0 SP1 FP2 ошибка сохранена

- Issue History
Date Modified Username Field Change
23-05-2008 14:12 apanko New Issue
23-05-2008 14:20 apanko Status new => confirmed
23-05-2008 15:02 apanko Status confirmed => resolved
23-05-2008 15:02 apanko Resolution open => fixed
23-05-2008 15:02 apanko Assigned To => apanko
23-05-2008 15:02 apanko Note Added: 0000006
23-05-2008 15:10 apanko Note Edited: 0000006
23-05-2008 15:11 apanko Note Edited: 0000006
28-04-2009 16:20 apanko Note Added: 0000100

Copyright © 2000 - 2008 Mantis Group
Rambler Top100Powered by Mantis Bugtracker