in einer Maske wird ´kann nach der Lieferantenartikeln.r gesucht werden. in einem Sle-Feld aus der vorherigen maske wird die Nr. übergeben
diese wird mit softseek gesucht . Er steht in der Datenbank auf dem richtigen Satz. auch im browse wird dies richtig angezeigt.
sobald ich aber auf Auswahl klicke oder mit Doppelklick wird eine andere Lieferantenartikelnr. übernommen. in die ursprungsmaske.
in der datei lartnrsatz.txt steht auch die falsche Satz nr. drin.
hat jemand eine Idee ??
Code: Alles auswählen
oBrowse := GuiBrowseDb( oDlg, aPos, {680,220} )
use (cHeimat+"\TmpBestLiefArt") New
Index on Lartnr tag "1" to (cHeimat+"\TmpBestliefArt")
FOR i=1 TO Fcount()
cField:=FieldName( i )
* oBrowse:addColumn(FieldBlock(cField),,aSpalt[i])
oBrowseCol:=oBrowse:addColumn(FieldBlock(cField),,aSpalt[i],,)
oBrowseCol:Heading:LbClick := &("{||Sortiere("+Ltrim(Str(i,5,0))+"),oBrowse:RefreshAll()}")
oBrowse:itemSelected:={|| nSatz:=Eval(oBrowse:phyPosBlock),;
memowrit("lartnrsatz.txt",alltrim(str(nSatz))),PostAppEvent( xbeP_Close ) }
NEXT i
If !empty(aBest2[2][2])
Set Softseek on
cArtnr:=aBest2[2][2]
TmpBestLiefArt->(OrdSetFocus("1"))
TmpBestLiefArt->(DbSeek(aBest2[2][2]))
Set Softseek Off
oBrowse:refreshAll()
Endif
If TmpBestLiefArt->(LastRec()) =0
oParent:enable()
SetAppFocus(oParent)
Return Nil
EndIf
oXbp := XbpPushButton():new( drawingArea, , {300,020}, {80,20}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
oXbp:caption := "Auswahl"
oXbp:tabStop := .T.
oXbp:default:=.t.
oXbp:create()
oXbp:activate := {|| nSatz:=Eval(oBrowse:phyPosBlock),;
memowrit("lartnrsatz.txt",alltrim(str(nSatz))),PostAppEvent( xbeP_Close ) }