Ich will mit nRet := LlPreviewDisplay( hJob, 'GutschrD.LL', 'F:\clfx\vie\', SetAppWindow():GetHWND() )
eine früher gedruckte Vorschaudatei anzeigen. Dies geht nun nicht mehr (weder unter XP noch
unter Win-7), obwohl der Fehlercode = 0 ist.
Zuletzt arbeitete ich mit LL-10 und da hat es funktioniert.
Entwicklung erfolgt unter Xbase++ 1.9.355 und LL-15
Entweder stehe ich auf der Leitung oder es gab diesbezüglich gravierende Änderungen für diese
Funktion.
Code: Alles auswählen
//------------L+L Previewdatei anzeigen (z.B. GutschrD.LL )
//
PROCEDURE ViewList( po_pare )
LOCAL n_ber, n_rec, hJob, nRet, c_prev
IF ValType( po_pare ) # 'O'
po_pare := MainWin()
ENDIF
SetAppWindow( po_pare )
c_prev := GetDirFile( po_pare, gc_dirview + '*.LL' )
IF .not. Empty( c_prev )
InfMess( 'Druckdatei holen und anzeigen' )
c_prev := Substr( c_prev, 1, At( '.', c_prev ) - 1 )
L9MODULEInit()
hJob := LlJobOpen(0) && L+L Job oeffnen und handle holen 0=deutsch
LlPreviewSetTempPath( hJob, gc_dirview )
InfMess()
nRet := LlPreviewDisplay(hJob, c_prev, gc_dirview,;
SetAppWindow():GetHWND())
IF nRet <> 0
InfoBoxA( 'View-Fehler: ' + Str( nRet ) )
ENDIF
LlJobClose(hJob) && L+L-Job beenden
L9MODULEExit()
ELSE
MsgBox( 'kein Dateiname als Rckgabe' )
ENDIF
RETURN
Vielleicht hat einer noch einen neuen Hinweis.
mfg wolfgang