|
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.
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»