Tanti Auguri!!!

Buone feste dalla "redazione" di Somari su AX! :)

Dimensioni inventariali - cambio magazzino

In questo breve post vedremo come manipolare le dimensioni inventariali. In particolare vedremo come cambiare il magazzino di un articolo da riga ordine cliente dal magazzino 'ML' al magazzino 'A'. Se apriamo la sales line, il magazino è indicato nel tab dimensione -> gruppo dimensioni inventariali -> magazzino

 

Per cambiare magazzino dobbiamo:

1. Prendere il codice attuale della dimensione inventariale
2. Modificare il magazzino
3. Ricalcolare il nuovo codice (o cercarlo se già esiste)
4. Riassegnare il nuovo codice alla riga d'ordine 

 static void InventLocationIdChange(Args _args)  
 {  
   InventDim  InventDimNew;  
   SalesLine  SalesLine;  
   ttsbegin;  
   select firstOnly forupdate SalesLine;  
   InventDimNew = SalesLine.inventDim();  
   InventDimNew.InventLocationId = 'A';  
   InventDimNew = InventDim::findOrCreate(InventDimNew);  
   SalesLine.InventDimId = InventDimNew.inventDimId;  
   SalesLine.update();  
   ttscommit;  
 }  

Se andiamo a riaprire la riga d'ordine, vediamo che il magazzino è stato modificato:

In modo analogo si possono cambiare tutti gli altri attributi delle dimensioni inventariali

AX 2009 - Number Sequence, premessa e sviluppo modulo custom

Le sequenza numerica è uno strumento molto utilizzato in quanto permette la creazione automatica di valori alfanumerici, sequenziali ed unici per specifici campi, ogni volta che quest'ultimi vengono inizializzati.

È possibile specificare la continuità o meno nelle sequenze generate. È anche possibile specificare il formato del numero definendone il formato (vedi "loadModule").

Se vogliamo dare vita ad una NumberSequence completamente custom, la prima cosa da creare e definire è l'Extended Data Type per tale sequenza, definendo il tipo (stringa), lunghezza e label. Consiglio anche la creazione di un nuovo enumerato di tipo "NumberSeqModule" (es. ExampleEnum) .

La classe di riferimento per le sequenze numeriche è la NumberSequenceReference, ed essa è estesa dalle varie sottoclassi che rappresentano i vari moduli (NumberSequenceReference_Customer, NumberSequenceReference_Ledger ecc. ecc.).

Come secondo passo, per la creazione di un modulo custom, è quindi necessario definire una classe (NumberSequenceReference_Custom) che estenda quella di riferimento e contenga i metodi in override "loadModule" e "numberSeqModule".

  Class NumberSeqReference_Custom extends NumberSeqReference   
  {   
  }   

Nel primo si specificano le caratteristiche della sequenza, il secondo deve restituire l'enumerato NumberSeqModule creato in precedenza.

  protected void loadModule()   
  {   
   NumberSequenceReference numRef;   
   ;    
   numRef.DataTypeId       = typeId2ExtendedTypeId(typeid(EDTCreato));   
   numRef.ReferenceHelp     = "Etichetta di help";   
   numRef.WizardContinuous    = true;  
   numRef.WizardManual      = NoYes::No;   
   numRef.WizardAllowChangeDown = NoYes::No;   
   numRef.WizardAllowChangeUp  = NoYes::No;  
   numRef.wizardHighest     = 99999999;   
   numRef.SortField       = 1;   
   this.create(numRef);   
  }   

 public static NumberSeqModule numberSeqModule()  
 {  
   return NumberSeqModule::ExampleEnum;  
 }  

Inoltre,bisogna modificare i metodi construct() e moduleList() nella classe NumberSeqReference stessa per aggiungere i riferimenti alla nuova classe-modulo creata.

  static public container moduleList()    
  {    
   container moduleList;    
   ;    
   moduleList += NumberSeqReference_Bank::numberSeqModule();    
   moduleList += NumberSeqReference_BOM::numberSeqModule();    
   moduleList += NumberSeqReference_Customer::numberSeqModule();    
   moduleList += NumberSeqReference_Document::numberSeqModule();    
   moduleList += NumberSeqReference_ForeignTrade::numberSeqModule();    
   moduleList += NumberSeqReference_General::numberSeqModule();    
   moduleList += NumberSeqReference_Inventory::numberSeqModule();    
   moduleList += NumberSeqReference_Ledger::numberSeqModule();    
   moduleList += NumberSeqReference_Location::numberSeqModule();    
   moduleList += NumberSeqReference_MasterPlanning::numberSeqModule();    
   moduleList += NumberSeqReference_Production::numberSeqModule();    
   moduleList += NumberSeqReference_Project::numberSeqModule();    
   moduleList += NumberSeqReference_PurchaseOrder::numberSeqModule();    
   moduleList += NumberSeqReference_Route::numberSeqModule();    
   moduleList += NumberSeqReference_SalesOrder::numberSeqModule();    
   moduleList += NumberSeqReference_Tax::numberSeqModule();    
   moduleList += NumberSeqReference_Vendor::numberSeqModule();    
   moduleList += NumberSeqReference_Internet::numberSeqModule();    
   moduleList += NumberSeqReference_Asset::numberSeqModule();   
   //Riferimento alla nostra classe-modulo    
   moduleList += NumberSeqReference_Custom::numberSeqModule();  
   return moduleList;   
  }   

 public static numberSeqReference construct(NumberSeqModule _module)   
  {   
   switch (_module)   
   {   
    case (NumberSeqReference_Ledger::numberSeqModule())   : return new NumberSeqReference_Ledger(_module);   
    case (NumberSeqReference_Tax::numberSeqModule())   : return new NumberSeqReference_Tax(_module);   
    case (NumberSeqReference_Bank::numberSeqModule())   : return new NumberSeqReference_Bank(_module);   
    case (NumberSeqReference_SalesOrder::numberSeqModule())  : return new NumberSeqReference_SalesOrder(_module);   
    case (NumberSeqReference_ForeignTrade::numberSeqModule()) : return new NumberSeqReference_ForeignTrade(_module);   
    case (NumberSeqReference_Customer::numberSeqModule())  : return new NumberSeqReference_Customer(_module);   
    case (NumberSeqReference_PurchaseOrder::numberSeqModule()) : return new NumberSeqReference_PurchaseOrder(_module);   
    case (NumberSeqReference_Vendor::numberSeqModule())   : return new NumberSeqReference_Vendor(_module);   
    case (NumberSeqReference_Inventory::numberSeqModule())  : return new NumberSeqReference_Inventory(_module);   
    case (NumberSeqReference_BOM::numberSeqModule())   : return new NumberSeqReference_BOM(_module);   
    case (NumberSeqReference_Route::numberSeqModule())   : return new NumberSeqReference_Route(_module);   
    case (NumberSeqReference_Production::numberSeqModule())  : return new NumberSeqReference_Production(_module);   
    case (NumberSeqReference_MasterPlanning::numberSeqModule()) : return new NumberSeqReference_MasterPlanning(_module);   
    case (NumberSeqReference_Project::numberSeqModule())  : return new NumberSeqReference_Project(_module);   
    case (NumberSeqReference_Location::numberSeqModule())  : return new NumberSeqReference_Location(_module);   
    case (NumberSeqReference_Document::numberSeqModule())  : return new NumberSeqReference_Document(_module);   
    case (NumberSeqReference_General::numberSeqModule())  : return new NumberSeqReference_General(_module);   
    case (NumberSeqReference_Internet::numberSeqModule())  : return new NumberSeqReference_Internet(_module);   
    case (NumberSeqReference_Asset::numberSeqModule())   : return new NumberSeqReference_Asset(_module);   
    // Riferimento alla nostra classe-modulo  
    case (NumberSeqReference_Custom::numberSeqModule())     : return new NumberSeqReference_Custom(_module);   
  }   
   throw error(strFmt("@SYS53742"));   
  }  

Ora è necessario parametrizzare la NumberSequence e richiamarla quando occorre.

Innanzi tutto occorre creare una tabella parametrica e relativo form.
E' necessario poi definire all'interno della tabella i metodi numberSeqModule() e numberSeqReference():

 client server static NumberSeqModule numberSeqModule()  
 {  
   return NumberSeqReference_Custom::numberSeqModule();  
 }  

 client server static NumberSeqReference numberSeqReference()  
 {  
   return NumberSeqReference::construct(NumberSeqReference_Custom::numberSeqModule());  
 }  

Nel form, altresì, vanno inseriti come datasource sia la nuova tabella parametrica che la tabella NumberSequenceReference.
Ed inoltre:
- i metodi numberSeqPreInit(), numberSeqPostInit();
- il metodo executeQuery nel datasource NumberSequenceReference.

Dopo di che nel nostro form custom, potremo inserire i nostri riferimenti alla sequence creata, dopo aver definito codice, nome, minimo, massimo, formato ecc. nella tabella NumberSequenceTable (quest'ultima procedura si puo eseguire anche tramite wizard in Basic -> Setup -> NumberSequences -> Number Sequences).

Infine occorrerà solamente "staccare" di volta in volta la sequence. Manualmente si può fare così:

 ...    
   ExtendedTypeId id = TypeID2ExtendedTypeId(TypeId(EDTCreato));  
   NumberSeq num = NumberSeq::newGetNum(NumberSequenceReference::find(id));  
   str  sequence;  
   ;  
   num.used(); // segnalo la sequence come "in uso"
   sequence = num.num();  
 ...  

Ciclo sui record di un datasource

Molto spesso è utile dover elaborare dei record selezionati  in un form dall'utente, filtrati secondo filtri custum. Ovviamente tale informazione è contenuta nel datasource del fom. Ecco un esempio di codice che cicla i record del listino prezzi selezionati dall'utente ed aggiorna il campo FomDate con la data odierna:

 public void setToDate()  
 {  
   PriceDiscTable   PriceDiscTableOrig;  
   Common       common;  
   ;  
   ttsBegin;  
   for(common = PriceDiscTableDS.getFirst(true)?PriceDiscTableDS.getFirst(true):PriceDiscTableDS.cursor();common; common = PriceDiscTableDS.getNext())  
   {  
     PriceDiscTableOrig = PriceDiscTable::findRecId(common.RecId, true);  
     PriceDiscTableOrig.ToDate = today() ;  
     PriceDiscTableOrig.update();  
   }  
   ttsCommit;  
 }  

Importante la chiamata al metodo find per ottenere il buffer, altrimenti continueremmo a lavorare a livello di datasource perdendo le modifiche. Quando la procedura termina si deve chiamare il refresh del datasource per vedere le modifiche.

AX 2009 - Ordinare in modo decrescente le righe di un form

Ax in automatico ordina le righe della grid di un form in modo crescente. Se vogliamo cambiare l'ordine in decrescente, la procedura è semplice. Basta modificare il metodo "init" nel datasource della form in cui ci sono i dati della grid.

 public void init()  
 {  
   super();  
   this.query().dataSourceTable(tableNum(SalesTable)).addSortField(fieldNum(SalesTable, RecId),SortOrder::Descending);  
 }  

AX 2009 - Lookup con lista dei campi di tabella

Vi serve visualizzare una lista di tutti i campi di una determinata tabella? Ecco il codice da implementare nel metodo "lookup" (override sul campo del datasource in cui vogliamo visualizzarla).

 public void lookup(FormControl _ctrl, str _filterStr)  
 {  
   SysTableLookup       sysTableLookup = SysTableLookup::newParameters(Tablenum(Utilelements),_ctrl);  
   Treenode             formnode;  
   Query                query = new Query();  
   QueryBuildDataSource queryBuildDataSource;  
   Treenode             datasource;  
   TableName            tableName;  
   TableId              tableId;  
   ;  
    
   formnode = treenode::findNode(@'\forms\SalesTable\data sources'); //form dove è contenuto il datasource in questo caso SalesTable
   
   datasource = formnode.AOTfirstChild();  
   tableName = datasource.AOTgetProperty('Table');  
   if (datasource)  
   {  
     tableId = tablename2id(tableNam);//id di SalesTable  
     sysTableLookup.addLookupfield(fieldnum(UtilElements, Name));  
     queryBuildDataSource = query.addDataSource(tablenum(UtilElements));  
     queryBuildDataSource.addRange(fieldnum(utilelements,recordtype)).value(queryvalue(UtilelementType::TableField));//range sul campo RecordType, dove specifichiamo che vogliamo i campi di una tabella
     queryBuildDataSource.addRange(fieldnum(Utilelements,ParentId)).value(queryvalue(tableId));  // range sul ParentId dei campi, gli specifichiamo quello di SalesTable
     sysTableLookup.parmQuery(query);  
     sysTableLookup.performFormLookup();  
   }  
 }  

A presto il lookup che visualizza la lista delle tabelle!

AX 2009 - Aggiunta e gestione di immagini come campo di tabella

L'argomento che andiamo a trattare è il caricamento e la visualizzazione di un immagine.
Un caso frequente di utilizzo sono, ad esempio, dei listini articoli con l'immagine dell'articolo dentro AX.

Per prima cosa dovremo creare sulla nostra tabella un nuovo campo di tipo Container,

e impostare le proprietà del campo come segue:

le modifiche a livello di tabella finisco qui, vediamo ora come fare per visualizzare e modificare l'immagine da un form.
Sul form avremo bisogno di due controlli, un campo di tipo Windows e Button.

 impostiamo le proprietà dei controlli come segue:

Adesso  ci mancano solo i metodi per gestire il tutto.
Iniziamo con l'override del metodo clicked del bottone appena creato.

 void clicked()
 {
   FilenameFilter filter = ['Image Files','*.bmp;*.jpg;*.gif;*.jpeg'];
   BinData binData = new BinData();
   str extention, path, nameOfFile;
  
   super();
  
   imageFilePathName = WinAPI::getOpenFileName(element.hWnd(),filter,'', "@SYS53008", '','');
   if (imageFilePathname && WinAPI::fileExists(imageFilePathName))
   {
  
     [path, nameOfFile, extention] = fileNameSplit(imageFilePathName);
     if (extention == '.bmp' ||
       extention == '.jpg' ||
       extention == '.gif' ||
       extention == '.jpeg')
     {
       binData.loadFile(imageFilePathName);
       imageContainer = binData.getData();
       element.showImage();
       element.insert();
     }
     else
     {
       throw error("@SYS89176");
     }
   }
 }  

In seguito dobbimo realizzare i due metodi 'showImage' e 'insert' che abbiamo appena utilizzato. Questi andranno creati a livello dei metodi globali del form. Il metodo 'showImage' serve a visualizzare l'immagine appena caricata mentre il metodo 'insert' ad inserirla e salvarla sul database.

 void showImage()  
 {  
   Image  logoImage;  
   ;
  
   try  
   {  
     element.lock();
  
     if (imageContainer)  
     {  
       logoImage = new Image();  
       logoImage.setData(imageContainer);  
       Image.image(logoImage);  
     }  
     else  
     {  
       Image.imageResource(0);  
       Image.widthValue(32);  
       Image.heightValue(32);  
     }
  
     element.resetSize();  
     element.unLock();  
   }  
   catch (Exception::Warning)  
   {  
     throw error(strfmt("@SYS19312", imageFilePathName));  
   }  
 }  

 void insert()  
 {  
   ;
  
   ttsbegin;
  
   line = MyTable::find(MyTable_ds.KeyField, true);  
   if(line)  
   {  
     line.Image = imageContainer;  
     line.update();  
   }
  
   ttscommit;  
 }  

E' buona norma non mettere l'immagine nella griglia della panoramica principale ma inserirla in uno degli altri tab del nostro form in modo da non appesantire lo scorrimento del dataSource, dovremo allora aver cura anche di effettuare l'override del metodo 'pageActivated', del tab dove inseriremo l'immagine, come segue:

 public void pageActivated()  
 {  
   ;
  
   super();  
   element.loadImage();
 }  

 void loadImage()  
 {  
   Image    img;  
   MyTable  table;  
   ;
  
   table= MyTable::find(MyTable_ds.KeyField);  
   if (table.Image)  
   {  
     img = new Image();  
     img.setData(table.Image);  
     Image.image(img);  
   }  
   else  
   {  
     Image.image(null);  
   }  
 }  

Il risultato che otterremo sarà qualcosa di simile al seguente... :)