Chciałem wysłać polecenie z jednego stanowiska na drugie aby wykonał funkcję fiskalizujdokument()
| mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
| Klient/Serwer https://forum.mix-soft.pl/viewtopic.php?f=15&t=9421 |
Strona 1 z 1 |
| Autor: | Zenek N [ 2020-02-05, 12:46 ] |
| Tytuł: | Klient/Serwer |
Podpowie ktoś jak napisać klient serwer w ambasic w języku raprotów ? |
|
| Autor: | rafal [ 2020-02-05, 12:57 ] |
| Tytuł: | Re: Klient/Serwer |
:) Kod: print "klient serwer" o co dokładnie chodzi? Jaką funkcjonalność planujesz zorbić. |
|
| Autor: | Zenek N [ 2020-02-06, 10:12 ] |
| Tytuł: | Re: Klient/Serwer |
Chciałem wysłać polecenie z jednego stanowiska na drugie aby wykonał funkcję fiskalizujdokument()
|
|
| Autor: | rafal [ 2020-02-06, 14:34 ] |
| Tytuł: | Re: Klient/Serwer |
viewtopic.php?f=2&t=5112 |
|
| Autor: | Zenek N [ 2020-02-09, 23:27 ] |
| Tytuł: | Re: Klient/Serwer |
dzięki |
|
| Autor: | Zenek N [ 2020-02-16, 17:43 ] |
| Tytuł: | Re: Klient/Serwer |
@rafal, a jak dopisać do raportu warunek: jeśli nie wydany to nie wywołuj funkcji fiskalizuj()  lub nie twórz pliku fsk
|
|
| Autor: | Zenek N [ 2020-02-19, 12:34 ] |
| Tytuł: | Re: Klient/Serwer |
cześć rafał czy jeśli dopisze taki warunek, potwierdzisz ze bedzie wszystko w porzadku ? Kod: if mg.GetField("idhandl")==dk.GetRecById( lId ) then |
|
| Autor: | Zenek N [ 2020-02-20, 11:15 ] |
| Tytuł: | Re: Klient/Serwer |
taki kod będzie ok :) ? Kod: dispatch fso = "Scripting.FileSystemObject" int iPlik baseDK dk baseMG mg dk.GetRecById( lId ) long test = mg.GetField("idhandl") string s = using "%l", test long testw = dk.GetField("id") string x = using "%l", testw if dk.GetField("typ_dk") == "PAR" then if x==s then iPlik = open (using "%s%8.8l.fsk",KatalogFirmy(),lId) for output print #iPlik;"-" close #iPlik else endif endif |
|
| Autor: | Zenek N [ 2020-02-20, 13:55 ] |
| Tytuł: | Re: Klient/Serwer |
Mam taki kod i nie działa Kod: int Sub OnAfterInsert(long lId) dispatch fso = "Scripting.FileSystemObject" int iPlik int err baseMG mg baseDK dk mg.SetKey("idhandl") mg.SetKeySeg("idhandl", lId ) err=mg.GetRec(GE) dk.GetRecById( lId ) if dk.GetField("typ_dk") == "PAR" then while !err && mg.GetField("idhandl")==lId iPlik = open (using "%s%8.8l.fsk",KatalogFirmy(),lId) for output print #iPlik;"-" close #iPlik err=mg.getrec(NX) wend endif OnAfterInsert = SprawdzOkresNumeracji(lId, BAS_DK) EndSub |
|
| Autor: | Zenek N [ 2020-02-20, 14:59 ] |
| Tytuł: | Re: Klient/Serwer |
albo dlaczego ten kod nie działa ??? Cytuj: int Sub OnAfterInsert(long lId) dispatch fso = "Scripting.FileSystemObject" int iPlik int err baseMG mg baseDK dk mg.SetKey("idhandl") mg.SetKeySeg("idhandl", lId ) err=mg.GetRec(GE) dk.GetRecById( lId ) long test while !err && mg.GetField("idhandl")==lId test = mg.GetField("idhandl") err=mg.getrec(NX) wend if dk.GetField("typ_dk") == "PAR" then if lId == test then iPlik = open (using "%s%8.8l.fsk",KatalogFirmy(),lId) for output print #iPlik;"-" close #iPlik endif endif OnAfterInsert = SprawdzOkresNumeracji(lId, BAS_DK) EndSub |
|
| Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|