 |
 |
 |
|
Strona 1 z 1
|
[ Posty: 10 ] |
|
| Autor |
Wiadomość |
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
 Klient/Serwer Podpowie ktoś jak napisać klient serwer w ambasic w języku raprotów ?
|
| 2020-02-05, 12:46 |
|
|
| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
Re: Klient/Serwer :) Kod: print "klient serwer" o co dokładnie chodzi? Jaką funkcjonalność planujesz zorbić.
|
| 2020-02-05, 12:57 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
Re: Klient/Serwer Chciałem wysłać polecenie z jednego stanowiska na drugie aby wykonał funkcję fiskalizujdokument() 
|
| 2020-02-06, 10:12 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
Re: Klient/Serwer  (1)
|
| 2020-02-06, 14:34 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
Re: Klient/Serwer dzięki
|
| 2020-02-09, 23:27 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
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
|
| 2020-02-16, 17:43 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
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 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
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 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
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 |
|
|
|
Zenek N
Rejestracja: 2010-11-25, 09:46 Posty: 439 Pomógł: 7
|
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 3 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
|
|
|
|
