40 lines
1.4 KiB
Plaintext
40 lines
1.4 KiB
Plaintext
'TITLE: FORMEL-RÜCKSTAND
|
|
'Rückstand aus altem Lieferschein?
|
|
'Stand: MK // 14.04.2022
|
|
On Error resume next
|
|
|
|
WinLineCurrentMandatorNr = Cstr(CWLStart.CurrentCompany.Nr)
|
|
WinLineCurrentYear = cint(CWLStart.CurrentCompany.CompanyYear)
|
|
|
|
Auftragsnummer = Value (25,44)
|
|
Lieferscheinnummer = Value (25,45)
|
|
Projektnummer = Value (25,136)
|
|
|
|
SQLQuery_PredecessorDeliveryNote = "" &_
|
|
"SELECT TOP 1 [C045] from [v250] (NOLOCK) " & vbCrlf & _
|
|
"WHERE [c025] <> 'L' " & vbCrlf & _
|
|
" and [c044] = '" & Auftragsnummer & "' " & vbCrlf & _
|
|
" and [c045] IS NOT NULL " & vbCrlf & _
|
|
" and [c045] <> '" & Lieferscheinnummer & "' " & vbCrlf & _
|
|
" and [c100] > 0 " & vbCrlf & _
|
|
" and [c136] = '" & Projektnummer & "' " & vbCrlf & _
|
|
" and [c137] = 2 " & vbCrlf & _
|
|
" and [c139] in (3,-3) " & vbCrlf & _
|
|
" and [mesocomp] = '" & WinLineCurrentMandatorNr & "' " & vbCrlf & _
|
|
" and [mesoyear] in (" & WinLineCurrentYear & ",(" & WinLineCurrentYear & "-12)) " & vbCrlf & _
|
|
"Order by [C022] asc; "
|
|
|
|
Set Conn = CWLStart.CurrentCompany.Connection
|
|
If (Len(Auftragsnummer) > 0) and (Len(Projektnummer) > 0) Then
|
|
|
|
Set SQLQueryResult_PredecessorDeliveryNote = Conn.Select(SQLQuery_PredecessorDeliveryNote)
|
|
|
|
If (SQLQueryResult_PredecessorDeliveryNote.RowCount) > 0 Then
|
|
ResultValue = "Rückstand aus Lieferschein: " & SQLQueryResult_PredecessorDeliveryNote.value("c045")
|
|
Else
|
|
ResultValue = ""
|
|
End if
|
|
|
|
Else
|
|
ResultValue = ""
|
|
End If |