Var in Codeunit

guenther
Member Posts: 8
Hello,
sorry that I cannot speak english that good, so I will explain my problem in German. Maybe here's someone who speaks German.
Ich möchte in einem VK-Report die Daten aus "Item Ledger Entry" auslesen. Dabei filtere ich auf einen bestimmten Datumsbereich, den der User wählen kann.
Nun möchte ich zu jeder der aufgeführten Positionen den tatsächlichen Verkaufspreis haben (soweit ist es klar) und den zum Zeitpunkt der Fakturierung gültigen VK-Preis haben. Es existiert auch eine Codeunit, die diesen Preis bereits berechnet, sie sieht wie folgt aus (hier die Funktion):
____________________________________________________________
tmporder(VAR fromitem2 : TEMPORARY Record Item)
IF findprice = FALSE THEN
EXIT;
IF fromitem2.Blocked THEN
EXIT;
tmpsalesheader."Shipment Date" := WORKDATE;
tmpsalesheader.Status := tmpsalesheader.Status::Open;
tmpsalesheader."Document Date" := WORKDATE;
tmpsalesheader."Posting Date" := WORKDATE;
tmpsalesheader."Order Date" := WORKDATE;
tmpsalesline.SetSalesHeader(tmpsalesheader);
tmpsalesline."Line No." := tmpsalesline."Line No." + 10000;
tmpsalesline."Document Type" := tmpsalesheader."Document Type";
tmpsalesline."Document No." := tmpsalesheader."No.";
///tmpsalesline.VALIDATE(Type,tmpsalesline.Type::Item);
///tmpsalesline.VALIDATE("No.",fromitem2."No.");
//tmpsalesline.VALIDATE("Location Code",fromitem2."Location Filter");
///tmpsalesline.VALIDATE(Quantity,1);
// - WT1.00:07 ---
tmpsalesline."Responsibility Center" := tmpsalesheader."Responsibility Center";
// + WT1.00:07 +++
tmpsalesline."Location Code" := fromitem2."Location Filter"; //*
tmpsalesline."No." := fromitem2."No.";
tmpsalesline.Type := tmpsalesline.Type::Item; //*
tmpsalesline."Unit of Measure Code" := fromitem2."Base Unit of Measure";
tmpsalesline.Quantity := 1;
PriceCalcMgt.FindSalesLinePrice(tmpsalesheader,tmpsalesline,3);
fromitem2."Unit Price" := tmpsalesline."Unit Price";
fromitem2."Unit Cost" := tmpsalesline."Unit Cost";
fromitem2.tmpcbprice := tmpsalesline."CB-Price";
_________________________________________________________
Im Report möchte ich folgende Variable füllen "Unitprice". In den Item Ledger Entries habe ich ja theoretisch alle wichtigen Daten, ich weiss nur leider nicht, wie ich die Daten durch die Codeunit bearbeiten lassen kann.
Vielleicht kann mir da einer kurz unter die Arme greifen, wenn er eine Idee hat.
Vielen Dank,
Guenther
sorry that I cannot speak english that good, so I will explain my problem in German. Maybe here's someone who speaks German.
Ich möchte in einem VK-Report die Daten aus "Item Ledger Entry" auslesen. Dabei filtere ich auf einen bestimmten Datumsbereich, den der User wählen kann.
Nun möchte ich zu jeder der aufgeführten Positionen den tatsächlichen Verkaufspreis haben (soweit ist es klar) und den zum Zeitpunkt der Fakturierung gültigen VK-Preis haben. Es existiert auch eine Codeunit, die diesen Preis bereits berechnet, sie sieht wie folgt aus (hier die Funktion):
____________________________________________________________
tmporder(VAR fromitem2 : TEMPORARY Record Item)
IF findprice = FALSE THEN
EXIT;
IF fromitem2.Blocked THEN
EXIT;
tmpsalesheader."Shipment Date" := WORKDATE;
tmpsalesheader.Status := tmpsalesheader.Status::Open;
tmpsalesheader."Document Date" := WORKDATE;
tmpsalesheader."Posting Date" := WORKDATE;
tmpsalesheader."Order Date" := WORKDATE;
tmpsalesline.SetSalesHeader(tmpsalesheader);
tmpsalesline."Line No." := tmpsalesline."Line No." + 10000;
tmpsalesline."Document Type" := tmpsalesheader."Document Type";
tmpsalesline."Document No." := tmpsalesheader."No.";
///tmpsalesline.VALIDATE(Type,tmpsalesline.Type::Item);
///tmpsalesline.VALIDATE("No.",fromitem2."No.");
//tmpsalesline.VALIDATE("Location Code",fromitem2."Location Filter");
///tmpsalesline.VALIDATE(Quantity,1);
// - WT1.00:07 ---
tmpsalesline."Responsibility Center" := tmpsalesheader."Responsibility Center";
// + WT1.00:07 +++
tmpsalesline."Location Code" := fromitem2."Location Filter"; //*
tmpsalesline."No." := fromitem2."No.";
tmpsalesline.Type := tmpsalesline.Type::Item; //*
tmpsalesline."Unit of Measure Code" := fromitem2."Base Unit of Measure";
tmpsalesline.Quantity := 1;
PriceCalcMgt.FindSalesLinePrice(tmpsalesheader,tmpsalesline,3);
fromitem2."Unit Price" := tmpsalesline."Unit Price";
fromitem2."Unit Cost" := tmpsalesline."Unit Cost";
fromitem2.tmpcbprice := tmpsalesline."CB-Price";
_________________________________________________________
Im Report möchte ich folgende Variable füllen "Unitprice". In den Item Ledger Entries habe ich ja theoretisch alle wichtigen Daten, ich weiss nur leider nicht, wie ich die Daten durch die Codeunit bearbeiten lassen kann.
Vielleicht kann mir da einer kurz unter die Arme greifen, wenn er eine Idee hat.
Vielen Dank,
Guenther
MSDynamicsNAV 2009 Build 32012 Classic Client
MS SQL Server 2008
MS SQL Server 2008
0
Comments
-
I suggest that you post your question in a german speaking Navision Forum:
http://www.mbsonline.org/forum/forum.asp?FORUM_ID=13
or
http://mbs-support.info
I know that your Navision Installation is heavy modified for your business, because I know the comment lines "// - WT1.00:07 ---" and "// + WT1.00:07 +++" :whistle:Timo Lässer
Microsoft Dynamics NAV Developer since 1997
MSDynamics.de - German Microsoft Dynamics Community - member of [clip]0
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
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 320 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions