DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦900426ddf⟧ RcTekst, TextFile

    Length: 1792 (0x700)
    Types: RcTekst, TextFile
    Names: »CORN247.WP«

Derivation

└─⟦5588111b7⟧ Bits:30005846 Dokumenter - Per Cornelius #237 - #281
    └─⟦this⟧ »CORN247.WP« 

RcTekst


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

TextFile

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»

Full view