DataMuseum.dk

top - metrics - download

    Length: 1664 (0x680)
    Types: TextFile
    Names: »BUD.ADD«

└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
    └─⟦this⟧ »BUD.ADD« 

TextFile

*     BUD.ADD     -ADD PROGRAM
STORE T TO MQ:AMORE
DO WHILE MQ:AMORE
* SET UP DEFAULT VALUES
 DO  BUD.FAU
ERASE
STORE  ' OPRET '  TO MQ:MODE
* GET DATA TO ADD
DO  BUD.IO
@ 21,07 SAY 'OPRET BUDGETTER. VED SLUT SÅ TAST KODE2 = BLANKE,     '
@ 22,07 SAY 'SAMT TAST RETUR  ELLER TAST CTRL- & W-TAST !          '
READ
* ARE WE DONE?
IF MKODE2  <>  '  '
SET EXACT ON
STORE MKODE2+MKONTOGRP TO MQ:KEY
FIND &MQ:KEY
SET EXACT OFF
IF # = 0
* PERFORM VALIDATION
 DO  BUD.VAL
 APPEND BLANK
* PUT SCREEN DATA INTO FILE
 REPLACE  KODE2  WITH  MKODE2
 REPLACE  KONTOGRP  WITH  MKONTOGRP
 REPLACE  BUBEL01  WITH  MBUBEL01
 REPLACE  BUBEL02  WITH  MBUBEL02
 REPLACE  BUBEL03  WITH  MBUBEL03
 REPLACE  BUBEL04  WITH  MBUBEL04
 REPLACE  BUBEL05  WITH  MBUBEL05
 REPLACE  BUBEL06  WITH  MBUBEL06
 REPLACE  BUBEL07  WITH  MBUBEL07
 REPLACE  BUBEL08  WITH  MBUBEL08
 REPLACE  BUBEL09  WITH  MBUBEL09
 REPLACE  BUBEL10  WITH  MBUBEL10
 REPLACE  BUBEL11  WITH  MBUBEL11
 REPLACE  BUBEL12  WITH  MBUBEL12
 REPLACE  KODE2GRP WITH  KODE2 + KONTOGRP
ELSE
 @ 21,07 SAY 'IKKE OPRETTET, DA NØGLEN FINDES I FORVEJEN !!          '
 @ 22,07 SAY '               TAST RETUR FOR AT FORTSÆTTE !!          '
 SET CONSOLE OFF
 WAIT
 SET CONSOLE ON
ENDIF  # = 0
ELSE
    STORE F TO MQ:AMORE
ENDIF
ENDDO
RELEASE MQ:MODE,MQ:AMORE
RELEASE MQ:KEY
* RELEASE INPUT FIELDS
RELEASE MKODE2
RELEASE MKONTOGRP
RELEASE MBUBEL01
RELEASE MBUBEL02
RELEASE MBUBEL03
RELEASE MBUBEL04
RELEASE MBUBEL05
RELEASE MBUBEL06
RELEASE MBUBEL07
RELEASE MBUBEL08
RELEASE MBUBEL09
RELEASE MBUBEL10
RELEASE MBUBEL11
RELEASE MBUBEL12
 «eof»