DataMuseum.dk

top - metrics - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »FEVARER.RPT«

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

TextFile

/PROMPT                                 // PROGRAM: FEVARER.RPT
******************************************************************************
***          FEJLLISTE UDSKRIFT AF VARER REGISTER  (VARER)          M 42   ***
******************************************************************************

  Udskriver alle varer, som ikke har korrekt feltindhold i henhold til aftale.
  (PLS-tekst blank, kost- dist- list-pris nul, s- h-waregruppe, produktgruppe)

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

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

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

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

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

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

  FEJLLISTE UDSKRIFT AF VARER REGISTER  (VARER)                 DEN: __/__/__
  BEMÆRK:   SW-NUMRE TESTES IKKE FOR KOSTPRIS = 0.
  ---------------------------------------------------------------------------

   VARENUMMER         FEJL

/SUBHEADER1
/BODY RESIDENT
   ___________        ________________________________________ 
/SUBTOTAL1
/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="SP"å
FORMAT PROMPT.5 ænoput,capslockå
FORMAT PROMPT.6 ædisplayonlyå
FORMAT PROMPT.7 ædisplayonlyå
FORMAT PROMPT.8 ænoput,capslock,check="S "å
STRING KODEN 1
MOVE '4' TO KODEN
//
IGEN:
CLEARFORM PROMPT.1 THRU PROMPT.5
BLANKFORM PROMPT.6 THRU PROMPT.8
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 GOTO IGEN
//
ACCEPT PROMPT.4
IF PROMPT.4 EQ "S" BEGIN
   OUTFILE "CON:"
   MOVE 22 TO PAGEEND
   MOVE -1 TO PAGEFEED
   GOTO HOP
END
IF PROMPT.4 EQ "P" BEGIN
   OUTFILE "LST:" 
   MOVE 72 TO PAGEFEED
   MOVE 62 TO PAGEEND
   ACCEPT PROMPT.5
   IF PROMPT.5 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
Æ SELECT Å INDICATE SELECT AS VARER.SKODE MATCH KODEN
//      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 SUBHEADER 1
SECTION SUBHEADER1
  OUTPUT SUBHEADER1
//      START DETAIL LINIE
SECTION BODY
  IF VARER.SHG NE 'S' BEGIN
   IF VARER.SHG NE 'H' BEGIN
      PRINT VARER.VNR TO BODY.1
      PRINT 'Software-Hardware gruppe ej S ell. H...!' TO BODY.2
      OUTPUT BODY
      PAGECHECK 1
      ÆPAGEBREAKÅ GOSUB NEWPAGE
   END
  END
  IF VARER.PLSBETG EQ ' ' BEGIN
      PRINT VARER.VNR TO BODY.1
      PRINT 'PLS-tekst mangler  ....................!' TO BODY.2
      OUTPUT BODY
      PAGECHECK 1
      ÆPAGEBREAKÅ GOSUB NEWPAGE
  END
  IF VARER.VNR NE 'SW' BEGIN
     IF VARER.SKOPRIS LE 0 BEGIN
        PRINT VARER.VNR TO BODY.1
        PRINT 'STANDARD KOST PRIS EJ OK ..............!' TO BODY.2
        OUTPUT BODY
        PAGECHECK 1
        ÆPAGEBREAKÅ GOSUB NEWPAGE
     END
  END
  IF VARER.LISPRIS LE 0 BEGIN
      PRINT VARER.VNR TO BODY.1
      PRINT 'LISTE PRIS EJ OK ......................!' TO BODY.2
      OUTPUT BODY
      PAGECHECK 1
      ÆPAGEBREAKÅ GOSUB NEWPAGE
  END
  IF VARER.INDGARI EQ '                                        ' BEGIN
      PRINT VARER.VNR TO BODY.1
      PRINT 'Vare indgår ikke i produktgrupper .....!' TO BODY.2
      OUTPUT BODY
      PAGECHECK 1
      ÆPAGEBREAKÅ GOSUB NEWPAGE
  END
//      START SUBTOTAL 1
SECTION SUBTOTAL1
  OUTPUT SUBTOTAL1
//      START TOTAL
SECTION TOTAL
  OUTPUT TOTAL
  FORMFEED
RETURN
//   PAUSE
RPT.KEYPRESS:
DISPLAY "DU HAR STOPPET LISTEN             !" TO PROMPT.6
DISPLAY "Tast S for STOP ellers tast RETUR !" TO PROMPT.7
ACCEPT PROMPT.8
IF PROMPT.8 IN "Ss" RETURN END$OF$REPORT
BLANKFORM PROMPT.6 THRU PROMPT.8
RETURN RPT.LOOP
//
REPORTEND
CHAIN "OVERSIGT"
«eof»