€SOB BusinessBanking 24 - MCZPS - MultiCash - zahrani‡n¡ p©¡kazy a v˜pisy
;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
; €SOB - zahrani‡n¡ p©¡kazy a v˜pisy transakc¡ - BB 24 - Multicash
;
; Pou‘ije se pro v˜pis ve form tu MT940 roz¨¡©en˜ (tj. se strukturovan˜m polem
; :86:, kde jsou promˆnn‚ oddˆleny znakem OddelovacProm)
;
; Pou‘ije se pro p©¡kaz z Financ¡ ve form tu BB MultiCash, jm‚no souboru *.CFA.
;
;ÚÄÄÄÄÄÄÄÄ¿
;³ EXPORT ³
;ÀÄÄÄÄÄÄÄÄÙ
[Exp_Parametry]                 ;Popis parametr– p©i exportu
PrevodNaVelkaPismena = Ano;
;  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
;  <Ano> - Konverze na velk  p¡smena <ZAPNUTO>.
;  <Ne>  - Konverze na velk  p¡smena <VYPNUTO>.
PovoleneZnaky_1 = S;
;  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
;  PovoleneZnaky_? = .. Tabulky povolen˜ch znak–, kde <?> je v rozsahu <1..6>.
;  ~~~~~~~~~~~~~~~
;  <X> nahrazuje mno‘inu znak– : ' '..#255
;  <C> nahrazuje mno‘inu znak– : '0123456789'
;  <M> nahrazuje mno‘inu znak– : 'abcdefghijklmnopqrtsuvwxyz'
;  <V> nahrazuje mno‘inu znak– : 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
;  <S> nahrazuje mno‘inu znak– SWIFT: ' .?-+():/0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
;  <D> nahrazuje mno‘inu znak– mal˜ch a velk˜ch p¡smen s ‡eskou diakritikou.
;
!KonecSekce
;
[Exp_Hlavicka]                  ;Popis £vodn¡ hlavi‡ky v souboru p©i exportu z financ¡
!KonecRadku                     ;CRLF
':01:'
!KonecRadku                     ;CRLF
':02:'
@KSS=N,17
!KonecRadku                     ;CRLF
':03:'
@POC=N,5
!KonecRadku                     ;CRLF
':04:'
@SWIFT=N,11
!KonecRadku                     ;CRLF
':05:'
@NUZ=Z,35,                      ;Ozna‡en¡ p©¡kazce 1
!KonecRadku                     ;CRLF
@NPK1=Z,35,                     ;Ozna‡en¡ p©¡kazce 2
!KonecRadku                     ;CRLF
@NPK2=Z,35,                     ;Ozna‡en¡ p©¡kazce 3
!KonecRadku                     ;CRLF
@NPK3=Z,35,                     ;Ozna‡en¡ p©¡kazce 4
!KonecRadku                     ;CRLF
':07:'
'SOUBOR.CFA'                    ;Jm‚no souboru
!KonecRadku                     ;CRLF
!KonecSekce
;
[Exp_HlavickaSkupiny]           ;Popis hlavi‡ky skupiny p©i exportu z financ¡
'{1:F010300'
;@SWIFT=Z,8,
'XXXXAXXX'
'009000001}{2:I100'
;@KODPK=Z,11,                    ;Smˆrov‚ ‡¡slo banky p©¡kazce
@XSWIFT=Z,11,
;BARCGB22AXXX
'N1}{4:'
!KonecSekce
;
[Exp_Polozka]                   ;Popis polo‘ky p©i exportu z financ¡
!KonecRadku                     ;CRLF
':20:'
!KonecRadku                     ;CRLF
':32A:'
@DSPL=D,6,,'rrrrmmdd'           ;Datum p©¡kazu
@KODMENY=Z,3,                   ;ISO kod mˆny
@POLKC=N,4,                     ;€ stka v mˆnˆ v‡. 2 desetinn  m¡sta
!KonecRadku                     ;CRLF
':50:'
@NUZ=Z,35,                      ;Ozna‡en¡ p©¡kazce 1
!KonecRadku                     ;CRLF
@NPK1=Z,35,                     ;Ozna‡en¡ p©¡kazce 2
!KonecRadku                     ;CRLF
@NPK2=Z,35,                     ;Ozna‡en¡ p©¡kazce 3
!KonecRadku                     ;CRLF
@NPK3=Z,35,                     ;Ozna‡en¡ p©¡kazce 4
!KonecRadku                     ;CRLF
':52D:'
@PUCPK=N,6,                     ;P©ed‡¡sl¡ £‡tu p©¡kazce
@CUCPK=N,10,                    ;€¡slo £‡tu p©¡kazce
!KonecRadku                     ;CRLF
@PUPOPLAT=N,6,                  ;P©ed‡¡sl¡ £‡tu pro poplatky
@CUPOPLAT=N,10,                 ;€¡slo £‡tu pro poplatky
!KonecRadku                     ;CRLF
@KODMENY=Z,3,                   ;ISO kod mˆny p©¡kazce
' '
@KMPOPLAT=Z,3,                  ;ISO kod mˆny poplatk–
!KonecRadku                     ;CRLF
'000'                           ;Statistick˜ kod
' '
@ZEMEPRIJ=Z,2,                  ;ISO kod zemˆ p©¡jemce
' '
@ZEMEBAPRIJ=Z,2,                ;ISO kod banky p©¡jemce
!KonecRadku                     ;CRLF
':57A:'
@XSWIFT=N,11,                   ;SWIFT adresa banky p©¡jemce
!KonecRadku                     ;CRLF
':57D:'
@JMENOBAPRIJ=Z,1,               ;Jm‚no banky p©¡jemce
!KonecRadku                     ;CRLF
@ULICEBAPRIJ=Z,1,               ;Ulice banky p©¡jemce
!KonecRadku                     ;CRLF
@MESTOBAPRIJ=Z,1,               ;Mˆsto banky p©¡jemce
!KonecRadku                     ;CRLF
@ZEMEBAPRIJ=Z,1,                ;Zemˆ banky p©¡jemce
!KonecRadku                     ;CRLF
':59:'
'/'
@UCPK=Z,1,                      ;€¡slo £‡tu p©¡jemce
!KonecRadku                     ;CRLF
@NUCPJ=Z,35,                    ;Ozna‡en¡ p©¡jemce 1
!KonecRadku                     ;CRLF
@NPJ1=Z,35,                     ;Ozna‡en¡ p©¡jemce 2
!KonecRadku                     ;CRLF
@NPJ2=Z,35,                     ;Ozna‡en¡ p©¡jemce 3
!KonecRadku                     ;CRLF
@NPJ3=Z,35,                     ;Ozna‡en¡ p©¡jemce 4
!KonecRadku                     ;CRLF
':70:'
@AVTEXT=Z,35,                   ;Av¡zo - ‡¡slo faktury
!KonecRadku                     ;CRLF
@AVFAKT=Z,35,                   ;Av¡zo - text faktury
!KonecRadku                     ;CRLF
@AVUCET=Z,35,                   ;Av¡zo - £‡et (SUAU) z p©¡kazu
!KonecRadku                     ;CRLF
':71A:'
@POPLATKY=Z,3,                  ;—hrada v˜loh
!KonecRadku                     ;CRLF
':72:'
'00 00 00 00'                   ;Pouk z n¡
!KonecRadku                     ;CRLF
' '=F,35,                       ;Kontaktn¡ osoba
!KonecRadku                     ;CRLF
@DUVODPLATBY=Z,3,               ;D–vod platby
!KonecRadku                     ;CRLF
'-}$'
!KonecSekce

;ÚÄÄÄÄÄÄÄÄ¿
;³ IMPORT ³
;ÀÄÄÄÄÄÄÄÄÙ
[Imp_Parametry]                 ;Popis parametr– p©i importu
OddelovacProm = '?'             ;Oddˆlova¨ promˆnn˜ch u variabil.form tu dat
;OddelovacText = '"'             ;Uvozova‡e text–
PocatekVariabFormatu = 0        ;Pozice od kter‚ za‡¡n  variabiln¡ form t
FormatUctu = Edicni             ;Edicni = nek¢dovan˜, Vnitrni = k¢dovan˜
StruktZaznamu = SHlavickami     ;
ImpSoubor =  Prejmenovat        ;
;ImpSoubor = Ponechat            ;
KontrolaNavaznosti = Ano        ;V importovan‚ vˆtˆ je uveden po‡ te‡n¡ z–statek
BFormular = MT940               ;Form t v˜pisu MT940
!KonecSekce

[Imp_KodUctovani]               ;Transforma‡n¡ tabulka £‡tov n¡ - 1 znak
Debet = D
Kredit = C
!KonecSekce

[Imp_KodOperace]                ;Transforma‡n¡ tabulka operac¡ - 2 znaky
Inkaso = 00
Uhrada = 01
!KonecSekce

[Imp_TypHlavicka.1]
':25:'=P,4,1,,,,                ;identifik tor vˆty
@KODPK=P,4,5,,,,''              ;kod banky p©¡kazce-pokud nevyplnˆno, bere se z ‡¡seln¡ku
;                                penˆ‘n¡ch £stav–
@CUPK=H,10,2,,,'/',             ;‡¡slo banky p©¡kazce
!KonecSekce

[Imp_TypHlavicka.2]
':28C:'=P,5,1,,,,               ;identifik tor vˆty
@PORCIS=P,5,6,,,,               ;po©adov‚ ‡¡slo v˜pisu
!KonecSekce

[Imp_TypHlavicka.3]
':60F:'=P,5,1,,,,               ;star˜ stav £‡tu
@ZNSTZUST=P,1,6,,,,             ;kod £‡tov n¡ C-kredit, D-debet
@DVYST=P,6,7,'rrmmdd',,,        ;datum £‡tov n¡
@KODMENYT=P,3,13,,,,            ;ISO kod mˆny
@STZUST=P,15,16,,,,             ;star˜ z–statek
!KonecSekce

[Imp_TypHlavicka.3a]
':60M:'=P,5,1,,,,               ;pr–bˆ‘n˜ stav £‡tu
@ZNSTZUST=P,1,6,,,,             ;kod £‡tov n¡ C-kredit, D-debet
@DVYST=P,6,7,'rrmmdd',,,        ;datum £‡tov n¡
@KODMENYT=P,3,13,,,,            ;ISO kod mˆny
@STZUST=P,15,16,,,,             ;pr–bˆ‘n˜ z–statek
!KonecSekce

[Imp_TypPolozka.1]
':61:'=P,4,1,,,,
@DSPL=P,6,5,'rrmmdd',,,         ;datum splatnosti
@VALUTA=P,4,11,'mmdd',,,        ;valuta - datum p©ips n¡ na £‡et
@KODUCTO=P,1,15,,,,             ;kod £‡tov n¡ C-kredit, D-debet,
;druh mˆny=P,1,17,,             ;ISO kod mˆny
@ORIGCASTKA=P,15,18,,,,         ;‡ stka v mˆnˆ
;textov˜ kl¡‡=P,4,33,,          ;textov˜ kl¡‡
;reference klienta=P,16,37,,    ;reference klienta - NONREF
;reference banky=P,16,53,,      ;reference banky
@POZNAMKA=P,34,69,,             ;dodate‡n‚ informace
!KonecSekce

[Imp_TypPolozka.2]
':86:'=P,4,1,,A,,               ;koncov  vˆta obratu
@KURZ=D,27,3,,,'?00',           ;kurz
@CUPJ=H,17,3,,,'?20',           ;‡¡slo proti£‡tu
@KODPJ=H,4,21,,,'?20',          ;kod proti£‡tu
@DUDAJ=D,20,3,,,'?27',          ;dopl¤kov˜ £daj
;@VSPK=D,10,7,,,'?21',           ;V - symbol
;@SSPK=D,10,7,,,'?22',           ;S - symbol
;@KSPK=D,4,7,,,'?23',            ;K - symbol
@DUDAJ=D,20,3,,,'?24',          ;dopl¤kov˜ £daj
@XDUDAJ=D,20,4,,,'?32',         ;text platby, pokud je DUDAJ pr zdn˜
!KonecSekce

[Konec]                         ;Ozna‡en¡ konce formul ©e

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ Zmˆnov  dokumentace ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
01.11.2010
  - vytvo©eno - €ernohorsk˜


