|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »LAGERST.K«
└─⟦510f10af2⟧ Bits:30009011 Apn
└─⟦this⟧ »LAGERST.K«
FORMÅL.
Lagerstyringsmodulet er et styringsværktøj til at besvare følgende
spørgsmål enten for enkelte varer eller grupper af varer.
a) Hvor meget har vi på lager
b) Hvor meget har vi omsat for
c) Hvor meget har vi tjent
d) Hvor store bevægelser har der været
e) Hvornår skal vi bestille
f) Er vores kalkule rigtig
g) Skal vi beholde den/disse varer i vort sortiment
Beskrivelse
Modulet er sammensat af følgende delprogrammer:
a) Varevedligeholdelse
b) Lagerlisteprogram
c) Lagerregistrering
d) Fakturaregistrering
e) Fakturaudskrivning
a), d) og e) erstatter tilsvarende moduler i standard.
ad a) Dette program bruges til at oprette, ændre, slette og udskrive
de oplysninger, der er registreret for den enkelte vare.
1) Nummer
2) Betegnelse
3) Salgspris
4) Kostpris
5) Fysisk lager
6) Tilgang i perioden
7) Solgt i perioden
8) Dækningsbidrag i perioden
9) Omsætning i perioden
10) Minimumslager
11) Varesalgskontonummer.
Det bemærkes at kun felterne 2), 3), 4), 10) og 11) kan ændres, og
hvis felt 5) er større end nul kan varen ikke slettes. De øvrige
oplysninger ændres af de øvrige programmer. Se nedenfor.
ad 6) I dette program kan følgende udskrifter vælges for en enkelt
eller en gruppe af varer.
1) Prisliste
nummer, betegnelse og salgspris.
2) Salgsstastik
nummer, betegnelse, solgt i perioden, omsætning, dækningsbidrag
i kr. og %.
3) Bestillingsliste
nummer, betegnelse, minimumslager, fysisk lager.
Ved udskrifter medtages kun de varer, hvor fysisk lager er mindre end
eller lig med minimumslager.
4) Lagerbeholdning
Nummer, betegnelse, pris, fysisk lager.
5) Lagerstatistik
nummer, betegnelse, fysisk lager, værdi, tilgang i perioden,
solgt i perioden, lagerforskydning i kr.
( værdien er opgjort i kostpriser)
6) Lagerlister
nummer, betegnelse, slagspris, kostpris, minimumslager, vare-
salgskontonummer.
ad c) Lagerregistrering.
Med dette program er det muligt at registrere hjemkomst af
varer, samt ændre kost- og salgspris. Programmet anvendes også
til lagerjusteringer i forbindels med fysisk optælling.
Programmet afsluttes med en obligatorisk udskrift af de foretag-
ne registreringer.
Grunden til denne fremgangsmåde er at forhindre uautoriserede
afskrivninger på lageret.
ad d) Fakturering
Svarer til fakturering i standard.
ad e) Fakturaudskrivning
Svarer til standard, men optælller solgt antal, dækningsbidrag
omsætning, nedskriver fysisk lager.
Modsætning ved kreditnota.
0x000…003 Line {l1=0x01, l2=» «, l3=0x01}
0x003…00c Line {l1=0x07, l2=»FORMÅL.«, l3=0x07}
0x00c…00f Line {l1=0x01, l2=» «, l3=0x01}
0x00f…053 Line {l1=0x42, l2=»Lagerstyringsmodulet er et styringsværktøj til at besvare følgende«, l3=0x42}
0x053…08e Line {l1=0x39, l2=»spørgsmål enten for enkelte varer eller grupper af varer.«, l3=0x39}
0x08e…091 Line {l1=0x01, l2=» «, l3=0x01}
0x091…0b2 Line {l1=0x1f, l2=» a) Hvor meget har vi på lager«, l3=0x1f}
0x0b2…0d4 Line {l1=0x20, l2=» b) Hvor meget har vi omsat for«, l3=0x20}
0x0d4…0f2 Line {l1=0x1c, l2=» c) Hvor meget har vi tjent«, l3=0x1c}
0x0f2…11c Line {l1=0x28, l2=» d) Hvor store bevægelser har der været«, l3=0x28}
0x11c…13b Line {l1=0x1d, l2=» e) Hvornår skal vi bestille«, l3=0x1d}
0x13b…159 Line {l1=0x1c, l2=» f) Er vores kalkule rigtig«, l3=0x1c}
0x159…190 Line {l1=0x35, l2=» g) Skal vi beholde den/disse varer i vort sortiment«, l3=0x35}
0x190…193 Line {l1=0x01, l2=» «, l3=0x01}
0x193…1a0 Line {l1=0x0b, l2=»Beskrivelse«, l3=0x0b}
0x1a0…1a3 Line {l1=0x01, l2=» «, l3=0x01}
0x1a3…1d4 Line {l1=0x2f, l2=»Modulet er sammensat af følgende delprogrammer:«, l3=0x2f}
0x1d4…1d7 Line {l1=0x01, l2=» «, l3=0x01}
0x1d7…1f1 Line {l1=0x18, l2=» a) Varevedligeholdelse«, l3=0x18}
0x1f1…209 Line {l1=0x16, l2=» b) Lagerlisteprogram«, l3=0x16}
0x209…221 Line {l1=0x16, l2=» c) Lagerregistrering«, l3=0x16}
0x221…23b Line {l1=0x18, l2=» d) Fakturaregistrering«, l3=0x18}
0x23b…254 Line {l1=0x17, l2=» e) Fakturaudskrivning«, l3=0x17}
0x254…257 Line {l1=0x01, l2=» «, l3=0x01}
0x257…28f Line {l1=0x36, l2=»a), d) og e) erstatter tilsvarende moduler i standard.«, l3=0x36}
0x28f…292 Line {l1=0x01, l2=» «, l3=0x01}
0x292…2d8 Line {l1=0x44, l2=»ad a) Dette program bruges til at oprette, ændre, slette og udskrive«, l3=0x44}
0x2d8…312 Line {l1=0x38, l2=»de oplysninger, der er registreret for den enkelte vare.«, l3=0x38}
0x312…315 Line {l1=0x01, l2=» «, l3=0x01}
0x315…322 Line {l1=0x0b, l2=» 1) Nummer«, l3=0x0b}
0x322…333 Line {l1=0x0f, l2=» 2) Betegnelse«, l3=0x0f}
0x333…343 Line {l1=0x0e, l2=» 3) Salgspris«, l3=0x0e}
0x343…352 Line {l1=0x0d, l2=» 4) Kostpris«, l3=0x0d}
0x352…365 Line {l1=0x11, l2=» 5) Fysisk lager«, l3=0x11}
0x365…37e Line {l1=0x17, l2=» 6) Tilgang i perioden«, l3=0x17}
0x37e…395 Line {l1=0x15, l2=» 7) Solgt i perioden«, l3=0x15}
0x395…3b5 Line {l1=0x1e, l2=» 8) Dækningsbidrag i perioden«, l3=0x1e}
0x3b5…3d0 Line {l1=0x19, l2=» 9) Omsætning i perioden«, l3=0x19}
0x3d0…3e4 Line {l1=0x12, l2=» 10) Minimumslager«, l3=0x12}
0x3e4…400 Line {l1=0x1a, l2=» 11) Varesalgskontonummer.«, l3=0x1a}
0x400…403 Line {l1=0x01, l2=» «, l3=0x01}
0x403…447 Line {l1=0x42, l2=»Det bemærkes at kun felterne 2), 3), 4), 10) og 11) kan ændres, og«, l3=0x42}
0x447…489 Line {l1=0x40, l2=»hvis felt 5) er større end nul kan varen ikke slettes. De øvrige«, l3=0x40}
0x489…4c3 Line {l1=0x38, l2=»oplysninger ændres af de øvrige programmer. Se nedenfor.«, l3=0x38}
0x4c3…4c6 Line {l1=0x01, l2=» «, l3=0x01}
0x4c6…50a Line {l1=0x42, l2=»ad 6) I dette program kan følgende udskrifter vælges for en enkelt«, l3=0x42}
0x50a…525 Line {l1=0x19, l2=»eller en gruppe af varer.«, l3=0x19}
0x525…528 Line {l1=0x01, l2=» «, l3=0x01}
0x528…538 Line {l1=0x0e, l2=» 1) Prisliste«, l3=0x0e}
0x538…55f Line {l1=0x25, l2=» nummer, betegnelse og salgspris.«, l3=0x25}
0x55f…562 Line {l1=0x01, l2=» «, l3=0x01}
0x562…575 Line {l1=0x11, l2=» 2) Salgsstastik«, l3=0x11}
0x575…5bb Line {l1=0x44, l2=» nummer, betegnelse, solgt i perioden, omsætning, dækningsbidrag«, l3=0x44}
0x5bb…5cd Line {l1=0x10, l2=» i kr. og %.«, l3=0x10}
0x5cd…5d0 Line {l1=0x01, l2=» «, l3=0x01}
0x5d0…5e7 Line {l1=0x15, l2=» 3) Bestillingsliste«, l3=0x15}
0x5e7…61e Line {l1=0x35, l2=» nummer, betegnelse, minimumslager, fysisk lager.«, l3=0x35}
0x61e…621 Line {l1=0x01, l2=» «, l3=0x01}
0x621…668 Line {l1=0x45, l2=»Ved udskrifter medtages kun de varer, hvor fysisk lager er mindre end«, l3=0x45}
0x668…686 Line {l1=0x1c, l2=»eller lig med minimumslager.«, l3=0x1c}
0x686…689 Line {l1=0x01, l2=» «, l3=0x01}
0x689…69f Line {l1=0x14, l2=» 4) Lagerbeholdning«, l3=0x14}
0x69f…6cd Line {l1=0x2c, l2=» Nummer, betegnelse, pris, fysisk lager.«, l3=0x2c}
0x6cd…6d0 Line {l1=0x01, l2=» «, l3=0x01}
0x6d0…6e5 Line {l1=0x13, l2=» 5) Lagerstatistik«, l3=0x13}
0x6e5…728 Line {l1=0x41, l2=» nummer, betegnelse, fysisk lager, værdi, tilgang i perioden,«, l3=0x41}
0x728…757 Line {l1=0x2d, l2=» solgt i perioden, lagerforskydning i kr.«, l3=0x2d}
0x757…780 Line {l1=0x27, l2=» ( værdien er opgjort i kostpriser)«, l3=0x27}
0x780…783 Line {l1=0x01, l2=» «, l3=0x01}
0x783…795 Line {l1=0x10, l2=» 6) Lagerlister«, l3=0x10}
0x795…7d9 Line {l1=0x42, l2=» nummer, betegnelse, slagspris, kostpris, minimumslager, vare-«, l3=0x42}
0x7d9…7f1 Line {l1=0x16, l2=» salgskontonummer.«, l3=0x16}
0x7f1…7f6 Line {l1=0x03, l2=» «, l3=0x03}
0x7f6…810 Line {l1=0x18, l2=»ad c) Lagerregistrering.«, l3=0x18}
0x810…851 Line {l1=0x3f, l2=» Med dette program er det muligt at registrere hjemkomst af«, l3=0x3f}
0x851…896 Line {l1=0x43, l2=» varer, samt ændre kost- og salgspris. Programmet anvendes også«, l3=0x43}
0x896…8d4 Line {l1=0x3c, l2=» til lagerjusteringer i forbindels med fysisk optælling.«, l3=0x3c}
0x8d4…91b Line {l1=0x45, l2=» Programmet afsluttes med en obligatorisk udskrift af de foretag-«, l3=0x45}
0x91b…934 Line {l1=0x17, l2=» ne registreringer.«, l3=0x17}
0x934…978 Line {l1=0x42, l2=» Grunden til denne fremgangsmåde er at forhindre uautoriserede«, l3=0x42}
0x978…998 Line {l1=0x1e, l2=» afskrivninger på lageret.«, l3=0x1e}
0x998…99b Line {l1=0x01, l2=» «, l3=0x01}
0x99b…9ae Line {l1=0x11, l2=»ad d) Fakturering«, l3=0x11}
0x9ae…9d7 Line {l1=0x27, l2=» Svarer til fakturering i standard.«, l3=0x27}
0x9d7…9da Line {l1=0x01, l2=» «, l3=0x01}
0x9da…9f4 Line {l1=0x18, l2=»ad e) Fakturaudskrivning«, l3=0x18}
0x9f4…a39 Line {l1=0x43, l2=» Svarer til standard, men optælller solgt antal, dækningsbidrag«, l3=0x43}
0xa39…a63 Line {l1=0x28, l2=» omsætning, nedskriver fysisk lager.«, l3=0x28}
0xa63…a84 Line {l1=0x1f, l2=» Modsætning ved kreditnota.«, l3=0x1f}
0xa84…a88 Line {l1=0x02, l2=» «, l3=0x02}
0xa88…aa0 00 00 6f 6d 73 61 74 20 66 6f 72 20 1c 20 20 63 29 20 48 76 6f 72 20 6d ┆ omsat for c) Hvor m┆
0xaa0…ac0 31 20 4f 46 20 13 2b 37 33 37 30 20 45 58 45 43 20 53 5c 47 28 4d 46 50 4f 53 54 2c 48 46 54 41 ┆1 OF +7370 EXEC SØG(MFPOST,HFTA┆
0xac0…ae0 42 2c 4b 4f 4e 54 2c 55 46 54 41 42 2c 4b 31 31 24 29 2b 0e 37 33 38 30 20 57 48 45 4e 20 44 54 ┆B,KONT,UFTAB,K11$)+ 7380 WHEN DT┆
0xae0…b00 41 4c 0e 2b 37 33 39 30 20 45 58 45 43 20 53 5c 47 28 4d 44 50 4f 53 54 2c 48 44 54 41 42 2c 4b ┆AL +7390 EXEC SØG(MDPOST,HDTAB,K┆
0xb00…b20 4f 4e 54 2c 55 44 54 41 42 2c 4b 31 32 24 29 2b 0f 37 34 30 30 20 57 48 45 4e 20 4b 52 54 41 4c ┆ONT,UDTAB,K12$)+ 7400 WHEN KRTAL┆
0xb20…b40 0f 2d 37 34 31 30 20 45 58 45 43 20 53 5c 47 28 4d 4b 50 4f 53 54 2c 48 4b 52 54 41 42 2c 4b 4f ┆ -7410 EXEC SØG(MKPOST,HKRTAB,KO┆
0xb40…b60 4e 54 2c 55 4b 52 54 41 42 2c 4b 31 33 24 29 2d 0d 37 34 32 30 20 45 4e 44 43 41 53 45 20 0d 11 ┆NT,UKRTAB,K13$)- 7420 ENDCASE ┆
0xb60…b80 37 34 33 30 20 49 46 20 54 3e 42 20 54 48 45 4e 20 11 13 37 34 34 30 20 43 41 53 45 20 4b 54 41 ┆7430 IF T>B THEN 7440 CASE KTA┆
0xb80…ba0 4c 31 20 4f 46 20 13 2b 37 34 35 30 20 45 58 45 43 20 50 4f 53 54 45 52 28 4b 38 24 2c 4b 4f 4e ┆L1 OF +7450 EXEC POSTER(K8$,KON┆
0xba0…bc0 54 2c 54 2c 4d 46 50 4f 53 54 2c 53 56 2c 53 55 4d 24 29 2b 0e 37 34 36 30 20 57 48 45 4e 20 44 ┆T,T,MFPOST,SV,SUM$)+ 7460 WHEN D┆
0xbc0…be0 54 41 4c 0e 2b 37 34 37 30 20 45 58 45 43 20 50 4f 53 54 45 52 28 4b 39 24 2c 4b 4f 4e 54 2c 54 ┆TAL +7470 EXEC POSTER(K9$,KONT,T┆
0xbe0…c00 2c 4d 44 50 4f 53 54 2c 53 56 2c 53 55 4d 24 29 2b 0f 37 34 38 30 20 57 48 45 4e 20 4b 52 54 41 ┆,MDPOST,SV,SUM$)+ 7480 WHEN KRTA┆
0xc00…c20 4c 0f 2c 37 34 39 30 20 45 58 45 43 20 50 4f 53 54 45 52 28 4b 31 30 24 2c 4b 4f 4e 54 2c 54 2c ┆L ,7490 EXEC POSTER(K10$,KONT,T,┆
0xc20…c40 4d 4b 50 4f 53 54 2c 53 56 2c 53 55 4d 24 29 2c 0d 37 35 30 30 20 45 4e 44 43 41 53 45 20 0d 0a ┆MKPOST,SV,SUM$), 7500 ENDCASE ┆
0xc40…c60 37 35 31 30 20 45 4c 53 45 20 0a 0a 37 35 32 30 20 4c 49 45 3d 42 0a 0b 37 35 33 30 20 45 4e 44 ┆7510 ELSE 7520 LIE=B 7530 END┆
0xc60…c80 49 46 20 0b 1a 37 35 34 30 20 49 46 20 54 3d 42 20 54 48 45 4e 20 53 55 4d 24 3d 22 30 2b 22 1a ┆IF 7540 IF T=B THEN SUM$="0+" ┆
0xc80…ca0 12 37 35 35 30 20 49 46 20 53 56 3d 42 20 54 48 45 4e 20 12 1f 37 35 36 30 20 45 58 45 43 20 54 ┆ 7550 IF SV=B THEN 7560 EXEC T┆
0xca0…cc0 55 44 28 53 55 4d 24 2c 55 42 45 4c 5c 42 24 2c 42 2c 42 29 1f 1f 37 35 37 30 20 50 52 49 4e 54 ┆UD(SUM$,UBELØB$,B,B) 7570 PRINT┆
0xcc0…ce0 20 54 41 42 28 33 35 29 3b 53 54 52 45 47 24 28 43 3a 34 33 29 1f 45 37 35 38 30 20 50 52 49 4e ┆ TAB(35);STREG$(C:43) E7580 PRIN┆
0xce0…d00 54 20 54 41 42 28 33 35 29 3b 22 4e 79 20 73 61 6c 64 6f 22 3b 54 41 42 28 34 39 2b 59 2a 28 53 ┆T TAB(35);"Ny saldo";TAB(49+Y*(S┆
0xd00…d20 55 4d 24 28 4c 45 4e 28 53 55 4d 24 29 29 3d 22 2d 22 29 29 3b 55 42 45 4c 5c 42 24 45 0a 37 35 ┆UM$(LEN(SUM$))="-"));UBELØB$E 75┆
0xd20…d40 39 30 20 45 4c 53 45 20 0a 13 37 36 30 30 20 43 41 53 45 20 4b 54 41 4c 31 20 4f 46 20 13 45 37 ┆90 ELSE 7600 CASE KTAL1 OF E7┆
0xd40…d60 36 31 30 20 45 58 45 43 20 42 53 4b 28 54 41 4c 34 24 2c 33 2c 53 55 4d 24 2c 46 4d 44 45 42 45 ┆610 EXEC BSK(TAL4$,3,SUM$,FMDEBE┆
0xd60…d80 54 24 2c 46 4d 4b 52 45 44 49 54 24 2c 46 5d 44 45 42 45 54 24 2c 46 5d 4b 52 45 44 49 54 24 2c ┆T$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,┆
0xd80…da0 4c 49 45 29 45 0e 37 36 32 30 20 57 48 45 4e 20 44 54 41 4c 0e 39 37 36 33 30 20 45 58 45 43 20 ┆LIE)E 7620 WHEN DTAL 97630 EXEC ┆
0xda0…dc0 42 53 4b 28 4d 44 4e 4b 5c 42 24 2c 30 2c 53 55 4d 24 2c 44 53 4c 31 24 2c 44 53 4c 32 24 2c 44 ┆BSK(MDNKØB$,0,SUM$,DSL1$,DSL2$,D┆
0xdc0…de0 53 4c 33 24 2c 44 53 4c 34 24 2c 4c 49 45 29 39 0f 37 36 34 30 20 57 48 45 4e 20 4b 52 54 41 4c ┆SL3$,DSL4$,LIE)9 7640 WHEN KRTAL┆
0xde0…e00 0f 37 37 36 35 30 20 45 58 45 43 20 42 53 4b 28 54 41 4c 34 24 2c 34 2c 53 55 4d 24 2c 4b 53 4c ┆ 77650 EXEC BSK(TAL4$,4,SUM$,KSL┆
0xe00…e20 31 24 2c 54 41 4c 34 24 2c 54 41 4c 34 24 2c 4b 53 4c 32 24 2c 4c 49 45 29 37 0d 37 36 36 30 20 ┆1$,TAL4$,TAL4$,KSL2$,LIE)7 7660 ┆
0xe20…e40 45 4e 44 43 41 53 45 20 0d 0b 37 36 37 30 20 45 4e 44 49 46 20 0b 0d 37 36 38 30 20 4f 55 54 50 ┆ENDCASE 7670 ENDIF 7680 OUTP┆
0xe40…e60 55 54 20 54 0d 23 37 36 39 30 20 45 58 45 43 20 49 4e 44 31 28 34 2c 32 33 2c 2d 39 2c 2d 36 2c ┆UT T #7690 EXEC IND1(4,23,-9,-6,┆
0xe60…e80 4c 54 58 24 28 31 30 29 29 23 12 37 37 30 30 20 49 46 20 50 3d 2d 37 20 54 48 45 4e 20 12 12 37 ┆LTX$(10))# 7700 IF P=-7 THEN 7┆
0xe80…ea0 37 31 30 20 45 58 45 43 20 53 54 41 52 54 42 49 4c 12 0a 37 37 32 30 20 45 4c 53 45 20 0a 0b 63 ┆710 EXEC STARTBIL 7720 ELSE c┆