Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-11-22, 13:18x

Indeks witryny » Wymiana doświadczeń » Programowanie

Strefa czasowa UTC+1godz. [letni]



Odpowiedz w temacie  Strona 1 z 1
  [ Posty: 7 ] 
Podgląd wydruku Poprzedni temat | Następny temat 
Tworzenie własnego PDF 
Autor Wiadomość
wojtek

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Tworzenie własnego PDF
Witam,
Czy istnieje możliwość w F50C napisania raportu który w sposób automatyczny będzie zakładał dokumenty pdf w określonym miejscu.
Kod:

DISPATCH rs1, con1
rs1= "ADODB.Recordset"
con1 = GetAdoConnection()
string qZap1
dispatch wshShell = "WScript.Shell"
string sTemp = wshShell.ExpandEnvironmentStrings( "%TEMP%" )
string sProgramFiles = wshShell.ExpandEnvironmentStrings( "%ProgramFiles%" )
string sRunApp = sProgramFiles + "\\Common Files\\Symfonia\\PDF\\RunApp.exe"

string sTemat = "test"
string sPDF = "test.pdf"

qZap1 = "SELECT * FROM [testowa].[FK].[zapisy] where synt = '201' and dataokr between '2020-03-11' and '2020-03-11'"

rs1.Open(qZap1, con1)   


print rs1.Fields("Opis").value
pdfDisp.FilePath = "C:\\zamowienia\\"
pdfDisp.Filename="zamowienie1.pdf"
pdfDisp.Title="Zamowienie nr 1"
pdfDisp.Subject="Zamówienie towaru"

  Execute(  (using "%s /email \"%s\" \"%s\" \"%s\" \"%s\"",sRunApp, sTemat, sPDF, sTemp+ "\\" + sPDF,sPDF)  )
error""



Chodzi mi o to by dla każdego konta 201-x powstał wydruk salda w odrębnym pdf...


2020-03-12, 11:15
Wyświetl profil
Autor Wiadomość
Mix-soft.pl
 
wojtek

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Re: Tworzenie własnego PDF
Przeszukałem całe forum i nie znalazłem informacji o tym jak zapisać automatycznie do pdf to co wyświetla na ekranie polecenie print. Czy na prawdę nikt się z tym nie spotkał? gdzie zdefiniowany jest obiekt pdfDisp i jakie ma właściwości? Proszę o pomoc. Z tekściakami, wordami nie ma problemu. PDF? Zagadka.


2020-03-13, 09:47
Wyświetl profil
Zenek N

Rejestracja: 2010-11-25, 09:46
Posty: 448
Pomógł: 8
Post Re: Tworzenie własnego PDF
ten kod który podałeś nie działa ?


2020-03-14, 17:21
Wyświetl profil
Administrator
Administrator

Rejestracja: 2007-11-15, 12:42
Posty: 102
Pomógł: 7
Post Re: Tworzenie własnego PDF
Ta wiadomość była pomocna.(1)
Zrob raport ktory robi wydruk dla jednego konta przekazanego w arg.
Potem drugi ktory bedzie go wywolywal poleceniem Run

Poczytaj o Run.

_________________
Administrator
forum.mojaSymfonia.pl
2020-03-15, 09:13
Wyświetl profil
wojtek

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Re: Tworzenie własnego PDF
Dzięki - spróbuje. Ten kod kóry podałem nie tworzy mi niestety żadnego pliku. Nie wywala błędu, ale plik nie powstaje.


2020-03-15, 14:51
Wyświetl profil
wojtek

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Re: Tworzenie własnego PDF
Coś muszę robić nie tak..

Mam dwa najprostsze raporty - pierwszy - chce aby zapisał się bez wyświetlania jako pdf, raport nazywa się "testPrint"

Kod:
pdfDisp.FilePath = "c:\\zamowienia"
pdfDisp.Filename="zamowienie1.pdf"
pdfDisp.Title="Zamowienie nr 1"
pdfDisp.Subject="Zamówienie towaru"

print "Wydruk"


Drugi raport ma go wywołać i ewentualnie przekazać parametry:

Kod:
Run("testPrint",-2,"dokument.pdf")
error""


Na razie nie chce przekazywać żadnych parametrów - chce po prostu zapisać plik o nazwie zamowienie1.pdf w katalogu "c:\\zamowienia"
Zawartość tego pliku to oczywiście Wydruk....

Po wykonaniu raportu wszystko wygląda OK tylko plik się nie tworzy. Gdy użyję w RUN innego parametru niż -2, np -1 to na ekranie pojawia się "Wydruk" i przy ręcznym kliknięciu tworzenia pdfu pokazuje się odpowiednia ścieżka i odpowiednia nazwa pliku. Co jest wyzwalaczem zapisu?


2020-03-15, 15:49
Wyświetl profil
wojtek

Rejestracja: 2010-02-10, 21:24
Posty: 260
Pomógł: 4
Post Re: Tworzenie własnego PDF
Udało się, brakowało jeszcze kilku informacji. Może się komuś przyda - najprostszy kod wygląda tak:

Kod:
#include "wydruk.sci"

pdfDisp.FilePath = "c:\\zamowienia"
pdfDisp.Filename="zamowienie1.pdf"
pdfDisp.Title="Zamowienie nr 1"
pdfDisp.Subject="Zamówienie towaru"

Str.Wydruk(-1, -1, -1)
SetStyl( Styl( Font(40, "Times New Roman CE"), -1,  "", 500))
Strona 70, 70, 70 ,70

print "Wydruk"


Wyzwalamy go poleceniem RUN w innym raporcie - przekazując ewentualne parametry.
Dziękuję wszystkim za pomoc


2020-03-15, 18:11
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   Strona 1 z 1
  [ Posty: 7 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Tworzenie PDF

w Programowanie

Benji_Pete

3

3347

2012-01-11, 15:23

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Realizacja zamówienia własnego

w Programy Handlowe

agnes11

5

4813

2015-12-23, 17:47

wrob Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki HMF - Realizacje pozycji zawówienia własnego

w Programowanie

nick

1

2956

2019-07-10, 14:41

nick Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Numer własnego dokumentu zakupu na wydruku rejestru.

w Programy Handlowe

zz

4

3914

2013-11-12, 15:21

zz Wyświetl najnowszy post


Indeks witryny » Wymiana doświadczeń » Programowanie

Strefa czasowa UTC+1godz. [letni]

Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 26 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

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant