1 ! Ins{nt av <2655> per diskett 1987-06-07
2 ! LIST THL3AV4.BAS
3 ! UTSKRIFT av r{ntefakturor i program f|r betalp}minnelser och r{ntefakturor
4 ! rev 19871225.1340 <2776> Bengt Sandgren
5 ! ------------------------------------------------------------------
9 COMMON Prt$=13,Tid$=10
10 !
12 ; CHR$(12) ! FILNAMN: R[NTEFAK.BAC. ARBETSFIL:ORIGINAL
20 ; ! Uppr{ttat av Carl-Emil Larsson. Rev 861228
30 ; "*** UTSKRIFT AV R[NTEFAKTUROR ***"
40 ; "================================="
50 ;
60 ; "UTSKRIFT P] BILDSK[RM ........... 0"
70 ;
80 ; "UTSKRIFT P] PRINTER ............. 1" : ;
85 ; "Tillbaks till menyn ............. 2"
90 ON ERROR GOTO 10 : ;
100 INPUT "ANGE ALTERNATIV (0, 1 ELLER 2) .."S
110 IF S>2 GOTO 10
120 ;
125 IF S=2 THEN CHAIN "THL1AV4"
130 IF S=0 GOTO 150 ELSE 140
140 OPEN Prt$ AS FILE 1
150 ; CHR$(12)
160 IF Z$="J" OR Z$="j" GOTO 1580
170 ;
180 ; "*** BETALNINGSP]MINNELSER ***"
190 ; "============================="
200 ; : ;
210 ; "** INMATNING AV GEMENSAMMA UPPGIFTER **"
220 ;
230 ; "======================================="
240 ;
245 Y$=Tid$
249 ! ; "Dagens datum {r " Y$
250 ! INPUT "Ange dagens datum enl ]]]].MM.DD (EX. 1986.12.31) ... "Y$
251 ; "Ange dagens datum enl " Tid$;"..............................";
252 INPUT Y$
260 ;
270 INPUT "\NSKAR DU [NDRA DAGENS DATUM (J/N) .................. "Y4$
280 IF Y4$="J" OR Y$="j" GOTO 150 ELSE GOTO 290
290 ;
300 ; " UPPGIFTER OM KUNDEN"
310 ; " -------------------"
320 ;
330 INPUT "1. F|retag ............................. "A1$
340 ;
350 INPUT "Skall 'F|retag' {ndras (J/N) ........... "Y5$
360 ;
370 IF Y5$="J" OR Y5$="j" GOTO 330
380 INPUT "2. Kontaktman (=Er ref.) ............... "A2$
390 ;
400 INPUT "Skall 'Kontaktman' {ndras (J/N) ........ "Y6$
410 ;
420 IF Y6$="J" OR Y6$="j" GOTO 380
430 INPUT "3. Avdelning el dyl .................... "A8$
440 ;
450 INPUT "Skall 'Avdelning el dyl' {ndras (J/N) .. "Y7$
460 ;
470 IF Y7$="J" OR Y7$="j" GOTO 430
480 INPUT "4. Box, gata el dyl .................... "A3$
490 ;
500 INPUT "Skall 'Box etc.' {ndras (J/N) .......... "Y8$
510 ;
520 IF Y8$="J" OR Y8$="j" GOTO 480
530 INPUT "5. Postnr och Ort ...................... "A4$
540 ;
550 INPUT "Skall 'Postnr etc' {ndras (J/N) ........ "Y9$
560 ;
570 IF Y9$="J" OR Y9$="j" GOTO 550
580 INPUT "6. R{ntefakturans nr ................... "A9$
590 ;
600 INPUT "Skall 'R{ntefakturans nr' {ndras (J/N) . "Z3$
610 ;
620 IF Z3$="J" OR Z3$="j" GOTO 580
630 ;
640 ; CHR$(12)
650 ; CUR(8,0);"UPPGIFTER F\R BER[KNING AV ANTALET R[NTEDAGAR,"
660 ; CUR(9,0);"SPECIFICERAS F\R VARJE FAKTURA"
670 ; "---------------------------------------------"
680 ;
700 INPUT "R[NTESATS % PER ]R....................... "D3$
710 ;
720 INPUT "Skall 'R{ntesats % per }r' {ndras (J/N).. "Z4$
730 IF D3$="" GOTO 700
740 ;
750 IF Z4$="J" OR Z4$="j" GOTO 700
760 ;
780 N=N+1
790 ;
800 INPUT "FAKTURA NR ............... "D4$(N)
802 ;
810 INPUT "FAKTURABELOPP SEK ........ "D2$(N)
820 ;
830 ; "ANGE BETALNINGSDATUM (]]MMDD), T EX 860616"
840 ;
842 Y1$="FEL ANTAL SIFFROR! OBS! GRUPPER OM 2! (2+2+2)." ! R[TTELSE FELSKRIVN DAT
850 INPUT "]R (]]) .................. "B1$(N)
860 IF LEN(B1$(N))=0 THEN 870 ELSE 880
870 ; CHR$(7) : GOTO 850
880 IF LEN(B1$(N))<>2 THEN 890 ELSE 900
890 ; : ; Y1$ : ; CHR$(7) : GOTO 850
900 INPUT "M]NAD (MM) ............... "B2$(N)
910 IF LEN(B2$(N))=0 THEN 920 ELSE 930
920 ; CHR$(7) : GOTO 900
930 IF LEN(B2$(N))<>2 GOTO 940 ELSE 950
940 ; : ; Y1$ : ; CHR$(7) : GOTO 900
950 INPUT "DAG (DD) ................. "B3$(N)
960 IF LEN(B3$(N))=0 THEN 970 ELSE 980
970 ; CHR$(7) : ; CHR$(7) : GOTO 950
980 IF LEN(B3$(N))<>2 GOTO 990 ELSE 1000
990 ; : ; Y1$ : ; CHR$(7) : GOTO 950
1000 B1(N)=VAL(B1$(N)) : B2(N)=VAL(B2$(N)) : B3(N)=VAL(B3$(N))
1010 B4(N)=(B1(N)*360)+(B2(N)*30)-30+B3(N) ! ANTAL DAGAR BETR BETALN.-DAGEN
1020 B5$(N)=B1$(N)+B2$(N)+B3$(N) ! B5$(N)=BETALNINGSDATUM T EX 850731
1030 ;
1040 ; "2. FAKTURANS F\RFALLODAG"
1050 ;
1060 INPUT "]R (]]) .................. "B6$(N)
1070 IF LEN(B6$(N))=0 GOTO 1080 ELSE 1090
1080 ; CHR$(7) : GOTO 1060
1090 IF LEN(B6$(N))<>2 GOTO 1100 ELSE 1110
1100 ; : ; Y1$ : ; CHR$(7) : GOTO 1060
1110 INPUT "M]NAD (MM) ............... "B7$(N)
1120 IF LEN(B7$(N))=0 GOTO 1130 ELSE 1140
1130 ; CHR$(7) : GOTO 1110
1140 IF LEN(B7$(N))<>2 GOTO 1150 ELSE 1160
1150 ; : ; Y1$ : ; CHR$(7) : GOTO 1110
1160 INPUT "DAG (DD) ................. "B8$(N)
1170 IF LEN(B8$(N))=0 GOTO 1180 ELSE 1190
1180 ; CHR$(7) : GOTO 1160
1190 IF LEN(B8$(N))<>2 GOTO 1200 ELSE 1210
1200 ; : ; Y1$ : ; CHR$(7) : GOTO 1160
1210 B6(N)=VAL(B6$(N)) : B7(N)=VAL(B7$(N)) : B8(N)=VAL(B8$(N))
1220 B9(N)=(B6(N)*360)+(B7(N)*30)-30+B8(N) ! ANTAL DAGAR F\R BER[KN F\RFALLODAG
1230 B9$(N)=B6$(N)+B7$(N)+B8$(N) ! B9$(N)=FAKTURANS F\RFALLODAG
1240 B(N)=B4(N)-B9(N) ! ANTALET DAGAR F\R R[NTEBER[KNING = B(N)
1250 ;
1260 ; "*** R[NTEBER[KNING ***"
1270 ; "======================"
1280 ;
1290 E1$(N)=NUM$(B(N))
1300 E2$(N)=DIV$(E1$(N),"360",5)
1310 E3$(N)=MUL$(E2$(N),D3$,5)
1320 E4$(N)=DIV$(E3$(N),"100",5)
1330 R$(N)=MUL$(E4$(N),D2$(N),1)
1340 ;
1350 INPUT "\NSKAR DU MATA IN FLERA FAKTUROR (J/N)? ..... "T$
1360 IF T$="J" OR T$="j" GOTO 780
1370 ;
1380 T2=N
1390 GOTO 1580
1400 ;
1410 INPUT "\NSKAR DU NY UTSKRIFT F\R SAMMA DATA F\R F\RETAGET? (J/N) "Z$
1420 IF Z$="J" GOTO 10 ELSE 1440
1430 IF S=0 GOTO 1450
1440 ; #S CHR$(12) : ;
1450 INPUT "\NSKAR DU SKRIVA IN DATA F\R N[STA F\RETAG F\R EN NY UTSKRIFT (J/N) "Z1$
1460 IF Z1$="J" OR Z1$="j" GOTO 1470 ELSE 1480
1470 CHAIN "R[NTEFAK"
1480 IF S=0 GOTO 1500
1490 ; #1 CHR$(12)
1500 CLOSE 1
1510 END
1520 ;
1530 ! *** FELHANTERING ***
1540 ;
1550 RESUME
1560 ;
1570 ;
1580 ; CHR$(12)
1590 ! *** UTSKRIFT UPPGIFTER R[NTEBER[KNING ***
1600 ! ==========================================
1610 IF S=0 GOTO 1670 ELSE 1620
1620 ; #1 : ; #1 : ; #1
1630 ; #1 TAB(60) "DR\JSM]LSR[NTA" : ; TAB(60) "DR\JSM]LSR[NTA"
1640 ; #1 : ;
1650 IF S=1 GOTO 1690
1660 ;
1670 ; TAB(60) "DR\JSM]LSR[NTA" : ;
1680 IF S=0 GOTO 1720
1690 ; #1 TAB(60) "F A K T U R A" : ; TAB(60) "F A K T U R A"
1700 ; #1 TAB(60) "NR " A9$ : ; TAB(60) "NR " A9$
1710 IF S=1 GOTO 1760
1720 ; TAB(60) "F A K T U R A"
1730 ; TAB(60) "NR " A9$
1740 IF S=0 GOTO 1760
1750 IF S=1 GOTO 1760
1760 GOSUB 2260
1770 IF S=0 GOTO 1780 ELSE 1790
1780 ; : ; : IF S=0 GOTO 1830
1790 ; #1 : ; #1 : ; #1 : ; #1 : ; #1 : ; #1 : ; : ; : ;
1800 ; #1 TAB(5) STRING$(68,95) : ; TAB(5) STRING$(68,95)
1810 ; #1 : ;
1820 IF S=1 GOTO 1840
1830 ; TAB(5) STRING$(68,95) : ; : IF S=0 GOTO 1870
1840 ; #1 TAB(5) "FAKT.NR" TAB(14) "F\RF.DAG" TAB(24) "BET.DAG" TAB(34) "BELOPP" TAB(46) "R[NTEDGR" TAB(59) "DR\JSM]LSR[NTA" : ; #1
1850 ; TAB(5) "FAKT.NR" TAB(14) "F\RF.DAG" TAB(24) "BET.DAG" TAB(34) "BELOPP" TAB(46) "R[NTEDGR" TAB(59) "DR\JSM]LSR[NTA" : ;
1860 IF S=1 GOTO 1900
1870 ; TAB(5) "FAKT.NR" TAB(14) "F\RF.DAG" TAB(24) "BET.DAG" TAB(34) "BELOPP" TAB(46) "R[NTEDGR" TAB(59) "DR\JSM]LSR[NTA"
1880 ;
1890 IF S=0 GOTO 1910
1900 ; #1 : ;
1910 N=0
1920 S1$=NUM$(S1)
1930 N=N+1
1940 IF S=0 GOTO 2040
1950 ; #1 TAB(7) D4$(N) TAB(15) B9$(N) TAB(24) B5$(N);
1960 ; TAB(7) D4$(N) TAB(15) B9$(N) TAB(24) B5$(N);
1970 ; #1 USING "########.##" TAB(33) D2$(N);
1980 ; USING "########.##" TAB(33) D2$(N);
1990 ; #1 TAB(49) B(N);
2000 ; TAB(49) B(N);
2010 ; #1 USING "#######.##" TAB(61) R$(N)
2020 ; USING "#######.##" TAB(61) R$(N)
2030 IF S=1 GOTO 2100
2040 ; TAB(7) D4$(N) TAB(15) B9$(N) TAB(24) B5$(N);
2050 ; USING "########.##" TAB(33) D2$(N);
2060 ; TAB(49) B(N);
2070 ; USING "#######.##" TAB(61) R$(N)
2080 S1$=ADD$(S1$,R$(N),2)
2090 IF N