|
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: 1536 (0x600)
Notes: MEMBER_S, Member_Text
Names: »FAK310 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».FAK310 «
Difference p} 1 ¦re p} fakturabundlinien.
Der m} ikke foretages `half-adjust` p} b}de fakturarabat og momsgrundlag
Rettelse pr. 27/4 1984:
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
{ndr C FAKBEL MULT WRK43 FAKRAB 71
-
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Statistikopsamling under fakturaudskrift.
Varegruppe for skaffevarer kan v{re forkert i statistikerne.
Rettelse pr. 31/7 1984.
C REC04 TAG
C SETOF 42
C SETOF 44
C 51 KODE1 COMP 'D' 80
C 51N80 GOTO REC01
C 05 MOVE GEMK1 KODE1 TXTLIN = TIDL.
C 05 MOVE GEMK2 KODE2
C 06
{ndr COR 04 EXSR VARCHN
---
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Momsprocenten b¦r ikke udskrives til momsfrie kunder.
Rettelse pr. 31/7 84.
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
O E 1 75 74
O* LINIE MED KONTANTRABAT