DataMuseum.dk

top - metrics - download

    Length: 6144 (0x1800)
    Types: TextFile
    Names: »LIVARER.RPT«

└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem
    └─⟦this⟧ »LIVARER.RPT« 
└─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem
    └─⟦this⟧ »LIVARER.RPT« 

TextFile

/PROMPT                                 // PROGRAM: LIVARER.RPT
******************************************************************************
***          UDSKRIFT AF VARER REGISTER  (VARER)                    M 41   ***
******************************************************************************

  UDSKRIFT tast OK, SLUT så tast UD .................: __

  Hvis ALT ønskes skrevet ud, så MINDSTE = blank & STØRSTE = å'er


  INDTAST MINDSTE VARENUMMER ........................: ___________

  INDTAST STØRSTE VARENUMMER ........................: ___________

  INDTAST AJOURFØRINGSMARKERING (O A U M ) .. ALT= X.: _

  INDTAST  S FOR SKÆRM,  ELLER  P FOR PRINTER .......: _
  TAST OK, HVIS PRINTER ER KLAR .....................: __

  ___________________________________
  ___________________________________
                                    _
******************************************************************************
/HEADER
 ____________________       UDGAVE: ___.       PR.: __/__/__         SIDE __.
 UDSKRIFT AF VARER REGISTER  (VARER)                            DEN: __/__/__
 -----------------------------------------------------------------------------
    VARENUMMER   *              VALUTA      D.KR    BIDRAG    D.GRAD     RABAT

/BODY RESIDENT
__  ___________  _   KOST ..:             _____.
                 _   LISTE .:             _____.    _____.    ___.__
                 _   FORH...:             _____.    _____.    ___.__    ___.__
                 _   DIST...:             _____.    _____.    ___.__    ___.__
                 _   ENGELSK:   _____.    _____.    _____.    ___.__
                 _   TYSK ..:   _____.    _____.    _____.    ___.__
                 _   SVENSK :   _____.    _____.    _____.    ___.__
                 _   NORSK .:   _____.    _____.    _____.    ___.__

                     PLS  ..:   _____________________________
                     DANSK .:   ________________________________________
                     PRODGRP:   ________________________________________
                     SORTNR.:   _   SH-GRP:  _   AJOUR.MARK: _  SKODE: _

/TOTAL

 ***  SLUT PÅ LISTE ***

/*
OPEN VARER 1
OPEN OPLYS
//
FORMAT PROMPT.1 ænoput,capslockå
FORMAT PROMPT.2 ænoput,capslockå
FORMAT PROMPT.3 ænoput,capslockå
FORMAT PROMPT.4 ænoput,capslock,check="OAUMX"å
FORMAT PROMPT.5 ænoput,capslock,check="SP"å
FORMAT PROMPT.6 ænoput,capslockå
FORMAT PROMPT.7 ædisplayonlyå
FORMAT PROMPT.8 ædisplayonlyå
FORMAT PROMPT.9 ænoput,capslock,check="S "å
INDICATOR ALLE       // true = ingen test på ajo, false = test på ajo
//
IGEN:
CLEARFORM PROMPT.1 THRU PROMPT.6
BLANKFORM PROMPT.7 THRU PROMPT.9
ACCEPT PROMPT.1
IF PROMPT.1 EQ "UD" CHAIN "OVERSIGT"
IF PROMPT.1 NE "OK" GOTO IGEN
ACCEPT PROMPT.2
ACCEPT PROMPT.3
IF PROMPT.2 GT PROMPT.3 BEGIN
   GOTO IGEN
END
ACCEPT PROMPT.4
IF PROMPT.4 NE 'X' INDICATE ALLE FALSE
IF PROMPT.4 EQ 'X' INDICATE ALLE TRUE
//
ACCEPT PROMPT.5
IF PROMPT.5 EQ "S" BEGIN
   OUTFILE "CON:"
   MOVE 22 TO PAGEEND
   MOVE -1 TO PAGEFEED
   GOTO HOP
END
IF PROMPT.5 EQ "P" BEGIN
   OUTFILE "LST:" 
   MOVE 72 TO PAGEFEED
   MOVE 66 TO PAGEEND
   ACCEPT PROMPT.6
   IF PROMPT.6 NE "OK" BEGIN
      GOTO IGEN
   END
END
//     KLARGØR FILER
HOP:
MOVE PROMPT.2 TO VARER.VNR
REPORT VARER BY INDEX.1
INDICATE SELECT AS VARER.VNR LE PROMPT.3
Æ NOT SELECT Å RETURN END.OF.REPORT
Æ NOT ALLE Å INDICATE SELECT AS VARER.AJO MATCH PROMPT.4
//      START HOVEDET
SECTION HEADER
  PRINT OPLYS.NAVN   TO HEADER.1
  PRINT OPLYS.UDGAVE TO HEADER.2
  PRINT OPLYS.PRDATO TO HEADER.3
  PRINT PAGECOUNT    TO HEADER.4
  PRINT OPLYS.AKDATO TO HEADER.5
  OUTPUT HEADER
//      START DETAIL LINIE
SECTION BODY
  PAGECHECK 15
  ÆPAGEBREAKÅ GOSUB NEWPAGE
  // LINIE 1
  PRINT '  '            TO BODY.1
  IF VARER.AJO EQ 'O' BEGIN
     PRINT 'NY'         TO BODY.1
  END
  IF VARER.AJO EQ 'U' BEGIN
     PRINT 'UD'         TO BODY.1
  END
  PRINT VARER.VNR      TO BODY.2
  PRINT VARER.SKOKOR   TO BODY.3
  PRINT VARER.SKOPRIS  TO BODY.4
  // LINIE 2
  PRINT VARER.LISKOR   TO BODY.5
  PRINT VARER.LISPRIS  TO BODY.6
  PRINT VARER.LISDB    TO BODY.7
  PRINT VARER.LISDG    TO BODY.8
  // LINIE 3
  PRINT VARER.FORKOR   TO BODY.9
  PRINT VARER.FORPRIS  TO BODY.10
  PRINT VARER.FORDB    TO BODY.11
  PRINT VARER.FORDG    TO BODY.12
  PRINT VARER.FORRABAT TO BODY.13
  // LINIE 4
  PRINT VARER.DISKOR   TO BODY.14
  PRINT VARER.DISPRIS  TO BODY.15
  PRINT VARER.DISDB    TO BODY.16
  PRINT VARER.DISDG    TO BODY.17
  PRINT VARER.DISRABAT TO BODY.18
  // LINIE 5
  PRINT VARER.ENGKOR   TO BODY.19
  PRINT VARER.ENGVALU  TO BODY.20
  PRINT VARER.ENGPRIS  TO BODY.21
  PRINT VARER.ENGDB    TO BODY.22
  PRINT VARER.ENGDG    TO BODY.23
  // LINIE 6
  PRINT VARER.TYSKOR   TO BODY.24
  PRINT VARER.TYSVALU  TO BODY.25
  PRINT VARER.TYSPRIS  TO BODY.26
  PRINT VARER.TYSDB    TO BODY.27
  PRINT VARER.TYSDG    TO BODY.28
  // LINIE 7
  PRINT VARER.SVEKOR   TO BODY.29
  PRINT VARER.SVEVALU  TO BODY.30
  PRINT VARER.SVEPRIS  TO BODY.31
  PRINT VARER.SVEDB    TO BODY.32
  PRINT VARER.SVEDG    TO BODY.33
  // LINIE 8
  PRINT VARER.NORKOR   TO BODY.34
  PRINT VARER.NORVALU  TO BODY.35
  PRINT VARER.NORPRIS  TO BODY.36
  PRINT VARER.NORDB    TO BODY.37
  PRINT VARER.NORDG    TO BODY.38
  // LINIE 9,10 OG 11
  PRINT VARER.PLSBETG  TO BODY.39
  PRINT VARER.DANSKET  TO BODY.40
  // LINIE 12 OG 13
  PRINT VARER.INDGARI  TO BODY.41
  PRINT VARER.SNR      TO BODY.42
  PRINT VARER.SHG      TO BODY.43
  PRINT VARER.AJO      TO BODY.44
  PRINT VARER.SKODE    TO BODY.45
  OUTPUT BODY
//      START TOTAL
SECTION TOTAL
  OUTPUT TOTAL
  FORMFEED
RETURN
//   PAUSE
RPT.KEYPRESS:
DISPLAY "DU HAR STOPPET LISTEN             !" TO PROMPT.7
DISPLAY "Tast S for STOP ellers tast RETUR !" TO PROMPT.8
ACCEPT PROMPT.9
IF PROMPT.9 IN "Ss" RETURN END$OF$REPORT
BLANKFORM PROMPT.7 THRU PROMPT.9
RETURN RPT.LOOP
//
REPORTEND
CHAIN "OVERSIGT"
«eof»