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