(477)  S'inscrire

Français
Forum

FTP ("DownLoad"... - 2

HILFEEEE!!!

dankeeee

 

Muemmelmann
merci Torsten,

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

so gehts, si je chez "listbox" 10,10,100,100 comme Koordinaten et Taille eingebe erschein zwar un la fenêtre, mais mitt 0,0,0,0 klappt es so comment je veux

LG
Uwe
 
21.08.2014  ▲
 




Muemmelmann
Salut,
j'ai là la fois encore ne autre Frage:

gibt es qui Possibilité (XProfan) direct une PDF trop erzeugen, dans PHP allez cela avec fpdf.php ???

vielen Dank déjà la fois...

LG
Uwe
 
24.09.2014  ▲
 




Thomas
Freier
Im Prinzip oui, mais seulement entier Simple (Font et Text)
Hatte cela comme Rechnungsdokumentationsablage gemacht.
qui gedruckte la facture hatte naturellement une aujourd'hui habituel Font, usw.
cela Beispiel im Texteditor ouvrir et tu vois qui pour qui PDF erforderlichen Zeilen.

il peut mais aussi sur den PDFCreator (ist ensuite qui Drucker, sur den qui Befehle de XProfan landen) PDFs erstellen, im eingestellten Dossier Sauver et drucken.

5 kB
Hochgeladen:24.09.2014
Downloadcounter: 203
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
24.09.2014  ▲
 




Muemmelmann
allô Thomas,

oui so quoi comment dans Deiner Anlage serait reichen, comment la hâte Du cela gemacht ???

LG
Uwe

(XProfan X2)
 
26.09.2014  ▲
 




Thomas
Freier
allô Uwe,
so une simple Text-PDF besteht aus einem tête-, Text-, ggf. neue page et Endteil.
Den Textteil speichere je dans un Listbox et chacun la ligne wird ensuite à pour qui PDF erforderlichen marque ergänzt.
Zulässig ist seulement un Font vom Typ1 (Adobe Vorgabe).
Ideal est un Font avec gleichem Zeichenabstand, et chez tabellenförmigem Format, si ensuite aussi encore Zahlenreihen rechtsbündig son devoir, unerläßlich.
Wird z.B.: Arial verwendet, doit qui Stringlänge (px) berechnet volonté, avec cela qui Text qui la ligne encore dans qui Blattbreite bleibt.
ici qui reduzierte Code
KompilierenMarqueSéparation
 $H Windows.ph
Déclarer Ende&
CLS ~GetSysColor(~Color_BTNFACE)
Titre de la fenêtre "Neues Projekt"
Var but1& = @Créer("Button", %hwnd ,"Start",0,0,60,22)
Var but2& = @Créer("Button", %hwnd ,"Ende",80,0,60,22)

Whilenot Ende&

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

Endwhile

Fin
|
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'pour alle gelisteten données wird une la facture erstellt

Proc RECHNUNG_NEU

    Var pSeite% = 1
    ' pour NotPDF Seitenwechsel
    Var pwechsel%=0
    Set("Décimal",2)
    Var aRgNr%= 10012
    RECNUNG_SCHREIBE

    Si FileExists("D:\\"+str$(aRgNr%) +".pdf")=1

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

    D'autre

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

    Endif

ENDPROC

Proc RECNUNG_SCHREIBE

    pSeite% = 1
    pwechsel%=0
    Déclarer pdfjob%, y%
    Déclarer pxn%'Anzahl gedruckter Zeilen
    NOT_PDF_KOPF "D:\\"+str$(aRgNr%) +".pdf"
    ' qui Listbox nimmt alle données pour qui PDF-Dossier
    ClearList 0
    RNG_ADRESS' Rechnungsadresse
    RNG_NUMMER' Rechnungsnummer
    RNG_SEITE' Seiten-NR et LISTENüberschrift
    'Alle Datensätze zur Kunden-numéro

    Whileloop 20

        AddStrings(0,str$(&loop))

    Endwhile

    ' Wieviele Sätze encore zur Kostenstelle et Seitenwechsel?
    y%=8
    pxn%= 30

    Si (pxn%+Y%)>36

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

    EndIf

    Whileloop 10

        AddStrings(0,str$(&loop))

    Endwhile

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

ENDPROC

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

Proc RNG_ADRESS

    ' Drucken DIN-Adressfeld, Font et Hauteur rester fest
    AddStrings(0, "Musterfirma")'bordure$(dbGet$("KDNNAMEN")))
    AddStrings(0, »)'           bordure$(dbGet$("KDNZUSATZ")))
    AddStrings(0, "Musterweg 2")'bordure$(dbGet$("KDNSTR")))
    AddStrings(0, "23421 Muster")'bordure$(dbGet$("KDNPLZ"))+" "+bordure$(dbGet$("KDNORT")))
    AddStrings(0, "DEUTSCHLAND")'upper$(bordure$(dbGet$("KDNLAND"))))
    AddStrings(0, »)

ENDPROC

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

Proc RNG_NUMMER

    AddStrings(0, "                                                        R E C H N U N G")
    AddStrings(0, "                                                        numéro      : ")
    AddStrings(0, "                                                        ------------------------")
    AddStrings(0, "                                                        vom         : ")
    AddStrings(0, "                                                        Kunde       : ")
    AddStrings(0, »)
    AddStrings(0, »)
    AddStrings(0, »)
    AddStrings(0, »)

ENDPROC

Proc RNG_ANLAGE

    AddStrings(0, "                                                        Anlage zur")
    AddStrings(0, "                                                        ------------------------")
    AddStrings(0, "                                                        la facture-Nr.: ")
    AddStrings(0, "                                                        vom         : ")
    AddStrings(0, "                                                        Kunde       : ")
    AddStrings(0, "                                                        page       : "+str$(pSeite%))
    AddStrings(0, »)
    AddStrings(0, »)
    AddStrings(0, »)

ENDPROC

Proc RNG_SEITE

    AddStrings(0, "Einzelaufstellung")
    AddStrings(0, "-----------------")
    AddStrings(0, "Datum          Beleg     conducteur    Leistung      ses marque/Zusatz   Betrag EUR")
    AddStrings(0, "---------------------------------------------------------------------------------")
    inc pxn%

    Si pwechsel%=1

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

    EndIf

    inc pxn%

ENDPROC

Proc NOT_PDF_KOPF

    Paramètres pdf_file$
    Assign #32,pdf_file$
    Rewrite #32
    Imprimer #32,"%PDF-1.2"
    Imprimer #32,"%âãÏÓ"
    Imprimer #32,"1 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"/Author (je)"
    Imprimer #32,"/CreationDate (D:" + dt("getDate",6) +" )"
    Imprimer #32,"/Creator (je  v1.1)"
    Imprimer #32,"/Producer ()"
    Imprimer #32,"/Title ()"
    Imprimer #32,"/Subject ()"
    Imprimer #32,"/Keywords ()"
    Imprimer #32,">>"
    Imprimer #32,"endobj"
    Imprimer #32,"4 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"/Type /Font"
    Imprimer #32,"/Subtype /Type1"
    Imprimer #32,"/nom /F1"
    Imprimer #32,"/Encoding 5 0 R"
    Imprimer #32,"/BaseFont /Courier"
    'seulement Font-Type1 comment z.B.: Arial, Verdana, usw. zulässig
    Imprimer #32,">>"
    Imprimer #32,"endobj"
    Imprimer #32,"5 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"/Type /Encoding"
    Imprimer #32,"/BaseEncoding /WinAnsiEncoding"
    Imprimer #32,">>"
    Imprimer #32,"endobj"
    Imprimer #32,"6 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"  /Font << /F1 4 0 R >>"
    Imprimer #32,"  /ProcSet [ /PDF /Text ]"
    Imprimer #32,">>"
    Imprimer #32,"endobj"
    Imprimer #32,"7 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"/Type /Page"
    Imprimer #32,"/Parent 3 0 R"
    Imprimer #32,"/Resources 6 0 R"
    Imprimer #32,"/Contents 8 0 R"
    Imprimer #32,"/Rotate 0"
    Imprimer #32,">>"
    Imprimer #32,"endobj"
    Imprimer #32,"8 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"/Length 6 0 R"
    Imprimer #32,">>"
    Imprimer #32,"stream"
    Imprimer #32,"BT"
    Imprimer #32,"/F1 10 Tf"
    Imprimer #32,"1 0 0 1 54 676 Tm"
    '54 ist rebord à gauche
    '676 ist la distance 1. Textzeile vom Blattende
    Imprimer #32,"10 TL"
    Fermer #32
    pdfjob%=9

ENDPROC

Proc NOT_PDF_INHALT

    Paramètres pdf_file$
    Déclarer textpdf$
    Assign #32,pdf_file$
    Append #32

    WhileLoop 0,%GetCount

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

    Endwhile

    Fermer #32

ENDPROC

Proc NOT_PDF_SEITE

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

ENDPROC

Proc NOT_PDF_ENDE

    Paramètres pdf_file$
    Assign #32,pdf_file$
    Append #32
    Imprimer #32,"() Tj"
    Imprimer #32,"/F1 10 Tf"
    Imprimer #32,"ET"
    Imprimer #32,"endstream"
    Imprimer #32,"endobj"
    Imprimer #32,"9 0 obj"
    Imprimer #32,"275"
    Imprimer #32,"endobj"
    Imprimer #32,"2 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"/Type /Catalog"
    Imprimer #32,"/Pages 3 0 R"
    Imprimer #32,">>"
    Imprimer #32,"endobj"
    Imprimer #32,"3 0 obj"
    Imprimer #32,"<<"
    Imprimer #32,"/Type /Pages"
    Set("Décimal",0)
    Imprimer #32,"/Count "+str$(pSeite%)
    Imprimer #32,"/MediaBox [  0 0 595 842  ]"
    var pdfjob$="/Kids [ "
    Var pdfb%=7

    whileLoop pSeite%

        pdfjob$= pdfjob$ + str$(pdfb%)+ " 0 R "
        pdfb%=pdfb%+3
        '  Cas p.page%=2 :  Imprimer #32,"/Kids [ 7 0 R 10 0 R ]"
        '  Cas p.page%=3 :  Imprimer #32,"/Kids [ 7 0 R 10 0 R 13 0 R ]"

    Endwhile

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

ENDPROC

Salut Thomas
 
Gruß Thomas
Windows XP SP2, XProfan X2
27.09.2014  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

4.436 Views

Untitledvor 0 min.
iF30.12.2015
Sascha Haak20.01.2015
p.specht18.01.2015
maroro11.01.2015
plus...

Themeninformationen

cet Thema hat 2 participant:

Muemmelmann (3x)
Thomas Freier (2x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie