DataMuseum.dk

top - download

    Length: 5056 (0x13c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »LFRADRAG.K«

└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
    └─⟦this⟧ »LFRADRAG.K« 

Mikados K File

0200PROC INDVIRK 
0210OPEN FIL$,R 
0220EXEC FEJL(B,B,FIL$) 
0230GET FIL$,V:DAD$ 
0240CLOSE FIL$ 
0250ENDPROC  
0900PROC INLØNMOD(N) 
0902GET FIL1$,G*N-E:POST1$ 
0904GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 
0906EXEC FEJL(E,N,FIL1$) 
0908ENDPROC  
1000DIM STARTPER$(8),SLUTPER$(8),DAD$(6),FIL$(20) 
1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 
1020DIM TOTAL$(7,12),FIL1$(16),POST1$(71),POST2$(27) 
1030DIM RESUL$(12),RESUL1$(12),MF41$(50),MF42$(50),TOTAL1$(5,12) 
1050DIM MF4$(16) 
1060TAH$="          0+" 
1070DIM BL$(79) 
1080FOR I=E TO 79 
1090BL$=BL$+" " 
1100NEXT I 
1110PROC CALC(AR3,B1,B2,ES) 
1120RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 
1130CALL "P641210:REGN" 
1140IF AR3<6 THEN  
1150IF FLAG THEN STOP  
1160ENDIF  
1170ES$=RES$ 
1180ENDPROC  
1390PROC SKRIVHOVED 
1400PRINT  
1410SIDE=SIDE+E 
1420PRINT USING " SIDE ###":SIDE; 
1425PRINT "     UDSKRIFTSDATO ";DAD$; 
1430PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 
1440LINIE=7 
1450PRINT TAB(34);"FRADRAGSLISTE" 
1460PRINT TAB(34);"*************" 
1470PRINT " LØN  NAVN";TAB(37);"LA";TAB(45);"LA";TAB(53);"LA";TAB(61);"LA"; 
1480PRINT TAB(69);"LA";TAB(75);"IALT" 
1490PRINT " NR";TAB(37);"60";TAB(45);"61";TAB(53);"62";TAB(61);"63";TAB(69); 
1500PRINT "64" 
1501PRINT TAB(37);"65";TAB(45);"66";TAB(53);"67";TAB(61);"68";TAB(69); 
1502PRINT "69" 
1510ENDPROC  
1580PROC FEJL(P1,P2,P3) 
1590IF STATUS(P3$)<>B THEN  
1600OUTPUT T 
1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 
1620STOP  
1630ENDIF  
1640ENDPROC  
1650FIL$="P641220:VIRKKART" 
1660EXEC INDVIRK 
1675FIL1$="P641220:LØNMODRG" 
1680OPEN FIL1$,R 
1710MF4$="P641210:FRADRAG" 
1720OPEN MF4$,R 
1730MAXLIN=72 
1740SIDE=B 
1750GET MF4$:STARTPER$,SLUTPER$ 
1760OUTPUT P 
1770FOR I=E TO 7 
1780TOTAL$(I)=TAH$ 
1790NEXT I 
1800EXEC SKRIVHOVED 
1810GET MF4$:LMNR,MF41$ 
1820WHILE STATUS(MF4$)=B 
1822GET MF4$:LMNR,MF42$ 
1825EXEC INLØNMOD(LMNR) 
1840IF LINIE>MAXLIN-W THEN  
1850WHILE LINIE<MAXLIN 
1860PRINT  
1870LINIE=LINIE+E 
1880ENDWHILE  
1890EXEC SKRIVHOVED 
1910ENDIF  
1915LINIE=LINIE+5 
1920TOTAL$(7)=TAH$ 
1930FOR I=E TO 5 
1940RESUL$=MF41$(E+(I-E)*10:10) 
1945EXEC CALC(B,RESUL$,TOTAL$(7),TOTAL$(7)) 
1950EXEC CALC(B,RESUL$,TOTAL$(I),TOTAL$(I)) 
1960IF MF41$(I*10)="+" THEN MF41$(I*10)=" " 
1962RESUL$=MF42$(E+(I-E)*10:10) 
1964EXEC CALC(B,RESUL$,TOTAL1$(I),TOTAL1$(I)) 
1966EXEC CALC(B,RESUL$,TOTAL$(7),TOTAL$(7)) 
1968IF MF42$(I*10)="+" THEN MF42$(I*10)=" " 
1970NEXT I 
1980EXEC CALC(B,TOTAL$(7),TOTAL$(6),TOTAL$(6)) 
1990RESUL1$=TOTAL$(7,V:10) 
2000IF RESUL1$(10)="+" THEN RESUL1$(10)=" " 
2030PRINT USING "####":LMNR; 
2035PRINT TAB(7);POST1$(E,25); 
2040PRINT TAB(38);MF41$(E,10);TAB(54);MF41$(11,20);TAB(70);RESUL1$; 
2050PRINT TAB(30);MF41$(21,30);TAB(46);MF41$(31,40);TAB(62);MF41$(41,50) 
2055PRINT TAB(38);MF42$(11,20);TAB(54);MF42$(31,40) 
2060PRINT TAB(30);MF42$(E,10);TAB(46);MF42$(21,30);TAB(62);MF42$(41,50) 
2075PRINT "************************************************************"; 
2076PRINT "*******************"; 
2080GET MF4$:LMNR,MF41$ 
2090ENDWHILE  
2095IF STATUS(MF4$)<>19 THEN EXEC FEJL(LMNR,B,MF4$) 
2100FOR I=E TO 6 
2110IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 
2112IF I<6 THEN  
2114IF TOTAL1$(I,12)="+" THEN TOTAL1$(I,12)=" " 
2115ENDIF  
2120NEXT I 
2130PRINT " ***";TAB(36);TOTAL$(E);TAB(52);TOTAL$(G);TAB(68);TOTAL$(6); 
2132PRINT TAB(28);TOTAL$(V);TAB(44);TOTAL$(4);TAB(60);TOTAL$(5) 
2134PRINT TAB(36);TOTAL1$(G);TAB(52);TOTAL1$(4) 
2136PRINT TAB(28);TOTAL1$(E);TAB(44);TOTAL1$(V);TAB(60);TOTAL1$(5) 
2141LINIE=LINIE+4 
2142WHILE LINIE<MAXLIN 
2144PRINT  
2146LINIE=LINIE+E 
2148ENDWHILE  
2149OUTPUT T 
2150CLOSE  
2160CHAIN "P641210:LBILAG"