Witam,
Po aktualizacji FK do najnowszej wersji mam problem z wczytywaniem dokumentów
a dokładniej wyciągu bankowego nie zaczytuje się kontrahent samo tylko konto

#format "SDF"

Section("", "dokument")
{
rex([1],"{?}{?}")
if(equal(@rex1,"K"))
{
def( "KontoKasy", "100-1" )
$klucz = "RK"
$obslugujJak= "RK"
}
else
{
def( "KontoKasy", "130-1" )
$klucz = "RB"
$obslugujJak= "RB"
}

$nazwa = "X"
$tresc = "Raport kasowy"
rex([5], "{????}{??}{??}")

@ldt=cat(@rex1,"-",@rex2,"-","31")
$datadok = Date(@ldt)
$dataokr = Date(@ldt)
$dataoper = Date(@ldt)
$kontoKasy = def( "KontoKasy" )

$dSkrot=$obslugujJak
Exit()
@poz = 0

Def("break","")
while(! Def("break") ){
Def("issomething","")
section( "", "", "" )
{
Def("issomething","x")
MakeSec( "zapis")
{
$strona = 0
$kwota = Money([43])

//bez prefiksu 'FS ' lub 'PA '
rex([37],"{???}{*}$")
$numerDok = @rex2

rex([5], "{????}{??}{??}")
$opis = cat( [7], "-", [37], " ", Date(cat(@rex1,"-",@rex2,"-",@rex3)) )


$typOpisu = 1
$pozycja=@@poz
$rozbicie=0
rex([5], "{????}{??}{??}")
$dataKPKW=Date(cat(@rex1,"-",@rex2,"-",@rex3))

rex([1],"{?}{?}")
if(equal(@rex2,"W"))
{
rex([37],"{???}")
switch (@rex1)
{
case "PA "
$konto = cat("201-2-1-",[57])
break

case "KPA"
$konto = cat("201-2-1-",[57])
break

case "FS "
$konto = cat("201-2-1-",[57])
break

case "KFS"
$konto = cat("201-2-1-",[57])
break

case else
$konto = cat("202-2-1-",[57])
}

$kontoRap=0

MakeSec("rozliczenie")
{
rex([37],"{???}{*}$")
$dSymbol = @rex2
$kwota = [43]
$ustawowe = 1
$zaliczka = 0
}
}
else
{
$konto = def( "KontoKasy" )
$kontoRap=1
}
}

MakeSec( "zapis")
{
$strona = 1
$kwota = Money([43])

//bez prefixu
rex([37],"{???}{*}$")
$numerDok = @rex2

rex([5], "{????}{??}{??}")
$opis = cat( [7], "-", [37], " ", Date(cat(@rex1,"-",@rex2,"-",@rex3)) )

$typOpisu = 1
$pozycja=@@poz
$rozbicie=1

rex([5], "{????}{??}{??}")
$dataKPKW=Date(cat(@rex1,"-",@rex2,"-",@rex3))

rex([1],"{?}{?}")
if(equal(@rex2,"W"))
{
$konto = def( "KontoKasy" )
$kontoRap = 1
}
else
{
rex([37],"{???}")
switch (@rex1)
{
case "PA "
$konto = cat("201-2-1-",[57])
break

case "KPA"
$konto = cat("201-2-1-",[57])
break

case "FS "
$konto = cat("201-2-1-",[57])
break

case "KFS"
$konto = cat("201-2-1-",[57])
break

case else
$konto = cat("202-2-1-",[57])
}

$kontoRap = 0

MakeSec("rozliczenie")
{
rex([37],"{???}{*}$")
$dSymbol = @rex2
$kwota = [43]
$ustawowe = 1
$zaliczka = 0
}
}

}

@@poz=sum2(@@poz,1)

}
if ( ! Def("issomething","") )
{
Def("break","abc")
}
}
}

Skontaktuj się z Ekspertem w celu umówienia sposobu dostarczenia szablonu i pliku do importu do diagnozy.

Wersja 2016 zjadła profil importu? Możliwe, że nie odtworzyłeś go dokładnie. W podanym przez Ciebie pliku nie ma wczytywania kontrahentów. Musiałoby być coś w stylu albo . Ewentualnie .

pierw wczytuje dokumenty a potem wyciąg i w tym pierwszym pliku jest takie coś tak MakeSec("Kontrahent")
może coś sage zmieniła że to przystało działać tylko co ?

#format "SDF"

Section("", "dokument")
{
rex([1],"{?}{?}")
if(equal(@rex1,"K"))
{
def( "KontoKasy", "100-1" )
$klucz = "RK"
$obslugujJak= "RK"
}
else
{
def( "KontoKasy", "130-1" )
$klucz = "RB"
$obslugujJak= "RB"
}

$nazwa = "X"
$tresc = "Raport kasowy"
rex([5], "{????}{??}{??}")

@ldt=cat(@rex1,"-",@rex2,"-","31")
$datadok = Date(@ldt)
$dataokr = Date(@ldt)
$dataoper = Date(@ldt)
$kontoKasy = def( "KontoKasy" )

$dSkrot=$obslugujJak
Exit()
@poz = 0

Def("break","")
while(! Def("break") ){
Def("issomething","")
section( "", "", "" )
{
Def("issomething","x")
MakeSec( "zapis")
{
$strona = 0
$kwota = Money([43])

//bez prefiksu 'FS ' lub 'PA '
rex([37],"{???}{*}$")
$numerDok = @rex2

rex([5], "{????}{??}{??}")
$opis = cat( [7], "-", [37], " ", Date(cat(@rex1,"-",@rex2,"-",@rex3)) )


$typOpisu = 1
$pozycja=@@poz
$rozbicie=0
rex([5], "{????}{??}{??}")
$dataKPKW=Date(cat(@rex1,"-",@rex2,"-",@rex3))

rex([1],"{?}{?}")
if(equal(@rex2,"W"))
{
rex([37],"{???}")
switch (@rex1)
{
case "PA "
$konto = cat("201-2-1-K",[57])
break

case "KPA"
$konto = cat("201-2-1-K",[57])
break

case "FS "
$konto = cat("201-2-1-K",[57])
break

case "KFS"
$konto = cat("201-2-1-K",[57])
break

case else
$konto = cat("202-2-1-K",[57])
}

$kontoRap=0

MakeSec("rozliczenie")
{
rex([37],"{???}{*}$")
$dSymbol = @rex2
$kwota = [43]
$ustawowe = 1
$zaliczka = 0
}
}
else
{
$konto = def( "KontoKasy" )
$kontoRap=1
}
}

MakeSec( "zapis")
{
$strona = 1
$kwota = Money([43])

//bez prefixu
rex([37],"{???}{*}$")
$numerDok = @rex2

rex([5], "{????}{??}{??}")
$opis = cat( [7], "-", [37], " ", Date(cat(@rex1,"-",@rex2,"-",@rex3)) )

$typOpisu = 1
$pozycja=@@poz
$rozbicie=1

rex([5], "{????}{??}{??}")
$dataKPKW=Date(cat(@rex1,"-",@rex2,"-",@rex3))

rex([1],"{?}{?}")
if(equal(@rex2,"W"))
{
$konto = def( "KontoKasy" )
$kontoRap = 1
}
else
{
rex([37],"{???}")
switch (@rex1)
{
case "PA "
$konto = cat("201-2-1-K",[57])
break

case "KPA"
$konto = cat("201-2-1-K",[57])
break

case "FS "
$konto = cat("201-2-1-K",[57])
break

case "KFS"
$konto = cat("201-2-1-K",[57])
break

case else
$konto = cat("202-2-1-K",[57])
}

$kontoRap = 0

MakeSec("rozliczenie")
{
rex([37],"{???}{*}$")
$dSymbol = @rex2
$kwota = [43]
$ustawowe = 1
$zaliczka = 0
}
}

}

@@poz=sum2(@@poz,1)

}
if ( ! Def("issomething","") )
{
Def("break","abc")
}
}
}