DataMuseum.dk

top - metrics - download

    Length: 4864 (0x1300)
    Types: TextFile
    Names: »AJPROVA.FRM«

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

TextFile

/PROMPT                                 // PROGRAM: AJPROVA.FRM
*****************************************************************************
***              P R I S L I S T E     S Y S T E M                 M 25   ***
*****************************************************************************

PROGRAM NAVN  ............:    DANNER INDEKS TIL PRISLISTER.


START= Ja, SLUT= Nej .....:    _        HJÆLP FINDES HER !

ANTAL OPRETTET RECORDS ...:    ___________

BEMÆRKNING ell. VARENUMMER:    ______________________________

                               ______________________________

SVAR TIL BEMÆRKNING ......:    _        HJÆLP FINDES HER !

*****************************************************************************_
/HELP1
=============================================================================
===               OPLYSNINGER  OM  PROGRAMMET                             ===
=============================================================================

START             Hvis du svarer N (nej) udføres programmet IKKE, og du
                  kommer tilbage til menu-billedet.

                  Hvis du derimod svarer J (ja) så sættes programmet igang
                  og gør følgende:

                  1. PROVA INDEKS FILE nulstilles.
                  2. Alle VARER læses, og nøgler overføres til PROVA.


AFBRYD            Du kan afbryde programmet ved at trykke på et tilfældigt
                  bogstav under kørsel, og ENTEN vælge S for stop, men så skal
                  du køre dette program om inden udskrift af prislister,
                  ELLER tryk RETUR, og så vil programmet fortsætte.

tryk på en tast for RETUR til billed.
=============================================================================
/*
//
FORMAT PROMPT.1 æcapslockå
FORMAT PROMPT.2 ædisplayonlyå
FORMAT PROMPT.3 ædisplayonlyå
FORMAT PROMPT.4 ædisplayonlyå
FORMAT PROMPT.5 æcapslock,check="S "å
FORMAT PROMPT.6 ædisplayonlyå
INTEGER ANTAL
INTEGER TV
INTEGER GEM
STRING FELT 1
//
OPEN PROVA
OPEN VARER
OPEN PRODU
ENTER PROVA VARER
//
OM:
ACCEPT PROMPT.1
IF PROMPT.1 EQ 'N' CHAIN "OVERSIGT"
IF PROMPT.1 NE 'J' GOTO OM
//
//         1. RUNDE   nulstil PROVA                     ***
//
DISPLAY 'SLETTER PROVA FILEN OG ' TO PROMPT.3
DISPLAY 'INDEKS  - -  VENT  - - !' TO PROMPT.4
DISPLAY ' ' TO PROMPT.6
//
ZEROFILE PROVA
//
DISPLAY ' ' TO PROMPT.6
DISPLAY 'PROVA ER SLETTET       !' TO PROMPT.3
DISPLAY '---------  fortsætter  !' TO PROMPT.4
//
//  NU SKAL DET HØJESTE EKSISTERENDE PRODUKTNUMMER GEMMES I TV:GEM ***
//
MOVE 0 TO GEM
FIND GE PRODU BY RECNUM
ÆFOUNDÅ REPEAT
  INCREMENT GEM
  FIND GT PRODU BY RECNUM
ÆFOUNDÅ LOOP
//
CLEARSCREEN
DISPLAY GEM TO PROMPT.2
DISPLAY 'ANTAL PRODUKTGRUPPER   !' TO PROMPT.3
DISPLAY '---------  TRYK RETUR  !' TO PROMPT.4
ACCEPT PROMPT.5
//
//         2. RUNDE   dan  PROVA                        ***
//
DISPLAY '                        ' TO PROMPT.3
DISPLAY 'DANNER NY PROVA, VENT ..' TO PROMPT.4
DISPLAY ' ' TO PROMPT.5
MOVE 0 TO ANTAL
FIND GE VARER BY RECNUM
//
ÆFOUNDÅ REPEAT
 MOVE 0 TO TV
 DISPLAY VARER.VNR TO PROMPT.3
 DISPLAY ANTAL TO PROMPT.2
 REPEAT
  INCREMENT TV
  MID VARER.INDGARI TO FELT 1 TV
  IF FELT EQ "." BEGIN
   CLEAR PROVA
   MOVE TV TO PROVA.PNR
   IF TV GT 9 BEGIN
      GOTO HOPUD
   END
   IF PROVA.PNR EQ '1 ' MOVE '01' TO PROVA.PNR
   IF PROVA.PNR EQ '2 ' MOVE '02' TO PROVA.PNR
   IF PROVA.PNR EQ '3 ' MOVE '03' TO PROVA.PNR
   IF PROVA.PNR EQ '4 ' MOVE '04' TO PROVA.PNR
   IF PROVA.PNR EQ '5 ' MOVE '05' TO PROVA.PNR
   IF PROVA.PNR EQ '6 ' MOVE '06' TO PROVA.PNR
   IF PROVA.PNR EQ '7 ' MOVE '07' TO PROVA.PNR
   IF PROVA.PNR EQ '8 ' MOVE '08' TO PROVA.PNR
   IF PROVA.PNR EQ '9 ' MOVE '09' TO PROVA.PNR
   HOPUD:
   MOVE VARER.SHG TO PROVA.SHG
   MOVE VARER.SNR TO PROVA.SNR
   MOVE VARER.VNR TO PROVA.VNR
   SAVERECORD PROVA
   INCREMENT ANTAL
  END
 UNTIL TV EQ GEM
 SAVERECORD VARER
 KEYCHECK GOSUB UDRUTINE
 FIND GT VARER BY RECNUM
ÆFOUNDÅ LOOP
//
DISPLAY ANTAL TO PROMPT.2
DISPLAY 'ANTAL RECORDS I PROVA  !' TO PROMPT.3
DISPLAY '---------  TRYK RETUR  !' TO PROMPT.4
ACCEPT PROMPT.5
//
SLUT3:
 DISPLAY ANTAL TO PROMPT.2
 DISPLAY 'PROGRAMMET ER FÆRDIGT  !' TO PROMPT.3
 DISPLAY 'TRYK RETUR             !' TO PROMPT.4
 DISPLAY ' ' TO PROMPT.5
 ACCEPT PROMPT.5
 CHAIN "OVERSIGT"
//
UDRUTINE:
 INDICATE KEYPRESS FALSE 
 DISPLAY 'DU HAR STOPPET PROGRAMMET !' TO PROMPT.3
 DISPLAY 'TAST S (STOP) ELLER TRYK RETUR' TO PROMPT.4
 ACCEPT PROMPT.5
 IF NOT PROMPT.5 IN "Ss" RETURN
 ZEROFILE PROVA
 MOVE 0 TO ANTAL
 GOTO SLUT3
RETURN
//
KEYPROC KEY.HELP:
    HELP
    ENTAGAIN
RETURN
//
ENTEREND
CHAIN "OVERSIGT"
«eof»