DataMuseum.dk

top - metrics - download

    Length: 5888 (0x1700)
    Types: TextFile
    Names: »LIKON.RPT«

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

TextFile

/PROMPT                                 // PROGRAM: LIKON.RPT
******************************************************************************
***          UDSKRIFT AF KONTROL PRISLISTE                          M 11   ***
******************************************************************************

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

  Hvis ALT ønskes skrevet ud, så MINDSTE = 01 & STØRSTE = 40

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

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

  INDTAST SALGSBARHEDSKODE, X = ALLE ELLERS ET TAL ..: _

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

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

  ______________________
  ______________________
                       _
******************************************************************************
/HEADER
 ____________________         UDGAVE: ___.     PR.: __/__/__        SIDE __.
/SUBHEADER1
 KONTROL PRISLISTE  PNR.: __  _____________________________    DEN: __/__/__
 -----------------------------------------------------------------------------
    VARENUMMER        *         VALUTA      D.KR    BIDRAG    D.GRAD     RABAT

/BODY RESIDENT
__  ___________  _ _  _  KOST :           _____.
                      _  LISTE:           _____.    _____.    ___.__
                      _  FORH.:           _____.    _____.    ___.__    ___.__
                      _  DIST.:           _____.    _____.    ___.__    ___.__
                      _  ENG..: _____.    _____.    _____.    ___.__
                      _  TYS..: _____.    _____.    _____.    ___.__
                      _  SVE..: _____.    _____.    _____.    ___.__
                      _  NOR..: _____.    _____.    _____.    ___.__

/SUBTOTAL1

 ***  SLUT PRODUKT NUMMER  ***
/TOTAL
/*
OPEN PROVA 1
OPEN VARER
OPEN PRODU
OPEN OPLYS
//
STRING BEM 2
FORMAT PROMPT.1 ænoput,capslockå
FORMAT PROMPT.2 ænoputå
FORMAT PROMPT.3 ænoputå
FORMAT PROMPT.4 ænoput,capslockå
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 = ALLE SKODER,  FALSE = EN GIVEN SKODE
//
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
IF PROMPT.2 LT '00' GOTO IGEN
ACCEPT PROMPT.3
IF PROMPT.3 GT '40' GOTO IGEN
IF PROMPT.2 GT PROMPT.3 GOTO IGEN
//
ACCEPT PROMPT.4
IF PROMPT.4 EQ 'X' INDICATE ALLE TRUE
IF PROMPT.4 NE 'X' INDICATE ALLE FALSE
//
ACCEPT PROMPT.5
IF PROMPT.5 EQ "S" BEGIN
   OUTFILE "CON:"
   MOVE 22 TO PAGEEND
   MOVE -1 TO PAGEFEED
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
MOVE PROMPT.2 TO PROVA.PNR
REPORT PROVA BY INDEX.1 BREAK PROVA.PNR
INDICATE SELECT AS PROVA.PNR LE PROMPT.3
Æ NOT SELECT Å RETURN END.OF.REPORT
//      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
  OUTPUT HEADER
//      START SUBHEADER 1
SECTION SUBHEADER1
  PRINT PRODU.PNR    TO SUBHEADER1.1
  PRINT PRODU.PTEKST TO SUBHEADER1.2
  PRINT OPLYS.AKDATO TO SUBHEADER1.3
  OUTPUT SUBHEADER1
//      START DETAIL LINIE
SECTION BODY
Æ NOT ALLE Å BEGIN
  IF VARER.SKODE NE PROMPT.4 GOTO UDBODY
END
  PAGECHECK 10
  ÆPAGEBREAKÅ GOSUB NEWPAGE
  // LINIE 1
  MOVE '  ' TO BEM
  IF VARER.AJO EQ 'O' BEGIN
     MOVE 'NY' TO BEM
  END
  IF VARER.AJO EQ 'U' BEGIN
     MOVE 'UD' TO BEM
  END
  PRINT BEM            TO BODY.1
  PRINT VARER.VNR      TO BODY.2
  PRINT VARER.SKODE    TO BODY.3
  PRINT VARER.SHG      TO BODY.4
  PRINT VARER.SKOKOR   TO BODY.5
  PRINT VARER.SKOPRIS  TO BODY.6
  // LINIE 2
  PRINT VARER.LISKOR   TO BODY.7
  PRINT VARER.LISPRIS  TO BODY.8
  PRINT VARER.LISDB    TO BODY.9
  PRINT VARER.LISDG    TO BODY.10
  // LINIE 3
  PRINT VARER.FORKOR   TO BODY.11
  PRINT VARER.FORPRIS  TO BODY.12
  PRINT VARER.FORDB    TO BODY.13
  PRINT VARER.FORDG    TO BODY.14
  PRINT VARER.FORRABAT TO BODY.15
  // LINIE 4
  PRINT VARER.DISKOR   TO BODY.16
  PRINT VARER.DISPRIS  TO BODY.17
  PRINT VARER.DISDB    TO BODY.18
  PRINT VARER.DISDG    TO BODY.19
  PRINT VARER.DISRABAT TO BODY.20
  // LINIE 5
  PRINT VARER.ENGKOR   TO BODY.21
  PRINT VARER.ENGVALU  TO BODY.22
  PRINT VARER.ENGPRIS  TO BODY.23
  PRINT VARER.ENGDB    TO BODY.24
  PRINT VARER.ENGDG    TO BODY.25
  // LINIE 6
  PRINT VARER.TYSKOR   TO BODY.26
  PRINT VARER.TYSVALU  TO BODY.27
  PRINT VARER.TYSPRIS  TO BODY.28
  PRINT VARER.TYSDB    TO BODY.29
  PRINT VARER.TYSDG    TO BODY.30
  // LINIE 7
  PRINT VARER.SVEKOR   TO BODY.31
  PRINT VARER.SVEVALU  TO BODY.32
  PRINT VARER.SVEPRIS  TO BODY.33
  PRINT VARER.SVEDB    TO BODY.34
  PRINT VARER.SVEDG    TO BODY.35
  // LINIE 8
  PRINT VARER.NORKOR   TO BODY.36
  PRINT VARER.NORVALU  TO BODY.37
  PRINT VARER.NORPRIS  TO BODY.38
  PRINT VARER.NORDB    TO BODY.39
  PRINT VARER.NORDG    TO BODY.40
  OUTPUT BODY
UDBODY:
//      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.7
DISPLAY "Tast S STOP ell.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»