1 ! Ins{nt av <2655> per diskett 1987-06-07
2 ! LIST THL2AV4.BAS
3 ! UTSKRIFTS-modul i program f|r betalp}minnelser och r{ntefakturering
4 ! rev 19871225.1340 <2776> Bengt Sandgren
5 ! ------------------------------------------------------------------
9 COMMON Prt$=13,Tid$=10
10 !
12 ; CHR$(12) ! FILNAMN:BETP]MIN.ALL - ORIGINAL
20 ! Uppr{ttat av Carl-Emil Larsson. Rev 861228
30 ; "*** UTSKRIFT AV BETALNINGSP]MINNELSER ***"
40 ; "========================================="
50 ;
60 ; "UTSKRIFT P] BILDSK[RM ........... 0"
70 ;
80 ; "UTSKRIFT P] PRINTER ............. 1" : ;
85 ; "Tillbaks till meny ............. 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 1400
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$
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. Betalningsp}minnelsens nr ........... "A9$
590 ;
600 INPUT "Skall 'Bet.p}minnelsens 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 ;
690 Y1$="FEL ANTAL SIFFROR! OBS! 2 + 2 + 2!" ! R[TTELSE FELSKRIVN
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 ;
770 ; "1. ANGE DAGENS DATUM VID BET.P]M. (]]MMDD), T EX 860616"
780 ;
790 INPUT "]R (]]) .................. "B1$
800 IF LEN(B1$)=0 THEN 810 ELSE 820
810 ; CHR$(7) : GOTO 790
820 IF LEN(B1$)<>2 THEN 830 ELSE 840
830 ; : ; Y1$ : ; CHR$(7) : GOTO 790
840 INPUT "M]NAD (MM) ............... "B2$
850 IF LEN(B2$)=0 THEN 860 ELSE 870
860 ; CHR$(7) : GOTO 840
870 IF LEN(B2$)<>2 GOTO 880 ELSE 890
880 ; : ; Y1$ : ; CHR$(7) : GOTO 840
890 INPUT "DAG (DD) ................. "B3$
900 IF LEN(B3$)=0 THEN 910 ELSE 920
910 ; CHR$(7) : ; CHR$(7) : GOTO 890
920 IF LEN(B3$)<>2 GOTO 930 ELSE 940
930 ; : ; Y1$ : ; CHR$(7) : GOTO 890
940 B1=VAL(B1$) : B2=VAL(B2$) : B3=VAL(B3$)
950 B4=(B1*360)+(B2*30)-30+B3 ! ANTAL DAGAR BETR BETALN.-DAGEN
960 B5$=B1$+B2$+B3$ ! B5$=DAGENS DATUM VID BET.P]M. (ON\DIG?)
970 ;
980 N=N+1
990 ;
1000 INPUT "FAKTURA NR: "D4$(N)
1010 INPUT "FAKTURABELOPP: "D2$(N)
1020 ;
1030 ; "2. FAKTURANS F\RFALLODAG"
1040 ;
1050 INPUT "]R (]]) .................. "B6$(N)
1060 IF LEN(B6$(N))=0 GOTO 1070 ELSE 1080
1070 ; CHR$(7) : GOTO 1050
1080 IF LEN(B6$(N))<>2 GOTO 1090 ELSE 1100
1090 ; : ; Y1$ : ; CHR$(7) : GOTO 1050
1100 INPUT "M]NAD (MM) ............... "B7$(N)
1110 IF LEN(B7$(N))=0 GOTO 1120 ELSE 1130
1120 ; CHR$(7) : GOTO 1100
1130 IF LEN(B7$(N))<>2 GOTO 1140 ELSE 1150
1140 ; : ; Y1$ : ; CHR$(7) : GOTO 1100
1150 INPUT "DAG (DD) ................. "B8$(N)
1160 IF LEN(B8$(N))=0 GOTO 1170 ELSE 1180
1170 ; CHR$(7) : GOTO 1150
1180 IF LEN(B8$(N))<>2 GOTO 1190 ELSE 1200
1190 ; : ; Y1$ : ; CHR$(7) : GOTO 1150
1200 B6(N)=VAL(B6$(N)) : B7(N)=VAL(B7$(N)) : B8(N)=VAL(B8$(N))
1210 B9(N)=(B6(N)*360)+(B7(N)*30)-30+B8(N) ! DAGAR F\R BER[KN F\RF.DAG
1220 B9$(N)=B6$(N)+B7$(N)+B8$(N) ! B9$(N)=FAKTURANS F\RF.DAG. ON\DIG??
1230 B(N)=B4-B9(N) ! ANTALET DAGAR F\R R[NTEBER[KNING = B(N)
1240 ;
1250 ; "*** R[NTEBER[KNING ***"
1260 ; "======================"
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 ; "\NSKAR DU SKRIVA IN FLERA FAKTUROR F\R SAMMA F\RETAG (J/N) ";
1360 INPUT T$
1370 IF T$="J" OR T$="j" GOTO 980
1380 ;
1390 T2=N
1400 ; CHR$(12) : ; : ; : ; : ;
1410 ; "*** BETALNINGSP]MINNELSE ***"
1420 ; "============================"
1430 ;
1440 ; "ANGE NEDAN VILKET ALTERNATIV DU \NSKAR. SKRIV IN R[TT SIFFRA. "
1450 ;
1460 ; "1. F|rsta betalningsp}minnelse "
1470 ; "2. Andra betalningsp}minnelse "
1480 ; "3. Tredje krav. Annars inkasso "
1490 ;
1500 INPUT "Ange alternativ ............. "V
1510 ; : ; : ; : ; : ;
1520 IF V=1 GOTO 1530
1530 ; CHR$(12)
1540 !
1550 ! *** F\RSTA BETALNINGSP]MINNELSE ***
1560 ! ====================================
1570 !
1580 IF S=0 GOTO 1610 ELSE 1590
1590 FOR F=1 TO 4 : ; #1 : NEXT F
1600 IF S=1 GOTO 1610
1610 GOSUB 2560
1620 IF S=0 GOTO 1640 ELSE 1630
1630 FOR F1=1 TO 5 : ; #1 : NEXT F1
1640 ;
1650 IF S=0 GOTO 1690 ELSE 1660
1660 ; #1 TAB(5) "BETALNINGSP]MINNELSE: " A9$ : ; #1 CHR$(31,31) : ; TAB(5) "BETALNINGSP]MINNELSE: " A9$
1670 ; #1 CHR$(31,31,31)
1680 IF S=1 GOTO 1700
1690 ; TAB(5) "BETALNINGSP]MINNELSE: " A9$ : IF S=0 GOTO 1710
1700 ; #1 : ;
1710 IF V=2 GOTO 2860 : ;
1720 IF V=3 GOTO 2960
1730 IF S=0 GOTO 1790
1740 ; #1 TAB(5) "Enligt v}ra noteringar har vi {nnu ej erh}llit likvid f|r"
1750 ; TAB(5) "Enligt v}ra noteringar har vi {nnu ej erh}llit likvid f|r"
1760 ; #1 TAB(5) "nedanst}ende f|rfallna fakt. Vi ber Er omg}ende betala beloppet."
1770 ; TAB(5) "nedanst}ende f|rfallna fakt. Vi ber Er omg}ende betala beloppet."
1780 ; #1 : ; : IF S=1 GOTO 1830
1790 ;
1800 ; TAB(5) "Enligt v}ra noteringar har vi {nnu ej erh}llit likvid f|r"
1810 ; TAB(5) "nedanst}ende f|rfallna fakt. Vi ber Er omg}ende betala beloppet." : ;
1820 IF S=0 GOTO 1850
1825 ; #1 : ;
1830 ; #1 TAB(5) "Faktura nr"; : ; TAB(5) "Faktura nr";
1840 IF S=1 GOTO 1880
1850 ;
1860 ; TAB(5) "Faktura nr";
1870 IF S=0 GOTO 1900
1880 ; #1 TAB(20) "Fakt. f|rfallodag"; : ; TAB(20) "Fakt. f|rfallodag";
1890 IF S=1 GOTO 1920
1900 ; TAB(20) "Fakt. f|rfallodag";
1910 IF S=0 GOTO 1940
1920 ; #1 TAB(40) "F|rfallet belopp"; : ; TAB(40) "F|rfallet belopp";
1930 IF S=1 GOTO 1960
1940 ; TAB(40) "F|rfallet belopp";
1950 IF S=0 GOTO 1980
1960 ; #1 TAB(58) "Upplupen r{nta" : ; TAB(58) "Upplupen r{nta"
1970 IF S=1 GOTO 2010
1980 ; TAB(58) "Upplupen r{nta"
1990 ;
2000 IF S=0 GOTO 2020
2010 ; #1 : ;
2020 N=0
2030 N=N+1
2040 IF S=0 GOTO 2100
2050 ; #1 TAB(9) D4$(N);TAB(25) B9$(N); : ; #1 USING "#########.##" TAB(43) D2$(N);
2060 ; #1 USING "#######.##" TAB(60) R$(N)
2070 ; TAB(9) D4$(N);TAB(25) B9$(N); : ; USING "#########.##" TAB(43) D2$(N);
2080 ; USING "#######.##" TAB(60) R$(N)
2090 IF S=1 GOTO 2130
2100 ; TAB(9) D4$(N);TAB(25) B9$(N); : ; USING "#########.##" TAB(43) D2$(N);
2110 ; USING "#######.##" TAB(60) R$(N)
2120 IF N