edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb
View File

@@ -80,7 +80,7 @@ End Class
Public Class cVERAG_in_TRAviso_document
Public Property DocumentType As String = ""
Public Property DocmentNr As String = ""
Public Property DocumentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
Public Property base64BinaryStream As String = ""
Public Property FileName As String = ""
@@ -332,7 +332,7 @@ Public Class cVERAG_in_TRAvisoAnhaenge
Property trAvAh_id As Integer
Property trAvAh_trAvId As Integer
Property DocumentType As String = ""
Property DocmentNr As String = ""
Property DocumentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property trAvAh_docID As Integer
@@ -348,7 +348,7 @@ Public Class cVERAG_in_TRAvisoAnhaenge
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_id", trAvAh_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_trAvId", trAvAh_trAvId)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DocumentType)) ' DATETIME Default (getdate()) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DocmentNr)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DocumentNr)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DocumentDate)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_docID", trAvAh_docID)) ' VARCHAR(500) Not NULL,

44
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb
View File

@@ -32,9 +32,12 @@ Public Class cVERAG_in_eza_FULL
Sub New(EZA As cVERAG_in_eza)
Me.EZA = EZA
setEZA(EZA)
End Sub
Public Sub setEZA(EZA As cVERAG_in_eza)
Me.EZA = EZA
End Sub
Sub New(shTr_id As Integer)
Me.shTr_id = shTr_id
Me.EZA = New cVERAG_in_eza
@@ -121,6 +124,9 @@ Public Class cVERAG_in_eza_FULL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfPackages", POS.KindOfPackages))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceAmount", POS.ItemInvoiceAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceCurrency", POS.ItemInvoiceCurrency))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmount", POS.ItemAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmountUnitCode", POS.ItemAmountUnitCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Procedure", POS.Procedure))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_ShTrId", Me.shTr_id,,,, True))
@@ -135,7 +141,7 @@ Public Class cVERAG_in_eza_FULL
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_id", Me.shTr_id,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_ShTrId", Me.shTr_id))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DOC.DocmentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_docID", DOC.shTrPosDoc_docID))
@@ -176,7 +182,7 @@ Public Class cVERAG_in_eza_FULL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DOC.DocmentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrId", Me.shTr_id,,,, True))
@@ -395,9 +401,9 @@ Public Class cVERAG_in_eza_FULL
For Each i In getParameterList_ADR(l)
If Not i.isonlyForSave Then
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
End If
@@ -457,9 +463,9 @@ Public Class cVERAG_in_eza_FULL
For Each i In getParameterList_DOC(l, -1)
If Not i.isonlyForSave Then
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
End If
@@ -565,7 +571,9 @@ Public Class cVERAG_in_eza_FULL
'jetzt die Standartofferten einfügen
If POS.DOCUMENTS IsNot Nothing Then
For Each p In POS.DOCUMENTS
If INSERT_Position_Document(posId, p) Then
Dim posdocId As Integer
If INSERT_Position_Document(posdocId, p, posId) Then
Else
Return False
End If
@@ -637,7 +645,7 @@ Public Class cVERAG_in_eza_FULL
Public Function INSERT_Position_Document(ByRef posId As Integer, ByRef DOC As cVERAG_in_eza_position_document) As Boolean
Public Function INSERT_Position_Document(ByRef posdocId As Integer, ByRef DOC As cVERAG_in_eza_position_document, posId As Integer) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC, posId)
Dim str As String = ""
@@ -650,7 +658,12 @@ Public Class cVERAG_in_eza_FULL
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
SQL.doSQL("insert into tbltest (test) Values('TT:: " & (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") ") & "')", "FMZOLL")
Return SQL.doSQLVarListID(posdocId, (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
@@ -757,6 +770,9 @@ Public Class cVERAG_in_eza_position
Public Property KindOfPackages As String = ""
Public Property ItemInvoiceAmount As Object = Nothing
Public Property ItemInvoiceCurrency As String = ""
Public Property ItemAmount As Object = Nothing
Public Property ItemAmountUnitCode As String = ""
Public Property Procedure As String = ""
Public Property DOCUMENTS As New List(Of cVERAG_in_eza_position_document)
@@ -768,7 +784,7 @@ End Class
Public Class cVERAG_in_eza_position_document
Public Property DocumentType As String = ""
Public Property DocmentNr As String = ""
Public Property DocumentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
End Class
@@ -777,7 +793,7 @@ Public Class cVERAG_in_shipment_Document
Property shTrDoc_id As Integer
Property shTrDoc_ShTrId As Integer
Property DocumentType As String = ""
Property DocmentNr As String = ""
Property DocumentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property shTrPosDoc_docID As Object = Nothing