|
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: 2048 (0x800)
Notes: MEMBER_S, Member_Text
Names: »KRE430 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».KRE430 «
@reafrundingskonto skal ikke bruges mere.
Rettelse pr. 6/8 1984:
Registrering af kreditorposter i fremmed valuta kunne, hvis der var
integration til finans, give anledning til ¦reafrundingsdifferencer,
der blev posteret p} s{rskilt konto.
slet I* Diff konto
slet I 580 587 KTODIF
slet C* Opsummer af hensyn til evt. diff med modkonti for fr. valuta
{ndr C Z-ADDBELDKK DIFF 102
slet C* Opsummer af hensyn til evt. diff med modkonti for fr. valuta
{ndr C Z-ADDBELDKK DIFF
slet CLR Z-SUBDIFF DIFF 102 7878
C 48 ADD PBELD8 DIFF Summer til diff
add C 41 SUB DIFF PBELD1
add C 41 GOTO ENDKT
add C 42 SUB DIFF PBELD2
add C 42 GOTO ENDKT
add C 43 SUB DIFF PBELD3
add C 43 GOTO ENDKT
add C 44 SUB DIFF PBELD4
add C 44 GOTO ENDKT
add C 45 SUB DIFF PBELD5
add C 45 GOTO ENDKT
add C 46 SUB DIFF PBELD6
add C 46 GOTO ENDKT
add C 47 SUB DIFF PBELD7
add C 47 GOTO ENDKT
add C 48 SUB DIFF PBELD8
{ndr C ENDKT ENDSR
OSYSCTL E SYSOPD
slet O* Postering af evt ¦reafrunding
slet OTRANS TADD LR 78
slet O 2 'TA'
slet O D$MD 8
slet O KTODIF 16
slet O 36 '@reafrunding debitor'
slet O DIFF 56
slet O POSJOU 62
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Registrering af kreditorposter kan generere for mange finansposter.
Hvis der er integration til finans og
- - i et bundt registreres ind-/udbetalinger efter andre typer og
- - til den sidste faktura-/kreditnota-/diversepost er anvendt
nogen af finansfelterne 5-8 til fordeling,
s} vil disse (alts} finansposterne svarende til felt 5-8) blive
dupliceret en gang pr. efterf¦lgende ind-/udbetalingspostering.
C START TAG START
C* -----
C SETOF 4142
C SETOF 4344
add C SETOF 45
add C SETOF 464748