Temat: Gniazda rozszerzeń a wydruki

Interesuje mnie, czy jest możliwe uzyskanie następującej funkcjonalności w programie:
- przy zatwierdzaniu dokumentu handlowego (faktury zakupu dokładnie rzecz biorąc) program pyta użytkownika o to, czy wydrukować dodatkowy, zdefiniowany przez nas raport;
- jeśli odpowiedź jest twierdząca, raport jest wywoływany (idealnie drukowany bezpośrednio do drukarki)
- jeśli wydruk został wykonany, w pola dodatkowe w tabeli dokumentów handlowych wpisywane są informacje nt daty wydruku.

O ile dokumentacja do gniazd rozszerzeń pozwala częściowo oprogramować opisany wyżej proces, o tyle nie znajduję (albo nie potrafię znaleźć) w niej informacji na temat uruchamiania wydruków. Czy taka funkcjonalność jest w ogóle dostępna? Ostateczna ostateczność to moduł wykonywalny, ale koncepcyjnie i praktycznie byłoby osadzić całość (a w szczególności wydruki) w samym WFMAGU.

Za wszelkie sugestie z góry dziękuję.
Maciej Łuszczyński

Temat: Gniazda rozszerzeń a wydruki

Moduł to wcale nie taka ostateczna ostateczność :-)
Mam takie rozwiązanie i się sprawdza.
Inna droga jest w tym wątku: https://www.goldenline.pl/grupy/Komputery_Internet/wfma...

Pzdr

Maciej Ł.:
Interesuje mnie, czy jest możliwe uzyskanie następującej funkcjonalności w programie:
- przy zatwierdzaniu dokumentu handlowego (faktury zakupu dokładnie rzecz biorąc) program pyta użytkownika o to, czy wydrukować dodatkowy, zdefiniowany przez nas raport;
- jeśli odpowiedź jest twierdząca, raport jest wywoływany (idealnie drukowany bezpośrednio do drukarki)
- jeśli wydruk został wykonany, w pola dodatkowe w tabeli dokumentów handlowych wpisywane są informacje nt daty wydruku.

O ile dokumentacja do gniazd rozszerzeń pozwala częściowo oprogramować opisany wyżej proces, o tyle nie znajduję (albo nie potrafię znaleźć) w niej informacji na temat uruchamiania wydruków. Czy taka funkcjonalność jest w ogóle dostępna? Ostateczna ostateczność to moduł wykonywalny, ale koncepcyjnie i praktycznie byłoby osadzić całość (a w szczególności wydruki) w samym WFMAGU.

Za wszelkie sugestie z góry dziękuję.
Maciej ŁuszczyńskiTen post został edytowany przez Autora dnia 07.05.18 o godzinie 20:49

Temat: Gniazda rozszerzeń a wydruki

OK, dziękuję za informację, będziemy testować.

Pozdrawiam
Maciej Łuszczyński

Temat: Gniazda rozszerzeń a wydruki

Podpinam się pod post kolegi. Uprzejmie proszę o pomoc.
Utworzyłem skrypt *vbs, służący do wydruku interesującego mnie raportu CR.
Oto kod skryptu:

Dim Args

Dim Params

Dim IdRap,Idobiektu, IdFirmy, IdMag, Pusty, IdUzyt, Uzycie,PDF

Set Args = WScript.Arguments

Params = Split(Args(1), ",", -1, 1) 





IdRap = Params(0)

Idobiektu = Params(1)

IdFirmy = Params(2) 

IdMag = Params(3) 

Pusty = Params(4)

IdUzyt = Params(5)

Uzycie = Params(6)

PDF = ""



 

 Dim Obj 

 set obj = CreateObject("Wscript.Shell")

 Dim sStr

   sStr = """" & left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))  & "crystalrap.exe""" &" """ & Args(0) & """ """ & IdRap &""" """& Idobiektu &""" """& IdFirmy &""" """ & IdMag & """ """& Pusty &""" """& IdUzyt &""" """& Uzycie & """ """& PDF &""" """

 

'Dim key



'key=MsgBox(sStr)



 obj.Run sStr , 0, False



  set obj = Nothing

Nadałem mu nazwę skrypt.vbs, a następnie przeniosłem go do folderu:

C:\Program Files (x86)\WAPRO\WAPRO Mag\

Skrypt działa poprawnie (pojawia się okno wydruku raportu), jeżeli uruchamiam go z poziomu cmd po wpisaniu poniższej komendy:

crystalrap "NAZWA_SERWERA,NAZWA_BAZY,USER,HASLO", "32", "1", "1", "1", "", "3000001", "", ""

Następnie dodałem owy skrypt do gniazd rozszerzeń WAPRO podając parametry w poniższy sposób:

"NAZWA_SERWERA,NAZWA_BAZY,USER,HASLO"

,32,@IdObiektu,@IdFirmy,@IdMagazynu, ,@IdUzytkownika, ,@FakturaPdf"

Tutaj pojawia się problem, ponieważ korzystając z opcji 'Testuj wykonanie" skrypt nie uruchamia okna wydruku.

W celu testu czy skrypt jest uruchamiany dodałem MsgBox na koniec skryptu .vbs. MsgBox pokazał się poprawnie.
Wszystko wskazuje na to, iż w zły sposób definiuje parametry. Próbowałem podawać je na wiele sposobów, jednak żaden z nich nie przyniósł rezultatu.

Z góry dziękuję za wszelką pomoc.
Z wyrazami szacunku
Łukasz Burda