|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: RcTekst, TextFile
Names: »CORN204.WP«
└─⟦1ce066637⟧ Bits:30005845 Dokumenter - Per Cornelius #135 - #236
└─⟦this⟧ »CORN204.WP«
╱04002d4e0a0006000000000201503100000000000000000000000000000000000000000000000000050f19232d37414b555f69737d8791ff04╱
corn 86.03.20 edb.corn204↲
↲
↲
↲
┆a1┆┆b0┆PRISBEREGNING.↲
↲
↲
FAKTOR skal kunne tastes ved program start, udskrift ikke nødvendig på grund↲
af muligheden for manuel prissætning via bib.felt 305 automatisk prisbereg-↲
ning. Der kan søges på dette felt, og print mulighed er til stede.↲
↲
↲
┆a1┆Følgende beregning udføres på den enkelte "DPA'er":↲
↲
↲
Bib.felt 001 PLS partnummer ( 2 første cifre) skal være = 99↲
↲
Bib.felt 305 automatisk prisberegning skal være = 0 (nul).↲
↲
↲
↲
så er bib.felt 303 kostpris = (bib.felt 180 antal sider) * faktor↲
↲
og bib.felt 304 salgspris = (bib.felt 303 kostpris) * 2↲
↲
↲
↲
↲
Når beregning er udført på "DPA'erne" så skal "DMO'erne" beregnes.↲
↲
↲
↲
┆a1┆Følgende beregning udføres på den enkelte "DMO'er":↲
↲
↲
Bib.felt 001 PLS partnummer ( 2 første cifre) skal være = 97↲
↲
Bib.felt 305 automatisk prisberegning skal være = 0 (nul).↲
↲
find alle "DPA'er" som indgår i denne "DMO", a la søgekommandoen HO,↲
akkumuler "DPA"-kostpriserne, og når der ikke er flere "DPA'er" til↲
den aktuelle "DMO", så ↲
↲
↲
er "DMO" bib.felt 303 kostpris = akkumulerede kostpriser↲
↲
og "DMO" bib.felt 304 salgspris = ("DMO" bib.felt 303 kostpris) * 2↲
↲
↲
↲
┆b0┆┆a1┆BEMÆRK:↲
↲
Såfremt bib.felt 305 automatisk prisberegning er lig med 1, så er det↲
manuel prissætning, som skal udføres af PB.↲
════════════════════════════════════════════════════════════════════════
↓
┆1a┆┆1a┆ u
0x000…020 (0,) 00 00 00 00 00 00 00 00 42 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 ┆ B N ┆
0x020…040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x040…047 00 00 00 00 00 00 00 ┆ ┆
0x047…080 Params {
0x047…080 04 00 2d 4e 0a 00 06 00 00 00 00 02 01 50 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N P1 ┆
0x047…080 00 00 00 00 00 00 00 00 05 0f 19 23 2d 37 41 4b 55 5f 69 73 7d 87 91 ff 04 ┆ #-7AKU_iså ┆
0x047…080 }
0x080…0a0 63 6f 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆corn ┆
0x0a0…0c0 20 20 20 20 20 20 20 20 20 20 20 38 36 2e 30 33 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 86.03.20 ┆
0x0c0…0e0 20 20 65 64 62 2e 63 6f 72 6e 32 30 34 0d 0a 0d 0a 0d 0a 0d 0a a1 b0 50 52 49 53 42 45 52 45 47 ┆ edb.corn204 PRISBEREG┆
0x0e0…100 4e 49 4e 47 2e 0d 0a 0d 0a 0d 0a 46 41 4b 54 4f 52 20 73 6b 61 6c 20 6b 75 6e 6e 65 20 74 61 73 ┆NING. FAKTOR skal kunne tas┆
0x100…120 74 65 73 20 76 65 64 20 70 72 6f 67 72 61 6d 20 73 74 61 72 74 2c 20 75 64 73 6b 72 69 66 74 20 ┆tes ved program start, udskrift ┆
0x120…140 69 6b 6b 65 20 6e 7c 64 76 65 6e 64 69 67 20 70 7d 20 67 72 75 6e 64 0d 0a 61 66 20 6d 75 6c 69 ┆ikke nødvendig på grund af muli┆
0x140…160 67 68 65 64 65 6e 20 66 6f 72 20 6d 61 6e 75 65 6c 20 70 72 69 73 73 7b 74 6e 69 6e 67 20 76 69 ┆gheden for manuel prissætning vi┆
0x160…180 61 20 62 69 62 2e 66 65 6c 74 20 33 30 35 20 61 75 74 6f 6d 61 74 69 73 6b 20 70 72 69 73 62 65 ┆a bib.felt 305 automatisk prisbe┆
0x180…1a0 72 65 67 2d 0d 0a 6e 69 6e 67 2e 20 44 65 72 20 6b 61 6e 20 73 7c 67 65 73 20 70 7d 20 64 65 74 ┆reg- ning. Der kan søges på det┆
0x1a0…1c0 74 65 20 66 65 6c 74 2c 20 6f 67 20 70 72 69 6e 74 20 6d 75 6c 69 67 68 65 64 20 65 72 20 74 69 ┆te felt, og print mulighed er ti┆
0x1c0…1e0 6c 20 73 74 65 64 65 2e 0d 0a 0d 0a 0d 0a a1 46 7c 6c 67 65 6e 64 65 20 62 65 72 65 67 6e 69 6e ┆l stede. Følgende beregnin┆
0x1e0…200 67 20 75 64 66 7c 72 65 73 20 70 7d 20 64 65 6e 20 65 6e 6b 65 6c 74 65 20 22 44 50 41 27 65 72 ┆g udføres på den enkelte "DPA'er┆
0x200…220 (1,) 22 3a 0d 0a 0d 0a 0d 0a 20 20 20 42 69 62 2e 66 65 6c 74 20 30 30 31 20 50 4c 53 20 70 61 72 74 ┆": Bib.felt 001 PLS part┆
0x220…240 6e 75 6d 6d 65 72 20 28 20 32 20 66 7c 72 73 74 65 20 63 69 66 72 65 29 20 73 6b 61 6c 20 76 7b ┆nummer ( 2 første cifre) skal væ┆
0x240…260 72 65 20 20 3d 20 39 39 0d 0a 0d 0a 20 20 20 42 69 62 2e 66 65 6c 74 20 33 30 35 20 61 75 74 6f ┆re = 99 Bib.felt 305 auto┆
0x260…280 6d 61 74 69 73 6b 20 70 72 69 73 62 65 72 65 67 6e 69 6e 67 20 73 6b 61 6c 20 76 7b 72 65 20 20 ┆matisk prisberegning skal være ┆
0x280…2a0 3d 20 30 20 28 6e 75 6c 29 2e 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 20 20 73 7d 20 65 72 20 62 69 62 ┆= 0 (nul). så er bib┆
0x2a0…2c0 2e 66 65 6c 74 20 33 30 33 20 6b 6f 73 74 70 72 69 73 20 20 3d 20 20 28 62 69 62 2e 66 65 6c 74 ┆.felt 303 kostpris = (bib.felt┆
0x2c0…2e0 20 31 38 30 20 61 6e 74 61 6c 20 73 69 64 65 72 29 20 2a 20 66 61 6b 74 6f 72 0d 0a 0d 0a 20 20 ┆ 180 antal sider) * faktor ┆
0x2e0…300 20 20 20 6f 67 20 20 20 20 62 69 62 2e 66 65 6c 74 20 33 30 34 20 73 61 6c 67 73 70 72 69 73 20 ┆ og bib.felt 304 salgspris ┆
0x300…320 3d 20 20 28 62 69 62 2e 66 65 6c 74 20 33 30 33 20 6b 6f 73 74 70 72 69 73 29 20 2a 20 32 0d 0a ┆= (bib.felt 303 kostpris) * 2 ┆
0x320…340 0d 0a 0d 0a 0d 0a 0d 0a 4e 7d 72 20 62 65 72 65 67 6e 69 6e 67 20 65 72 20 75 64 66 7c 72 74 20 ┆ Når beregning er udført ┆
0x340…360 70 7d 20 22 44 50 41 27 65 72 6e 65 22 20 73 7d 20 73 6b 61 6c 20 22 44 4d 4f 27 65 72 6e 65 22 ┆på "DPA'erne" så skal "DMO'erne"┆
0x360…380 20 62 65 72 65 67 6e 65 73 2e 0d 0a 0d 0a 0d 0a 0d 0a a1 46 7c 6c 67 65 6e 64 65 20 62 65 72 65 ┆ beregnes. Følgende bere┆
0x380…3a0 67 6e 69 6e 67 20 75 64 66 7c 72 65 73 20 70 7d 20 64 65 6e 20 65 6e 6b 65 6c 74 65 20 22 44 4d ┆gning udføres på den enkelte "DM┆
0x3a0…3c0 4f 27 65 72 22 3a 0d 0a 0d 0a 0d 0a 20 20 20 42 69 62 2e 66 65 6c 74 20 30 30 31 20 50 4c 53 20 ┆O'er": Bib.felt 001 PLS ┆
0x3c0…3e0 70 61 72 74 6e 75 6d 6d 65 72 20 28 20 32 20 66 7c 72 73 74 65 20 63 69 66 72 65 29 20 73 6b 61 ┆partnummer ( 2 første cifre) ska┆
0x3e0…400 6c 20 76 7b 72 65 20 20 3d 20 39 37 0d 0a 0d 0a 20 20 20 42 69 62 2e 66 65 6c 74 20 33 30 35 20 ┆l være = 97 Bib.felt 305 ┆
0x400…420 (2,) 61 75 74 6f 6d 61 74 69 73 6b 20 70 72 69 73 62 65 72 65 67 6e 69 6e 67 20 73 6b 61 6c 20 76 7b ┆automatisk prisberegning skal væ┆
0x420…440 72 65 20 20 3d 20 30 20 28 6e 75 6c 29 2e 0d 0a 0d 0a 20 20 20 66 69 6e 64 20 61 6c 6c 65 20 22 ┆re = 0 (nul). find alle "┆
0x440…460 44 50 41 27 65 72 22 20 73 6f 6d 20 69 6e 64 67 7d 72 20 69 20 64 65 6e 6e 65 20 22 44 4d 4f 22 ┆DPA'er" som indgår i denne "DMO"┆
0x460…480 2c 20 61 20 6c 61 20 73 7c 67 65 6b 6f 6d 6d 61 6e 64 6f 65 6e 20 48 4f 2c 0d 0a 20 20 20 61 6b ┆, a la søgekommandoen HO, ak┆
0x480…4a0 6b 75 6d 75 6c 65 72 20 22 44 50 41 22 2d 6b 6f 73 74 70 72 69 73 65 72 6e 65 2c 20 6f 67 20 6e ┆kumuler "DPA"-kostpriserne, og n┆
0x4a0…4c0 7d 72 20 64 65 72 20 69 6b 6b 65 20 65 72 20 66 6c 65 72 65 20 22 44 50 41 27 65 72 22 20 74 69 ┆år der ikke er flere "DPA'er" ti┆
0x4c0…4e0 6c 0d 0a 20 20 20 64 65 6e 20 61 6b 74 75 65 6c 6c 65 20 22 44 4d 4f 22 2c 20 73 7d 20 0d 0a 0d ┆l den aktuelle "DMO", så ┆
0x4e0…500 0a 0d 0a 20 20 20 20 20 65 72 20 22 44 4d 4f 22 20 62 69 62 2e 66 65 6c 74 20 33 30 33 20 6b 6f ┆ er "DMO" bib.felt 303 ko┆
0x500…520 73 74 70 72 69 73 20 20 3d 20 20 61 6b 6b 75 6d 75 6c 65 72 65 64 65 20 6b 6f 73 74 70 72 69 73 ┆stpris = akkumulerede kostpris┆
0x520…540 65 72 0d 0a 0d 0a 20 20 20 20 20 6f 67 20 22 44 4d 4f 22 20 62 69 62 2e 66 65 6c 74 20 33 30 34 ┆er og "DMO" bib.felt 304┆
0x540…560 20 73 61 6c 67 73 70 72 69 73 20 3d 20 20 28 22 44 4d 4f 22 20 62 69 62 2e 66 65 6c 74 20 33 30 ┆ salgspris = ("DMO" bib.felt 30┆
0x560…580 33 20 6b 6f 73 74 70 72 69 73 29 20 2a 20 32 0d 0a 0d 0a 0d 0a 0d 0a b0 a1 42 45 4d 5b 52 4b 3a ┆3 kostpris) * 2 BEMÆRK:┆
0x580…5a0 0d 0a 0d 0a 53 7d 66 72 65 6d 74 20 62 69 62 2e 66 65 6c 74 20 33 30 35 20 61 75 74 6f 6d 61 74 ┆ Såfremt bib.felt 305 automat┆
0x5a0…5c0 69 73 6b 20 70 72 69 73 62 65 72 65 67 6e 69 6e 67 20 65 72 20 6c 69 67 20 6d 65 64 20 31 2c 20 ┆isk prisberegning er lig med 1, ┆
0x5c0…5e0 73 7d 20 65 72 20 64 65 74 0d 0a 6d 61 6e 75 65 6c 20 70 72 69 73 73 7b 74 6e 69 6e 67 2c 20 73 ┆så er det manuel prissætning, s┆
0x5e0…5f8 6f 6d 20 73 6b 61 6c 20 75 64 66 7c 72 65 73 20 61 66 20 50 42 2e 0d 0a ┆om skal udføres af PB. ┆
0x5f8…5fb FormFeed {
0x5f8…5fb 0c 83 b0 ┆ ┆
0x5f8…5fb }
0x5fb…600 0a 1a 1a 20 75 ┆ u┆
B▶01◀▶01◀N▶04◀-N
▶06◀▶02◀▶01◀P1▶05◀▶0f◀▶19◀#-7AKU_iså▶87◀▶91◀▶ff◀▶04◀corn 86.03.20 edb.corn204
▶a1◀▶b0◀PRISBEREGNING.
FAKTOR skal kunne tastes ved program start, udskrift ikke nødvendig på grund
af muligheden for manuel prissætning via bib.felt 305 automatisk prisbereg-
ning. Der kan søges på dette felt, og print mulighed er til stede.
▶a1◀Følgende beregning udføres på den enkelte "DPA'er":
Bib.felt 001 PLS partnummer ( 2 første cifre) skal være = 99
Bib.felt 305 automatisk prisberegning skal være = 0 (nul).
så er bib.felt 303 kostpris = (bib.felt 180 antal sider) * faktor
og bib.felt 304 salgspris = (bib.felt 303 kostpris) * 2
Når beregning er udført på "DPA'erne" så skal "DMO'erne" beregnes.
▶a1◀Følgende beregning udføres på den enkelte "DMO'er":
Bib.felt 001 PLS partnummer ( 2 første cifre) skal være = 97
Bib.felt 305 automatisk prisberegning skal være = 0 (nul).
find alle "DPA'er" som indgår i denne "DMO", a la søgekommandoen HO,
akkumuler "DPA"-kostpriserne, og når der ikke er flere "DPA'er" til
den aktuelle "DMO", så
er "DMO" bib.felt 303 kostpris = akkumulerede kostpriser
og "DMO" bib.felt 304 salgspris = ("DMO" bib.felt 303 kostpris) * 2
▶b0◀▶a1◀BEMÆRK:
Såfremt bib.felt 305 automatisk prisberegning er lig med 1, så er det
manuel prissætning, som skal udføres af PB.
\f
▶83◀▶b0◀
«eof»