Revert "commit"
This commit is contained in:
221
SDL/Classes/ATLAS_Zabis/cATLAS_zbPos.vb
Normal file
221
SDL/Classes/ATLAS_Zabis/cATLAS_zbPos.vb
Normal file
@@ -0,0 +1,221 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cATLAS_zbPos_List
|
||||
Public LIST As New List(Of cATLAS_zbPos)
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(basman_nr, basman_nl, zbant_beznr, connArt)
|
||||
LOAD_LIST(basman_nr, basman_nl, zbant_beznr, connArt)
|
||||
'Wenn keine Enträge gefunden, dann mit History nochmal suchen
|
||||
If LIST.Count = 0 Then
|
||||
LOAD_LIST(basman_nr, basman_nl, zbant_beznr, True)
|
||||
End If
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(basman_nr, basman_nl, zbant_beznr, connArt, Optional History = False)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Dim conn As SqlConnection
|
||||
Select Case connArt
|
||||
Case "ATLAS" : conn = cSqlDb.GetNewOpenConnectionATLAS
|
||||
Case "ATLAS_SBG" : conn = cSqlDb.GetNewOpenConnectionATLAS_SBG
|
||||
End Select
|
||||
Dim sqlstr = "SELECT * FROM [zbpos] WHERE basman_nr=@basman_nr AND basman_nl=@basman_nl AND zbant_beznr=@zbant_beznr "
|
||||
If History Then sqlstr &= "UNION SELECT * FROM zbhpos WHERE basman_nr=@basman_nr AND basman_nl=@basman_nl AND zbant_beznr=@zbant_beznr"
|
||||
Using cmd As New SqlCommand(sqlstr, conn)
|
||||
cmd.Parameters.AddWithValue("@basman_nr", basman_nr)
|
||||
cmd.Parameters.AddWithValue("@basman_nl", basman_nl)
|
||||
cmd.Parameters.AddWithValue("@zbant_beznr", zbant_beznr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cATLAS_zbPos
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cATLAS_zbPos
|
||||
Property basman_nr As Object = Nothing
|
||||
Property basman_nl As Object = Nothing
|
||||
Property zbant_beznr As Object = Nothing
|
||||
Property zbant_regnr As Object = Nothing
|
||||
Property zbant_korant As Object = Nothing
|
||||
Property zbant_antart As Object = Nothing
|
||||
Property zbpos_posnr As Object = Nothing
|
||||
Property zbpos_wanr As Object = Nothing
|
||||
Property zbpos_wazus1 As Object = Nothing
|
||||
Property zbpos_wazus2 As Object = Nothing
|
||||
Property zbpos_verf As Object = Nothing
|
||||
Property zbpos_zuverf As Object = Nothing
|
||||
Property zbpos_wabes As Object = Nothing
|
||||
Property zbpos_txhiab As Object = Nothing
|
||||
Property zbpos_txzus As Object = Nothing
|
||||
Property zbpos_vrbort As Object = Nothing
|
||||
Property zbpos_abgort As Object = Nothing
|
||||
Property zbpos_uland As Object = Nothing
|
||||
Property zbpos_eigm As Object = Nothing
|
||||
Property zbpos_rohm As Object = Nothing
|
||||
Property zbpos_stkanz As Object = Nothing
|
||||
Property zbpos_stkart As Object = Nothing
|
||||
Property zbpos_stkzei As Object = Nothing
|
||||
Property zbpos_prnw As Object = Nothing
|
||||
Property zbpos_prverm As Object = Nothing
|
||||
Property zbpos_prnwnr As Object = Nothing
|
||||
Property zbpos_beabeg As Object = Nothing
|
||||
Property zbpos_qunorm As Object = Nothing
|
||||
Property zbpos_besver As Object = Nothing
|
||||
Property zbpos_beding As Object = Nothing
|
||||
Property zbpos_zollw As Object = Nothing
|
||||
Property zbpos_eust As Object = Nothing
|
||||
Property zbpos_rpreis As Object = Nothing
|
||||
Property zbpos_rabatt As Object = Nothing
|
||||
Property zbpos_skonto As Object = Nothing
|
||||
Property zbpos_waenet As Object = Nothing
|
||||
Property zbpos_knet As Object = Nothing
|
||||
Property zbpos_kznet As Object = Nothing
|
||||
Property zbpos_netto As Object = Nothing
|
||||
Property zbpos_mzahl As Object = Nothing
|
||||
Property zbpos_waemz As Object = Nothing
|
||||
Property zbpos_kmzahl As Object = Nothing
|
||||
Property zbpos_kzzahl As Object = Nothing
|
||||
Property zbpos_wmahst As Object = Nothing
|
||||
Property zbpos_meast As Object = Nothing
|
||||
Property zbpos_mgestk As Object = Nothing
|
||||
Property zbpos_ahwert As Object = Nothing
|
||||
Property zbpos_wmzoll As Object = Nothing
|
||||
Property zbpos_mezoll As Object = Nothing
|
||||
Property zbpos_wmazol As Object = Nothing
|
||||
Property zbpos_meazol As Object = Nothing
|
||||
Property zbpos_stat As Object = Nothing
|
||||
Property zbpos_edat As Object = Nothing
|
||||
Property zbpos_adat As Object = Nothing
|
||||
Property zbpos_sb As Object = Nothing
|
||||
Property zbpos_zosatz As Object = Nothing
|
||||
Property zbpos_eusatz As Object = Nothing
|
||||
Property zbpos_vesatz As Object = Nothing
|
||||
Property zbpos_prnw3 As Object = Nothing
|
||||
Property zbpos_qmeast As Object = Nothing
|
||||
Property zbpos_qmezol As Object = Nothing
|
||||
Property zbpos_qmeazo As Object = Nothing
|
||||
Property zbpos_artnr As Object = Nothing
|
||||
Property zbpos_frsatz As Object = Nothing
|
||||
Property zbpos_eucode As Object = Nothing
|
||||
Property zbpos_artprs As Object = Nothing
|
||||
Property zbpos_kostst As Object = Nothing
|
||||
Property zbpos_menge As Object = Nothing
|
||||
Property zbpos_meinh As Object = Nothing
|
||||
Property zbpos_qmeinh As Object = Nothing
|
||||
Property zbpos_kzber As Object = Nothing
|
||||
Property zbpos_zolabg As Object = Nothing
|
||||
Property zbpos_euabg As Object = Nothing
|
||||
Property zbpos_kzabw As Object = Nothing
|
||||
Property zbpos_kontnr As Object = Nothing
|
||||
Property zbpos_kontnr2 As Object = Nothing
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("basman_nr", basman_nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("basman_nl", basman_nl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_beznr", zbant_beznr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_regnr", zbant_regnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_korant", zbant_korant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_antart", zbant_antart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_posnr", zbpos_posnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wanr", zbpos_wanr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wazus1", zbpos_wazus1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wazus2", zbpos_wazus2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_verf", zbpos_verf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zuverf", zbpos_zuverf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wabes", zbpos_wabes))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_txhiab", zbpos_txhiab))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_txzus", zbpos_txzus))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_vrbort", zbpos_vrbort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_abgort", zbpos_abgort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_uland", zbpos_uland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eigm", zbpos_eigm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rohm", zbpos_rohm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkanz", zbpos_stkanz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkart", zbpos_stkart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkzei", zbpos_stkzei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnw", zbpos_prnw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prverm", zbpos_prverm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnwnr", zbpos_prnwnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_beabeg", zbpos_beabeg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qunorm", zbpos_qunorm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_besver", zbpos_besver))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_beding", zbpos_beding))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zollw", zbpos_zollw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eust", zbpos_eust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rpreis", zbpos_rpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rabatt", zbpos_rabatt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_skonto", zbpos_skonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_waenet", zbpos_waenet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_knet", zbpos_knet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kznet", zbpos_kznet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_netto", zbpos_netto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mzahl", zbpos_mzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_waemz", zbpos_waemz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kmzahl", zbpos_kmzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzzahl", zbpos_kzzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmahst", zbpos_wmahst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meast", zbpos_meast))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mgestk", zbpos_mgestk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_ahwert", zbpos_ahwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmzoll", zbpos_wmzoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mezoll", zbpos_mezoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmazol", zbpos_wmazol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meazol", zbpos_meazol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stat", zbpos_stat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_edat", zbpos_edat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_adat", zbpos_adat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_sb", zbpos_sb))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zosatz", zbpos_zosatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eusatz", zbpos_eusatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_vesatz", zbpos_vesatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnw3", zbpos_prnw3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeast", zbpos_qmeast))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmezol", zbpos_qmezol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeazo", zbpos_qmeazo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_artnr", zbpos_artnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_frsatz", zbpos_frsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eucode", zbpos_eucode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_artprs", zbpos_artprs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kostst", zbpos_kostst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_menge", zbpos_menge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meinh", zbpos_meinh))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeinh", zbpos_qmeinh))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzber", zbpos_kzber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zolabg", zbpos_zolabg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_euabg", zbpos_euabg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzabw", zbpos_kzabw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kontnr", zbpos_kontnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kontnr2", zbpos_kontnr2))
|
||||
Return list
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user