|
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: 1792 (0x700)
Types: RcTekst, TextFile
Names: »CORN247.WP«
└─⟦5588111b7⟧ Bits:30005846 Dokumenter - Per Cornelius #237 - #281
└─⟦this⟧ »CORN247.WP«
╱04002d4e0a000600000000020a5031000000000000000000000000000000000000000000000000000e18222c36404a545e68727c86909aff04╱
corn 86.08.22 edb.corn247↲
↲
┆82┆↲
↲
TIL BAL: BKS, JEKK.↲
↲
↲
TIL GLO: AJ, PB.↲
↲
↲
↲
┆a1┆┆b0┆PRISBEREGNINGS MODUL TIL RC BIBLIOTEKS SYSTEM.↲
↲
↲
Batch-program hvor en FAKTOR skal tastes ved program start.↲
Udskrift ikke nødvendig på grund af muligheden for søgning på↲
pris koden i bib.felt 305 automatisk prisberegning.↲
Søgning kan afgrænses til base 1, samt eventuelt på statuskode.↲
↲
↲
┆a1┆1. FØLGENDE BEREGNING UDFØRES PÅ DEN ENKELTE "DPA'er":↲
↲
↲
HVIS bib.felt 001 PLS partnummer (2 første cifre) = 99↲
↲
OG bib.felt 305 automatisk prisberegning = 0 (nul)↲
↲
↲
SÅ 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'er" så skal "DMO'er" beregnes.↲
↲
↲
↲
┆a1┆2. FØLGENDE BEREGNING UDFØRES PÅ PÅ DEN ENKELTE "DMO":↲
↲
↲
HVIS bib.felt 001 PLS partnummer (3 første cifre) = 799↲
↲
OG bib.felt 305 automatisk prisberegning = 0 (nul)↲
↲
↲
SØG alle "DPA'er" som indgår i denne "DMO", a la kommandoen HO,↲
↲
GEM "DPA"-kostpriserne (bib.felt 303 kostpris),↲
↲
INDTIL der ikke er flere "DPA'er" til den aktuelle "DMO"↲
↲
↲
SÅ "DMO" bib.felt 303 kostpris = akkumulerede kostpriser↲
↲
OG "DMO" bib.felt 304 salgspris = ("DMO" bib.felt 303 kostpris) * 2↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
┆a1┆3. MANUEL BEREGNING.↲
↲
Såfremt bib.felt 305 automatisk prisberegning er lig med 1, så er det↲
┆a1┆┆b0┆manuel prissætning,┆e1┆┆f0┆ som skal udføres af AJ.↲
↲
↲
┆a1┆4. TID !↲
↲
EDB-afdelingens ordrebog er prioriteret 2 år frem, så der er ↲
et tids-problem med at få lavet programmet i edb-afdelingen.↲
↲
Forslag modtages !↲
↲
↲
↲
↲
m.v.h.↲
↲
corn.↓
┆1a┆┆1a┆↲
↲
↲
┆a1┆2.
0x000…020 (0,) 00 00 00 00 00 00 00 00 42 00 02 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 0a 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 0e 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a ff 04 ┆ ",6@JT^hrø ┆
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 38 36 2e 30 38 2e 32 32 ┆corn 86.08.22┆
0x0a0…0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 64 62 2e 63 6f 72 6e ┆ edb.corn┆
0x0c0…0e0 32 34 37 0d 0a 0d 0a 82 0d 0a 0d 0a 54 49 4c 20 42 41 4c 3a 20 20 42 4b 53 2c 20 4a 45 4b 4b 2e ┆247 TIL BAL: BKS, JEKK.┆
0x0e0…100 0d 0a 0d 0a 0d 0a 54 49 4c 20 47 4c 4f 3a 20 20 41 4a 2c 20 50 42 2e 0d 0a 0d 0a 0d 0a 0d 0a a1 ┆ TIL GLO: AJ, PB. ┆
0x100…120 b0 50 52 49 53 42 45 52 45 47 4e 49 4e 47 53 20 4d 4f 44 55 4c 20 54 49 4c 20 52 43 20 42 49 42 ┆ PRISBEREGNINGS MODUL TIL RC BIB┆
0x120…140 4c 49 4f 54 45 4b 53 20 53 59 53 54 45 4d 2e 0d 0a 0d 0a 0d 0a 42 61 74 63 68 2d 70 72 6f 67 72 ┆LIOTEKS SYSTEM. Batch-progr┆
0x140…160 61 6d 20 68 76 6f 72 20 65 6e 20 46 41 4b 54 4f 52 20 73 6b 61 6c 20 74 61 73 74 65 73 20 76 65 ┆am hvor en FAKTOR skal tastes ve┆
0x160…180 64 20 70 72 6f 67 72 61 6d 20 73 74 61 72 74 2e 0d 0a 55 64 73 6b 72 69 66 74 20 69 6b 6b 65 20 ┆d program start. Udskrift ikke ┆
0x180…1a0 6e 7c 64 76 65 6e 64 69 67 20 70 7d 20 67 72 75 6e 64 20 61 66 20 6d 75 6c 69 67 68 65 64 65 6e ┆nødvendig på grund af muligheden┆
0x1a0…1c0 20 66 6f 72 20 73 7c 67 6e 69 6e 67 20 70 7d 0d 0a 70 72 69 73 20 6b 6f 64 65 6e 20 69 20 62 69 ┆ for søgning på pris koden i bi┆
0x1c0…1e0 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 72 65 67 6e ┆b.felt 305 automatisk prisberegn┆
0x1e0…200 69 6e 67 2e 0d 0a 53 7c 67 6e 69 6e 67 20 6b 61 6e 20 61 66 67 72 7b 6e 73 65 73 20 74 69 6c 20 ┆ing. Søgning kan afgrænses til ┆
0x200…220 (1,) 62 61 73 65 20 31 2c 20 73 61 6d 74 20 65 76 65 6e 74 75 65 6c 74 20 70 7d 20 73 74 61 74 75 73 ┆base 1, samt eventuelt på status┆
0x220…240 6b 6f 64 65 2e 0d 0a 0d 0a 0d 0a a1 31 2e 20 46 5c 4c 47 45 4e 44 45 20 42 45 52 45 47 4e 49 4e ┆kode. 1. FØLGENDE BEREGNIN┆
0x240…260 47 20 55 44 46 5c 52 45 53 20 50 5d 20 44 45 4e 20 45 4e 4b 45 4c 54 45 20 22 44 50 41 27 65 72 ┆G UDFØRES PÅ DEN ENKELTE "DPA'er┆
0x260…280 22 3a 0d 0a 0d 0a 0d 0a 48 56 49 53 20 20 62 69 62 2e 66 65 6c 74 20 30 30 31 20 50 4c 53 20 70 ┆": HVIS bib.felt 001 PLS p┆
0x280…2a0 61 72 74 6e 75 6d 6d 65 72 20 28 32 20 66 7c 72 73 74 65 20 63 69 66 72 65 29 20 3d 20 39 39 0d ┆artnummer (2 første cifre) = 99 ┆
0x2a0…2c0 0a 0d 0a 4f 47 20 20 20 20 62 69 62 2e 66 65 6c 74 20 33 30 35 20 61 75 74 6f 6d 61 74 69 73 6b ┆ OG bib.felt 305 automatisk┆
0x2c0…2e0 20 70 72 69 73 62 65 72 65 67 6e 69 6e 67 20 3d 20 30 20 28 6e 75 6c 29 0d 0a 0d 0a 0d 0a 53 5d ┆ prisberegning = 0 (nul) SÅ┆
0x2e0…300 20 20 20 20 62 69 62 2e 66 65 6c 74 20 33 30 33 20 6b 6f 73 74 70 72 69 73 20 20 3d 20 28 62 69 ┆ bib.felt 303 kostpris = (bi┆
0x300…320 62 2e 66 65 6c 74 20 31 38 30 20 61 6e 74 61 6c 20 73 69 64 65 72 29 20 2a 20 46 41 4b 54 4f 52 ┆b.felt 180 antal sider) * FAKTOR┆
0x320…340 0d 0a 0d 0a 4f 47 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 ┆ OG bib.felt 304 salgspris┆
0x340…360 20 3d 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 ┆
0x360…380 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 70 7d 20 22 ┆ Når beregning er udført på "┆
0x380…3a0 44 50 41 27 65 72 22 20 73 7d 20 73 6b 61 6c 20 22 44 4d 4f 27 65 72 22 20 62 65 72 65 67 6e 65 ┆DPA'er" så skal "DMO'er" beregne┆
0x3a0…3c0 73 2e 0d 0a 0d 0a 0d 0a 0d 0a a1 32 2e 20 46 5c 4c 47 45 4e 44 45 20 42 45 52 45 47 4e 49 4e 47 ┆s. 2. FØLGENDE BEREGNING┆
0x3c0…3e0 20 55 44 46 5c 52 45 53 20 50 5d 20 50 5d 20 44 45 4e 20 45 4e 4b 45 4c 54 45 20 22 44 4d 4f 22 ┆ UDFØRES PÅ PÅ DEN ENKELTE "DMO"┆
0x3e0…400 3a 0d 0a 0d 0a 0d 0a 48 56 49 53 20 20 62 69 62 2e 66 65 6c 74 20 30 30 31 20 50 4c 53 20 70 61 ┆: HVIS bib.felt 001 PLS pa┆
0x400…420 (2,) 72 74 6e 75 6d 6d 65 72 20 28 33 20 66 7c 72 73 74 65 20 63 69 66 72 65 29 20 3d 20 37 39 39 0d ┆rtnummer (3 første cifre) = 799 ┆
0x420…440 0a 0d 0a 4f 47 20 20 20 20 62 69 62 2e 66 65 6c 74 20 33 30 35 20 61 75 74 6f 6d 61 74 69 73 6b ┆ OG bib.felt 305 automatisk┆
0x440…460 20 70 72 69 73 62 65 72 65 67 6e 69 6e 67 20 3d 20 30 20 28 6e 75 6c 29 0d 0a 0d 0a 0d 0a 53 5c ┆ prisberegning = 0 (nul) SØ┆
0x460…480 47 20 20 20 20 61 6c 6c 65 20 22 44 50 41 27 65 72 22 20 73 6f 6d 20 69 6e 64 67 7d 72 20 69 20 ┆G alle "DPA'er" som indgår i ┆
0x480…4a0 64 65 6e 6e 65 20 22 44 4d 4f 22 2c 20 61 20 6c 61 20 6b 6f 6d 6d 61 6e 64 6f 65 6e 20 48 4f 2c ┆denne "DMO", a la kommandoen HO,┆
0x4a0…4c0 0d 0a 0d 0a 47 45 4d 20 20 20 20 22 44 50 41 22 2d 6b 6f 73 74 70 72 69 73 65 72 6e 65 20 28 62 ┆ GEM "DPA"-kostpriserne (b┆
0x4c0…4e0 69 62 2e 66 65 6c 74 20 33 30 33 20 6b 6f 73 74 70 72 69 73 29 2c 0d 0a 0d 0a 49 4e 44 54 49 4c ┆ib.felt 303 kostpris), INDTIL┆
0x4e0…500 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 6c 20 ┆ der ikke er flere "DPA'er" til ┆
0x500…520 64 65 6e 20 61 6b 74 75 65 6c 6c 65 20 22 44 4d 4f 22 0d 0a 0d 0a 0d 0a 53 5d 20 20 20 20 22 44 ┆den aktuelle "DMO" SÅ "D┆
0x520…540 4d 4f 22 20 62 69 62 2e 66 65 6c 74 20 33 30 33 20 6b 6f 73 74 70 72 69 73 20 3d 20 61 6b 6b 75 ┆MO" bib.felt 303 kostpris = akku┆
0x540…560 6d 75 6c 65 72 65 64 65 20 6b 6f 73 74 70 72 69 73 65 72 0d 0a 0d 0a 4f 47 20 20 20 20 22 44 4d ┆mulerede kostpriser OG "DM┆
0x560…580 4f 22 20 62 69 62 2e 66 65 6c 74 20 33 30 34 20 73 61 6c 67 73 70 72 69 73 20 3d 20 28 22 44 4d ┆O" bib.felt 304 salgspris = ("DM┆
0x580…59f 4f 22 20 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 ┆O" bib.felt 303 kostpris) * 2 ┆
0x59f…5a2 FormFeed {
0x59f…5a2 0c 83 b8 ┆ ┆
0x59f…5a2 }
0x5a2…5c0 0a 0d 0a 0d 0a a1 33 2e 20 4d 41 4e 55 45 4c 20 42 45 52 45 47 4e 49 4e 47 2e 0d 0a 0d 0a ┆ 3. MANUEL BEREGNING. ┆
0x5c0…5e0 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 69 73 6b 20 ┆Såfremt bib.felt 305 automatisk ┆
0x5e0…600 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 73 7d 20 65 ┆prisberegning er lig med 1, så e┆
0x600…620 (3,) 72 20 64 65 74 0d 0a a1 b0 6d 61 6e 75 65 6c 20 70 72 69 73 73 7b 74 6e 69 6e 67 2c e1 f0 20 73 ┆r det manuel prissætning, s┆
0x620…640 6f 6d 20 73 6b 61 6c 20 75 64 66 7c 72 65 73 20 61 66 20 41 4a 2e 0d 0a 0d 0a 0d 0a a1 34 2e 20 ┆om skal udføres af AJ. 4. ┆
0x640…660 54 49 44 20 21 0d 0a 0d 0a 45 44 42 2d 61 66 64 65 6c 69 6e 67 65 6e 73 20 6f 72 64 72 65 62 6f ┆TID ! EDB-afdelingens ordrebo┆
0x660…680 67 20 65 72 20 70 72 69 6f 72 69 74 65 72 65 74 20 32 20 7d 72 20 66 72 65 6d 2c 20 73 7d 20 64 ┆g er prioriteret 2 år frem, så d┆
0x680…6a0 65 72 20 65 72 20 0d 0a 65 74 20 74 69 64 73 2d 70 72 6f 62 6c 65 6d 20 6d 65 64 20 61 74 20 66 ┆er er et tids-problem med at f┆
0x6a0…6c0 7d 20 6c 61 76 65 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 69 20 65 64 62 2d 61 66 64 65 6c 69 6e ┆å lavet programmet i edb-afdelin┆
0x6c0…6e0 67 65 6e 2e 0d 0a 0d 0a 46 6f 72 73 6c 61 67 20 6d 6f 64 74 61 67 65 73 20 21 0d 0a 0d 0a 0d 0a ┆gen. Forslag modtages ! ┆
0x6e0…700 0d 0a 0d 0a 6d 2e 76 2e 68 2e 0d 0a 0d 0a 63 6f 72 6e 2e 0a 1a 1a 0d 0a 0d 0a 0d 0a a1 32 2e 20 ┆ m.v.h. corn. 2. ┆
B▶02◀N▶04◀-N
▶06◀▶02◀
P1▶0e◀▶18◀",6@JT^hrø▶86◀▶90◀▶9a◀▶ff◀▶04◀corn 86.08.22 edb.corn247
▶82◀
TIL BAL: BKS, JEKK.
TIL GLO: AJ, PB.
▶a1◀▶b0◀PRISBEREGNINGS MODUL TIL RC BIBLIOTEKS SYSTEM.
Batch-program hvor en FAKTOR skal tastes ved program start.
Udskrift ikke nødvendig på grund af muligheden for søgning på
pris koden i bib.felt 305 automatisk prisberegning.
Søgning kan afgrænses til base 1, samt eventuelt på statuskode.
▶a1◀1. FØLGENDE BEREGNING UDFØRES PÅ DEN ENKELTE "DPA'er":
HVIS bib.felt 001 PLS partnummer (2 første cifre) = 99
OG bib.felt 305 automatisk prisberegning = 0 (nul)
SÅ 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'er" så skal "DMO'er" beregnes.
▶a1◀2. FØLGENDE BEREGNING UDFØRES PÅ PÅ DEN ENKELTE "DMO":
HVIS bib.felt 001 PLS partnummer (3 første cifre) = 799
OG bib.felt 305 automatisk prisberegning = 0 (nul)
SØG alle "DPA'er" som indgår i denne "DMO", a la kommandoen HO,
GEM "DPA"-kostpriserne (bib.felt 303 kostpris),
INDTIL der ikke er flere "DPA'er" til den aktuelle "DMO"
SÅ "DMO" bib.felt 303 kostpris = akkumulerede kostpriser
OG "DMO" bib.felt 304 salgspris = ("DMO" bib.felt 303 kostpris) * 2
\f
▶83◀▶b8◀
▶a1◀3. MANUEL BEREGNING.
Såfremt bib.felt 305 automatisk prisberegning er lig med 1, så er det
▶a1◀▶b0◀manuel prissætning,▶e1◀▶f0◀ som skal udføres af AJ.
▶a1◀4. TID !
EDB-afdelingens ordrebog er prioriteret 2 år frem, så der er
et tids-problem med at få lavet programmet i edb-afdelingen.
Forslag modtages !
m.v.h.
corn.
«eof»