DataMuseum.dk

top - metrics - download

    Length: 5888 (0x1700)
    Types: TextFile
    Names: »ONVARERS.FRM«

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

TextFile

/VARAR                                  // PROGRAM: ONVARERS.FRM
*****************************************************************************
***   VEDLIGEHOLDELSE AF VARE REGISTER  SVENSKE PRISER             M 40S  ***
*****************************************************************************
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 SVENSKE PRISER       ===
==============================================================================
BEMÆRK:      VAREN SKAL VÆRE OPRETTET !!!

KUN PRISEN I SVENSK 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
FORMAT VARAR.45 ædisplayonlyå
FORMAT VARAR.46 ænoput,capslock,check="JN"å
STRING GEMVARE 11
MOVE '           ' TO GEMVARE
//
// hent og gem valuta kurs SKR
NUMBER KURS
MOVE 0 TO KURS
FIND GE VALUTA BY RECNUM
//
ÆFOUNDÅ REPEAT
    IF VALUTA.VAL EQ 'SKR  ' 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   ænoenterå
OM:
AUTOPAGE VARAR 33
  ENTRY VARER.SVEVALU
  ENTRY VARER.SVEPRIS  ænoenterå
  ENTRY VARER.SVEDB    ænoenterå
  ENTRY VARER.SVEDG    ænoenterå
  ENTRY VARER.NORKOR   ædisplayonlyå
  ENTRY VARER.NORVALU  ædisplayonlyå
  ENTRY VARER.NORPRIS  ædisplayonlyå
  ENTRY VARER.NORDB    ædisplayonlyå
  ENTRY VARER.NORDG    ædisplayonlyå
  ENTRY VARER.INDGARI  ædisplayonlyå
  ENTRY VARER.AJO      ædisplayonlyå
  ENTRY VARER.SKODE    ædisplayonlyå
// BEREGNING FØLGER
IF VARER.SVEVALU EQ VARAR.33 GOTO UD
DISPLAY 'S' TO VARAR.32
MOVE 0 TO VARAR.34
IF VARAR.33 GT 0 BEGIN
   MOVE ((VARAR.33 * KURS) / 100) TO VARAR.34
END
MOVE 0 TO VARAR.35
MOVE 0 TO VARAR.36
IF VARAR.18 LE 0 GOTO UD
IF VARAR.34 GT 0 BEGIN
   MOVE (VARAR.34 - VARAR.18) TO VARAR.35
   MOVE ((VARAR.35 * 100) / VARAR.34) TO VARAR.36
END
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»