(1.517)  Registro

Español
Foro

FTP ("DownLoad"... - 2

HILFEEEE!!!

dankeeee

 

Muemmelmann
Gracias Torsten,

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

así gehts, si yo en "listbox" 10,10,100,100 como Koordinaten y Größe eingebe erschein Aunque un Ventana, aber mitt 0,0,0,0 klappt lo como Yo voluntad

LG
Uwe
 
21.08.2014  ▲
 




Muemmelmann
¡Hola,
Yo como veces o ne- otro Cuestión:

hay el Möglichkeit (XProfan) direkt una PDF a erzeugen, en PHP va el con fpdf.php ???

vielen Dank ya veces...

LG
Uwe
 
24.09.2014  ▲
 




Thomas
Freier
Im Principio sí, aber sólo bastante Einfache (Font y Texto)
Hatte como el Rechnungsdokumentationsablage gemacht.
El gedruckte Rechnung hatte natürlich una heute üblichen Font, usw.
Das Ejemplo en el Texteditor abierto y du siehst el para el PDF erforderlichen Zeilen.

Se puede aber auch encima el PDFCreator (es entonces el Drucker, en el el Befehle de XProfan landen) PDFs redactar, en el eingestellten Ordner speichern y drucken.

5 kB
Hochgeladen:24.09.2014
Ladeanzahl: 210
Descargar
 
Gruß Thomas
Windows XP SP2, XProfan X2
24.09.2014  ▲
 




Muemmelmann
Hola Tomás,

sí así qué como en Deiner Anlage sería reichen, como hast Usted el gemacht ???

LG
Uwe

(XProfan X2)
 
26.09.2014  ▲
 




Thomas
Freier
¡Hola Uwe,
así una einfache Texto-PDF besteht de una Kopf-, Texto-, ggf. neue Página y Endteil.
Den Textteil speichere Yo en un Listbox y jede Línea se entonces a para el PDF erforderlichen Signo ergänzt.
Zulässig es sólo una Font vom Typ1 (Adobe Vorgabe).
Ideal es una Font con gleichem Zeichenabstand, y en tabellenförmigem Formato, si entonces auch todavía Zahlenreihen rechtsbündig ser debería, unerläßlich.
Wird z.B.: Arial verwendet, muß el Stringlänge (px) berechnet voluntad, así el Texto el Línea aún en el Blattbreite restos.
Hier el reduzierte Code
KompilierenMarcaSeparación
 $H Windows.ph
Declarar Ende&
CLS ~GetSysColor(~Color_BTNFACE)
Título de la ventana "Neues Projekt"
Var but1& = @Crear("Button", %hwnd ,"Start",0,0,60,22)
Var but2& = @Crear("Button", %hwnd ,"Ende",80,0,60,22)

Sinestar encargado Ende&

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

Endwhile

End
|
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'para todos gelisteten Daten se una Rechnung erstellt

Proc RECHNUNG_NEU

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

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

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

    Más

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

    Endif

ENDPROC

Proc RECNUNG_SCHREIBE

    pSeite% = 1
    pwechsel%=0
    Declarar pdfjob%, y%
    Declarar pxn%'Anzahl gedruckter Zeilen
    NOT_PDF_KOPF "D:\\"+str$(aRgNr%) +".pdf"
    ' el Listbox nimmt todos Daten para el PDF-Expediente
    ClearList 0
    RNG_ADRESS' Rechnungsadresse
    RNG_NUMMER' Rechnungsnummer
    RNG_SEITE' Páginas-NR y LISTENüberschrift
    'Alle Datensätze a Kunden-Nummer

    Whileloop 20

        AddStrings(0,str$(&bucle))

    Endwhile

    ' Wieviele Sätze todavía a Kostenstelle y Seitenwechsel?
    y%=8
    pxn%= 30

    If (pxn%+y%)>36

        Case 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' Páginas-NR y LISTENüberschrift

    EndIf

    Whileloop 10

        AddStrings(0,str$(&bucle))

    EndWhile

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

ENDPROC

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

Proc RNG_ADRESS

    ' Drucken DIN-Adressfeld, Font y Höhe bleiben fest
    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, "                                                        Nummer      : ")
    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, "                                                        Rechnung-Nr.: ")
    AddStrings(0, "                                                        vom         : ")
    AddStrings(0, "                                                        Kunde       : ")
    AddStrings(0, "                                                        Página       : "+str$(pSeite%))
    AddStrings(0, "")
    AddStrings(0, "")
    AddStrings(0, "")

ENDPROC

Proc RNG_SEITE

    AddStrings(0, "Einzelaufstellung")
    AddStrings(0, "-----------------")
    AddStrings(0, "Datum          Beleg     Fahrer    Leistung      Ihre Signo/Zusatz   Betrag 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

    Parámetros pdf_file$
    Asignar #32,pdf_file$
    Rewrite #32
    Imprimir #32,"%PDF-1.2"
    Imprimir #32,"%âãÏÓ"
    Imprimir #32,"1 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"/Author (Yo)"
    Imprimir #32,"/CreationDate (D:" + dt("getDate",6) +" )"
    Imprimir #32,"/Creator (Yo  v1.1)"
    Imprimir #32,"/Producer ()"
    Imprimir #32,"/Title ()"
    Imprimir #32,"/Subject ()"
    Imprimir #32,"/Keywords ()"
    Imprimir #32,">>"
    Imprimir #32,"endobj"
    Imprimir #32,"4 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"/Type /Font"
    Imprimir #32,"/Subtype /Type1"
    Imprimir #32,"/Name /F1"
    Imprimir #32,"/Encoding 5 0 R"
    Imprimir #32,"/BaseFont /Courier"
    'sólo Font-Type1 como z.B.: Arial, Verdana, usw. zulässig
    Imprimir #32,">>"
    Imprimir #32,"endobj"
    Imprimir #32,"5 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"/Type /Encoding"
    Imprimir #32,"/BaseEncoding /WinAnsiEncoding"
    Imprimir #32,">>"
    Imprimir #32,"endobj"
    Imprimir #32,"6 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"  /Font << /F1 4 0 R >>"
    Imprimir #32,"  /ProcSet [ /PDF /Texto ]"
    Imprimir #32,">>"
    Imprimir #32,"endobj"
    Imprimir #32,"7 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"/Type /Page"
    Imprimir #32,"/Parent 3 0 R"
    Imprimir #32,"/Resources 6 0 R"
    Imprimir #32,"/Contents 8 0 R"
    Imprimir #32,"/Rotate 0"
    Imprimir #32,">>"
    Imprimir #32,"endobj"
    Imprimir #32,"8 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"/Length 6 0 R"
    Imprimir #32,">>"
    Imprimir #32,"stream"
    Imprimir #32,"BT"
    Imprimir #32,"/F1 10 Tf"
    Imprimir #32,"1 0 0 1 54 676 Tm"
    '54 es Rand links
    '676 es Abstand 1. Textzeile vom Blattende
    Imprimir #32,"10 TL"
    Cerrar #32
    pdfjob%=9

ENDPROC

Proc NOT_PDF_INHALT

    Parámetros pdf_file$
    Declarar textpdf$
    Asignar #32,pdf_file$
    Append #32

    WhileLoop 0,%GetCount

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

    EndWhile

    Cerrar #32

ENDPROC

Proc NOT_PDF_SEITE

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

ENDPROC

Proc NOT_PDF_ENDE

    Parámetros pdf_file$
    Asignar #32,pdf_file$
    Append #32
    Imprimir #32,"() Tj"
    Imprimir #32,"/F1 10 Tf"
    Imprimir #32,"ET"
    Imprimir #32,"endstream"
    Imprimir #32,"endobj"
    Imprimir #32,"9 0 obj"
    Imprimir #32,"275"
    Imprimir #32,"endobj"
    Imprimir #32,"2 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"/Type /Catalog"
    Imprimir #32,"/Pages 3 0 R"
    Imprimir #32,">>"
    Imprimir #32,"endobj"
    Imprimir #32,"3 0 obj"
    Imprimir #32,"<<"
    Imprimir #32,"/Type /Pages"
    Conjunto("Decimals",0)
    Imprimir #32,"/Count "+str$(pSeite%)
    Imprimir #32,"/MediaBox [  0 0 595 842  ]"
    var pdfjob$="/Kids [ "
    Var pdfb%=7

    whileLoop pSeite%

        pdfjob$= pdfjob$ + str$(pdfb%)+ " 0 R "
        pdfb%=pdfb%+3
        '  Case p.Página%=2 :  Imprimir #32,"/Kids [ 7 0 R 10 0 R ]"
        '  Case p.Página%=3 :  Imprimir #32,"/Kids [ 7 0 R 10 0 R 13 0 R ]"

    EndWhile

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

ENDPROC

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



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

4.494 Views

Untitledvor 0 min.
iF30.12.2015
Sascha Haak20.01.2015
p.specht18.01.2015
maroro11.01.2015
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

Muemmelmann (3x)
Thomas Freier (2x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie