![](./styles/avalonblue/theme/images/row_left_top.gif) |
![](./styles/avalonblue/theme/images/row_right_top.gif) |
![](./styles/avalonblue/theme/images/spacer.gif) |
|
Strona 1 z 1
|
[ Posty: 10 ] |
|
Autor |
Wiadomość |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) Klient/Serwer
Podpowie ktoś jak napisać klient serwer w ambasic w języku raprotów ?
|
2020-02-05, 12:46 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Autor |
Wiadomość |
Mix-soft.pl
|
|
![](styles/avalonblue/theme/images/spacer.gif) |
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3988 Pomógł: 446
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) Re: Klient/Serwer
:) Kod: print "klient serwer" o co dokładnie chodzi? Jaką funkcjonalność planujesz zorbić.
|
2020-02-05, 12:57 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) Re: Klient/Serwer
Chciałem wysłać polecenie z jednego stanowiska na drugie aby wykonał funkcję fiskalizujdokument()
|
2020-02-06, 10:12 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3988 Pomógł: 446
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) Re: Klient/Serwer
![Ta wiadomość była pomocna Ta wiadomość była pomocna.](./img/mix_star.png) (1)
|
2020-02-06, 14:34 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) Re: Klient/Serwer
dzięki
|
2020-02-09, 23:27 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) Re: Klient/Serwer
@rafal, a jak dopisać do raportu warunek: jeśli nie wydany to nie wywołuj funkcji fiskalizuj() ![;-)](./images/smilies/icon_wink.gif) lub nie twórz pliku fsk
|
2020-02-16, 17:43 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) 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
|
2020-02-19, 12:34 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) 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
|
2020-02-20, 11:15 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) 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
|
2020-02-20, 13:55 |
|
![](./styles/avalonblue/theme/images/spacer.gif) |
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 8
|
![Post Post](./styles/avalonblue/imageset/icon_topic_latest.gif) 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
|
2020-02-20, 14:59 |
|
|
|
Strona 1 z 1
|
[ Posty: 10 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 2 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
|
![](./styles/avalonblue/theme/images/spacer.gif) |
|
|