Vina Ayu Pramadya Puspa Blog

Senin, 03 September 2018

X++ REVERSE CLOSE TRANSACTION IN CUSTOMER SETTLEMENT

CODE UNTUK REVERSE TRANSAKSI CUSTOMER SECARA PROGRAM OTOMATIS : CUSTSETTLEMENT

LedgerJournalTrans LedgerJournalTransUpdate;
    LedgerJournalTrans LedgerJournalTransinsert;
    Custtrans         invVendTrans ,findCustTrans, custtrans2;
    CustTable          CustTable;
    custSettlement custSettlement, custSettlement2;
    SpecTransManager    specTransManager;

    select invVendTrans
    order by TransDate asc
    where  invVendTrans.Voucher == Voucher_Copy.text() ;


    while select findCustTrans where findCustTrans.RecId == invVendTrans.RecId
    {
            CustTable = CustTable::find(findCustTrans.AccountNum);

            select firstonly custSettlement where   custSettlement.TransCompany == findCustTrans.dataAreaId &&
                                                    custSettlement.TransRecId   == findCustTrans.RecId &&
                                                    custSettlement.AccountNum   == findCustTrans.AccountNum;

            specTransManager = SpecTransManager::newRefTableId(CustTable,tablenum(custSettlement), true);
            specTransManager.insert(custSettlement.DataAreaId, custSettlement.TableId, custSettlement.RecId, custSettlement.SettleAmountCur, findCustTrans.CurrencyCode);
            custSettlement.CustVendSettlement::markOffsets(specTransManager, findCustTrans.CurrencyCode, true);
             //specTransManager.deleteAll();
            select * from custtrans2 where custtrans2.RecId == custSettlement.OffsetRecid;
            invoiceSettle.text( invoiceSettle.text() +", " + custtrans2.Invoice) ;//= "";//invoiceSettle. + ", " + custtrans2.Invoice;
            if (custtrans::reverseTransact(CustTable,null,settleDatePrinc::DateOfPayment,custSettlement.TransDate))
            {
                specTransManager.deleteAll();
            }
    }

X++ REVERSE CLOSE TRANSACTION IN VENDOR SETTLEMENT

CODE UNTUK REVERSE TRANSAKSI VENDOR SECARA PROGRAM OTOMATIS
VENDSETTLEMENT

LedgerJournalTrans ledgerjournaltrans;
   LedgerJournalTrans ledgerjournaltrans2;
   LPPJournalLine LPPJournalLine;
   LPPJournalTable LPPJournalTable;
   LPPJournalTable LPPJournalTable2;
   VendTrans          invVendTrans ,findCustTrans;
   VendTable          VendTable;
   vendSettlement vendSettlement;
   SpecTransManager    specTransManager;

    boolean ret;

    ret = super();

select invVendTrans
            order by TransDate asc
            where  invVendTrans.Voucher == vn_LPPCancel_Voucher.text() ;


            while select findCustTrans where findCustTrans.RecId == invVendTrans.RecId
            {
                    VendTable = VendTable::find(findCustTrans.AccountNum);

                    select firstonly vendSettlement where   vendSettlement.TransCompany == findCustTrans.dataAreaId &&
                                                            vendSettlement.TransRecId   == findCustTrans.RecId &&
                                                            vendSettlement.AccountNum   == findCustTrans.AccountNum;

                    specTransManager = SpecTransManager::newRefTableId(VendTable,tablenum(vendSettlement), true);
                    specTransManager.insert(vendSettlement.DataAreaId, vendSettlement.TableId, vendSettlement.RecId, vendSettlement.SettleAmountCur, findCustTrans.CurrencyCode);
                    vendSettlement.CustVendSettlement::markOffsets(specTransManager, findCustTrans.CurrencyCode, true);
                     //specTransManager.deleteAll();
                    if (VendTrans::reverseTransact(VendTable,null,settleDatePrinc::DateOfPayment,vendSettlement.TransDate))
                    {
                        specTransManager.deleteAll();
                    }
            }

ax set user for no ctrl + g

Set User supaya user tidak perlu ctrl + g saat pencarian

SELECT A.FILTERBYGRIDONBYDEFAULT, A.ID, A.PARTITION , A.RECID 
 FROM userinfo A WHERE A.ID 
LIKE '%wiwin%'

BEGIN TRANSACTION UPDATE USERINFO SET FILTERBYGRIDONBYDEFAULT = 1 WHERE RECID =5637148329 COMMIT

Kamis, 28 Juni 2018

x++ Disable / Enable field in Grid based on another field

if (vn_PermintaanAdjustmentHeader.tipe==0)
    {
         vn_PermintaanAdjustmentHeader_ds.object(fieldNum(vn_PermintaanAdjustmentHeader, ItemId_Jadi)).allowEdit(true);
    }
    else
    {
         vn_PermintaanAdjustmentHeader_ds.object(fieldNum(vn_PermintaanAdjustmentHeader, ItemId_Jadi)).allowEdit(false);
        
    }

Senin, 04 Juni 2018

SQL Inword

alter FUNCTION [dbo].[Terbilang](@number NUMERIC(19,6))
RETURNS NVARCHAR(MAX)
AS
BEGIN
    DECLARE 
    @position INT, 
    @length INT, 
    @words NVARCHAR(MAX), 
    @ends NVARCHAR(MAX), 
    @numStr NVARCHAR(MAX), 
    @foreStr NVARCHAR(MAX), 
    @backStr NVARCHAR(MAX), 
    @char NVARCHAR(1),
    @charafter NVARCHAR(1),
    @charprev NVARCHAR(1),
    @charprev2 NVARCHAR(1)
 
SELECT @numStr = STR(@number, 19, 2)
SELECT @numStr = LTRIM(RTRIM(@numStr))
SELECT @foreStr = SUBSTRING(@numStr, 0, (SELECT CHARINDEX('.', @numStr, 1)))
SELECT @backStr = SUBSTRING(@numStr, (SELECT CHARINDEX('.', @numStr, 1)+1), LEN(@numStr))
SELECT @length = LEN(@foreStr)
SELECT @position = @length
SELECT @words =''
 
    --Memproses "angka di depan koma" 
    WHILE(@position > 0)
    BEGIN    
            
            SELECT @char = SUBSTRING(@numStr, @length+1 - @position, 1)
            SELECT @charafter = SUBSTRING(@numStr, @length+2 - @position, 1)
            SELECT @charprev = SUBSTRING(@numStr, @length - @position, 1)
            SELECT @charprev2 = SUBSTRING(@numStr, @length - @position - 1, 1)
            
            IF ((@char = '1') AND ((SELECT(@position-1)/3.0) = 1) AND 
                (@charafter != '' ) AND ((SELECT CAST(@charprev as INT)) = 0)) 
                SELECT @words = @words + 'se' 
            ELSE
            IF ((@char = '1') AND ((SELECT @position % 3) = 1)) 
                SELECT @words = @words + 'satu ' 
            ELSE
            IF ((@char = '1') AND ((SELECT CAST(@charafter as INT)) > 1) AND 
                ((SELECT @position % 3) = 2))
                BEGIN
                    IF (@charafter = '1') SELECT @words = @words + 'se' ELSE
                    IF (@charafter = '2') SELECT @words = @words + 'dua ' ELSE
                    IF (@charafter = '3') SELECT @words = @words + 'tiga ' ELSE    
                    IF (@charafter = '4') SELECT @words = @words + 'empat ' ELSE    
                    IF (@charafter = '5') SELECT @words = @words + 'lima ' ELSE    
                    IF (@charafter = '6') SELECT @words = @words + 'enam ' ELSE    
                    IF (@charafter = '7') SELECT @words = @words + 'tujuh ' ELSE    
                    IF (@charafter = '8') SELECT @words = @words + 'delapan ' ELSE    
                    IF (@charafter = '9') SELECT @words = @words + 'sembilan '
                END
            ELSE
            IF (@char = '1') SELECT @words = @words + 'se' ELSE
            IF (@char = '2') SELECT @words = @words + 'dua ' ELSE
            IF (@char = '3') SELECT @words = @words + 'tiga ' ELSE    
            IF (@char = '4') SELECT @words = @words + 'empat ' ELSE    
            IF (@char = '5') SELECT @words = @words + 'lima ' ELSE    
            IF (@char = '6') SELECT @words = @words + 'enam ' ELSE    
            IF (@char = '7') SELECT @words = @words + 'tujuh ' ELSE    
            IF (@char = '8') SELECT @words = @words + 'delapan ' ELSE    
            IF (@char = '9') SELECT @words = @words + 'sembilan ' ELSE
            IF ((@char = '0') AND ((SELECT CAST(@charprev as INT)) > 1) AND ((SELECT @position % 3) = 1))
                SELECT @words = @words 
            ELSE
            IF ((@char = '0') AND ((SELECT @charprev) = '0') AND ((SELECT CAST(@charprev2 as INT)) > 0) AND ((SELECT @position % 3) = 1))
                SELECT @words = @words 
            ELSE
            IF (@char = '0') 
            BEGIN
                SELECT @position = @position - 1
                CONTINUE
            END     
            
            IF ((SELECT @position % 3) = 0) SELECT @words = @words + 'ratus ' ELSE    
            IF (((SELECT @position % 3) = 2) AND ((SELECT CAST(@char as INT)) > 1)) 
                SELECT @words = @words + 'puluh ' 
            ELSE    
            IF (((SELECT @position % 3) = 2) AND ((SELECT CAST(@char as INT)) = 1)
                AND ((SELECT CAST(@charafter as INT)) > 0))
            BEGIN 
                SELECT @words = @words + 'belas '
                SELECT @position = @position - 1
            END
            ELSE
            IF (((SELECT @position % 3) = 2) AND ((SELECT CAST(@char as INT)) = 1)
                AND ((SELECT CAST(@charafter as INT)) = 0))
            BEGIN 
                SELECT @words = @words + 'puluh '
                SELECT @position = @position - 1
            END
            
            IF ((SELECT (@position-1)/3.0) = 1) SELECT @words = @words +'ribu ' ELSE
            IF ((SELECT (@position-1)/3.0) = 2) SELECT @words = @words +'juta ' ELSE
            IF ((SELECT (@position-1)/3.0) = 3) SELECT @words = @words +'milyar ' ELSE
            IF ((SELECT (@position-1)/3.0) = 4) SELECT @words = @words +'triliun '
 
        SELECT @position = @position - 1
    END
    
    --Memproses "koma" dan "angka di belakang koma"
    IF((SELECT CAST(@backStr AS INT)) > 0)
    BEGIN
        --Menambahkan "koma" pada terbilang
        
        SELECT @words = @words + 'koma '
        
        --Menambahkan "Angka di belakang koma" pada terbilang
    
        SELECT @length = LEN(@backStr)
        SELECT @position = @length
        
        WHILE( @position > 0)
        BEGIN
        
            SELECT @char = SUBSTRING(@backStr, @length+1 - @position, 1)
            SELECT @words = @words +
            (CASE @char
                WHEN '0'THEN 'nol '
                WHEN '1'THEN 'satu '
                WHEN '2'THEN 'dua '
                WHEN '3'THEN 'tiga '
                WHEN '4'THEN 'empat '
                WHEN '5'THEN 'lima '
                WHEN '6'THEN 'enam '
                WHEN '7'THEN 'tujuh '
                WHEN '8'THEN 'delapan '
                WHEN '9'THEN 'sembilan '
                ELSE ''
             END
            )    
            SELECT @position = @position - 1
        END 
    END
    
    SELECT @words = LTRIM(RTRIM(@words))
    
    -- Huruf pertama huruf besar
    IF LEN(@words) > 0 
    BEGIN
        SET @words = UPPER(left(@words,1)) + RIGHT(@words, LEN(@words)-1)
    END
 
    /* FINAL RETURN */
RETURN (SELECT @words + ' rupiah')
END

Selasa, 24 April 2018

x++ Create Alert for All user Group

static void SendAlertVN(Args _args)
{
EventParameters eventParameters = EventParameters::find();

SysUserInfo sysUserInfo;

UserInfo userinfo;

EventInbox inbox;

UserGroupList UsergroupList;

 

//SysYserInfo = SysUserInfo::find(curUserId());

 

while select UsergroupList where UsergroupList.groupId =="admin"

{

      inbox.initValue();
      inbox.ShowPopup     = NoYes::Yes;
      inbox.Subject       = "Préparation de réception marchandise";
      inbox.Message       = "?";
      inbox.AlertedFor    = "Préparation de réception marchandise";
      inbox.UserId        = UsergroupList.userID ;

      inbox.TypeId        = 1527;
      inbox.globalrule = true;

     inbox.AlertTableId  = tableNum(PurchReceiptsListHeaderTmp);
     inbox.AlertFieldId  = fieldNum(PurchReceiptsListHeaderTmp, PurchID);
     inbox.TypeTrigger   = EventTypeTrigger::RecordInsert;
     inbox.CompanyId     = curext();
     inbox.InboxId       = EventInbox::nextEventId();
     inbox.AlertCreatedDateTime = DateTimeUtil::getSystemDateTime();

     inbox.SendEmail     = true;

     inbox.EmailTemplateId = "001";
   
   // inbox.emailRecipient =  "exemple@exemple.com;


inbox.insert();


    }
}

reference : https://dynamicsuser.net/ax/f/developers/69282/creat-alert-notification-and-send-email-with-x

Kamis, 19 April 2018

Reverse Customer Closed Transaction trough x++

static void Update_Reverse_Settlement(Args _args)
{
    CustTrans           invCustTrans,findCustTrans;
    SpecTransManager    specTransManager;
    DocumentNum         invdocnumx,paydocnumx;
    CustSettlement      custSettlement;
    AccountNum          accnumx;
    date                paydatex;
    CustTable           custTable;
    ;

   
    select invCustTrans
    order by TransDate asc
    where   invCustTrans.Voucher=="18BM01-00082";
    //invCustTrans.DocumentNum == invdocnumx
    //    &&  invCustTrans.AmountMST > 0
    //    &&  invCustTrans.AccountNum == accnumx;
    
    while select findCustTrans where findCustTrans.RecId == invCustTrans.RecId
    {        
        custTable = custTable::find(findCustTrans.AccountNum);

       // if(findCustTrans.TransType != ledgerTransType::Payment)
       // {
            //We must go to the customer settlement table and locate the records that were used to settle the invoice in scope and pass them into the class
            // that manages the marking and updating of applied credits and payments to invoices. We remove the credit marking to remove the link between the invoice
            //and the credits used to settle the invoice. Then we must reverse the transactions using the reverseTransact method on the customer transaction table
              select firstonly custSettlement where// custSettlement.SettlementVoucher=='';
              custSettlement.TransCompany == findCustTrans.dataAreaId &&
                                                    custSettlement.TransRecId   == findCustTrans.RecId &&
                                                    custSettlement.AccountNum   == findCustTrans.AccountNum;

            specTransManager = SpecTransManager::newRefTableId(custTable,tablenum(custSettlement), true);
            specTransManager.insert(custSettlement.DataAreaId, custSettlement.TableId, custSettlement.RecId, custSettlement.SettleAmountCur, findCustTrans.CurrencyCode);
            custSettlement.CustVendSettlement::markOffsets(specTransManager, findCustTrans.CurrencyCode, true);

            if (CustTrans::reverseTransact(custTable,null,settleDatePrinc::DateOfPayment,custSettlement.TransDate))
            {
                specTransManager.deleteAll();
                 //custTrans_ds.executeQuery();
            }
       // }
    }
    info(strFmt('Done %1',findCustTrans.txt));

}