bin langsam am verzweifeln und brauche Eure Hilfe . Über ein Waagensystem werden Dateien erstellt die unter anderem
auch die Namen der erstellten JPG-Dateien enthalten. Diese möchte ich als Vorschau mit den Wiegedaten anzeigen, alle
meine Versuche schlugen bisher fehl. Nachfolgend die Funktion :
Code: Alles auswählen
//
//---þ Anzeige der Wiege-Note
//
@ 001,001 DCSAY "LOT-Nummer/Referenz"
@ 001,020 DCSAY c0LOTNUMMER
@ 002,001 DCSAY "Gewogen durch"
@ 002,020 DCSAY cWaageName
@ 004,001 DCSAY "Anzahl"
@ 004,010 DCSAY "Netto-Gewicht"
@ 004,025 DCSAY "Datum"
@ 004,038 DCSAY "Bild-Datei"
_nZeile := 6
_nMax := Len( _aNoten )
For _nNext := 1 to _nMax
@ _nZeile,001 DCSAY _aNoten[ _nNext,5 ] PICTURE "999"
@ _nZeile,010 DCSAY _aNoten[ _nNext,8 ] PICTURE "99999"
@ _nZeile,025 DCSAY Left( _aNoten[ _nNext,9 ], 10 )
@ _nZeile,038 DCSAY _aNoten[ _nNext,11 ]
_nSumme += Val( _aNoten[ _nNext,8 ] )
_nZeile ++
Next _nNext
_nZeile ++
@ _nZeile,001 DCSAY "Gesamtgewicht aller gewogenen Packstcke"
_nZeile ++
@ _nZeile,001 DCSAY _nSumme PICTURE "99999"
@ _nZeile,007 DCSAY "KGS"
//
//---þ Bildvorschau
//
_nMax := Len( _aBilder )
_nZeile += 2
FOR _nNext := 1 TO _nMax
DO CASE
CASE _nNext == 1
Hier soll das 1. von n Bildern angezeigt werden
ENDCASE
NEXT _nNext
//
_nZeile += 2
@ _nZeile,003 DCPUSHBUTTON ;
CAPTION "Ok" ;
SIZE 14,1 ;
ACTION { || DC_ReadGuiEvent( DCGUI_EXIT_OK, GetList ) }
@ _nZeile,020 DCPUSHBUTTON ;
CAPTION "Drucken" ;
SIZE 14,1 ;
ACTION { || _DrkWiegeNote( aApp, _aNoten ) }
DCGETOPTIONS ;
NORESIZE;
NOMAXBUTTON ;
NOMINBUTTON ;
NOTASKBAR ;
NOESCAPEKEY ;
COLOR M->aSubDlgColor ;
SAYWIDTH 0 ;
HILITEGETS GRA_CLR_BLUE
DCREAD GUI FIT ENTEREXIT MODAL SETAPPWINDOW ;
OPTIONS GetOptions ;
TITLE "Anzeige Wiege-Note"
//
RETURN( .T. )