---

Hallo,

ich möchte ein Formular-Feld-Wert an eine anders Formular-Feld übergeben.

01>Public Function fZeichnungKarteFeldClone( _
02>  ByVal Session As SmApplic.SmSession, _
03>  ByVal recli As SmRecList.SmRecordList) As Boolean
04>
05>
06>  Dim NewObj As SmApplic.ISmObject = Nothing
07>
08>
09>  NewObj = GetCurrentObject(Session, recli)
10>  NewObj.Retrieve()
11>
12>  MessageBox.Show("Wert vorher -> " & NewObj.Value("CN_TB_DRWNUMBER").ToString)
13>  NewObj.Value("CN_TB_DRWNUMBER") = NewObj.Value("CN_TB_DRWNUMBER")
14>  MessageBox.Show("Wert nachher -> " & NewObj.Value("CN_TB_DRWNUMBER").ToString)
15>
16>  NewObj.Refresh()
17>
18>End Function

Problem:
-------
Die gewünschte Änderung wird in Zeile "14" beim Programmablauf angezeigt. Diese
Wird jedoch nicht auf dem Formular angezeigt.

Danke für Deine / Ihre  Hilfe

Infos:
------
SmarTeam Version:  V5R16 SP4
SDK: Visual Basic .NET 2.0

Das ist das 2. SmarTeam-Programm das ich erzeugen möchte.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wenn Du ein Object in der Datenbank verändern willst, ist das
NewObj.update oder
NewObj.updateex NewBehavior  falls Du mit dem NewBehavior z.B. das Rechtesystem ausschalten möchtest,  um die Änderung von jedem Mitarbeiter ausführen lassen zu können.

Wenn Du das Object in einer Profilkarte angezeigt hast und es dann gleich 'on the fly' aktualisiert anzeigen willst, aktualisiert Du entweder die GUI (Beispiele  dafür gibt es im Link2Folder Script im SmarTeam Script Verzeichnis oder auch in diesem Forum)  oder sende mit Sendkeys ein F5

Falls Du eine offnen Profilkarte im Einfügen oder Ändern Modus anpassen willst, musst Du die Werte im Thirdrec speichern und wieder zurück konvertieren.
Danach erscheint Dein Wert auch in der Oberfläche

Gruß
Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Danke ChristianS,

ich habe jetzt mit deiner Hilfe eine funktionierende Funktion aus der API-Reference-Hilfe gefunden:

schöne Grüße
Schmidberger Karl

--- schnipp ---

Public Function fZeichnungKarteFeldClone( _
    ByVal Session As SmApplic.SmSession, _
    ByVal recli As SmRecList.SmRecordList) As Boolean

    'deklaration
    Dim NewObj As SmApplic.ISmObject = Nothing

    'inizialisiere das objekt
    NewObj = GetCurrentObject(Session, recli)

    'schreibe einen wert in ein feld
    UpdateEx(NewObj, "XXL", "CN_TB_DRWNUMBER")

End Function

'diese funkton schreibt einen wert "MyValue" in ein formularfeld "Feld"
Function UpdateEx( _
    ByVal WorkObject As SmApplic.ISmObject, _
    ByVal MyValue As String, _
    ByVal Feld As String) As Boolean

    ' temp object for fixing SmartScript bug
    Dim TempObject As Object

    'user defined behavior for operation
    Dim Behavior As SmApplic.ISmBehavior

    ' Create object - user defined behavior
    Behavior = WorkObject.ObjectStore.DefaultBehavior.Clone

    ' Don't invoke attached scripts
    Behavior.InvokeScripts = False

    TempObject = WorkObject

    ' Assign new file to object
    TempObject.Value(Feld) = MyValue

    ' Updates object data in Database
    TempObject.UpdateEx(Behavior)

End Function

[Diese Nachricht wurde von Schmidberger Karl am 25. Jun. 2008 editiert.]

[Diese Nachricht wurde von Schmidberger Karl am 25. Jun. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP