웨어하우스 엔트리가 모든 항목에 Microsoft Dynamics 탐색 2009의 작업 업무 일지에서 항목을 게시 하는 경우 작업 일지에 선을 추적으로 업데이트 되지 않는다

핫픽스 정보

지원 되는 핫픽스를 Microsoft에서 출시 되었습니다. 이 문서에 설명 되어 있는 문제를 해결 하기 위한 것일 뿐입니다. 이러한 특정 문제가 발생 한 시스템에만 적용 됩니다. 이 핫픽스는 추가 테스트가 필요할 수 있습니다. 따라서이 문제의 영향이 심각 하지 다음 Microsoft Dynamics 탐색 서비스 팩 또는이 핫픽스가 포함 된 다음 Microsoft Dynamics 탐색 버전까지 기다리는 것이 좋습니다.

참고: 특별 한 경우 일반적으로 호출 취소 될 수도 있습니다 경우 기술 지원 담당자는 Microsoft Dynamics 및 관련 된 제품에 대 한 지원에 따른 비용이 특정 업데이트로 문제를 해결할 수 있다고 결정 합니다. 추가 지원 질문과 특정 업데이트가 필요 하지 않은 문제에는 일반 지원 비용이 적용 됩니다.

코드 변경 사항

참고: 항상 테스트 코드 수정 제어 된 환경에 적용 하기 전에 프로덕션 컴퓨터에 수정 프로그램입니다.
이 문제를 해결 하려면 다음이 단계를 수행: 다음 지역 변수를 만듭니다.

1. (210), 작업 일지 선 표에 새 전역 변수를 추가 하 고 변수를 다음과 같이 지정 합니다.

   • 이름: WMSManagement

   • 데이터 형식: Codeunit

   • 하위 형식: WMS 관리 (7302)

2. Bin 코드 의 TableRelation 속성에 다음 코드는 작업 일지 선 테이블 (210) (5403) 필드를 삭제 합니다.

   Bin.Code WHERE (Location Code=FIELD(Location Code));

3. OnValidate 트리거 Bin 코드의 코드를 다음과 같이 작업 일지 선 테이블 (210) (5403) 필드를 변경 합니다.
   기존 코드

   ...// Delete the following lines.
   TESTFIELD("Location Code");
   CheckItemAvailable;
   // End of the lines.
   ...
   

   대체 코드

   ...// Add the following lines.
   TESTFIELD("Location Code");
   IF "Bin Code" <> '' THEN BEGIN
   GetLocation("Location Code");
   Location.TESTFIELD("Bin Mandatory");
   END;
   TESTFIELD(Type,Type::Item);
   CheckItemAvailable;
   WMSManagement.FindBinContent("Location Code","Bin Code","No.","Variant Code",'')
   // End of the lines.
   ...
   

4. Bin 번호- OnLookup triggerin (210), 작업 일지 선 테이블에서에서 새 로컬 변수를 추가 하 고 변수를 다음과 같이 지정 합니다.

   • 이름: BinCode

   • 데이터 형식: 코드

   • 길이: 20

5. Bin 번호- OnLookup 트리거 작업 일지 선 표에 (210)에 다음 코드를 추가 합니다.

   TESTFIELD("Location Code");TESTFIELD(Type,Type::Item);
   BinCode := WMSManagement.BinContentLookUp("Location Code","No.","Variant Code",'',"Bin Code");
   IF BinCode <> '' THEN
   VALIDATE("Bin Code",BinCode);
   

6. 웨어하우스 업무 일지 줄 (7311) 테이블에는 원본 문서 (25) 필드의 OptionString 속성의 값은 다음과 같이 변경
   OptionString=, S. 주문, 송장 S., S. 신용 메모, S. 반환 순서, P. 순서, P. 송장, P. 신용 메모, P. 반환 순서, Inb. 전송, Outb 전송 제품입니다. 사용 항목 Jnl입니다. 실제 Invt입니다. Jnl., Reclass Jnl., 소비 Jnl 합니다. 출력 Jnl., BOM Jnl, Serv 순서, 작업 Jnl.

7. 웨어하우스 업무 일지 줄 (7311) 테이블에서 (60) 참조 문서 필드의 OptionString 속성의 값은 다음과 같이 변경
   OptionString= , Rcpt., P. 청구 게시 게시, Rtrn. Rcpt., P. Cr. 메모, 운송, S. 청구, Rtrn. 배송, S. Cr. 메모, 수신 화, 화 배송을 게시 게시 게시 게시 게시 게시 게시 게시 항목 업무 일지, Prod., Put 떨어져, 선택, 이동, BOM 업무 일지, 작업 일지

8. 에서는 OptionString 웨어하우스 입력 테이블 (7312)에 원본 문서 (25) 필드의 값은 다음과 같이 변경
   OptionString=, S. 주문, 송장 S., S. 신용 메모, S. 반환 순서, P. 순서, P. 송장, P. 신용 메모, P. 반환 순서, Inb. 전송, Outb 전송 제품입니다. 사용 항목 Jnl입니다. 실제 Invt입니다. Jnl., Reclass Jnl., 소비 Jnl 합니다. 출력 Jnl., BOM Jnl, Serv. 순서, 작업 Jnl.

9. 아래에서는 OptionString 웨어하우스 입력 테이블 (7312) (60) 참조 문서 필드의 값을 변경 합니다.
   OptionString= , Rcpt., P. 청구 게시 게시, Rtrn. Rcpt., P. Cr. 메모, 운송, S. 청구, Rtrn. 배송, S. Cr. 메모, 수신 화, 화 배송을 게시 게시 게시 게시 게시 게시 게시 게시 항목 업무 일지, Prod., Put 떨어져, 선택, 이동, BOM 업무 일지, 작업 일지

10. 작업 일지 형태로 (201) (60) 위치 코드 컨트롤의 Visible 속성을 다음과 같이 변경 합니다.
    기존 코드

    Visible = Yes

    대체 코드

    Visible = No

11. 작업 일지 형태로 (201) Bin 코드 필드 사이 위치 코드 필드 및 해당 작업 유형 코드 필드를 추가 하 고 다음과 같이 필드를 지정 합니다.

    ...{ 61 ;Label ;0 ;0 ;0 ;0 ;ParentControl=60;
    InColumnHeading=Yes }
    
    // Add the following lines.
    { 102 ;TextBox ;35507;1650 ;1700 ;440 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Bin Code" }
    { 103 ;Label ;0 ;0 ;0 ;0 ;ParentControl=102;
    InColumnHeading=Yes }
    // End of the lines.
    
    { 48 ;TextBox ;11430;2530 ;1650 ;440 ;ParentControl=1;
    ...
    

12. 작업 Jnl.에서 새 전역 변수를 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

    • 이름: 위치

    • 데이터 형식: 레코드

    • 하위 형식: 위치 (14)

13. 작업 Jnl. 새 GetLocation 함수를 만들고-게시 줄 codeunit (1012) 다음과 같이:

    LOCAL PROCEDURE GetLocation@25(LocationCode@1000 : Code[10]);
    

14. 작업 Jnl. GetLocation 함수에 다음 코드를 추가-게시 줄 codeunit (1012).

    IF LocationCode = '' THENCLEAR(Location)
    ELSE
    IF Location.Code <> LocationCode THEN
    Location.GET(LocationCode);
    

15. 작업 Jnl. 새 PostWhseJnlLine 함수를 만들고-게시 줄 codeunit (1012) 다음과 같이:

    LOCAL PROCEDURE PostWhseJnlLine@24(ItemJnlLine@1000 : Record 83;OriginalQuantity@1001 : Decimal;OriginalQuantityBase@1002 : Decimal;VAR TempTrackingSpecification@1003 : TEMPORARY Record 336);

16. 다음 지역 변수 PostWhseJnlLine 함수에서 작업 Jnl. 만들기-게시 줄 codeunit (1012).

    1. 작업 Jnl. PostWhseJnlLine 함수에 로컬 변수를 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

       • 이름: WarehouseJournalLine

       • 데이터 형식: 레코드

       • 하위 형식: 웨어하우스 업무 일지 줄 (7311)

    2. 작업 Jnl. PostWhseJnlLine 함수에 로컬 변수를 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

       • 이름: TempWarehouseJournalLine

       • 데이터 형식: 임시 레코드

       • 하위 형식: 웨어하우스 업무 일지 줄 (7311)

    3. 작업 Jnl. PostWhseJnlLine 함수에 로컬 변수를 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

       • 이름: ItemTrackingManagement

       • 데이터 형식: Codeunit

       • 하위 형식: 항목 추적 관리 (6500)

    4. 작업 Jnl. PostWhseJnlLine 함수에 로컬 변수를 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

       • 이름: WMSManagement

       • 데이터 형식: Codeunit

       • 하위 형식: WMS 관리 (7302)

    5. 작업 Jnl. PostWhseJnlLine 함수에 로컬 변수를 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

       • 이름: WhseJnlRegisterLine

       • 데이터 형식: Codeunit

       • 하위 형식: Whse입니다. Jnl.-선 등록 (7301)

17. 작업 Jnl. PostWhseJnlLine 함수에 다음 코드를 추가-게시 줄 codeunit (1012) 다음과 같이:

    WITH ItemJnlLine DO BEGINIF "Entry Type" IN ["Entry Type"::Consumption,"Entry Type"::Output] THEN
    EXIT;
    Quantity := OriginalQuantity;
    "Quantity (Base)" := OriginalQuantityBase;
    GetLocation("Location Code");
    IF Location."Bin Mandatory" THEN
    IF WMSManagement.CreateWhseJnlLine(ItemJnlLine,0,WarehouseJournalLine,FALSE,FALSE) THEN BEGIN
    TempTrackingSpecification.MODIFYALL("Source Type",DATABASE::"Job Journal Line");
    ItemTrackingManagement.SplitWhseJnlLine(WarehouseJournalLine,TempWarehouseJournalLine,TempTrackingSpecification,FALSE);
    IF TempWarehouseJournalLine.FIND('-') THEN
    REPEAT
    WMSManagement.CheckWhseJnlLine(TempWarehouseJournalLine,1,0,FALSE);
    WhseJnlRegisterLine.RUN(TempWarehouseJournalLine);
    UNTIL TempWarehouseJournalLine.NEXT = 0;
    END;
    END;
    

18. 작업 Jnl. 코드 함수에 새 지역 변수 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

    • 이름: TempTrackingSpecification

    • 데이터 형식: 임시 레코드

    • 하위 형식: (336) 사양 관리

19. 작업 Jnl. 코드 함수에 새 지역 변수 추가-게시 줄 codeunit (1012) 변수를 다음과 같이 지정 합니다.

    • 이름: ItemJnlLine2

    • 데이터 형식: 레코드

    • 하위 형식: 항목 업무 일지 줄 (83)

20. 작업 Jnl. 코드 함수에 코드를 변경-게시 줄 codeunit (1012) 다음과 같습니다:
    기존 코드 1

    ...ItemJnlLine.INIT;
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    
    

    대체 코드 1

    ...ItemJnlLine.INIT;
    
    // Add the following line.
    ItemJnlLine."Line No." := "Line No.";
    
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    

    기존 코드 2

    ...ItemLedgEntry.LOCKTABLE;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    END;
    ...
    

    대체 코드 2

    ...ItemLedgEntry.LOCKTABLE;
    
    // Add the following line.
    ItemJnlLine2 := ItemJnlLine;
    
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    
    // Add the following lines.
    ItemJnlPostLine.CollectTrackingSpecification(TempTrackingSpecification);
    PostWhseJnlLine(ItemJnlLine2,ItemJnlLine2.Quantity,ItemJnlLine2."Quantity (Base)",TempTrackingSpecification);
    // End of the lines.
    ...
    

21. Whse에서 GetSourceDocument 함수에서 매개 변수 참조 문서 OptionString 속성의 값을 변경 합니다. 다음과 같은 관리 codeunit (5775).
    OptionString=, S. 주문, 송장 S., S. 신용 메모, S. 반환 순서, P. 순서, P. 송장, P. 신용 메모, P. 반환 순서, Inb. 전송, Outb 전송 제품입니다. 사용 항목 Jnl입니다. 실제 Invt입니다. Jnl., Reclass Jnl., 소비 Jnl 합니다. 출력 Jnl., BOM Jnl, Serv. 순서, 작업 Jnl.

22. Whse에서 GetSourceDocument 함수에서 코드를 변경 합니다. 다음과 같이 관리 codeunit (5775).
    기존 코드

    ...EXIT;
    END;
    END;
    ERROR(Text000);
    ...
    

    대체 코드

    ...EXIT;
    END;
    
    // Add the following lines.
    DATABASE::"Job Journal Line":
    BEGIN 
    SourceDocument := SourceDocument::"Job Jnl.";
    EXIT;
    END;
    // End of the lines.
    
    END;
    ERROR(Text000);
    ...
    

23. 다음과 같이 WMS 관리 codeunit (7302) CreateWhseJnlLine 함수에서 코드를 변경 합니다.
    기존 코드

    ...WhseJnlLine."Source Line No." := "Line No.";
    END;
    WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Delete the following line.
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal";
    
    WhseJnlLine."Reference No." := "Document No.";
    ...
    

    대체 코드

    ...WhseJnlLine."Source Line No." := "Line No.";
    
    // Add the following lines.
    END ELSE
    IF "Job No." <> '' THEN BEGIN
    WhseJnlLine."Source Type" := DATABASE::"Job Journal Line";
    WhseJnlLine."Source Subtype" := ItemJnlTemplateType;
    WhseMgt.GetSourceDocument(WhseJnlLine."Source Document",WhseJnlLine."Source Type",WhseJnlLine."Source Subtype");
    WhseJnlLine."Source No." := "Document No.";
    WhseJnlLine."Source Line No." := "Line No.";
    // End of the lines.
    END;WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...ine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...