DataMuseum.dk

top - metrics - download

    Length: 4992 (0x1380)
    Types: TextFile
    Names: »SLVARER.FRM«

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

TextFile

/PROMF                                 // PROGRAM: SLVARER.FRM
*****************************************************************************
***              P R I S L I S T E     S Y S T E M                 M 47   ***
*****************************************************************************

PROGRAM NAVN  ............:    SLET PRISÆNDRINGS MARKERINGER EKSPORT PRISER.


START= SP, SLUT= N .......:    __       HJÆLP FINDES HER !


TAST VALG AF EKSPORT PRIS:     _         X = ALLE, E = ENGELSK, T = TYSK 
                                                   S = SVENSK,  N = NORSK


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 SP så udfører dette program
                  følgende:

                  PRISÆNDRINGS MARKERINGER for den valgte eksport pris
                  sættes = blank.
                  Vælg E for engelsk, T for TYSK, S for svensk, N for Norsk,
                  ELLER X for alle fire !

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å bør
                  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 PROMF.1 æcapslockå
FORMAT PROMF.2 æcapslockå
FORMAT PROMF.3 ædisplayonlyå
FORMAT PROMF.4 ædisplayonlyå
FORMAT PROMF.5 æcapslock,check="S "å
OPEN VARER
ENTER VARER
//
OM:
CLEARFORM PROMF.1 THRU PROMF.5
ACCEPT PROMF.1
IF PROMF.1 EQ 'N' CHAIN "OVERSIGT"
IF PROMF.1 NE 'SP' GOTO OM
ACCEPT PROMF.2
IF PROMF.2 EQ 'X' GOTO ALLE
IF PROMF.2 EQ 'E' GOTO ENGLAND
IF PROMF.2 EQ 'T' GOTO TYSKLAND
IF PROMF.2 EQ 'S' GOTO SVERIGE
IF PROMF.2 EQ 'N' GOTO NORGE
GOTO OM
//
ALLE:
//         sæt ' ' i prismarkeringer alle eksport priser      ***
//
DISPLAY 'PRISÆNDRINGS MARKERING !' TO PROMF.3
DISPLAY 'ALLE 4 LANDE  -- VENT  !' TO PROMF.4
MOVE 0 TO VARER.RECNUM
FIND GE VARER BY RECNUM
//
ÆFOUNDÅ REPEAT
  MOVE ' ' TO VARER.ENGKOR
  MOVE ' ' TO VARER.TYSKOR
  MOVE ' ' TO VARER.SVEKOR
  MOVE ' ' TO VARER.NORKOR
  SAVERECORD VARER
  KEYCHECK GOSUB UDRUTINE
  FIND GT VARER BY RECNUM
ÆFOUNDÅ LOOP
GOTO SLUT
//
ENGLAND:
//  sæt ' ' i prismarkeringer ENGELSKE eksport priser      ***
//
DISPLAY 'PRISÆNDRINGS MARKERING !' TO PROMF.3
DISPLAY 'ENGELSKE       - VENT  !' TO PROMF.4
MOVE 0 TO VARER.RECNUM
FIND GE VARER BY RECNUM
//
ÆFOUNDÅ REPEAT
  MOVE ' ' TO VARER.ENGKOR
  SAVERECORD VARER
  KEYCHECK GOSUB UDRUTINE
  FIND GT VARER BY RECNUM
ÆFOUNDÅ LOOP
GOTO SLUT
//
TYSKLAND:
//  sæt ' ' i prismarkeringer TYSKE eksport priser      ***
//
DISPLAY 'PRISÆNDRINGS MARKERING !' TO PROMF.3
DISPLAY 'TYSKE          - VENT  !' TO PROMF.4
MOVE 0 TO VARER.RECNUM
FIND GE VARER BY RECNUM
//
ÆFOUNDÅ REPEAT
  MOVE ' ' TO VARER.TYSKOR
  SAVERECORD VARER
  KEYCHECK GOSUB UDRUTINE
  FIND GT VARER BY RECNUM
ÆFOUNDÅ LOOP
GOTO SLUT
//
SVERIGE:
//  sæt ' ' i prismarkeringer SVENSKE eksport priser      ***
//
DISPLAY 'PRISÆNDRINGS MARKERING !' TO PROMF.3
DISPLAY 'SVENSKE        - VENT  !' TO PROMF.4
MOVE 0 TO VARER.RECNUM
FIND GE VARER BY RECNUM
//
ÆFOUNDÅ REPEAT
  MOVE ' ' TO VARER.SVEKOR
  SAVERECORD VARER
  KEYCHECK GOSUB UDRUTINE
  FIND GT VARER BY RECNUM
ÆFOUNDÅ LOOP
GOTO SLUT
//
NORGE:
//  sæt ' ' i prismarkeringer NORSKE eksport priser      ***
//
DISPLAY 'PRISÆNDRINGS MARKERING !' TO PROMF.3
DISPLAY 'NORSKE         - VENT  !' TO PROMF.4
MOVE 0 TO VARER.RECNUM
FIND GE VARER BY RECNUM
//
ÆFOUNDÅ REPEAT
  MOVE ' ' TO VARER.NORKOR
  SAVERECORD VARER
  KEYCHECK GOSUB UDRUTINE
  FIND GT VARER BY RECNUM
ÆFOUNDÅ LOOP
//
SLUT:
DISPLAY 'MARKERING FORETAGET    !' TO PROMF.3
DISPLAY 'SLUT  -- TRYK RETUR    !' TO PROMF.4
ACCEPT PROMF.5
KEYCHECK GOSUB UDRUTINE
CHAIN "OVERSIGT"
//
UDRUTINE:
 INDICATE KEYPRESS FALSE 
 DISPLAY 'DU HAR STOPPET PROGRAMMET !' TO PROMF.3
 DISPLAY 'TAST S (STOP) ELLER TRYK RETUR' TO PROMF.4
 ACCEPT PROMF.5
 IF PROMF.5 IN "Ss" CHAIN "OVERSIGT"
RETURN
//
KEYPROC KEY.HELP:
    HELP
    ENTAGAIN
RETURN
//
ENTEREND
CHAIN "OVERSIGT"
«eof»