AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

Anlage des Repos

Browse Source
This commit is contained in:
KammM
2024-01-24 16:42:38 +01:00
commit 38d6a271c4
1785 changed files with 3051496 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
archive/Packtisch Modul/Packtisch 4.1.0.2/Modules/AllocatePseudoSerialNumbers.vbm Normal file
View File

@@ -0,0 +1,91 @@
' AllocatePseudoSerialNumbers()
' ----------------------------------------------------------------------------
' Stellt Methoden für den Zugriff auf die Tabelle Packtisch bereit
'
' Returns: -
' ----------------------------------------------------------------------------
' 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: 22.02.2022 / MP
' Version Date / Editor: 22.03.2022 / MP
' Version Number: 4.0.0.0
Function AllocatePseudoSerialNumbers(AuftragsNr, ArtikelNr, AmountToAllocate)
Set Conn = CWLStart.Connection
Err.Clear
Dim NowObject : NowObject = Now
Dim DateString : DateString = Year(NowObject) & "-" & GetLeftPad(Month(NowObject)) & "-" & GetLeftPad(Day(NowObject))
Dim TimeString : TimeString = GetLeftPad(Hour(NowObject)) & ":" & GetLeftPad(Minute(NowObject)) & ":" & GetLeftPad(Second(NowObject))
Dim RechnerName : RechnerName = GetWindowsEnvironment("COMPUTERNAME")
Dim AllocateSQL : AllocateSQL = ""
AllocateSQL = AllocateSQL & "select top " & AmountToAllocate & " c068 "
AllocateSQL = AllocateSQL & "from v021 (NOLOCK)"
AllocateSQL = AllocateSQL & "where c068 like '" & ArtikelNr & "-________-____' "
AllocateSQL = AllocateSQL & "and c038 is null "
AllocateSQL = AllocateSQL & "and (c008 - c009) = 1 "
AllocateSQL = AllocateSQL & "and c068 not in (SELECT PseudoSN from TBDD_PACKTISCH_HISTORY (NOLOCK) WHERE ArtikelNr = '" & ArtikelNr & "') "
AllocateSQL = AllocateSQL & SQLQuery_BasicWhere
AllocateSQL = AllocateSQL & " order by c068 asc"
Set Result = Conn.Select(AllocateSQL)
If DEBUG_ON = True Then
MsgBox "SQL:" & AllocateSQL, vbOkonly, DEBUG_TITLE
AddDebugLine "Searching For Order by OrderId (Mid Table).." & vbNewline & vbNewline
AddDebugLine "Result Columns: " & Result & vbNewline
AddDebugLine "Result Rows: " & Result.RowCount & vbNewline
AddDebugLine "AllocateSQL: " & AllocateSQL
ShowDebugBox "AllocatePseudoSerialNumbers"
End If
Dim PseudoArrayInternal()
PseudoArrayIndex = 0
Redim PseudoArrayInternal(AmountToAllocate)
If Result.RowCount < AmountToAllocate Then
Msgbox "Für Artikel " & ArtikelNr & " konnten nicht genug Pseudo-SN reserviert werden!", vbExclamation, DEFAULT_TITLE & " - AllocatePseudoSerialNumbers"
PseudoArrayInternal(0) = ""
AllocatePseudoSerialNumbers = PseudoArrayInternal
Exit Function
End If
Do: Do
PseudoSN = Result.Value("c068")
PseudoArrayInternal(PseudoArrayIndex) = PseudoSN
PseudoArrayIndex = PseudoArrayIndex + 1
InsertPacktischHistoryRow AuftragsNr, ArtikelNr, PseudoSN
Loop While False: Loop While Result.NextRecord = True
AllocatePseudoSerialNumbers = PseudoArrayInternal
End Function