Microsoft Dynamics 탐색 2009에 잘못 된 G/L 입력-VAT 항목 링크가 존재

증상

수정 Microsoft Dynamics 탐색 2009 년에서 KB3036811 KB3001759 를 구현한 후 G/L 항목 적용 될 수 있습니다. 그러나 잘못 된 G/L 입력 가지-응용 프로그램에 게시 된 VAT 항목 링크. 이 문제를 해결 하려면 코드 변경 섹션의 단계를 따릅니다. 다음 제품에이 문제가 발생합니다.

Microsoft Dynamics 탐색 2009 R2
Microsoft Dynamics 탐색 2009 SP1

해결 방법

핫픽스 정보

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

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

설치 정보

Microsoft는 모든 보증, 그림에 대 한 묵시적인 보증. 이 포함 되지만 상품성 또는 특정 목적에의 적합성의 묵시적된 보증에 국한 되지는 않습니다. 이 문서는 작성 하 고 프로시저를 디버깅할 데 사용 되는 도구 및 여기서 설명 하는 프로그래밍 언어에 익숙한 가정 합니다. Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명할 수 있습니다. 그러나이 예제에서는 추가 기능을 제공 하거나 특정 요구 사항에 맞도록 프로시저를 구성 하려면 수정 하지 않습니다.

참고: 이 핫픽스를 설치 하기 전에 모든 Microsoft Dynamics 탐색 클라이언트 사용자가 시스템 로그를 확인 하십시오. Microsoft Dynamics 탐색 응용 프로그램 서버 (NAS) 서비스가 포함 됩니다. 이 핫픽스를 구현할 때 로그온 되어 있는 사용자만 클라이언트 수 있습니다.

이 핫픽스를 구현 하려면 개발자 라이센스가 있어야 합니다.

것을 권장 합니다 Windows 로그인 창이 나 데이터베이스 로그인 창에서 사용자 계정 "SUPER" 역할 ID를 할당할 수 사용자 계정 "SUPER" 역할 ID를 할당할 수 없습니다, 사용자 계정에 다음 권한이 있는지 확인 해야 합니다.

변경할 수 있는 개체에 대 한 수정 권한이 있습니다.
시스템 개체 ID 9015 및 시스템 개체 ID 5210 개체에 대 한 실행 권한

개체입니다.

참고: 데이터 복구를 수행 해야 할 경우가 아니면 데이터 저장소에 대 한 권한을 가질 필요가 없습니다.

코드 변경 사항

참고: 항상 테스트 코드 수정 제어 된 환경에 적용 하기 전에 프로덕션 컴퓨터에 수정 프로그램입니다.

이 문제를 해결하려면 다음과 같이 하십시오.

UnapplyCustLedgEntry 함수에 Gen. Jnl. 코드 변경-다음과 같이 게시 줄 codeunit (12).
기존 코드 1

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Delete the following lines.
VatBaseSum@1008 : ARRAY [2] OF Decimal;
EntryNoBegin@1025 : ARRAY [2] OF Integer;
// End of the deleted lines.

      i@1027 : Integer;
      TempVatEntryNo@1028 : Integer;
    BEGIN
...

대체 코드 1

...  NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Add the following lines.
VatBaseSum@1008 : ARRAY [3] OF Decimal;
EntryNoBegin@1025 : ARRAY [3] OF Integer;
// End of the added lines.

      i@1027 : Integer;
      TempVatEntryNo@1028 : Integer;
    BEGIN
...

기존 코드 2

... VATEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VATEntry2.INSERT;
              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

대체 코드 2

...VATEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VATEntry2.INSERT;

// Add the following lines.
IF VATEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry2);
END;
// End of the added lines.

              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

기존 코드 3

... IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF
                VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...

대체 코드 3

...IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF

// Add the followoing lines.
VATBaseSum[3] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.

                VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...

기존 코드 4

...END;
                  TempVatEntry := VATEntrySaved;
                UNTIL TempVatEntry.NEXT = 0;

// Delete the following line.
FOR i := 1 TO 2 DO BEGIN
// End of the deleted line.

                  VatBaseSum[i] := 0;
                  EntryNoBegin[i] := 0;
                END;
...

대체 코드 4

...END;
                  TempVatEntry := VATEntrySaved;
                UNTIL TempVatEntry.NEXT = 0;

// Add the following line.
FOR i := 1 TO 3 DO BEGIN
// End of the added line.

                  VatBaseSum[i] := 0;
                  EntryNoBegin[i] := 0;
                END;
...

기존 코드 5

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN
                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;
                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

대체 코드 5

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN

// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.

                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;

// Add the folloiwng lines.           
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.

EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

UnapplyVendLedgEntry 함수에 Gen. Jnl. 코드 변경-다음과 같이 게시 줄 codeunit (12).
기존 코드 1

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Delete the following lines.
VatBaseSum@1029 : ARRAY [2] OF Decimal;
EntryNoBegin@1028 : ARRAY [2] OF Integer;
// End of the deleted lines.

      i@1027 : Integer;
      TempVatEntryNo@1025 : Integer;
    BEGIN
...

대체 코드 1

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;
      V
// Add the following lines.
atBaseSum@1029 : ARRAY [3] OF Decimal;
EntryNoBegin@1028 : ARRAY [3] OF Integer;
// End of the added lines.

      i@1027 : Integer;
      TempVatEntryNo@1025 : Integer;
    BEGIN
...

기존 코드 2

...VatEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VatEntry2.INSERT;
              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

대체 코드 2

...VatEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VatEntry2.INSERT;

// Add the following lines.
IF VatEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VatEntry2);
END;
// End of the added lines.

              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

기존 코드 3

...  IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF
                VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...

대체 코드 3

...IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF

// Add the following lines.
VATBaseSum[3] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.

                VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...

기존 코드 4

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN
                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;
                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

대체 코드 4

... END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN

// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.

                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;

// Add the following lines.
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.

                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

InsertVatEntriesFromTemp 함수에 Gen. Jnl. 코드 변경-다음과 같이 게시 줄 codeunit (12).
기존 코드

... DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
          TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
      END;

// Delete the following line.
TempVatEntry.FINDSET;
// End of the deleted line.

      REPEAT
        VATEntry := TempVatEntry;
        VATEntry."Entry No." := NextVATEntryNo;
        VATEntry.INSERT;
        NextVATEntryNo := NextVATEntryNo + 1;
        IF VATEntry."Unrealized VAT Entry No." = 0 THEN
          GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
        TempVatEntry.DELETE;
        LinkedAmount := LinkedAmount + VATEntry.Base;
        Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
      UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...

대체 코드

...DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
          TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
      END;

// Add the following line.
IF TempVatEntry.FINDSET THEN
// End of the added line.

        REPEAT
          VATEntry := TempVatEntry;
          VATEntry."Entry No." := NextVATEntryNo;
          VATEntry.INSERT;
          NextVATEntryNo := NextVATEntryNo + 1;
          IF VATEntry."Unrealized VAT Entry No." = 0 THEN
            GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
          TempVatEntry.DELETE;
          LinkedAmount := LinkedAmount + VATEntry.Base;
          Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
        UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...

전제 조건

이 핫픽스를 적용 하려면 설치한 다음 제품 중 하나가 있어야 합니다.

Microsoft Dynamics 탐색 2009 R2
Microsoft Dynamics 탐색 2009 SP1

또한, KB3001759 및 KB3036811 가 설치 되어 있어야 합니다.

제거 정보

이 핫픽스를 제거할 수 없습니다.

상태

Microsoft는 이 문제가 '적용 대상' 섹션에 나열된 Microsoft 제품의 문제임을 확인했습니다.

참고: 이 문서는 Microsoft 지원 부서 내에서 직접 작성한 "빠른 게시" 문서입니다. 여기에 포함된 정보는 신흥 문제에 대한 응답으로 제공되었습니다. 신속히 사용할 수 있도록 작성되었으므로, 자료 입력 오류가 포함될 수 있으며 언제든지 예고없이 개정될 수 있습니다. 다른 고려 사항은 사용 약관을참조 하십시오.

Microsoft Dynamics 탐색 2009에 잘못 된 G/L 입력-VAT 항목 링크가 존재

증상

해결 방법

핫픽스 정보

설치 정보

코드 변경 사항

전제 조건

제거 정보

상태

도움이 더 필요하세요?

더 많은 옵션을 원하세요?

이 정보가 유용한가요?

의견 주셔서 감사합니다!