DataMuseum.dk

top - metrics - download

    Length: 6016 (0x1780)
    Types: TextFile
    Names: »ONVARERN.FRM«

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

TextFile

/VARAR                                  // PROGRAM: ONVARERN.FRM
*****************************************************************************
***   VEDLIGEHOLDELSE AF VARE REGISTER  NORSKE PRISER              M 40N  ***
*****************************************************************************
VARENUMMER ......:   (___________)     SORT..: (_)        SHGRUP..: (_)
PLS TEKST .......:   _____________________________
DANSK TEKST .....:   ________________________________________
                     *   VALUTA      D.KR     BIDRAG      D.GRAD      RABAT
                     -   ------    ------     ------      ------     ------
KOST ............:   _             _____.
LISTE ...........:   _             _____.     _____.      ___.__
FORHANDLER ......:   _             _____.     _____.      ___.__     ___.__
DISTRIBUTØR .....:   _             _____.     _____.      ___.__     ___.__
ENGLAND .........:   _   _____.    _____.     _____.      ___.__
TYSKLAND ........:   _   _____.    _____.     _____.      ___.__
SVERIGE .........:   _   _____.    _____.     _____.      ___.__
NORGE ...........:   _   _____.    _____.     _____.      ___.__

PROD.GRUPPE 01-40    0000000001111111111222222222233333333334
indgår i hvis (.)    1234567890123456789012345678901234567890
ellers blank ....:   ________________________________________
AJOURF.MARK......:   _  SKODE..: _   __________    OK (J/N) .: _ Hjælp findes
*****************************************************************************
/HELP1
==============================================================================
===   HJÆLP TIL VEDLIGEHOLDELSE AF SALGSVARE REGISTER  NORSKE PRISER       ===
==============================================================================
BEMÆRK:      VAREN SKAL VÆRE OPRETTET !!!

KUN PRISEN I NORSK VALUTA KAN VEDLIGEHOLDES I DETTE PROGRAM.
BEREGNING AF D.KR. VIA KURS, DB OG DG UDFØRES, SÅFREMT PRISEN ÆNDRES.
DE RELEVANTE PRISER SKAL DOG VÆRE STØRRE END 0 (NUL) !

Hvis prisen ændres,  så indeholder * et bogstav ellers blank.
Pris ændrings markering skal fjernes via specielt program.

VALUTA= den aktuelle pris i udenlandsk valuta.
D.KR  = valuta omregnet til danske kroner.
DB    = ( D.KR  - distributør)
DG    = (dækningsbidrag * 100) / D.KR (2dec.)

Tryk på en tast for retur til billed !
===============================================================================
/*
OPEN VARER
OPEN VALUTA
NUMBER MELLEM
NUMBER FARDIG
FORMAT VARAR.45 ædisplayonlyå
FORMAT VARAR.46 ænoput,capslock,check="JN"å
STRING GEMVARE 11
MOVE '           ' TO GEMVARE
//
// hent og gem valuta kurs NKR
NUMBER KURS
MOVE 0 TO KURS
FIND GE VALUTA BY RECNUM
//
ÆFOUNDÅ REPEAT
    IF VALUTA.VAL EQ 'NKR  ' BEGIN
       MOVE VALUTA.KURS TO KURS
    END
    SAVERECORD VALUTA
    FIND GT VALUTA BY RECNUM
ÆFOUNDÅ LOOP
//
IF KURS GT 0 GOTO VIDER
DISPLAY 'KURS EJ OK' TO VARAR.45
DISPLAY 'N' TO VARAR.46
ACCEPT VARAR.46
CHAIN "ONVALUTA"
VIDER:
//
ENTER VARER
DISPLAY ' ' TO VARAR.45
CLEAR VARER
IF GEMVARE NE ' ' BEGIN
   DISPLAY GEMVARE TO VARAR.1
   MOVE '           ' TO GEMVARE
END
//
NYEN:
AUTOPAGE VARAR
  ENTRY VARER.VNR      æcapslock,autofind,noputå
  Æ FINDERR Å GOTO NYEN
  ENTRY VARER.SNR      ædisplayonlyå
  ENTRY VARER.SHG      ædisplayonlyå
  ENTRY VARER.PLSBETG  ædisplayonlyå
  ENTRY VARER.DANSKET  ædisplayonlyå
  ENTRY VARER.SKOKOR   ædisplayonlyå
  ENTRY VARER.SKOPRIS  ædisplayonlyå
  ENTRY VARER.LISKOR   ædisplayonlyå
  ENTRY VARER.LISPRIS  ædisplayonlyå
  ENTRY VARER.LISDB    ædisplayonlyå
  ENTRY VARER.LISDG    ædisplayonlyå
  ENTRY VARER.FORKOR   ædisplayonlyå
  ENTRY VARER.FORPRIS  ædisplayonlyå
  ENTRY VARER.FORDB    ædisplayonlyå
  ENTRY VARER.FORDG    ædisplayonlyå
  ENTRY VARER.FORRABAT ædisplayonlyå
  ENTRY VARER.DISKOR   ædisplayonlyå
  ENTRY VARER.DISPRIS  ædisplayonlyå
  ENTRY VARER.DISDB    ædisplayonlyå
  ENTRY VARER.DISDG    ædisplayonlyå
  ENTRY VARER.DISRABAT ædisplayonlyå
  ENTRY VARER.ENGKOR   ædisplayonlyå
  ENTRY VARER.ENGVALU  ædisplayonlyå
  ENTRY VARER.ENGPRIS  ædisplayonlyå
  ENTRY VARER.ENGDB    ædisplayonlyå
  ENTRY VARER.ENGDG    ædisplayonlyå
  ENTRY VARER.TYSKOR   ædisplayonlyå
  ENTRY VARER.TYSVALU  ædisplayonlyå
  ENTRY VARER.TYSPRIS  ædisplayonlyå
  ENTRY VARER.TYSDB    ædisplayonlyå
  ENTRY VARER.TYSDG    ædisplayonlyå
  ENTRY VARER.SVEKOR   ædisplayonlyå
  ENTRY VARER.SVEVALU  ædisplayonlyå
  ENTRY VARER.SVEPRIS  ædisplayonlyå
  ENTRY VARER.SVEDB    ædisplayonlyå
  ENTRY VARER.SVEDG    ædisplayonlyå
  ENTRY VARER.NORKOR   ænoenterå
OM:
AUTOPAGE VARAR 38
  ENTRY VARER.NORVALU
  ENTRY VARER.NORPRIS  ænoenterå
  ENTRY VARER.NORDB    ænoenterå
  ENTRY VARER.NORDG    ænoenterå
  ENTRY VARER.INDGARI  ædisplayonlyå
  ENTRY VARER.AJO      ædisplayonlyå
  ENTRY VARER.SKODE    ædisplayonlyå
// BEREGNING FØLGER
IF VARER.NORVALU EQ VARAR.38 GOTO UD
DISPLAY 'N' TO VARAR.37
MOVE 0 TO VARAR.39
IF VARAR.38 GT 0 BEGIN
   MOVE ((VARAR.38 * KURS) / 100) TO VARAR.39
END
MOVE 0 TO VARAR.40
MOVE 0 TO VARAR.41
IF VARAR.18 LE 0 GOTO UD
IF VARAR.39 LE 0 GOTO UD
MOVE (VARAR.39 - VARAR.18) TO VARAR.40
CALC (VARAR.40*100) TO MELLEM
CALC (MELLEM/VARAR.39) TO FARDIG
DISPLAY FARDIG TO VARAR.41
UD:
DISPLAY 'J' TO VARAR.46
ACCEPT VARAR.46
IF VARAR.46 NE 'J' MOVE VARAR.1 TO GEMVARE
RETURN
// SLET  ER IKKE TILLADT I DETTE PROGRAM
// EDIT  RECORD  -     -    enter.edit & enter.save
// OPRET RECORD  -     -    enter.save
ENTER.DELETE:
   GOTO OM
RETURN
//
ENTER.EDIT:
DISPLAY '* RETTET *' TO VARAR.45
RETURN
//
ENTER.SAVE:
RETURN
//
ENTEREND
CHAIN "ONVARER"
//
KEYPROC KEY.HELP
        HELP
        ENTAGAIN
RETURN
//
KEYPROC KEY.FIELD
        BACKFIELD
RETURN
//
KEYPROC KEY.CLEAR
        ENTAGAIN
RETURN
//
KEYPROC KEY.DELETE
        ENTAGAIN
RETURN
//
KEYPROC KEY.ESCAPE
CHAIN "ONVARER"
«eof»