◆ No.1(1993年9月号)の回答-4

現金出納帳

月日	伝票番号	摘要	収入	支出	残高	残高2
831	0	前月繰越			123,456	123,456
901	1			4,567
901	2			74,124
901	3			321
901	4		96,385
901	5			968	139,861	139,861
902	6			3,245
902	7			8,624
902	8			35,467
902	9		9,634
902	10			2,356	99,803	99,803
903	11			57,964
903	12			3,200
903	13			215	38,424	38,424
904	14		3,000
904	15			3,000
904	16		2,000
904	17			2,000	38,424	38,424

現金出納帳集計表

月日	収入	支出	残高
831	0	0	123,456
901	96,385	79,980	139,861
902	9,634	49,692	99,803
903	0	61,379	38,424
904	5,000	5,000	38,424

    <TEST>
    CROSS;現金出納帳/1;M;T;2;8,12;N;現金出納帳集計表/1;現金出納帳集計表;
                                                     /*1日当り収入、支出、合計額を算出する*/
    G;現金出納帳集計表/1;      ACM;M;;4;2;3;;;S;     /*収支残高を算出する                 */
    G;現金出納帳/1;            ACM;M;;12;8;10;;;     /*収支残高を算出する                 */
    LET [T,14]={T,4};               P;*;
    FOR X40=H TO T;                                  /*当日最終残高以外を消去する         */
      IF [X40,14]="0" OR "" THEN LET [X40,12]="    ";
   NEXT;     STOP