Cartera Microsoft Dynamics NAV 2009 年のスペイン語版の部品に適用するためのアクセス許可がない場合の矛盾

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

インストール情報

マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能について説明することができます。ただし、お客様固有の要件を満たすために、追加機能の提供またはプロシージャの作成のために、これらの例に変更を加えたりはしません。

注: この修正プログラムをインストールする前に、Microsoft Dynamics NAV のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Dynamics NAV アプリケーション サーバー (NAS) のサービスが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。

この修正プログラムを実装するには、開発者用のライセンスが必要です。

ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。

• 変更するオブジェクトの変更のアクセス許可。

• 実行のアクセス許可、システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015
  
  オブジェクトです。

注: データの修復を実行する必要があるない限り、データ ストアへの権限を持っている必要はありません。

コードの変更

注常にテスト コードの修正プログラムの制御された環境で、運用コンピューターに修正プログラムを適用する前にします。変更を適用するには、前に SEPA のすべての更新プログラムをインポートしてください。

この問題を解決するには、次の手順を実行します。

1. グローバルの Variablesin 内のコードを変更するには、Gen. Jnl。-次のように Post 行 Codeunit (12)。
   既存のコード
   

   ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
           Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr  en cuenta el IVA, ¨desea continuar?';
           Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
           AppliedAmountLCY2@1100053 : Decimal;
           AppliesToDocType@1100023 : Integer;
   
         PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
         BEGIN
           NewGLReg := GLReg;
         END;
   ... 
   

   置換用コード
   

   ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
           Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr  en cuenta el IVA, ¨desea continuar?';
           Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
           AppliedAmountLCY2@1100053 : Decimal;
           AppliesToDocType@1100023 : Integer;
   
   // Add the following line.
   Text1100013@1100026 : TextConst 'ENU=You do not have permissions to apply or unapply documents in the Cartera Module.';
   // End of the added line.
   
   
         PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
         BEGIN
           NewGLReg := GLReg;
         END;
   ...
   

2. ApplyCustLedgEntry内のコードを変更する関数で、Gen. Jnl。-次のように Post 行 Codeunit (12)。
   既存のコード 1
   

   ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
             OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
             OldCustLedgEntry.SETRANGE(Open,TRUE);
   
             OldCustLedgEntry.FINDFIRST;
             OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
             IF AppManagement.AccessToCartera THEN
               DocPost.CheckAppliedReceivableDoc(
                 OldCustLedgEntry,GenJnlLine."System-Created Entry");
   ...
   

   置換用コード 1
   

   ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
             OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
             OldCustLedgEntry.SETRANGE(Open,TRUE);
   
             OldCustLedgEntry.FINDFIRST;
   
   // Add the following line.
   CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
   // End of the added line.
   
             OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
             IF AppManagement.AccessToCartera THEN
               DocPost.CheckAppliedReceivableDoc(
                 OldCustLedgEntry,GenJnlLine."System-Created Entry");
   ...
   

   既存のコード 2

   ...// Check Cust Ledger Entry and add to Temp.
             IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
               OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
             IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN
   
   // Delete the following lines.
   REPEAT
   IF GenJnlApply.CheckAgainstApplnCurrency(
   NewCVLedgEntryBuf."Currency Code",
   OldCustLedgEntry."Currency Code",
   GenJnlLine."Account Type"::Customer,
   FALSE)
   THEN BEGIN
   IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
   ApplyingDate := OldCustLedgEntry."Posting Date";
   TempOldCustLedgEntry := OldCustLedgEntry;
   TempOldCustLedgEntry.INSERT;
   END;
   UNTIL OldCustLedgEntry.NEXT=0;
   // End of the deleted lines.
   
   
             TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);
   
             IF TempOldCustLedgEntry.FIND('-') THEN BEGIN
   ...
   

   置換用コード 2

   ...// Check Cust Ledger Entry and add to Temp.
             IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
               OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
             IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN
   
   // Add the following lines.
   REPEAT
   CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
   IF GenJnlApply.CheckAgainstApplnCurrency(
   NewCVLedgEntryBuf."Currency Code",
   OldCustLedgEntry."Currency Code",
   GenJnlLine."Account Type"::Customer,
   FALSE)
   THEN BEGIN
   IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
   ApplyingDate := OldCustLedgEntry."Posting Date";
   TempOldCustLedgEntry := OldCustLedgEntry;
   TempOldCustLedgEntry.INSERT;
   END;
   UNTIL OldCustLedgEntry.NEXT=0;
   // End of the added lines.
   
   
             TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);
   
             IF TempOldCustLedgEntry.FIND('-') THEN BEGIN...
   

3. UnapplyCustLedgEntry関数で、Gen. Jnl。 内のコードを変更する-次のように Post 行 Codeunit (12)。
   既存のコード

   ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
           DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
           UnapplyVATEntries := FALSE;
           DtldCustLedgEntry2.FINDSET;
           REPEAT
             DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
             IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
             THEN
   ...
   

   置換用コード

   ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
           DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
           UnapplyVATEntries := FALSE;
           DtldCustLedgEntry2.FINDSET;
           REPEAT
   
   // Add the following line.
   CheckCarteraAccessPermissions(DtldCustLedgEntry2."Document Situation");
   // End of the added line.
   
             DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
             IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
             THEN
   ...
   

4. ApplyVendLedgEntry関数で、Gen. Jnl。 内のコードを変更する-次のように Post 行 Codeunit (12)。
   既存のコード 1
   

   ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
             OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
             OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
             OldVendLedgEntry.SETRANGE(Open,TRUE);
             OldVendLedgEntry.FINDFIRST;
             OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
             IF AppManagement.AccessToCartera THEN
               DocPost.CheckAppliedPayableDoc(
               OldVendLedgEntry,GenJnlLine."System-Created Entry");
   ...
   

   置換用コード 1

   ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
             OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
             OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
             OldVendLedgEntry.SETRANGE(Open,TRUE);
             OldVendLedgEntry.FINDFIRST;
   
   // Add the following line.
   CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
   // End of the added line.
   
             OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
             IF AppManagement.AccessToCartera THEN
               DocPost.CheckAppliedPayableDoc(
               OldVendLedgEntry,GenJnlLine."System-Created Entry");
   ...
   

   既存のコード 2

   ...//Check and Move Ledger Entries to Temp
             IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
               OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
             IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
               REPEAT
                 IF GenJnlApply.CheckAgainstApplnCurrency(
                      NewCVLedgEntryBuf."Currency Code",
                      OldVendLedgEntry."Currency Code",
                      GenJnlLine."Account Type"::Vendor,
                      FALSE)
   ...
   

   置換用コード 2

   ...//Check and Move Ledger Entries to Temp
             IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
               OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
             IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
               REPEAT
   
   // Add the following line.
   CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
   // End of the added line.
   
                 IF GenJnlApply.CheckAgainstApplnCurrency(
                      NewCVLedgEntryBuf."Currency Code",
                      OldVendLedgEntry."Currency Code",
                      GenJnlLine."Account Type"::Vendor,
                      FALSE)
   ...
   

5. UnapplyVendLedgEntry関数で、Gen. Jnl。 内のコードを変更する-次のように Post 行 Codeunit (12)。
   既存のコード

   ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
           DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
           DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
           DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
           DtldVendLedgEntry2.FINDSET;
           UnapplyVATEntries := FALSE;
           REPEAT
             IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
   ...
   

   置換用コード

   ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
           DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
           DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
           DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
           DtldVendLedgEntry2.FINDSET;
   
   // Add the following line.
   CheckCarteraAccessPermissions(DtldVendLedgEntry2."Document Situation");
   // End of the added line.
   
           UnapplyVATEntries := FALSE;
           REPEAT
             IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
   ...
   

6. CheckCarteraAccessPermissions関数で、Gen. Jnl。 内のコードを変更する-次のように Post 行 Codeunit (12)。
   既存のコード

   ...CLEAR(GenJnlLine2);
   
           EXIT(IsOK);
         END;
   
         BEGIN
         END.
       }
     }
   ...
   

   置換用コード

   ...CLEAR(GenJnlLine2);
   
           EXIT(IsOK);
         END;
   
   // Add the following lines.
   LOCAL PROCEDURE CheckCarteraAccessPermissions@1100024(DocumentSituation@1170001 : ' ,Posted BG/PO,Closed BG/PO,BG/PO,Cartera,Closed Documents');
   BEGIN
   IF (DocumentSituation <> DocumentSituation::" ") AND (NOT AppManagement.AccessToCartera) THEN
   ERROR(Text1100013);
   END;
   
   // End of the added lines.
   
        BEGIN
         END.
       }
     }
   ...
   
   

必要条件

この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。

• Microsoft Dynamics NAV 2009 の R2 のスペイン語版

• Microsoft Dynamics NAV 2009 の SP1 のスペイン語版

アンインストール情報

この修正プログラムを削除することはできません。