是否可以在 Symitar PowerOn 中使用 Trancode "SV" 进行 TRANPERFORM？

Question

我正在尝试 post 按需规格文件中的股份分红。我怎样才能让 TRANPERFORM 命令像出纳员一样发出相同的出纳员交易序列 "SV"？示例代码：

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

我无法编译它，我不明白为什么。

Answer 1

您的错误是 "invalid action code in TRANPERFORM specification"。这意味着首字母 "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) 交易可让您计算并 post 股票的期末股息、定期股息、应计股息或特别股息。此交易按交易金额更新股份余额，并更新股份记录中的字段。

您可以单独使用股票股息 (SV) 交易，也可以与其他交易一起使用。不需要另一笔交易来平衡股票股息 (SV) 交易，因为 Episys 会自动进行抵消总账交易。

更新的共享字段：共享股息 (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 [=12=].00
     SET DIVPERIODSTART TO SYSTEMDATE
     SET DIVPERIODBALDAYS TO [=12=].00
     SET MTDPRIORRATEACCRUAL TO [=12=].00
    END

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

   IF (MAD - SDIVIDENDDUE)>=[=12=].00 THEN
    FMPERFORM REVISE SHARE SID (0,0,ERRORTEXT)
     DO
      SET MTDACCRUEDDIVS TO (MAD - SDIVIDENDDUE)
     END

   IF (CDP - SDIVIDENDDUE)>=[=12=].00 THEN
    FMPERFORM REVISE SHARE SID (0,0,ERRORTEXT)
     DO
      SET CURRDIVPAYABLE TO (CDP - SDIVIDENDDUE)
     END
  END

是否可以在 Symitar PowerOn 中使用 Trancode "SV" 进行 TRANPERFORM？

Is it possible to do a TRANPERFORM with Trancode "SV" in Symitar PowerOn?

financial