Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.6K Microsoft Dynamics NAV
- 18.7K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 115 Navision DOS
- 854 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 615 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 305 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 993 SQL General
- 384 SQL Performance
- 34 SQL Tips & Tricks
- 34 Design Patterns (General & Best Practices)
- Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.7K General
- 1.1K General Chat
- 1.6K Website
- 79 Testing
- 1.2K Download section
- 23 How Tos section
- 260 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
BE Dynamics NAV 5.0 - Codeunit 12
jsinisa
Member Posts: 27
Hi all,
I need some help.
My colleagues in Belgium having problem with Payment Discount on Service. After Service Order is posted, in Customer Ledger they are getting value "Original Pmt. Disc. Possible" = 0 although "Payment Discount %" is not 0 and "Pmt. Discount Date" is correct posted.
Comparing CU12 from NAV5.0 W1 with CU12 from BE NAV 5.0 I have noticed that part of code calculating "Original Pmt. Disc. Possible" in function "PostCust" is completely missing:
In test DB I have added missing code in BE version of CU12. Posting of Service Order have correctly posted "Original Pmt. Disc. Possible" in Customer Ledger Entry.
I am not sure if that is locally changed by former NAV provider or is just like that in BE Dynamics NAV 5.0. There are no comments in code.
It would help me a lot if someone can post complete Code from CU12, function PostCust().
I need some help.
My colleagues in Belgium having problem with Payment Discount on Service. After Service Order is posted, in Customer Ledger they are getting value "Original Pmt. Disc. Possible" = 0 although "Payment Discount %" is not 0 and "Pmt. Discount Date" is correct posted.
Comparing CU12 from NAV5.0 W1 with CU12 from BE NAV 5.0 I have noticed that part of code calculating "Original Pmt. Disc. Possible" in function "PostCust" is completely missing:
IF "Amount (LCY)" <> 0 THEN BEGIN
IF GLSetup."Pmt. Disc. Excl. VAT" THEN
CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
ELSE
CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
ROUND(
CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
Currency."Amount Rounding Precision");
CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
END;
In test DB I have added missing code in BE version of CU12. Posting of Service Order have correctly posted "Original Pmt. Disc. Possible" in Customer Ledger Entry.
I am not sure if that is locally changed by former NAV provider or is just like that in BE Dynamics NAV 5.0. There are no comments in code.
It would help me a lot if someone can post complete Code from CU12, function PostCust().
0
Comments
It has been altered by our NAV partner; at least the parts between //gss and //gmi remarks have been added by them.
I do not know about other modifications.
PostCust() Name DataType Subtype Length CustLedgEntry Record Cust. Ledger Entry OldCustLedgEntry Record Cust. Ledger Entry CVLedgEntryBuf Record CV Ledger Entry Buffer DtldCVLedgEntryBuf Record Detailed CV Ledg. Entry Buffer DtldCustLedgEntry Record Detailed Cust. Ledg. Entry WITH GenJnlLine DO BEGIN IF Cust."No." <> "Account No." THEN Cust.GET("Account No."); Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE); IF "Posting Group" = '' THEN BEGIN Cust.TESTFIELD("Customer Posting Group"); "Posting Group" := Cust."Customer Posting Group"; END; CustPostingGr.GET("Posting Group"); CustPostingGr.TESTFIELD("Receivables Account"); DtldCustLedgEntry.LOCKTABLE; CustLedgEntry.LOCKTABLE; CustLedgEntry.INIT; CustLedgEntry."Customer No." := "Account No."; CustLedgEntry."Posting Date" := "Posting Date"; CustLedgEntry."Document Date" := "Document Date"; CustLedgEntry."Document Type" := "Document Type"; CustLedgEntry."Document No." := "Document No."; CustLedgEntry."External Document No." := "External Document No."; CustLedgEntry.Description := Description; CustLedgEntry."Currency Code" := "Currency Code"; CustLedgEntry."Sales (LCY)" := "Sales/Purch. (LCY)"; CustLedgEntry."Profit (LCY)" := "Profit (LCY)"; CustLedgEntry."Inv. Discount (LCY)" := "Inv. Discount (LCY)"; CustLedgEntry."Sell-to Customer No." := "Sell-to/Buy-from No."; CustLedgEntry."Customer Posting Group" := "Posting Group"; CustLedgEntry."Global Dimension 1 Code" := "Shortcut Dimension 1 Code"; CustLedgEntry."Global Dimension 2 Code" := "Shortcut Dimension 2 Code"; CustLedgEntry."Salesperson Code" := "Salespers./Purch. Code"; CustLedgEntry."Source Code" := "Source Code"; CustLedgEntry."On Hold" := "On Hold"; CustLedgEntry."Applies-to Doc. Type" := "Applies-to Doc. Type"; CustLedgEntry."Applies-to Doc. No." := "Applies-to Doc. No."; CustLedgEntry."Due Date" := "Due Date"; CustLedgEntry."Due Date (Liquidity)" := "Due Date"; // gmi - dvc CustLedgEntry."Pmt. Discount Date" := "Pmt. Discount Date"; CustLedgEntry."Applies-to ID" := "Applies-to ID"; CustLedgEntry."Journal Batch Name" := "Journal Batch Name"; CustLedgEntry."Reason Code" := "Reason Code"; CustLedgEntry."Entry No." := NextEntryNo; CustLedgEntry."Transaction No." := NextTransactionNo; CustLedgEntry."User ID" := USERID; CustLedgEntry."Bal. Account Type" := "Bal. Account Type"; CustLedgEntry."Bal. Account No." := "Bal. Account No."; CustLedgEntry."No. Series" := "Posting No. Series"; CustLedgEntry."IC Partner Code" := "IC Partner Code"; CustLedgEntry.Prepayment := Prepayment; CustLedgEntry."Journal Template Name" := "Journal Template Name"; // Gss 191007 CustLedgEntry."Job No." := "Job No."; CustLedgEntry."Job Description" := "Job Description"; CustLedgEntry."Job Task No." := "Job Task No."; CustLedgEntry."Progress State No." := "Progress State No."; CustLedgEntry.Sub := Sub; CustLedgEntry."Received intrest" := "Received intrest"; CustLedgEntry."Intrest invoiced" := "Intrest invoiced"; //gss IF NOT Cust."Block Payment Tolerance" AND ((CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::Invoice) OR (CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::"Credit Memo")) THEN BEGIN IF (CustLedgEntry."Pmt. Discount Date" <> 0D) AND (CustLedgEntry."Pmt. Discount Date" <> CustLedgEntry."Document Date") THEN CustLedgEntry."Pmt. Disc. Tolerance Date" := CALCDATE(GLSetup."Payment Discount Grace Period",CustLedgEntry."Pmt. Discount Date") ELSE CustLedgEntry."Pmt. Disc. Tolerance Date" := CustLedgEntry."Pmt. Discount Date"; IF CustLedgEntry."Currency Code" = '' THEN BEGIN IF (GLSetup."Max. Payment Tolerance Amount" < (ABS(GLSetup."Payment Tolerance %" / 100 * "Amount (LCY)"))) OR (GLSetup."Payment Tolerance %" = 0) THEN BEGIN IF (GLSetup."Max. Payment Tolerance Amount" = 0) AND (GLSetup."Payment Tolerance %" > 0) THEN CustLedgEntry."Max. Payment Tolerance" := ROUND(GLSetup."Payment Tolerance %" * "Amount (LCY)" / 100,GLSetup."Amount Rounding Precision") ELSE IF CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::"Credit Memo" THEN CustLedgEntry."Max. Payment Tolerance" := -GLSetup."Max. Payment Tolerance Amount" ELSE CustLedgEntry."Max. Payment Tolerance" := GLSetup."Max. Payment Tolerance Amount" END ELSE CustLedgEntry."Max. Payment Tolerance" := GLSetup."Payment Tolerance %" * "Amount (LCY)" / 100 END ELSE BEGIN IF (Currency."Max. Payment Tolerance Amount" < (ABS(Currency."Payment Tolerance %" / 100 * Amount))) OR (Currency."Payment Tolerance %" = 0) THEN BEGIN IF (Currency."Max. Payment Tolerance Amount" = 0) AND (Currency."Payment Tolerance %" > 0) THEN CustLedgEntry."Max. Payment Tolerance" := ROUND(Currency."Payment Tolerance %" * Amount / 100,Currency."Amount Rounding Precision") ELSE IF CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::"Credit Memo" THEN CustLedgEntry."Max. Payment Tolerance" := -Currency."Max. Payment Tolerance Amount" ELSE CustLedgEntry."Max. Payment Tolerance" := Currency."Max. Payment Tolerance Amount" END ELSE CustLedgEntry."Max. Payment Tolerance" := ROUND(Currency."Payment Tolerance %" * Amount / 100,Currency."Amount Rounding Precision"); END; IF ABS(CustLedgEntry."Max. Payment Tolerance") > ABS(Amount) THEN CustLedgEntry."Max. Payment Tolerance" := Amount; END; DtldCVLedgEntryBuf.DELETEALL; DtldCVLedgEntryBuf.INIT; DtldCVLedgEntryBuf."Cust. Ledger Entry No." := CustLedgEntry."Entry No."; DtldCVLedgEntryBuf."Entry Type" := DtldCVLedgEntryBuf."Entry Type"::"Initial Entry"; DtldCVLedgEntryBuf."Posting Date" := "Posting Date"; DtldCVLedgEntryBuf."Document Type" := "Document Type"; DtldCVLedgEntryBuf."Document No." := "Document No."; DtldCVLedgEntryBuf.Amount := Amount; DtldCVLedgEntryBuf."Amount (LCY)" := "Amount (LCY)"; DtldCVLedgEntryBuf."Additional-Currency Amount" := Amount; DtldCVLedgEntryBuf."Customer No." := "Account No."; DtldCVLedgEntryBuf."Currency Code" := "Currency Code"; DtldCVLedgEntryBuf."User ID" := USERID; DtldCVLedgEntryBuf."Initial Entry Due Date" := "Due Date"; DtldCVLedgEntryBuf."Initial Entry Global Dim. 1" := "Shortcut Dimension 1 Code"; DtldCVLedgEntryBuf."Initial Entry Global Dim. 2" := "Shortcut Dimension 2 Code"; DtldCVLedgEntryBuf."Initial Document Type" := "Document Type"; // gmi DtldCVLedgEntryBuf."Job No." := "Job No."; DtldCVLedgEntryBuf."Progress State No." := "Progress State No."; DtldCVLedgEntryBuf.Sub := Sub; DtldCVLedgEntryBuf."Received intrest" := "Received intrest"; DtldCVLedgEntryBuf."Intrest invoiced" := "Intrest invoiced"; // gmi TransferCustLedgEntry(CVLedgEntryBuf,CustLedgEntry,TRUE); InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE); CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0; CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0; IF "Currency Code" <> '' THEN BEGIN TESTFIELD("Currency Factor"); CVLedgEntryBuf."Original Currency Factor" := "Currency Factor" END ELSE CVLedgEntryBuf."Original Currency Factor" := 1; CVLedgEntryBuf."Adjusted Currency Factor" := CVLedgEntryBuf."Original Currency Factor"; IF "Amount (LCY)" <> 0 THEN BEGIN CVLedgEntryBuf."Original Pmt. Disc. Possible" := ROUND("Original Pmt. Disc. Possible",Currency."Amount Rounding Precision"); CVLedgEntryBuf."Org. Pmt. Disc. Possible (LCY)" := ROUND("Org. Pmt. Disc. Possible (LCY)"); CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible"; END; // Check the document no. IF "Recurring Method" = 0 THEN IF "Document Type" IN ["Document Type"::Invoice, "Document Type"::"Credit Memo", "Document Type"::"Finance Charge Memo", "Document Type"::Reminder] THEN BEGIN OldCustLedgEntry.RESET; IF NOT RECORDLEVELLOCKING THEN OldCustLedgEntry.SETCURRENTKEY("Document No."); OldCustLedgEntry.SETRANGE("Document No.",CVLedgEntryBuf."Document No."); OldCustLedgEntry.SETRANGE("Document Type",CVLedgEntryBuf."Document Type"); // moet weg voor import { IF NOT OldCustLedgEntry.ISEMPTY THEN // Moet terug op gezet worden !!! ERROR( Text001, "Document Type","Document No.");} IF SalesSetup."Ext. Doc. No. Mandatory" THEN IF "Document Type" IN ["Document Type"::Invoice, "Document Type"::"Credit Memo", "Document Type"::Payment, "Document Type"::Refund, "Document Type"::" "] THEN TESTFIELD("External Document No."); END; // Post the application ApplyCustLedgEntry( CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision"); // Post customer entry TransferCustLedgEntry(CVLedgEntryBuf,CustLedgEntry,FALSE); CustLedgEntry."Amount to Apply" := 0; CustLedgEntry."Applies-to Doc. No." := ''; CustLedgEntry.INSERT; DimMgt.MoveJnlLineDimToLedgEntryDim( TempJnlLineDim,DATABASE::"Cust. Ledger Entry",CustLedgEntry."Entry No."); // Post Dtld. customer entry PostDtldCustLedgEntries( GenJnlLine,DtldCVLedgEntryBuf,CustPostingGr,GLSetup,NextTransactionNo,TRUE); END;thank you,bit late