|
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: 31360 (0x7a80)
Types: TextFile
Names: »VEJLED.CMD«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »VEJLED.CMD«
*****************************************************************************
* COMMANDO FILE TIL RC TIME OG OMKOSTNINGS OVEDRSIGT *
* NAVN : VEJLED.CMD SIDST ÆNDRET DATO: 86.02.24 KL..: 08.30 *
* KALDES FRA START.CMD OG T1.MEN *
*****************************************************************************
store T to vlok
*
DO WHILE VLOK
store ' ' to v
set console on
erase
text
*** VEJLEDNING TIL RC TIME OG OMKOSTNINGS OVERSIGT T6 ***
...............................................................................
00. SLUT MED VEJLEDNING
10. START OG SLUT AF SYSTEMET
20. SIKKERHEDSKOPIER
30. UDSKRIVNING AF LISTER
40. HENT TRANSAKTIONS-FILE FRA RC8000
50. OPDATERING MED TRANSAKTIONS-FILE
60. BUDGET VEJLEDNING
70. TEKST VEJLEDNING
80. FEJL SITUATIONER
90. PERIODE BEGREBET
...............................................................................
endtext
@ 23,0 say 'NUMMER ? ' get v
read
*
if v='0'
store F to vlok
loop
endif 0
*
if v='10'
erase
text
10. START OG SLUT AF SYSTEMET.
Ved 'kold opstart' af maskinen, det vil sige når maskinen har været slukket
helt, vil første menu-billede automatisk blive vist. (AUTOEXEC=DBASE START)
Ved 'varm start' når du er i CP/M og vil ind i TIME- OG OMKOSTNINGS OVER-
SIGTEN så vil der stå ' A> ', og der tastes DBASE START.
Ved normal afslutning af systemet tastes der 0 (nul) på hoved-menu billedet.
Systemet lukkes af og går ud til CP/M og viser , hvor meget der er tilbage
på diskette A: , og der vil bagefter på skærmen stå ' A> '
Se afsnit 80 om fejl situationer !
Skulle det ske, at systemet går ned og ikke går tilbage til CP/M (' A> '),
så vil der stå '. ' (punktum).
Dette markerer, at man stadig er i systemet, og der tastes 'DO SLUT' for at
komme ud af systemet og tilbage til CP/M.
Hvis dette ikke hjælper, så tast 'CLEAR' og prøv bagefter med 'QUIT'.
HUSK det skal betragtes som fejl.
TAST RETUR
endtext
set console off
wait
loop
endif 10
*
if v='20'
erase
text
20. SIKKERHEDSKOPIER.
Sikkerhedskopi kaldes også backup.
Der er IKKE indlagt sikkerhedskopi i systemet, det er brugeren selv som
SKAL tage sikkerhedskopi af diskette A:
Hvis nye disketter anvendes til sikkerhedskopi, så skal disketten være
formatteret med "FORMAT"-programmet.
"BACKUP"-programmet flytter alt fra ind-disketten til ud-disketten, og
overskriver alt eksisterende på ud-disketten.
"FORMAT" af eventuelle nye disketter samt "BACKUP" er for eksempel
beskrevet på dansk i RC-tekstbehandlings manualer.
"FORMAT" og "BACKUP" programmer er på denne diskette.
Før opdatering vil være et godt tidspunkt til at sikre sig med kopi.
Husk at hvis sikkerhedskopi er i orden, så bliver der sjældent brug for
sikkerhedskopien. Hvis IKKE så ramler det temmeligt sandsynligt på det
mest ubelejlige tidspunkt ! De vigtigste registre er DBUDGET.DBF, FTEKST.
DBF på A:
Tør du tage chancen ?
TAST RETUR
endtext
set console off
wait
loop
endif 20
*
if v='30'
erase
text
30. UDSKRIVNING AF LISTER
Tast nummeret på den ønskede liste, og tast 0 (nul) når du er færdig eller
hvis du fortryder.
Hvis du ønsker at få alt skrevet ud, så tast $-TEGN i hele fra-nummeret.
Til-nummer er ligegyldigt her, tast for eksempel retur.
Ønsker du en delvis udskrift, så tast fra- og til-nummer.
Til-nummer skal være tal, anvend eventuelt 9-taller.
I liste 1 skal du kende fra-nummeret til start værdi samt en periode (årmd).
Liste 3 har flere muligheder, og bemærk at fra-nummer SKAL INDEHOLDE et tal
i første position efterfulgt af øvrige tal OG/ELLER max. 3 $-TEGN.
Et eksempel: produktlinie 84 og tilhørende produkter ønskes udskrevet,
så her skal tastes fra-nummer med 84$$ og til-nummer med 8499 !!
Indtast også den dato du ønsker anført på listen.
Tast så ok/OK hvis printer er klar, eller tast retur hvis du fortryder !
Vær sikker på at printeren er klar, inden der svares ok !
Systemet kan IKKE teste om printeren er klar.
TAST RETUR
endtext
set console off
wait
loop
endif 30
*
if v='40'
store ' ' to HSVAR
store T to hlokke
DO WHILE HLOKKE
erase
? ' *** RC TIME OG OMKOSTNINGS OVERSIGT HENT TRANSAKTIONS-FILE 1 ***'
? ' --------------------------------------------------------------------------'
? ' '
? ' Vil du HENTE transaktions-filen, så taster du om lidt DIT svar = HT , og'
? ' dette system afsluttes og du skal gøre følgende: '
? ' '
? ' udskrift på skærm: du taster:'
? ' ================= **********'
? ' '
? ' A>TERM '
? ' '
? ' + + + T E R M version 1.01 + + + '
? ' (c) Copyright 1983 A/S Regnecentralen af 1979 '
? ' '
? ' Bufferstørrelse: 21637 tegn '
? ' '
? ' ESC-ape tasten'
? ' '
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring ! ' to HSVAR '
erase
? ' *** RC TIME OG OMKOSTNINGS OVERSIGT HENT TRANSAKTIONS-FILE 2 ***'
? ' --------------------------------------------------------------------------'
? ' udskrift på skærm: du taster:'
? ' ================= **********'
? ' '
? ' Att'
? ' connected to rcadm evt. CTRLØre (REmove)'
? ' og CTRLØse rcadm (SElect)'
? ' '
? ' ESC-ape tasten'
? ' Att timerap RETUR'
? ' '
? ' > run initialertime pass nøgle'
? ' '
? ' udfør programgruppe 3 nr. 2'
? ' og ved slut ud af timerap'
? ' HUSK: Slut åruge ved trimning skal passe til omkost.reg. perioden årmd '
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring ! ' to HSVAR '
erase
? ' *** RC TIME OG OMKOSTNINGS OVERSIGT HENT TRANSAKTIONS-FILE 3 ***'
? ' --------------------------------------------------------------------------'
? ' udskrift på skærm: du taster:'
? ' ================= **********'
? ' ESC-ape tasten'
? ' Att'
? ' acp RETUR'
? ' '
? ' initialer og nøgle'
? ' '
? ' funktion(v for vejledning): '
? ' HT og RETUR'
? ' '
? ' host filnavn: timprintfil og RETUR'
? ' '
? ' terminal filnavn: timeårmd.txt (År og måned)'
? ' RETUR'
? ' HUSK: År og måned skal passe til omkostnings registreringens år & md'
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring ! ' to HSVAR
erase
? ' *** RC TIME OG OMKOSTNINGS OVERSIGT HENT TRANSAKTIONS-FILE 4 ***'
? ' --------------------------------------------------------------------------'
? ' udskrift på skærm: du taster:'
? ' ================= **********'
? ' '
? ' hent: 8:timprintfril --> timeårmd.txt'
? ' start xmit '
? ' end xmit, bytes= 28606 ok '
? ' '
? ' funktion(v for vejledning): '
? ' '
? ' S (slut) og RETUR'
? ' '
? ' farvel '
? ' '
? ' --------------------------------------------------------------------------'
accept ' Tast RETUR for mere forklaring ! ' to HSVAR
erase
? ' *** RC TIME OG OMKOSTNINGS OVERSIGT HENT TRANSAKTIONS-FILE 5 ***'
? ' --------------------------------------------------------------------------'
? ' '
? ' nu kan du vende tilbage til selve time- og oversigts system, ved at trykke'
? ' '
? ' på RESET knappen bag på skærmen og du får vist hovedmenu-billedet !!'
? ' '
? ' '
? ' '
? ' Vælg DIT svar: '
? ' '
? ' Vil du HENTE transaktionsfilen ............ så taster du ...... HT '
? ' '
? ' vil du retur til sidste menubillede ....... så taster du ...... RETUR '
? ' '
? ' eller vil du se forklaringen engang til ... så taster du ...... SE '
? ' '
? ' --------------------------------------------------------------------------'
accept ' her i vejledning kan du vælge RETUR eller SE ..... tast DIT svar' to HSVAR
if !(HSVAR) = 'SE'
store ' ' to HSVAR
loop
endif
STORE F TO HLOKKE
LOOP
ENDDO HLOKKE
RELEASE HLOKKE, HSVAR
endif 40
*
if v='50'
erase
text
50. OPDATERING MED TRANSAKTIONS-FILE
Der skal være hentet en ny transaktionsfile, inden du vælger OPDATERING.
Du skal bekræfte, at der er overført en ny transaktions file ved at taste
OK, hvis du fortryder valg af opdatering, så tast for eksempel kun retur !
PERIODEN der skal indtastes med ÅR og MD (ÅRMD) skal passe til årmd i
transaktionsfilen navn samt til den ajourførte periode i OMKOSTNINGS
REGISTRERINGS SYSTEMETS DISKETTE B, der skal anvendes til opdatering.
Disketten skal indsættes i diskette-station B, når opdateringsprogrammet
beder om det.
Resten af opdateringen sker automatisk med meddelelser på skærmen.
For hver kørsels periode vil der blive dannet printfil med aktuel periode.
Tast retur når opdateringen er færdig.
Opdateringen kan STARTES forfra uden at ødelægge database filer.
TAST RETUR
endtext
set console off
wait
loop
endif 50
*
if v='60'
erase
store T to BULOKKE
*
DO WHILE BULOKKE
store ' ' to B
set console on
erase
text
*** VEJLEDNING TIL RC TIME OG OMKOSTNINGS OVERSIGT BUDGET ***
...............................................................................
00. SLUT MED VEJLEDNING TIL BUDGET
61. OPRETTELSE ( FUNKTION 1 PÅ SKÆRMBILLED T3 )
62. SØGNING ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
63. RETTELSE ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
64. SLETNING ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
65. SCANNING AF RECORDS ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
66. PRINT AF ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
67. UDSKRIVE HELE BUDGETTET ( FUNKTION 3 PÅ SKÆRMBILLED T3 )
68. SLETTE HELE BUDGETTET ( FUNKTION 4 PÅ SKÆRMBILLED T3 )
69. OPDATER BUDGET INDEKS ( FUNKTION 5 PÅ SKÆRMBILLED T3 )
...............................................................................
endtext
@ 23,0 say 'NUMMER ? ' get B
read
*
if B='0'
store F to BULOKKE
loop
endif 0
*
if B='61'
erase
text
61. OPRETTELSE ( FUNKTION 1 PÅ SKÆRMBILLED T3 )
Ved slut eller fortryd så tast retur til alle felter uden at indtaste data,
ELLER lad cursor stå i kode2, som skal være blank, og tast samtidig på
CTRL-TAST OG W-TAST.
Ellers taster du kode2 lig med værdien svarende til prosit projektgruppekode
2 for den ønskede produktlinie. Tal-værdi skal være fra 00 til 99.
Derefter taster du kontogruppe lig med værdien for den ønskede omkostnings-
gruppe. Tal-værdien skal være fra 40 til 48 eller 73.
Indtast så de enkelte måneders budget i tusinde kr (KKR) uden decimal.
Felterne er født med 0 (nul) og max. beløb er 99999999. Minus tegn er ikke
tilladt. Hvis en måneds budget skal være 0 (nul) så tast retur i det pågæl-
dende felt.
Hvis du ønsker at rette et felt, så brug pil tilbage ( <-- ) og ret.
Tast derefter retur indtil du kommer frem til dit udgangs-felt.
Når data er ok, så tast retur nederst på skærmen og afvent godkendelsen
af det indtastede.
TAST RETUR
endtext
set console off
wait
loop
endif 61
*
if B='62'
erase
text
62. SØGNING ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
Ved slut eller fortryd så tast retur nederst på skærmen efter de viste
kommando muligheder.
Ellers taster du kode2 lig med værdien svarende til prosit projektgruppekode
2 for den søgte produktlinie. Tal-værdi skal være fra 00 til 99.
Derefter taster du kontogruppe lig med værdien for den søgte omkostnings-
gruppe. Tal-værdien skal være fra 40 til 48 eller 73.
Så vil systemet prøve at finde recorden med den indtastede nøgle.
Hvis den ikke findes, så bliver det meddelt nederst på skærmen.
Ellers bliver recorden vist på skærmen.
Du kan nu taste N for næste record eller P for foregående record.
Hvis du taster M for flere kommandoer, så får du mulighed for at RETTE,
SLETTE eller PRINTE den viste record.
TAST RETUR
endtext
set console off
wait
loop
endif 62
*
if B='63'
erase
text
63. RETTELSE ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
For at kunne rette en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 62).
Du skal taste M for flere kommandoer, hvor du vælger E for RETtelse.
Cursor vil blive placeret i JANUAR, og du kan nu rette ønskede måneds felter.
Hvis der er felter du ikke ønsker at rette, så taster du blot retur.
Ellers retter du de ønskede måneds beløb med tusinde kr (KKR) uden decimal.
Felt-værdi skal være fra 0 (nul) og til max. beløb 99999999.
Minus tegn er ikke tilladt.
Hvis du ønsker at rette et foregående felt, så brug pil tilbage ( <-- ).
Ret og tast derefter retur indtil du kommer frem til dit udgangs-felt.
Når du er færdig, så tast retur nederst på skærmen og afvent godkendelsen.
Du har mulighed for at rette recorden igen, hvis du svarer ja til spørgsmålet
om flere rettelser nederst på skærmen, ellers taster du retur.
TAST RETUR
endtext
set console off
wait
loop
endif 63
*
if B='64'
erase
text
64. SLETNING ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
For at kunne slette en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 62).
Du taster M for flere kommandoer, hvor du vælger D for sletning.
Til spørgsmålet om du ønsker at slet-markere den viste record skal du svare
J (ja) , hvis den skal markeres til sletning, ellers svar med alt andet.
Når du er færdig med søgning, rette, slette og printe i funktion 2, så vil
du blive spurgt, om de slet-markerede records skal fjernes.
Hvis du svarer J (ja) så vil alle record, som er markeret til sletning, blive
fjernet fysisk fra register.
Men hvis du fortryder, så taster du blot retur og markeringerne fjernes !!
Hvis du ønsker at slette alle budget records på engang så anvend funktion
4 SLETTE HELE BUDGETTET på skærmbillede T3, se vejledning punkt 68.
TAST RETUR
endtext
set console off
wait
loop
endif 64
*
if B='65'
erase
text
65. SCANNING AF RECORDS ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
Du kan søge på samtlige records med flere kombinations muligheder.
ADVARSEL: Hvis der tastes forkert, så vil dbase II sige syntax error,
========: og du bør da kende lidt til rettelser !
Du skal taste M for flere kommandoer, og derefter vælge C for SCAN.
Ordet SCAN står nederst i venstre hjørne på skærmen, når du er i funktionen.
Du kan rette, printe, slette, få vist Næste record i scanning.
Feltnavnet for kode2 er KODE2, og kontogrp ( omkostningsgruppe ) er KONTOGRP.
Januar hedder BUBEL01 (NUL-ET),....... december hedder BUBEL12.
Eksempel 1: BUBEL09 > 100 betyder at der skal søges efter september måned
med feltværdi større end 100. Der kan anvendes >, <, =, <>, .and. , .or.
Eksempel 2: KODE2 = '20' .and. BUBEL12 = 0 betyder at der skal søges efter
produktlinie 20 samt at december måneds budget er 0 (nul) KKR.
Du kommer ud af scanning ved enten at forlade funktion 2 på skærmbilledet,
eller ved at anvende kommando P for foregående record, eller når register
slutmarkering (End of file) er nået.
TAST RETUR
endtext
set console off
wait
loop
endif 65
*
if B='66'
erase
text
66. PRINT AF ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T3 )
For at kunne printe en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 62).
Du taster M for flere kommandoer, hvor du vælger P for print.
Til spørgsmålet om printeren er klar, skal du svare ok.
Hvis printer ikke er klar , eller du fortryder så tast blot retur.
Systemet kan ikke teste om printeren er klar !
TAST RETUR
endtext
set console off
wait
loop
endif 66
*
if B='67'
erase
text
67. UDSKRIVE HELE BUDGETTET ( FUNKTION 3 PÅ SKÆRMBILLED T3 )
Ved at vælge denne funktion får du skrevet hele budget registret ud.
Du kan svare J (ja) eller N (nej) til udskrift på printer. Standard er J.
Hvis du sagt ja til printer udskrift, så skal du svare på, om printeren er
klar. Tast ok eller tast retur ved fortryd.
Systemet kan ikke teste om printeren er klar !!
Du kan svare J (ja) eller N (nej) til udskrift på disk file. Standard er N.
Hvis du sagt ja til udskrift på disk file, så skal du også indtaste navnet på
filens navn (max 8 karakterer) samt filens type (3 karakterer).
Eksempel: budgetud.txt (husk at indsætte punktum mellem navn og type !)
Afhængig af hvad du svarer, så vil du i visse tilfælde få vist hele budgettet
på skærmen !!
TAST RETUR
endtext
set console off
wait
loop
endif 67
*
if B='68'
erase
text
68. SLETTE HELE BUDGETTET ( FUNKTION 4 PÅ SKÆRMBILLED T3 )
Ved at vælge denne funktion kan du få slettet hele budget registret.
Hvis du ved en fejltagelse har valgt denne funktion, eller hvis du fortryder,
så tast retur og du returnerer til skærmbilled T3 uden at der sker noget.
Men hvis du vil have slettet hele budget registret, så taster du ok.
TAST RETUR
endtext
set console off
wait
loop
endif 68
*
if B='69'
erase
text
69. OPDATER BUDGET INDEKS ( FUNKTION 5 PÅ SKÆRMBILLED T3 )
Hvis der skulle komme uorden i indekset (nøgle-sorteringen ) til budget
registret, så kan du vælge denne funktion.
Du kan IKKE svare ja eller nej, ok eller retur her.
Hvis du ved en fejltagelse har valgt denne funktion, så sker der ikke noget.
Det tager kun et øjeblik, så er der dannet en ny indeks-file på grundlag af
de records, der er i budget registret.
TAST RETUR
endtext
set console off
wait
loop
endif 69
*
enddo bulokke
LOOP
endif 60
*
if v='70'
erase
store T to TELOKKE
*
DO WHILE TELOKKE
store ' ' to T
set console on
erase
text
*** VEJLEDNING TIL RC TIME OG OMKOSTNINGS OVERSIGT TEKSTER ***
...............................................................................
00. SLUT MED VEJLEDNING TIL TEKSTER
71. OPRETTELSE ( FUNKTION 1 PÅ SKÆRMBILLED T4 )
72. SØGNING ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
73. RETTELSE ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
74. SLETNING ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
75. SCANNING AF RECORDS ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
76. PRINT AF ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
77. UDSKRIVE ALLE TEKSTER ( FUNKTION 3 PÅ SKÆRMBILLED T4 )
78. SLETTE ALLE TEKSTER ( FUNKTION 4 PÅ SKÆRMBILLED T4 )
79. OPDATER TEKST INDEKS ( FUNKTION 5 PÅ SKÆRMBILLED T4 )
...............................................................................
endtext
@ 23,0 say 'NUMMER ? ' get T
read
*
if T='0'
store F to TELOKKE
loop
endif 0
*
if T='71'
erase
text
71. OPRETTELSE ( FUNKTION 1 PÅ SKÆRMBILLED T4 )
Ved slut eller fortryd så tast retur til alle felter uden at indtaste data,
ELLER lad cursor stå i kode2, som skal være blank, og tast samtidig på
CTRL-TAST OG W-TAST.
Ved produktlinie taster du kode2 lig med værdien til prosit projektgruppekode
2 for den søgte produktlinie og kode6 lig med '00' (nuller).
Til omkostnings gruppetekster taster du kode6 lig med '00' (nuller) og kode6
lig med omkostningsgruppen, værdi fra 40 til 48.
Indtast så teksten med max. 30 karakterer. Helt blank felt er tilladt.
Feltet er født blankt, og hvis feltet skal være blankt så tast retur.
Hvis du ønsker at rette et felt, så brug pil tilbage ( <-- ) og ret.
Tast derefter retur indtil du kommer frem til dit udgangs-felt.
Når data er ok, så tast retur nederst på skærmen og afvent godkendelsen
af det indtastede.
TAST RETUR
endtext
set console off
wait
loop
endif 71
*
if T='72'
erase
text
72. SØGNING ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
Ved slut eller fortryd så tast retur nederst på skærmen efter de viste
kommando muligheder.
Ved produktlinie taster du kode2 lig med værdien til prosit projektgruppekode
2 for den søgte produktlinie og kode6 lig med '00' (nuller).
Til omkostnings gruppetekster taster du kode6 lig med '00' (nuller) og kode6
lig med omkostningsgruppen, værdi fra 40 til 48.
Så vil systemet prøve at finde recorden med den indtastede nøgle.
Hvis den ikke findes, så bliver det meddelt nederst på skærmen.
Ellers bliver recorden vist på skærmen.
Du kan nu taste N for næste record eller P for foregående record.
Hvis du taster M for flere kommandoer, så får du mulighed for at RETTE,
SLETTE eller PRINTE den viste record.
TAST RETUR
endtext
set console off
wait
loop
endif 72
*
if T='73'
erase
text
73. RETTELSE ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
For at kunne rette en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 72).
Du skal taste M for flere kommandoer, hvor du vælger E for RETtelse.
Cursor vil blive placeret i teksten, og du kan rette teksten.
Hvis du fortryder rettelse, så taster du blot retur.
Ellers retter du hele feltet.
Når du er færdig, så tast retur nederst på skærmen og afvent godkendelsen.
Du har mulighed for at rette recorden igen, hvis du svarer ja til spørgsmålet
om flere rettelser nederst på skærmen, ellers taster du retur.
TAST RETUR
endtext
set console off
wait
loop
endif 73
*
if T='74'
erase
text
74. SLETNING ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
For at kunne slette en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 72).
Du skal taste M for flere kommandoer, hvor du vælger D for sletning.
Til spørgsmålet om du ønsker at slet-markere den viste record skal du svare
J (ja) , hvis den skal markeres til sletning, ellers svar med alt andet.
Når du er færdig med søgning, rette, slette og printe i funktion 2, så vil
du blive spurgt, om de slet-markerede records skal fjernes.
Hvis du svarer J (ja) så vil alle record, som er markeret til sletning, blive
fjernet fysisk fra register.
Men hvis du fortryder, så taster du blot retur og markeringerne fjernes.
Hvis du ønsker at slette alle TEKST records på engang så anvend funktion
4 SLETTE ALLE TEKSTER på skærmbillede T4, se vejledning punkt 78.
TAST RETUR
endtext
set console off
wait
loop
endif 74
*
if T='75'
erase
text
75. SCANNING AF RECORDS ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
Du kan søge på samtlige records med flere kombinations muligheder.
ADVARSEL: Hvis der tastes forkert, så vil dbase II sige syntax error,
========: og du bør da kende lidt til rettelser !
Du skal taste M for flere kommandoer, og derefter vælge C for SCAN.
Ordet SCAN står nederst i venstre hjørne på skærmen, når du er i funktionen.
Du kan rette, printe, slette, få vist Næste record i scanning.
Feltnavnet for kode2 er KODE2, og kode6 er KODE6.
Tekstfeltet hedder TEKST (30 karakterer).
Eksempel 1: TEKST = ' ' betyder at der skal søges efter records med
blanke tekster. I Scan kan anvendes >, <, =, <>, .and. , .or.
Eksempel 2: KODE6 = '74' .and. TEKST = 'altmuligt' betyder at der skal søges
produkt med kode = 74 og at tekstfelt = altmuligt.
Du kommer ud af scanning ved enten at forlade funktion 2 på skærmbilledet,
eller ved at anvende kommando P for foregående record, eller når register
slutmarkering (End of file) er nået.
TAST RETUR
endtext
set console off
wait
loop
endif 75
*
if T='76'
erase
text
76. PRINT AF ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED T4 )
For at kunne printe en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 72).
Du taster M for flere kommandoer, hvor du vælger P for print.
Til spørgsmålet om printeren er klar, skal du svare ok.
Hvis printer ikke er klar , eller du fortryder så tast blot retur.
Systemet kan ikke teste om printeren er klar !!
TAST RETUR
endtext
set console off
wait
loop
endif 76
*
if T='77'
erase
text
77. UDSKRIVE ALLE TEKSTER ( FUNKTION 3 PÅ SKÆRMBILLED T4 )
Ved at vælge denne funktion får du skrevet hele TEKST registret ud.
Du kan svare J (ja) eller N (nej) til udskrift på printer. Standard er J.
Hvis du sagt ja til printer udskrift, så skal du svare på, om printeren er
klar. Tast ok eller tast retur ved fortryd.
Systemet kan ikke teste omprinteren er klar !!
TAST RETUR
endtext
set console off
wait
loop
endif 77
*
if T='78'
erase
text
78. SLETTE ALLE TEKSTER ( FUNKTION 4 PÅ SKÆRMBILLED T4 )
Ved at vælge denne funktion kan du få slettet hele TEKST registret.
Hvis du ved en fejltagelse har valgt denne funktion, eller hvis du fortryder,
så tast retur og du returnerer til skærmbilled T4 uden at der sker noget.
Men hvis du vil have slettet hele TEKST registret, så taster du ok.
TAST RETUR
endtext
set console off
wait
loop
endif 78
*
if T='79'
erase
text
79. OPDATER TEKST INDEKS ( FUNKTION 5 PÅ SKÆRMBILLED T4 )
Hvis der skulle komme uorden i indekset (nøgle-sorteringen ) til TEKST
registret, så kan du vælge denne funktion.
Du kan IKKE svare ja eller nej, ok eller retur her.
Hvis du ved en fejltagelse har valgt denne funktion, så sker der ikke noget.
Det tager kun et øjeblik, så er der dannet en ny indeks-file på grundlag af
de records, der er i TEKST registret.
TAST RETUR
endtext
set console off
wait
loop
endif 79
*
enddo TELOKKE
loop
endif 70
*
if v='80'
erase
text
80. FEJL SITUATIONER
Virker/reagerer systemet pludselig anderledes - så skriv det ned !
Hvad var du i gang med ? Hvad skete der ? Kan du dokumentere fejlen ?
Kan du fremprovokere fejlen igen ? Kan du huske det nummer, som du var
ved at taste ind ?
Når du har nedskrevet oplevelsen så godt det nu er muligt så kontakt edb-
afdelingen. Prøv ikke selv at klare den - det kan måske gøre det hele værre.
Og fremt for alt - tag IKKE sikkerhedskopi - før fejlen er behandlet.
Når fejlen er noteret og du vil tilbage til CP/M (' A> '), så kan der måske
stå '. ' , og dette markerer at du stadig er i systemet, så tast 'DO SLUT'
for at komme ud og tilbage til CP/M. Hvis dette ikke hjælper, så tast 'USE'
og prøv med 'QUIT'. (slut, use eller quit lukker registre ok)
Har man svaret 'ok' til en printer, der IKKE var ok , så tryk på 'RESET'
knappen bag på skærmen for at starte systemet op igen.
Fejl bedes meddelt edb-afdelingen med nøjagtig gengivelse af skærm meddel-
elser som mulig.
TAST RETUR
endtext
set console off
wait
loop
endif 80
*
if v='90'
erase
text
90. PERIODE BEGREBET
Perioden i opdaterings programmet er meget væsentlig, da beløbene fra OMKOST-
NINGS REGISTRERINGEN (Liste2db.dbf på diskette b:) og timetallene fra udtræk i
TIMERAP skal dække den samme periode.
I OMKOSTNINGS REGISTRERINGS SYSTEMET sker opdatering engang hver måned. Hvis
opdateringen af transaktioner fra MOSAIK SYSTEMET for eksempel er fra november
måned 1985, så vil periode-beløbene være fra perioden år 85 og måned 11. Denne
periode er lig med år/måned 8511, og det skal indtastes i opdateringsprogram.
I TIMERAP skal de tilsvarende timetal hentes, og det sker direkte i TIMERAP ved
at vælge program nr. 2 i programgruppe 3. Her trimmes til diskfil TIMPRINTFIL,
standard afdeling er fra afdeling 20 - 27, og til periode vælges ugeinterval.
Fra uge skal være den første hele uge i november måned 1985, og til uge skal
være den sidste hele uge i november måned 1985. ONSDAG afgør måneden.
For at få periode-timetal svarende til november 85, så skal fra uge 8545 og til
uge skal være 8548. PRIMO vil indeholde timetallene fra det enkelte projekts
start til og med år/uge 8544, og PERIODE vil indeholde timetal fra november 85,
ULTIMO er summen af PRIMO og PERIODE.
TAST RETUR
endtext
set console off
wait
loop
endif 90
*
ENDDO VLOK
erase
release vlok, v, bulokke, b, telokke, t
return
«eof»