Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-11-25, 18:19x



Odpowiedz w temacie  [ Posty: 8 ] 
FiK 2011.1c - Odczytanie danych firm 
Autor Wiadomość

Rejestracja: 2013-02-15, 12:06
Posty: 28
Pomógł: 1
Post 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 :)


2013-03-18, 09:48
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 4000
Pomógł: 448
Post 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?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2013-03-18, 13:15
Wyświetl profil

Rejestracja: 2013-02-15, 12:06
Posty: 28
Pomógł: 1
Post 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


2013-03-18, 14:01
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 4000
Pomógł: 448
Post 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ć?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2013-03-18, 15:58
Wyświetl profil

Rejestracja: 2013-02-15, 12:06
Posty: 28
Pomógł: 1
Post 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ę :)


2013-03-18, 16:38
Wyświetl profil
Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post Re: FiK 2011.1c - Odczytanie danych firm
to moze prosciej przeleciec bat-em caly dysk szukajac plikow firma.fk i czytajac z nich :)


2013-03-18, 16:40
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 4000
Pomógł: 448
Post 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

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2013-03-18, 17:15
Wyświetl profil

Rejestracja: 2013-02-15, 12:06
Posty: 28
Pomógł: 1
Post Re: FiK 2011.1c - Odczytanie danych firm
to mi wystarczy, dzięki :)


2013-04-07, 16:49
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 8 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Aktualizacja około 200 firm w FiK

w Techniczne

JanSz

2

2444

2017-02-08, 15:50

Maciek Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Integracja symfonia faktura 2011.1 z FiK 2011.1a

w Techniczne

agnes.t

4

4494

2012-02-02, 17:53

wrob Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. backup FiK + reinstalacja FiK i problem z bazą danych

w Techniczne

Nazirek

1

3236

2012-11-12, 03:32

wrob Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. blkokada danych do firm kod 427

w Programy Księgowe

mawo67

3

2510

2013-10-21, 20:31

rafal Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 10 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant