[FiK] Import specjalny - konto kontrahenta
Witam,
Mam import specjalny raportu kasowego taki, jak poniżej. Import specjalny jest robiony z pliku CSV, w którym są informacje o KP, KW i fakturach gotówkowych. Działa to tak, że dla faktur powinno być przypisane konto kontrahenta. Po wykonaniu tego filtru efekty jest taki, że dane sie importują prawidłowo, ale dostaje ostrzeżenie "Brak kontrahenta w danych dokumentu, numer konta nie może być uzupełniony.", a do faktur jest przypsiane konto 202 (bez wyznacznika kontrahenta). Co zrobiłem źle?
Z góry dziękuje, za pomoc.
Kod:
#format "SDF"
#separator_01 "."
#auto_insert ""
#tbl "ŽżĺłĄńלĹęĹŁťŁžżúÓíŻÉĘąŃáŹĆĄ"
#konto_KASY "100"
Section("", "dokument")
{
$obslugujJak="RK"
$klucz = "RK"
$nazwa = cat("RK ",[4])
$tresc = cat("Raport kasowy za okres: ", [4] )
$datawpl = [4]
$datadok = [4]
$dataokr = [4]
$dataOper = [4]
$kontoKasy = Def("Konto_KASY")
Exit()
@kontoWN = ""
@kontoMA = ""
@kwota = ""
@poz = 0
Section( "", "", "REPEAT" )
{
switch( [1] )
{
case "KP"
@kontoWN = Def("Konto_KASY")
@kontoMA = [8]
@kwota = [6]
break
case "F"
@kontoMA = Def("Konto_KASY")
@kontoWN = "202-K"
@kwota = mul2([6],-1)
MakeSec( "Kontrahent")
{
$aktywny = 1
$klucz = [9]
$skrot = [11]
$nazwa = [11]
$miejscowosc = [14]
$nip = [15]
$ulica = [12]
$kod = [13]
$rachunek1 = [10]
$autoinsert = 1
}
break
case "KW"
@kontoMA = Def("Konto_KASY")
@kontoWN = [8]
@kwota = mul2([6],-1)
break
case else
@kontoMA = Def("Konto_KASY")
@kontoWN = "999"
}
MakeSec("Zapis")
{
$strona = 0
$pozycja = @@poz
$kwota = @@kwota
$konto =@@kontoWN
$opis = [5]
$numerDok = cat([1]," ",[2])
}
MakeSec( "zapis")
{
$pozycja = @@poz
$strona = 1
$kwota = @@kwota
$konto =@@kontoMA
$opis = [5]
$numerDok = cat([1]," ",[2])
}
@@poz = SUM0(@@poz, 1)
}
}
