49 lines
1.9 KiB
Plaintext
49 lines
1.9 KiB
Plaintext
' GetWinLineInternalProductNumber(ProductNumber : String, SerialNumber : String)
|
|
' ----------------------------------------------------------------------------
|
|
' Holt die interne ProductNumber (c002) aus der Artikelview, wenn es eine
|
|
' Seriennummer gibt, ansonsten passt der Wert aus dem Parameter
|
|
'
|
|
' Returns: Interne Artikelnummer
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 10.08.2020 / MK
|
|
' Version Date / Editor: 26.04.2021 / MP
|
|
' Version Number: 3.0.0.3
|
|
|
|
Function GetWinLineInternalProductNumber(ProductNumber, SerialNumber)
|
|
Set Conn = CWLStart.CurrentCompany.Connection
|
|
Err.Clear
|
|
|
|
If SerialNumber = "" Then
|
|
GetWinLineInternalProductNumber = ProductNumber
|
|
Else
|
|
SQL = "SELECT [c002] FROM [v021] (NOLOCK) WHERE [c011] = '"& ProductNumber &"' AND [c068] = '"& SerialNumber &"' AND (c038 IS NULL) " & SQLQuery_BasicWhere
|
|
|
|
Set Result = Conn.Select(SQL)
|
|
|
|
If DEBUG_ON = True Then
|
|
AddDebugLine "Querying for Internal Article Number.. " & vbNewline
|
|
AddDebugLine "Result Columns: " & Result
|
|
AddDebugLine "Result Rows: " & Result.RowCount
|
|
AddDebugLine "SQL: " & SQL
|
|
|
|
ShowDebugBox "GetWinLineInternalProductNumber"
|
|
End If
|
|
|
|
If Result < 0 Then
|
|
If err <> 0 Then
|
|
Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - GetWinLineInternalProductNumber"
|
|
Exit Function
|
|
Else
|
|
Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - GetWinLineInternalProductNumber"
|
|
Exit Function
|
|
End If
|
|
End If
|
|
|
|
GetWinLineInternalProductNumber = Result.Value("c002")
|
|
End If
|
|
End Function |