Dynamics AX Blog - Dynamics AX 2012 - Microsoft Dynamics AX (Axapta) - Seite 18

In den letzten Jahren, in denen ich mich fast hauptsächlich mit der Entwicklung im Umfeld von Microsoft Dynamics AX (vormals Axapta) beschäftigt habe, ist das eine oder andere Code-Fragment entstanden, von dem ich mir vorstellen könnte, daß es auch für andere AX-Entwickler ganz nützlich sein könnte. Aber auch Tips und Tricks zu dem mächtigen ERP-System werde ich in dieser Kategorie präsentieren.
RSS-Feed dieser Kategorie
RSS-Feed dieser Version
Palette per Code erstellenDer folgende Job zeigt, wie man eine Palette per Code erstellen kann und dabei die Palettennummer aus dem Nummernkreis zieht. Wichtig bei letzterem ist, die numberSeq.used() aufzurufen damit die gezogene Nummer auch als "verwendet" gekennzeichnet wird. static void howToUseNumberSeq(Args _args) { WMSPallet wmsPallet; NumberSeq numberSeq; #define.InventLocationId("12") #define.WMSLocationId("L01") ttsbegin; wmsPallet.clear(); wmsPallet.initValue(); wmsPallet.InventLocationId = #InventLocationId; wmsPallet.wmsLocationId = #WMSLocationId; numberSeq = WMSPallet::numberSeq(true,true); if (numberSeq) { wmsPallet.wmsPalletId = WMSPalletIdGenerate::newPalletIdFromNumberSeq(numberSeq); numberSeq.used(); } if(wmsPallet.validateWrite()) { wmsPallet.insert(); } else { throw error("@SYS96731"); } ttscommit; } |
Erfassungen für Preis-/Rabattvereinbarungen per Code buchen/prüfenDie nächsten Zeilen Code zeigen exemplarisch, wie man Erfassungen für Preis-/Rabattvereinbarungen - oft auch als Preisjournale bezeichnet - per Code prüfen oder buchen kann. static void checkOrPostPriceDiscJournal(Args _args) { PriceDiscAdmCheckPost priceDiscAdmCheckPost; PriceDiscAdmTable priceDiscAdmTable; PriceDiscJournalNum priceDiscJournalNum = "PDJ-00014"; priceDiscAdmTable = PriceDiscAdmTable::find(priceDiscJournalNum); if (priceDiscAdmTable.Posted) { throw error("@SYS21497"); } priceDiscAdmCheckPost = new PriceDiscAdmCheckPost(true); // true = Checkonly, false = Post priceDiscAdmCheckPost.initJournalNum(priceDiscJournalNum); priceDiscAdmCheckPost.run(); } |
Kommissionierliste eines Produktionsauftrages erstellenDer folgende Job erstellt eine Kommissionierliste für einen Produktionsauftrag. static void createPickingList(Args _args) { ProdJournalCreateBOM prodJournalCreateBOM; prodJournalCreateBOM = ProdJournalCreateBOM::construct(); prodJournalCreateBOM.parmProdId('P000188'); prodJournalCreateBOM.parmJournalNameId(ProdJournalName::standardJournalName(ProdJournalType::Picklist, prodJournalCreateBOM.parmProdId())); prodJournalCreateBOM.parmTransDate(systemDateGet()); prodJournalCreateBOM.parmBOMAutoConsump(BOMAutoConsump::Never); prodJournalCreateBOM.parmProposalAsConsump(NoYes::No); prodJournalCreateBOM.parmQtyCalc(5); prodJournalCreateBOM.parmConsumpProposal(ProdBOMConsumpProposal::Qty); prodJournalCreateBOM.run(); }
Alternativ wenn der Journalkopf bereits existiert: static void createPickingList(Args _args) { ProdJournalCreateBOM prodJournalCreateBOM; prodJournalCreateBOM = ProdJournalCreateBOM::construct(); prodJournalCreateBOM.parmProdId('P000188'); prodJournalCreateBOM.parmJournalId('00926'); // Bei bestehendem Journalkopf prodJournalCreateBOM.parmTransDate(systemDateGet()); prodJournalCreateBOM.parmBOMAutoConsump(BOMAutoConsump::Never); prodJournalCreateBOM.parmProposalAsConsump(NoYes::No); prodJournalCreateBOM.parmQtyCalc(11); prodJournalCreateBOM.parmConsumpProposal(ProdBOMConsumpProposal::Qty); prodJournalCreateBOM.run(); } |
Produktionsauftrag für eine Auftragsposition erstellenWenn man einen Produktionsauftrag für eine Auftragsposition erstellen möchte, kann der folgende Job eine Idee liefern, wie man das machen kann. static void createProdTableForSalesLine(Args _args) { SalesLine salesLine = SalesLine::findInventTransId('011748'); ProdTable prodTable; prodTable.initValue(); prodTable.initFromCaller(salesLine); prodTable.insert(); } |
Produktionsauftrag per Code beendenDynamics AX stellt ein Framework zur Verfügung, mit dessen Hilfe man Produktionsaufträge in einen bestimmten Status überführen kann. Im Beispiel wird ein Produktionsauftrag beendet. Wenn man mehrere Aufträge gleichzeitig aktualisieren möchte, muss man die Methode ProdMultiHistoricalCost.insert() einfach entsprechend oft aufrufen und den jeweiligen Datensatz der ProdTable übergeben. static void prodEnd(Args _args) { ProdTable prodTable; ProdMultiHistoricalCost prodMultiHistoricalCost; prodTable = ProdTable::find("P000195"); prodMultiHistoricalCost = ProdMultiHistoricalCost::construct(new Args()); RunBaseMultiParm::initParm(prodMultiHistoricalCost); prodMultiHistoricalCost.insert(prodTable, prodMultiHistoricalCost.defaultParmBuffer()); prodMultiHistoricalCost.run(); } |
(Liefer-)Adresse einer Partei ermittelnDer hier vorgestellt Job ermittelt die Lieferadresse eines Debitoren. Dabei wird die zuerst gefundene (sollte der Debitor mehrere Lieferadressen haben) über das Infolog ausgegeben. Statt einem Debitoren kann natürlich jede andere Entität, die im Globalen Adressbuch gespeichert ist (Kreditoren, Personen, ...), abgefragt werden. static void getAddressFromParty(Args _args) { CustTable custTable = CustTable::find('US-003'); Addressing addressing; // Get (first found) delivery address (denormalized) addressing = DirParty::getPostalAddressByType(custTable.Party, LogisticsLocationRoleType::Delivery); info(addressing); } Auf diese Art & Weise lassen sich natürlich auch andere Adressen ermitteln, im Beispiel die Zahlungsadresse: static void getAddressFromParty(Args _args) { CustTable custTable = CustTable::find('US-003'); Addressing addressing; // Get (first found) payment address addressing = DirParty::getPostalAddressByType(custTable.Party, LogisticsLocationRoleType::Payment); info(addressing); } |
|
|
|
|
|
|
Der hier vorgestellte Job gibt über das Infolog alle Tabellen aus, bei welchen eine bestimmte Eigenschaft - im Beispiel wird die Property ModifiedBy abgefragt -
einen bestimmten Wert aufweist.
Im Makro #Properties findet man alle weiteren möglichen Properties von AOT-Objekten, wodurch man den Job auch für Abfragen anderer Eigenschaften einsetzen kann.
{
TreeNode treeNodeTables;
TreeNode treeNode;
str prop;
str properties;
#aot
#Properties;
treeNodeTables = TreeNode::findNode(#TablesPath + #AOTRootPath);
treeNodeTables = treeNodeTables.AOTfirstChild();
while(treeNodeTables)
{
properties = treeNodeTables.AOTgetProperties();
prop = Global::findProperty(properties,#PropertyModifiedBy);
if(prop == "yes")
{
info(treeNodeTables.AOTname());
}
treeNodeTables = treeNodeTables.AOTnextSibling();
}
}