FK 2015.d Import specjalny Konta
Witam, mam taki problem, że mam wygenerowany plik .txt z źle przypisanymi kontami, i nie mam możliwości ich zmienić w programie który mi generuje plik.
Czy jest jakakolwiek możliwość aby dopisać kod, który będzie mi zliczał zapisy i w zależności od tego czy to będzie zapis 1,2,3,4,.... wstawiał mi na "sztywno" takie konta jakie potrzebuję
Na takim przykładzie
Kod:
FK nazwa =213/14
Datawpl =2014-07-29
opis FK =
Zapis{
strona =WN
kwota =jakaskwota
konto =402-4
IdDlaRozliczen =2
opis =bezznaczenia
NumerDok =213/14
Pozycja =0
ZapisRownolegly =0
}
Zapis{
strona =MA
kwota =jakaskwota
konto =201-K
IdDlaRozliczen =1
opis =bezznaczenia
NumerDok =213/14
Pozycja =0
ZapisRownolegly =0
}
Zapis{
strona =WN
kwota =jakaskwota
konto =225-1
IdDlaRozliczen =3
opis =bezznaczenia
NumerDok =213/14
Pozycja =0
ZapisRownolegly =0
}
Zapis{
strona =WN
kwota =jakaskwota
konto =550
IdDlaRozliczen =4
opis =bezznaczenia
NumerDok =213/14
Pozycja =1
ZapisRownolegly =33
}
Zapis{
strona =MA
kwota =jakaskwota
konto =490
IdDlaRozliczen =5
opis =bezznaczenia
NumerDok =213/14
Pozycja =1
ZapisRownolegly =33
}
Fragment kodu odpowiedzialny za interpretacje
Kod:
case "zapis"
MakeSec("zapis")
{
$strona = Rex([strona], "MA", 1) //WN=0 (""), MA=1
$kwota = [kwota]
$Konto = [Konto]
$NumerDok = [NumerDok]
$IdDlaRozliczen = [IdDlaRozliczen]
if ( Equal(@@opisy, 1) )
{
$Opis = [opis]
$typopisu = 1 //opis bezpośrednio
}
$ZapisRownolegly = [ZapisRownolegly]
$pozycja = [Pozycja]
IF ( NOT(equal([waluta], "")) )
{
$wkwota = [wkwota]
$waluta = [waluta]
$kurs = [kurs]
$typkursu = 3
}
IF ( NOT(equal([rozksiegowanie], "")))
{
MakeSec("transakcja")
{
$ustawowe = 1 //odsetki ustawowe
$zaliczka = 0 //Zaliczka
$idDlaRozliczen = [idDlaRozliczen]
$termin = [termin] //Termin;
}
}
}
(1)
