Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-29, 09:29x



Odpowiedz w temacie  [ Posty: 16 ]  Przejdź na stronę 1, 2  Następna
Drukarka fiskalna i dwa komputery 
Autor Wiadomość

Rejestracja: 2013-08-23, 13:24
Posty: 2
Post Drukarka fiskalna i dwa komputery
Jak w temacie. Jak używać jednej drukarki fiskalnej z dwóch komputerów na których jest zainstalowany symfonia handel.
Oba są w tej samej sieci lokalnej.


2013-08-23, 13:27
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post Re: Drukarka fiskalna i dwa komputery
poszukaj na forum - juz o tym bylo :)


2013-08-23, 14:07
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Drukarka fiskalna i dwa komputery
W raporcie Raporty -> Procedury -> Procedury dokumentu sprzedaży

ZNAJDŹ
Kod:
int Sub OnAfterInsert(long lId)
   OnAfterInsert = SprawdzOkresNumeracji(lId, BAS_DK)
EndSub


ZAMIEŃ NA
Kod:
int Sub OnAfterInsert(long lId)
   
   dispatch fso = "Scripting.FileSystemObject"

   int iPlik

   baseDK dk
   dk.GetRecById( lId )
      
   if dk.GetField("typ_dk") == "PAR" then
      iPlik = open (using "%s%8.8l.fsk",KatalogFirmy(),lId) for output
      print #iPlik;"-"
      close #iPlik
   endif

   OnAfterInsert = SprawdzOkresNumeracji(lId, BAS_DK)
EndSub


W raporcie Raporty -> Procedury -> Procedura OnTimer

ZNAJDŹ
Kod:
int sub OnTimer()
   OnTimer = 0
endsub


ZAMIEŃ NA
Kod:
int sub OnTimer()

   string KomputerFiskalizujacy = "ASUS-PC" // nazwa komputera do, którego podłączona jest drukarka fiskalna
   dispatch nt = "WScript.Network"
   string sPlik, sMaska = KatalogFirmy() + "*.fsk"
   dispatch fso = "Scripting.FileSystemObject"

   if  nt.ComputerName == KomputerFiskalizujacy then
             sPlik = find file ( sMaska )
               while sPlik
                FiskalizujDokument( Val ( fso.GetBaseName(sPlik) )) 
                fso.DeleteFile( sPlik )
               sPlik = find next file
               wend
   endif

   OnTimer = 0
endsub


W ustawieniach dokumentu PAR wyłącz automatyczną fiskalizację

Załącznik:
hmwfisk01.jpg
hmwfisk01.jpg [ 94.66 KiB | Przeglądany 14661 razy ]


W parametrach pracy programu ustaw wykonywanie procedury OnTimer na Tak

Załącznik:
hmwfisk02.jpg
hmwfisk02.jpg [ 102.66 KiB | Przeglądany 14661 razy ]


Na stanowisku do, którego podłączona jest drukarka musi być uruchomiony program Handel i zalogowany jakiś użytkownik.

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2013-08-26, 22:22
Wyświetl profil

Rejestracja: 2013-08-23, 13:24
Posty: 2
Post Re: Drukarka fiskalna i dwa komputery
działa. dziękuję za pomoc.


2013-08-28, 10:22
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
Umieszczam działający kod ponieważ poprzednim tylko można problemów narobić, lepiej nie korzystać ponieważ kod fiskalizuje paragony niewydane, czyli jeśli nie mamy towaru na stanie a paragon zostanie wystawiony to skrypt też go zafiskalizuje

Kod wklejamy do Procedury dokumentu magazynowego
Kod:
int Sub OnBeforeInsert(long lId)
   OnBeforeInsert = ZmienKatalogRodzaj(lId)
EndSub

int Sub OnAfterInsert(long lId)
   dispatch fso = "Scripting.FileSystemObject"

   int iPlik

   baseDK dk
   baseMG mg
   dk.GetRecById( lId )



   long lIe = mg.GetField("idhandl")

   mg.GetRecById(lId)
   dk.GetRecById(lIe)
   

    if dk.GetField("typ_dk") == "PAR"  then
   if dk.GetField("id") == mg.GetField("idhandl") then
     iPlik = open (using "%s%8.8l.fsk",KatalogFirmy(),lIe) for output
      print #iPlik;"-"
      close #iPlik
   endif
   endif
   

OnAfterInsert = SprawdzOkresNumeracji(lId, BAS_MG)
EndSub


2020-02-22, 09:49
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
Czy jest ktoś w stanie napisać raport do Symfonii 50C


2022-12-28, 13:51
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Drukarka fiskalna i dwa komputery
Zenek N pisze:
Czy jest ktoś w stanie napisać raport do Symfonii 50C


Możesz użyć tego samego.
Nie wiem tylko po co tam jest wplątany dokument magazynowy. Chyba nie ma takiej potrzeby?

Zamiast Katalog() użyj jakiejś ścieżki sieciowej.

Powinno działać

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2022-12-28, 14:22
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
Cześć Rafał nie działa to rozwiązanie a ścieżka katalog() jest prawidłowa chyba że pliki .fsk zapisywane są w innym miejscu.


2022-12-29, 12:29
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Drukarka fiskalna i dwa komputery
Zenek N pisze:
Cześć Rafał nie działa to rozwiązanie a ścieżka katalog() jest prawidłowa chyba że pliki .fsk zapisywane są w innym miejscu.


Wywala się?
Jest jakiś komunikat?
Plik nie tworzy się w Katalog() ? Lepiej w ERP podać bezpośrednio ścieżkę gdzie mają się tworzyć pliki *.fsk

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2022-12-30, 14:28
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
Kod:
PRINT na ekran nie został zaimplementowany


2023-01-19, 11:17
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
Działa, problem jest z prawami dostępu do folderu u mnie działa w ten sposób że utworzyłem c:\par

Kod:
int sub OnTimer()   
   string KomputerFiskalizujacy = "DESKTOP-F07E1S4" // nazwa komputera do, którego podłączona jest drukarka fiskalna
   dispatch nt = "WScript.Network"
   string cat = "C:\\par\\"
   string sPlik, sMaska = cat + "*.fsk"
   dispatch fso = "Scripting.FileSystemObject"
   
   if  nt.ComputerName == KomputerFiskalizujacy then
             sPlik = find file ( sMaska )
               while sPlik
                FiskalizujDokument( Val ( fso.GetBaseName(sPlik) ))
                fso.DeleteFile( sPlik )
               sPlik = find next file
               wend
   endif

   OnTimer = 0
endsub


Kod:
int Sub OnAfterInsert(long lId)
   
   dispatch fso = "Scripting.FileSystemObject"

   int iPlik
   string cat = "C:\\par\\"
   baseDK dk
   dk.GetRecById( lId )

     
   if dk.GetField("typ_dk") == "PAR" then
      iPlik = open (using "%s%8.8l.fsk",cat,lId) for output
      print #iPlik;"-"
      close #iPlik
   endif

   OnAfterInsert = 0
EndSub


2023-01-19, 15:19
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
Miałeś racje Rafał musi być podana ścieżka sieciowa docelowa ip lub alias
Kod:
string cat = "\\\\127.0.1.1\\par\\"


Rafał czy jesteś w stanie dopisać raport aby po metodzie onAfterInsert(long lid) z Procedur płatności wyciągnąć id dokumentu dkid ?
Potrzebuje to ponieważ chcę aby raport fiskalizował dopiero po wystawieniu KP


2023-01-20, 09:42
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Drukarka fiskalna i dwa komputery
Ta wiadomość była pomocna.(1)
Nie mam jak przetestować w tym momencie ale to powinno zwrócić dobre dane

Kod:
  SELECT PN1.kod, PN2.kod FROM HM.ROPN
  LEFT JOIN HM.PN PN1 ON PN1.id = ROPN.id1
  LEFT JOIN HM.PN PN2 ON PN2.id = ROPN.id2
  WHERE id1 = lId z OnAfterInsert
  UNION
  SELECT PN1.kod, PN2.kod FROM HM.ROPN
  LEFT JOIN HM.PN PN1 ON PN1.id = ROPN.id1
  LEFT JOIN HM.PN PN2 ON PN2.id = ROPN.id2
  WHERE id2 = lId z OnAfterInsert


Pamiętaj że rozliczenie może dotyczyć kilku dokumentów i wywołane z innego miejsca może zwrócić wiele rekordów.

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2023-01-20, 10:25
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
jako ciekawostka dla HANDLU 50C 2023 nie działają metody i raporty dla procedur płatności podczas wystawiania dokumentu sprzedaży jeśli wystawianie KP jest wybrane w tryb automatyczny dla trybu półautomatycznego i ręcznego wszystkie metody z procedur płatności już działają podczas wystawiania dokumentu sprzedaży. Pewnie kolejny bug programistów symfonii


Obrazek


2023-01-20, 13:28
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Re: Drukarka fiskalna i dwa komputery
Od wczoraj zrobił się problem, Symfonia mieli onTimer i po chwili wyłącza się program, dysk jest pusty jak usunę raport z OnTimer to Symfonia działa normalnie ale aby dostać się do OnTimer muszę odłączyć najpierw router wtedy symfonia działa nawet jak w OnTimer jest raport - warunek router musi być wyłączony


2023-05-19, 10:33
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 16 ]  Przejdź na stronę 1, 2  Następna
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Dwa stanowiska jedna drukarka fiskalna

w Programy Handlowe

lofix

2

4806

2011-04-19, 12:59

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Drukarka fiskalna po IP

w Techniczne

bkaspd

9

18426

2023-01-20, 12:58

Zenek N Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Drukarka fiskalna

w Programy Handlowe

MarB

7

7669

2011-01-10, 10:26

krzysiek Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Handel i drukarka fiskalna

w Techniczne

tatanka

5

7762

2011-03-16, 19:32

jabis Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 12 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