bb.donnay-software.com

Code: Select all

#INCLUDE "dcdialog.ch"

FUNCTION Main()

LOCAL GetList[0], oDataObject, cVarName := ''

oDataObject := DataObject():new()

oDataObject:name := 'Roger Donnay'
oDataObject:street1 := '1486 S. Loggers Pond Place'
oDataObject:street1 := 'Apt. 11'
oDataObject:city := 'Boise'
oDataObject:state := 'Idaho'
oDataObject:country := 'U.s.A.'

@ 0,0 DCLISTBOX cVarName LIST oDataObject SIZE 30,10

DCREAD GUI FIT

RETURN nil

* ---------

PROC appsys ; RETURN

Code: Select all

LOCAL aJahre         := {}
       LOCAL aVerzeichnisse := {}
       LOCAL cJahre         := ""
       LOCAL cVerzeichnis   := oSysPAra:doParaWs:datenbestand + "jahresabschluss\*"aVerzeichnisse := Directory(cVerzeichnis,"D")                            // nur Directories der Jahre
       IF Len(aVerzeichnisse) > 0
          SELECT field1 AS name FROM (aVerzeichnisse) AS jahr WHERE jahr->field1 <> "." .AND. jahr->field1 <> ".." INTO objects aJahre
       ENDIF
//------------------------------------------------------------------------------
       @ oDialogZusatz:nOben,oDialogZusatz:nLinks DCSAY "Jahr:";
                                                 OBJECT oDialogZusatz:oText;
                                                 PARENT oDialogZusatz:oRahmenKopf;
                                                   SIZE 0
       @ DCGUI_ROW,DCGUI_COL DCLISTBOX cJahre;
                                  LIST aJahre;
                                OBJECT oListbox;
                                PARENT oDialogZusatz:oRahmenKopf;
                                  SIZE oSysPara:SkaliereXbParts(100),oDialogZusatz:nSayHoehe