AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

Module: Reorg / Cleanup

Browse Source
This commit is contained in:
KammM
2024-11-21 17:24:16 +01:00
parent dc2562f8e6
commit e232695796
27 changed files with 1753 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
archive/Modules/Archiv/GetWinLineOriginalLineNumber.vbs
View File

@@ -1,10 +1,11 @@
' Version Date: 05.01.2021
Function GetWinLineOriginalLineNumber(OrderNumber, ArticleNumber, IsSerialNumberArticle)
Set Conn = CWLStart.CurrentCompany.Connection
If IsSerialNumberArticle = 1 Then
SQL = "SELECT TOP 1 c078 FROM t026 (NOLOCK) "
SQL = SQL & "WHERE c067 = '"& OrderNumber &"' AND c003 = '"& ArticleNumber &"' "
SQL = SQL & SQLQuery_BasicWhere
SQL = SQL & SQLQuery_OrderWhere
Set Result = Conn.Select(SQL)