| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
 Re: Drukarka fiskalna i dwa komputery poszukaj na forum - juz o tym bylo :)
|
| 2013-08-23, 14:07 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4002 Pomógł: 448
|
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 [ 94.66 KiB | Przeglądany 15567 razy ]
W parametrach pracy programu ustaw wykonywanie procedury OnTimer na Tak Załącznik:
hmwfisk02.jpg [ 102.66 KiB | Przeglądany 15567 razy ]
Na stanowisku do, którego podłączona jest drukarka musi być uruchomiony program Handel i zalogowany jakiś użytkownik.
|
| 2013-08-26, 22:22 |
|
|
|
romen11
Rejestracja: 2013-08-23, 13:24
Posty: 2
|
Re: Drukarka fiskalna i dwa komputery działa. dziękuję za pomoc.
|
| 2013-08-28, 10:22 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
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 magazynowegoKod: 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 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
Re: Drukarka fiskalna i dwa komputery Czy jest ktoś w stanie napisać raport do Symfonii 50C
|
| 2022-12-28, 13:51 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4002 Pomógł: 448
|
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ć
|
| 2022-12-28, 14:22 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
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 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4002 Pomógł: 448
|
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
|
| 2022-12-30, 14:28 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
Re: Drukarka fiskalna i dwa komputery Kod: PRINT na ekran nie został zaimplementowany
|
| 2023-01-19, 11:17 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
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:\parKod: 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 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
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 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4002 Pomógł: 448
|
Re: Drukarka fiskalna i dwa komputery  (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.
|
| 2023-01-20, 10:25 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
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 
|
| 2023-01-20, 13:28 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 448 Pomógł: 8
|
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 |
|
|
