DataMuseum.dk

top - metrics - download

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

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

TextFile

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

PROGRAM NAVN  ............:    AJOURFØR PRODUKT REGISTER MED PLS DATA.

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


GAMLE PRODUKT OPLYSNINGER.:    ___________

NYE PRODUKT OPLYSNINGER...:    ___________


BEMÆRKNING ...............:    ______________________________

                               ______________________________

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. Ajourførings markeringen sættes lig med 'U' i PRODU.
                  2. fra OVPRODU.TXT læses nye data over i PRODU,
                     hvis det er en ny record sættes markeringen = 'O',
                     ellers med 'A' for opdateret.
                     Ikke opdaterede record er 'U'.
                     AJOUFØRT PRODUKT dato i OPLYS opdateres med aktuel dato.

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å kan
                  du ikke anvende SYSTEMET, før du har startet forfra, 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 ædisplayonlyå
FORMAT PROMPT.6 æcapslock,check="S "å
STRING NYPNR 2
STRING NYPTEKST 29
INTEGER OLDLAST
INTEGER NEWLAST
MOVE 0 TO OLDLAST
MOVE 0 TO NEWLAST
OPEN PRODU
OPEN OPLYS
//
ENTER PRODU
//
OM:
DISPLAY 'HUSK AT AKTUEL DATO I  ' TO PROMPT.4
DISPLAY 'OPLYS ANVENDES HER    !' TO PROMPT.5
ACCEPT PROMPT.1
IF PROMPT.1 EQ 'N' BEGIN
   CHAIN "OVERSIGT"
END
IF PROMPT.1 NE 'J' BEGIN
   GOTO OM
END
//
//    1. RUNDE   sæt 'U' i alle records i PRODU      ***
//
DISPLAY '1. MARKER GL. RECORDS  !' TO PROMPT.4
DISPLAY ' - -   VENT        - - !' TO PROMPT.5
FIND GE PRODU BY RECNUM
//
ÆFOUNDÅ REPEAT
    MOVE 'U' TO PRODU.AJO
    DISPLAY PRODU.PNR TO PROMPT.2
    SAVERECORD PRODU
    INCREMENT OLDLAST
    KEYCHECK GOSUB UDRUTINE
    FIND GT PRODU BY RECNUM
ÆFOUNDÅ LOOP
//
DISPLAY OLDLAST TO PROMPT.2
DISPLAY 'MARKERET GL. RECORDS   !' TO PROMPT.4
DISPLAY '  --- FORTSÆTTER ---   !' TO PROMPT.5
//
//    2. RUNDE   opdater fra OVPRODU.TXT  til PRODU      ***
//
DISPLAY '    ' TO PROMPT.3
DISPLAY '2. OPDATER MED NYE DATA!' TO PROMPT.4
DISPLAY ' - -   VENT        - - !' TO PROMPT.5
STRING TEMSTR
DIRECT_INPUT "OVPRODU.TXT"
ÆSEQEOFÅ GOTO SLUT1
// LØKKE FOR LÆS OVPRODU.TXT
REPEAT
    READLN NYPNR
    IF NYPNR EQ 'SL' BEGIN
       INDICATE SEQEOF TRUE
       GOTO SLUT1
    END
    READLN NYPTEKST
    UPPERCASE NYPTEKST
    // OPDAT PRODU
    CLEAR PRODU
    MOVE NYPNR TO PRODU.PNR
    FIND EQ PRODU BY INDEX.1
    DISPLAY PRODU.PNR TO PROMPT.3
    ÆFOUNDÅ BEGIN
       MOVE NYPTEKST TO PRODU.PTEKST
       MOVE 'A' TO PRODU.AJO
       SAVERECORD PRODU
    END
    ÆFINDERRÅ BEGIN
       CLEAR PRODU
       MOVE NYPNR TO PRODU.PNR
       MOVE NYPTEKST TO PRODU.PTEKST
       MOVE 'O' TO PRODU.AJO
       SAVERECORD PRODU
    END
    KEYCHECK GOSUB UDRUTINE
    INCREMENT NEWLAST
ÆNOT SEQEOFÅ LOOP
//
SLUT1:
  IF NEWLAST GT 0 BEGIN
     MOVE OPLYS.AKDATO TO OPLYS.OVPRODU
     SAVE OPLYS
  END
  DISPLAY NEWLAST TO PROMPT.3
  DISPLAY 'OPDATERET MED NYE DATA !' TO PROMPT.4
  DISPLAY 'SLUT 2 --  TRYK RETUR  !' TO PROMPT.5
  ACCEPT PROMPT.6
  KEYCHECK GOSUB UDRUTINE
  CHAIN "DEPRODU"
//
UDRUTINE:
    INDICATE KEYPRESS FALSE 
    DISPLAY 'DU HAR STOPPET PROGRAMMET !' TO PROMPT.4
    DISPLAY 'TAST S (STOP) ELLER TRYK RETUR' TO PROMPT.5
    ACCEPT PROMPT.6
    IF PROMPT.6 IN "Ss" CHAIN "OVERSIGT"
RETURN
//
KEYPROC KEY.HELP:
    HELP
    ENTAGAIN
RETURN
//
ENTEREND
CHAIN "OVERSIGT"
«eof»