* DATR.CMD - Detailed Accounting Transaction Report
*
STORE TRIM(TITLE) TO MTITLE
STORE "  " TO CRITERIA
SELECT PRIMARY
USE DATRAN 
ERASE
@ 1,10 SAY TMARK + "  " + CNAME
SET INTE OFF
@ 3,10 SAY MTITLE
SET INTE ON
STORE 5 TO ROW
STORE "   " TO ANSWER
@ ROW,10 SAY "You may select a single source code or 'ALL' for all transactions"
@ ROW+1,10 SAY "Normally source codes are as follows:"
@ ROW+2,10 SAY "      CR - Cash receipts          CD - Cash disbursements"
@ ROW+3,10 SAY "      IN - Invoice register       CP - Credit purchases"
@ ROW+4,10 SAY "      GJ - General journal"       
@ ROW+5,10 SAY "Enter either one of the above, another one you are using or 'ALL'"
@ ROW+6,10 SAY "Source code " GET ANSWER PICTURE "!!!"
READ
IF ANSWER = "   "
   RETURN
ENDIF
IF ANSWER = "ALL"
   ELSE
   STORE "FOR SOURCE = '" + TRIM(ANSWER) + "'" TO CRITERIA
ENDIF
@ ROW+6,10
@ ROW+6,10 SAY "The source code selected is " + ANSWER
STORE ROW + 8 TO ROW
STORE "ACCT" TO ANSWER
@ ROW,10 SAY "You may have this report in date sequence rather than account"
@ ROW+1,10 SAY "sequence if you prefer. If so enter 'DATE', otherwise just a"
@ ROW+2,10 SAY "RETURN will do. " GET ANSWER
READ
STORE ROW + 4 TO ROW
STORE "                                        " TO HEADING
@ ROW,10 SAY "You may now enter a report heading for later identification."
@ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING
READ
STORE ROW + 2 TO ROW
@ ROW,10 SAY "Please ensure that your printer is ready to print."
STORE ROW + 1 TO ROW
STORE " " TO READY
@ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY
READ
IF !(READY) = "Q"
   RETURN
ENDIF
IF ANSWER = "DATE"
   SET INDEX TO DATRAN2
   ELSE
   SET INDEX TO DATRAN1
ENDIF
@ ROW+3,10 SAY "Your report is now printing!"
SET CONSOLE OFF
SET HEADING TO &HEADING
SET PRINT ON
REPORT FORM DADATR &CRITERIA 
EJECT
SET PRINT OFF
SET CONSOLE ON
RETURN