'HOW TO PREPARE AN RPV REPORT FROM BASIC
'THIS PROGRAM READS FROM AN ASCII TEXT FILE SEPARATED BY COMMAS
'AND BUILD AN RPV REPORT.

CLS
OPEN "PERSON.DAT" FOR INPUT AS #1
OPEN "EMPLOYEE.RPV" FOR OUTPUT AS #2

'HERE I BEGIN WITH THE CONFIG SECTION.
'PLEASE NOTE THAT LOWER OR UPPER CASE DOES NOT MATTER!!!!

PRINT #2, "report_title=Employees report (programmed in qbasic/quickbasic)"
PRINT #2, "Papersize=letter"
PRINT #2, "$a=1400"
PRINT #2, "$b=2400"
PRINT #2, "$c=5500"
PRINT #2, "spacing=250"
PRINT #2, "[header]"
PRINT #2, "{f=arial;s=16}"
PRINT #2, "{pic=rpvlogo.bmp,400,400,1400,900}"
PRINT #2, "{\n;\n;$b;c=2;b=y} Persons table report. {c=0;b=n;\n;\n;\n}"
PRINT #2, "{LINE=400,10000;\N}"
PRINT #2, "{u=n;b=n;s=10}"
PRINT #2, "[data]"

DO
'**HERE I READ THE DATA FROM PERSON.DAT FILE
INPUT #1, ID$, NAME$, ADDRESS$, PHONE$, ZIP$, MAIL$, BIRTH$, SALARY$, AREA$, SCHED$, STARTDATE$

'**DUE THE FORMAT OF THIS REPORT. I DECIDE TO CUT THE PAGE AFTER I SHOWED
'**5 RECORDS. TO DO SO, I ADD 1 TO LINESREAD

LINESREAD = LINESREAD + 1
IF LINESREAD = 6 THEN
LINESREAD = 1
PRINT #2, "{\NP}"
END IF

'**HERE I BUILD THE DATA SECTION WITH THE DATA I HAVE READ FROM
'**THE PERSON.DAT FILE. I USE ";" CHAR NOT ADD CHR(13) + CHR(10)

PRINT #2, "{PIC=" + ID$ + ".BMP,400,,700,700;S=10;$A;U=Y;B=Y}" + ID$ + "{$B}" + NAME$;
PRINT #2, "{u=n;b=n;\n;\n}"
PRINT #2, "{$a} Address: {$b}" + ADDRESS$ + " {$c} Phone: " + PHONE$ + "{\n}"
PRINT #2, "{$a} E-mail: {$b}" + MAIL$ + "{\n}"
PRINT #2, "{$a} Birth date: {$b}" + BIRTH$ + "{\n}"
PRINT #2, "{$a} Area: {$b}" + AREA$ + "{$c} Salary: " + SALARY$ + "{\N}"
PRINT #2, "{$a} Schedule: {$b}" + SCHED$ + "{$c} Start date: " + STARTDATE$ + "{\n;\n;\n}"
PRINT #2, "{LINE=400,10000;\N}"
LOOP UNTIL EOF(1)
CLOSE
'AFTER I CLOSE THE FILES I OPEN THE RPV WITH "/E" FLAG TO ALLOW EDITION OF REPORT.
SHELL "rpv.exe employee.rpv /e"