Hallo,
im Script kann der Parameter FormOperationMode ausgewertet werden. Anhand des Wertes kann entsprechend reagiert werden.
--------------------------------------------------------------------
Declare Sub CONV_RecListToComRecordList Lib "SmTdm32" (ByVal RecList As Long, ByRef COMRecList As ISmRecordList)
Declare Sub CONV_ComRecListToRecordList Lib "SmTdm32" (ByVal COMRecList As ISmRecordList, ByRef RecList As Long)
Function XY(ApplHndl As Long, SelectOp As String, FirstPar As Long, SecondPar As Long, ThirdPar As Long) As Integer
Const myFunction = "XY"
Print SelectOp;" is calling ";myfunction
CONV_RecListToCOMRecordList FirstPar, InputList
CONV_RecListToCOMRecordList SecondPar, ParameterList
CONV_RecListToCOMRecordList ThirdPar, ResultList
FormOperationName = ParameterList.ValueAsString(NM_FormOperationMode,0)
Select Case FormOperationName ' =============== NUR BEI BESTIMMTEN OPERATIONEN ==============
Case NM_OPER_ADD, NM_OPER_ADD_AS_COPY, NM_OPER_UPDATE
RetCode = Err_None
Case Else
MsgBox "Bitte nur bei Neueingabe bzw. Aktualisierung verwenden!"
RetCode = Err_None
End Select
End Function
--------------------------------------------------------------------
Hilft hoffentlich weiter.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP