|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5888 (0x1700) Types: TextFile Names: »ONVARERT.FRM«
└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem └─⟦this⟧ »ONVARERT.FRM« └─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem └─⟦this⟧ »ONVARERT.FRM«
/VARAR // PROGRAM: ONVARERT.FRM ***************************************************************************** *** VEDLIGEHOLDELSE AF VARE REGISTER TYSKE PRISER M 40T *** ***************************************************************************** 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 TYSKE PRISER === ============================================================================== BEMÆRK: VAREN SKAL VÆRE OPRETTET !!! KUN PRISEN I TYSK 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 DM NUMBER KURS MOVE 0 TO KURS FIND GE VALUTA BY RECNUM // ÆFOUNDÅ REPEAT IF VALUTA.VAL EQ 'DM ' 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 ænoenterå OM: AUTOPAGE VARAR 28 ENTRY VARER.TYSVALU ENTRY VARER.TYSPRIS ænoenterå ENTRY VARER.TYSDB ænoenterå ENTRY VARER.TYSDG ænoenterå ENTRY VARER.SVEKOR ædisplayonlyå ENTRY VARER.SVEVALU ædisplayonlyå ENTRY VARER.SVEPRIS ædisplayonlyå ENTRY VARER.SVEDB ædisplayonlyå ENTRY VARER.SVEDG ædisplayonlyå 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.TYSVALU EQ VARAR.28 GOTO UD DISPLAY 'T' TO VARAR.27 MOVE 0 TO VARAR.29 IF VARAR.28 GT 0 BEGIN MOVE ((VARAR.28 * KURS) / 100) TO VARAR.29 END MOVE 0 TO VARAR.30 MOVE 0 TO VARAR.31 IF VARAR.18 LE 0 GOTO UD IF VARAR.29 GT 0 BEGIN MOVE (VARAR.29 - VARAR.18) TO VARAR.30 MOVE ((VARAR.30 * 100) / VARAR.29) TO VARAR.31 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»