DataMuseum.dk

top - metrics - download

    Length: 5760 (0x1680)
    Types: TextFile
    Names: »LIPRI.RPT«

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

TextFile

/PROMPT                                 // PROGRAM: LIPRI.RPT
******************************************************************************
***          UDSKRIFT AF PRISLISTER  salgsbarhedskode 4             M 12   ***
******************************************************************************

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

  INDTAST MINDSTE PRODUKTNUMMER .....................: __

  INDTAST STØRSTE PRODUKTNUMMER .....................: __

  VÆLG PRIS   Liste, Distributør, Forhandler  (LDF)..: _

  VÆLG TEKST  Pls eller Dansk ..............  (PD) ..: _

  INDTAST  S FOR SKÆRM,  ELLER  P FOR PRINTER .......: _

  TAST OK, HVIS PRINTER ER KLAR .....................: __

  ___________________________________
  ___________________________________
                                    _
******************************************************************************
/HEADER
       PRISLISTE         UDGAVE: ___.       PR.: __/__/__            SIDE __.

/SUBHEADER1
       FOR  _____________________________                       DEN: __/__/__
       ----------------------------------------------------------------------

       ______________                                             ___________
/SUBHEADER2

       ________
       ________

/BODY RESIDENT
   __  ___________     ________________________________________    ___,__.  _
/SUBTOTAL2
/SUBTOTAL1
/TOTAL
/*
OPEN PROVA 1
OPEN VARER
OPEN PRODU
OPEN OPLYS
//
STRING KODEN 1
MOVE '4' TO KODEN
STRING BEMARK 1
STRING SUBTEKST21 8
STRING SUBTEKST22 8
MOVE '========' TO SUBTEKST22
STRING SUBTEKST11 14
STRING SUBTEKST12 11
INDICATOR FORSTE
INDICATE FORSTE TRUE
FORMAT BODY.3 æfill="."å
FORMAT PROMPT.1 ænoput,capslockå
FORMAT PROMPT.2 ænoputå
FORMAT PROMPT.3 ænoputå
FORMAT PROMPT.4 ænoput,capslock,check="LDF"å
FORMAT PROMPT.5 ænoput,capslock,check="PD"å
FORMAT PROMPT.6 ænoput,capslock,check="SP"å
FORMAT PROMPT.7 ænoput,capslockå
FORMAT PROMPT.8 ædisplayonlyå
FORMAT PROMPT.9 ædisplayonlyå
FORMAT PROMPT.10 ænoput,capslock,check="S "å
//
IGEN:
CLEARFORM PROMPT.1 THRU PROMPT.7
BLANKFORM PROMPT.8 THRU PROMPT.10
//
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 LT '00' GOTO IGEN
IF PROMPT.3 GT '40' GOTO IGEN
IF PROMPT.2 GT PROMPT.3 BEGIN
   GOTO IGEN
END
//
ACCEPT PROMPT.4
ACCEPT PROMPT.5
IF PROMPT.4 EQ 'L' BEGIN
   MOVE '              ' TO SUBTEKST11
   MOVE 'LISTEPRISER' TO SUBTEKST12
END
IF PROMPT.4 EQ 'D' BEGIN
   MOVE '* FORTROLIGT *' TO SUBTEKST11
   MOVE 'DISTRIBUTØR' TO SUBTEKST12
END
IF PROMPT.4 EQ 'F' BEGIN
   MOVE '* FORTROLIGT *' TO SUBTEKST11
   MOVE 'FORHANDLERE' TO SUBTEKST12
END
//
ACCEPT PROMPT.6
IF PROMPT.6 EQ "S" BEGIN
   OUTFILE "CON:"
   MOVE 22 TO PAGEEND
   MOVE -1 TO PAGEFEED
   GOTO HOP
END
IF PROMPT.6 EQ "P" BEGIN
   OUTFILE "LST:" 
   MOVE 72 TO PAGEFEED
   MOVE 66 TO PAGEEND
   ACCEPT PROMPT.7
   IF PROMPT.7 NE "OK" BEGIN
      GOTO IGEN
   END
END
//     KLARGØR FILER
HOP:
MOVE PROMPT.2 TO PROVA.PNR
REPORT PROVA BY INDEX.1 BREAK PROVA.PNR PROVA.SHG
INDICATE SELECT AS PROVA.PNR LE PROMPT.3
Æ NOT SELECT Å RETURN END.OF.REPORT
//      START HOVEDET
SECTION HEADER
  PRINT OPLYS.UDGAVE TO HEADER.1
  PRINT OPLYS.PRDATO TO HEADER.2
  PRINT PAGECOUNT    TO HEADER.3
  OUTPUT HEADER
//      START SUBHEADER 1
SECTION SUBHEADER1
  PRINT PRODU.PTEKST TO SUBHEADER1.1
  PRINT OPLYS.AKDATO TO SUBHEADER1.2
  PRINT SUBTEKST11   TO SUBHEADER1.3
  PRINT SUBTEKST12   TO SUBHEADER1.4
  OUTPUT SUBHEADER1
//      START SUBHEADER 2
SECTION SUBHEADER2
  IF PROVA.SHG EQ 'S' BEGIN
     MOVE 'SOFTWARE' TO SUBTEKST21
  END
  IF PROVA.SHG EQ 'H' BEGIN
     MOVE 'HARDWARE' TO SUBTEKST21
  END
  Æ FORSTE Å PRINT SUBTEKST21
  Æ FORSTE Å PRINT SUBTEKST22
  INDICATE FORSTE FALSE
  OUTPUT SUBHEADER2
//      START DETAIL LINIE
SECTION BODY
  INDICATE FORSTE FALSE
  IF VARER.SKODE NE KODEN GOTO UDBODY
  // NYT PRODUKT = O I AJO ELLER UDGÅET = U I AJO
  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
  // FIND TEKST
  IF PROMPT.5 EQ 'P' BEGIN
     PRINT VARER.PLSBETG TO BODY.3
  END
  //
  IF PROMPT.5 EQ 'D' BEGIN
     IF VARER.DANSKET NE ' ' BEGIN
        PRINT VARER.DANSKET TO BODY.3
     END
     IF VARER.DANSKET EQ ' ' BEGIN
        PRINT VARER.PLSBETG TO BODY.3
     END
  END
  // FIND PRIS
  MOVE ' ' TO BEMARK
  IF PROMPT.4 EQ 'D' BEGIN
     PRINT VARER.DISPRIS TO BODY.4
     MOVE VARER.DISKOR TO BEMARK
  END
  IF PROMPT.4 EQ 'L' BEGIN
     PRINT VARER.LISPRIS TO BODY.4
     MOVE VARER.LISKOR TO BEMARK
  END
  IF PROMPT.4 EQ 'F' BEGIN
     PRINT VARER.FORPRIS TO BODY.4
     MOVE VARER.FORKOR TO BEMARK
  END
  IF BEMARK EQ ' ' BEGIN
     PRINT ' ' TO BODY.5
  END
  IF BEMARK NE ' ' BEGIN
     PRINT '*' TO BODY.5
  END
  OUTPUT BODY
UDBODY:
//      START SUBTOTAL 2
SECTION SUBTOTAL2
  OUTPUT SUBTOTAL2
  INDICATE FORSTE TRUE
//      START SUBTOTAL 1
SECTION SUBTOTAL1
  OUTPUT SUBTOTAL1
  MOVE 0 TO PAGECOUNT
  ÆSELECTÅ PAGECHECK 73
  ÆPAGEBREAKÅ GOSUB NEWPAGE
//      START TOTAL
SECTION TOTAL
  OUTPUT TOTAL
  FORMFEED
RETURN
//   PAUSE
RPT.KEYPRESS:
DISPLAY "DU HAR STOPPET LISTEN             !" TO PROMPT.8
DISPLAY "Tast S for STOP ellers tast RETUR !" TO PROMPT.9
ACCEPT PROMPT.10
IF PROMPT.10 IN "Ss" RETURN END$OF$REPORT
BLANKFORM PROMPT.8 THRU PROMPT.10
RETURN RPT.LOOP
//
REPORTEND
CHAIN "OVERSIGT"
«eof»