Átutalási adatformátumok |
  
|
Átutalási adatformátumok |
|
A kiegyenlítési tételekből a program elkészíti a banki terminál programok számára a bankok által definiált formátumban a kiegyenlítési export fájt.
Átutalási formátumok – HUF:
Kód |
EDI formátum |
Csp |
Fej[Char] |
Tétel[Char] |
Láb[Char] |
Fájlnév |
A |
Átutalás – KHB |
I |
0 |
939 |
0 |
YATUTKHB.TXT |
B |
Átutalás – Raiffesisen |
I |
0 |
248 |
0 |
YATURAIF.TXT |
C |
Postautalvány – Raiffesisen |
N |
0 |
214 |
0 |
YPOSRAIF.TXT |
D |
Átutalás – UniCredit |
I |
256 |
256 |
256 |
YATUCRED.PAY |
E |
Postautalvány - Creditanstalt |
N |
80 |
200 |
0 |
YPOSCRED.PUT/.TXT |
F |
Átutalás - Hypobank |
|
353 |
353 |
0 |
YATUHYPO.UNG |
G |
Postautalvány - Hypobank |
|
80 |
200 |
0 |
YPOSHYPO.001/.TXT |
H |
Postautalvány - KHB |
N |
128 |
200 |
0 |
YPOSTKHB.001/.TXT |
I |
Csoportos - KHB |
|
|
|
|
YCSOPKHB.TXT |
J |
Átutalás – CIB |
I |
360 |
360 |
360 |
YYYYMMDD.INP |
K |
Postautalvány – CIB |
|
80 |
200 |
0 |
YPOSTCIB.INP/.TXT |
L |
Átutalás – ING |
I |
355 |
355 |
0 |
YATUTING.UNG |
M |
Postautalvány – ING |
N |
80 |
200 |
0 |
YPOSTING.001/.TXT |
N |
Csoportos – ING |
|
174 |
249 |
24 |
YCSOPING.UNG |
O |
Átutalás – IEB |
N |
0 |
236 |
0 |
YYYYMMDD.TXM |
P |
Átutalás – BMG |
I |
csv |
csv |
csv |
BMGErtDatX_Rogdat.csv |
Átutalási formátumok – DEV:
Kód |
EDI formátum |
Csp |
Fej[Char] |
Tétel[Char] |
Láb[Char] |
Fájlnév |
W |
Átutalás – BMG – Dev |
I |
csv |
csv |
csv |
BMGErtDatX_Rogdat.csv |
X |
Átutalás – CIB – DEV |
I |
360 |
3 * 360 |
360 |
YYYYMMDD.INP |
Y |
Átutalás – ING – DEV |
I |
x |
x |
0 |
INGDEV.INT |
Z |
Átutalás – UniCredit – DEV |
I |
800 |
800 |
800 |
UNICREDIT.CCY |
Adat előállítási mód:
A képernyő navigátor sorában található jelölőnégyzet kipipálásával vagy üresen hagyásával eldönthetjük, hogy a program csoportosítsa vagy sem a hasonló átutalási tételeket. A csoportosítás azt jelenti, hogy a hasonló átutalási tételeket a program egy utalási tétellé vonja össze. Így csökkenthetjük az átutalási költségeket.
A csoportosítás alapvetően a címzett partnerre és a kedvezményezett számlaszámra történik. A csoportosítás az ideiglenes átutálási adattábla (Tmp_CsopAtutFile / Tmp_CsopAtutFileDev) adatmezőin megy végbe. Az alapvető átutalási adatok közül a csoportosításból tulajdonképpen csak a szállítói számlaszám (PSzaAla.SzaSza) marad ki. A csoportosított tétel közlemény mezőjébe egy funkció rakja össze a csoportosított számlák számlaszámait.
1. Forintos átutalási adatok csoportosítása.
Az ideiglenes átutálási adattáblába (Tmp_CsopAtutFile) alapvetően a számla alap (PSzaAla) táblából kerülnek át az adatok.
select
tmp.SzlaBanSzla, tmp.SzlCimPar, tmp.FimKod, tmp.FimNev,
sum(tmp.KiegyOssz) KiegyOssz,
tmp.PeeKod, tmp.PeeNev, tmp.PeeBanSzla, tmp.PeeBanNev,
tmp.DevKod, tmp.CimParNev, tmp.CimParAzoSza, tmp.CimParIraSza, tmp.CimParCim,
tmp.IraNev, isnull(tmp.DtFlag,'N') DtFlag
from
Tmp_CsopAtutFile tmp
group by
tmp.SzlaBanSzla, tmp.SzlCimPar, tmp.FimKod, tmp.FimNev,
tmp.PeeKod, tmp.PeeNev, tmp.PeeBanSzla, tmp.PeeBanNev,
tmp.DevKod, tmp.CimParNev, tmp.CimParAzoSza, tmp.CimParIraSza, tmp.CimParCim,
tmp.IraNev, isnull(tmp.DtFlag,'N')
Order by tmp.SzlCimPar, tmp.SzlaBanSzla
2. Devizás átutalási adatok csoportosítása.
Az ideiglenes átutálási adattáblába (Tmp_CsopAtutFileDev) alapvetően a számla alap (PSzaAla) és a devizás átutalási adatokat tartalmazó (PSzaAtu) táblákból kerülnek át az adatok.
select
tmp.SzlaBanSzla, tmp.SzlCimPar, sum(tmp.KiegyOssz) KiegyOssz,
tmp.PeeKod, tmp.PeeBanSzla, tmp.DevKod, tmp.KedBicKod, tmp.KedBanAzo, tmp.KedBanNev,
tmp.KedBanNev2, tmp.KedBanCim1, tmp.KedBanCim2, tmp.KedBanCim3, tmp.KedOrsKod,
tmp.LevBicKod, tmp.LevBanAzo, tmp.LevBanNev, tmp.LevBanCim1, tmp.LevBanCim2,
tmp.LevBanCim3, tmp.KedSzla, tmp.KedNev, tmp.KedNev2, tmp.KedCim1, tmp.KedCim2,
tmp.KedCim3, tmp.KedKoz1, tmp.KedKoz2, tmp.KedKoz3, tmp.KedKoz4, tmp.BanKtg,
tmp.Surgos, tmp.Hold, tmp.Chqb, tmp.DtFlag, tmp.DtDatum, tmp.DtSor, tmp.JogCim,
tmp.KedSzlaForm, tmp.BanKoz1, tmp.BanKoz2, tmp.Ugyintezo, tmp.AtutMod, tmp.KulBanJut,
tmp.MagyBanJut, tmp.FizViszKer, tmp.SwiftMas, tmp.ErtMod, tmp.FaxSzam, tmp.AkkredAzon,
tmp.GaranAzon, tmp.AtuInfo
from
Tmp_CsopAtutFileDev tmp
group by
tmp.SzlaBanSzla, tmp.SzlCimPar,
tmp.PeeKod, tmp.PeeBanSzla, tmp.DevKod, tmp.KedBicKod, tmp.KedBanAzo, tmp.KedBanNev,
tmp.KedBanNev2, tmp.KedBanCim1, tmp.KedBanCim2, tmp.KedBanCim3, tmp.KedOrsKod,
tmp.LevBicKod, tmp.LevBanAzo, tmp.LevBanNev, tmp.LevBanCim1, tmp.LevBanCim2,
tmp.LevBanCim3, tmp.KedSzla, tmp.KedNev, tmp.KedNev2, tmp.KedCim1, tmp.KedCim2,
tmp.KedCim3, tmp.KedKoz1, tmp.KedKoz2, tmp.KedKoz3, tmp.KedKoz4, tmp.BanKtg,
tmp.Surgos, tmp.Hold, tmp.Chqb, tmp.DtFlag, tmp.DtDatum, tmp.DtSor, tmp.JogCim,
tmp.KedSzlaForm, tmp.BanKoz1, tmp.BanKoz2, tmp.Ugyintezo, tmp.AtutMod, tmp.KulBanJut,
tmp.MagyBanJut, tmp.FizViszKer, tmp.SwiftMas, tmp.ErtMod, tmp.FaxSzam, tmp.AkkredAzon,
tmp.GaranAzon, tmp.AtuInfo
Order by tmp.SzlCimPar, tmp.SzlaBanSzla
Csoportos: Igen
Fej: 0
Tétel: 939 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 6 Rekord típus ’PAYORD’
2. 7 2 Átutalás típus ’DO’
3. 9 14 Azonosító ErtDatX Pl:20010827 RSpa
4. 23 47 Feladó bankszámlaszám PPeeTor.BanKod+BanFol+BanAls RSpa
5. 70 1 Feladó számla típus ’0’
6. 71 32 Feladó neve Space Space
7. 103 117 Üres Space Space
8. 220 47 Címzett számlaszám PSzaAla.BanKod+BanFol+BanAls RSpa
9. 267 1 Címzett számla típus ’0’
10. 268 64 Üres Space Space
11. 332 32 Címzett neve PSzaAla.CimPar -> AParTor.ParNev RSpa
12. 364 229 Üres Space Space
13. 593 96 Közlemény RSpa
If Csoportos = ’I’
AParTor(PSzaAla.CimPar).Ugyfazo + CsopSza(PSzaAl[i].SzaSza
Else AParTor(PSzaAla.CimPar).Ugyfazo + PSzaAla.SzaSza ’-atutalasa’ + PSzaAla.SzAlId
+ ’*’ + PSzaAla.BanMeg
14. 689 6 Bizonylatszám Copy(PSzaAla.SzAlId,8,5) Rspa
15. 695 111 Üres Space Space
16. 806 3 Devizanem PPeeTor.DevKod
17. 809 1 Tizedes jegyek száma ’0’
18. 810 13 Átutalás összege PSzaKie.TerDev 13I Elő_0
Pl: 0000007654321 : 7.654.321
19. 823 12 Üres Space Space
20. 835 8 Értéknap ErtDatX Pl:20010827
21. 843 95 Üres Space Space
22. 938 2 Státusz ’00’
23. 940 2 Rekord vége CR/LF
- 941
Láb: 0
Csoportos: Igen
Fej: 0
Tétel: 248 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 15 Átutalás összege PSzaKie.TerDev 12I.2D ElőSp Pl: ______7654321.00 : 7.654.321
2. 16 8 Értéknap ErtDatX Pl:20010827
3. 24 13 Üres Space Space
4. 37 24 Feladó bankszámlaszám PPeeTor.BanKod+BanFol+BanAls RSpa
5. 61 24 Címzett számlaszám PSzaAla.BanKod+BanFol+BanAls RSpa
6. 85 32 Címzett neve PSzaAla.CimPar -> AParTor.ParNev RSpa
7. 117 20 Üres Space Space
8. 137 70 Közlemény RSpa
If Csoportos = ’I’
AParTor(PSzaAla.CimPar).Ugyfazo + CsopSza(PSzaAl[i].SzaSza
Else AParTor(PSzaAla.CimPar).Ugyfazo + PSzaAla.SzaSza ’-atutalasa’ + PSzaAla.SzAlId
+ ’*’ + PSzaAla.BanMeg
9. 207 16 Referencia PSzaAla.SzAlId RSpa
If Csoportos = ’I’ Then Space
10. 223 6 Bizonylatszám Copy(PSzaAla.SzAlId,8,5) RSpa
If Csoportos = ’I’ Then Space
11. 229 20 Megjegyzés PSzaAla.SzAlId RSpa
If Csoportos = ’I’ Then Space
12. 249 2 Rekord vége CR/LF
- 250
Láb: 0
Fej: 0
Tétel: 214 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 15 Átutalás összege PSzaKie.TerDev 12I.2D ElőSp Pl: ______7654321.00 : 7.654.321
2. 16 8 Értéknap ErtDatX Pl:20010827
3. 24 13 Üres Space Space
4. 37 24 Feladó bankszámlaszám PPeeTor.BanKod+BanFol+BanAls RSpa
5. 61 24 Címzett azonosító PSzaAla.CimPar ->
PSzaAla.CimPar+AParTor.AzoSza RSpa
6. 85 48 Címzett neve PSzaAla.CimPar -> AParTor.ParNev RSpa
7. 133 24 Címzett helység PSzaAla.CimPar -> AParTor.IraSza ->
AIraTor.IraNev RSpa
8. 157 24 Címzett cím PSzaAla.CimPar -> AParTor.ParCim RSpa
9. 181 4 Címzett irányítószám PSzaAla.CimPar -> AParTor.IraSza RSpa
10. 185 30 Közlemény PSzaAla.Szasza+’/’+ PSzaAla.SzAlId
+’átutalása’ RSpa
12. 215 2 Rekord vége CR/LF
- 216
Láb: 0
Csoportos: Igen
Fej: 256
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Rekord típus
If Viber = ’I’ Then ’25’ Else ’23’
2. 3 24 Feladó bankszámlaszám PPeeTor.BanKod+BanFol+BanAls RSpa
3. 27 3 Devizanem PPeeTor.DevKod
4. 30 1 Megbízás típusa
If Viber = ’I’ Then ’4’ – VIBER Else ’1’ – Átutalás
5. 31 1 Ügyfél program indikátor ’0’
6. 32 8 Létrehozás dátuma SysDate Pl: 20010827
7. 40 217 Üres Space Space
8. 257 2 Rekord vége CR/LF
- 258
Tétel: 256 char
I:=0;Sum_I:=0;Sum_Osz:=0;SzSzEl7:=0;
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Rekord típus
If Viber = ’I’ Then ’45’ Else ’43’
2. 3 6 Rekordszám Inc(i) Pl: 000001 Elő_0
Sum_I:=Sum_I+i
3. 9 24 Címzett számlaszám PSzaAla.BanKod+BanFol+BanAls RSpa
For j1:=1 To 8 Do SzSzEl7[j1]:=SzSzEl7[j1]+VlrI(Copy(PSzaAla.BanKod,,j1,1));
For j1:=1 To 8 Do SzSzEl7[j1+8]:=SzSzEl7[j1+8]+VlrI(Copy(PSzaAla.BanFol,,j1,1));
For j1:=1 To 8 Do SzSzEl7[j1+16]:=SzSzEl7[j1+16]+VlrI(Copy(PSzaAla.BanAls,,j1,1));
4. 33 32 Címzett neve PSzaAla.CimPar -> AParTor.ParNev RSpa
5. 65 6 Bizonylatszám Copy(PSzaAla.SzAlId,8,5) RSpa
6. 71 96 Közlemény RSpa
If Csoportos = ’I’
AParTor(PSzaAla.CimPar).Ugyfazo + CsopSza(PSzaAl[i].SzaSza
Else AParTor(PSzaAla.CimPar).Ugyfazo + PSzaAla.SzaSza ’-atutalasa’ + PSzaAla.SzAlId
+ PSzaAla.BanMeg
7. 167 15 Átutalás összege 100 * PSzaKie.TerDev 15I Elő_0
Pl: 000000765432100 : 7.654.321
Sum_Osz:= Sum_Osz+ PSzaKie.TerDev
8. 182 3 Devizanem PPeeTor.DevKod
9. 185 8 Értéknap ErtDatX Pl:20010827
10. 193 3 Jogcímkód Space 4/2003 MNB Space
11. 196 2 Jogosult országkódja ’HU’
12. 198 7 Üres Space Space
13. 205 3 Üres ’000’ Nulla
14. 208 3 Üres ’000’ Nulla
15. 211 46 Üres Space Space
16. 257 2 Rekord vége CR/LF
- 258
Láb: 256
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Rekord típus
If Viber = ’I’ Then ’65’ Else ’63’
2. 3 6 Rekordszám ellenőrzőszám Sum_I Pl: 000001 Elő_0
3. 9 24 Bankszámlaszám ellenszám SzSzEa
4. 33 134 Üres Space Space
5. 167 15 Átutalás mindösszesen 100 * Sum_Osz 15I Elő_0
6. 182 75 Üres Space Space
8. 257 2 Rekord vége CR/LF
- 258
Function SzSzEa:S24Type;
Var Txs24:S24Type;Txs8:S8Type;SzSzEl7:array[0..24] Of LongInt;
Begin Txs24:='';
For j1:=24 DownTo 1 Do
Begin
Txs8:=EloNull(SzSzEl7[j1],8,0);Txs24:=Copy(Txs8,8,1)+Txs24;
SzSzEl7[j1-1]:=SzSzEl7[j1-1]+VlrI(Copy(Txs8,1,7));
End; SzSzEa:=Txs24;
End;
Fej: 80
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 8 Feladó azonosító Copy(PPeeTor.BanKod+BanFol+BanAls,13,8)
2. 9 1 Jelleg ’E’
3. 10 3 Üres ’000’ Nulla
4. 13 2 Üres ’00’ Nulla
5. 15 1 Feladó nyomtatása ’1’
6. 16 2 Bizonylat típusa ’81’
7. 18 1 Feladó jegyzék ’0’
8. 19 6 Tételszám Sum(i) Elő_0
9. 25 16 Átutalandó összeg Sum(PSzaKie.TerDev) 16I Elő_0
10. 41 12 Üres ’000000000000’ Nulla
11. 53 16 Üres ’0000000000000000’ Nulla
12. 69 12 Üres ’000000000000’ Nulla
13. 81 2 Rekord vége CR/LF
- 82
Tétel: 200 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 24 Címzett számlaszám PSzaAla.BanKod+BanFol+BanAls RSpa
2. 25 48 Címzett neve PSzaAla.CimPar -> AParTor.ParNev RSpa
3. 73 24 Címzett helység PSzaAla.CimPar -> AParTor.IraSza ->
AIraTor.IraNev RSpa
4. 97 24 Címzett cím PSzaAla.CimPar -> AParTor.ParCim RSpa
5. 121 4 Címzett irányítószám PSzaAla.CimPar -> AParTor.IraSza RSpa
6. 125 9 Átutalás összege PSzaKie.TerDev 9I Elő_0
Pl: 007654321 : 7.654.321
7. 134 6 Üres ’000000’ Nulla
8. 140 30 Közlemény PSzaAla.Szasza+’/’+ PSzaAla.SzAlId
+’átutalása’ RSpa
9. 170 1 Üres ’0’ Nulla
10. 171 6 Üres ’000000’ Nulla
11. 177 4 Üres ’0000’ Nulla
12. 181 8 Üres ’00000000’ Nulla
13. 189 12 Üres Nulla Nulla
14. 201 2 Rekord vége CR/LF
- 202
N/A
N/A
Fej: 128
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 8 Feladó azonosító Copy(PPeeTor.BanKod+BanFol+BanAls,9,8)
2. 9 1 Jelleg ’E’
3. 10 3 Éven belüli napsorszám
NapDif(Copy(KonDatX,1,4)+'.01.01',KonDatX)+1 Elő_0
4. 13 2 Üres ’00’ Nulla
5. 15 1 Feladó nyomtatása ’1’
6. 16 2 Bizonylat típusa ’81’
7. 18 1 Feladó jegyzék ’0’
8. 19 6 Tételszám Sum(i) Elő_0
9. 25 16 Átutalandó összeg Sum(PSzaKie.TerDev) 16I Elő_0
10. 41 12 Üres ’000000000000’ Nulla
11. 53 16 Üres ’0000000000000000’ Nulla
12. 69 12 Üres ’000000000000’ Nulla
13 81 24 Ügyfél neve AAzoAda.CegNevH RSpa
14. 105 24 Feladó bankszámlaszám PPeeTor.BanKod+BanFol+BanAls RSpa
13. 129 2 Rekord vége CR/LF
- 130
Tétel: 200 char Lásd: Postutalvány – Creditanstalt (E)
Láb: 0 char
N/A
Csoportos: Igen Tékisz
Fájl név: 071214.INP 071212 : beadási dátum: év.hó.nap
Fájl vége: EOF (#1A)
Fej: 360
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’1’
2. 2 35 CIB H név ’CIB Banki Zrt.’ RSpa
3. 37 25 Üres Space Space
4. 62 15 Üres Space Space
5. 77 6 Üres Space Space
6. 83 8 Beküldés napja SysDate Pl: 20010827
7. 91 264 Üres Space Space
8. 355 6 Rekord jelző ’000000’
9. 361 2 Rekord vége CR/LF
- 362
Tétel: 360
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’2’
2. 2 1 Mozgás típus ’2’
3. 3 17 Üres Space Space
4. 20 27 Átutaló neve, székhelye AAzoAda.CegNvR+’ ’+ AAzoAda.CegHel
Pl: ULT Magyarország Zrt. Nyíregyháza
5. 47 24 Terhelendő számlaszám PPeeTor.BanKod+BanFol+BanAls RSpa
6. 71 52 Üres Space Space
7. 123 32 Kedvezményezett neve PSzaAla.CimPar -> AParTor.ParNev RSpa
8. 155 2 Saját országkód AAzoAda.OrsKod RSpa
Pl: HU
9. 157 3 Jogcím ’010’ RSpa
10. 160 2 Kedvezményezett országkódja PSzaAla.CimPar -> AParTor.IraSza ->
AIraTor.OrsKod -> AOrsTor.OrsKod2 Pl: HU RSpa
11. 162 29 Üres Space Space
12. 191 13 Megbízás összege Round(PSzaKie.TerDev,0) 13I Elő_0
Pl: 0000007654321 : 7.654.321
13. 204 1 Jel ’X’
14. 205 52 Közlemény RSpa
If Csoportos = ’I’
AParTor(PSzaAla.CimPar).Ugyfazo + CsopSza(PSzaAl[i].SzaSza
Else AParTor(PSzaAla.CimPar).Ugyfazo + PSzaAla.SzaSza ’-atutalasa’
15. 257 43 Üres Space Space
16. 300 6 Bizonylat sorszáma Space RSpa
17. 306 6 Üres Space Space
18. 312 8 Esedékesség dátuma PSzaKie.ErtDat Pl: 20010827
19. 320 1 Felmondás Space Space
20. 321 9 Tételazonosító TetSorX Elő_0
Pl: 7. 000000007
21. 330 1 Tétel állapot jelző ’I’
22. 331 24 Jogosult számlaszáma PSzaAla.BanKod+BanFol+BanAls RSpa
23. 355 6 Rekord sorszám 10*TetSorX Elő_0
Pl: 7. 000070
24. 361 2 Rekord vége CR/LF
- 362
Láb: 360
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’9’
2. 2 4 Összes tételszám TetSorX Elő_0
Pl: 7 0070
3. 6 18 Ellenőrző összeg Sum(Round(PSzaKie.TerDev,0)) 18I Elő_0
Pl: 000000000007654321 : 7.654.321
4. 24 331 Üres Space Space
5. 355 6 Rekordjelző ’999999’
6. 361 2 Rekord vége CR/LF
- 362
Csoportos: Igen
Fej: 355
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 4 Mező sorszám – 1 ’:01:’
2. 5 6 Hivatkozás ’csi12’ RSpa
3. 11 4 Mező sorszám – 2 ’:02:’
4. 15 18 Átutalás mindösszesen Sum_Osz 15I,2D Elő_0
Pl: 00000000765432112 : 7.654.321,12
5. 33 4 Mező sorszám – 3 ’:03:’
6. 37 5 Megbízások száma Sum_I 5I Pl:00002 : 2 Elő_0
7. 42 4 Mező sorszám – 4 ’:04:’
8. 46 12 Bankszámlaszám PPeeTor.BanKod LSpa!
9. 58 4 Mező sorszám – 5 ’:05:’
10. 62 16 Megbízó neve – 1 AAzoAda.CegNevH RSpa
11. 78 16 Megbízó címe AAzoAda.CegHel RSpa
12. 94 4 Mező sorszám – 6 ’:06:’
13. 98 8 Az előállító kódja OpeKod RSpa
14. 106 4 Mező sorszám – 7 ’:07:’
15. 110 12 A fájl neve EdiFilNev_L RSpa
16. 122 4 Mező sorszám – 8 ’:08:’
17. 126 1 Megbízás típusa
If Viber = ’I’ Then ’4’ – VIBER Else ’1’ - Átutalás
18. 127 229 Szóköz Space
- 355
Rekord vége CR/LF nincs !!!
Tétel: 355 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Tételkód ’02’
2. 3 3 Tranzakció kód ’001’
3. 6 2 Tranzakció al-kód ’00’
4. 8 12 Megbízó bankszámlaszám PPeeTor.BanKod LSpa!
5. 20 8 Rögzítés dátuma ErtDatX Pl: 20010827
6. 28 7 Sorszám Nulla 0000000
7. 35 2 Kötegszám Nulla 00
8. 37 12 Kedvezményezett bankkód PSzaAla.BanKod LSpa!
9. 49 18 Átutalandó összeg 100 * PszaKieTerDev 18I
Pl: 000000000765432112 : 7.654.321,12
10. 67 3 ISO kód ’HUF’
11. 70 1 Tizedes jegyek száma ’2’
12. 71 8 Értéknap ErtDatX Pl: 20010827
13. 79 2 Megbízó ország kódja ’HU’
14. 81 3 Jogcím kód ’000’
15. 84 8 Az 1. jóváhagyó kódja OpeKod RSpa
16. 92 2 Tartalék terület Space
17. 94 2 Hibakód ’00’
18. 96 8 A 2. jóváhagyó kódja OpeKod RSpa
19. 104 1 Tartalék terület Space
20. 105 6 Ügyfél hivatkozás ’1213’ RSpa
21. 111 16 Megbízó számlaszáma PPeeTor.BanFol{+PPeeTor.BanAls}
22. 127 16 Megbízó neve AAzoAda.CegNevH RSpa
23. 143 16 Megbízó címe AAzoAda.CegHel RSpa
24. 159 4 Jogcím ’000 ’
25. 163 16 Kedvezményezett számla PSzaAla.BanFol+PSzaAla.BanAls
26. 179 16 Kedvezményezett neve AParTor.ParNev RSpa
A partner névből az [&] jelet [-] jelre, az [_] jelet pedig [ ] jelre cseréljük.
27. 195 16 Kedvezményezett címe AiraTor.IraNev + ’ ’ + AParTor:parCim RSpa
28. 211 8 Értéknap ErtDatX Pl: 20010827
29. 219 96 Közlemény SzovegX RSpa
If Csoportos = ’I’
Begin
If PSzaAtu.DtFlag = ’I’ Then SzovegX := ’Spot:’+DevArf
SzovegX := SzovegX + AParTor(PSzaAla.CimPar).Ugyfazo + CsopSza(PSzaAl[i].SzaSza
End
Else
Begin
If PSzaAtu.DtFlag = ’I’ Then SzovegX := ’Spot:’+DevArf
SzovegX := SzovegX +AParTor(PSzaAla.CimPar).Ugyfazo + ’ ’ +PSzaAla.SzaSza ’ ’
+ PSzaAla.SzAlId+ ’ ’ + PSzaAla.BanMeg
End
30. 315 39 Tartalékterület Space
31. 354 2 Megbízó ország kódja ’HU’
- 355
Rekord vége CR/LF nincs !!!
Láb: 0 char
Fájl név: SA.IngPostAzo.NapSorX Pl: ’ULTMORT_.009
Fej: 80
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 8 Feladó azonosító SA.IngPostAzo (’ULTMORT_’)
2. 9 1 Jelleg ’E’
3. 10 3 Éven belüli nap sorszáma NapSorX Nulla
4. 13 2 Átadás sorszáma ’01’ Nulla
5. 15 1 Feladó nyomtatása ’1’
6. 16 2 Bizonylat típusa ’81’
7. 18 1 Feladó jegyzék ’1’
8. 19 6 Tételszám (i) Elő_0
9. 25 16 Átutalandó összeg Sum(PSzaKie.TerDev) 16I Elő_0
10. 41 12 Utalványdíj Sum(IngPosUtDijO) 12I Elő_0
11. 53 16 Átutalandó össz. + Utalványdíj Sum(PSzaKie.TerDev) + Sum(IngPosUtDijO) 16I Elő_0
12. 69 12 Üres ’000000000000’ Nulla
13. 81 2 Rekord vége CR/LF
- 82
Tétel: 200 char Lásd: Postutalvány – Creditanstalt (E)
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 24 Címzett számlaszám PSzaAla.BanKod+BanFol+BanAls RSpa
2. 25 48 Címzett neve PSzaAla.CimPar -> AParTor.ParNev RSpa
3. 73 24 Címzett helység PSzaAla.CimPar -> AParTor.IraSza ->
AIraTor.IraNev RSpa
4. 97 24 Címzett cím PSzaAla.CimPar -> AParTor.ParCim RSpa
5. 121 4 Címzett irányítószám PSzaAla.CimPar -> AParTor.IraSza RSpa
6. 125 9 Átutalás összege PSzaKie.TerDev 9I Elő_0
Pl: 007654321 : 7.654.321
7. 134 6 Utalványdíj IngPosUtDijO Elő_0
8. 140 30 Közlemény PSzaAla.Szasza+’/’+ PSzaAla.SzAlId
+’átutalása’ RSpa
9. 170 1 Üres ’0’ Nulla
10. 171 6 Üres ’000000’ Nulla
11. 177 4 Üres ’0000’ Nulla
12. 181 8 Üres ’00000000’ Nulla
13. 189 12 Üres Nulla Nulla
14. 201 2 Rekord vége CR/LF
- 202
Láb: 0 char
IngTo7[0,1]:=0;IngTo7[0,2]:=321;
IngTo7[1,1]:=10000;IngTo7[1,2]:=135;
IngTo7[2,1]:=20000;IngTo7[2,2]:=180;
IngTo7[3,1]:=50000;IngTo7[3,2]:=245;
IngTo7[4,1]:=100000;IngTo7[4,2]:=345;
SzlaO:=ReTo7[Lb,5]-ReTo7[Lb,10];
IngAkTeX:=0;
For j1:=1 To IngHaMx Do
Begin
If SzlaO<=IngTo7[j1,1] Then
Begin
IngAkTeX:=j1;
j1:=IngHaMx;
End Else;
End;
If IngAkTeX=0 Then
Begin
IngPosPluSz:=Round(Osz((SzlaO-IngTo7[IngHaMx,1]),IngTo7[IngHaMx,1])+0.5);
If IngPosPluSz<0 Then IngPosPluSz:=0 Else;
IngPosUtDijE:=IngTo7[IngHaMx,2]+IngPosPluSz*IngTo7[0,2];
End
Else
Begin
IngPosPluSz:=0;
IngPosUtDijE:=IngTo7[IngAkTeX,2];
End;
IngPosUtDijO:=IngPosUtDijO+IngPosUtDijE;
Fej: 174
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
Csoportos: Nem Tékisz Már nem használt formátum
Fej: Nincs
Tétel: 355 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Status Space
2. 3 4 Trcode ’0100’
3. 7 15 Retail számlaszám PPeeTor.BanFol
+Copy(PPeeTor.BanAls,1,2) RSpa
4. 22 8 Rögzítés dátuma ErtDatX ÉÉ.HH.NN Pl: 01.08.27
5. 30 10 Saját azonosító Space
6. 40 1 Label ’G’
7. 41 12 Kedvezményezett bankkód PSzaAla.BanKod RSpa
8. 53 32 Kedvezményezett neve AParTor.ParNev(PSzaAla.CimPar) RSpa
9. 85 16 Kedvezményezett számlaszám PSzaAla.BanFol+
If PSzaAla.BanAls=’0’ Or PSzaAla. BanAls=’00000000’ Then Copy(Space,1,8)
Else PSzaAla.BanAls
10. 101 20 Átutalandó összeg Round(PSzaKieTerDev,0) 20I LSpa
Pl: _____________7654321 : 7.654.321,12
11. 121 96 Közlendő 3 * 32 RSpa
AParTor(PSzaAla.CimPar).Ugyfazo + ’ ’ + PSzaAla.SzaSza ’-atutalasa’
12. 217 8 Értéknap ErtDatX ÉÉ.HH.NN Pl: 01.08.27
13. 225 1 Sürgősségi kód Space
14. 226 4 Jogcím kód Space
15. 230 3 MNB jogcímkód ’000’
16. 233 2 Az ügyfél ISO országkódja ’HU’
17. 235 2 A kedvezményezett ISO kódja ’HU’
18 237 2 Rekord vége CR/LF
- 238
Láb: Nincs
Csoportos: Igen (2016.04.06)
Típus jelölés: V – Változó hossz F – Fix hossz
A – Alfanumerikus N – Numerikus
K – Kötelező O – Opcionális
Fájl név: BMGyyyymmddhhmmss.csv
Fájl tíus: .csv (Comma Separated Value)
Sor vége: <CR><LF>
Fájl vége: <EOF>
Mező elválasztó: ; (Semi-colon)
Tizedes elválasztó: . (Dot)
Maximális tételszám: 100
Adattáblák:
pee PPeeTor
pba PBanAzo
pbt PBanTor
psz PSzaAla
kie PSzaKie
par AParTor
apb AParBan
Fej: Mező nevek felsorolása (1.rekord)
Tétel: Változó hossz
Mező MaxHossz Típus Megnevezés Tartalom
ord account 34 V A K Megbízó számlaszáma pee.OrsKod+IbanEll+DevSzla
Pl: NL81BKMG0261204963
ord bank code 11 V A K Megbízó SWIFT kód pee.SwiftKod
Pl: BKMGNL2AXXX
value date 8 F N K Értéknap ErtDatX
Pl: 20121130
currency 3 F A K Devizanem psz.DevKod
Pl: HUF
amount 15 V N K Összeg kie.TerDev
2 decimális Pl: 123456.12
ben account 34 V A K Kedvezményezett számlaszám
BanSzlaOrsIban(psz.cimpar,psz.bankod,psz.banfol,psz.banals)+
psz.bankod+psz.banfol+psz.banals
Pl: HU12123456781234567812345678
ben details 1 35 V A K Kedvezményezett név1 substring(par.ParNev(CimPar))
Pl: E-System Információ Kereskedő, Szol [!]
ben details 3 35 V A O Kedvezményezett címe 1
PSzaAla.CimPar -> AParTor.IraSza -> AIraTor.IraNev
Pl: 4400 Nyíregyháza
ben details 4 35 V A O Kedvezményezett címe 2 AParTor.ParCim(CimPar)
Pl: Liliom u. 55.
ben bank code 35 V A O Kedvezményezett bank SWIFT BanSwift(psz.BanKod)
Pl: SW345678901
If Csoportos = ’I’
Begin
SzovegX := AParTor.UgyfAzo
SzovegX := SzovegX + CsopSza(PSzaAl[i].SzaSza
details of payment 1 35 V A O Kedvezményezett közlendő 1 copy(SzovegX,1,35)
details of payment 2 35 V A O Kedvezményezett közlendő 2 copy(SzovegX,36,35)
details of payment 3 35 V A O Kedvezményezett közlendő 3 atu.KedKoz3
details of payment 4 35 V A O Kedvezményezett közlendő 4 atu.KedKoz4
charges 3 F A K Banki költségek megadása atu.BanKtg
instruction code 4 V A O Átutalási információ atu.AtuInfo
reference 16 V A O Ügyfél megjegyzés üres
End
Else
Begin
details of payment 1 35 V A O Kedvezményezett közlendő 1 psz.SzaSza
Pl: 123456/2013
details of payment 2 35 V A O Kedvezményezett közlendő 2 psz.BanMeg
Nem csoportos átutalás esetén a második kedvezményezettel közlendő fájl mezőbe a számla alap tábla banki megjegyzés mezője kerül.
details of payment 3 35 V A O Kedvezményezett közlendő 3 atu.KedKoz3
details of payment 4 35 V A O Kedvezményezett közlendő 3 atu.KedKoz4
charges 3 F A K Banki költségek megadása ’SHA’
instruction code 4 V A O Átutalási információ ’SDVA’
reference 16 V A O Ügyfél megjegyzés psz.SzAlID
End
Láb: Nincs
Csoportos: Igen (2016.04.06)
Típus jelölés: V – Változó hossz F – Fix hossz
A – Alfanumerikus N – Numerikus
K – Kötelező O – Opcionális
Fájl név: BMGyyyymmddhhmmss.csv
Fájl tíus: .csv (Comma Separated Value)
Sor vége: <CR><LF>
Fájl vége: <EOF>
Mező elválasztó: ; (Semi-colon)
Tizedes elválasztó: . (Dot)
Maximális tételszám: 100
Adattáblák:
pee PPeeTor
pba PBanAzo
psz PSzaAla
atu PSzaAtu
kie PSzaKie
Fej: Mező nevek felsorolása (1.rekord)
Tétel: Változó hossz
Maximális
Mező Hossz Típus Megnevezés Tartalom
ord account 34 V A K Megbízó számlaszáma pee.OrsKod+IbanEll+DevSzla
Pl: NL81BKMG0261204963
ord bank code 11 V A K Megbízó SWIFT kód pee.SwiftKod
Pl: BKMGNL2AXXX
value date 8 F N K Értéknap ErtDatX
Pl: 20121130
currency 3 F A K Devizanem psz.DevKod
Pl: EUR
amount 15 V N K Összeg kie.TerDev
2 decimális Pl: 123456.12
ben account 34 V A K Kedvezményezett számlaszám atu.KedSzla
Pl: HU12123456781234567812345678
ben details 1 35 V A K Kedvezményezett neve 1 atu.KedNev
Pl: Winchester Made Company
ben details 2 35 V A O Kedvezményezett neve 2 atu.KedNev2
Pl: (Lehet üres!)
ben details 3 35 V A O Kedvezményezett címe 1 atu.KedCim1
Pl: KY 40391 Winchester, USA
ben details 4 35 V A O Kedvezményezett címe 2 atu.KedCim2
Pl: Penny Lane 1.
ben bank code 35 V A O Kedvezményezett bank SWIFT atu.KedBicKod
Pl: SW345678901.
If Csoportos = ’I’
Begin
Csoportos átutalás esetén a számla átutalási tábla (PSzaAtu) mezői a számla azonosító (SzAlId) és a kedvezményezettel közlendő 1. (KedKoz1) mezők kivételével csoportosításra (group by) kerülnek. Az egyforma számlák kiegyenlítései egyetlen átutalási tételbe kerülnek. Ebbe az egy átutalási tételbe gyűjti össze a program a csoportosított számlák szállítói számlaszámait (PSzaAla.SzaSza). Az összegyűjtött számlaszámok az első két kedvezményezettel közlendő mezőbe kerülnek. Így csak a harmadik és a negyedik kedvezményezettel közlendő input mező kerül belel az átutalási fájlba. Az első kedvezményezettel közlendő mezőbe a szállítói számlaszámot kell input adatként beírni, mivel nem csoportos átutálás esetén ez a mező kerül a banki fájlba. Az ügyfél megjegyzés (reference) a számla egyedi azonosítót tartalmazza, ezért ez a mező csoportos átutalás során üresen marad.
SzovegX := AParTor.UgyfAzo
SzovegX := SzovegX + CsopSza(PSzaAl[i].SzaSza
details of payment 1 35 V A O Kedvezményezett közlendő 1 copy(SzovegX,1,35)
details of payment 2 35 V A O Kedvezményezett közlendő 2 copy(SzovegX,36,35)
details of payment 3 35 V A O Kedvezményezett közlendő 3 atu.KedKoz3
details of payment 4 35 V A O Kedvezményezett közlendő 4 atu.KedKoz4
charges 3 F A K Banki költségek megadása atu.BanKtg
instruction code 4 V A O Átutalási információ atu.AtuInfo
reference 16 V A O Ügyfél megjegyzés üres
End
Else
Begin
details of payment 1 35 V A O Kedvezményezett közlendő 1 atu.KedKoz1
Pl: VKS-12/12345 invoice payment
details of payment 2 35 V A O Kedvezményezett közlendő 2 atu.KedKoz2
details of payment 3 35 V A O Kedvezményezett közlendő 3 atu.KedKoz3
details of payment 4 35 V A O Kedvezményezett közlendő 4 atu.KedKoz4
charges 3 F A K Banki költségek megadása atu.BanKtg
instruction code 4 V A O Átutalási információ atu.AtuInfo
reference 16 V A O Ügyfél megjegyzés psz.SzAlID
End
Láb: Nincs
Csoportos: Igen Tékisz
Fej: 360 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’1’
2. 2 35 CIB H név ’CIB Bank Zrt.’ RSpa
3. 37 46 Üres Space Space
4. 83 8 Beküldés napja Now Pl:20080317
5. 91 264 Üres Space Space
6. 355 6 Rekord jelző ’000000’
7. 361 2 Rekord vége CR/LF
– 362
Tétel: 3* 360 char
1. rekord
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’D’
2. 2 1 Üres Space Space
3. 3 13 Terhelendő számlaszám Substring(PPeeTor.BanKod,4,4)
+ Substring(PPeeTor.BanFol,1,6)
+ Substring(PPeeTor.BanAls,1,3)
4. 16 1 Üres Space Space
5. 17 1 Kedvezményezett szla forma PSzaAtu.KedSzlaForm
6. 18 30 Ügyintéző PSzaAtu.Ugyintezo RSpa
7. 48 34 Kedvezményezett számlaszám PSzaAtu.KedSzla RSpa
8. 82 30 Kedvezményezett név 1 PSzaAtu.KedNev RSpa
9. 112 30 Kedvezményezett név 2 PSzaAtu.KedNev2 RSpa
10. 142 30 Kedvezményezett cím 1 PSzaAtu.KedCim1 RSpa
11. 172 30 Kedvezményezett cím 2 PSzaAtu.KedCim2 RSpa
12. 202 11 Kedvezményezett bank SWIFT PSzaAtu.KedBicKod RSpa
13. 213 15 Kedv bank azonosító PSzaAtu.KedBanAzo RSpa
14. 228 30 Kedvezményezett bank név 1 PSzaAtu.KedBanNev RSpa
15. 258 30 Kedvezményezett bank név 2 PSzaAtu.KedBanNev2 RSpa
16. 288 30 Kedvezményezett bank cím 1 PSzaAtu.KedBanCim1 RSpa
17. 318 30 Kedvezményezett bank cím 2 PSzaAtu.KedBanCim2 RSpa
18. 348 1 Átutalás módja PSzaAtu.AtutMod
19. 349 1 Külföldi bankjutalékot fizeti PSzaAtu.KulBanJut
20. 350 1 Magyar bankjutalékot fizeti PSzaAtu.MagyBanJut
21. 351 1 Üres Space Space
22. 352 1 Fizetési visszaigazolást kér-e PSzaAtu.FizViszKer
23. 353 1 Átutalás típusa PSzaAtu.AtutTip
24. 354 1 Üres Space Space
25. 355 6 Rekord sorszám ’000040’ Pl: 4. tétel 1. rekord
26. 361 2 CR/LF
– 362
2. rekord
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’E’
2. 2 1 Üres Space Space
3. 3 11 Levelező bank SWIFT kód PSzaAtu.LevBicKod RSpa
4. 14 30 Levelező bank azonosító PSzaAtu.LevBanAzo RSpa
5. 44 30 Levelező bank név PSzaAtu.LevBanNev RSpa
6. 74 30 Levelező bank cím 1 PSzaAtu.LevBanCim1 RSpa
7. 104 15 Átutalás összege 100 * PSzaKie.TerDev 15I2D Elő_0
Pl: 000000765432198 : 7.654.321,98
Sum_Osz:= Sum_Osz+ PSzaKie.TerDev
8. 119 3 Az összeg devizaneme PPeeTor.DevKod
9. 122 1 Tizedes jegyek száma (7.) 2
10. 123 15 Megbízás eredeti összege 000000000000000 Nullák
11. 138 3 Eredeti devizanem PSzaAla.DevKod
12. 141 1 Tizedes jegyek száma (10.) 2
13. 142 5 Üres Space Space
14. 147 3 Jutalékszámla Space Space
15. 150 2 Kedv. bank országkód PSzaAtu.OrsKod
16. 152 2 Megbízó országkód PPeeTor.OrsKod
17. 154 3 Statisztikai jogcím kód PSzaAtu.Jogcim
18. 157 2 Kedvezményezett országkód PSzaAtu.OrsKod
19. 159 4 Üres Space Space
20. 163 105 Kedvezményezett közlendő RSpa
If Csoportos = ’I’
AParTor(PSzaAla.CimPar).Ugyfazo + CsopSzaDev(PSzaAl[i].SzaSza +
PSzaAtu.KedKoz3 + PSzaAtu.KedKoz3
Else AParTor(PSzaAla.CimPar).Ugyfazo + PSzaAla.SzaSza +
PSzaAtu.KedKoz1 + PSzaAtu.KedKoz3 + PSzaAtu.KedKoz3
21. 198 35 Kedvezményezett közlendő 2 PSzaAtu.KedKoz2 RSpa
22. 233 35 Kedvezményezett közlendő 3 PSzaAtu.KedKoz3 RSpa
23. 238 30 Bankkal közlendő 1 PSzaAtu.BanKoz1 RSpa
24. 298 28 Bankkal közlendő 2 PSzaAtu.BanKoz2 RSpa
25. 326 29 Üres Space Space
26. 355 6 Rekord sorszám ’000041’ Pl: 4. tétel 2. rekord
27. 361 2 CR/LF
– 362
3. rekord
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’F’
2. 2 1 Üres Space Space
3. 3 1 SWIFT másolatot kér PSzaAtu.SwiftMas
4. 4 1 Értesítés módja PSzaAtu.ErtMod
5. 5 30 Fax szám PSzaAtu.FaxSzam
6. 35 10 Akkreditív azonosító PSzaAtu.AkkredAzon
7. 45 20 Garancia azonosító PSzaAtu.GaranAzon
8. 65 290 Üres Space Space
9. 355 6 Rekord sorszám ’000042’ Pl: 4. tétel 3. rekord
10. 361 2 CR/LF
– 362
Láb: 360 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 1 Jelző ’9’
2. 2 4 Összes tételszám TetSzaX * 3 Pl: 0012, 4 tétel Elő_0
3. 6 18 Átutalás mindösszesen 100 * Sum_Osz 18I Elő_0
4. 24 331 Üres Space Space
5. 355 6 Rekord jelző ’999999’
6. 361 2 Rekord vége CR/LF
– 802
Csoportos: Igen ULT
Típus jelölés: V – Változó hossz F – Fix hossz
A – Alfanumerikus N – Numerikus
K – Kötelező O – Opcionális
Az egyes mezősorszámok előtti elválasztó jel <CR><LF>
Fej: Változó hossz
Mező Hossz Típus Megnevezés Tartalom
:01: 16 V K A Referencia (Értéknap) ErtDatX Pl: :01:20080317
:02: 17 V K N Ellenőrző összeg Sum_Osz Pl: :02:1234,98
:03: 5 V K N Átutalási megbízások száma TetSzaX Pl: :03:3 (3 tétel)
:04: 11 V K A A megbízó bank bank kódja PPeeTor.BanKod
:05: 35 V K A A megbízó neve AAzoAda.CegNvR
35 V K A A megbízó címe – utca <CR><LF>AAzoAda.CegCim
35 V K A A megbízó címe – helység <CR><LF>AAzoAda.CegHel
35 V K A A megbízó irányítószáma <CR><LF>’HU-’+AAzoAda.CegIra
:06: 8 V O N A megbízó azonosítója SA.ING_CegAzo
:07: 12 V O A Adatfájl neve EdiFilNev_Y Pl: :07:20080317.INT
Tétel: Változó hossz
Mező Hossz Típus Megnevezés Tartalom
:20: 16 V K A Referencia (Értéknap) ErtDatX Pl: :20:20080317
:32A: A megbízás részletei Pl: :32A:080317EUR123,90
6 F K N Tervezett végrehajtási határidő ErtDatX Pl: 080317 !
3 F K A Deviza kód PPeeTor.DevKod
15 V K N Összeg PSzaKie.TerDev
:50: 35 V K A A megbízó neve AAzoAda.CegNvR
35 V K A A megbízó címe – utca <CR><LF>AAzoAda.CegCim
35 V K A A megbízó címe – helység <CR><LF>AAzoAda.CegHel
35 V K A A megbízó irányítószáma <CR><LF>’HU-’+AAzoAda.CegIra
:52A: A megbízó bankszámlaszáma Pl: :52A:/D/1234567800000000
3 F K A Előjel /D/
34 V K A A megbízó számlaszáma PPeeTor.BanFol+BanAls
11 V K A A megbízó bankkódja <CR><LF>PPeeTor.BanKod
:57x: A kedvezményezett bankkapcsolata Két verzió: A vagy D
If PSzaAtu.KedBicKod Is Not Null Then
:57A: 11 V K A A kedvezményezett bank SWIFT kódja
PSzaAtu.KedBicKod
Else
:57D: A kedvezményezett bank neve és címe
35 V K A Bank név PSzaAtu.KedBanNev
35 V K A Bank cím – 1 <CR><LF> If Not Null PSzaAtu.KedBanCim1
35 V K A Bank cím – 1 <CR><LF> If Not Null PSzaAtu.KedBanCim2
35 V K A Bank cím – 1 <CR><LF> If Not Null PSzaAtu.KedBanCim3
:59: 34 V K A A kedvezményezett számla PSzaAtu.KedSzla
35 V K A Kedvezményezett neve <CR><LF> If Not Null PSzaAtu.KedNev
35 V K A Kedvezményezett cím – 1 <CR><LF> If Not Null PSzaAtu.KedCim1
35 V K A Kedvezményezett cím – 1 <CR><LF> If Not Null PSzaAtu.KedCim2
35 V K A Kedvezményezett cím – 1 <CR><LF> If Not Null PSzaAtu.KedCim3
:70: 35 V K A Közlemény – 1 <CR><LF> Substring(KozlemenyX,1,35)
35 V K A Közlemény – 2 <CR><LF> Substring(KozlemenyX,36,35)
35 V K A Közlemény – 3 <CR><LF> Substring(KozlemenyX,71,35)
35 V K A Közlemény – 4 <CR><LF> Substring(KozlemenyX,106,35)
KozlemenyX (string(140)):=
If Csoportos = ’I’
If PSzaAtu.DtFlag = ’I’ Then ’Spot’+DevArf +
AParTor(PSzaAla.CimPar).Ugyfazo + CsopSzaDev(PSzaAla[i].SzaSza +
PSzaAtu.KedKoz3 + PSzaAtu.KedKoz3 + PSzaAtu.KedKoz4
Else If PSzaAtu.DtFlag = ’I’ Then ’Spot’+DevArf + AParTor(PSzaAla.CimPar).Ugyfazo +
PSzaAtu.KedKoz1 + PSzaAtu.KedKoz3 + PSzaAtu.KedKoz3 + PSzaAtu.KedKoz4
:71A: 3 F K A Költségszabályozás PSzaAtu.BanKtg
:72: 35 V O A Jogcím PSzaAtu.Jogcim
Csoportos Igen ULT
Fej: 800 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Rekord típus ’34’
2. 3 24 Feladó bankszámlaszám PPeeTor.BanKod+BanFol+BanAls
3. 27 3 Devizanem PPeeTor.DevKod
4. 30 1 Megbízás típusa ’1’
5. 31 1 Nem használt ’0’
6. 32 8 Létrehozás dátuma Now Pl:20080317
7. 40 761 Üres Space Space
8. 801 2 Rekord vége CR/LF
– 802
Tétel: 800 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Rekord típus ’54’
2. 3 6 Rekordszám Inc(i) Pl: 000001 Elő_0
Sum_I:=Sum_I+i
3. 9 11 Kedvezményezett bank BIC PSzaAtu.KedBicKod RSpa
4. 20 33 Kedv bank azonosító PSzaAtu.KedBanAzo RSpa
5. 53 35 Kedvezményezett bank név PSzaAtu.KedBanNev RSpa
6. 88 35 Kedvezményezett bank cím 1 PSzaAtu.KedBanCim1 RSpa
7. 123 35 Kedvezményezett bank cím 2 PSzaAtu.KedBanCim2 RSpa
8. 158 35 Kedvezményezett bank cím 3 PSzaAtu.KedBanCim3 RSpa
9. 193 11 Levelező bank BIC kód PSzaAtu.LevBicKod RSpa
10. 204 33 Levelező bank azonosító PSzaAtu.LevBanAzo RSpa
11. 237 35 Levelező bank név PSzaAtu.LevBanNev RSpa
12. 272 35 Levelező bank cím 1 PSzaAtu.LevBanCim1 RSpa
13. 307 35 Levelező bank cím 2 PSzaAtu.LevBanCim2 RSpa
14. 342 35 Levelező bank cím 3 PSzaAtu.LevBanCim3 RSpa
15. 377 34 Kedvezményezett számlaszám PSzaAtu.KedSzla RSpa
16. 411 35 Kedvezményezett név PSzaAtu.KedNev RSpa
17. 446 35 Kedvezményezett cím 1 PSzaAtu.KedCim1 RSpa
18. 481 35 Kedvezményezett cím 2 PSzaAtu.KedCim2 RSpa
19. 516 35 Kedvezményezett cím 3 PSzaAtu.KedCim3 RSpa
KozlemenyX (string(140)):=
If Csoportos = ’I’
AParTor(PSzaAla.CimPar).Ugyfazo + CsopSzaDev(PSzaAl[i].SzaSza +
PSzaAtu.PSzaAtu.KedKoz3 + PSzaAtu.KedKoz3 + PSzaAtu.KedKoz4
Else AParTor(PSzaAla.CimPar).Ugyfazo +
PSzaAtu.KedKoz1 + PSzaAtu.KedKoz3 + PSzaAtu.KedKoz3 + PSzaAtu.KedKoz4
20. 551 140 Kedvezményezett közlendő KozlemenyX RSpa
21. 691 3 Banki költségek megadása PSzaAtu.BanKtg RSpa
22. 694 3 Teljesítés devizaneme PSzaAla.DevKod
23. 697 15 Átutalás összege 100 * PSzaKie.TerDev 15I2D Elő_0
Pl: 000000765432198 : 7.654.321,98
Sum_Osz:= Sum_Osz+ PSzaKie.TerDev
24. 712 3 Az összeg devizaneme PSzaAla.DevKod
25. 715 8 Értéknap ErtDatX Pl:20010827
26. 723 1 Sürgősségi átutalás flag PSzaAtu.Surgos
27. 724 4 Végrehajtási kód ’0000’
28. 728 1 HOLD flag PSzaAtu.Hold
29. 729 1 CHQB flag PSzaAtu.Chqb
30. 730 1 Deal Ticket flag PSzaAtu.DtFlag
31. 731 8 Deal Ticket dátuma PSzaAtu.DtDatum Pl:20010827
32. 739 6 Deal Ticket sorszáma PSzaAtu.DtSor Elő_0
33. 745 2 Kedvezményezett országkód PSzaAtu.KedOrsKod
37. 747 3 Statisztikai jogcím kód PSzaAtu.Jogcim
38. 750 3 Tranzakció típusa ’000’
39. 753 3 Tranzakció hordozó ’000’
40. 756 45 Fenntartott Space Space
41. 801 2 Rekord vége CR/LF
– 802
Láb: 800 char
Sor Kezdő Hossz Megnevezés Tartalom Kitölt
1. 1 2 Rekord típus ’74’
2. 3 6 Rekordszám ellenőrzőszám Sum_I Pl: 000001 Elő_0
3. 9 688 Üres Space Space
4. 697 15 Átutalás mindösszesen 100 * Sum_Osz 15I Elő_0
5. 712 89 Üres Space Space
6. 801 2 Rekord vége CR/LF
– 802