Posted by Grant Foraker on February 18, 2009 at 12:40:49: Uploaded files: 2
I was asked to post the source for my standard invoice program.
I copied a lot from CFORM and have made some changes that I thought were helpful (to me). I might do it differently today. I built ^COSGOS.INC (not included) to contain just the gosubs I thought I needed instead of the entire set that Brian gave us. Something I'm planning to undo.
A time saver you might consider. Instead of printing each field on a line separately you can use your existing formats.
Say 2850 is the old format for the detail line.
PRINT (#,2850)
INPUT (#) DATA$
Print (Lun) (TR);(TextOut = X1, Y1);Data$;NullByte$
You have to split the format if you have CR's or LF's. And you have to use a fixed font like Courier or Lucida Console.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.