neu
This commit is contained in:
@@ -131,9 +131,9 @@ Public Class MyDatagridview
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD()
|
||||
Public Sub LOAD(Optional showErr As Boolean = False, Optional ByRef errOccured As Boolean = False)
|
||||
If SQL_STR <> "" Then
|
||||
Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM)
|
||||
Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM, showErr, errOccured)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -747,7 +747,7 @@ Public Class SQL
|
||||
End Function
|
||||
|
||||
|
||||
Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing) As DataTable
|
||||
Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing, Optional showErr As Boolean = True, Optional ByRef errOccured As Boolean = False) As DataTable
|
||||
Try
|
||||
Dim myTable = New DataTable()
|
||||
Dim conn As New SqlConnection
|
||||
@@ -781,7 +781,8 @@ Public Class SQL
|
||||
' End Using
|
||||
Return myTable 'While Schleife wird hier verlassen
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql)
|
||||
If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql)
|
||||
errOccured = True
|
||||
End Try
|
||||
|
||||
Return Nothing
|
||||
|
||||
1493
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
Normal file
1493
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
Normal file
File diff suppressed because it is too large
Load Diff
@@ -245,6 +245,8 @@ Public Class cOfferte
|
||||
P.BGebMinBetrag = r("BGebMinBetrag")
|
||||
P.Eingegeben_am = Now
|
||||
'P.Geändert_am = XXXXXXXXX
|
||||
If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert")
|
||||
If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung
|
||||
P.Sachbearbeiter = Sachbearbeiter
|
||||
'P.Preisänderung = XXXXXXXXX
|
||||
'P.PreisänderungProzent = XXXXXXXXX
|
||||
@@ -285,6 +287,8 @@ Public Class cOfferte
|
||||
P.Eingegeben_am = Now
|
||||
'P.Geändert_am = XXXXXXXXX
|
||||
P.Sachbearbeiter = Sachbearbeiter
|
||||
If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert")
|
||||
If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung
|
||||
'P.Preisänderung = XXXXXXXXX
|
||||
'P.PreisänderungProzent = XXXXXXXXX
|
||||
'P.PreisAlt = XXXXXXXXX
|
||||
@@ -320,6 +324,7 @@ Public Class cOffertPosition
|
||||
Property Preisänderung As Object = Nothing
|
||||
Property PreisänderungProzent As Object = Nothing
|
||||
Property PreisAlt As Object = Nothing
|
||||
Property BerechnungsartPosInkludiert As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
@@ -346,6 +351,7 @@ Public Class cOffertPosition
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preisänderung", Preisänderung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisänderungProzent", PreisänderungProzent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisAlt", PreisAlt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartPosInkludiert", BerechnungsartPosInkludiert))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
@@ -101,6 +101,7 @@ Public Class cRechnungsausgang
|
||||
Property AvisoID As Object = Nothing
|
||||
Property KdAuftragsNr As Object = Nothing
|
||||
Property Handling As Object = Nothing
|
||||
Property VorschauID As Object = Nothing
|
||||
|
||||
|
||||
|
||||
@@ -238,6 +239,7 @@ Public Class cRechnungsausgang
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
@@ -441,11 +443,20 @@ Public Class cRechnungsausgang
|
||||
End Function
|
||||
|
||||
Public Function isReverseChargeSumme() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
'Wenn selbes Land --> Kein Reversecharge
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
|
||||
' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz)
|
||||
If RechnungsLandKz = FIRMA.Firma_LandKz Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim sqlstr = " SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme "
|
||||
sqlstr &= " FROM Rechnungsausgang as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
|
||||
sqlstr &= " WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
|
||||
|
||||
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, Nothing) Is Nothing, False, True)
|
||||
'MsgBox(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0))
|
||||
|
||||
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True)
|
||||
End Function
|
||||
|
||||
Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
|
||||
166
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
Normal file
166
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
Normal file
@@ -0,0 +1,166 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cTranslate_LIST
|
||||
|
||||
Public list As New List(Of cTranslate)
|
||||
Dim trs_progId
|
||||
|
||||
Sub New(trs_progId)
|
||||
Me.trs_progId = trs_progId
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_progId=@trs_progId ", conn)
|
||||
cmd.Parameters.AddWithValue("@trs_progId", trs_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim T As New cTranslate
|
||||
T.trs_id = dr("trs_id")
|
||||
T.trs_progName = dr("trs_progName")
|
||||
T.trs_object = dr("trs_object")
|
||||
T.trs_control = dr("trs_control")
|
||||
T.trs_subControl = dr("trs_subControl")
|
||||
T.trs_sprache = dr("trs_sprache")
|
||||
T.trs_text = dr("trs_text")
|
||||
list.Add(T)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
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 cTranslate
|
||||
Property trs_id As Integer
|
||||
Property trs_progId As String
|
||||
Property trs_progName As String
|
||||
Property trs_object As String
|
||||
Property trs_control As String
|
||||
Property trs_subControl As Object = Nothing
|
||||
Property trs_sprache As String
|
||||
Property trs_text As String
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(trs_id)
|
||||
Me.trs_id = trs_id
|
||||
LOAD()
|
||||
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("trs_id", trs_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progId", trs_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progName", trs_progName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_object", trs_object))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_control", trs_control))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_subControl", trs_subControl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTranslate WHERE trs_id=@trs_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_id=@trs_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@trs_id", trs_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
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
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTranslate] SET " & str & " WHERE trs_id=@trs_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblTranslate (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
9764
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb
generated
Normal file
9764
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
1930
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd
Normal file
1930
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd
Normal file
File diff suppressed because it is too large
Load Diff
1289
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb
generated
Normal file
1289
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
516
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd
Normal file
516
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd
Normal file
@@ -0,0 +1,516 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" version="1.0">
|
||||
<!--Generated by Turbo XML 2.3.1.100. Conforms to w3c http://www.w3.org/2001/XMLSchema-->
|
||||
<!--<xsd:element type="CL64"/>-->
|
||||
<!--<xsd:element type="CL71"/>-->
|
||||
<xsd:element name="ActRecINT1" type="CL32"/>
|
||||
<xsd:element name="PreDocTypAR21" type="CL14"/>
|
||||
<xsd:element name="ActRecMER7" type="CL32"/>
|
||||
<xsd:element name="AddTypADD11" type="CL25"/>
|
||||
<xsd:element name="CoARepING9" type="CL82"/>
|
||||
<xsd:element name="CoDRepING10" type="CL82"/>
|
||||
<xsd:element name="CouADD14" type="CL70"/>
|
||||
<xsd:element name="CouCod21" type="CL70"/>
|
||||
<xsd:element name="CouCod73" type="CL70"/>
|
||||
<xsd:element name="CouCod92" type="CL70"/>
|
||||
<xsd:element name="CouCodFrING4" type="CL70"/>
|
||||
<xsd:element name="CouCodFrLS12" type="CL70"/>
|
||||
<xsd:element name="CouCodGRT764" type="CL70"/>
|
||||
<xsd:element name="CouCodToING6" type="CL70"/>
|
||||
<xsd:element name="CouCodToLS14" type="CL70"/>
|
||||
<xsd:element name="CouGU624" type="CL70"/>
|
||||
<xsd:element name="CouRNR745" type="CL70"/>
|
||||
<xsd:element name="CouSysUNaBusFunCSU660" type="CL68"/>
|
||||
<xsd:element name="CouSysUNaTypCSU662" type="CL79"/>
|
||||
<xsd:element name="DayInTheWeeBEGDA63" type="CL105"/>
|
||||
<xsd:element name="DayInTheWeeENDDA66" type="CL105"/>
|
||||
<xsd:element name="ErrTypDER1" type="CL23"/>
|
||||
<xsd:element name="ErrTypER11" type="CL49"/>
|
||||
<xsd:element name="ErrTypINT6" type="CL23"/>
|
||||
<xsd:element name="ErrTypMER8" type="CL23"/>
|
||||
<xsd:element name="ErrTypSER2" type="CL23"/>
|
||||
<xsd:element name="EXCRepING12" type="CL82"/>
|
||||
<xsd:element name="EXPRepING11" type="CL82"/>
|
||||
<xsd:element name="FirAndLasTraMES23" type="CL28"/>
|
||||
<xsd:element name="IntSegTagINT3" type="CL33"/>
|
||||
<xsd:element name="MesContAgMER5" type="CL37"/>
|
||||
<xsd:element name="MesRelNoMER4" type="CL36"/>
|
||||
<xsd:element name="MesSegMER9" type="CL34"/>
|
||||
<xsd:element name="MesTypING1" type="CL60"/>
|
||||
<xsd:element name="MesTypMER2" type="CL1"/>
|
||||
<xsd:element name="MesTypMES20" type="CL60"/>
|
||||
<xsd:element name="MesTypTYP1" type="CL60"/>
|
||||
<xsd:element name="MesVerMER3" type="CL35"/>
|
||||
<xsd:element name="Mon85" type="CL26"/>
|
||||
<xsd:element name="Mon99" type="CL26"/>
|
||||
<xsd:element name="MonSER641" type="CL26"/>
|
||||
<xsd:element name="NotValForOthConPLIM2" type="CL71"/>
|
||||
<xsd:element name="NotValForOthConPLIM22" type="CL71"/>
|
||||
<xsd:element name="Ope288" type="CL24"/>
|
||||
<xsd:element name="RefNumCOL1" type="CL70"/>
|
||||
<xsd:element name="RefNumCUSOFFENTACTOFF701" type="CL70"/>
|
||||
<xsd:element name="RefNumCUSOFFFENT731" type="CL70"/>
|
||||
<!-- Error in DDNTA 10.10 This has been fixed in 10.30 -->
|
||||
<!-- <xsd:element name="RefNumEPR1" type="CL70"/> -->
|
||||
<xsd:element name="RefNumFIRENTCUSOFFIMP226" type="CL70"/>
|
||||
<xsd:element name="RefNumLODGCUSOFFIMP228" type="CL70"/>
|
||||
<xsd:element name="RefNumSUBENR909" type="CL70"/>
|
||||
<xsd:element name="RefNumSUBENTCUSOFFIMP247" type="CL70"/>
|
||||
<xsd:element name="RolFrLS13" type="CL83"/>
|
||||
<xsd:element name="RolToLS15" type="CL83"/>
|
||||
<xsd:element name="SecHEA358" type="CL117"/>
|
||||
<xsd:element name="SenGooCod309" type="CL64"/>
|
||||
<xsd:element name="SenGooCodSD22" type="CL64"/>
|
||||
<xsd:element name="SenGooGodGDS11" type="CL64"/>
|
||||
<xsd:element name="StatExpCodINF3" type="CL84"/>
|
||||
<xsd:element name="StatINF2" type="CL81"/>
|
||||
<xsd:element name="SynIdeMES1" type="CL21"/>
|
||||
<xsd:element name="SynVerNumMES2" type="CL22"/>
|
||||
<xsd:simpleType name="CL1">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="BANSTA"/>
|
||||
<xsd:enumeration value="CUSDEC"/>
|
||||
<xsd:enumeration value="CUSRES"/>
|
||||
<xsd:enumeration value="FINSTA"/>
|
||||
<xsd:enumeration value="GENRAL"/>
|
||||
<xsd:enumeration value="GESMES"/>
|
||||
<xsd:enumeration value="PARTTC"/>
|
||||
<xsd:enumeration value="SANCRT"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL105">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="1"/>
|
||||
<xsd:enumeration value="2"/>
|
||||
<xsd:enumeration value="3"/>
|
||||
<xsd:enumeration value="4"/>
|
||||
<xsd:enumeration value="5"/>
|
||||
<xsd:enumeration value="6"/>
|
||||
<xsd:enumeration value="7"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL117">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="1"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL21">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="UNOC"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL22">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="3"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL23">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="12"/>
|
||||
<xsd:enumeration value="13"/>
|
||||
<xsd:enumeration value="14"/>
|
||||
<xsd:enumeration value="15"/>
|
||||
<xsd:enumeration value="16"/>
|
||||
<xsd:enumeration value="18"/>
|
||||
<xsd:enumeration value="19"/>
|
||||
<xsd:enumeration value="2"/>
|
||||
<xsd:enumeration value="21"/>
|
||||
<xsd:enumeration value="22"/>
|
||||
<xsd:enumeration value="23"/>
|
||||
<xsd:enumeration value="26"/>
|
||||
<xsd:enumeration value="28"/>
|
||||
<xsd:enumeration value="29"/>
|
||||
<xsd:enumeration value="3"/>
|
||||
<xsd:enumeration value="32"/>
|
||||
<xsd:enumeration value="33"/>
|
||||
<xsd:enumeration value="35"/>
|
||||
<xsd:enumeration value="36"/>
|
||||
<xsd:enumeration value="37"/>
|
||||
<xsd:enumeration value="38"/>
|
||||
<xsd:enumeration value="39"/>
|
||||
<xsd:enumeration value="40"/>
|
||||
<xsd:enumeration value="6"/>
|
||||
<xsd:enumeration value="7"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL24">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="C"/>
|
||||
<xsd:enumeration value="D"/>
|
||||
<xsd:enumeration value="U"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL25">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="L"/>
|
||||
<xsd:enumeration value="S"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL26">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="01"/>
|
||||
<xsd:enumeration value="02"/>
|
||||
<xsd:enumeration value="03"/>
|
||||
<xsd:enumeration value="04"/>
|
||||
<xsd:enumeration value="05"/>
|
||||
<xsd:enumeration value="06"/>
|
||||
<xsd:enumeration value="07"/>
|
||||
<xsd:enumeration value="08"/>
|
||||
<xsd:enumeration value="09"/>
|
||||
<xsd:enumeration value="10"/>
|
||||
<xsd:enumeration value="11"/>
|
||||
<xsd:enumeration value="12"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL28">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="F"/>
|
||||
<xsd:enumeration value="L"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL32">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="4"/>
|
||||
<xsd:enumeration value="7"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL33">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="UNB"/>
|
||||
<xsd:enumeration value="UNZ"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL34">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="UNH"/>
|
||||
<xsd:enumeration value="UNT"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL35">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="D"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL36">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="96B"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL37">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="EC"/>
|
||||
<xsd:enumeration value="UN"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL14">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="235"/>
|
||||
<xsd:enumeration value="270"/>
|
||||
<xsd:enumeration value="271"/>
|
||||
<xsd:enumeration value="325"/>
|
||||
<xsd:enumeration value="380"/>
|
||||
<xsd:enumeration value="703"/>
|
||||
<xsd:enumeration value="704"/>
|
||||
<xsd:enumeration value="705"/>
|
||||
<xsd:enumeration value="720"/>
|
||||
<xsd:enumeration value="722"/>
|
||||
<xsd:enumeration value="730"/>
|
||||
<xsd:enumeration value="740"/>
|
||||
<xsd:enumeration value="741"/>
|
||||
<xsd:enumeration value="750"/>
|
||||
<xsd:enumeration value="760"/>
|
||||
<xsd:enumeration value="785"/>
|
||||
<xsd:enumeration value="787"/>
|
||||
<xsd:enumeration value="820"/>
|
||||
<xsd:enumeration value="821"/>
|
||||
<xsd:enumeration value="822"/>
|
||||
<xsd:enumeration value="823"/>
|
||||
<xsd:enumeration value="952"/>
|
||||
<xsd:enumeration value="955"/>
|
||||
<xsd:enumeration value="CLE"/>
|
||||
<xsd:enumeration value="IF3"/>
|
||||
<xsd:enumeration value="IF8"/>
|
||||
<xsd:enumeration value="MNS"/>
|
||||
<xsd:enumeration value="T2F"/>
|
||||
<xsd:enumeration value="T2L"/>
|
||||
<xsd:enumeration value="T2ATA"/>
|
||||
<xsd:enumeration value="T2"/>
|
||||
<xsd:enumeration value="T2M"/>
|
||||
<xsd:enumeration value="T2CIM"/>
|
||||
<xsd:enumeration value="T2TIR"/>
|
||||
<xsd:enumeration value="EX"/>
|
||||
<xsd:enumeration value="IM"/>
|
||||
<xsd:enumeration value="CO"/>
|
||||
<xsd:enumeration value="EU"/>
|
||||
<xsd:enumeration value="ZZZ"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL49">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="12"/>
|
||||
<xsd:enumeration value="13"/>
|
||||
<xsd:enumeration value="14"/>
|
||||
<xsd:enumeration value="15"/>
|
||||
<xsd:enumeration value="19"/>
|
||||
<xsd:enumeration value="26"/>
|
||||
<xsd:enumeration value="35"/>
|
||||
<xsd:enumeration value="37"/>
|
||||
<xsd:enumeration value="38"/>
|
||||
<xsd:enumeration value="39"/>
|
||||
<xsd:enumeration value="40"/>
|
||||
<xsd:enumeration value="90"/>
|
||||
<xsd:enumeration value="91"/>
|
||||
<xsd:enumeration value="92"/>
|
||||
<xsd:enumeration value="93"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL60">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="CC004A"/>
|
||||
<xsd:enumeration value="CC005A"/>
|
||||
<xsd:enumeration value="CC007A"/>
|
||||
<xsd:enumeration value="CC008A"/>
|
||||
<xsd:enumeration value="CC009A"/>
|
||||
<xsd:enumeration value="CC013B"/>
|
||||
<xsd:enumeration value="CC014A"/>
|
||||
<xsd:enumeration value="CC015A"/>
|
||||
<xsd:enumeration value="CC015B"/>
|
||||
<xsd:enumeration value="CC016A"/>
|
||||
<xsd:enumeration value="CC017B"/>
|
||||
<xsd:enumeration value="CC019A"/>
|
||||
<xsd:enumeration value="CC021A"/>
|
||||
<xsd:enumeration value="CC023A"/>
|
||||
<xsd:enumeration value="CC025A"/>
|
||||
<xsd:enumeration value="CC026A"/>
|
||||
<xsd:enumeration value="CC028A"/>
|
||||
<xsd:enumeration value="CC029B"/>
|
||||
<xsd:enumeration value="CC035A"/>
|
||||
<xsd:enumeration value="CC043A"/>
|
||||
<xsd:enumeration value="CC044A"/>
|
||||
<xsd:enumeration value="CC045A"/>
|
||||
<xsd:enumeration value="CC051B"/>
|
||||
<xsd:enumeration value="CC054A"/>
|
||||
<xsd:enumeration value="CC055A"/>
|
||||
<xsd:enumeration value="CC058A"/>
|
||||
<xsd:enumeration value="CC060A"/>
|
||||
<xsd:enumeration value="CC062A"/>
|
||||
<xsd:enumeration value="CC100A"/>
|
||||
<xsd:enumeration value="CC140A"/>
|
||||
<xsd:enumeration value="CC141A"/>
|
||||
<xsd:enumeration value="CC224A"/>
|
||||
<xsd:enumeration value="CC225A"/>
|
||||
<xsd:enumeration value="CC228A"/>
|
||||
<xsd:enumeration value="CC229A"/>
|
||||
<xsd:enumeration value="CC231A"/>
|
||||
<xsd:enumeration value="CC304A"/>
|
||||
<xsd:enumeration value="CC305A"/>
|
||||
<xsd:enumeration value="CC313A"/>
|
||||
<xsd:enumeration value="CC315A"/>
|
||||
<xsd:enumeration value="CC316A"/>
|
||||
<xsd:enumeration value="CC323A"/>
|
||||
<xsd:enumeration value="CC324A"/>
|
||||
<xsd:enumeration value="CC325A"/>
|
||||
<xsd:enumeration value="CC328A"/>
|
||||
<xsd:enumeration value="CC351A"/>
|
||||
<xsd:enumeration value="CC928A"/>
|
||||
<xsd:enumeration value="CD001B"/>
|
||||
<xsd:enumeration value="CD002A"/>
|
||||
<xsd:enumeration value="CD003B"/>
|
||||
<xsd:enumeration value="CD006A"/>
|
||||
<xsd:enumeration value="CD010A"/>
|
||||
<xsd:enumeration value="CD011A"/>
|
||||
<xsd:enumeration value="CD018A"/>
|
||||
<xsd:enumeration value="CD020A"/>
|
||||
<xsd:enumeration value="CD024A"/>
|
||||
<xsd:enumeration value="CD027A"/>
|
||||
<xsd:enumeration value="CD030B"/>
|
||||
<xsd:enumeration value="CD031B"/>
|
||||
<xsd:enumeration value="CD032B"/>
|
||||
<xsd:enumeration value="CD034A"/>
|
||||
<xsd:enumeration value="CD037A"/>
|
||||
<xsd:enumeration value="CD038B"/>
|
||||
<xsd:enumeration value="CD050B"/>
|
||||
<xsd:enumeration value="CD059A"/>
|
||||
<xsd:enumeration value="CD063A"/>
|
||||
<xsd:enumeration value="CD106A"/>
|
||||
<xsd:enumeration value="CD111A"/>
|
||||
<xsd:enumeration value="CD112A"/>
|
||||
<xsd:enumeration value="CD114A"/>
|
||||
<xsd:enumeration value="CD115B"/>
|
||||
<xsd:enumeration value="CD118A"/>
|
||||
<xsd:enumeration value="CD12A"/>
|
||||
<xsd:enumeration value="CD142A"/>
|
||||
<xsd:enumeration value="CD143A"/>
|
||||
<xsd:enumeration value="CD144A"/>
|
||||
<xsd:enumeration value="CD145A"/>
|
||||
<xsd:enumeration value="CD150A"/>
|
||||
<xsd:enumeration value="CD151A"/>
|
||||
<xsd:enumeration value="CD152A"/>
|
||||
<xsd:enumeration value="CD200A"/>
|
||||
<xsd:enumeration value="CD201A"/>
|
||||
<xsd:enumeration value="CD203A"/>
|
||||
<xsd:enumeration value="CD204A"/>
|
||||
<xsd:enumeration value="CD205A"/>
|
||||
<xsd:enumeration value="CD209A"/>
|
||||
<xsd:enumeration value="CD301A"/>
|
||||
<xsd:enumeration value="CD302A"/>
|
||||
<xsd:enumeration value="CD303A"/>
|
||||
<xsd:enumeration value="CD319A"/>
|
||||
<xsd:enumeration value="CD411A"/>
|
||||
<xsd:enumeration value="CD501A"/>
|
||||
<xsd:enumeration value="CD501B"/>
|
||||
<xsd:enumeration value="CD502A"/>
|
||||
<xsd:enumeration value="CD503A"/>
|
||||
<xsd:enumeration value="CD503B"/>
|
||||
<xsd:enumeration value="CD510A"/>
|
||||
<xsd:enumeration value="CD518A"/>
|
||||
<xsd:enumeration value="CD518B"/>
|
||||
<xsd:enumeration value="CD524A"/>
|
||||
<xsd:enumeration value="CD527A"/>
|
||||
<xsd:enumeration value="CD538A"/>
|
||||
<xsd:enumeration value="CD584A"/>
|
||||
<xsd:enumeration value="CD586A"/>
|
||||
<xsd:enumeration value="CD599A"/>
|
||||
<xsd:enumeration value="CD601A"/>
|
||||
<xsd:enumeration value="CD603A"/>
|
||||
<xsd:enumeration value="CD901B"/>
|
||||
<xsd:enumeration value="CD904A"/>
|
||||
<xsd:enumeration value="CD905A"/>
|
||||
<xsd:enumeration value="CD906A"/>
|
||||
<xsd:enumeration value="CD907A"/>
|
||||
<xsd:enumeration value="CD912A"/>
|
||||
<xsd:enumeration value="CD913A"/>
|
||||
<xsd:enumeration value="CD914A"/>
|
||||
<xsd:enumeration value="CD916A"/>
|
||||
<xsd:enumeration value="CD917A"/>
|
||||
<xsd:enumeration value="CD918A"/>
|
||||
<xsd:enumeration value="CD919A"/>
|
||||
<xsd:enumeration value="CD931B"/>
|
||||
<xsd:enumeration value="CD932B"/>
|
||||
<xsd:enumeration value="CDS01A"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL64">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="1"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL68">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="A"/>
|
||||
<xsd:enumeration value="B"/>
|
||||
<xsd:enumeration value="C"/>
|
||||
<xsd:enumeration value="D"/>
|
||||
<xsd:enumeration value="E"/>
|
||||
<xsd:enumeration value="F"/>
|
||||
<xsd:enumeration value="G"/>
|
||||
<xsd:enumeration value="H"/>
|
||||
<xsd:enumeration value="I"/>
|
||||
<xsd:enumeration value="J"/>
|
||||
<xsd:enumeration value="K"/>
|
||||
<xsd:enumeration value="L"/>
|
||||
<xsd:enumeration value="M"/>
|
||||
<xsd:enumeration value="N"/>
|
||||
<xsd:enumeration value="O"/>
|
||||
<xsd:enumeration value="P"/>
|
||||
<xsd:enumeration value="Q"/>
|
||||
<xsd:enumeration value="S"/>
|
||||
<xsd:enumeration value="T"/>
|
||||
<xsd:enumeration value="U"/>
|
||||
<xsd:enumeration value="V"/>
|
||||
<xsd:enumeration value="W"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL70">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="AD"/>
|
||||
<xsd:enumeration value="AT"/>
|
||||
<xsd:enumeration value="BE"/>
|
||||
<xsd:enumeration value="BG"/>
|
||||
<xsd:enumeration value="CH"/>
|
||||
<xsd:enumeration value="CY"/>
|
||||
<xsd:enumeration value="CZ"/>
|
||||
<xsd:enumeration value="DE"/>
|
||||
<xsd:enumeration value="DK"/>
|
||||
<xsd:enumeration value="EE"/>
|
||||
<xsd:enumeration value="ES"/>
|
||||
<xsd:enumeration value="FI"/>
|
||||
<xsd:enumeration value="FR"/>
|
||||
<xsd:enumeration value="GB"/>
|
||||
<xsd:enumeration value="GR"/>
|
||||
<xsd:enumeration value="HU"/>
|
||||
<xsd:enumeration value="IE"/>
|
||||
<xsd:enumeration value="IS"/>
|
||||
<xsd:enumeration value="IT"/>
|
||||
<xsd:enumeration value="LT"/>
|
||||
<xsd:enumeration value="LU"/>
|
||||
<xsd:enumeration value="LV"/>
|
||||
<xsd:enumeration value="MT"/>
|
||||
<xsd:enumeration value="NL"/>
|
||||
<xsd:enumeration value="NO"/>
|
||||
<xsd:enumeration value="PL"/>
|
||||
<xsd:enumeration value="PT"/>
|
||||
<xsd:enumeration value="RO"/>
|
||||
<xsd:enumeration value="SE"/>
|
||||
<xsd:enumeration value="SI"/>
|
||||
<xsd:enumeration value="SK"/>
|
||||
<xsd:enumeration value="SM"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL71">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="AD"/>
|
||||
<xsd:enumeration value="CH"/>
|
||||
<xsd:enumeration value="IS"/>
|
||||
<xsd:enumeration value="NO"/>
|
||||
<xsd:enumeration value="SM"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL79">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="N"/>
|
||||
<xsd:enumeration value="S"/>
|
||||
<xsd:enumeration value="U"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL81">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="CM"/>
|
||||
<xsd:enumeration value="CN"/>
|
||||
<xsd:enumeration value="NF"/>
|
||||
<xsd:enumeration value="PN"/>
|
||||
<xsd:enumeration value="UM"/>
|
||||
<xsd:enumeration value="UQ"/>
|
||||
<xsd:enumeration value="UR"/>
|
||||
<xsd:enumeration value="W0"/>
|
||||
<xsd:enumeration value="W8"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL82">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="0"/>
|
||||
<xsd:enumeration value="1"/>
|
||||
<xsd:enumeration value="2"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL83">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="CA"/>
|
||||
<xsd:enumeration value="DE"/>
|
||||
<xsd:enumeration value="DS"/>
|
||||
<xsd:enumeration value="HA"/>
|
||||
<xsd:enumeration value="NR"/>
|
||||
<xsd:enumeration value="TR"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="CL84">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="1"/>
|
||||
<xsd:enumeration value="2"/>
|
||||
<xsd:enumeration value="3"/>
|
||||
<xsd:enumeration value="4"/>
|
||||
<xsd:enumeration value="5"/>
|
||||
<xsd:enumeration value="6"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:schema>
|
||||
33
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb
generated
Normal file
33
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb
generated
Normal file
@@ -0,0 +1,33 @@
|
||||
'' ------------------------------------------------------------------------------
|
||||
'' <auto-generated>
|
||||
'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com
|
||||
'' <NameSpace>Constraints4</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><DataMemberNameArg>OnlyIfDifferent</DataMemberNameArg><DataMemberOnXmlIgnore>False</DataMemberOnXmlIgnore><CodeBaseTag>Net45</CodeBaseTag><InitializeFields>All</InitializeFields><GenerateUnusedComplexTypes>True</GenerateUnusedComplexTypes><GenerateUnusedSimpleTypes>True</GenerateUnusedSimpleTypes><GenerateXMLAttributes>True</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableLazyLoading>False</EnableLazyLoading><VirtualProp>False</VirtualProp><PascalCase>False</PascalCase><AutomaticProperties>False</AutomaticProperties><PropNameSpecified>None</PropNameSpecified><PrivateFieldName>StartWithUnderscore</PrivateFieldName><PrivateFieldNamePrefix></PrivateFieldNamePrefix><EnableRestriction>False</EnableRestriction><RestrictionMaxLenght>False</RestrictionMaxLenght><RestrictionRegEx>False</RestrictionRegEx><RestrictionRange>False</RestrictionRange><ValidateProperty>False</ValidateProperty><ClassNamePrefix></ClassNamePrefix><ClassLevel>Public</ClassLevel><PartialClass>True</PartialClass><ClassesInSeparateFiles>False</ClassesInSeparateFiles><ClassesInSeparateFilesDir></ClassesInSeparateFilesDir><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><EnableAppInfoSettings>False</EnableAppInfoSettings><EnableExternalSchemasCache>False</EnableExternalSchemasCache><EnableDebug>False</EnableDebug><EnableWarn>True</EnableWarn><ExcludeImportedTypes>True</ExcludeImportedTypes><ExpandNesteadAttributeGroup>True</ExpandNesteadAttributeGroup><CleanupCode>False</CleanupCode><EnableXmlSerialization>True</EnableXmlSerialization><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><EnableEncoding>False</EnableEncoding><EnableXMLIndent>True</EnableXMLIndent><IndentChar>Indent2Space</IndentChar><NewLineAttr>False</NewLineAttr><OmitXML>False</OmitXML><Encoder>UTF8</Encoder><Serializer>XmlSerializer</Serializer><sspNullable>False</sspNullable><sspString>False</sspString><sspCollection>False</sspCollection><sspComplexType>False</sspComplexType><sspSimpleType>False</sspSimpleType><sspEnumType>False</sspEnumType><XmlSerializerEvent>False</XmlSerializerEvent><BaseClassName>EntityBase</BaseClassName><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><CustomUsings></CustomUsings><AttributesToExlude></AttributesToExlude>
|
||||
'' </auto-generated>
|
||||
'' ------------------------------------------------------------------------------
|
||||
Imports System
|
||||
Imports System.Diagnostics
|
||||
Imports System.Xml.Serialization
|
||||
Imports System.Collections
|
||||
Imports System.Xml.Schema
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports System.Collections.Generic
|
||||
|
||||
Namespace Constraints4
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlRootAttribute("AckReqMES16", [Namespace]:="", IsNullable:=False)>
|
||||
Public Enum CL27
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("0")>
|
||||
Item0
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("1")>
|
||||
Item1
|
||||
End Enum
|
||||
End Namespace
|
||||
182
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd
Normal file
182
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd
Normal file
@@ -0,0 +1,182 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!-- edited with XMLSpy v2006 sp2 U (http://www.altova.com) by xmlspy_ent_2006_1 - - (INTRASOFT International S.A.) -->
|
||||
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" version="1.0">
|
||||
<xsd:element name="AckReqMES16" type="CL27"/>
|
||||
<xsd:element name="DatOfPreMES9">
|
||||
<xsd:simpleType>
|
||||
<xsd:list itemType="Date_6_8"/>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="TimOfPreMES10" type="Time"/>
|
||||
<xsd:simpleType name="CL27">
|
||||
<xsd:restriction base="xsd:nonNegativeInteger">
|
||||
<xsd:enumeration value="0"/>
|
||||
<xsd:enumeration value="1"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="Date_8">
|
||||
<xsd:restriction base="xsd:nonNegativeInteger">
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="Date_6_8">
|
||||
<xsd:restriction base="xsd:nonNegativeInteger">
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="Time">
|
||||
<xsd:restriction base="xsd:nonNegativeInteger">
|
||||
<xsd:totalDigits value="4"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:element name="WaiForDisResEXR67" type="CL27"/>
|
||||
<xsd:element name="StaOfTheSeaOKEXR70" type="CL27"/>
|
||||
<xsd:element name="CanIniByCusHEA94" type="CL27"/>
|
||||
<xsd:element name="TesIndMES18" type="CL27"/>
|
||||
<xsd:element name="ConIndHEA96" type="CL27"/>
|
||||
<xsd:element name="ExpFroECMT24" type="CL27"/>
|
||||
<xsd:element name="SimProFlaHEA132" type="CL27"/>
|
||||
<xsd:element name="AlrInNCTCTL29" type="CL27"/>
|
||||
<xsd:element name="IncFlaINC3" type="CL27"/>
|
||||
<xsd:element name="CanDecHEA93" type="CL27"/>
|
||||
<xsd:element name="AmeTypFlaCL628" type="CL27"/>
|
||||
<xsd:element name="NotValForECVLE1" type="CL27"/>
|
||||
<xsd:element name="RelReqHEA105" type="CL27"/>
|
||||
<xsd:element name="BinItiHEA246" type="CL27"/>
|
||||
<xsd:element name="ComConAR211" type="CL27"/>
|
||||
<xsd:element name="EnqAtDesHEA99" type="CL27"/>
|
||||
<xsd:element name="WaiForDisResERS67" type="CL27"/>
|
||||
<xsd:element name="StaOfTheSeaOKERS70" type="CL27"/>
|
||||
<xsd:element name="StaOfTheSeaOKREM19" type="CL27"/>
|
||||
<xsd:element name="TraNotCL630" type="CL27"/>
|
||||
<xsd:element name="NCTRetCopHEA104" type="CL27"/>
|
||||
<xsd:element name="NotValForECCMG2" type="CL27"/>
|
||||
<xsd:element name="NotValForECVLD1" type="CL27"/>
|
||||
<xsd:element name="TraDed34" type="CL27"/>
|
||||
<xsd:element name="Spa55" type="CL27"/>
|
||||
<xsd:element name="PreFla52" type="CL27"/>
|
||||
<xsd:element name="EECTerLim312" type="CL27"/>
|
||||
<xsd:element name="LimValREF239" type="CL27"/>
|
||||
<xsd:element name="LimValCMP22" type="CL27"/>
|
||||
<xsd:element name="LimValVOU748" type="CL27"/>
|
||||
<xsd:element name="ResUseREF240" type="CL27"/>
|
||||
<xsd:element name="ResUseCMP23" type="CL27"/>
|
||||
<xsd:element name="TIRCarREF29" type="CL27"/>
|
||||
<xsd:element name="TIRCarVOU749" type="CL27"/>
|
||||
<xsd:element name="ComConMT26" type="CL27"/>
|
||||
<xsd:element name="ComConGS28" type="CL27"/>
|
||||
<xsd:element name="HarCopGivToPriREF27" type="CL27"/>
|
||||
<xsd:element name="HarCopGivToPriVOU747" type="CL27"/>
|
||||
<xsd:element name="InfAvaFLU1" type="CL27"/>
|
||||
<xsd:element name="ComConNR22" type="CL27"/>
|
||||
<xsd:element name="ConREM65" type="CL27"/>
|
||||
<xsd:element name="UnlComREM66" type="CL27"/>
|
||||
<xsd:element name="InfAvaENQ703" type="CL27"/>
|
||||
<xsd:element name="TCRDelByCusENQ704" type="CL27"/>
|
||||
<xsd:element name="TraHEA1" type="CL27"/>
|
||||
<xsd:element name="EnqEngAtDesENQ708" type="CL27"/>
|
||||
<xsd:element name="MovUnkAtDes707" type="CL27"/>
|
||||
<xsd:element name="FinOrParShiFlaTDD1" type="CL27"/>
|
||||
<!--xsd:element name = "TraAutCL625" type = "CL27"/-->
|
||||
<xsd:element name="GuaNotValCAF626" type="CL27"/>
|
||||
<xsd:element name="StoFlaHEA1" type="CL27"/>
|
||||
<xsd:element name="ComConDC27" type="CL27"/>
|
||||
<xsd:element name="ComConSD25" type="CL27"/>
|
||||
<xsd:element name="ConUnlCL130" type="CL27"/>
|
||||
<xsd:element name="EntRejMotCodGOOITEGDS911" type="CL27"/>
|
||||
<xsd:element name="EntRejMotCodHEA102" type="CL27"/>
|
||||
<xsd:element name="RecAccRECOV370" type="CL27"/>
|
||||
<xsd:element name="RecRetCodING8" type="CL27"/>
|
||||
<xsd:element name="SusGooFlaCL624" type="CL27"/>
|
||||
<xsd:element name="TC11DelENQ155" type="CL27"/>
|
||||
<xsd:element name="TraDoc199" type="CL27"/>
|
||||
<xsd:element name="ExtrHEA982" type="CL27"/>
|
||||
<xsd:element name="IncNotCL629" type="CL27"/>
|
||||
<xsd:element name="NotValForECVLE21" type="CL27"/>
|
||||
<xsd:element name="InfOnPapAvaENQ790" type="CL27"/>
|
||||
<xsd:element name="InfPapAvailINF364" type="CL27"/>
|
||||
<xsd:element name="InfPrinAvailENQ147" type="CL27"/>
|
||||
<xsd:element name="CouHolVarHolDat" type="CL27"/>
|
||||
<xsd:element name="SenGooFlaCL763" type="CL27"/>
|
||||
<xsd:element name="AccDatHEA158" type="Date_8"/>
|
||||
<xsd:element name="DatOfExiPSX1" type="Date_8"/>
|
||||
<xsd:element name="AmeAccDatHEA602" type="Date_8"/>
|
||||
<xsd:element name="DecRegDatHEA1" type="Date_8"/>
|
||||
<xsd:element name="AccDatREF24" type="Date_8"/>
|
||||
<xsd:element name="IssDatHEA186" type="Date_8"/>
|
||||
<xsd:element name="DatLimResHEA144" type="Date_8"/>
|
||||
<xsd:element name="DatLimERS89" type="Date_8"/>
|
||||
<xsd:element name="ManRegDatHEA418" type="Date_8"/>
|
||||
<xsd:element name="ManRejDatHEA419" type="Date_8"/>
|
||||
<xsd:element name="ExiDatHEA1" type="Date_8"/>
|
||||
<xsd:element name="ExtStoDatEXR68" type="Date_8"/>
|
||||
<xsd:element name="AmdDatHEA599" type="Date_8"/>
|
||||
<xsd:element name="ArrDatHEA140" type="Date_8"/>
|
||||
<xsd:element name="ArrNotDatHEA141" type="Date_8"/>
|
||||
<xsd:element name="DateInfRecNonExitExpFOLUP415" type="Date_8"/>
|
||||
<xsd:element name="DatLimERS69" type="Date_8"/>
|
||||
<xsd:element name="DatOfPreHEA1" type="Date_8"/>
|
||||
<xsd:element name="ExiDatFLU1" type="Date_8"/>
|
||||
<xsd:element name="FolUpDatFLU1" type="Date_8"/>
|
||||
<xsd:element name="EndDatINC6" type="Date_8"/>
|
||||
<xsd:element name="EndDatSHP60" type="Date_8"/>
|
||||
<xsd:element name="ArrRejDatHEA142" type="Date_8"/>
|
||||
<xsd:element name="DatOfCanReqHEA147" type="Date_8"/>
|
||||
<xsd:element name="DatOfCanDecHEA146" type="Date_8"/>
|
||||
<xsd:element name="DatOfCanHEA145" type="Date_8"/>
|
||||
<xsd:element name="DecDatHEA383" type="Date_8"/>
|
||||
<xsd:element name="RelReqDatHEA154" type="Date_8"/>
|
||||
<xsd:element name="DatOfRelReqRejHEA155" type="Date_8"/>
|
||||
<xsd:element name="ConDatERS14" type="Date_8"/>
|
||||
<xsd:element name="DisNotDatHEA608" type="Date_8"/>
|
||||
<xsd:element name="GuaNotDatHEA727" type="Date_8"/>
|
||||
<xsd:element name="GooRelDatHEA176" type="Date_8"/>
|
||||
<xsd:element name="NCTEntDat25" type="Date_8"/>
|
||||
<xsd:element name="NCTEntDat85" type="Date_8"/>
|
||||
<xsd:element name="ValDat103" type="Date_8"/>
|
||||
<xsd:element name="ValDatREF242" type="Date_8"/>
|
||||
<xsd:element name="InvDatREF232" type="Date_8"/>
|
||||
<xsd:element name="ValDatCMP16" type="Date_8"/>
|
||||
<xsd:element name="InvDatCMP17" type="Date_8"/>
|
||||
<xsd:element name="SeaStaDat60" type="Date_8"/>
|
||||
<xsd:element name="SeaEndDat61" type="Date_8"/>
|
||||
<xsd:element name="VarHolCouHolDat" type="Date_8"/>
|
||||
<xsd:element name="TCCEntDat84" type="Date_8"/>
|
||||
<xsd:element name="DatOfOTSDivArrAdHEA151" type="Date_8"/>
|
||||
<xsd:element name="PerFroQUE2" type="Date_8"/>
|
||||
<xsd:element name="PerToDatQUE3" type="Date_8"/>
|
||||
<xsd:element name="RecNotDatHEA766" type="Date_8"/>
|
||||
<xsd:element name="LocDatUSA4" type="Date_8"/>
|
||||
<xsd:element name="ArrDatUSA5" type="Date_8"/>
|
||||
<xsd:element name="DatOfRelHEA701" type="Date_8"/>
|
||||
<xsd:element name="DatOfRelUSA6" type="Date_8"/>
|
||||
<xsd:element name="LiaLibDatCMP21" type="Date_8"/>
|
||||
<xsd:element name="LiaLibDatREF238" type="Date_8"/>
|
||||
<xsd:element name="DatOfIssREF25" type="Date_8"/>
|
||||
<xsd:element name="DatOfIssVOU745" type="Date_8"/>
|
||||
<xsd:element name="ExpDatREF26" type="Date_8"/>
|
||||
<xsd:element name="ExpDatVOU746" type="Date_8"/>
|
||||
<xsd:element name="UnlDatREM67" type="Date_8"/>
|
||||
<xsd:element name="WriOffDatHEA619" type="Date_8"/>
|
||||
<xsd:element name="UnlRemRejDatHEA218" type="Date_8"/>
|
||||
<xsd:element name="CanEnqNotDatHEA751" type="Date_8"/>
|
||||
<xsd:element name="DatOfConNotHEA148" type="Date_8"/>
|
||||
<xsd:element name="RecComDatHEA143" type="Date_8"/>
|
||||
<xsd:element name="DateEnqReqENQ140" type="Date_8"/>
|
||||
<xsd:element name="CollDateRECOV369" type="Date_8"/>
|
||||
<xsd:element name="RecComDatRECOV371" type="Date_8"/>
|
||||
<xsd:element name="DatReqNonArrMovHEA149" type="Date_8"/>
|
||||
<xsd:element name="DatOfInfRecOnNonArrMovENQ702" type="Date_8"/>
|
||||
<xsd:element name="DelDatENQ706" type="Date_8"/>
|
||||
<xsd:element name="EnqDatENQ705" type="Date_8"/>
|
||||
<xsd:element name="EnqRemDatENQ710" type="Date_8"/>
|
||||
<xsd:element name="DatOfEnqResHEA765" type="Date_8"/>
|
||||
<xsd:element name="DatOfPasPAS627" type="Date_8"/>
|
||||
<xsd:element name="DatOfUsaCanHEA700" type="Date_8"/>
|
||||
<xsd:element name="AmeRejDatHEA603" type="Date_8"/>
|
||||
<xsd:element name="DisSolNotDatHEA611" type="Date_8"/>
|
||||
<xsd:element name="EnqNotDatHEA615" type="Date_8"/>
|
||||
<xsd:element name="DecRejDatHEA159" type="Date_8"/>
|
||||
<xsd:element name="OpeHouTimFirPerF64" type="Time"/>
|
||||
<xsd:element name="OpeHouTimFirPerT65" type="Time"/>
|
||||
<xsd:element name="OpeHouTimSecPerF67" type="Time"/>
|
||||
<xsd:element name="OpeHouTimSecPerT68" type="Time"/>
|
||||
</xsd:schema>
|
||||
1543
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb
Normal file
1543
VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb
Normal file
File diff suppressed because it is too large
Load Diff
@@ -237,9 +237,10 @@
|
||||
|
||||
'DATEIPFAD für Stammdaten
|
||||
'-------------------------------------------------------------------------------------------
|
||||
Dim pathKD = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim pathArchivKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
pathKD = pathArchivKD 'TEST
|
||||
Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim pathKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
'pathKD = pathArchivKD 'TEST
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
|
||||
'pathArchivKD = ""
|
||||
@@ -249,42 +250,48 @@
|
||||
'-------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
Dim fileKD As System.IO.StreamWriter
|
||||
Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
|
||||
fileKD.WriteLine(genStammdatenBeginn())
|
||||
If True Then 'boolKunden Then
|
||||
'----------------- STAMMDATEN -----------------
|
||||
Dim dt_Stamm As DataTable = getStammdaten()
|
||||
If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
|
||||
|
||||
Dim fileKD As System.IO.StreamWriter
|
||||
Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
|
||||
fileKD.WriteLine(genStammdatenBeginn())
|
||||
|
||||
|
||||
|
||||
initKDNr(dt_Stamm)
|
||||
For Each r In dt_Stamm.Rows
|
||||
fileKD.WriteLine(getPersonenKto(r))
|
||||
Next
|
||||
bool_DatenVorhanden = True
|
||||
|
||||
|
||||
fileKD.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchivKD <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
|
||||
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(pathKD & DateinameKD)
|
||||
Else
|
||||
IO.File.Delete(pathKD & DateinameKD)
|
||||
End If
|
||||
|
||||
updateFibu() ' UPDATE FiBuSchnittstelle --> 0
|
||||
|
||||
End If
|
||||
updateFibu() ' UPDATE FiBuSchnittstelle --> 0
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
fileKD.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchivKD <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
|
||||
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(pathKD & DateinameKD)
|
||||
Else
|
||||
IO.File.Delete(pathKD & DateinameKD)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
@@ -314,9 +321,9 @@
|
||||
|
||||
'DATEIPFAD für Buchungsdaten
|
||||
'-------------------------------------------------------------------------------------------
|
||||
Dim path = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim pathArchiv = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
path = pathArchiv 'TEST
|
||||
Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim path = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
' path = pathArchiv 'TEST
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
|
||||
'pathArchiv = ""
|
||||
@@ -334,9 +341,6 @@
|
||||
End Select
|
||||
|
||||
|
||||
Dim file As System.IO.StreamWriter
|
||||
Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
'----------------- Buchungssätze -----------------
|
||||
If True Then 'boolBuchungen Then
|
||||
@@ -344,6 +348,10 @@
|
||||
Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
|
||||
If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
|
||||
Try
|
||||
Dim file As System.IO.StreamWriter
|
||||
Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
' initKDNr(dt_Buchungen)
|
||||
Dim SummeBuchungen As Double = 0
|
||||
file.WriteLine(genBuchungenBeginn())
|
||||
@@ -352,29 +360,33 @@
|
||||
Next
|
||||
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
|
||||
bool_DatenVorhanden = True
|
||||
|
||||
'Update Filename TrdIn
|
||||
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
|
||||
|
||||
file.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchiv <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
|
||||
If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(path & Dateiname)
|
||||
Else
|
||||
IO.File.Delete(path & Dateiname)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
'Update Filename TrdIn
|
||||
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
|
||||
'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt!
|
||||
|
||||
End If
|
||||
End If
|
||||
'----------------------------------
|
||||
|
||||
file.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchiv <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
|
||||
If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(path & Dateiname)
|
||||
Else
|
||||
IO.File.Delete(path & Dateiname)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
@@ -448,10 +460,8 @@
|
||||
If CBool(row("Steuerpflichtig")) Then
|
||||
genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2??
|
||||
Else
|
||||
genBuchungsZeile &= ";" 'buchcode === 1 oder 2??
|
||||
genBuchungsZeile &= "0;" 'buchcode === 1 oder 2??
|
||||
End If
|
||||
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd"))) & ";" 'betrag
|
||||
|
||||
|
||||
Dim steuerbetragLokal As Double = 0
|
||||
If CBool(row("Steuerpflichtig")) Then
|
||||
@@ -459,7 +469,9 @@
|
||||
steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz"))))
|
||||
End If
|
||||
If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1
|
||||
genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "") & ";" 'steuer
|
||||
|
||||
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto)
|
||||
genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0") & ";" 'steuer
|
||||
|
||||
genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";" ' BuchungsText bei UNISPED ist der FIRMENNAME!!
|
||||
' genBuchungsZeile &= FormatStringDVO(row("Buchungstext")) & ";" ' Text
|
||||
@@ -494,7 +506,12 @@
|
||||
Case Else
|
||||
|
||||
If Not CBool(r("Steuerpflichtig")) Then
|
||||
Return ""
|
||||
'Vorher immer return "" - galube es soll bei eu aber 77 sein...
|
||||
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
|
||||
Return "77" ' EU-LAND
|
||||
Else
|
||||
Return "" ' Drittland
|
||||
End If
|
||||
Else
|
||||
If (r("RechnungsLandKz")).ToString.Replace("AT", "A").Replace("DE", "D") = FIRMA.Firma_LandKz Then 'Abhängig von FIRMA --> INLAND!!!!!!
|
||||
Return "1" 'Steuerpflichtig und AT
|
||||
@@ -537,7 +554,7 @@
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Return CDbl(o).ToString("N2").Replace(".", "").Replace(",", ".")
|
||||
Return CDbl(o).ToString("N2").Replace(".", "") '.Replace(",", ".")
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
@@ -9,7 +9,7 @@ Public Class cTherefore
|
||||
Select Case FirmaId
|
||||
Case 7
|
||||
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
|
||||
Case 1, 11 ', 15,20
|
||||
Case 1, 11, 20 ', 15,20
|
||||
' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
|
||||
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
|
||||
Case Else
|
||||
|
||||
@@ -316,6 +316,7 @@
|
||||
<Compile Include="Classes\cMessangerListender.vb" />
|
||||
<Compile Include="Classes\cMessenger.vb" />
|
||||
<Compile Include="Classes\cNCTSGestellungsadressen.vb" />
|
||||
<Compile Include="Classes\cNCTS_TR.vb" />
|
||||
<Compile Include="Classes\cOffene_Posten_DVO.vb" />
|
||||
<Compile Include="Classes\cParameter.vb" />
|
||||
<Compile Include="Classes\cProgrammeUpdate.vb" />
|
||||
@@ -330,6 +331,7 @@
|
||||
<Compile Include="Classes\cSMS.vb" />
|
||||
<Compile Include="Classes\cSpeditionsbuch.vb" />
|
||||
<Compile Include="Classes\cTextkonserve.vb" />
|
||||
<Compile Include="Classes\cTranslate.vb" />
|
||||
<Compile Include="Classes\cTrdInvoice.vb" />
|
||||
<Compile Include="Classes\cUIDAbfrage.vb" />
|
||||
<Compile Include="Classes\cUIDPruefung.vb" />
|
||||
@@ -468,6 +470,10 @@
|
||||
<Compile Include="Schnittstellen\cSyska_Interface.vb" />
|
||||
<Compile Include="Schnittstellen\cTherefore.vb" />
|
||||
<Compile Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\SGS\CC015B_TR_EXT_V4_3.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\SGS\Codelists.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\SGS\Constraints4.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\SGS\cSGSInterface.vb" />
|
||||
<Compile Include="Schnittstellen\VERAG\ATEZ\BeyannameBilgi.Designer.vb" />
|
||||
<Compile Include="Schnittstellen\VERAG\IN_AVISO\cVERAG_in_TRAviso.vb" />
|
||||
<Compile Include="Schnittstellen\VERAG\IN_SHIPPMENT\cVERAG_in_shippmentWHAT.vb" />
|
||||
@@ -577,6 +583,15 @@
|
||||
<None Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="Schnittstellen\SGS\CC015B_TR_EXT_V4_3.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="Schnittstellen\SGS\Codelists.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="Schnittstellen\SGS\Constraints4.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<None Include="Schnittstellen\VERAG\ATEZ\BeyannameBilgi.json" />
|
||||
<None Include="Schnittstellen\VERAG\ATEZ\TR_EX\declarationJsonSchema.json" />
|
||||
<None Include="Schnittstellen\VERAG\ATEZ\TR_EX\declarationJsonSchema.xsd">
|
||||
|
||||
@@ -24,7 +24,7 @@ Public Class cAllgemein
|
||||
Public Shared TESTSYSTEM As Boolean = True
|
||||
|
||||
Public Shared PROGNAME = ""
|
||||
Public Shared PROGID As Integer
|
||||
Public Shared PROGID As Integer = 16
|
||||
Public Shared PROGVERSION As String = ""
|
||||
|
||||
Public Shared USRNAME As String
|
||||
@@ -42,6 +42,8 @@ Public Class cAllgemein
|
||||
|
||||
Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing
|
||||
Public Shared PARAMS As cParameterList = Nothing
|
||||
Public Shared TRANSLATE As cTranslate_LIST = Nothing
|
||||
Public Shared _LAN As String = "" '"EN"
|
||||
|
||||
Public Shared SESSION As New cSession
|
||||
|
||||
@@ -98,6 +100,7 @@ Public Class cAllgemein
|
||||
MITARBEITER = Nothing
|
||||
End If
|
||||
LOAD_PARAM()
|
||||
LOAD_TRANSLATE()
|
||||
End Sub
|
||||
|
||||
Public Shared Sub LOAD_BER()
|
||||
@@ -109,6 +112,62 @@ Public Class cAllgemein
|
||||
PARAMS = New cParameterList(PROGID, FIRMA)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub LOAD_TRANSLATE()
|
||||
TRANSLATE = New cTranslate_LIST(PROGID)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control)
|
||||
_TRANSLATE(o, o, _LAN)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, lan As String)
|
||||
_TRANSLATE(o, o, lan)
|
||||
End Sub
|
||||
Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, s As System.Windows.Forms.Control, lan As String)
|
||||
If lan = "" Then Exit Sub
|
||||
If lan = "DE" Then Exit Sub
|
||||
'o... Form
|
||||
's... SubContainer
|
||||
'c... Control
|
||||
|
||||
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan)
|
||||
If TextTmp IsNot Nothing Then
|
||||
For Each TXT As cTranslate In TextTmp
|
||||
Dim found = o.Controls.Find(TXT.trs_control, True)
|
||||
If found IsNot Nothing AndAlso found.Count > 0 Then
|
||||
Dim obj As System.Windows.Forms.Control = found(0)
|
||||
If obj IsNot Nothing Then
|
||||
If (TypeOf obj Is System.Windows.Forms.Label) Then
|
||||
DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'Exit Sub
|
||||
'If lan = "DE" Then Exit Sub
|
||||
'For Each c As System.Windows.Forms.Control In s.Controls
|
||||
' If c.Controls.Count > 0 Then
|
||||
' _TRANSLATE(o, c, lan)
|
||||
' Else
|
||||
|
||||
' 'MsgBox(o.Name & " - " & c.Name & " - " & lan)
|
||||
' Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = o.Name And x.trs_control = c.Name And x.trs_sprache = lan)
|
||||
|
||||
' If TextTmp IsNot Nothing Then
|
||||
' MsgBox(TextTmp.trs_text)
|
||||
' If (TypeOf c Is System.Windows.Forms.Label) Then
|
||||
|
||||
' DirectCast(c, System.Windows.Forms.Label).Text = TextTmp.trs_text
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
End Sub
|
||||
|
||||
|
||||
Public Shared Function getMaxPosNrIncrement(FilialeNr As Integer, year As Integer) As Integer
|
||||
Dim cnt = 0
|
||||
@@ -196,6 +255,8 @@ Public Class cAllgemein
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
Public Shared Sub buildConnectionDATENARCHIV()
|
||||
Exit Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user