es gibt doch C:\ALASKA\XPPW32\Source\samples\solution\xbpget\EDITBROW.EXE
Frage : wie hänge ich einen "neuen" Datensatz an zu editieren ?
mir ist schon klar das die Navigation von METHOD XbpGetColumn:keyBoard( nKey ) gesteuert wird.
"darüber" gibt es aber auch oBrowse
Code: Alles auswählen
oBrowse:hitBottomBlock := { || PostAppEvent( xbeE_ArrayHitEOF,,, oDlg ) }
also nun in der Event Schleife mit xbeK_INS ( was nicht in XbpGetColumn:keyBoard() benutzt wird )
Code: Alles auswählen
CASE nEvent == xbeP_Keyboard .AND. mp1 == xbeK_INS
nLen := LEN( aArray[ ARR_SRC ] [ 1 ] )
IF nLen = 5
cAlias := aArray[ ARR_SRC ] [ 1 ] [ 5 ]
ENDIF
AADD( aPart, SPACE( 32 ) )
AADD( aPart, "C" )
AADD( aPart, 10 )
AADD( aPart, 0 )
IF !EMPTY( cAlias )
AADD( aPart, cAlias )
ENDIF
AADD( aArray[ ARR_SRC ], aPart )
nLen := LEN( aArray[ ARR_SRC ] )
aArray[ ARR_SORT ] := AEVAL( ARRAY( nLen ), { | x, i | x := i },,, .T. )
lFirst := .T.
oBrowse:goBottom()
PostAppEvent( xbeK_ENTER,,, oBrowse )
geht das nicht eleganter oder muss ich die ganze METHOD XbpGetColumn:keyBoard() "überschreiben" ?