Applies ToDynamics NAV 2009

แม้เมื่อคุณไม่มีสิทธิ์ในการทำงานกับ Cartera ใน Microsoft Dynamics NAV 2009 รุ่นภาษาสเปน คุณสามารถใช้การชำระเงินและการเรียกเก็บเงินจากรายการบัญชีแยกประเภทลูกค้าหรือผู้จัดจำหน่าย ปัญหาคือ ว่า เมื่อคุณ "โดยไม่ มีสิทธิ์ของ Cartera" ใช้เอกสารเหล่านี้ (การชำระเงินและ bill) รายการยังคง "เปิด" ในเอกสารลูกหนี้ หรือเจ้าหนี้ของ Cartera ซึ่งทำให้ไม่สอดคล้องกันในฐานข้อมูล ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

  • Microsoft Dynamics NAV 2009 R2 รุ่นภาษาสเปน

  • SP1 2009 นำทางของ Dynamics Microsoft รุ่นภาษาสเปน

การแก้ปัญหา

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง

ข้อมูลการติดตั้ง

Microsoft ให้ตัวอย่างการเขียนโปรแกรมไว้สำหรับประกอบการอธิบายเท่านั้นโดยไม่มีการรับประกันไม่ว่าจะโดยชัดแจ้งหรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายเกี่ยวกับหน้าที่การใช้งานของกระบวนการเฉพาะ อย่างไรก็ตาม จะไม่แก้ไขตัวอย่างเหล่านี้เพื่อเพิ่มฟังก์ชัน หรือสร้างขั้นตอนเพื่อตอบสนองความต้องการเฉพาะของคุณหมายเหตุ ก่อนที่คุณติดตั้งโปรแกรมแก้ไขด่วนนี้ โปรดตรวจสอบว่า ผู้ใช้ไคลเอนต์ของ Microsoft Dynamics NAV ทั้งหมดเข้าสู่ระบบออกจากระบบ ข้อมูลนี้รวมถึงบริการ Microsoft Dynamics NAV แอพพลิเคชันเซิร์ฟเวอร์ (NAS) คุณควรไคลเอ็นต์เฉพาะผู้ใช้ที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้ คุณต้องมีสิทธิ์การใช้งานสำหรับนักพัฒนาเราขอแนะนำว่า บัญชีผู้ใช้ ในหน้าต่างล็อกอินของ Windows หรือ ในหน้าต่างล็อกอินฐานข้อมูลสามารถกำหนดรหัสการเข้าถึงข้อมูล "ขั้นสูง" ถ้าบัญชีผู้ใช้ไม่สามารถกำหนดรหัสการบทบาท "SUPER" คุณต้องตรวจสอบว่า บัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:

  • สิทธิ์การปรับเปลี่ยนสำหรับออปเจ็กต์ที่คุณจะสามารถเปลี่ยน

  • สิทธิ์ในการดำเนินการ สำหรับออบเจ็กต์5210 รหัสวัตถุของระบบและระบบ 9015 ID ของวัตถุวัตถุ

หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล

การเปลี่ยนแปลงรหัส

หมายเหตุทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมเสมอก่อนที่คุณแก้ไขการนำไปใช้กับคอมพิวเตอร์ของคุณผลิต ก่อนที่จะใช้การเปลี่ยนแปลง โปรดนำเข้าปรับปรุง SEPA ทั้งหมดเมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

  1. เปลี่ยนรหัสใน Variablesin แบบสากลทั่วไปสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (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ฟังก์ชันในแบบทั่วไปงานสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (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.REPEATIF GenJnlApply.CheckAgainstApplnCurrency(NewCVLedgEntryBuf."Currency Code",OldCustLedgEntry."Currency Code",GenJnlLine."Account Type"::Customer,FALSE)THEN BEGINIF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THENApplyingDate := 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.REPEATCheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");IF GenJnlApply.CheckAgainstApplnCurrency(NewCVLedgEntryBuf."Currency Code",OldCustLedgEntry."Currency Code",GenJnlLine."Account Type"::Customer,FALSE)THEN BEGINIF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THENApplyingDate := 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ในแบบทั่วไปงานสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (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ในแบบทั่วไปงานสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (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ในแบบทั่วไปงานสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (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ในแบบทั่วไปงานสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (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');BEGINIF (DocumentSituation <> DocumentSituation::" ") AND (NOT AppManagement.AccessToCartera) THENERROR(Text1100013);END;// End of the added lines.     BEGIN      END.    }  }...

ข้อกำหนดเบื้องต้น

คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:

  • Microsoft Dynamics NAV 2009 R2 รุ่นภาษาสเปน

  • SP1 2009 นำทางของ Dynamics Microsoft รุ่นภาษาสเปน

ข้อมูลการเอาออก

คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้

สถานะ

Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"

หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

สํารวจสิทธิประโยชน์ของการสมัครใช้งาน เรียกดูหลักสูตรการฝึกอบรม เรียนรู้วิธีการรักษาความปลอดภัยอุปกรณ์ของคุณ และอื่นๆ

ชุมชนช่วยให้คุณถามและตอบคําถาม ให้คําติชม และรับฟังจากผู้เชี่ยวชาญที่มีความรู้มากมาย