Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για την τοπική ρύθμιση γλώσσας Αγγλικά (en-gb).
Συμπτώματα
Δεν μπορείτε να εκτελέσετε την αναφορά αποθέματος έλαβε μη τιμολογημένη και της αναφοράς αποθέματος αποστολές μη τιμολογημένες εκ των υστέρων στην Ηνωμένο Βασίλειο έκδοση του Microsoft Dynamics NAV 2009.
Αυτό το ζήτημα παρουσιάζεται στα ακόλουθα προϊόντα:
-
Το Ηνωμένο Βασίλειο έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1
-
Το Ηνωμένο Βασίλειο έκδοση του Microsoft Dynamics NAV 2009 R2
Προτεινόμενη αντιμετώπιση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.
Πληροφορίες εγκατάστασης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Dynamics NAV έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει υπηρεσίες Microsoft Dynamics NAV εφαρμογών διακομιστή (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.
Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.
Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
-
Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.
-
Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για την 9015 Αναγνωριστικό αντικειμένου συστήματος
το αντικείμενο.
Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
-
Αλλαγή του κώδικα που περιλαμβάνεται το είδος δεδομένων αριθμό 1 το απόθεμα παραλαβής μη τιμολογημένη ποσότητα αναφοράς (10540) ως εξής:
Υπάρχοντα κώδικα...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Delete the following lines.
TotalSum1 := 0;
TotalSum2 := 0;
TotalSum3 := 0;
TotalSum4 := 0;
TotalSum5 := 0;
// End of the deleted lines.
// GB1004.end
END;
...Αντικατάσταση κώδικα
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Add the following lines.
ItemReceivedQtyTotal := 0;
ItemInvoicedQtyTotal := 0;
ItemCostAmtExpectedTotal := 0;
ValueCostAmtActualTotal := 0;
ValueInvoicedQtyTotal := 0;
// End of the added lines.
// GB1004.end
END;
... -
Αλλαγή τον κωδικό στις ενότητες δεδομένων στοιχείου στον αριθμό 1 το απόθεμα παραλαβής μη τιμολογημένη ποσότητα αναφοράς (10540) ως εξής:
Υπάρχοντα κωδικό 1...SourceExpr=USERID;
DataSetFieldName=USERID }
// Delete the following lines.
{ 1040092;TextBox ;15000;1692 ;150 ;423 ;Name=Sum1;
Visible=No;
ForeColor=65535;
SourceExpr=Sum1;
DataSetFieldName=Sum1 }
{ 1040094;TextBox ;15600;1692 ;150 ;423 ;Name=Sum5;
Visible=No;
ForeColor=65535;
SourceExpr=Sum5;
DataSetFieldName=Sum5 }
{ 1040095;TextBox ;15450;1692 ;150 ;423 ;Name=Sum4;
Visible=No;
ForeColor=65535;
SourceExpr=Sum4;
DataSetFieldName=Sum4 }
{ 1040096;TextBox ;15150;1692 ;150 ;423 ;Name=Sum2;
Visible=No;
ForeColor=65535;
SourceExpr=Sum2;
DataSetFieldName=Sum2 }
{ 1040097;TextBox ;15300;1692 ;150 ;423 ;Name=Sum3;
Visible=No;
ForeColor=65535;
SourceExpr=Sum3;
DataSetFieldName=Sum3 }
// End of the deleted lines.
}
}
...Αντικατάσταση κώδικα 1
...SourceExpr=USERID;
DataSetFieldName=USERID }
// Add the following lines.
{ 1040092;TextBox ;15000;1692 ;150 ;423 ;Name=ItemReceivedQty;
Visible=No;
ForeColor=65535;
SourceExpr=ItemReceivedQty;
DataSetFieldName=ItemReceivedQty }
{ 1040094;TextBox ;15600;1692 ;150 ;423 ;Name=ValueInvoicedQty;
Visible=No;
ForeColor=65535;
SourceExpr=ValueInvoicedQty;
DataSetFieldName=ValueInvoicedQty }
{ 1040095;TextBox ;15450;1692 ;150 ;423 ;Name=ValueCostAmtActual;
Visible=No;
ForeColor=65535;
SourceExpr=ValueCostAmtActual;
DataSetFieldName=ValueCostAmtActual }
{ 1040096;TextBox ;15150;1692 ;150 ;423 ;Name=ItemInvoicedQty;
Visible=No;
ForeColor=65535;
SourceExpr=ItemInvoicedQty;
DataSetFieldName=ItemInvoicedQty }
{ 1040097;TextBox ;15300;1692 ;150 ;423 ;Name=ItemCostAmtExpected;
Visible=No;
ForeColor=65535;
SourceExpr=ItemCostAmtExpected;
DataSetFieldName=ItemCostAmtExpected }
// End of the added lines.
}
}Υπάρχοντα κώδικα 2
...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;Αντικατάσταση κώδικα 2
...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 3
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 3
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κωδικό 4
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
{ 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 4
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
{ 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 5
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...Αντικατάσταση κώδικα 5
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...Υπάρχοντα κώδικα 6
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...Αντικατάσταση κώδικα 6
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...Υπάρχοντα κώδικα 7
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
...Αντικατάσταση κώδικα 7
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
...Υπάρχοντα κώδικα 8
...CaptionML=ENU=Total;
DataSetFieldName=TotalCaption }
// Delete the following lines.
{ 1040100;TextBox ;600 ;0 ;150 ;423 ;Name=TotalSum5;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum5;
DataSetFieldName=TotalSum5 }
{ 1040101;TextBox ;450 ;0 ;150 ;423 ;Name=TotalSum4;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum4;
DataSetFieldName=TotalSum4 }
{ 1040102;TextBox ;150 ;0 ;150 ;423 ;Name=TotalSum2;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum2;
DataSetFieldName=TotalSum2 }
{ 1040103;TextBox ;300 ;0 ;150 ;423 ;Name=TotalSum3;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum3;
DataSetFieldName=TotalSum3 }
{ 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=TotalSum1;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum1;
DataSetFieldName=TotalSum1 }
// End of the deleted lines.
}
}
...Αντικατάσταση κώδικα 8
...CaptionML=ENU=Total;
DataSetFieldName=TotalCaption }
// Add the following lines.
{ 1040100;TextBox ;600 ;0 ;150 ;423 ;Name=ValueInvoicedQtyTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ValueInvoicedQtyTotal;
DataSetFieldName=ValueInvoicedQtyTotal }
{ 1040101;TextBox ;450 ;0 ;150 ;423 ;Name=ValueCostAmtActualTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ValueCostAmtActualTotal;
DataSetFieldName=ValueCostAmtActualTotal }
{ 1040102;TextBox ;150 ;0 ;150 ;423 ;Name=ItemInvoicedQtyTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ItemInvoicedQtyTotal;
DataSetFieldName=ItemInvoicedQtyTotal }
{ 1040103;TextBox ;300 ;0 ;150 ;423 ;Name=ItemCostAmtExpectedTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ItemCostAmtExpectedTotal;
DataSetFieldName=ItemCostAmtExpectedTotal }
{ 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=ItemReceivedQtyTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ItemReceivedQtyTotal;
DataSetFieldName=ItemReceivedQtyTotal }
// End of the added lines.
}
} -
Αλλαγή του κώδικα που περιλαμβάνεται το είδος δεδομένων αριθμό 2 το απόθεμα παραλαβής μη τιμολογημένη ποσότητα αναφοράς (10540) ως εξής:
Υπάρχοντα κωδικό 1...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Delete the following lines.
WHERE(Completely Invoiced=CONST(No),
Entry Type=CONST(Purchase));
// End of the deleted lines.
OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
...Αντικατάσταση κώδικα 1
...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Add the following line.
WHERE(Entry Type=CONST(Purchase));
// End of the added line.
OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
...Υπάρχοντα κώδικα 2
...SETRANGE("Posting Date",0D,EndDate);
// GB1004.begin
// Delete the following lines.
Sum1 := 0;
Sum2 := 0;
Sum3 := 0;
Sum4 := 0;
Sum5 := 0;
// End of the deleted lines.
// GB1004.end
END;
...Αντικατάσταση κώδικα 2
...SETRANGE("Posting Date",0D,EndDate);
// GB1004.begin
// Add the following lines.
ItemReceivedQty := 0;
ItemInvoicedQty := 0;
ItemCostAmtExpected := 0;
ValueCostAmtActual := 0;
ValueInvoicedQty := 0;
// End of the added lines.
// GB1004.end
END;
...Υπάρχοντα κώδικα 3
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Delete the following lines.
Sum1 += Quantity;
Sum2 += "Invoiced Quantity";
Sum3 += "Cost Amount (Expected)";
TotalSum1 += Quantity;
TotalSum2 += "Invoiced Quantity";
TotalSum3 += "Cost Amount (Expected)";
// End of the deleted lines.
// GB1004.end
END;
...Αντικατάσταση κώδικα 3
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Add the following lines.
ItemReceivedQty += Quantity;
ItemInvoicedQty += "Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)";
ItemReceivedQtyTotal += Quantity;
ItemInvoicedQtyTotal += "Invoiced Quantity";
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
// End of the added lines.
// GB1004.end
END;
... -
Αλλαγή τον κωδικό στις ενότητες δεδομένων στοιχείου στον αριθμό 2 το απόθεμα παραλαβής μη τιμολογημένη ποσότητα αναφοράς (10540) ως εξής:
Υπάρχοντα κωδικό 1...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 1
...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 2
...{ 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
{ 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
...Αντικατάσταση κώδικα 2
...{ 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
{ 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
... -
Αλλαγή του κώδικα που περιλαμβάνεται το είδος δεδομένων αριθμό 3 το απόθεμα παραλαβής μη τιμολογημένη ποσότητα αναφοράς (10540) ως εξής:
Υπάρχοντα κωδικό 1...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
...Αντικατάσταση κώδικα 1
...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
// Add the following lines.
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
SETFILTER("Invoiced Quantity",'<>%1',0);
// End of the added lines.
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
...Υπάρχοντα κώδικα 2
...OnAfterGetRecord=BEGIN
// GB1004.begin
// Delete the following lines.
Sum4 += "Cost Amount (Actual)";
Sum5 += "Invoiced Quantity";
TotalSum4 += "Cost Amount (Actual)";
TotalSum5 += "Invoiced Quantity";
// End of the deleted lines.
// GB1004.end
END;
...Αντικατάσταση κώδικα 2
...OnAfterGetRecord=BEGIN
// GB1004.begin
// Add the following lines.
ValueCostAmtActual += "Cost Amount (Actual)";
ValueInvoicedQty += "Invoiced Quantity";
ValueCostAmtActualTotal += "Cost Amount (Actual)";
ValueInvoicedQtyTotal += "Invoiced Quantity";
// End of the added lines.
// GB1004.end
END;
... -
Αλλαγή τον κωδικό στις ενότητες δεδομένων στοιχείου στον αριθμό 4 το απόθεμα παραλαβής μη τιμολογημένη ποσότητα αναφοράς (10540) ως εξής:
Υπάρχοντα κωδικό 1...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 1
...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 2
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040082;TextBox ;5400 ;0 ;150 ;423 ;Name=ItemTotal.Number;
...Αντικατάσταση κώδικα 2
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040082;TextBox ;5400 ;0 ;150 ;423 ;Name=ItemTotal.Number;
... -
Αλλαγή τον κωδικό σε καθολικές μεταβλητές σε το απόθεμα έλαβε μη τιμολογημένη ποσότητα αναφοράς (10540) ως εξής:
Υπάρχοντα κωδικό 1...Text1040005@1040005 : TextConst 'ENU=Received not invoiced for item';
NoOfItems@1040006 : Integer;
// Delete the following lines.
Sum1@1040007 : Decimal;
Sum2@1040008 : Decimal;
Sum3@1040009 : Decimal;
Sum4@1040010 : Decimal;
Sum5@1040011 : Decimal;
TotalSum1@1040012 : Decimal;
TotalSum2@1040013 : Decimal;
TotalSum3@1040014 : Decimal;
TotalSum4@1040015 : Decimal;
TotalSum5@1040016 : Decimal;
// End of the deleted lines.
BEGIN
...Αντικατάσταση κώδικα 1
...Text1040005@1040005 : TextConst 'ENU=Received not invoiced for item';
NoOfItems@1040006 : Integer;
// Add the following lines.
ItemReceivedQty@1040007 : Decimal;
ItemInvoicedQty@1040008 : Decimal;
ItemCostAmtExpected@1040009 : Decimal;
ValueCostAmtActual@1040010 : Decimal;
ValueInvoicedQty@1040011 : Decimal;
ItemReceivedQtyTotal@1040012 : Decimal;
ItemInvoicedQtyTotal@1040013 : Decimal;
ItemCostAmtExpectedTotal@1040014 : Decimal;
ValueCostAmtActualTotal@1040015 : Decimal;
ValueInvoicedQtyTotal@1040016 : Decimal;
// End of the added lines.
BEGIN
...Υπάρχοντα κώδικα 2
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum1.Value) - Last(Fields!TotalSum2.Value)</Value>
// End of the deleted line.
<ZIndex>40</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 2
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQtyTotal.Value) - Last(Fields!ValueInvoicedQtyTotal.Value)</Value>
// End of the added line.
<ZIndex>40</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 3
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum3.Value) - Last(Fields!TotalSum4.Value)</Value>
// End of the deleted line.
<ZIndex>39</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 3
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpectedTotal.Value) - Last(Fields!ValueCostAmtActualTotal.Value)</Value>
// End of the added line.
<ZIndex>39</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 4
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum1.Value)</Value>
// End of the deleted line.
<ZIndex>38</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 4
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQtyTotal.Value)</Value>
// End of the added line.
<ZIndex>38</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 5
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum2.Value)</Value>
// End of the deleted line.
<ZIndex>37</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 5
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQtyTotal.Value)</Value>
// End of the added line.
<ZIndex>37</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 6
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum3.Value)</Value>
// End of the deleted line.
<ZIndex>36</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 6
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpectedTotal.Value)</Value>
// End of the added line.
<ZIndex>36</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 7
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value) - Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>13</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 7
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value) - Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>13</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 8
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value) - Last(Fields!Sum4.Value)</Value>
// End of the deleted line.
<ZIndex>12</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 8
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value) - Last(Fields!ValueCostAmtActual.Value)</Value>
// End of the added line.
<ZIndex>12</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 9
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value)</Value>
// End of the deleted line.
<ZIndex>11</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 9
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value)</Value>
// End of the added line.
<ZIndex>11</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 10
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>10</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 10
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>10</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 11
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value)</Value>
// End of the deleted line.
<ZIndex>9</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 11
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value)</Value>
// End of the added line.
<ZIndex>9</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 12
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value) - Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>21</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 12
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value) - Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>21</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 13
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value) - Last(Fields!Sum4.Value)</Value>
// End of the deleted line.
<ZIndex>20</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 13
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value) - Last(Fields!ValueCostAmtActual.Value)</Value>
// End of the added line.
<ZIndex>20</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 14
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value)</Value>
// End of the deleted line.
<ZIndex>19</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 14
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value)</Value>
// End of the added line.
<ZIndex>19</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 15
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>18</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 15
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>18</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 16
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value)</Value>
// End of the deleted line.
<ZIndex>17</ZIndex>
</Textbox>
...Αντικατάσταση κωδικού 16
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value)</Value>
// End of the added line.
<ZIndex>17</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 17
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value) - Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>30</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 17
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value) - Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>30</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 18
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value) - Last(Fields!Sum4.Value)</Value>
// End of the deleted line.
<ZIndex>29</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 18
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value) - Last(Fields!ValueCostAmtActual.Value)</Value>
// End of the added line.
<ZIndex>29</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 19
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value)</Value>
// End of the deleted line.
<ZIndex>28</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 19
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value)</Value>
// End of the added line.
<ZIndex>28</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 20
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>27</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 20
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>27</ZIndex>
</Textbox>
...Υπάρχοντα κώδικα 21
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value)</Value>
// End of the deleted line.
<ZIndex>26</ZIndex>
</Textbox>
...Αντικατάσταση κώδικα 21
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value)</Value>
// End of the added line.
<ZIndex>26</ZIndex>
</Textbox>
...Υπάρχοντα κωδικό 22
...<DataField>USERID</DataField>
</Field>
// Delete the following lines.
<Field Name="Sum1">
<DataField>Sum1</DataField>
</Field>
<Field Name="Sum1Format">
<DataField>Sum1Format</DataField>
</Field>
<Field Name="Sum5">
<DataField>Sum5</DataField>
</Field>
<Field Name="Sum5Format">
<DataField>Sum5Format</DataField>
</Field>
<Field Name="Sum4">
<DataField>Sum4</DataField>
</Field>
<Field Name="Sum4Format">
<DataField>Sum4Format</DataField>
</Field>
<Field Name="Sum2">
<DataField>Sum2</DataField>
</Field>
<Field Name="Sum2Format">
<DataField>Sum2Format</DataField>
</Field>
<Field Name="Sum3">
<DataField>Sum3</DataField>
</Field>
<Field Name="Sum3Format">
<DataField>Sum3Format</DataField>
// End of the deleted lines.
</Field>
<Field Name="Totals__Rec__not_invoiced_Caption">
...Αντικατάσταση κώδικα 22
...<DataField>USERID</DataField>
</Field>
// Add the following lines.
<Field Name="ItemReceivedQty">
<DataField>ItemReceivedQty</DataField>
</Field>
<Field Name="ItemReceivedQtyFormat">
<DataField>ItemReceivedQtyFormat</DataField>
</Field>
<Field Name="ValueInvoicedQty">
<DataField>ValueInvoicedQty</DataField>
</Field>
<Field Name="ValueInvoicedQtyFormat">
<DataField>ValueInvoicedQtyFormat</DataField>
</Field>
<Field Name="ValueCostAmtActual">
<DataField>ValueCostAmtActual</DataField>
</Field>
<Field Name="ValueCostAmtActualFormat">
<DataField>ValueCostAmtActualFormat</DataField>
</Field>
<Field Name="ItemInvoicedQty">
<DataField>ItemInvoicedQty</DataField>
</Field>
<Field Name="ItemInvoicedQtyFormat">
<DataField>ItemInvoicedQtyFormat</DataField>
</Field>
<Field Name="ItemCostAmtExpected">
<DataField>ItemCostAmtExpected</DataField>
</Field>
<Field Name="ItemCostAmtExpectedFormat">
<DataField>ItemCostAmtExpectedFormat</DataField>
// End of the added lines.
</Field>
<Field Name="Totals__Rec__not_invoiced_Caption">
...Υπάρχοντα κώδικα 23
...<DataField>TotalCaption</DataField>
</Field>
// Delete the following lines.
<Field Name="TotalSum5">
<DataField>TotalSum5</DataField>
</Field>
<Field Name="TotalSum5Format">
<DataField>TotalSum5Format</DataField>
</Field>
<Field Name="TotalSum4">
<DataField>TotalSum4</DataField>
</Field>
<Field Name="TotalSum4Format">
<DataField>TotalSum4Format</DataField>
</Field>
<Field Name="TotalSum2">
<DataField>TotalSum2</DataField>
</Field>
<Field Name="TotalSum2Format">
<DataField>TotalSum2Format</DataField>
</Field>
<Field Name="TotalSum3">
<DataField>TotalSum3</DataField>
</Field>
<Field Name="TotalSum3Format">
<DataField>TotalSum3Format</DataField>
</Field>
<Field Name="TotalSum1">
<DataField>TotalSum1</DataField>
</Field>
<Field Name="TotalSum1Format">
<DataField>TotalSum1Format</DataField>
// End of the deleted lines.
</Field>
<Field Name="Item_Ledger_Entry__Posting_Date_">
...Αντικατάσταση κώδικα 23
...<DataField>TotalCaption</DataField>
</Field>
// Add the following lines.
<Field Name="ValueInvoicedQtyTotal">
<DataField>ValueInvoicedQtyTotal</DataField>
</Field>
<Field Name="ValueInvoicedQtyTotalFormat">
<DataField>ValueInvoicedQtyTotalFormat</DataField>
</Field>
<Field Name="ValueCostAmtActualTotal">
<DataField>ValueCostAmtActualTotal</DataField>
</Field>
<Field Name="ValueCostAmtActualTotalFormat">
<DataField>ValueCostAmtActualTotalFormat</DataField>
</Field>
<Field Name="ItemInvoicedQtyTotal">
<DataField>ItemInvoicedQtyTotal</DataField>
</Field>
<Field Name="ItemInvoicedQtyTotalFormat">
<DataField>ItemInvoicedQtyTotalFormat</DataField>
</Field>
<Field Name="ItemCostAmtExpectedTotal">
<DataField>ItemCostAmtExpectedTotal</DataField>
</Field>
<Field Name="ItemCostAmtExpectedTotalFormat">
<DataField>ItemCostAmtExpectedTotalFormat</DataField>
</Field>
<Field Name="ItemReceivedQtyTotal">
<DataField>ItemReceivedQtyTotal</DataField>
</Field>
<Field Name="ItemReceivedQtyTotalFormat">
<DataField>ItemReceivedQtyTotalFormat</DataField>
// End of the added lines.
</Field>
<Field Name="Item_Ledger_Entry__Posting_Date_">
... -
Αλλαγή τον κωδικό στις ενότητες 1 αριθμός είδους δεδομένα στο την αποστολή υλικού μη τιμολογημένη ποσότητα αναφοράς (10541) ως εξής:
Υπάρχοντα κωδικό 1...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr=ItemQuantity;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 1
...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr=ItemShippedQty - ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 2
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQty;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 2
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 3
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following lines.
SourceExpr=ItemCostAmount;
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
{ 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the deleted lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity_ }
}Αντικατάσταση κώδικα 3
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following lines.
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
{ 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
SourceExpr=-"Value Entry"."Invoiced Quantity";
// End of the added lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity_ }
}Υπάρχοντα κωδικό 4
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr=ItemQuantityTotal;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...Αντικατάσταση κώδικα 4
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr=ItemShippedQtyTotal - ValueInvoicedQtyTotal;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...Υπάρχοντα κώδικα 5
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQtyTotal;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...Αντικατάσταση κώδικα 5
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQtyTotal;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...Υπάρχοντα κώδικα 6
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following lines.
SourceExpr=ItemCostAmountTotal;
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the deleted lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
{ 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
...Αντικατάσταση κώδικα 6
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following lines.
SourceExpr=ItemCostAmtExpectedTotal - ValueCostAmtActualTotal;
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
SourceExpr=-"Value Entry"."Invoiced Quantity";
// End of the added lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
{ 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
... -
Αλλαγή τον κωδικό σε δεδομένα είδος αριθμό 2 σε το απόθεμα Απεσταλμένη μη τιμολογημένη ποσότητα αναφοράς (10541) ως εξής:
Υπάρχοντα κωδικό 1...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Delete the following lines.
WHERE(Completely Invoiced=CONST(No),
Entry Type=CONST(Sale));
// End of the deleted lines.
OnPreDataItem=BEGIN
// GB0004.begin
...Αντικατάσταση κώδικα 1
...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Add the following line.
WHERE(Entry Type=CONST(Sale));
// End of the added line.
OnPreDataItem=BEGIN
// GB0004.begin
...Υπάρχοντα κώδικα 2
...// GB0004.end
// Delete the following line.
ItemQuantity := 0;
// End of the deleted line.
ItemCostAmount := 0;
ItemShippedQty := 0;
...Αντικατάσταση κώδικα 2
...// GB0004.end
ItemCostAmount := 0;
ItemShippedQty := 0;
...Υπάρχοντα κώδικα 3
...ItemInvoicedQty := 0;
ItemCostAmtExpected := 0;
END;
...Αντικατάσταση κώδικα 3
...ItemInvoicedQty := 0;
ItemCostAmtExpected := 0;
// Add the following lines.
ValueInvoicedQty := 0;
ValueCostAmtActual := 0;
// End of the added lines.
END;
...Υπάρχοντα κωδικό 4
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Delete the following lines.
ItemQuantity += Quantity - "Invoiced Quantity";
ItemCostAmount += "Cost Amount (Expected)";
ItemShippedQty += Quantity;
ItemInvoicedQty += "Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)";
ItemQuantityTotal += Quantity - "Invoiced Quantity";
ItemCostAmountTotal += "Cost Amount (Expected)";
ItemShippedQtyTotal += Quantity;
ItemInvoicedQtyTotal += "Invoiced Quantity";
// End of the deleted lines.
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
END;
...Αντικατάσταση κώδικα 4
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Add the following lines.
ItemCostAmount += "Cost Amount (Expected)";
ItemShippedQty += -Quantity;
ItemInvoicedQty += -"Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)";
ItemCostAmountTotal += "Cost Amount (Expected)";
ItemShippedQtyTotal += -Quantity;
ItemInvoicedQtyTotal += -"Invoiced Quantity";
// End of the added lines.
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
END;
... -
Αλλαγή τον κωδικό στις ενότητες 2 αριθμός είδους δεδομένα στο την αποστολή υλικού μη τιμολογημένη ποσότητα αναφοράς (10541) ως εξής:
Υπάρχοντα κωδικό 1...DataSetFieldName=Item_Ledger_Entry_Description }
{ 1040019;TextBox ;9150 ;0 ;1800 ;423 ;CaptionML=ENU=Shipped Quantity;
// Delete the following lines.
SourceExpr=Quantity;
DataSetFieldName=Item_Ledger_Entry_Quantity }
{ 1040021;TextBox ;11100;0 ;1800 ;423 ;SourceExpr="Invoiced Quantity";
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry__Invoiced_Quantity_ }
{ 1040023;TextBox ;1350 ;0 ;600 ;423 ;SourceExpr="Source Type";
...Αντικατάσταση κώδικα 1
...DataSetFieldName=Item_Ledger_Entry_Description }
{ 1040019;TextBox ;9150 ;0 ;1800 ;423 ;CaptionML=ENU=Shipped Quantity;
// Add the following lines.
SourceExpr=-Quantity;
DataSetFieldName=Item_Ledger_Entry_Quantity }
{ 1040021;TextBox ;11100;0 ;1800 ;423 ;CaptionML=ENU=Invoiced Quantity;
SourceExpr=-"Invoiced Quantity";
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry__Invoiced_Quantity_ }
{ 1040023;TextBox ;1350 ;0 ;600 ;423 ;SourceExpr="Source Type";
...Υπάρχοντα κώδικα 2
...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQty;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 2
...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 3
...{ 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr=ItemQuantity;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmount;
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
}
...Αντικατάσταση κώδικα 3
... { 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr=ItemShippedQty - ValueInvoicedQty;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
}
... -
Αλλαγή τον κωδικό σε δεδομένα είδος αριθμό 3 στο το απόθεμα Απεσταλμένη μη τιμολογημένη ποσότητα αναφοράς (10541) ως εξής:
Υπάρχοντα κώδικα...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
// Delete the following lines.
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
// End of the deleted lines.
DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
...Αντικατάσταση κώδικα
...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
// Add the following lines.
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
SETFILTER("Invoiced Quantity",'<>%1',0);
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
OnAfterGetRecord=BEGIN
ValueInvoicedQty += -"Invoiced Quantity";
ValueCostAmtActual += "Cost Amount (Actual)";
ValueInvoicedQtyTotal += -"Invoiced Quantity";
ValueCostAmtActualTotal += "Cost Amount (Actual)";
END;
// End of the added lines.
DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
... -
Αλλαγή τον κωδικό στις ενότητες 3 αριθμός είδους δεδομένα στο την αποστολή υλικού μη τιμολογημένη ποσότητα αναφοράς (10541) ως εξής:
Υπάρχοντα κώδικα...{ 1040043;TextBox ;6600 ;0 ;2250 ;423 ;SourceExpr=Description;
DataSetFieldName=Value_Entry_Description }
// Delete the following line.
{ 1040025;TextBox ;15000;0 ;1500 ;423 ;SourceExpr="Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Value_Entry__Invoiced_Quantity_ }
{ 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr="Cost Amount (Actual)";
...Αντικατάσταση κώδικα
...{ 1040043;TextBox ;6600 ;0 ;2250 ;423 ;SourceExpr=Description;
DataSetFieldName=Value_Entry_Description }
// Add the following lines.
{ 1040025;TextBox ;15000;0 ;1500 ;423 ;CaptionML=ENU=Invoiced Quantity;
SourceExpr=-"Invoiced Quantity";
// End of the added lines.
DataSetFieldName=Value_Entry__Invoiced_Quantity_ }
{ 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr="Cost Amount (Actual)";
... -
Αλλαγή τον κωδικό στις ενότητες 4 αριθμό στοιχείο δεδομένων με το απόθεμα Απεσταλμένη μη τιμολογημένη ποσότητα αναφοράς (10541) ως εξής:
Υπάρχοντα κωδικό 1...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQty;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 1
...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 2
...DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected___Control1040035 }
{ 1040036;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
{ 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
...Αντικατάσταση κώδικα 2
...DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected___Control1040035 }
{ 1040036;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=-"Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
{ 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
...Υπάρχοντα κώδικα 3
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr=ItemQuantity;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmount;
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040078;TextBox ;18000;423 ;150 ;423 ;Name=NoOfItems;
...Αντικατάσταση κώδικα 3
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr=ItemShippedQty - ValueInvoicedQty;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040078;TextBox ;18000;423 ;150 ;423 ;Name=NoOfItems;
... -
Αλλαγή τον κωδικό σε καθολικές μεταβλητές σε το απόθεμα Απεσταλμένη μη τιμολογημένη ποσότητα αναφοράς (10541) ως εξής:
Υπάρχοντα κωδικό 1...Text1040005@1040005 : TextConst 'ENU=Shipped not invoiced for item';
NoOfItems@1040006 : Integer;
// Delete the following line.
ItemQuantity@1040007 : Decimal;
// End of the deleted line.
ItemCostAmount@1040008 : Decimal;
ItemShippedQty@1040009 : Decimal;
...Αντικατάσταση κώδικα 1
...Text1040005@1040005 : TextConst 'ENU=Shipped not invoiced for item';
NoOfItems@1040006 : Integer;
ItemCostAmount@1040008 : Decimal;
ItemShippedQty@1040009 : Decimal;
...Υπάρχοντα κώδικα 2
...ItemInvoicedQty@1040010 : Decimal;
ItemCostAmtExpected@1040011 : Decimal;
// Delete the following line.
ItemQuantityTotal@1040012 : Decimal;
// End of the deleted line.
ItemCostAmountTotal@1040013 : Decimal;
ItemShippedQtyTotal@1040014 : Decimal;
...Αντικατάσταση κώδικα 2
...ItemInvoicedQty@1040010 : Decimal;
ItemCostAmtExpected@1040011 : Decimal;
// Add the following lines.
ValueInvoicedQty@1040017 : Decimal;
ValueCostAmtActual@1040018 : Decimal;
// End of the added lines.
ItemCostAmountTotal@1040013 : Decimal;
ItemShippedQtyTotal@1040014 : Decimal;
...Υπάρχοντα κώδικα 3
...ItemInvoicedQtyTotal@1040015 : Decimal;
ItemCostAmtExpectedTotal@1040016 : Decimal;
BEGIN
...Αντικατάσταση κώδικα 3
...ItemInvoicedQtyTotal@1040015 : Decimal;
ItemCostAmtExpectedTotal@1040016 : Decimal;
// Add the following lines.
ValueInvoicedQtyTotal@1040019 : Decimal;
ValueCostAmtActualTotal@1040020 : Decimal;
// End of the added lines.
BEGIN
...
Προϋποθέσεις
Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα, για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:
-
Το Ηνωμένο Βασίλειο έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1
-
Το Ηνωμένο Βασίλειο έκδοση του Microsoft Dynamics NAV 2009 R2
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης".