mojaSymfonia FORUM
https://forum.mix-soft.pl/

Tworzenie własnego PDF
https://forum.mix-soft.pl/viewtopic.php?f=15&t=9487		 Strona 1 z 1
Autor:  wojtek [ 2020-03-12, 11:15 ]
Tytuł:  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...
Autor:  wojtek [ 2020-03-13, 09:47 ]
Tytuł:  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.
Autor:  Zenek N [ 2020-03-14, 17:21 ]
Tytuł:  Re: Tworzenie własnego PDF
ten kod który podałeś nie działa ?
Autor:  Administrator [ 2020-03-15, 09:13 ]
Tytuł:  Re: Tworzenie własnego PDF
Zrob raport ktory robi wydruk dla jednego konta przekazanego w arg.
Potem drugi ktory bedzie go wywolywal poleceniem Run

Poczytaj o Run.
Autor:  wojtek [ 2020-03-15, 14:51 ]
Tytuł:  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.
Autor:  wojtek [ 2020-03-15, 15:49 ]
Tytuł:  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?
Autor:  wojtek [ 2020-03-15, 18:11 ]
Tytuł:  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
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/