mal wieder ein Verständnisproblem!?
wieso klappt die Anzeige der Variablen nicht?
Code: Alles auswählen
METHOD vo:AnzeigeStatistikStammdaten(cModus)
LOCAL nI := 0
LOCAL nX
LOCAL nY
LOCAL oVoInhalt
LOCAL oVostammInhalt
LOCAL oVostammTexte
LOCAL oVoTexte
// Anzeigetest
LOCAL aFelderVo := {;
{ "Datum Ankauf:" ,::datumak },;
{ "Datum verkauft:" ,::datumvk },;
{ "Datum erfasst:" ,::datumein },;
{ "Datum geliehen:" ,::datumleih },;
{ "Datum zurück:" ,::datumrueck },;
{ "Datum 1.Verleih:",},;
{ "Datum L.Verleih:",},;
{ "Leihmenge:" ,},;
{ "Leihquote %:" ,},;
{ "Umsatz Verleih:" ,},;
{ "Beilagen:" ,TRANSFORM(::nBeilagen,"99")};
}
LOCAL aFelderVostamm
LOCAL nDlgOben := 525
LOCAL nDlgUnten := 85
LOCAL nDlgLinks := 635
LOCAL nDlgRechts
MEMVAR oSysPara
MEMVAR oVostamm
aFelderVostamm := {;
{ "VO-Menge:" ,},;
{ "Datum VÖ:" ,oVostamm:datumvoe },;
{ "Datum 1.VK.:" ,},;
{ "Datum L.VK.:" ,},;
{ "Datum gestr.:" ,oVostamm:datumgestr },;
{ "Lagertage:" ,TRANSFORM(oVostamm:nLagertage,"9999") },;
{ "Streichtage:" ,TRANSFORM(oVostamm:nStreichtage,"9999") },;
{ "Stk.verkauft:" ,},;
{ "Stk.Ankauf:" ,},;
{ "VKStk.Internet:" ,TRANSFORM(::nInternetvk,"9999") },;
{ "VKStk.vor Ort:" ,TRANSFORM(::nLadenvk,"9999") };
}
nDlgRechts := oSysPara:aWSize[1]-nDlgLinks+20 // Rahmenparameter aus Systemdaten
IF cModus == "erzeugen"
::oDlgMaskeVOStammdaten := XbpDialog():new(SetAppWindow(),,{nDlgLinks,nDlgUnten},{nDlgRechts,nDlgOben})
::oDlgMaskeVOStammdaten:titleBar := .F. // damit nicht geschlossen werden kann, weil die Icons oben rechts nicht angebracht sins
::oDlgMaskeVOStammdaten:border := XBPDLG_RAISEDBORDERTHIN_FIXED
::oDlgMaskeVOStammdaten:create()
::oDlgMaskeVOStammdaten:setFontCompoundName("8.Helv.bold") // Setzen der Schriftart (welche?)
::oFensterVostamm := XbpStatic():new(::oDlgMaskeVOStammdaten,,{0,(nDlgOben-nDlgUnten)/2+16},{nDlgRechts-5,285})
::oFensterVostamm:type := XBPSTATIC_TYPE_GROUPBOX
::oFensterVostamm:caption := " VOSTAMM "
::oFensterVostamm:create()
::oFensterVo := XbpStatic():new(::oDlgMaskeVOStammdaten,,{0,0},{nDlgRechts-5,(nDlgOben-nDlgUnten)/2+15})
::oFensterVo:type := XBPSTATIC_TYPE_GROUPBOX
::oFensterVo:caption := " VO "
::oFensterVo:create()
ASort(aFelderVo,,,{|aX,aY| aX[1] < aY[1]}) // jetzt wird der Anzeigetext sortiert
ASort(aFelderVostamm,,,{|aX,aY| aX[1] < aY[1]}) // jetzt wird der Anzeigetext sortiert
nX := 5
nY := 202
FOR nI := 1 TO LEN(aFelderVo)
oVoTexte := XbpStatic():new(::oFensterVo, , {nX,nY}, {80,20})
oVoTexte:caption := aFelderVo[nI,1]
oVotexte:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
oVoTexte:create()
oVoTexte:setFontCompoundName("6.Helv")
nY -= 20
NEXT
nY := 250
FOR nI := 1 TO LEN(aFelderVostamm)
oVostammTexte := XbpStatic():new(::oFensterVostamm, , {nX,nY}, {80,20})
oVostammTexte:caption := aFelderVostamm[nI,1]
oVostammTexte:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
oVostammTexte:create()
oVostammTexte:setFontCompoundName("6.Helv")
nY -= 20
NEXT
ELSE
Code: Alles auswählen
ASort(aFelderVo,,Len(aFelderVo),{|aX,aY| aX[1] < aY[1]}) // jetzt wird der Anzeigetext sortiert
ASort(aFelderVostamm,,Len(aFelderVostamm),{|aX,aY| aX[1] < aY[1]}) // jetzt wird der Anzeigetext sortiert
nX := 90
nY := 202
FOR nI := 1 TO LEN(aFelderVo)
oVoInhalt := XbpStatic():new(::oFensterVo, , {nX,nY}, {80,20})
oVoInhalt:caption := aFelderVo[nI,2]
oVoInhalt:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_LEFT
oVoInhalt:create()
oVoInhalt:setFontCompoundName("6.Helv")
nY -= 20
NEXT
nY := 250
FOR nI := 1 TO LEN(aFelderVostamm)
oVostammInhalt := XbpStatic():new(::oFensterVostamm, , {nX,nY}, {80,20})
oVostammInhalt:caption := aFelderVostamm[nI,2]
oVostammInhalt:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_LEFT
oVostammInhalt:create()
oVostammInhalt:setFontCompoundName("6.Helv")
nY -= 20
NEXT
ENDIF
RETURN self
