DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦6f4abb51e⟧ TextFile

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »PROJSYS.CMD«

Derivation

└─⟦8808ef982⟧ Bits:30005860 DBase II 2.4 & QUICKCODE
    └─⟦this⟧ »PROJSYS.CMD«

TextFile

* projsys.cmd
set talk off
store ' ' to valg
store '  ' to fra
store '  ' to til
store '      ' to dagsdato
erase
text


                     Projekt-omkostnings-registrering

                           RAPPORT-DEL



                     0   SLUT på rapport-del

                     1   Liste over omkostnings-transaktioner  (LISTE1)

                     2   Liste over projekt-omkostnings-totaler(PROJTOT)

                     3   Liste over primo-/perioden-/ultimo-total pr. projekt
                         og kontonr

                     4  BILAG 3 liste for ÅRH

endtext
@ 20,0 say 'Tast liste nr ' get valg
read
if valg='0'
   use
   return
endif

if valg='1'
*@ 21,0 say 'tast fra afdelingsnr ' get fra
*@ 22,0 say '     til afdelingsnr ' get til
@ 22,40 say 'Kørsels-dato ' get dagsdato
read
   accept '-----> tast return, NÅR printeren er klar (A4-tværs/bred) ' to svar
   use projkopi index afdpjktope
   set heading ;
   Kørselsdato : &dagsdato
   report form liste1 to print
*               for $(afdpjktope,1,2)>=fra;
*                   .and.;
*                   $(afdpjktope,1,2)<=til;
*               to print
   set print off
endif

if valg='2'
   use pjktoult
*@ 21,0 say 'tast fra afdelingsnr ' get fra
*@ 22,0 say '     til afdelingsnr ' get til
@ 22,40 say 'Kørselsdato ' get dagsdato
read
   accept '-----> tast return, NÅR printeren er klar (A4-høj) ' to svar
   set heading ;
   Kørselsdato : &dagsdato
   report form projtot to print
*               for $(afdpjktope,1,2)>='&fra';
*                   .and.;
*                   $(afdpjktope,1,2)<='&til';
*               to print
   set print off
endif

if valg='3'
   use pjktoult
*@ 21,0 say 'tast fra afdelingsnr ' get fra
*@ 22,0 say '     til afdelingsnr ' get til
@ 22,40 say 'Kørselsdato ' get dagsdato
read
   accept '-----> tast return, NÅR printeren er klar (A4-høj) ' to svar
   set heading ;
   Kørselsdato : &dagsdato
   report form pjktoult to print
*               for $(afdpjktope,1,2)>='&fra';
*                   .and.;
*                   $(afdpjktope,1,2)<='&til';
*               to print
   set print off
endif
use
return

«eof»