ALV lomakkeen muutos

Voit muuttaa ohjelman laittamaan kohtaan 301 jne. 24% tilit seuraavasti (tämä muuttaa otsikot):

(1) Datamiken päävalikossa paina nappia "Ohjelmaeditori". Ohjelma kysyy tiedostonimea. Anna kuuver10.prg ja paina Open/avaa tms.

(2) Esiin tulee tekstieditori. Siellä on esim. oheisenkaltaiset rivit (voit käyttää F3 -Etsi toimintoa):

...
pput(845,1134,'palkat ja muut suoritukset',fon5,,2)
pput(842,156,'301',fon4,,2)
pput(847,257,'23 %:n vero',fon5,,2)
pput(926,1070,'602 Toimitettu ennakonpidätys',fon4,,2)
pput(928,156,'302',fon4,,2)
pput(933,257,'13 %:n vero',fon5,,2)
pput(979,1070,'605',fon4,,2)
pput(984,1134,'Lähdeveron alaiset palkat',fon5,,2)
pput(1016,1134,'ja muut suoritukset',fon5,,2)
pput(1012,156,'303',fon4,,2)
pput(1016,274,'9 %:n vero',fon5,,2)
...

(3) muuta numerot seuraavasti (muutokset punaisella):

...
pput(845,1134,'palkat ja muut suoritukset',fon5,,2)
pput(842,156,'301',fon4,,2)
pput(847,257,'24 %:n vero',fon5,,2)
pput(926,1070,'602 Toimitettu ennakonpidätys',fon4,,2)
pput(928,156,'302',fon4,,2)
pput(933,257,'14 %:n vero',fon5,,2)
pput(979,1070,'605',fon4,,2)
pput(984,1134,'Lähdeveron alaiset palkat',fon5,,2)
pput(1016,1134,'ja muut suoritukset',fon5,,2)
pput(1012,156,'303',fon4,,2)
pput(1016,274,'10 %:n vero',fon5,,2)
...

...ja sulje tekstieditori. Ohjelma kysyy tallennetaanko ja siihen vastataan kyllä/Ok tms.


Tee sitten vielä seuraavat muutokset (tämä muuttaa laskelmat):

(1) Datamiken päävalikossa paina nappia "Ohjelmaeditori". Ohjelma kysyy tiedostonimea. Anna kuuver8.prg ja paina Open/avaa tms.

(2) Esiin tulee tekstieditori. Siellä on esim. oheisenkaltaiset rivit (voit käyttää F3 -Etsi toimintoa):

...
IF type(tt2x)="A"
   i=1
   DO WHILE i<=len(tt2x)
      DO CASE
         CASE tt2x[i,1]=23
              getli[10,1]=getli[10,1]+tt2x[i,3]
         CASE tt2x[i,1]=13
              getli[12,1]=getli[12,1]+tt2x[i,3]
         CASE tt2x[i,1]=9
              getli[14,1]=getli[14,1]+tt2x[i,3]
      endcase
      i=i+1
   ENDDO
ENDIF
...

(3) muuta numerot seuraavasti (muutokset punaisella):

...
IF type(tt2x)="A"
   i=1
   DO WHILE i<=len(tt2x)
      DO CASE
         CASE tt2x[i,1]=24
              getli[10,1]=getli[10,1]+tt2x[i,3]
         CASE tt2x[i,1]=14
              getli[12,1]=getli[12,1]+tt2x[i,3]
         CASE tt2x[i,1]=10
              getli[14,1]=getli[14,1]+tt2x[i,3]
      endcase
      i=i+1
   ENDDO
ENDIF
...

...ja sulje tekstieditori. Ohjelma kysyy tallennetaanko ja siihen vastataan kyllä/Ok tms.

Kokeile sitten miltä näyttää.