mojaSymfonia FORUM :: Wyświetl temat

Kod:

select * from "XT"
where typ = 69
order by kod

Kod:

select * from "DE"

Kod:

select * from "DP"

Kod:

int de = Open KatalogGrupy()+"61de.dat" For base "DE"
BaseError( de,4 )
int xt = Open KatalogGrupy()+"61xt.dat" For base "XT"
BaseError( xt,4 )
int dp = Open KatalogGrupy()+"61dp.dat" For base "DP" 
BaseError( dp,4 )

Kod:

SetKey(de,"id")
SetKeySeg(de,"id",64532)
GetRec(de, EQ)

Kod:

print GetField(de,"kwota")

Kod:

SetKeySeg(de,"id",64532)

Kod:

SetKey(dp,"id_de")
SetKeySeg(dp,"id_de",id_dokumentu)
GetRec(dp,EQ)
  while GetField(dp,"id_op")!=16246 
    GetRec(dp,NX)                              //przeskocz do pola 48
  wend
message using "%f",getfield(dp,"kwota") //zapis z pola 48

Autor:	Pedro [ 2014-05-12, 13:45 ]
Tytuł:	Mała Księgowość
Mam takie pytanie w jakiej bazie i w jakim polu jest zapisana "kwota podatku podlegająca wpłacie do urzędu skarbowego".(zakładka deklaracje, pozycja 48 w dokumencie)? Ewentualnie z jakich pół się ją liczy. Albo żeby nie trzeba było zawracać głowy to czy da się jakimś programem odczytywać bazy? Słyszałem coś o DDF i ODBC, ale nawet nie wiem na czym to polega.

Autor:	rafal [ 2014-05-12, 14:15 ]
Tytuł:	Re: Mała Księgowość
Lista wszystkich wzorów dostępnych deklaracji podatkowych Kod: select * from "XT" where typ = 69 order by kod Lista wypełnionych deklaracji Kod: select * from "DE" Lista wypełnionych pól deklaracji Kod: select * from "DP" Pole którego szukasz Załącznik: mkdekl01.jpg [ 64.7 KiB \| Przeglądany 7764 razy ] Informacje o DDF i ODBC znajdziesz na forum. W ogóle to z jakiego poziomu chcesz to odczytać (z AmBasic, Excel inna aplikacja) i co z tą wartością odczytaną chcesz dalej zrobić?

Autor:	Pedro [ 2014-05-12, 15:37 ]
Tytuł:	Re: Mała Księgowość
Cytuj: W ogóle to z jakiego poziomu chcesz to odczytać (z AmBasic, Excel inna aplikacja) i co z tą wartością odczytaną chcesz dalej zrobić? Chodzi o ogólny dostęp do danych, coś na zasadzie baza.getfield("pole"), albo getfield(baza,"pole") tyle że właśnie nie wiem jaka to baza i jakie pole ani nawet po jakim kluczu szukać.

Autor:	rafal [ 2014-05-12, 15:48 ]
Tytuł:	Re: Mała Księgowość
Odpowiedz na moje pytanie. Chodzi Ci o AmBasic czy coś innego? Piszesz jakiś raport? Napisz co robisz, po co robisz itd...

Autor:	Pedro [ 2014-05-12, 19:50 ]
Tytuł:	Re: Mała Księgowość
No AmBasic, o co innego mogę pytać w tym dziale. C++ ? ;)

mojaSymfonia FORUM https://forum.mix-soft.pl/

Mała Księgowość https://forum.mix-soft.pl/viewtopic.php?f=15&t=5788	Strona 1 z 2

Autor:	Pedro [ 2014-05-12, 19:54 ]
Tytuł:	Re: Mała Księgowość
Ratowałoby mnie nawet wywołanie z poziomu raportu procedury eksportu do pliku, ale prościej chyba odczytać samo pole.

Autor:	rafal [ 2014-05-12, 21:42 ]
Tytuł:	Re: Mała Księgowość
Pokazałem Ci w, których tabelach przechowywane są potrzebne Ci informacje. Zobacz na forum i w innych raportach Małej Księgowości jak dostać się do ich zawartości.

Autor:	Pedro [ 2014-05-13, 08:18 ]
Tytuł:	Re: Mała Księgowość
rafal pisze: Pokazałem Ci w, których tabelach przechowywane są potrzebne Ci informacje. Zobacz na forum i w innych raportach Małej Księgowości jak dostać się do ich zawartości. Gdybym znalazł to bym nie pytał

Autor:	rafal [ 2014-05-13, 13:30 ]
Tytuł:	Re: Mała Księgowość
masz rację. Otwarcie baz Kod: int de = Open KatalogGrupy()+"61de.dat" For base "DE" BaseError( de,4 ) int xt = Open KatalogGrupy()+"61xt.dat" For base "XT" BaseError( xt,4 ) int dp = Open KatalogGrupy()+"61dp.dat" For base "DP" BaseError( dp,4 ) Pobranie rekordu z bazy o zadanym ID Kod: SetKey(de,"id") SetKeySeg(de,"id",64532) GetRec(de, EQ) Wypisanie wartości pola pobranego rekordu Kod: print GetField(de,"kwota")

Autor:	Pedro [ 2014-05-13, 14:53 ]
Tytuł:	Re: Mała Księgowość
rafal pisze: Kod: SetKeySeg(de,"id",64532) Czego to jest id ?

Autor:	Pedro [ 2014-05-13, 15:02 ]
Tytuł:	Re: Mała Księgowość
I przy tym w bazie 'de' nie ma pola "kwota". Jest w DP, ale właśnie nie wiem skąd wziąć to id.

Autor:	rafal [ 2014-05-13, 15:25 ]
Tytuł:	Re: Mała Księgowość
id weźmiesz z bazy XT

Autor:	Pedro [ 2014-05-14, 08:18 ]
Tytuł:	Re: Mała Księgowość
rafal pisze: id weźmiesz z bazy XT Przecież z tego co widzę, XT to baza katalogów, niby czemu miałoby to działać? A w każdym razie z tamtych id wyświetla zero.

Autor:	rafal [ 2014-05-14, 08:22 ]
Tytuł:	Re: Mała Księgowość
W bazie XT sa katalogi i duzo innych rzeczy. Rekordy z wartoscia 69 w polu typ to definicje deklaracji.

Strona 1 z 2	Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/

Autor:	Pedro [ 2014-05-14, 09:20 ]
Tytuł:	Re: Mała Księgowość
w końcu ogarnąłem :p int dp = Open KatalogGrupy()+"61dp.dat" For base "dp" Kod: SetKey(dp,"id_de") SetKeySeg(dp,"id_de",id_dokumentu) GetRec(dp,EQ) while GetField(dp,"id_op")!=16246 GetRec(dp,NX) //przeskocz do pola 48 wend message using "%f",getfield(dp,"kwota") //zapis z pola 48