是否可以在Symitar PowerOn中使用Trancode「SV」執行TRANPERFORM？

我正試圖在按需spec文件中發佈股息。我怎樣才能讓TRANPERFORM命令像櫃員一樣發出同樣的櫃員交易序列「SV」？示例代碼：是否可以在Symitar PowerOn中使用Trancode「SV」執行TRANPERFORM？

TRANPERFORM SV (0,SQ1,SQ2,CHKACCTCODE,CHKNUM,TRANERROR) 
     DO 
     SET TOACCT  TO ACCOUNT:NUMBER 
     SET TOTYPE  TO "0" 
     SET TOID   TO SHAREID(S) 
     SET AMOUNT  TO SHAREDIVAMT(S) 
     SET ADJUSTMENT TO 0 
     END

我無法得到此編譯，我不明白爲什麼。

來源

2015-06-17 BradH

您的錯誤是「TRANPERFORM規範中的無效操作碼」。這意味着第一個字母「S」是無效的。「S」操作碼不可用於TRANPERFORM。

下面是來自Episys eDoc 2014.01。

所需的令牌通過交易：

• A (Loan Advance) 
• C (Share or Loan Comment) 
• D (Share Deposit) 
• GL (GL to GL Transfer) 
• KS (Check Stop Payment) 
• N (New Loan) 
• P (Loan Payment) 
• W (Share Withdrawal) 
• XF (Transfer)

的股紅利（SV）的交易，您可以計算並發表閉幕股息，紅利週期，應計股息或紅利非凡的份額。此交易通過交易金額更新股票餘額，並更新共享記錄中的字段。

您可以單獨或與其他交易一起使用股息（SV）交易。由於Episys會自動抵銷總帳交易，因此不需要另一筆交易來平衡股票股息（SV）交易。

更新分享字段：股紅利（SV）事務更新以下分享記錄字段：

• Last Dividend Date 
• Last Dividend Amt 
• Dividend YTD 
• Dividend From Open 
• Ins Balance Age 55 
• Ins Balance Age 60 
• Ins Balance Age 65 
• Ins Balance Age 70 
• Dividend Due

以下片段是從RD.DVTRANSACTION。

TRANPERFORM DV (0,SEQ1,SEQ2,CHECKINGACCTCODE,CHECKNUMBER,ERRORTEXT) 
    DO 
    SET TOACCT  TO ACCOUNT:NUMBER 
    SET TOTYPE  TO "S" 
    SET TOID   TO SID 
    SET AMOUNT  TO SDIVIDENDDUE 
    SET ADJUSTMENT TO 0 
    END 

IF ERRORTEXT<>"" THEN 
    POPUPMESSAGE(2,"Share Dividend error: "+ERRORTEXT) 

ELSE 
    DO 
    POPUPMESSAGE(0,"Share Dividend:   "+ 
       FORMAT("###,###,###,###,##9.99",SDIVIDENDDUE)+ 
       " Posted to Share "+SID) 

    FMPERFORM REVISE SHARE SID (0,0,ERRORTEXT) 
    DO 
    SET DIVACCRUALDATE TO SYSTEMDATE 
    SET DIVACCRUAL TO $0.00 
    SET DIVPERIODSTART TO SYSTEMDATE 
    SET DIVPERIODBALDAYS TO $0.00 
    SET MTDPRIORRATEACCRUAL TO $0.00 
    END 

    IF ERRORTEXT<>"" THEN 
    POPUPMESSAGE(2,"FMPERFORM error: "+ERRORTEXT) 

    IF (MAD - SDIVIDENDDUE)>=$0.00 THEN 
    FMPERFORM REVISE SHARE SID (0,0,ERRORTEXT) 
    DO 
     SET MTDACCRUEDDIVS TO (MAD - SDIVIDENDDUE) 
    END 

    IF (CDP - SDIVIDENDDUE)>=$0.00 THEN 
    FMPERFORM REVISE SHARE SID (0,0,ERRORTEXT) 
    DO 
     SET CURRDIVPAYABLE TO (CDP - SDIVIDENDDUE) 
    END 
    END

來源

2015-06-18 13:12:56 user3276194

是否可以在Symitar PowerOn中使用Trancode「SV」執行TRANPERFORM？

回答

相關問題