|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3584 (0xe00)
Notes: MEMBER_S, Member_Text
Names: »FAK520 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».FAK520 «
Momsprocenten b¦r ikke udskrives til momsfrie kunder.
Rettelse pr. 31/7 1984.
C* I N D I C A T O R O V E R S I G T
C*
add C* 76 - KUNDE UDEN MOMS
C TOTAL BEGSR
C* HENT 02 IGEN MED ORDREOPLYSNINGER
C Z-ADDGEM02 WRK01
C EXSR ORDCHN
C* F045
{ndr C MOMKU1 COMP 'N' 76 INGEN
{ndr C 76 Z-ADD0 MOMSG1 MOMS
{ndr O N76 MOMPC14 51
O MOMS1 4 65
O FAKBEL4 82
** COPYRIGHT NOTICE
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Ny funktion indlagt pr. 31/12 1984.
----------------------------------
Det er nu muligt at kreditere fakturarabat. Kundens normale
rabat vil blive vist p} samme billede som navnet og kan s}
evt. rettes eller slettes som ved ordreindtastning.
Samtidig skal indtastningsprogrammet FAK500 rettes. (Se dette.)
IPROGTXT NS 8 C1
I 9 98 PGTX1
I NS 8 C2
I 9 98 PGTX2
{ndr I 100 112 PGTX2A
I NS 8 C3
I 9 98 PGTX3
add I 100 123 PGTX3D
C* I N D I C A T O R O V E R S I G T
C*
add C* 71 - FAKTURARABAT
I subrutine TOTAL tilf¦jes:
add C*
add C Z-ADDFAKBEL WRK14 92
add C EXSR FAKTRB FAKTURARABAT
C* BEREGN MOMS
Indl{g f¦lgende subrutine mellem de ¦vrige
C****************************************************** F A K T R B
C* F 0 9 0 -----------
C* BEREGNING AF FAKTURARABAT
C* MOMSGRUNDLAGET REDUCERES MED FAKTURARABAT PROCENTEN
C* 71 ER P$, HVIS RABAT ER GIVET
C FAKTRB BEGSR
C Z-ADD0 FAKRAB
C Z-ADDFAKRPC FAKRPC 71 RABAT %
C N71 GOTO FAKT99
C Z-ADD0 WRK43 43
C MOVE FAKRPC WRK43
C FAKBEL MULT WRK43 FAKRAB 71
C SUB FAKRAB FAKBEL
C FAKRAB MULT GKURS FAKRDK H
C 1 SUB WRK43 WRK43
C MULT WRK43 MOMSG1 H
C FAKT99 ENDSR
add O E 11 75 71
add O 82 '------------'
add O E 1 75 71
add O WRK14 4 82
add O E 1 75 71
add O* LINIE MED FAKTURARABAT
add O PGTX3D 52
add O FAKRPC 69 '0 , %'
add O FAKRAB4 82
add O 83 '-'
O E 145 75
O PGTX1 92
Desuden rettes programteksterne p} f¦lgende m}de:
Kald punkt 8 p} PROG-menuen og tag derefter CMD 2 og tast
FAK520 0 2, ret derefter billedet til f¦lgende udseende:
1 2 3 4 5 6 7 8
.........0.........0.........0.........0.........0.........0.........0.........0
Varenr Varebetegnelse Antal Enh. Bel¦b
; Valuta:;
FAK520 1 2:
1 2 3 4 5 6 7 8
.........0.........0.........0.........0.........0.........0.........0.........0
Itemno Description Qty. U/M Amount
; Currency:;
FAK520 0 3:
1 2 3 4 5 6 7 8
.........0.........0.........0.........0.........0.........0.........0.........0
Vedr¦rende faktura Deres reference
;Fakturarabat ;
FAK520 1 3:
1 2 3 4 5 6 7 8
.........0.........0.........0.........0.........0.........0.........0.........0
Re. invoice no Your reference
;Invoice discount ;
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Nogle af de engelske tekster mangler. Opret f¦lgende record:
Rettelse pr. 31/12 1984.
FAK520 1 4:
1 2 3 4 5 6 7 8
.........0.........0.........0.........0.........0.........0.........0.........0
Cust.no. ;Orderno. ;Creditnote;Date ;Page. ;Sold to: ;Delivered
to: ;CREDITNOTE ;