AX - 2012 Satınalma sipariş raporunu direk email olarak göndermek

Satınlama sipariş raporunu (PurchPurchaseOrder) direk mail olarak göndermek:

    SrsReportRunController          controller = new SrsReportRunController();
    PurchPurchaseOrderContract      Contract = new PurchPurchaseOrderContract();
    SRSPrintDestinationSettings     printSettings;
    VendPurchOrderJour              orderJour;
    SrsReportEMailDataContract      emailContract = new SrsReportEMailDataContract();

   select firstonly orderJour
            order by PurchOrderDate Desc,CreatedDateTime Desc
            where orderJour.PurchId == "ST000181";

    emailContract.parmAttachmentFileFormat(SRSReportFileFormat::PDF);
    emailContract.parmSubject("Purchase Order");
    emailContract.parmTo("test@hotmail.com");
    
    
    controller.parmReportName(ssrsReportStr(PurchPurchaseOrder, Report));
    controller.parmShowDialog(false);
    Contract.parmRecordId(orderJour.RecId);
    controller.parmReportContract().parmRdpContract(Contract);

    printSettings = controller.parmReportContract().parmPrintSettings();
    printSettings.printMediumType(SRSPrintMediumType::Email);
    printSettings.fileFormat(SRSReportFileFormat::PDF);
    printSettings.parmEMailContract(emailContract);
    printSettings.overwriteFile(true);

    controller.runReport();

Yukarıdaki yöntemde sistem AX mail göndericisi yerine Outlook'u kullanmak isteyecektir. Aşağıdaki yöntem alternatif olabilir. Yukarıdaki yöntemin dezavantajı Outlook'u kullanması iken aşağıdakinin de dezavantajı dosyayı öncelikle diskte bir yere yazmanızın gerekmesi:

  PurchTable          purchTable;

    str                 body;

    PurchLine           purchLine;

    boolean             found;

    VendPurchOrderJour  orderJour;

    Filename            filename;

    SysMailer           mailer;

    SysEmailParameters  parameters;

      SrsReportRunController  controller = new SrsReportRunController();

    PurchPurchaseOrderContract  contract = new PurchPurchaseOrderContract();

 SRSPrintDestinationSettings printSettings;   

    

    controller.parmReportName(ssrsReportStr(PurchPurchaseOrder,Report));

    controller.parmExecutionMode(SysOperationExecutionMode::Synchronous);

printSettings = controller.parmReportContract().parmPrintSettings();
printSettings.fileFormat(SRSReportFileFormat::PDF);
printSettings.printMediumType(SRSPrintMediumType::File);
printSettings.overwriteFile(true);

printSettings.fileName(@filename);

filename = strFmt(@"%1%2.PDF",WinAPI::getTempPath(),"PO00001");

     select firstonly orderJour

            order by PurchOrderDate Desc,CreatedDateTime Desc

            where orderJour.PurchId == "PO00001"

    contract.parmRecordId(orderJour.RecId);

    controller.parmReportContract().parmRdpContract(contract);

    

    controller.parmShowDialog(false);

    controller.runReport();

    infolog.clear();

    

    new InteropPermission(InteropKind::ComInterop).assert();

    mailer = new SysMailer();

    parameters = SysEmailParameters::find();

    if (parameters.SMTPRelayServerName)

    {

        mailer.SMTPRelayServer(parameters.SMTPRelayServerName,

                            parameters.SMTPPortNumber,

                            parameters.SMTPUserName,

                            SysEmailParameters::password(),

                            parameters.NTLM);

    }

    else

    {

        mailer.SMTPRelayServer(parameters.SMTPServerIPAddress,

                            parameters.SMTPPortNumber,

                            parameters.SMTPUserName,

                            SysEmailParameters::password(),

                            parameters.NTLM);

    }

    body = '<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-9">';    

    body += strFmt(@"<br><caption>%1</caption><br><br>","Satınalma sipariş formunuz ektedir.");      

    

    mailer.fromAddress("sender@hotmail.com");

    mailer.tos().appendAddress("test@hotmail.com");

    mailer.htmlBody(body);

    mailer.subject(title);

    mailer.attachments().add(filename);

    mailer.bodyCharSet("Windows-1254");

    mailer.sendMail();

AX 2012 - Kur girişi, hesaplama, kurdan TL tutar hesaplama

Kur hesaplama:

ExchangeRateCurrencyPair    pair;

//TCMB : Döviz kur tipi (ExchangeRateType) tablosu Name anahtar alanı
select firstOnly pair
                    where pair.ExchangeRateType == ExchangeRateType::findByName("TCMB").RecId &&
                        pair.FromCurrencyCode == "USD" &&
                        pair.ToCurrencyCode == Ledger::accountingCurrency(CompanyInfo::current());


this.ExchangeRate = ExchangeRate::findByDate(pair.RecId,systemDateGet()).ExchangeRate;

Kur girişi için edit metod ( SalesTable gibi bir çok formda örneği var ):

public edit CurrencyExchangeRate editExchRate(boolean set, CurrencyExchangeRate _exchRate)
{
    ExchangeRateHelper exchangeRateHelper = ExchangeRateHelper::newCurrency(Ledger::primaryLedger(CompanyInfo::findDataArea(curext()).RecId), this.Currency);

    if (set)
    {
        this.ExchangeRate = exchangeRateHelper.prepareExchangeRateForStorage(_exchRate);
    }
    else
    {
        _exchRate = exchangeRateHelper.displayStoredExchangeRate(this.ExchangeRate);
    }

    return _exchRate;
}

Girilen kur değerinden TL tutar hesaplama:
ExchangeRateHelper exchangeRateHelper = ExchangeRateHelper::newCurrency(Ledger::primaryLedger(CompanyInfo::findDataArea(curext()).RecId), Ledger::accountingCurrency(CompanyInfo::current()));
 CurrencyExchangeHelper  cur = CurrencyExchangeHelper::construct();
   
 cur.parmLedgerRecId(Ledger::primaryLedger(CompanyInfo::current()));
 cur.parmExchangeDate(today());
//Eğer bugünün kurunu otomatik bulmasını istiyorsanız aşağıdaki iki satırı silin
     cur.parmExchangeRate1(exchangeRateHelper.prepareExchangeRateForStorage(1));
cur.parmExchangeRate2(this.ExchangeRate);
    this.BudgetAmountMST = cur.calculateTransactionToAccounting(this.Currency,this.BudgetAmount,true);

veya yukarıdaki işlemin kısa hali:

info(strFmt("%1", Currency::curAmount(100,"usd",today(),UnknownNoYes::Yes,500,100)));
    info(strFmt("%1", Currency::curAmount2CurAmount(100,"usd","try",today())));

AX 2012 - Test/Dev ortamı/farklı şirketler için arka plan rengini değiştirmek

SysSetupFormRun sınıfının Run metoduna aşağıdakine benzer birşeyler yazabilirsiniz:


 this.design().colorScheme(FormColorScheme::RGB);
 this.design().backgroundColor(WinAPI::RGB2int(71,216,86));


veya curext() ile bir switch/case yazarak her şirkete ayrı renk verebilirsiniz.