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

FiK 2011.1c - Odczytanie danych firm
https://forum.mix-soft.pl/viewtopic.php?f=15&t=4814		 Strona 1 z 1
Autor:  matrix-1990 [ 2013-03-18, 09:48 ]
Tytuł:  FiK 2011.1c - Odczytanie danych firm
Hej,
mam pytanie odnośnie sposobu odczytania kodu firm wszystkich firm jakie są w systemie na lokalu. Udało mi się odczytać dane konkretnej firmy w taki sposób

Kod:
String strDelimiter = "\\"
String strSysId = "23" //kod firmy
String intSysId = "2013"
String strKatalogId = "REPOSCD"

Int conf = Open Katalog() + strDelimiter + strSysId + strDelimiter + "05config.dat" For base "config5"

SetKey (conf, "nazwa")
SetKeySeg (conf, "nazwa", "23")

if 0==GetRec(conf, EQ) then
   
   Message GetField(conf, "nip")
Else
   Message "Nie udalo sie"

endif

Close conf



Wiem też, że jest struktura InfoFirma, w której można odczytać dane firmy na której jestem zalogowany, ale ja potrzebuję odczytać np. nipy wszystkich firm w systemie, macie jakiś pomysł? Teoretycznie mógłbym sprawdzić nazwy katalogów ale to jest trochę nieelegancko :)
Autor:  rafal [ 2013-03-18, 13:15 ]
Tytuł:  Re: FiK 2011.1c - Odczytanie danych firm
Jak udało Ci się dla jednej firmy to jaki problem z pozostałymi jak znasz katalogi danych?
Autor:  matrix-1990 [ 2013-03-18, 14:01 ]
Tytuł:  Re: FiK 2011.1c - Odczytanie danych firm
Myślę, że tak, bo:
1. Nie zawsze nazwa katalogu jest taka sama jak kod firmy (kod firmy może być dłuższy, lub zawierać polskie znaki, a wtedy nazwa katalogu jest skracana i nie ma polskich znaków), co powoduje to, że nie znamy z poziomu symfonii kodu firmy
2. Z tego co się zorientowałem to w symfonii można pobrać nazwy plików z danego katalogu, a nie folderów
Autor:  rafal [ 2013-03-18, 15:58 ]
Tytuł:  Re: FiK 2011.1c - Odczytanie danych firm
Przepraszam ale nie rozumiem co chcesz zrobić.

Masz kilka baz danych?
Jesteś biurem rachunkowym?
Na czym polega projekt, który chcesz wykonać?
Autor:  matrix-1990 [ 2013-03-18, 16:38 ]
Tytuł:  Re: FiK 2011.1c - Odczytanie danych firm
W moim systemie symfonii mam utworzonych kilka firm, każda ma swój nip i inne dane, a chciałbym będąc zalogowany na jednej z tych firm wydobyć informację na temat (np. numery nip) wszystkich firm jakie mam utworzone w tym systemie.
Projekt polega na tym, że mając kilka firm chciałbym zrobić z poziomu jednej firmy (nie przelogowywując się na inną) obsługiwać faktury, a do tego potrzebuję identyfikatory wszystkich firm w systemie (chciałbym to zrobić elastycznie dlatego nie chcę na sztywno wpisywać tylko wydobyć jakoś) oraz po identyfikatorze dojść do nipu każdej z firm, czyli krótko mówiąc interesuje mnie w wyniku raportu jakiś plik tekstowy w którym będzie id_firmy1: nip_firmy1, id_firmy2: nip_firmy2, ....

jak coś jeszcze nie jest jasnego to pisz śmiało, wyjaśnię :)
Autor:  wrob [ 2013-03-18, 16:40 ]
Tytuł:  Re: FiK 2011.1c - Odczytanie danych firm
to moze prosciej przeleciec bat-em caly dysk szukajac plikow firma.fk i czytajac z nich :)
Autor:  rafal [ 2013-03-18, 17:15 ]
Tytuł:  Re: FiK 2011.1c - Odczytanie danych firm
A nie możesz oprzeć się na liście dołączonych firm?

Kod:
// Dla wersji poniżej 2013

string sKat

int iLiczbaFirmINI = 1
      while  (sKat = GetIni("Katalogi firm",(using "Firma%d", iLiczbaFirmINI), KatalogWin() + "Amfk.ini")) != ""
   
         conf = Open sKat + "05config.dat" For base "config5"
         [...]

      iLiczbaFirmINI += 1
      wend


Kod:
// Dla wersji 2013 i wyżej

dispatch dF = "WScript.Shell"
string sKat

int iLiczbaFirmINI = 1
      while  (sKat = GetIni("Katalogi firm",(using "Firma%d", iLiczbaFirmINI), dF.ExpandEnvironmentStrings("%AppData%") + "\\Sage\\Config\\Amfk.ini")) != ""
   
         conf = Open sKat + "05config.dat" For base "config5"
         [...]

      iLiczbaFirmINI += 1
      wend
Autor:  matrix-1990 [ 2013-04-07, 16:49 ]
Tytuł:  Re: FiK 2011.1c - Odczytanie danych firm
to mi wystarczy, dzięki :)
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/