(971)  Login

English
Forum

FTP ("DownLoad"... - 2

HILFEEEE!!!

dankeeee

 

Muemmelmann
thanks Torsten,

@create("listbox",%hwnd, 0,0,0,0,0)
clearlist
@addstring(0, bemerk$)
@db("PutMemo", "VP_MEMO")

so GEHTS, if I with "listbox" 10,10,100,100 as Coordinates and Size eingebe erschein Although a Window, but mitt 0,0,0,0 works it so How i will

LG
Uwe
 
08/21/14  ▲
 




Muemmelmann
Hi,
I have there time yet ne others question:

there The Possibility (XProfan) directly a PDF To produce, in PHP does it with fpdf.php ???

many Thanks already time...

LG
Uwe
 
09/24/14  ▲
 




Thomas
Freier
in the principle Yes, but only integrally Einfache (Font and text)
having the as Rechnungsdokumentationsablage made.
The gedruckte bill having naturally a today usual Font, etc.
the example in the Texteditor open and you see The for PDF erforderlichen Lines.

one can but too over whom PDFCreator (is then the printer, on the The command of XProfan disembark) PDFs create, in the tuned Ordner Save and print.

5 kB
Hochgeladen:09/24/14
Downloadcounter: 225
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
09/24/14  ▲
 




Muemmelmann
Hello Thomas,

Yes so what How in your equipment would wealthy, How have You, the made ???

LG
Uwe

(XProfan X2)
 
09/26/14  ▲
 




Thomas
Freier
Hello Uwe,
so a simple Text-PDF exists a head-, Text-, ggf. new Page and Endteil.
whom Textteil save I in a Listbox and each row becomes then around the for PDF erforderlichen characters complement.
valid is only one Font of type1 (Adobe default).
ideal is a Font with same Zeichenabstand, and with tabellenförmigem stature, if then too yet Zahlenreihen rechtsbündig his should, unerläßlich.
becomes z.B.: Arial uses, must The String-Length (px) accounts go, so the Text the row still in the Blattbreite remaining.
here the reduced code
CompileMarkSeparation
 $H windows.ph
Declare Ende&
CLS ~GetSysColor(~Color_BTNFACE)
Window Title "Neues Projekt"
Var but1& = @Create("Button", %hwnd ,"Start",0,0,60,22)
Var but2& = @Create("Button", %hwnd ,"Ende",80,0,60,22)

Whilenot Ende&

    Waitinput
    Case getfocus(but1&):RECHNUNG_NEU
    Case getfocus(but2&):Ende&=1

Endwhile

End
|
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'for all gelisteten data becomes a bill prepares

Proc RECHNUNG_NEU

    Var pSeite% = 1
    ' for NotPDF Seitenwechsel
    Var pwechsel%=0
    Set("Decimals",2)
    Var aRgNr%= 10012
    RECNUNG_SCHREIBE

    If FileExists("D:\\"+st$(aRgNr%) +".pdf")=1

        @MessageBox("10012.pdf erstellt","Hinweis",64)

    Else

        @MessageBox("10012.pdf not erstellt","Hinweis",32)

    Endif

ENDPROC

Proc RECNUNG_SCHREIBE

    pSeite% = 1
    pwechsel%=0
    Declare pdfjob%, y%
    Declare pxn%'amount gedruckter Lines
    NOT_PDF_KOPF "D:\\"+st$(aRgNr%) +".pdf"
    ' The Listbox takes any data for PDF-File
    ClearList 0
    RNG_ADRESS' Rechnungsadresse
    RNG_NUMMER' Rechnungsnummer
    RNG_SEITE' pages-NR and LISTENüberschrift
    'any Datensätze to customers-number

    Whileloop 20

        AddStrings(0,st$(&loop))

    Endwhile

    ' Wieviele Sätze yet to Kostenstelle and Seitenwechsel?
    y%=8
    pxn%= 30

    If (pxn%+y%)>36

        Case y%>0 : pwechsel%=1
        AddStrings(0, "---------------------------------------------------------------------------------")
        AddStrings(0, "Übertrag      : ")
        Not_PDF_INHALT "D:\\"+st$(aRgNr%) +".pdf"
        ClearList 0
        NOT_PDF_SEITE "D:\\"+st$(aRgNr%) +".pdf"
        inc pSeite%
        RNG_ADRESS' Rechnungsadresse
        RNG_ANLAGE' Rechnungsanlage
        RNG_SEITE' pages-NR and LISTENüberschrift

    EndIf

    Whileloop 10

        AddStrings(0,st$(&loop))

    EndWhile

    Not_PDF_INHALT "D:\\"+st$(aRgNr%) +".pdf"
    Not_PDF_ENDE "D:\\"+st$(aRgNr%) +".pdf"

ENDPROC

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc RNG_ADRESS

    ' Print DIN-Adressfeld, Font and Höhe stay solid
    AddStrings(0, "Musterfirma")'trim$(dbGet$("KDNNAMEN")))
    AddStrings(0, "")'           trim$(dbGet$("KDNZUSATZ")))
    AddStrings(0, "Musterweg 2")'trim$(dbGet$("KDNSTR")))
    AddStrings(0, "23421 Muster")'trim$(dbGet$("KDNPLZ"))+" "+trim$(dbGet$("KDNORT")))
    AddStrings(0, "DEUTSCHLAND")'upper$(trim$(dbGet$("KDNLAND"))))
    AddStrings(0, "")

ENDPROC

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc RNG_NUMMER

    AddStrings(0, "                                                        R E C H n u n G")
    AddStrings(0, "                                                        number      : ")
    AddStrings(0, "                                                        ------------------------")
    AddStrings(0, "                                                        of         : ")
    AddStrings(0, "                                                        customer       : ")
    AddStrings(0, "")
    AddStrings(0, "")
    AddStrings(0, "")
    AddStrings(0, "")

ENDPROC

Proc RNG_ANLAGE

    AddStrings(0, "                                                        equipment zur")
    AddStrings(0, "                                                        ------------------------")
    AddStrings(0, "                                                        bill-Nr.: ")
    AddStrings(0, "                                                        of         : ")
    AddStrings(0, "                                                        customer       : ")
    AddStrings(0, "                                                        Page       : "+st$(pSeite%))
    AddStrings(0, "")
    AddStrings(0, "")
    AddStrings(0, "")

ENDPROC

Proc RNG_SEITE

    AddStrings(0, "Einzelaufstellung")
    AddStrings(0, "-----------------")
    AddStrings(0, "Datum          voucher     driver    performance      your characters/amendment   amount EUR")
    AddStrings(0, "---------------------------------------------------------------------------------")
    inc pxn%

    If pwechsel%=1

        inc pxn%
        AddStrings(0, "Übertrag      : ")
        AddStrings(0, "")
        dec pxn%

    EndIf

    inc pxn%

ENDPROC

Proc NOT_PDF_KOPF

    Parameters pdf_file$
    Assign #32,pdf_file$
    Rewrite #32
    Print #32,"%PDF-1.2"
    Print #32,"%âãÏÓ"
    Print #32,"1 0 obj"
    Print #32,"<<"
    Print #32,"/Author (I)"
    Print #32,"/CreationDate (D:" + dt("getDate",6) +" )"
    Print #32,"/Creator (I  v1.1)"
    Print #32,"/Producer ()"
    Print #32,"/Title ()"
    Print #32,"/Subject ()"
    Print #32,"/Keywords ()"
    Print #32,">>"
    Print #32,"endobj"
    Print #32,"4 0 obj"
    Print #32,"<<"
    Print #32,"/Type /Font"
    Print #32,"/Subtype /Type1"
    Print #32,"/name /F1"
    Print #32,"/Encoding 5 0 R"
    Print #32,"/BaseFont /Courier"
    'only Font-Type1 How z.B.: Arial, Verdana, etc. permitted
    Print #32,">>"
    Print #32,"endobj"
    Print #32,"5 0 obj"
    Print #32,"<<"
    Print #32,"/Type /Encoding"
    Print #32,"/BaseEncoding /WinAnsiEncoding"
    Print #32,">>"
    Print #32,"endobj"
    Print #32,"6 0 obj"
    Print #32,"<<"
    Print #32,"  /Font << /F1 4 0 R >>"
    Print #32,"  /ProcSet [ /PDF /Text ]"
    Print #32,">>"
    Print #32,"endobj"
    Print #32,"7 0 obj"
    Print #32,"<<"
    Print #32,"/Type /Page"
    Print #32,"/Parent 3 0 R"
    Print #32,"/Resources 6 0 R"
    Print #32,"/Contents 8 0 R"
    Print #32,"/Rotate 0"
    Print #32,">>"
    Print #32,"endobj"
    Print #32,"8 0 obj"
    Print #32,"<<"
    Print #32,"/Length 6 0 R"
    Print #32,">>"
    Print #32,"stream"
    Print #32,"BT"
    Print #32,"/F1 10 Tf"
    Print #32,"1 0 0 1 54 676 Tm"
    '54 is edge left
    '676 is stood off 1. Textzeile of Blattende
    Print #32,"10 TL"
    Close #32
    pdfjob%=9

ENDPROC

Proc NOT_PDF_INHALT

    Parameters pdf_file$
    Declare textpdf$
    Assign #32,pdf_file$
    Append #32

    WhileLoop 0,%GetCount

        textpdf$ = GetString$(0,&Loop)
        textpdf$=Translate$(Textpdf$,"(","\(")
        textpdf$=Translate$(Textpdf$,")","\)")
        textpdf$="T* (" + textpdf$ + ") Tj"
        Print #32,textpdf$

    EndWhile

    Close #32

ENDPROC

Proc NOT_PDF_SEITE

    Parameters pdf_file$
    Assign #32,pdf_file$
    Append #32
    Print #32,"1 0 0 1 504 25 Tm"
    Print #32,"() Tj"
    Print #32,"/F1 10 Tf"
    Print #32,"ET"
    Print #32,"endstream"
    Print #32,"endobj"
    Print #32,"9 0 obj"
    Print #32,"3950"
    Print #32,"endobj"
    inc pdfjob%
    Print #32,st$(pdfjob%)+" 0 obj"'10
    inc pdfjob%
    Print #32,"<<"
    Print #32,"/Type /Page"
    Print #32,"/Parent 3 0 R"
    Print #32,"/Resources 6 0 R"
    Print #32,"/Contents "+st$(pdfjob%)+" 0 R"
    Print #32,"/Rotate 0"
    Print #32,">>"
    Print #32,"endobj"
    Print #32,st$(pdfjob%)+" 0 obj"
    Print #32,"<<"
    Print #32,"/Length 12 0 R"
    Print #32,">>"
    Print #32,"stream"
    Print #32,"BT"
    Print #32,"/F1 10 Tf"
    Print #32,"1 0 0 1 54 676 Tm"
    Print #32,"12 TL"
    Close #32
    inc pdfjob%

ENDPROC

Proc NOT_PDF_ENDE

    Parameters pdf_file$
    Assign #32,pdf_file$
    Append #32
    Print #32,"() Tj"
    Print #32,"/F1 10 Tf"
    Print #32,"ET"
    Print #32,"endstream"
    Print #32,"endobj"
    Print #32,"9 0 obj"
    Print #32,"275"
    Print #32,"endobj"
    Print #32,"2 0 obj"
    Print #32,"<<"
    Print #32,"/Type /Catalog"
    Print #32,"/Pages 3 0 R"
    Print #32,">>"
    Print #32,"endobj"
    Print #32,"3 0 obj"
    Print #32,"<<"
    Print #32,"/Type /Pages"
    Set("Decimals",0)
    Print #32,"/Count "+st$(pSeite%)
    Print #32,"/MediaBox [  0 0 595 842  ]"
    var pdfjob$="/Kids [ "
    Var pdfb%=7

    whileLoop pSeite%

        pdfjob$= pdfjob$ + st$(pdfb%)+ " 0 R "
        pdfb%=pdfb%+3
        '  Case p.Page%=2 :  Print #32,"/Kids [ 7 0 R 10 0 R ]"
        '  Case p.Page%=3 :  Print #32,"/Kids [ 7 0 R 10 0 R 13 0 R ]"

    EndWhile

    pdfjob$=pdfjob$+"]"
    Print #32,pdfjob$
    Print #32,">>"
    Print #32,"endobj"
    Print #32,"0 10"
    Print #32,"0000000000 65535 f"
    Print #32,"0000000013 00000 n"
    Print #32,"0000002875 00000 n"
    Print #32,"0000002918 00000 n"
    Print #32,"0000000156 00000 n"
    Print #32,"0000000245 00000 n"
    Print #32,"0000000307 00000 n"
    Print #32,"0000000372 00000 n"
    Print #32,"0000000453 00000 n"
    Print #32,"0000002858 00000 n"
    Print #32,"trailer"
    Print #32,"<<"
    Print #32,"/Size 10"
    Print #32,"/Root 2 0 R"
    Print #32,"/Info 1 0 R"
    Print #32,">>"
    Print #32,"startxref"
    Print #32,"909"
    Print #32,"%%EOF"
    Close #32

ENDPROC

Greeting Thomas
 
Gruß Thomas
Windows XP SP2, XProfan X2
09/27/14  ▲
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

4.578 Views

Untitledvor 0 min.
iF12/30/15
Sascha Haak01/20/15
p.specht01/18/15
maroro01/11/15
More...

Themeninformationen

this Topic has 2 subscriber:

Muemmelmann (3x)
Thomas Freier (2x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie