mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
Import z pliku problem https://forum.mix-soft.pl/viewtopic.php?f=4&t=7066 |
Strona 1 z 1 |
Autor: | dragonx21 [ 2016-02-05, 13:18 ] |
Tytuł: | Import z pliku problem |
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") } } } |
Autor: | rafal [ 2016-02-05, 14:29 ] |
Tytuł: | Re: Import z pliku problem |
Skontaktuj się z Ekspertem w celu umówienia sposobu dostarczenia szablonu i pliku do importu do diagnozy. |
Autor: | Jarek75 [ 2016-02-08, 13:34 ] |
Tytuł: | Re: Import z pliku problem |
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 Kod: Section("", "Kontrahent") Kod: MakeSec("Kontrahent") Kod: include |
Autor: | dragonx21 [ 2016-02-08, 14:25 ] |
Tytuł: | Re: Import z pliku problem |
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") } } } |
Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |