|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »IRISSYS.K«
└─⟦510f10af2⟧ Bits:30009011 Apn
└─⟦this⟧ »IRISSYS.K«
GENERELT
Udlejningssystemet har til formål på en enkelt og nem måde at ad-
ministrere udlejningen hos IRISH LYDBÅND. Systemet er dimensioneret
til at behandle 33.000 udlejninger løbende.
PROGRAMMODULER.
a) Registrering af udlejede film.
b) Rykkerprocedure.
c) Hjemkomst.
d) Fakturering.
e) Forespørgsler.
ad a).
Registrering af udlejede film.
Denne funktion kan bruges til indtastning af allerede udlejede
film og fejlslettede.
1) Indtast kunden godkend.
2) Indtast fakturanr.
Kør følgende punkter igennem til faktura er færdigbehandlet.
3) Indtast varenr. godkend.
4) Indtast antal.
5) Indtast hjemkaldelsesdato.
6) Godkend punkt 3-5.
ad b).
Rykkerprocedure.
Denne procedure anvendes til at udskrive rykker/påmindelse til
kunderne indeholdende de film der har hjemkaldelse i et indtas-
tet månedsinterval.
1) Indtast fra kundenr. (0:alle).
2) Indtast til kundenr.
3) Indtast fra måned (0:alle). ååmm.
4) Indtast til måned ååmm.
5) Ønskes posteringer slettet.
Maskinen gennemløber det kundeorienterede register og udskriver
en rykker/påmindelse til de kunder, der har film i de specifi-
cerede intervaller. ( Udskrift se bilag) 8 1/2". Når udskriften
er færdig spørges om udskriften ønskes gentaget. Hvis sletning
er valgt, slettes nu de udvalgte posteringer.
ad c).
Hjemkomst.
Denne funktion anvendes når kunderne returnerer film, samt hvis
kunden beholder filmen.
1) Indtast kundenr. godkend.
2) Indtast varenr. godkend.
3) Indtast antal.
4) Indtast hjemdato ååmm (kan overspringes).
5) Indtast fakturanr. (kan overspringes).
6) Godkend punkterne 1-5.
Hvis et af felterne overspringes og der findes mere end 1 kunde-
vare kombination fremkommer disse på skærmen og hjemkaldelsesda-
to og fakturanr. vælges.
ad d).
Fakturering.
For at registrere udlejningsfilm i forbindelse med fakturering
er det nødvendigt at registrere hjemkaldelsesdatoen. Det be-
mærkes at i forbindelse med kreditnota slettes filmene
fra registeret.
Når filmene registreres styres udlejningsfilm af varenummer:
Varenummer < 2000 er udlejningsfilm.
Kun ved udlejningsfilm indtastes antal måneder filmen ønskes
lejet. Hvis antal måneder er 0 vil filmen blive betragtet som
købefilmen. Maskinen beregner selv hjemkaldelsesdatoen ud fra
dette. På udskriften af fakturaen bruges de sidste 8 tegn til
udskrift af hjemkaldelsesdatoen. I forbindelse med fakturaud-
skriften opdateres udlejningsfilmene. Hvis det 5.sidste ciffer
i varenummeret er et "4" vil der ikke foregå lagertræk.
ad e).
Forespørgsler.
Der er følgende forespørgselsrutiner:
a) Hvilke film har en givet kunde lejet udskrift på skærm/printer.
b) Hvilke kunder har en givet film. Udskrift på skærm/printer.
ad f).
Filbeskrivelse.
Der forefindes tre sæt filer, et sæt for hver årstal:
Beregnet ved hjælp af (årstal+1) mod 3.
40 K 1: Kundetabel 10000 poster tilgang 4 sidste cifre kundenr.
Indeholdende adressen på første udlejningspost.
Initialiseres med nuller.
8 k 2: Varetabel 2000 poster. tilgang varenr.
Indeholdende adressen på første vareudlejningspost.
264 k 3:Udlejningsfil 11000 poster ,tilgang gennem kundetabel og
hægter
Indeholdende Kundenr,varenr,antal,fakturanr,hjemdato,hægte
Initialiseres med 100000,0,0,0,0,postnr+1
220 k 4:Vareudlejningsfil 11000 poster , tilgang gennem varetabel
og hægter
Indeholdende Varenr,kundenr,fakturanr,hjemdato,hægte
Initialiseres med 0,100000,0,0,postnr+1
5:Systemparametre:
a) antal poster i 3 og 4
b) første ledige post i 3
c) første ledige post i 4
d) har der været foretaget ændringer i dette årsfiler
bruges til styring af sikkerhedskopiering
Ved indsættelse i 3 og 4 placeres ny post i starten af hægtekæden
ad g) Sikkerhedskopiering
Denne rutine indbygges som en integreret del af det normale sy-
stem, filerne fordeles årsvis på de enkelte diskettesæt således
at f.eks 1983 placeres på pladerne 51,52 og 53
1) Dagsafslutning
Der kopieres i forbindelse med første kopi til plade 51,
61 og 71, hvis der på det tilhørende sæt har været ændrin-
ger.
2) Månedsafslutning
Der kopieres til 52,62 og 72
3) Årsafslutning
Der kopieres til 53,63 og 73
4) Sikkerhedskopiering
Der kan kun kopieres sætvis, dvs f.eks. 51,61 og 71 til 10
PRISER OG LEVERING.
Der bemærkes at dette tilbud erstatter tidligere fremsendte
tilbud, da der i ovennævnte er sket væsentlige ændringer i forhold
til tidligere:
a) Sletning af udlejede film i forbindelse med kreditnota.
b) Sletning i forbindelse med rykkerprocedure.
c) Specialprogram til registrering af tidligere udlejede film.
d) Mulighed for valg af lagertræk i fakturering.
e) Mulghed for forespørgsel på hvilke kunde ddr har en givet
film.
Pris for udlejningssystem kr. 24.000,-
Levering 1-2 mdr. fra accept.
Betaling netto kontant ved levering.
Rettigheder tilhører H.S.Møller.
0x0000…0003 Line {l1=0x01, l2=» «, l3=0x01}
0x0003…000f Line {l1=0x0a, l2=» GENERELT«, l3=0x0a}
0x000f…0012 Line {l1=0x01, l2=» «, l3=0x01}
0x0012…0057 Line {l1=0x43, l2=» Udlejningssystemet har til formål på en enkelt og nem måde at ad-«, l3=0x43}
0x0057…009e Line {l1=0x45, l2=» ministrere udlejningen hos IRISH LYDBÅND. Systemet er dimensioneret«, l3=0x45}
0x009e…00cd Line {l1=0x2d, l2=» til at behandle 33.000 udlejninger løbende.«, l3=0x2d}
0x00cd…00d0 Line {l1=0x01, l2=» «, l3=0x01}
0x00d0…00e3 Line {l1=0x11, l2=» PROGRAMMODULER.«, l3=0x11}
0x00e3…00e6 Line {l1=0x01, l2=» «, l3=0x01}
0x00e6…010b Line {l1=0x23, l2=» a) Registrering af udlejede film.«, l3=0x23}
0x010b…0122 Line {l1=0x15, l2=» b) Rykkerprocedure.«, l3=0x15}
0x0122…0133 Line {l1=0x0f, l2=» c) Hjemkomst.«, l3=0x0f}
0x0133…0146 Line {l1=0x11, l2=» d) Fakturering.«, l3=0x11}
0x0146…015b Line {l1=0x13, l2=» e) Forespørgsler.«, l3=0x13}
0x015b…015e Line {l1=0x01, l2=» «, l3=0x01}
0x015e…0166 Line {l1=0x06, l2=»ad a).«, l3=0x06}
0x0166…018b Line {l1=0x23, l2=» Registrering af udlejede film.«, l3=0x23}
0x018b…01d0 Line {l1=0x43, l2=» Denne funktion kan bruges til indtastning af allerede udlejede«, l3=0x43}
0x01d0…01ec Line {l1=0x1a, l2=» film og fejlslettede.«, l3=0x1a}
0x01ec…01ef Line {l1=0x01, l2=» «, l3=0x01}
0x01ef…020d Line {l1=0x1c, l2=» 1) Indtast kunden godkend.«, l3=0x1c}
0x020d…0226 Line {l1=0x17, l2=» 2) Indtast fakturanr.«, l3=0x17}
0x0226…0269 Line {l1=0x41, l2=» Kør følgende punkter igennem til faktura er færdigbehandlet.«, l3=0x41}
0x0269…0288 Line {l1=0x1d, l2=» 3) Indtast varenr. godkend.«, l3=0x1d}
0x0288…029d Line {l1=0x13, l2=» 4) Indtast antal.«, l3=0x13}
0x029d…02be Line {l1=0x1f, l2=» 5) Indtast hjemkaldelsesdato.«, l3=0x1f}
0x02be…02d7 Line {l1=0x17, l2=» 6) Godkend punkt 3-5.«, l3=0x17}
0x02d7…02da Line {l1=0x01, l2=» «, l3=0x01}
0x02da…02e2 Line {l1=0x06, l2=»ad b).«, l3=0x06}
0x02e2…02f9 Line {l1=0x15, l2=» Rykkerprocedure.«, l3=0x15}
0x02f9…033e Line {l1=0x43, l2=» Denne procedure anvendes til at udskrive rykker/påmindelse til«, l3=0x43}
0x033e…0384 Line {l1=0x44, l2=» kunderne indeholdende de film der har hjemkaldelse i et indtas-«, l3=0x44}
0x0384…039e Line {l1=0x18, l2=» tet månedsinterval.«, l3=0x18}
0x039e…03a1 Line {l1=0x01, l2=» «, l3=0x01}
0x03a1…03c6 Line {l1=0x23, l2=» 1) Indtast fra kundenr. (0:alle).«, l3=0x23}
0x03c6…03e1 Line {l1=0x19, l2=» 2) Indtast til kundenr.«, l3=0x19}
0x03e1…040a Line {l1=0x27, l2=» 3) Indtast fra måned (0:alle). ååmm.«, l3=0x27}
0x040a…0433 Line {l1=0x27, l2=» 4) Indtast til måned ååmm.«, l3=0x27}
0x0433…0455 Line {l1=0x20, l2=» 5) Ønskes posteringer slettet.«, l3=0x20}
0x0455…0459 Line {l1=0x02, l2=» «, l3=0x02}
0x0459…049f Line {l1=0x44, l2=» Maskinen gennemløber det kundeorienterede register og udskriver«, l3=0x44}
0x049f…04e4 Line {l1=0x43, l2=» en rykker/påmindelse til de kunder, der har film i de specifi-«, l3=0x43}
0x04e4…052a Line {l1=0x44, l2=» cerede intervaller. ( Udskrift se bilag) 8 1/2". Når udskriften«, l3=0x44}
0x052a…056f Line {l1=0x43, l2=» er færdig spørges om udskriften ønskes gentaget. Hvis sletning«, l3=0x43}
0x056f…05a3 Line {l1=0x32, l2=» er valgt, slettes nu de udvalgte posteringer.«, l3=0x32}
0x05a3…05a6 Line {l1=0x01, l2=» «, l3=0x01}
0x05a6…05ae Line {l1=0x06, l2=»ad c).«, l3=0x06}
0x05ae…05bf Line {l1=0x0f, l2=» Hjemkomst.«, l3=0x0f}
0x05bf…0605 Line {l1=0x44, l2=» Denne funktion anvendes når kunderne returnerer film, samt hvis«, l3=0x44}
0x0605…0623 Line {l1=0x1c, l2=» kunden beholder filmen.«, l3=0x1c}
0x0623…0626 Line {l1=0x01, l2=» «, l3=0x01}
0x0626…0649 Line {l1=0x21, l2=» 1) Indtast kundenr. godkend.«, l3=0x21}
0x0649…066c Line {l1=0x21, l2=» 2) Indtast varenr. godkend.«, l3=0x21}
0x066c…0681 Line {l1=0x13, l2=» 3) Indtast antal.«, l3=0x13}
0x0681…06b3 Line {l1=0x30, l2=» 4) Indtast hjemdato ååmm (kan overspringes).«, l3=0x30}
0x06b3…06e5 Line {l1=0x30, l2=» 5) Indtast fakturanr. (kan overspringes).«, l3=0x30}
0x06e5…0702 Line {l1=0x1b, l2=» 6) Godkend punkterne 1-5.«, l3=0x1b}
0x0702…0749 Line {l1=0x45, l2=» Hvis et af felterne overspringes og der findes mere end 1 kunde-«, l3=0x45}
0x0749…0790 Line {l1=0x45, l2=» vare kombination fremkommer disse på skærmen og hjemkaldelsesda-«, l3=0x45}
0x0790…07af Line {l1=0x1d, l2=» to og fakturanr. vælges.«, l3=0x1d}
0x07af…07b2 Line {l1=0x01, l2=» «, l3=0x01}
0x07b2…07ba Line {l1=0x06, l2=»ad d).«, l3=0x06}
0x07ba…07cd Line {l1=0x11, l2=» Fakturering.«, l3=0x11}
0x07cd…0812 Line {l1=0x43, l2=» For at registrere udlejningsfilm i forbindelse med fakturering«, l3=0x43}
0x0812…0855 Line {l1=0x41, l2=» er det nødvendigt at registrere hjemkaldelsesdatoen. Det be-«, l3=0x41}
0x0855…0893 Line {l1=0x3c, l2=» mærkes at i forbindelse med kreditnota slettes filmene«, l3=0x3c}
0x0893…08a9 Line {l1=0x14, l2=» fra registeret.«, l3=0x14}
0x08a9…08ec Line {l1=0x41, l2=» Når filmene registreres styres udlejningsfilm af varenummer:«, l3=0x41}
0x08ec…0917 Line {l1=0x29, l2=» Varenummer < 2000 er udlejningsfilm.«, l3=0x29}
0x0917…095a Line {l1=0x41, l2=» Kun ved udlejningsfilm indtastes antal måneder filmen ønskes«, l3=0x41}
0x095a…099e Line {l1=0x42, l2=» lejet. Hvis antal måneder er 0 vil filmen blive betragtet som«, l3=0x42}
0x099e…09e2 Line {l1=0x42, l2=» købefilmen. Maskinen beregner selv hjemkaldelsesdatoen ud fra«, l3=0x42}
0x09e2…0a26 Line {l1=0x42, l2=» dette. På udskriften af fakturaen bruges de sidste 8 tegn til«, l3=0x42}
0x0a26…0a6a Line {l1=0x42, l2=» udskrift af hjemkaldelsesdatoen. I forbindelse med fakturaud-«, l3=0x42}
0x0a6a…0ab0 Line {l1=0x44, l2=» skriften opdateres udlejningsfilmene. Hvis det 5.sidste ciffer«, l3=0x44}
0x0ab0…0aee Line {l1=0x3c, l2=» i varenummeret er et "4" vil der ikke foregå lagertræk.«, l3=0x3c}
0x0aee…0af1 Line {l1=0x01, l2=» «, l3=0x01}
0x0af1…0af9 Line {l1=0x06, l2=»ad e).«, l3=0x06}
0x0af9…0b0e Line {l1=0x13, l2=» Forespørgsler.«, l3=0x13}
0x0b0e…0b3a Line {l1=0x2a, l2=» Der er følgende forespørgselsrutiner:«, l3=0x2a}
0x0b3a…0b80 Line {l1=0x44, l2=» a) Hvilke film har en givet kunde lejet udskrift på skærm/printer.«, l3=0x44}
0x0b80…0bc6 Line {l1=0x44, l2=» b) Hvilke kunder har en givet film. Udskrift på skærm/printer.«, l3=0x44}
0x0bc6…0bc9 Line {l1=0x01, l2=» «, l3=0x01}
0x0bc9…0bd1 Line {l1=0x06, l2=»ad f).«, l3=0x06}
0x0bd1…0be7 Line {l1=0x14, l2=» Filbeskrivelse.«, l3=0x14}
0x0be7…0beb Line {l1=0x02, l2=» «, l3=0x02}
0x0beb…0c27 Line {l1=0x3a, l2=» Der forefindes tre sæt filer, et sæt for hver årstal:«, l3=0x3a}
0x0c27…0c55 Line {l1=0x2c, l2=» Beregnet ved hjælp af (årstal+1) mod 3.«, l3=0x2c}
0x0c55…0c58 Line {l1=0x01, l2=» «, l3=0x01}
0x0c58…0c99 Line {l1=0x3f, l2=»40 K 1: Kundetabel 10000 poster tilgang 4 sidste cifre kundenr.«, l3=0x3f}
0x0c99…0cd2 Line {l1=0x37, l2=» Indeholdende adressen på første udlejningspost.«, l3=0x37}
0x0cd2…0cf5 Line {l1=0x21, l2=» Initialiseres med nuller.«, l3=0x21}
0x0cf5…0cf8 Line {l1=0x01, l2=» «, l3=0x01}
0x0cf8…0d28 Line {l1=0x2e, l2=» 8 k 2: Varetabel 2000 poster. tilgang varenr.«, l3=0x2e}
0x0d28…0d65 Line {l1=0x3b, l2=» Indeholdende adressen på første vareudlejningspost.«, l3=0x3b}
0x0d65…0d68 Line {l1=0x01, l2=» «, l3=0x01}
0x0d68…0dab Line {l1=0x41, l2=»264 k 3:Udlejningsfil 11000 poster ,tilgang gennem kundetabel og«, l3=0x41}
0x0dab…0de7 Line {l1=0x3a, l2=» hægter«, l3=0x3a}
0x0de7…0e2b Line {l1=0x42, l2=» Indeholdende Kundenr,varenr,antal,fakturanr,hjemdato,hægte«, l3=0x42}
0x0e2b…0e2e Line {l1=0x01, l2=» «, l3=0x01}
0x0e2e…0e61 Line {l1=0x31, l2=» Initialiseres med 100000,0,0,0,0,postnr+1«, l3=0x31}
0x0e61…0e64 Line {l1=0x01, l2=» «, l3=0x01}
0x0e64…0ea8 Line {l1=0x42, l2=»220 k 4:Vareudlejningsfil 11000 poster , tilgang gennem varetabel«, l3=0x42}
0x0ea8…0ee9 Line {l1=0x3f, l2=» og hægter«, l3=0x3f}
0x0ee9…0f27 Line {l1=0x3c, l2=» Indeholdende Varenr,kundenr,fakturanr,hjemdato,hægte«, l3=0x3c}
0x0f27…0f2a Line {l1=0x01, l2=» «, l3=0x01}
0x0f2a…0f5b Line {l1=0x2f, l2=» Initialiseres med 0,100000,0,0,postnr+1«, l3=0x2f}
0x0f5b…0f5e Line {l1=0x01, l2=» «, l3=0x01}
0x0f5e…0f78 Line {l1=0x18, l2=» 5:Systemparametre:«, l3=0x18}
0x0f78…0f7b Line {l1=0x01, l2=» «, l3=0x01}
0x0f7b…0f9d Line {l1=0x20, l2=» a) antal poster i 3 og 4«, l3=0x20}
0x0f9d…0fc0 Line {l1=0x21, l2=» b) første ledige post i 3«, l3=0x21}
0x0fc0…0fe3 Line {l1=0x21, l2=» c) første ledige post i 4«, l3=0x21}
0x0fe3…1022 Line {l1=0x3d, l2=» d) har der været foretaget ændringer i dette årsfiler«, l3=0x3d}
0x1022…1058 Line {l1=0x34, l2=» bruges til styring af sikkerhedskopiering«, l3=0x34}
0x1058…105d Line {l1=0x03, l2=» «, l3=0x03}
0x105d…10a3 Line {l1=0x44, l2=» Ved indsættelse i 3 og 4 placeres ny post i starten af hægtekæden«, l3=0x44}
0x10a3…10a6 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x10a9…10c4 Line {l1=0x19, l2=»ad g) Sikkerhedskopiering«, l3=0x19}
0x10c4…10c7 Line {l1=0x01, l2=» «, l3=0x01}
0x10c7…110e Line {l1=0x45, l2=» Denne rutine indbygges som en integreret del af det normale sy-«, l3=0x45}
0x110e…1155 Line {l1=0x45, l2=» stem, filerne fordeles årsvis på de enkelte diskettesæt således«, l3=0x45}
0x1155…118d Line {l1=0x36, l2=» at f.eks 1983 placeres på pladerne 51,52 og 53«, l3=0x36}
0x118d…1190 Line {l1=0x01, l2=» «, l3=0x01}
0x1190…11aa Line {l1=0x18, l2=» 1) Dagsafslutning«, l3=0x18}
0x11aa…11ee Line {l1=0x42, l2=» Der kopieres i forbindelse med første kopi til plade 51,«, l3=0x42}
0x11ee…1234 Line {l1=0x44, l2=» 61 og 71, hvis der på det tilhørende sæt har været ændrin-«, l3=0x44}
0x1234…1244 Line {l1=0x0e, l2=» ger.«, l3=0x0e}
0x1244…1247 Line {l1=0x01, l2=» «, l3=0x01}
0x1247…1263 Line {l1=0x1a, l2=» 2) Månedsafslutning«, l3=0x1a}
0x1263…128b Line {l1=0x26, l2=» Der kopieres til 52,62 og 72«, l3=0x26}
0x128b…128e Line {l1=0x01, l2=» «, l3=0x01}
0x128e…12a7 Line {l1=0x17, l2=» 3) Årsafslutning«, l3=0x17}
0x12a7…12cf Line {l1=0x26, l2=» Der kopieres til 53,63 og 73«, l3=0x26}
0x12cf…12d2 Line {l1=0x01, l2=» «, l3=0x01}
0x12d2…12f1 Line {l1=0x1d, l2=» 4) Sikkerhedskopiering«, l3=0x1d}
0x12f1…1337 Line {l1=0x44, l2=» Der kan kun kopieres sætvis, dvs f.eks. 51,61 og 71 til 10«, l3=0x44}
0x1337…133a Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x133d…1353 Line {l1=0x14, l2=» PRISER OG LEVERING.«, l3=0x14}
0x1353…1356 Line {l1=0x01, l2=» «, l3=0x01}
0x1356…139a Line {l1=0x42, l2=» Der bemærkes at dette tilbud erstatter tidligere fremsendte«, l3=0x42}
0x139a…13df Line {l1=0x43, l2=» tilbud, da der i ovennævnte er sket væsentlige ændringer i forhold«, l3=0x43}
0x13df…13f0 Line {l1=0x0f, l2=» til tidligere:«, l3=0x0f}
0x13f0…1433 Line {l1=0x41, l2=» a) Sletning af udlejede film i forbindelse med kreditnota.«, l3=0x41}
0x1433…146a Line {l1=0x35, l2=» b) Sletning i forbindelse med rykkerprocedure.«, l3=0x35}
0x146a…14b1 Line {l1=0x45, l2=» c) Specialprogram til registrering af tidligere udlejede film.«, l3=0x45}
0x14b1…14ea Line {l1=0x37, l2=» d) Mulighed for valg af lagertræk i fakturering.«, l3=0x37}
0x14ea…1530 Line {l1=0x44, l2=» e) Mulghed for forespørgsel på hvilke kunde ddr har en givet«, l3=0x44}
0x1530…1541 Line {l1=0x0f, l2=» film.«, l3=0x0f}
0x1541…1544 Line {l1=0x01, l2=» «, l3=0x01}
0x1544…1581 Line {l1=0x3b, l2=» Pris for udlejningssystem kr. 24.000,-«, l3=0x3b}
0x1581…15a7 Line {l1=0x24, l2=» Levering 1-2 mdr. fra accept.«, l3=0x24}
0x15a7…15d4 Line {l1=0x2b, l2=» Betaling netto kontant ved levering.«, l3=0x2b}
0x15d4…15fd Line {l1=0x27, l2=» Rettigheder tilhører H.S.Møller.«, l3=0x27}
0x15fd…1600 00 00 00 ┆ ┆
0x1600…1620 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 ┆ ┆
[…0x11…]
0x1840…1860 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 63 ┆ c┆