ชนิดของเอกสารที่ไม่ถูกต้องเมื่อคุณนำเข้าแฟ้ม LSV DD ใน Microsoft Dynamics NAV 2009 รุ่นสวิส

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

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก 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 ของวัตถุ
  
  วัตถุ

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

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

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

เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนแปลงรหัสนี้ในตัวแปรส่วนกลางในโค้ดยูนิต LSVMgt (3010831) เป็นดังนี้:
   รหัสที่มีอยู่

   ...Text11500@1150080 : TextConst 'ENU=Could not find Transaction No. %1 in Debit Direct Order No. %2.';
         FileMgt@1150042 : Codeunit 419;
         FileSystemObject@1150081 : Automation "{420B2830-E718-11CF-893D-00A0C9054228} 1.0:{0D43FE01-F093-11CF-8940-00A0C9054228}:'Microsoft Scripting Runtime'.FileSystemObject";
   
       PROCEDURE ReleaseCustLedgEntries@1(_GenJnlLine@1150000 : Record 81);
       BEGIN
   ...
   

   รหัสแทน

   ...Text11500@1150080 : TextConst 'ENU=Could not find Transaction No. %1 in Debit Direct Order No. %2.';
         FileMgt@1150042 : Codeunit 419;
         FileSystemObject@1150081 : Automation "{420B2830-E718-11CF-893D-00A0C9054228} 1.0:{0D43FE01-F093-11CF-8940-00A0C9054228}:'Microsoft Scripting Runtime'.FileSystemObject";
   
   // Add the following line.
   IsCancellationExist@1150082 : Boolean;
   // End of the added line.
   
       PROCEDURE ReleaseCustLedgEntries@1(_GenJnlLine@1150000 : Record 81);
       BEGIN
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันImportDebitDirectFileในโค้ดยูนิต LSVMgt (3010831) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...FeeAmount := 0;
         TotalRecRecords := 0;
         TotalRecRecordsRev := 0;
   
         // Journal name for no serie
         GlBatchName.GET(ActGenJnlLine."Journal Template Name",ActGenJnlLine."Journal Batch Name");
   ...
   

   รหัสแทนที่ 1

   ...FeeAmount := 0;
         TotalRecRecords := 0;
         TotalRecRecordsRev := 0;
   
   // Add the following line.
   IsCancellationExist := FALSE;
   // End of the added line.
   
         // Journal name for no serie
         GlBatchName.GET(ActGenJnlLine."Journal Template Name",ActGenJnlLine."Journal Batch Name");
   ...
   

   รหัสที่มีอยู่ 2

   ...// Split File line into fields
   
   // Delete the following lines.
   FileID := COPYSTR(Line,1,3);
   IF FileID <> '036' THEN
   ERROR(Text049 + Text011);
   TA := COPYSTR(Line,36,2);
   IF NOT (TA = '97') THEN BEGIN
   TotalRecord := FALSE;
   EVALUATE(InvoiceAmt,COPYSTR(Line,54,13));
   EVALUATE(yyCR,COPYSTR(Line,4,2));
   EVALUATE(mmCR,COPYSTR(Line,6,2));
   EVALUATE(ddCR,COPYSTR(Line,8,2));
   IF yyCR > 98 THEN
   PostDate := DMY2DATE(ddCR,mmCR,1900 + yyCR)
   ELSE
   PostDate := DMY2DATE(ddCR,mmCR,2000 + yyCR);
   
   DebitDirectOrderNo := COPYSTR(Line,34,2);
   EVALUATE(DebitDirectRecordNo,COPYSTR(Line,38,6));
   EVALUATE(RejectionCode,COPYSTR(Line,543,2));
   Currency := COPYSTR(Line,51,3);
   
   // DEBIT DIRECT
   LsvJour.RESET;
   LsvJour.SETRANGE("Credit Date",PostDate);
   LsvJour.SETRANGE("DebitDirect Orderno.",DebitDirectOrderNo);
   IF NOT LsvJour.FIND('+') THEN
   ERROR(Text059,DebitDirectOrderNo,PostDate);
   
   LsvJournalLine.RESET;
   //CH0001.begin
   LsvJournalLine.SETCURRENTKEY("LSV Journal No.","Transaction No.");
   LsvJournalLine.SETRANGE("LSV Journal No.",LsvJour."No.");
   //LsvJournalLine.SETRANGE("Line No.",DebitDirectRecordNo);
   LsvJournalLine.SETRANGE("Transaction No.",DebitDirectRecordNo);
   //LsvJournalLine.FIND('-');
   IF NOT LsvJournalLine.FINDFIRST THEN BEGIN
   d.CLOSE;
   ERROR(Text11500, DebitDirectRecordNo, DebitDirectOrderNo);
   END;
   //CH0001.end
   InInvoiceNo := LsvJournalLine."Applies-to Doc. No.";
   // END DEBIT DIRECT
   
   // Process transaction of credit record
   CASE TA OF
   '81':  // Credit
   BEGIN
   Transaction := Transaction::Credit;
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Open;
   LsvJournalLine."DD Rejection Reason" := LsvJournalLine."DD Rejection Reason"::" ";
   LsvJournalLine.MODIFY;
   
   IF LSVSetup.READPERMISSION THEN BEGIN
   ClosedByESR(InInvoiceNo);
   END;
   END;
   '84':  // Cancellation "Storno"
   BEGIN
   IF RejectionCode <> 2 THEN
   Transaction := Transaction::Correction
   ELSE
   Transaction := Transaction::Cancellation;
   
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Rejected;
   LsvJournalLine."DD Rejection Reason" := RejectionCode;
   LsvJournalLine.MODIFY;
   END;
   ELSE
    ERROR(Text023 + Text011);
   END;
   END ELSE BEGIN
   TotalRecord := TRUE;
   EVALUATE(TempAmount,COPYSTR(Line,60,13));
   CreditAmount := CreditAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,82,13));
   RejectionAmount := RejectionAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,104,13));
   ReversalAmount := ReversalAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,120,11));
   FeeAmount := FeeAmount + TempAmount / 100;
   // Credit Count
   EVALUATE(TempAmount,COPYSTR(Line,54,6));
   TotalRecRecords := TotalRecRecords + TempAmount;
   // Rejection Count
   EVALUATE(TempAmount,COPYSTR(Line,76,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   // Reversal Count
   EVALUATE(TempAmount,COPYSTR(Line,98,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   END;
   // END OF SPLIT
   
   IF NOT (TotalRecord) AND (Transaction <> Transaction::Correction) THEN BEGIN
   // End of the deleted lines.
   
             // Insert GL line
             GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
   ...
   

   รหัสแทนที่ 2

   ...// Split File line into fields
   
   // Add the following lines.
   FileID := COPYSTR(Line,1,3);
   IF FileID <> '036' THEN
   ERROR(Text049 + Text011);
   TA := COPYSTR(Line,36,2);
   IF NOT (TA = '97') THEN BEGIN
   TotalRecord := FALSE;
   EVALUATE(InvoiceAmt,COPYSTR(Line,54,13));
   EVALUATE(yyCR,COPYSTR(Line,4,2));
   EVALUATE(mmCR,COPYSTR(Line,6,2));
   EVALUATE(ddCR,COPYSTR(Line,8,2));
   IF yyCR > 98 THEN
   PostDate := DMY2DATE(ddCR,mmCR,1900 + yyCR)
   ELSE
   PostDate := DMY2DATE(ddCR,mmCR,2000 + yyCR);
   
   DebitDirectOrderNo := COPYSTR(Line,34,2);
   EVALUATE(DebitDirectRecordNo,COPYSTR(Line,38,6));
   EVALUATE(RejectionCode,COPYSTR(Line,543,2));
   Currency := COPYSTR(Line,51,3);
   
   // DEBIT DIRECT
   LsvJour.RESET;
   LsvJour.SETRANGE("Credit Date",PostDate);
   LsvJour.SETRANGE("DebitDirect Orderno.",DebitDirectOrderNo);
   IF NOT LsvJour.FIND('+') THEN
   ERROR(Text059,DebitDirectOrderNo,PostDate);
   
   LsvJournalLine.RESET;
   //CH0001.begin
   LsvJournalLine.SETCURRENTKEY("LSV Journal No.","Transaction No.");
   LsvJournalLine.SETRANGE("LSV Journal No.",LsvJour."No.");
   //LsvJournalLine.SETRANGE("Line No.",DebitDirectRecordNo);
   LsvJournalLine.SETRANGE("Transaction No.",DebitDirectRecordNo);
   //LsvJournalLine.FIND('-');
   IF NOT LsvJournalLine.FINDFIRST THEN BEGIN
   d.CLOSE;
   ERROR(Text11500, DebitDirectRecordNo, DebitDirectOrderNo);
   END;
   //CH0001.end
   InInvoiceNo := LsvJournalLine."Applies-to Doc. No.";
   // END DEBIT DIRECT
   
   // Process transaction of credit record
   CASE TA OF
   '81':  // Credit
   BEGIN
   Transaction := Transaction::Credit;
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Open;
   LsvJournalLine."DD Rejection Reason" := LsvJournalLine."DD Rejection Reason"::" ";
   LsvJournalLine.MODIFY;
   
   IF LSVSetup.READPERMISSION THEN BEGIN
   ClosedByESR(InInvoiceNo);
   END;
   END;
   '84':  // Cancellation "Storno"
   BEGIN
   IF RejectionCode <> 2 THEN
   Transaction := Transaction::Correction
   ELSE
   Transaction := Transaction::Cancellation;
   
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Rejected;
   LsvJournalLine."DD Rejection Reason" := RejectionCode;
   LsvJournalLine.MODIFY;
   END;
   ELSE
   ERROR(Text023 + Text011);
   END;
   END ELSE BEGIN
   TotalRecord := TRUE;
   EVALUATE(TempAmount,COPYSTR(Line,60,13));
   CreditAmount := CreditAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,82,13));
   RejectionAmount := RejectionAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,104,13));
   ReversalAmount := ReversalAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,120,11));
   FeeAmount := FeeAmount + TempAmount / 100;
   // Credit Count
   EVALUATE(TempAmount,COPYSTR(Line,54,6));
   TotalRecRecords := TotalRecRecords + TempAmount;
   // Rejection Count
   EVALUATE(TempAmount,COPYSTR(Line,76,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   // Reversal Count
   EVALUATE(TempAmount,COPYSTR(Line,98,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   END;
   // END OF SPLIT
   
   IF NOT (TotalRecord) AND (Transaction <> Transaction::Correction) THEN BEGIN
   // End of the added lines.
   
             // Insert GL line
             GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
   ...
   

   รหัสที่มีอยู่ 3

   ...GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
             GenJournalLine."Journal Batch Name" := ActGenJnlLine."Journal Batch Name";
             LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   ...
   

   รหัสแทนที่ 3

   ... GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
             GenJournalLine."Journal Batch Name" := ActGenJnlLine."Journal Batch Name";
   
   // Add the following lines.
   GenJournalLine."Posting Date" := PostDate;
   GenJournalLine."Account Type" := GenJournalLine."Account Type"::Customer;
   
   IF Transaction = Transaction::Cancellation THEN BEGIN
   IsCancellationExist := TRUE;
   GenJournalLine."Document Type" := GenJournalLine."Document Type"::Refund;
   NextDocNo := NoSeriesMgt.GetNextNo(GlBatchName."No. Series",PostDate,FALSE);
   END ELSE
   GenJournalLine."Document Type" := GenJournalLine."Document Type"::Payment;
   
   // End of the added lines.     
   
   LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   ...
   

   รหัสที่มีอยู่ 4

   ...LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   
   // Delete the following lines.
   GenJournalLine."Posting Date" := PostDate;
   GenJournalLine."Account Type" := GenJournalLine."Account Type"::Customer;
   GenJournalLine."Document Type" := GenJournalLine."Document Type"::Payment;
   // End of the deleted lines.
   
             GeneralLedgerSetup.GET;
             IF GeneralLedgerSetup."LCY Code" <> Currency THEN
   ...
   

   รหัสแทนที่ 4

   ... LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   
   // Add the following lines.
   
   IF Transaction = Transaction::Cancellation THEN
   NextDocNo := NoSeriesMgt.GetNextNo(GlBatchName."No. Series",PostDate,FALSE);
   // End of the added lines.
   
             GeneralLedgerSetup.GET;
             IF GeneralLedgerSetup."LCY Code" <> Currency THEN
   ...
   

   รหัสที่มีอยู่ 5

   ... IF CustLedgerEntry.FIND('-') THEN
               GenJournalLine.VALIDATE("Account No.",CustLedgerEntry."Customer No.");
   
   // Delete the following lines.
   GenJournalLine."Applies-to Doc. Type" := GenJournalLine."Applies-to Doc. Type"::Invoice;
   GenJournalLine."Applies-to Doc. No." := InInvoiceNo;
   // End of the deleted lines.
   
             IF GenJournalLine."Currency Code" <> CustLedgerEntry."Currency Code" THEN
               GenJournalLine.VALIDATE("Currency Code",CustLedgerEntry."Currency Code");
   ...
   

   รหัสแทนที่ 5

   ... IF CustLedgerEntry.FIND('-') THEN
               GenJournalLine.VALIDATE("Account No.",CustLedgerEntry."Customer No.");
   
   // Add the following lines.
   IF Transaction <> Transaction::Cancellation THEN BEGIN
   GenJournalLine."Applies-to Doc. Type" := GenJournalLine."Applies-to Doc. Type"::Invoice;
   GenJournalLine."Applies-to Doc. No." := InInvoiceNo;
   END;
   // End of the added lines.
   
             IF GenJournalLine."Currency Code" <> CustLedgerEntry."Currency Code" THEN
               GenJournalLine.VALIDATE("Currency Code",CustLedgerEntry."Currency Code");
   ...
   

   รหัสที่มีอยู่ 6

   ...// *** Bal account per line or as combined entry
   
   // Delete the following line.
   IF MultiplePostingDates THEN BEGIN
   // End of the deleted line.
   
           // Bal Account per line
           IF GenJournalLine.FIND('-') THEN
             REPEAT
   ...
   

   รหัสแทน 6

   ...// *** Bal account per line or as combined entry
   
   // Add the following line.
   IF MultiplePostingDates OR IsCancellationExist THEN BEGIN
   // End of the added line.
   
           // Bal Account per line
           IF GenJournalLine.FIND('-') THEN
             REPEAT
   ...
   
   

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

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

• Microsoft Dynamics NAV 2009 R2 รุ่นสวิส

• SP1 2009 นำทางของ Dynamics Microsoft รุ่นสวิส

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

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