neu
This commit is contained in:
@@ -51,6 +51,11 @@ Public Class cFinanzOnlineWebService
|
||||
benid = "WEBserv99"
|
||||
pin = "WEBserv99"
|
||||
uid = "ATU74813856"
|
||||
Case "UNISPED"
|
||||
tid = "18778752z632"
|
||||
benid = "Webmaster1"
|
||||
pin = "Webmaster1"
|
||||
uid = "ATU67001200"
|
||||
Case Else 'VERAG:
|
||||
tid = "13390891m005"
|
||||
benid = "WEBserv99"
|
||||
|
||||
@@ -424,18 +424,20 @@ Public Class cFakturierung
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
|
||||
rpt.picVERAG.Size = New SizeF(2.712, 0.61)
|
||||
Case 22 '"UNISPED"
|
||||
Case 22 '"UNISPED DE"
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
|
||||
rpt.picVERAG.Size = New SizeF(2.712, 0.61)
|
||||
Case 23 '"UNISPED"
|
||||
rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") ' Ohne Ort gewünscht!
|
||||
Case 23 '"UNISPED ZS"
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
|
||||
rpt.picVERAG.Size = New SizeF(2.712, 0.61)
|
||||
Case 20 '"IMEX"
|
||||
If Rechnung.RechnungsLandKz = "TR" Then
|
||||
'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
|
||||
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Beykent Ticari - Hesap: 9081867"
|
||||
' rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Beykent Ticari - Hesap: 9081867"
|
||||
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Hadimköy Ticari - Hesap: 9081867"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasVK(Rechnung) Then
|
||||
@@ -470,7 +472,7 @@ Public Class cFakturierung
|
||||
|
||||
End Sub
|
||||
|
||||
Shared Sub initRgFirmaSammelRg(ByRef rpt As rptSammelRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Integer)
|
||||
Shared Sub initRgFirmaSammelRg(ByRef rpt As rptSammelRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object)
|
||||
|
||||
rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
|
||||
rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")
|
||||
@@ -483,15 +485,20 @@ Public Class cFakturierung
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
|
||||
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
|
||||
|
||||
'Für Vorschau:
|
||||
If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year
|
||||
If Buchungsjahr Is Nothing Then Buchungsjahr = Now.Year
|
||||
|
||||
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Select Case FIRMA.Firma_ID
|
||||
Case 21 '"UNISPED"
|
||||
rpt.txtBank1.Text = "????"
|
||||
rpt.txtBank2.Text = "????"
|
||||
Case 21, 22, 23 '"UNISPED"
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
|
||||
|
||||
Case 20 '"IMEX"
|
||||
If RechnungsLandKz = "TR" Then
|
||||
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
|
||||
'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
|
||||
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Hadimköy Ticari - Hesap: 9098713"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasVK(RechnungsNr, Buchungsjahr) Then
|
||||
@@ -517,7 +524,7 @@ Public Class cFakturierung
|
||||
|
||||
|
||||
End Sub
|
||||
Shared Sub initRgFirmaSammelRg_Bericht(ByRef rpt As rptSammelRechnungAnlagenDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Integer)
|
||||
Shared Sub initRgFirmaSammelRg_Bericht(ByRef rpt As rptSammelRechnungAnlagenDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object)
|
||||
|
||||
rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
|
||||
rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")
|
||||
@@ -530,15 +537,20 @@ Public Class cFakturierung
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
|
||||
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
|
||||
|
||||
'Für Vorschau:
|
||||
If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year
|
||||
If Buchungsjahr Is Nothing Then Buchungsjahr = Now.Year
|
||||
|
||||
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Select Case FIRMA.Firma_ID
|
||||
Case 21 '"UNISPED"
|
||||
rpt.txtBank1.Text = "????"
|
||||
rpt.txtBank2.Text = "????"
|
||||
Case 21, 22, 23 '"UNISPED"
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
|
||||
|
||||
Case 20 '"IMEX"
|
||||
If RechnungsLandKz = "TR" Then
|
||||
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
|
||||
' rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
|
||||
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Hadimköy Ticari - Hesap: 9098713"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasVK(RechnungsNr, Buchungsjahr) Then
|
||||
@@ -656,7 +668,9 @@ Public Class cFakturierung
|
||||
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
|
||||
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
|
||||
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
|
||||
Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
|
||||
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
|
||||
Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE
|
||||
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
|
||||
rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
|
||||
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
|
||||
End Select
|
||||
@@ -699,8 +713,13 @@ Public Class cFakturierung
|
||||
rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
|
||||
If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False
|
||||
|
||||
rpt.lblRechnung_Name1.Text = If(RECHNUNG.RechnungsName_1, "")
|
||||
rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_2, "")
|
||||
If If(RECHNUNG.RechnungsName_2, "") = "" Then
|
||||
rpt.lblRechnung_Name1.Text = ""
|
||||
rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_1, "")
|
||||
Else
|
||||
rpt.lblRechnung_Name1.Text = If(RECHNUNG.RechnungsName_1, "")
|
||||
rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_2, "")
|
||||
End If
|
||||
rpt.lblRechnung_Strasse.Text = If(RECHNUNG.RechnungsStraße, "")
|
||||
rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "")
|
||||
rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "").ToString.ToUpper
|
||||
@@ -884,7 +903,7 @@ Public Class cFakturierung
|
||||
Kopie = False
|
||||
'Aktualisierung und speichern:
|
||||
If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then
|
||||
rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr
|
||||
rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau")
|
||||
rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString
|
||||
Else
|
||||
MsgBox("Fehler bei der Vergabe der Rg-Nr.!")
|
||||
@@ -1179,15 +1198,22 @@ Public Class cFakturierung
|
||||
|
||||
|
||||
|
||||
Shared Function getReverseChargeSumme(RechnungsNr As String, RechnungsDatum As Date) As Double
|
||||
Shared Function getReverseChargeSumme(RechnungsNr As Object, RechnungsDatum As Object, Optional VorschauID As String = "") As Double
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ReverseChargeSumme
|
||||
FROM dbo.Rechnungsausgang INNER JOIN
|
||||
dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID INNER JOIN
|
||||
dbo.Leistungen ON dbo.RechnungsausgangPositionen.LeistungsNr = dbo.Leistungen.LeistungsNr INNER JOIN
|
||||
dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.Rechnungsausgang.RechnungsUstIdKz = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz
|
||||
WHERE (dbo.Rechnungsausgang.RechnungsNr = '" & RechnungsNr & "') AND (dbo.Rechnungsausgang.RechnungsDatum = '" & RechnungsDatum.ToShortDateString & "') AND
|
||||
(dbo.[Länderverzeichnis für die Außenhandelsstatistik].ReverseCharge = 1) AND (dbo.Leistungen.ReverseCharge = 1)"
|
||||
WHERE 1=1 "
|
||||
|
||||
If VorschauID = "" Then
|
||||
SqlStr &= " AND (dbo.Rechnungsausgang.RechnungsNr = '" & RechnungsNr & "') AND (dbo.Rechnungsausgang.RechnungsDatum = '" & CDate(RechnungsDatum).ToShortDateString & "') "
|
||||
Else
|
||||
SqlStr &= " AND (dbo.Rechnungsausgang.VorschauID = '" & VorschauID & "') "
|
||||
End If
|
||||
|
||||
SqlStr &= " AND (dbo.[Länderverzeichnis für die Außenhandelsstatistik].ReverseCharge = 1) AND (dbo.Leistungen.ReverseCharge = 1)"
|
||||
|
||||
Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL")
|
||||
If sum Is DBNull.Value Or sum = "" Then Return 0
|
||||
@@ -1245,7 +1271,7 @@ Public Class cFakturierung
|
||||
'End If
|
||||
Dim VorschauID = ""
|
||||
If vorschau Then
|
||||
VorschauID = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "_" & Firma_ID
|
||||
VorschauID = Now.ToString("dd.MM.yyyy HH:mm:ss.fff") & "_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "_" & Firma_ID
|
||||
End If
|
||||
|
||||
If SammelrechungArt = 7 And (AvisoIds IsNot Nothing AndAlso AvisoIds.Count = 0) Then Return False 'Prüfung, ob Daten vorhanden; Abbruch ZB wenn keine AvisoId
|
||||
@@ -1256,8 +1282,10 @@ Public Class cFakturierung
|
||||
|
||||
Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)
|
||||
|
||||
|
||||
Dim Aktuelle_RgNr As Integer = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch.
|
||||
Dim Aktuelle_RgNr As Integer = -1
|
||||
If Not vorschau Then
|
||||
Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch.
|
||||
End If
|
||||
|
||||
DruckdatumUhrzeit = Now.ToString("dd.MM.yyyy HH:mm:ss.fff")
|
||||
|
||||
@@ -1303,9 +1331,8 @@ Public Class cFakturierung
|
||||
End Select
|
||||
|
||||
If vorschau Then
|
||||
' RG.[VorschauID] = VorschauID
|
||||
RG.[VorschauID] = VorschauID
|
||||
Else
|
||||
|
||||
RG.[RechnungsNr] = Aktuelle_RgNr
|
||||
RG.[Status] = 3
|
||||
RG.[RechnungsDatum] = Rechnungsdatum.ToShortDateString
|
||||
@@ -1349,7 +1376,7 @@ Public Class cFakturierung
|
||||
Else
|
||||
'Dim RG_NR = New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr)
|
||||
'RG_NR.INCREASE_RGNR() 'für die nächste Rechnung
|
||||
dt = getSAMMELRechnung_Dt(RechnungsNr, DruckdatumUhrzeit, 3) ' 3-_> Anlagen gedruckt
|
||||
dt = getSAMMELRechnung_Dt(RechnungsNr, DruckdatumUhrzeit, 3, [VorschauID]) ' 3-_> Anlagen gedruckt
|
||||
End If
|
||||
|
||||
|
||||
@@ -1414,7 +1441,13 @@ Public Class cFakturierung
|
||||
End Function
|
||||
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1, Optional VorschauID As String = "") As Boolean
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
Dim dt As DataTable
|
||||
If VorschauID = "" Then
|
||||
SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
Else
|
||||
SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
End If
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
For Each r In dt.Rows
|
||||
Dim Path = ""
|
||||
@@ -1433,13 +1466,20 @@ Public Class cFakturierung
|
||||
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelEvolog(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
|
||||
Try
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(" SELECT RechnungsNr,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,Abfertigungsarten.Abfertigungsbezeichnung, (SELECT SUM([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) FROM RechnungsausgangPositionen where RechnungsausgangPositionen.RK_ID=Rechnungsausgang.RK_ID) as Betrag
|
||||
Dim sqlStr = " SELECT RechnungsNr,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,Abfertigungsarten.Abfertigungsbezeichnung, (SELECT SUM([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) FROM RechnungsausgangPositionen where RechnungsausgangPositionen.RK_ID=Rechnungsausgang.RK_ID) as Betrag
|
||||
FROM Rechnungsausgang INNER JOIN Speditionsbuch on Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr
|
||||
INNER JOIN Abfertigungsarten ON Abfertigungsarten .Abfertigungsart=Speditionsbuch.Abfertigungsart
|
||||
WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "'
|
||||
ORDER BY Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr", "FMZOLL")
|
||||
WHERE 1=1 "
|
||||
|
||||
If VorschauID = "" Then
|
||||
sqlStr &= " AND Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' "
|
||||
Else
|
||||
sqlStr &= " AND RechnungsNr is null AND VorschauID='" & VorschauID & "' "
|
||||
End If
|
||||
sqlStr &= " ORDER BY Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr"
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL")
|
||||
|
||||
|
||||
If dt IsNot Nothing And dt.Rows.Count > 0 Then
|
||||
@@ -1517,7 +1557,12 @@ Public Class cFakturierung
|
||||
|
||||
Dim rpt As New rptSammelRechnungAnlagenDruck
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
Dim dt As DataTable
|
||||
If VorschauID = "" Then
|
||||
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
Else
|
||||
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
End If
|
||||
rpt.DataSource = dt
|
||||
|
||||
Dim ROW As DataRow = dt.Rows(0)
|
||||
@@ -1558,13 +1603,16 @@ Public Class cFakturierung
|
||||
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
|
||||
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
|
||||
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
|
||||
Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
|
||||
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
|
||||
Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE
|
||||
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
|
||||
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
|
||||
End Select
|
||||
|
||||
|
||||
rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "")
|
||||
rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr")
|
||||
rpt.lblRgDatum.Text = ROW("RechnungsDatum")
|
||||
rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau")
|
||||
rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")
|
||||
|
||||
'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
|
||||
'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
|
||||
@@ -1580,8 +1628,14 @@ Public Class cFakturierung
|
||||
|
||||
rpt.txtKdAuftragsnummer.Text = If(ROW("KdAuftragsNr") IsNot DBNull.Value, ROW("KdAuftragsNr"), "")
|
||||
|
||||
rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1")
|
||||
rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "")
|
||||
If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then
|
||||
rpt.lblRechnung_Name1.Text = ""
|
||||
rpt.lblRechnung_Name2.Text = ROW("RechnungsName 1")
|
||||
Else
|
||||
rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1")
|
||||
rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "")
|
||||
End If
|
||||
|
||||
rpt.lblRechnung_Strasse.Text = If(ROW("RechnungsStraße") IsNot DBNull.Value, ROW("RechnungsStraße"), "")
|
||||
rpt.lblRechnung_Ort.Text = If(ROW("RechnungsOrt") IsNot DBNull.Value, ROW("RechnungsOrt"), "")
|
||||
rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "").ToString.ToUpper
|
||||
@@ -1867,7 +1921,10 @@ Public Class cFakturierung
|
||||
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
|
||||
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
|
||||
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
|
||||
Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
|
||||
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
|
||||
Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE
|
||||
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
|
||||
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
|
||||
End Select
|
||||
|
||||
|
||||
@@ -1878,8 +1935,8 @@ Public Class cFakturierung
|
||||
rpt.txtVermerk.Text = strText
|
||||
|
||||
rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "")
|
||||
rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr")
|
||||
rpt.lblRgDatum.Text = ROW("RechnungsDatum")
|
||||
rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau")
|
||||
rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")
|
||||
|
||||
'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
|
||||
'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
|
||||
@@ -1895,8 +1952,14 @@ Public Class cFakturierung
|
||||
rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus)
|
||||
rpt.Label24.Visible = (rpt.lblLKWId.Text <> "")
|
||||
|
||||
rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1")
|
||||
rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "")
|
||||
If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then
|
||||
rpt.lblRechnung_Name1.Text = ""
|
||||
rpt.lblRechnung_Name2.Text = ROW("RechnungsName 1")
|
||||
Else
|
||||
rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1")
|
||||
rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "")
|
||||
End If
|
||||
|
||||
rpt.lblRechnung_Strasse.Text = If(ROW("RechnungsStraße") IsNot DBNull.Value, ROW("RechnungsStraße"), "")
|
||||
rpt.lblRechnung_Ort.Text = If(ROW("RechnungsOrt") IsNot DBNull.Value, ROW("RechnungsOrt"), "")
|
||||
rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "").ToString.ToUpper
|
||||
@@ -1922,7 +1985,7 @@ Public Class cFakturierung
|
||||
' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
|
||||
' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind,
|
||||
' summiert und auf der Rechnung ausgewiesen werden.
|
||||
If getReverseChargeSumme(ROW("RechnungsNr"), CDate(ROW("RechnungsDatum"))) > 0 Then
|
||||
If getReverseChargeSumme(ROW("RechnungsNr"), (ROW("RechnungsDatum")), VorschauID) > 0 Then
|
||||
rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
|
||||
Else : rpt.txtInfo.Text = "" : End If
|
||||
|
||||
@@ -2108,7 +2171,7 @@ Public Class cFakturierung
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function getSAMMELRechnung_Dt(RechnungsNr As Integer, DruckDatumZeit As DateTime, Status As String) As DataTable
|
||||
Shared Function getSAMMELRechnung_Dt(RechnungsNr As Integer, DruckDatumZeit As DateTime, Status As String, Optional VorschauID As String = "") As DataTable
|
||||
Dim SQLStr = "SELECT DISTINCT MIN(Rechnungsausgang.RK_ID) as RK_ID,Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez, Rechnungsausgang.Status, Rechnungsausgang.DruckDatumZeit
|
||||
,MIN(Filialen.Speditionsbuch) AS Speditionsbuch, Min(Rechnungsausgang.Abfertigungsdatum) AS AbfertigungsdatumVon, Max(Rechnungsausgang.Abfertigungsdatum) AS AbfertigungsdatumBis,
|
||||
Min(Rechnungsausgang.AbfertigungsNr) AS AbfertigungsNr, Min(Rechnungsausgang.UnterNr) AS UnterNr, Min(Rechnungsausgang.FilialenNr) AS FilialenNr, Min(Filialen.[Name 1]) AS FilialenName1, MIN(Filialen.[Name 2]) AS FilialenName2, Min(Filialen.Straße) AS FilialenStraße,
|
||||
@@ -2133,8 +2196,15 @@ Public Class cFakturierung
|
||||
MIN(Rechnungsausgang.RechnungsLandKz) AS RechnungsLandKz
|
||||
FROM ((Adressen INNER JOIN ((Rechnungsausgang INNER JOIN Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr) INNER JOIN Steuertabelle ON Rechnungsausgang.Steuerschlüssel = Steuertabelle.Steuerschlüssel) ON Adressen.AdressenNr = Rechnungsausgang.RechnungsKundenNr) INNER JOIN tblFirma ON Rechnungsausgang.Firma_ID = tblFirma.Firma_ID) INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
|
||||
|
||||
where Status IN (" & Status & ") and CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "'
|
||||
GROUP BY Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez, Rechnungsausgang.Status, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Buchungsjahr, Rechnungsausgang.Währungscode, Rechnungsausgang.Steuerschlüssel, Adressen.LandKz, Adressen.Steuernummer, Rechnungsausgang.Firma_ID, tblFirma.Firma_Firmenbuch, tblFirma.Firma_UID, tblFirma.Firma_EORI, tblFirma.Firma_Bankverbindung1, tblFirma.Firma_BLZ1, tblFirma.Firma_KTO1, tblFirma.Firma_IBAN1, tblFirma.Firma_BIC1, tblFirma.Firma_Bankverbindung2, tblFirma.Firma_BLZ2, tblFirma.Firma_KTO2, tblFirma.Firma_IBAN2, tblFirma.Firma_BIC2, tblFirma.Firma_Ort, tblFirma.Firma_Straße, tblFirma.Firma_Telefon, tblFirma.Firma_Telefax, tblFirma.[Firma_E-Mail], tblFirma.Firma_Webadresse
|
||||
where 1=1 "
|
||||
|
||||
If VorschauID="" Then
|
||||
SQLStr &= " AND Status IN (" & Status & ") And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "'"
|
||||
Else
|
||||
SQLStr &= " AND RechnungsNr is null And VorschauID='" & VorschauID & "' "
|
||||
End If
|
||||
|
||||
SQLStr &= " GROUP BY Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez, Rechnungsausgang.Status, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Buchungsjahr, Rechnungsausgang.Währungscode, Rechnungsausgang.Steuerschlüssel, Adressen.LandKz, Adressen.Steuernummer, Rechnungsausgang.Firma_ID, tblFirma.Firma_Firmenbuch, tblFirma.Firma_UID, tblFirma.Firma_EORI, tblFirma.Firma_Bankverbindung1, tblFirma.Firma_BLZ1, tblFirma.Firma_KTO1, tblFirma.Firma_IBAN1, tblFirma.Firma_BIC1, tblFirma.Firma_Bankverbindung2, tblFirma.Firma_BLZ2, tblFirma.Firma_KTO2, tblFirma.Firma_IBAN2, tblFirma.Firma_BIC2, tblFirma.Firma_Ort, tblFirma.Firma_Straße, tblFirma.Firma_Telefon, tblFirma.Firma_Telefax, tblFirma.[Firma_E-Mail], tblFirma.Firma_Webadresse
|
||||
ORDER BY Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez;
|
||||
"
|
||||
|
||||
|
||||
@@ -181,7 +181,7 @@ Public Class frmAbrechnungsMaske
|
||||
initDGV()
|
||||
End Sub
|
||||
Function checkSrchValues() As Boolean
|
||||
If MyComboBox2._value = "" Then Return False
|
||||
'If MyComboBox2._value = "" Then Return False
|
||||
If cboFirma._value = "" Then Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
@@ -226,7 +226,7 @@ Public Class frmFaktSammelRgDrucken
|
||||
Return AvisoIds
|
||||
End Function
|
||||
|
||||
Sub doSammelrechnung(ausgabeArt As Integer)
|
||||
Sub doSammelrechnung(ausgabeArt As Integer, Optional vorschau As Boolean = False)
|
||||
Try
|
||||
If cboFirma._value = "" Then MsgBox("Bitte Firma angeben!") : Exit Sub
|
||||
If txtZeitraumBis.Text = "" Then MsgBox("Bitte Zeitraum-Bis angeben!") : Exit Sub
|
||||
@@ -236,7 +236,7 @@ Public Class frmFaktSammelRgDrucken
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim listPDFs As New List(Of String)
|
||||
Dim SonstAnlagen As New List(Of String)
|
||||
cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen)
|
||||
cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau)
|
||||
|
||||
'-------------- für PDF-Sammel-Rechnung --------------
|
||||
|
||||
@@ -348,6 +348,6 @@ Public Class frmFaktSammelRgDrucken
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
doSammelrechnung(3)
|
||||
doSammelrechnung(3, True)
|
||||
End Sub
|
||||
End Class
|
||||
6
SDL/Fakturierung/rptRechnungDruck.Designer.vb
generated
6
SDL/Fakturierung/rptRechnungDruck.Designer.vb
generated
@@ -541,7 +541,7 @@ Partial Public Class rptRechnungDruck
|
||||
'
|
||||
Me.lblFirmaEmail.Height = 0.1181103!
|
||||
Me.lblFirmaEmail.HyperLink = Nothing
|
||||
Me.lblFirmaEmail.Left = 2.492913!
|
||||
Me.lblFirmaEmail.Left = 2.697638!
|
||||
Me.lblFirmaEmail.Name = "lblFirmaEmail"
|
||||
Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
@@ -553,12 +553,12 @@ Partial Public Class rptRechnungDruck
|
||||
'
|
||||
Me.lblFirmaWeb.Height = 0.1181103!
|
||||
Me.lblFirmaWeb.HyperLink = Nothing
|
||||
Me.lblFirmaWeb.Left = 2.492913!
|
||||
Me.lblFirmaWeb.Left = 2.697638!
|
||||
Me.lblFirmaWeb.Name = "lblFirmaWeb"
|
||||
Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.lblFirmaWeb.Text = "www.verag.ag"
|
||||
Me.lblFirmaWeb.Top = 0.8685042!
|
||||
Me.lblFirmaWeb.Top = 0.8685043!
|
||||
Me.lblFirmaWeb.Width = 1.436614!
|
||||
'
|
||||
'lblRgDatumUeberschrift
|
||||
|
||||
@@ -412,14 +412,14 @@ Partial Public Class rptSammelRechnungAnlagenDruck
|
||||
'
|
||||
'picVERAG
|
||||
'
|
||||
Me.picVERAG.Height = 0.4169292!
|
||||
Me.picVERAG.Height = 0.5389764!
|
||||
Me.picVERAG.HyperLink = Nothing
|
||||
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
|
||||
Me.picVERAG.Left = 0.01023622!
|
||||
Me.picVERAG.Name = "picVERAG"
|
||||
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||
Me.picVERAG.Top = 0.1220473!
|
||||
Me.picVERAG.Width = 2.198425!
|
||||
Me.picVERAG.Top = 0!
|
||||
Me.picVERAG.Width = 2.482677!
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
@@ -522,24 +522,24 @@ Partial Public Class rptSammelRechnungAnlagenDruck
|
||||
'
|
||||
Me.lblFirmaEmail.Height = 0.1181103!
|
||||
Me.lblFirmaEmail.HyperLink = Nothing
|
||||
Me.lblFirmaEmail.Left = 2.492913!
|
||||
Me.lblFirmaEmail.Left = 2.697638!
|
||||
Me.lblFirmaEmail.Name = "lblFirmaEmail"
|
||||
Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.lblFirmaEmail.Text = "rechnungsversand@verag.ag"
|
||||
Me.lblFirmaEmail.Top = 0.7503937!
|
||||
Me.lblFirmaEmail.Top = 0.7503935!
|
||||
Me.lblFirmaEmail.Width = 1.436614!
|
||||
'
|
||||
'lblFirmaWeb
|
||||
'
|
||||
Me.lblFirmaWeb.Height = 0.1181103!
|
||||
Me.lblFirmaWeb.HyperLink = Nothing
|
||||
Me.lblFirmaWeb.Left = 2.492913!
|
||||
Me.lblFirmaWeb.Left = 2.697638!
|
||||
Me.lblFirmaWeb.Name = "lblFirmaWeb"
|
||||
Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.lblFirmaWeb.Text = "www.verag.ag"
|
||||
Me.lblFirmaWeb.Top = 0.8685042!
|
||||
Me.lblFirmaWeb.Top = 0.868504!
|
||||
Me.lblFirmaWeb.Width = 1.436614!
|
||||
'
|
||||
'Label18
|
||||
|
||||
14
SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb
generated
14
SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb
generated
@@ -379,14 +379,14 @@ Partial Public Class rptSammelRechnungDruck
|
||||
'
|
||||
'picVERAG
|
||||
'
|
||||
Me.picVERAG.Height = 0.4169292!
|
||||
Me.picVERAG.Height = 0.5389764!
|
||||
Me.picVERAG.HyperLink = Nothing
|
||||
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
|
||||
Me.picVERAG.Left = 0.01023622!
|
||||
Me.picVERAG.Name = "picVERAG"
|
||||
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||
Me.picVERAG.Top = 0.1220473!
|
||||
Me.picVERAG.Width = 2.198425!
|
||||
Me.picVERAG.Top = 0!
|
||||
Me.picVERAG.Width = 2.482677!
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
@@ -489,24 +489,24 @@ Partial Public Class rptSammelRechnungDruck
|
||||
'
|
||||
Me.lblFirmaEmail.Height = 0.1181103!
|
||||
Me.lblFirmaEmail.HyperLink = Nothing
|
||||
Me.lblFirmaEmail.Left = 2.492913!
|
||||
Me.lblFirmaEmail.Left = 2.697638!
|
||||
Me.lblFirmaEmail.Name = "lblFirmaEmail"
|
||||
Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.lblFirmaEmail.Text = "rechnungsversand@verag.ag"
|
||||
Me.lblFirmaEmail.Top = 0.7503937!
|
||||
Me.lblFirmaEmail.Top = 0.7503935!
|
||||
Me.lblFirmaEmail.Width = 1.436614!
|
||||
'
|
||||
'lblFirmaWeb
|
||||
'
|
||||
Me.lblFirmaWeb.Height = 0.1181103!
|
||||
Me.lblFirmaWeb.HyperLink = Nothing
|
||||
Me.lblFirmaWeb.Left = 2.492913!
|
||||
Me.lblFirmaWeb.Left = 2.697638!
|
||||
Me.lblFirmaWeb.Name = "lblFirmaWeb"
|
||||
Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
|
||||
"do-char-set: 1"
|
||||
Me.lblFirmaWeb.Text = "www.verag.ag"
|
||||
Me.lblFirmaWeb.Top = 0.8685042!
|
||||
Me.lblFirmaWeb.Top = 0.868504!
|
||||
Me.lblFirmaWeb.Width = 1.436614!
|
||||
'
|
||||
'Label18
|
||||
|
||||
@@ -1455,6 +1455,10 @@ Public Class usrCntlFaktAbrechnung
|
||||
If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = ""
|
||||
Case "19"
|
||||
If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = ""
|
||||
Case "9" 'Leihgeld
|
||||
If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Auszahlungsquittung"
|
||||
If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Auftrag"
|
||||
If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Passkopie"
|
||||
Case Else
|
||||
If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege"
|
||||
If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Lief.-Rechn."
|
||||
@@ -1497,8 +1501,14 @@ Public Class usrCntlFaktAbrechnung
|
||||
Case 20 : pic.BackgroundImage = My.Resources.IMEX_LOGO_simple
|
||||
pnlTop.BackColor = Color.FromArgb(250, 120, 0) : errCOlor = Color.DarkRed
|
||||
|
||||
Case 21, 22, 23 : pic.BackgroundImage = My.Resources.Unisped_logo
|
||||
'UNISPED:
|
||||
Case 21 : pic.BackgroundImage = My.Resources.Unisped_logo
|
||||
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed
|
||||
Case 22 : pic.BackgroundImage = My.Resources.Unisped_DE_logo
|
||||
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed
|
||||
Case 23 : pic.BackgroundImage = My.Resources.Unisped_ZS_logo
|
||||
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed
|
||||
|
||||
Case 24 : pic.BackgroundImage = My.Resources.ambar_simple
|
||||
pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed
|
||||
'Case 23 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal
|
||||
@@ -2733,6 +2743,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
saveMe() 'Damit Prüfungen in der Vorschau funktionieren (zT mit DB abhängig -> ReverseCharge)
|
||||
getValues()
|
||||
cFakturierung.doRechnungsDruck(RECHNUNG,, True,,, getPrinterFromParent)
|
||||
End Sub
|
||||
|
||||
61
SDL/My Project/Resources.Designer.vb
generated
61
SDL/My Project/Resources.Designer.vb
generated
@@ -1683,6 +1683,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property sdfs3sdfsdfsdf() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("sdfs3sdfsdfsdf", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -1743,6 +1752,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property sgs() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("sgs", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -2011,6 +2030,36 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property unisped_aeo_DE() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("unisped_aeo_DE", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property unisped_aeo_ZS_AT() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("unisped_aeo_ZS_AT", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Unisped_DE_logo() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Unisped_DE_logo", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -2021,6 +2070,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Unisped_ZS_logo() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Unisped_ZS_logo", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -2152,7 +2211,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.2 ähnelt.
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.3 ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Version() As String
|
||||
Get
|
||||
|
||||
@@ -151,6 +151,9 @@
|
||||
<data name="word" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="mse" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -160,11 +163,14 @@
|
||||
<data name="positionen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -178,6 +184,9 @@
|
||||
<data name="statistik2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\statistik2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="IMEX_LOGO_AEO_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -190,9 +199,6 @@
|
||||
<data name="uhr_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="kunden" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\kunden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -229,6 +235,9 @@
|
||||
<data name="nurIran" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\nurIran.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="rechnung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -244,6 +253,9 @@
|
||||
<data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="warenkorb1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -259,6 +271,9 @@
|
||||
<data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -268,8 +283,11 @@
|
||||
<data name="email11" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="flagge_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -301,15 +319,15 @@
|
||||
<data name="Atilla_big_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Einheitspapier_0777_kurz" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -343,9 +361,6 @@
|
||||
<data name="Verag_Customs_Service_GMBH_Logo_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -388,20 +403,14 @@
|
||||
<data name="Excel_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="picboxNext_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="beleg_rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LKW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Aviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -409,14 +418,11 @@
|
||||
<data name="cards1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -424,8 +430,8 @@
|
||||
<data name="VERAG_AEO_MailSig" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="printer21" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="oregon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\oregon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Route5_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Route5_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -433,12 +439,18 @@
|
||||
<data name="checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="person1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -490,6 +502,9 @@
|
||||
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="sms" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\sms.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -508,8 +523,8 @@
|
||||
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -526,9 +541,6 @@
|
||||
<data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="beleg_rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -544,8 +556,8 @@
|
||||
<data name="transp" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -556,6 +568,9 @@
|
||||
<data name="logo_mdm" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\logo_mdm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="plose_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Route4_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -565,8 +580,8 @@
|
||||
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="pdf_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -583,9 +598,6 @@
|
||||
<data name="sicherheit" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="oregon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\oregon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@@ -610,17 +622,14 @@
|
||||
<data name="passpic_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Verag_Customs_Service_GMBH_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -629,16 +638,19 @@
|
||||
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Version" xml:space="preserve">
|
||||
<value>1.1.8.2</value>
|
||||
<value>1.1.8.3</value>
|
||||
</data>
|
||||
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="FA_Graz_EV_Veranlagung_Muster" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -646,20 +658,23 @@
|
||||
<data name="Info" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\info.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
|
||||
</data>
|
||||
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="SR_EVOLOG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="aeo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="android-note12" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -673,14 +688,14 @@
|
||||
<data name="road" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -700,8 +715,8 @@
|
||||
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="printer21" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -721,8 +736,8 @@
|
||||
<data name="Verag_Customs_Service_GMBH_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Verag-Customs-Service-GMBH-Logo2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="pin" xml:space="preserve">
|
||||
<value>VERAGZoll1</value>
|
||||
@@ -730,8 +745,8 @@
|
||||
<data name="report" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -745,14 +760,11 @@
|
||||
<data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="rechnung" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -769,19 +781,25 @@
|
||||
<data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="sgs" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="plose_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="SR_EVOLOG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="FA_Graz_EV_Veranlagung_Muster" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
<data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="sdfs3sdfsdfsdf" xml:space="preserve">
|
||||
<value />
|
||||
</data>
|
||||
</root>
|
||||
@@ -70,7 +70,7 @@ Public Class rptKontrolleLKW_NCTSTR
|
||||
|
||||
' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
|
||||
|
||||
Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
|
||||
Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert,isnull(SUM(ncts_VERAG_WeiterverrechungSatz),0) ncts_VERAG_WeiterverrechungSatz FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
|
||||
sqlStr &= " WHERE cast (ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
|
||||
sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
|
||||
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
|
||||
@@ -82,7 +82,7 @@ Public Class rptKontrolleLKW_NCTSTR
|
||||
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
|
||||
|
||||
|
||||
Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast(ncts_Eroeffnung as date) as AnmeldungsDatum FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
|
||||
Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast(ncts_Eroeffnung as date) as AnmeldungsDatum,ncts_VERAG_WeiterverrechungSatz FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
|
||||
sqlStrSUB &= " WHERE cast(ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
|
||||
sqlStrSUB &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
|
||||
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
|
||||
@@ -144,17 +144,48 @@ Public Class rptKontrolleLKW_NCTSTR
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If LIST_NCTSABR IsNot Nothing Then
|
||||
|
||||
'per LKW
|
||||
For Each l In LIST_NCTSABR.LIST
|
||||
'Spezial
|
||||
Dim SpezialFound = False
|
||||
Dim AllSpezial = True
|
||||
If SUB_DATA IsNot Nothing Then
|
||||
For Each r In SUB_DATA.Rows
|
||||
If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And r("Kennzeichen") = Fields.Item("Kennzeichen").Value Then
|
||||
If r("ncts_VERAG_WeiterverrechungSatz") IsNot DBNull.Value And r("ncts_VERAG_WeiterverrechungSatz") IsNot Nothing Then
|
||||
SpezialFound = True 'Kennzeichen, dass spezial
|
||||
|
||||
Dim GarantieWertLKW As Double = CDbl(Fields.Item("GarantieWert").Value)
|
||||
Select Case l.abrg_artAbrechnung
|
||||
Case "LKW"
|
||||
If GarantieWertLKW < l.abrg_GarantiewertBis Then
|
||||
l._ANZAHL += 1 : Exit For
|
||||
End If
|
||||
Dim VERAG_WeiterverrechungSatz As Double = CDbl(r("ncts_VERAG_WeiterverrechungSatz"))
|
||||
Dim L As New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg(-1)
|
||||
L.abrg_Partner = FIRMA
|
||||
L.abrg_artAbrechnung = "SPEZIAL"
|
||||
L.abrg_GarantiewertBis = CDbl(r("GarantieWert"))
|
||||
L.abrg_bertrag = VERAG_WeiterverrechungSatz
|
||||
L.abrg_prozent = Nothing
|
||||
L._ANZAHL = 1
|
||||
L._BETRAG = VERAG_WeiterverrechungSatz
|
||||
|
||||
LIST_NCTSABR.LIST.Add(L)
|
||||
Else
|
||||
AllSpezial = False ' Es sind nicht alle spezial
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not SpezialFound OrElse Not AllSpezial Then
|
||||
|
||||
'per LKW
|
||||
For Each l In LIST_NCTSABR.LIST
|
||||
|
||||
Dim GarantieWertLKW As Double = CDbl(Fields.Item("GarantieWert").Value)
|
||||
Select Case l.abrg_artAbrechnung
|
||||
Case "LKW"
|
||||
If GarantieWertLKW < l.abrg_GarantiewertBis Then
|
||||
l._ANZAHL += 1 : Exit For
|
||||
End If
|
||||
'Case "Versandschein"
|
||||
' If SUB_DATA IsNot Nothing Then
|
||||
' For Each r In SUB_DATA.Rows
|
||||
@@ -166,44 +197,49 @@ Public Class rptKontrolleLKW_NCTSTR
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
Case "%" 'LKW
|
||||
If GarantieWertLKW < l.abrg_GarantiewertBis Then
|
||||
l._ANZAHL += 1
|
||||
Dim prozent As Double = 0.001
|
||||
If l.abrg_prozent IsNot Nothing Then prozent = CDbl(l.abrg_prozent)
|
||||
l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent
|
||||
Exit For
|
||||
End If
|
||||
End Select
|
||||
Case "%" 'LKW
|
||||
If GarantieWertLKW < l.abrg_GarantiewertBis Then
|
||||
l._ANZAHL += 1
|
||||
Dim prozent As Double = 0.001
|
||||
If l.abrg_prozent IsNot Nothing Then prozent = CDbl(l.abrg_prozent)
|
||||
l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent
|
||||
Exit For
|
||||
End If
|
||||
End Select
|
||||
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
|
||||
'per VERSANDSCHEIN
|
||||
For Each r In SUB_DATA.Rows
|
||||
'Dim next_SND = False
|
||||
If SUB_DATA IsNot Nothing Then
|
||||
For Each l In LIST_NCTSABR.LIST
|
||||
'If Not next_SND Then
|
||||
Select Case l.abrg_artAbrechnung
|
||||
If SUB_DATA IsNot Nothing Then
|
||||
For Each r In SUB_DATA.Rows
|
||||
'Dim next_SND = False
|
||||
For Each l In LIST_NCTSABR.LIST
|
||||
'If Not next_SND Then
|
||||
Select Case l.abrg_artAbrechnung
|
||||
Case "Versandschein"
|
||||
Dim GarantieWertSND As Double = CDbl(r("GarantieWert"))
|
||||
If r("ncts_VERAG_WeiterverrechungSatz") Is DBNull.Value Or r("ncts_VERAG_WeiterverrechungSatz") Is Nothing Then 'Wenn nicht durch Speziel-Satz verrechnet
|
||||
If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And r("Kennzeichen") = Fields.Item("Kennzeichen").Value Then
|
||||
If GarantieWertSND < l.abrg_GarantiewertBis Then
|
||||
l._ANZAHL += 1
|
||||
'next_SND = True
|
||||
Exit For
|
||||
'next_SND = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
' End If
|
||||
End If
|
||||
End Select
|
||||
' End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Abwechselnd grauen und wei<65>en Hintergrund
|
||||
If (dummycount Mod 2) = 0 Then
|
||||
|
||||
|
||||
'Abwechselnd grauen und wei<65>en Hintergrund
|
||||
If (dummycount Mod 2) = 0 Then
|
||||
Detail.BackColor = Drawing.Color.White
|
||||
Else
|
||||
Detail.BackColor = Drawing.Color.WhiteSmoke
|
||||
|
||||
@@ -43,9 +43,14 @@ Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
|
||||
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
|
||||
lblAbrechnugnsart.Text = "per Versandschein"
|
||||
Case "%"
|
||||
lblEinzelpreis.Text = ""
|
||||
lblEinzelpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
|
||||
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
|
||||
lblAbrechnugnsart.Text = "% vom Sicherheit"
|
||||
Case "SPEZIAL"
|
||||
lblGarantieBis.Text = "<EFBFBD> " & CDbl(Fields.Item("GARANTIEBIS").Value).ToString("N2", CultureInfo.InvariantCulture)
|
||||
lblEinzelpreis.Text = ""
|
||||
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
|
||||
lblAbrechnugnsart.Text = "Spezial"
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
BIN
SDL/Resources/Unisped_DE_logo.jpg
Normal file
BIN
SDL/Resources/Unisped_DE_logo.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.7 KiB |
BIN
SDL/Resources/Unisped_DE_logo.png
Normal file
BIN
SDL/Resources/Unisped_DE_logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 412 KiB |
BIN
SDL/Resources/Unisped_ZS_logo.png
Normal file
BIN
SDL/Resources/Unisped_ZS_logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 403 KiB |
BIN
SDL/Resources/Unisped_logo.png
Normal file
BIN
SDL/Resources/Unisped_logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 495 KiB |
BIN
SDL/Resources/sgs.png
Normal file
BIN
SDL/Resources/sgs.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 32 KiB |
BIN
SDL/Resources/unisped_aeo_DE.jpg
Normal file
BIN
SDL/Resources/unisped_aeo_DE.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 54 KiB |
BIN
SDL/Resources/unisped_aeo_ZS_AT.jpg
Normal file
BIN
SDL/Resources/unisped_aeo_ZS_AT.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 54 KiB |
@@ -2375,6 +2375,12 @@
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Reference.map</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\SGS\usrCntlSGS_NCTS.Designer.vb">
|
||||
<DependentUpon>usrCntlSGS_NCTS.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\SGS\usrCntlSGS_NCTS.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\TELOTEC\cTelotecInterface_Send.vb" />
|
||||
<Compile Include="ZOLLSYSTEM\TELOTEC\eZOLL\EZA\usrCntlTCeZOLL_EZA_Allg.Designer.vb">
|
||||
<DependentUpon>usrCntlTCeZOLL_EZA_Allg.vb</DependentUpon>
|
||||
@@ -3517,6 +3523,9 @@
|
||||
<EmbeddedResource Include="usrCntlWelcome.resx">
|
||||
<DependentUpon>usrCntlWelcome.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\SGS\usrCntlSGS_NCTS.resx">
|
||||
<DependentUpon>usrCntlSGS_NCTS.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\TELOTEC\eZOLL\EZA\usrCntlTCeZOLL_EZA_Allg.resx">
|
||||
<DependentUpon>usrCntlTCeZOLL_EZA_Allg.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -3994,6 +4003,15 @@
|
||||
<ItemGroup>
|
||||
<Content Include="My Project\logo_mdm.png" />
|
||||
<Content Include="My Project\zoll.png" />
|
||||
<None Include="Resources\unisped_aeo_ZS_AT.jpg" />
|
||||
<None Include="Resources\Unisped_ZS_logo.png" />
|
||||
<None Include="Resources\Unisped_logo.png" />
|
||||
<None Include="Resources\Unisped_DE_logo.png" />
|
||||
<None Include="Resources\unisped_aeo_DE.jpg" />
|
||||
<None Include="Resources\Unisped_DE_logo.jpg">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\sgs.png" />
|
||||
<None Include="Resources\plose_1.png" />
|
||||
<None Include="Resources\plose1.png" />
|
||||
<None Include="Resources\logo.png" />
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Public Class usrCntlATLAS_ncts_Adressen
|
||||
' Dim OWNER As Control
|
||||
Dim ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
|
||||
'Sub New(OWNER As Control, ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Sub New(ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut, FIRMA_DY As String)
|
||||
@@ -10,6 +11,13 @@
|
||||
Me.FIRMA_DY = FIRMA_DY
|
||||
End Sub
|
||||
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String)
|
||||
InitializeComponent()
|
||||
'Me.OWNER = OWNER
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
Me.FIRMA_DY = FIRMA_DY
|
||||
End Sub
|
||||
|
||||
Public Sub usrCntlATLAS_ncts_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' usrCntlSumA_Befoerderer.initME()
|
||||
MyComboBox1.Items.Clear()
|
||||
@@ -112,10 +120,135 @@
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(NCTS) ' As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
|
||||
'usrCntlSumA_Befoerderer.initME()
|
||||
If NCTS Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_Hauptverpflichteter_Name
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_Hauptverpflichteter_StrasseHausnummer
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_Hauptverpflichteter_PLZ
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_Hauptverpflichteter_Ort
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_Hauptverpflichteter_EORI
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
|
||||
|
||||
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
|
||||
|
||||
usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name
|
||||
usrCntlVersender.txtStrasse.Text = NCTS.ncts_Versender_StrasseHausnummer
|
||||
usrCntlVersender.txtPlz.Text = NCTS.ncts_Versender_PLZ
|
||||
usrCntlVersender.txtOrt.Text = NCTS.ncts_Versender_Ort
|
||||
usrCntlVersender.txtEORI.Text = NCTS.ncts_Versender_EORI
|
||||
usrCntlVersender.txtEORINL.Text = NCTS.ncts_Versender_NLNR
|
||||
usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Versender_Land)
|
||||
'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht
|
||||
|
||||
usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Empfaenger_Name
|
||||
usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Empfaenger_StrasseHausnummer
|
||||
usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Empfaenger_PLZ
|
||||
usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Empfaenger_Ort
|
||||
usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Empfaenger_EORI
|
||||
usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Empfaenger_NLNR
|
||||
usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Empfaenger_Land)
|
||||
'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht
|
||||
|
||||
' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
|
||||
'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender
|
||||
'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
|
||||
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
|
||||
|
||||
usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_SumA_Befoerderer_Name
|
||||
usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer
|
||||
usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ
|
||||
usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort
|
||||
usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_SumA_Befoerderer_EORI
|
||||
usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_SumA_Befoerderer_NLNR
|
||||
usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land)
|
||||
'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
|
||||
|
||||
NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_PLZ = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_Ort = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_Land = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
|
||||
NCTS.ncts_Hauptverpflichteter_EORI = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_NLNR = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORINL.Text)
|
||||
|
||||
|
||||
NCTS.ncts_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
|
||||
NCTS.ncts_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
|
||||
NCTS.ncts_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
|
||||
NCTS.ncts_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
|
||||
NCTS.ncts_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
|
||||
NCTS.ncts_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
|
||||
NCTS.ncts_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text)
|
||||
'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text)
|
||||
|
||||
|
||||
NCTS.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
|
||||
NCTS.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
|
||||
NCTS.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
|
||||
NCTS.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
|
||||
NCTS.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
|
||||
NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
|
||||
NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text)
|
||||
NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text)
|
||||
|
||||
'SumA: Beförderer
|
||||
'--------------------------------
|
||||
|
||||
NCTS.ncts_SumA_Befoerderer_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
|
||||
NCTS.ncts_SumA_Befoerderer_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
|
||||
|
||||
If cbxSumABeforderer.Checked Then
|
||||
NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
|
||||
NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
|
||||
|
||||
NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
|
||||
NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
|
||||
Else
|
||||
NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value)
|
||||
NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text)
|
||||
|
||||
NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value)
|
||||
NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues_TR(NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
|
||||
|
||||
'usrCntlSumA_Befoerderer.initME()
|
||||
If NCTS Is Nothing Then Exit Sub
|
||||
|
||||
@@ -2,6 +2,7 @@
|
||||
Property NCTS_ART = "T-"
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
|
||||
|
||||
|
||||
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
@@ -13,6 +14,15 @@
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
|
||||
@@ -141,7 +151,7 @@
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
Public Sub getValues(ByRef NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
NCTS.ncts_ArtAnmeldung = cProgramFunctions.isLeerNothing(NCTS_ART)
|
||||
NCTS.ncts_AbgangsDienststellennummer = cProgramFunctions.isLeerNothing(sbAbgangZollstelle._value)
|
||||
NCTS.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(sbBestimmungZollstelle._value)
|
||||
@@ -210,7 +220,7 @@
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
Public Sub setValues(NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
If NCTS Is Nothing Then Exit Sub
|
||||
sbAbgangZollstelle.SET_VALUE(If(NCTS.ncts_AbgangsDienststellennummer, ""))
|
||||
sbBestimmungZollstelle.SET_VALUE(If(NCTS.ncts_BestimmungsstelleDienststellennummer, ""))
|
||||
|
||||
@@ -5,6 +5,7 @@
|
||||
' Public Event NEXT_POS()
|
||||
' Public Event PREV_POS()
|
||||
Dim WARE As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing
|
||||
Dim WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing
|
||||
Event RohmasseChanged(rohmasse As Double, packstuecke As Double)
|
||||
Dim id As Integer = -1
|
||||
|
||||
@@ -17,7 +18,7 @@
|
||||
Me.id = id
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
@@ -25,6 +26,13 @@
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(id As Integer, WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
Me.WARE_TR = WARE_TR
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function getPackstuecke() As Integer
|
||||
|
||||
@@ -74,7 +82,8 @@
|
||||
cboVpTyp.changeItem("OHNE")
|
||||
|
||||
|
||||
setvalue(WARE)
|
||||
If WARE IsNot Nothing Then setvalue(WARE)
|
||||
If WARE_TR IsNot Nothing Then setvalue_TR(WARE_TR)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -179,6 +188,108 @@
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub setvalue_TR(WARE As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
|
||||
If WARE IsNot Nothing Then
|
||||
Me.txtWarenbezeichnung.Text = If(WARE.nctsWP_Warenbezeichnung, "")
|
||||
Me.txtRohmasse.Text = If(WARE.nctsWP_Rohmasse, "")
|
||||
Me.txtEigenmasse.Text = If(WARE.nctsWP_Eigenmasse, "")
|
||||
Me.txtWarennummer.Text = If(WARE.nctsWP_Warennummer, "")
|
||||
Me.txtWarenwert._value = If(WARE.nctsWP_Warenwert, "")
|
||||
|
||||
Me.txtSiBetragProzent._value = If(WARE.nctsWP_WarenwertProzent, 0.25)
|
||||
Me.cboVpTyp.changeItem(If(WARE.nctsWP_VorpapierTyp, ""))
|
||||
Me.cboWaehrung.SET_VALUE(If(WARE.nctsWP_WarenwertWaehrung, ""))
|
||||
|
||||
Dim packstuecke = 0
|
||||
dgvPackstuecke.Rows.Clear()
|
||||
If WARE.nctsWP_PACKSTUECKE IsNot Nothing Then
|
||||
For Each PK In WARE.nctsWP_PACKSTUECKE
|
||||
|
||||
Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.nctsWpPk_Verpackungsart)
|
||||
dgvPackstuecke.Rows.Add(PK.nctsWpPk_Verpackungsart, PK.nctsWpPk_PackstueckeAnzahl, VerpackArtTxt, PK.nctsWpPk_ZeichenNummern)
|
||||
Next
|
||||
End If
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
|
||||
|
||||
dgvUnterlage.Rows.Clear()
|
||||
If WARE.nctsWP_UNTERLAGEN IsNot Nothing Then
|
||||
For Each Ul In WARE.nctsWP_UNTERLAGEN
|
||||
Dim UlTxt = sbUlArten.GET_VALUE_OnlyReturn(Ul.nctsWpUl_Typ)
|
||||
dgvUnterlage.Rows.Add(Ul.nctsWpUl_Typ, UlTxt, Ul.nctsWpUl_Referenz, Ul.nctsWpUl_Zusatz)
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
dgvVorpapier.Rows.Clear()
|
||||
If WARE.nctsWP_VorpapierReferenz1 IsNot Nothing And WARE.nctsWP_VorpapierReferenz1 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz1, If(WARE.nctsWP_VorpapierZusatz1, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz2 IsNot Nothing And WARE.nctsWP_VorpapierReferenz2 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz2, If(WARE.nctsWP_VorpapierZusatz2, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz3 IsNot Nothing And WARE.nctsWP_VorpapierReferenz3 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz3, If(WARE.nctsWP_VorpapierZusatz3, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz4 IsNot Nothing And WARE.nctsWP_VorpapierReferenz4 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz4, If(WARE.nctsWP_VorpapierZusatz4, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz5 IsNot Nothing And WARE.nctsWP_VorpapierReferenz5 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz5, If(WARE.nctsWP_VorpapierZusatz5, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz6 IsNot Nothing And WARE.nctsWP_VorpapierReferenz6 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz6, If(WARE.nctsWP_VorpapierZusatz6, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz7 IsNot Nothing And WARE.nctsWP_VorpapierReferenz7 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz7, If(WARE.nctsWP_VorpapierZusatz7, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz8 IsNot Nothing And WARE.nctsWP_VorpapierReferenz8 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz8, If(WARE.nctsWP_VorpapierZusatz8, ""))
|
||||
If WARE.nctsWP_VorpapierReferenz9 IsNot Nothing And WARE.nctsWP_VorpapierReferenz9 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz9, If(WARE.nctsWP_VorpapierZusatz9, ""))
|
||||
|
||||
Me.cbxEmport.Checked = If(WARE.nctsWP_BesondereVermeke_Export, False)
|
||||
Me.cbxEmportAbgaben.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAbgaben, False)
|
||||
Me.cbxEmportBeschraernkung.Checked = If(WARE.nctsWP_BesondereVermeke_ExportBeschraenkung, False)
|
||||
' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
|
||||
|
||||
If WARE.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then
|
||||
Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
|
||||
Else
|
||||
Me.cbxExportAusEU.CheckState = CheckState.Indeterminate
|
||||
End If
|
||||
|
||||
If WARE.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing AndAlso WARE.nctsWP_BesondereVermeke_ExportAusLand <> "" Then
|
||||
Me.cbxEmportAusLand.Checked = True
|
||||
sbExportAusLand.SET_VALUE(WARE.nctsWP_BesondereVermeke_ExportAusLand)
|
||||
Else
|
||||
sbExportAusLand.SET_VALUE("")
|
||||
Me.cbxEmportAusLand.Checked = False
|
||||
End If
|
||||
|
||||
txtKdRefNr.Text = If(WARE.nctsWP_KdRefNr, "")
|
||||
|
||||
usrcntlVersedner.kdFirma.Text = WARE.nctsWP_Versender_Name
|
||||
usrcntlVersedner.txtStrasse.Text = WARE.nctsWP_Versender_StrasseHausnummer
|
||||
usrcntlVersedner.txtPlz.Text = WARE.nctsWP_Versender_PLZ
|
||||
usrcntlVersedner.txtOrt.Text = WARE.nctsWP_Versender_Ort
|
||||
usrcntlVersedner.txtEORI.Text = WARE.nctsWP_Versender_EORI
|
||||
usrcntlVersedner.txtEORINL.Text = WARE.nctsWP_Versender_NLNR
|
||||
usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsWP_Versender_Land)
|
||||
|
||||
usrcntlEmpfaenger.kdFirma.Text = WARE.nctsWP_Empfaenger_Name
|
||||
usrcntlEmpfaenger.txtStrasse.Text = WARE.nctsWP_Empfaenger_StrasseHausnummer
|
||||
usrcntlEmpfaenger.txtPlz.Text = WARE.nctsWP_Empfaenger_PLZ
|
||||
usrcntlEmpfaenger.txtOrt.Text = WARE.nctsWP_Empfaenger_Ort
|
||||
usrcntlEmpfaenger.txtEORI.Text = WARE.nctsWP_Empfaenger_EORI
|
||||
usrcntlEmpfaenger.txtEORINL.Text = WARE.nctsWP_Empfaenger_NLNR
|
||||
usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_Empfaenger_Land)
|
||||
|
||||
|
||||
usrcntlSumAVersedner.kdFirma.Text = WARE.nctsWP_SumAVersender_Name
|
||||
usrcntlSumAVersedner.txtStrasse.Text = WARE.nctsWP_SumAVersender_StrasseHausnummer
|
||||
usrcntlSumAVersedner.txtPlz.Text = WARE.nctsWP_SumAVersender_PLZ
|
||||
usrcntlSumAVersedner.txtOrt.Text = WARE.nctsWP_SumAVersender_Ort
|
||||
usrcntlSumAVersedner.txtEORI.Text = WARE.nctsWP_SumAVersender_EORI
|
||||
usrcntlSumAVersedner.txtEORINL.Text = WARE.nctsWP_SumAVersender_NLNR
|
||||
usrcntlSumAVersedner.sbLand.SET_VALUE(WARE.nctsWP_SumAVersender_Land)
|
||||
|
||||
usrcntlSumAEmpfaenger.kdFirma.Text = WARE.nctsWP_SumAEmpfaenger_Name
|
||||
usrcntlSumAEmpfaenger.txtStrasse.Text = WARE.nctsWP_SumAEmpfaenger_StrasseHausnummer
|
||||
usrcntlSumAEmpfaenger.txtPlz.Text = WARE.nctsWP_SumAEmpfaenger_PLZ
|
||||
usrcntlSumAEmpfaenger.txtOrt.Text = WARE.nctsWP_SumAEmpfaenger_Ort
|
||||
usrcntlSumAEmpfaenger.txtEORI.Text = WARE.nctsWP_SumAEmpfaenger_EORI
|
||||
usrcntlSumAEmpfaenger.txtEORINL.Text = WARE.nctsWP_SumAEmpfaenger_NLNR
|
||||
usrcntlSumAEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_SumAEmpfaenger_Land)
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
addPackstuecke()
|
||||
End Sub
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Public Class usrCntlATLAS_NCTS_Positionen
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
|
||||
|
||||
Dim POS As New List(Of usrCntlATLAS_NCTS_Position)
|
||||
Dim sectionChangeBLOCK = False
|
||||
@@ -11,7 +12,8 @@
|
||||
Event PosAnzChanged(anzahlPos As Double)
|
||||
|
||||
|
||||
Sub New(NCTS)
|
||||
|
||||
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
@@ -19,6 +21,15 @@
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.NCTS = NCTS
|
||||
End Sub
|
||||
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
End Sub
|
||||
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
' addItem() 'Auskommentiert!
|
||||
@@ -36,7 +47,18 @@
|
||||
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub setValues_TR(NCTS_POS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
|
||||
If NCTS_POS Is Nothing Then Exit Sub
|
||||
POS.Clear()
|
||||
|
||||
For Each p In NCTS_POS.ncts_WARENPOS
|
||||
addItem_TR(p) 'MyPanel2.Controls.Add()
|
||||
Next
|
||||
MyPanel2.Controls.Clear()
|
||||
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initListBox(Optional selectedIndex = -1)
|
||||
If dgvPositionen.ColumnCount <= 0 Then Exit Sub
|
||||
@@ -159,7 +181,7 @@
|
||||
End If
|
||||
End Function
|
||||
|
||||
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position
|
||||
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position '
|
||||
Dim u = New usrCntlATLAS_NCTS_Position(POS.Count, POSTMP)
|
||||
|
||||
AddHandler u.RohmasseChanged, Sub(r, pk)
|
||||
@@ -191,6 +213,39 @@
|
||||
Return u
|
||||
End Function
|
||||
|
||||
Function addItem_TR(Optional POSTMP As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position '
|
||||
Dim u = New usrCntlATLAS_NCTS_Position(POS.Count, POSTMP)
|
||||
|
||||
AddHandler u.RohmasseChanged, Sub(r, pk)
|
||||
gesRohmasse = 0
|
||||
gesPackstuecke = 0
|
||||
For Each p As usrCntlATLAS_NCTS_Position In POS
|
||||
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
|
||||
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
|
||||
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
|
||||
Next
|
||||
Next
|
||||
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
|
||||
End Sub
|
||||
u.Dock = DockStyle.Fill
|
||||
u.cboVpTyp.changeItem("OHNE")
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "ATILLA"
|
||||
u.cbxEmport.Checked = True
|
||||
End Select
|
||||
' AddHandler u.ADD, AddressOf addItem
|
||||
' AddHandler u.REMOVE, AddressOf removeItem
|
||||
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
|
||||
' AddHandler u.PREV_POS, AddressOf PREV_POS
|
||||
POS.Add(u)
|
||||
initListBox()
|
||||
dgvPositionen.ClearSelection()
|
||||
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
Return u
|
||||
End Function
|
||||
|
||||
|
||||
Sub removeItem(index)
|
||||
If index < 0 Then Exit Sub
|
||||
'If index < 0 Then Exit Sub
|
||||
@@ -422,6 +477,175 @@
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
|
||||
' Dim POSITIONEN As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
|
||||
NCTS.ncts_WARENPOS.Clear()
|
||||
|
||||
Dim cnt As Integer = 1
|
||||
For Each P In POS
|
||||
Dim POSITION As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
|
||||
|
||||
'POSITION.nctsWP_Id As Integer
|
||||
' POSITION.nctsWP_NctsId = NCTS.ncts_Id
|
||||
POSITION.nctsWP_PositionsNummer = cnt
|
||||
POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothingDbl(P.txtWarennummer.Text)
|
||||
POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value)
|
||||
POSITION.nctsWP_Warenbezeichnung = P.txtWarenbezeichnung.Text
|
||||
POSITION.nctsWP_Warenwert = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
|
||||
POSITION.nctsWP_WarenwertProzent = cProgramFunctions.isLeerNothingDbl(P.txtSiBetragProzent._value)
|
||||
POSITION.nctsWP_WarenwertWaehrung = cProgramFunctions.isLeerNothing(P.cboWaehrung._value)
|
||||
'POSITION.nctsWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text
|
||||
'POSITION.nctsWP_SchaetzKz = P.XXXXXXXXXXXX.Text
|
||||
'POSITION.nctsWP_WarenwertProzent = P.XXXXXXXXXXXX.Text
|
||||
POSITION.nctsWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
|
||||
POSITION.nctsWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
|
||||
|
||||
POSITION.nctsWP_VorpapierTyp = cProgramFunctions.isLeerNothing(P.cboVpTyp._value)
|
||||
|
||||
|
||||
POSITION.nctsWP_BesondereVermeke_Export = P.cbxEmport.Checked
|
||||
POSITION.nctsWP_BesondereVermeke_ExportAbgaben = P.cbxEmportAbgaben.Checked
|
||||
POSITION.nctsWP_BesondereVermeke_ExportBeschraenkung = P.cbxEmportBeschraernkung.Checked
|
||||
POSITION.nctsWP_BesondereVermeke_ExportAusEU = P.cbxExportAusEU.Checked
|
||||
POSITION.nctsWP_VersendungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value)
|
||||
POSITION.nctsWP_BestimmungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value)
|
||||
|
||||
If P.cbxExportAusEU.CheckState = CheckState.Checked Then
|
||||
POSITION.nctsWP_BesondereVermeke_ExportAusEU = True
|
||||
ElseIf P.cbxExportAusEU.CheckState = CheckState.Unchecked Then
|
||||
POSITION.nctsWP_BesondereVermeke_ExportAusEU = False
|
||||
Else
|
||||
POSITION.nctsWP_BesondereVermeke_ExportAusEU = Nothing
|
||||
End If
|
||||
|
||||
If P.cbxEmportAusLand.Checked = CheckState.Checked Then
|
||||
POSITION.nctsWP_BesondereVermeke_ExportAusLand = cProgramFunctions.isLeerNothing(P.sbExportAusLand._value)
|
||||
Else
|
||||
POSITION.nctsWP_BesondereVermeke_ExportAusLand = Nothing
|
||||
End If
|
||||
|
||||
POSITION.nctsWP_BesondereVermeke_Vermerk = P.cbxVermerk.Text
|
||||
POSITION.nctsWP_BesondereVermeke_Kz10600 = P.cbxVermerk10600.Checked
|
||||
|
||||
|
||||
POSITION.nctsWP_VorpapierReferenz1 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz1 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz2 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz2 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz3 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz3 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz4 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz4 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz5 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz5 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz6 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz6 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz7 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz7 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz8 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz8 = Nothing
|
||||
POSITION.nctsWP_VorpapierReferenz9 = Nothing
|
||||
POSITION.nctsWP_VorpapierZusatz9 = Nothing
|
||||
If P.dgvVorpapier.Rows.Count > 0 Then
|
||||
POSITION.nctsWP_VorpapierReferenz1 = P.dgvVorpapier.Rows(0).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz1 = P.dgvVorpapier.Rows(0).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 1 Then
|
||||
POSITION.nctsWP_VorpapierReferenz2 = P.dgvVorpapier.Rows(1).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz2 = P.dgvVorpapier.Rows(1).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 2 Then
|
||||
POSITION.nctsWP_VorpapierReferenz3 = P.dgvVorpapier.Rows(2).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz3 = P.dgvVorpapier.Rows(2).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 3 Then
|
||||
POSITION.nctsWP_VorpapierReferenz4 = P.dgvVorpapier.Rows(3).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz4 = P.dgvVorpapier.Rows(3).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 4 Then
|
||||
POSITION.nctsWP_VorpapierReferenz5 = P.dgvVorpapier.Rows(4).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz5 = P.dgvVorpapier.Rows(4).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 5 Then
|
||||
POSITION.nctsWP_VorpapierReferenz6 = P.dgvVorpapier.Rows(5).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz6 = P.dgvVorpapier.Rows(5).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 6 Then
|
||||
POSITION.nctsWP_VorpapierReferenz7 = P.dgvVorpapier.Rows(6).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz7 = P.dgvVorpapier.Rows(6).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 7 Then
|
||||
POSITION.nctsWP_VorpapierReferenz8 = P.dgvVorpapier.Rows(7).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz8 = P.dgvVorpapier.Rows(7).Cells("VpZusatz").Value
|
||||
End If
|
||||
If P.dgvVorpapier.Rows.Count > 8 Then
|
||||
POSITION.nctsWP_VorpapierReferenz9 = P.dgvVorpapier.Rows(8).Cells("VpReferenz").Value
|
||||
POSITION.nctsWP_VorpapierZusatz9 = P.dgvVorpapier.Rows(8).Cells("VpZusatz").Value
|
||||
End If
|
||||
|
||||
POSITION.nctsWP_PACKSTUECKE = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke)
|
||||
For Each r As DataGridViewRow In P.dgvPackstuecke.Rows
|
||||
Dim Pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
|
||||
Pk.nctsWpPk_Verpackungsart = r.Cells("PkCode").Value
|
||||
Pk.nctsWpPk_PackstueckeAnzahl = r.Cells("Anzahl").Value
|
||||
Pk.nctsWpPk_ZeichenNummern = r.Cells("Marke").Value
|
||||
POSITION.nctsWP_PACKSTUECKE.Add(Pk)
|
||||
Next
|
||||
|
||||
POSITION.nctsWP_UNTERLAGEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen)
|
||||
For Each r As DataGridViewRow In P.dgvUnterlage.Rows
|
||||
Dim Ul As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen
|
||||
Ul.nctsWpUl_Typ = r.Cells("UlCode").Value
|
||||
Ul.nctsWpUl_Referenz = r.Cells("UlReferenz").Value
|
||||
Ul.nctsWpUl_Zusatz = r.Cells("UlZusatz").Value
|
||||
POSITION.nctsWP_UNTERLAGEN.Add(Ul)
|
||||
Next
|
||||
|
||||
POSITION.nctsWP_KdRefNr = P.txtKdRefNr.Text
|
||||
|
||||
POSITION.nctsWP_Versender_Name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text)
|
||||
POSITION.nctsWP_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text)
|
||||
POSITION.nctsWP_Versender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text)
|
||||
POSITION.nctsWP_Versender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text)
|
||||
POSITION.nctsWP_Versender_Land = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value)
|
||||
POSITION.nctsWP_Versender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text)
|
||||
POSITION.nctsWP_Versender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORINL.Text)
|
||||
|
||||
POSITION.nctsWP_Empfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text)
|
||||
POSITION.nctsWP_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text)
|
||||
POSITION.nctsWP_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text)
|
||||
POSITION.nctsWP_Empfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text)
|
||||
POSITION.nctsWP_Empfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value)
|
||||
POSITION.nctsWP_Empfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text)
|
||||
POSITION.nctsWP_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORINL.Text)
|
||||
|
||||
POSITION.nctsWP_SumAVersender_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.kdFirma.Text)
|
||||
POSITION.nctsWP_SumAVersender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtStrasse.Text)
|
||||
POSITION.nctsWP_SumAVersender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtPlz.Text)
|
||||
POSITION.nctsWP_SumAVersender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtOrt.Text)
|
||||
POSITION.nctsWP_SumAVersender_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.sbLand._value)
|
||||
POSITION.nctsWP_SumAVersender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORI.Text)
|
||||
POSITION.nctsWP_SumAVersender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORINL.Text)
|
||||
|
||||
POSITION.nctsWP_SumAEmpfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.kdFirma.Text)
|
||||
POSITION.nctsWP_SumAEmpfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtStrasse.Text)
|
||||
POSITION.nctsWP_SumAEmpfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtPlz.Text)
|
||||
POSITION.nctsWP_SumAEmpfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtOrt.Text)
|
||||
POSITION.nctsWP_SumAEmpfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.sbLand._value)
|
||||
POSITION.nctsWP_SumAEmpfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORI.Text)
|
||||
POSITION.nctsWP_SumAEmpfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORINL.Text)
|
||||
|
||||
|
||||
NCTS.ncts_WARENPOS.Add(POSITION)
|
||||
cnt += 1
|
||||
Next
|
||||
' NCTS.ncts_WARENPOS
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
|
||||
Try : DirectCast(e.Control, usrCntlATLAS_NCTS_Position).txtWarenbezeichnung.Focus() : Catch : End Try
|
||||
End Sub
|
||||
|
||||
@@ -5,10 +5,11 @@
|
||||
' Public NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||
' Dim AKT_POS As Integer = -1
|
||||
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
|
||||
|
||||
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Sub New(NCTS, FIRMA_DY) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
@@ -26,6 +27,24 @@
|
||||
' Next
|
||||
|
||||
End Sub
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
Me.FIRMA_DY = FIRMA_DY
|
||||
' loadValues()
|
||||
' ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
'If NCTS.ncts_SICHERHEITSANGABEN.Count = 0 Then
|
||||
'NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut_Sicherheitsangaben)
|
||||
'End If
|
||||
' For Each s In NCTS.ncts_SICHERHEITSANGABEN
|
||||
'Dim u As New usrCntlATLAS_NCTS_SicherheitPos
|
||||
' u.loadBrg(s)
|
||||
' LIST.Add(u)
|
||||
' Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -46,6 +65,17 @@
|
||||
|
||||
End Sub
|
||||
|
||||
Sub addPos_TR(Optional sa As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben = Nothing)
|
||||
Dim u As New usrCntlATLAS_ncts_SicherheitPos(FIRMA_DY)
|
||||
LIST.Add(u)
|
||||
If sa IsNot Nothing Then
|
||||
u.setValues_TR(sa)
|
||||
End If
|
||||
|
||||
loadDGVListValues()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
|
||||
initPosAnzeige()
|
||||
End Sub
|
||||
@@ -144,6 +174,28 @@
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getValues_TR() As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
|
||||
Dim SA As New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
|
||||
For Each s As usrCntlATLAS_ncts_SicherheitPos In LIST
|
||||
SA.Add(s.getValues_TR)
|
||||
Next
|
||||
Return SA
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub setValues_TR(ByRef SA As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben))
|
||||
Panel1.Controls.Clear()
|
||||
If SA Is Nothing Then Exit Sub
|
||||
LIST.Clear()
|
||||
For Each s In SA
|
||||
addPos_TR(s)
|
||||
Next
|
||||
If LIST.Count = 0 Then addPos() 'leere Laden
|
||||
loadDGVListValues()
|
||||
initPosAnzeige()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cDakosy_Sicherheitsarten
|
||||
|
||||
@@ -232,4 +232,42 @@
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getValues_TR() As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
|
||||
Dim SA = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
|
||||
SA.nctsSA_AbgabenBetrag = cProgramFunctions.isLeerNothing(txtAbgabenbetrag._value)
|
||||
SA.nctsSA_BezeichnungBescheinigun = cProgramFunctions.isLeerNothing(txtBezeichnung._value)
|
||||
SA.nctsSA_ArtCode = cProgramFunctions.isLeerNothing(cboArtSicherheit._value)
|
||||
SA.nctsSA_GRN = cProgramFunctions.isLeerNothing(txtGRN._value)
|
||||
SA.nctsSA_Zugriffcode = cProgramFunctions.isLeerNothing(txtZugriffscode._value)
|
||||
SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value)
|
||||
If SA.nctsSA_AbgabenBetrag Is Nothing Then SA.nctsSA_AbgabenBetrag = 0
|
||||
Return SA
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub setValues_TR(SA As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
|
||||
setBtn(btnBrgVERAG_AT, False)
|
||||
setBtn(btnBrgVERAG_DE, False)
|
||||
setBtn(btnBrgTOBB, False)
|
||||
setBtn(btnBrgSGS, False)
|
||||
setBtn(btnMars, False)
|
||||
setBtn(btnEKOL, False)
|
||||
setBtn(btnBrgSonstige, False)
|
||||
|
||||
Select Case If(SA.nctsSA_GRN, "")
|
||||
Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True)
|
||||
Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True)
|
||||
Case Else : setBtn(btnBrgSonstige, True)
|
||||
End Select
|
||||
|
||||
|
||||
cboArtSicherheit.changeItem(If(SA.nctsSA_ArtCode, "")) 'Gesamtbürgschaft
|
||||
txtGRN.Text = If(SA.nctsSA_GRN, "")
|
||||
txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
|
||||
txtZugriffscode.Text = If(SA.nctsSA_Zugriffcode, "")
|
||||
txtAbgabenbetrag._value = If(SA.nctsSA_AbgabenBetrag, "")
|
||||
'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -14,11 +14,12 @@
|
||||
' Dim AES As DAKOSY_Worker.cDakosyAES = Nothing
|
||||
|
||||
Dim FIRMA_DY = ""
|
||||
Dim ZOLL_SYSTEM = "DAKOSY"
|
||||
|
||||
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
|
||||
|
||||
|
||||
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', JAHR As Integer) ', Optional ZA = Nothing)
|
||||
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional ZOLL_SYSTEM As String = "DAKOSY") ', JAHR As Integer) ', Optional ZA = Nothing)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
@@ -26,7 +27,7 @@
|
||||
|
||||
Me.DY = DY
|
||||
If DY.dy_AvisoId IsNot Nothing AndAlso DY.dy_AvisoId > 0 Then
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cavisoDAL
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
Me.AVISO = AV.LesenAviso(DY.dy_AvisoId, "")
|
||||
End If
|
||||
Me.ART = ART
|
||||
@@ -36,10 +37,11 @@
|
||||
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
|
||||
End If
|
||||
Me.JAHR = JAHR
|
||||
Me.ZOLL_SYSTEM = ZOLL_SYSTEM
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer) ', Optional ZA = Nothing)
|
||||
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
@@ -50,6 +52,7 @@
|
||||
Me.ART = ART
|
||||
Me.SENDUNG = SENDUNG
|
||||
Me.JAHR = JAHR
|
||||
Me.ZOLL_SYSTEM = ZOLL_SYSTEM
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
Me.FilialenNr = SENDUNG.FilialenNr
|
||||
@@ -90,60 +93,88 @@
|
||||
End If
|
||||
End If
|
||||
|
||||
Select Case ART
|
||||
Case "T1", "T2", "NCTS", "ÜT"
|
||||
' DY.dy_ART = ART
|
||||
' Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "")
|
||||
'Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
Select Case ZOLL_SYSTEM
|
||||
Case "SGS"
|
||||
Select Case ART
|
||||
Case "T1", "T2", "NCTS", "ÜT"
|
||||
|
||||
If ART = "ÜT" Then
|
||||
ART = "T1"
|
||||
isSTAMMREF = False
|
||||
STAMMREF = "" '??????????????????????????????
|
||||
End If
|
||||
If ART = "ÜT" Then
|
||||
ART = "T1"
|
||||
isSTAMMREF = False
|
||||
STAMMREF = "" '??????????????????????????????
|
||||
End If
|
||||
|
||||
If Me.DY Is Nothing Then
|
||||
Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
If Me.DY Is Nothing Then
|
||||
Dim usrcntl As New usrCntlSGS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
Else
|
||||
Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
Else
|
||||
Dim usrcntl As New usrCntlSGS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Select
|
||||
|
||||
Case Else '"DAKOSY'
|
||||
|
||||
|
||||
Select Case ART
|
||||
Case "T1", "T2", "NCTS", "ÜT"
|
||||
' DY.dy_ART = ART
|
||||
' Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "")
|
||||
'Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
|
||||
If ART = "ÜT" Then
|
||||
ART = "T1"
|
||||
isSTAMMREF = False
|
||||
STAMMREF = "" '??????????????????????????????
|
||||
End If
|
||||
|
||||
If Me.DY Is Nothing Then
|
||||
Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
Else
|
||||
Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Case "AES", "EX", "EU", "CO"
|
||||
Case "AES", "EX", "EU", "CO"
|
||||
|
||||
If Me.DY Is Nothing Then
|
||||
Dim usrcntl As New usrCntlATLAS_AES(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
If Me.DY Is Nothing Then
|
||||
Dim usrcntl As New usrCntlATLAS_AES(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
Else
|
||||
Dim usrcntl As New usrCntlATLAS_AES(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
Else
|
||||
Dim usrcntl As New usrCntlATLAS_AES(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Case "EZA", "VZA"
|
||||
Case "EZA", "VZA"
|
||||
|
||||
If Me.DY Is Nothing Then
|
||||
Dim usrcntl As New usrCntlATLAS_EZA(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
If Me.DY Is Nothing Then
|
||||
Dim usrcntl As New usrCntlATLAS_EZA(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
Else
|
||||
Dim usrcntl As New usrCntlATLAS_EZA(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
Else
|
||||
Dim usrcntl As New usrCntlATLAS_EZA(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
515
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.Designer.vb
generated
Normal file
515
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.Designer.vb
generated
Normal file
@@ -0,0 +1,515 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlSGS_NCTS
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.btnAllgemein = New System.Windows.Forms.Button()
|
||||
Me.btnAdressen = New System.Windows.Forms.Button()
|
||||
Me.btnSicherheit = New System.Windows.Forms.Button()
|
||||
Me.btnVerschlüsse = New System.Windows.Forms.Button()
|
||||
Me.btnPositionen = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblBezugsnummer = New System.Windows.Forms.Label()
|
||||
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.txtDyMandant = New System.Windows.Forms.Label()
|
||||
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
|
||||
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
|
||||
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
Me.SplitContainer.SuspendLayout()
|
||||
Me.MyFlowLayoutPanel1.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.cntxtBezugsnr.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.MenuStrip.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainer
|
||||
'
|
||||
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
|
||||
Me.SplitContainer.IsSplitterFixed = True
|
||||
Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.SplitContainer.Name = "SplitContainer"
|
||||
Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer.Panel1
|
||||
'
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
|
||||
'
|
||||
'SplitContainer.Panel2
|
||||
'
|
||||
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
|
||||
Me.SplitContainer.SplitterDistance = 72
|
||||
Me.SplitContainer.SplitterWidth = 1
|
||||
Me.SplitContainer.TabIndex = 0
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
'
|
||||
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSicherheit)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVerschlüsse)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
|
||||
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
|
||||
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
|
||||
Me.MyFlowLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'btnAllgemein
|
||||
'
|
||||
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
|
||||
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAllgemein.Name = "btnAllgemein"
|
||||
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAllgemein.TabIndex = 0
|
||||
Me.btnAllgemein.Text = "Allgemein"
|
||||
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAllgemein.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAdressen
|
||||
'
|
||||
Me.btnAdressen.BackColor = System.Drawing.Color.White
|
||||
Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1
|
||||
Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
|
||||
Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAdressen.Name = "btnAdressen"
|
||||
Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAdressen.TabIndex = 1
|
||||
Me.btnAdressen.Text = "Adressen"
|
||||
Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAdressen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnSicherheit
|
||||
'
|
||||
Me.btnSicherheit.BackColor = System.Drawing.Color.White
|
||||
Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSicherheit.Image = Global.SDL.My.Resources.Resources.sicherheit1
|
||||
Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSicherheit.Location = New System.Drawing.Point(160, 2)
|
||||
Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSicherheit.Name = "btnSicherheit"
|
||||
Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnSicherheit.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnSicherheit.TabIndex = 2
|
||||
Me.btnSicherheit.Text = "Sicherheit"
|
||||
Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSicherheit.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnVerschlüsse
|
||||
'
|
||||
Me.btnVerschlüsse.BackColor = System.Drawing.Color.White
|
||||
Me.btnVerschlüsse.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnVerschlüsse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVerschlüsse.Image = Global.SDL.My.Resources.Resources.seal3
|
||||
Me.btnVerschlüsse.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnVerschlüsse.Location = New System.Drawing.Point(245, 2)
|
||||
Me.btnVerschlüsse.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnVerschlüsse.Name = "btnVerschlüsse"
|
||||
Me.btnVerschlüsse.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
|
||||
Me.btnVerschlüsse.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnVerschlüsse.TabIndex = 3
|
||||
Me.btnVerschlüsse.Text = "Verschlüsse"
|
||||
Me.btnVerschlüsse.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnVerschlüsse.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnPositionen
|
||||
'
|
||||
Me.btnPositionen.BackColor = System.Drawing.Color.White
|
||||
Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2
|
||||
Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPositionen.Location = New System.Drawing.Point(330, 2)
|
||||
Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnPositionen.Name = "btnPositionen"
|
||||
Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnPositionen.TabIndex = 4
|
||||
Me.btnPositionen.Text = "Positionen"
|
||||
Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPositionen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.BackColor = System.Drawing.Color.White
|
||||
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button5.Location = New System.Drawing.Point(415, 2)
|
||||
Me.Button5.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.Button5.Size = New System.Drawing.Size(81, 67)
|
||||
Me.Button5.TabIndex = 5
|
||||
Me.Button5.Text = "Referenzen"
|
||||
Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.Button5.UseVisualStyleBackColor = False
|
||||
Me.Button5.Visible = False
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.pnl.Controls.Add(Me.Label8)
|
||||
Me.pnl.Controls.Add(Me.Label7)
|
||||
Me.pnl.Controls.Add(Me.Label6)
|
||||
Me.pnl.Controls.Add(Me.cboStammreferenz)
|
||||
Me.pnl.Controls.Add(Me.cboDakosyAction)
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Controls.Add(Me.Label4)
|
||||
Me.pnl.Controls.Add(Me.Label5)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.Label3)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pnl.Location = New System.Drawing.Point(573, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(361, 72)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(8, 34)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "Rohmasse:"
|
||||
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label7.Location = New System.Drawing.Point(73, 31)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(122, 18)
|
||||
Me.Label7.TabIndex = 13
|
||||
Me.Label7.Text = "0 kg"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(8, 51)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label6.TabIndex = 12
|
||||
Me.Label6.Text = "Stammref.:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'cboStammreferenz
|
||||
'
|
||||
Me.cboStammreferenz._allowedValuesFreiText = Nothing
|
||||
Me.cboStammreferenz._allowFreiText = False
|
||||
Me.cboStammreferenz._value = ""
|
||||
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboStammreferenz.FormattingEnabled = True
|
||||
Me.cboStammreferenz.Location = New System.Drawing.Point(66, 48)
|
||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
||||
Me.cboStammreferenz.TabIndex = 11
|
||||
'
|
||||
'cboDakosyAction
|
||||
'
|
||||
Me.cboDakosyAction._allowedValuesFreiText = Nothing
|
||||
Me.cboDakosyAction._allowFreiText = False
|
||||
Me.cboDakosyAction._value = ""
|
||||
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboDakosyAction.FormattingEnabled = True
|
||||
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
|
||||
Me.cboDakosyAction.Name = "cboDakosyAction"
|
||||
Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cboDakosyAction.TabIndex = 1
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackColor = System.Drawing.Color.White
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button1.Location = New System.Drawing.Point(200, 5)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(159, 42)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "An SGS senden -->"
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(8, 19)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label4.TabIndex = 9
|
||||
Me.Label4.Text = "Packstücke:"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label5.Location = New System.Drawing.Point(73, 16)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(122, 18)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Text = "0 Pk"
|
||||
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(8, 4)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(59, 13)
|
||||
Me.Label2.TabIndex = 7
|
||||
Me.Label2.Text = "Positionen:"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label3.Location = New System.Drawing.Point(103, 1)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(92, 18)
|
||||
Me.Label3.TabIndex = 8
|
||||
Me.Label3.Text = "1"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(581, 7)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label1.TabIndex = 5
|
||||
Me.Label1.Text = "Bezugsnummer:"
|
||||
'
|
||||
'lblBezugsnummer
|
||||
'
|
||||
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
|
||||
Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
|
||||
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1)
|
||||
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
||||
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
|
||||
Me.lblBezugsnummer.TabIndex = 6
|
||||
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
||||
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'cntxtBezugsnr
|
||||
'
|
||||
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem})
|
||||
Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
|
||||
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26)
|
||||
Me.cntxtBezugsnr.Text = "Bezugsnr"
|
||||
'
|
||||
'NeueBezugsnummerVergebenToolStripMenuItem
|
||||
'
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.pic)
|
||||
Me.Panel1.Controls.Add(Me.txtDyMandant)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
|
||||
Me.Panel1.Controls.Add(Me.lblBezugsnummer)
|
||||
Me.Panel1.Controls.Add(Me.MenuStrip)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(934, 25)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.BackColor = System.Drawing.Color.White
|
||||
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.sgs
|
||||
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.pic.Location = New System.Drawing.Point(217, 0)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(100, 24)
|
||||
Me.pic.TabIndex = 20
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'txtDyMandant
|
||||
'
|
||||
Me.txtDyMandant.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyMandant.Location = New System.Drawing.Point(443, 7)
|
||||
Me.txtDyMandant.Name = "txtDyMandant"
|
||||
Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
|
||||
Me.txtDyMandant.TabIndex = 19
|
||||
Me.txtDyMandant.Text = "VERG"
|
||||
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtDyNiederlassung
|
||||
'
|
||||
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7)
|
||||
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
||||
Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13)
|
||||
Me.txtDyNiederlassung.TabIndex = 18
|
||||
Me.txtDyNiederlassung.Text = "SUB"
|
||||
'
|
||||
'MenuStrip
|
||||
'
|
||||
Me.MenuStrip.BackColor = System.Drawing.Color.White
|
||||
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem})
|
||||
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip.Name = "MenuStrip"
|
||||
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
|
||||
Me.MenuStrip.TabIndex = 0
|
||||
'
|
||||
'OptionenToolStripMenuItem
|
||||
'
|
||||
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
|
||||
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
|
||||
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
|
||||
Me.OptionenToolStripMenuItem.Text = "Optionen"
|
||||
'
|
||||
'SpeichernToolStripMenuItem
|
||||
'
|
||||
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
|
||||
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
|
||||
Me.SpeichernToolStripMenuItem.Text = "Speichern"
|
||||
'
|
||||
'LadenToolStripMenuItem
|
||||
'
|
||||
Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
|
||||
Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
|
||||
Me.LadenToolStripMenuItem.Text = "Laden ..."
|
||||
'
|
||||
'usrCntlSGS_NCTS
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.SplitContainer)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Name = "usrCntlSGS_NCTS"
|
||||
Me.Size = New System.Drawing.Size(934, 712)
|
||||
Me.SplitContainer.Panel1.ResumeLayout(False)
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer.ResumeLayout(False)
|
||||
Me.MyFlowLayoutPanel1.ResumeLayout(False)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.cntxtBezugsnr.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.MenuStrip.ResumeLayout(False)
|
||||
Me.MenuStrip.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
|
||||
Friend WithEvents btnAllgemein As System.Windows.Forms.Button
|
||||
Friend WithEvents btnAdressen As System.Windows.Forms.Button
|
||||
Friend WithEvents btnSicherheit As System.Windows.Forms.Button
|
||||
Friend WithEvents btnVerschlüsse As System.Windows.Forms.Button
|
||||
Friend WithEvents btnPositionen As System.Windows.Forms.Button
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents txtDyMandant As System.Windows.Forms.Label
|
||||
Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents pic As PictureBox
|
||||
End Class
|
||||
126
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.resx
Normal file
126
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.resx
Normal file
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="cntxtBezugsnr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</metadata>
|
||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
616
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.vb
Normal file
616
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.vb
Normal file
@@ -0,0 +1,616 @@
|
||||
Imports DAKOSY_Worker
|
||||
|
||||
Imports Tamir
|
||||
Imports Tamir.SharpSsh
|
||||
|
||||
Public Class usrCntlSGS_NCTS
|
||||
|
||||
Property ALLG As usrCntlATLAS_NCTS_Allg
|
||||
Property ADRESSEN As usrCntlATLAS_ncts_Adressen
|
||||
Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit
|
||||
Property POSITIONEN As usrCntlATLAS_NCTS_Positionen
|
||||
Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse
|
||||
'Property FilialeNr As Integer
|
||||
' Property AbfertigungsNr As Integer
|
||||
Property Jahr2Stellig As Integer
|
||||
Property zusatz As String
|
||||
Property BezugsNr As String = ""
|
||||
' Property AvisoId As Integer
|
||||
'Property SENDUNGS_ID As Integer
|
||||
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
||||
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
|
||||
Dim sentToDakosy = False
|
||||
|
||||
Property isSTAMMREF As Boolean = False ' Wenn das Formular als Stammreferenz bearbeitet wird
|
||||
Property STAMMREF As String = "" ' Wenn eine Stammrefereenz als Grundlage dient
|
||||
|
||||
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
|
||||
|
||||
Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
|
||||
Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
|
||||
|
||||
Sub New(ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
InitializeComponent()
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
Me.ncts_OUT = ncts_OUT
|
||||
DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
|
||||
|
||||
If DY_ANM.dy_AvisoId > 0 Then
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "")
|
||||
End If
|
||||
If DY_ANM.dy_SendungsId > 0 Then
|
||||
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
|
||||
Me.AVISO = AVISO
|
||||
Me.SENDUNG = SENDUNG
|
||||
Me.DY_ANM = DY_ANM
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
|
||||
If DY_ANM IsNot Nothing Then
|
||||
Me.ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(DY_ANM.dy_Id, True)
|
||||
Me.cDy_ART = If(DY_ANM.dy_ART, "")
|
||||
If Me.cDy_ART = "" And Me.ncts_OUT IsNot Nothing Then Me.cDy_ART = If(Me.ncts_OUT.ncts_ArtAnmeldung, "")
|
||||
If Me.cDy_ART = "" Then Me.cDy_ART = "T1"
|
||||
If ncts_OUT IsNot Nothing Then
|
||||
Me.FIRMA_DY = If(Me.ncts_OUT.ncts_firma, "")
|
||||
End If
|
||||
|
||||
End If
|
||||
'DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
|
||||
|
||||
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.cDy_ART = If(ART = "NCTS", "T1", ART)
|
||||
|
||||
If AvisoId > 0 Then
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
AVISO = AV.LesenAviso(AvisoId, "")
|
||||
End If
|
||||
If SENDUNGS_ID > 0 Then
|
||||
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID)
|
||||
End If
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
Me.zusatz = zusatz
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "", Optional FIRMA_DY As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.cDy_ART = If(ART = "NCTS", "T1", ART)
|
||||
|
||||
Me.AVISO = Aviso
|
||||
Me.SENDUNG = SENDUNG
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Function getBezugsnr(ByRef BezugsNr)
|
||||
Dim BezugsNrTmp = ""
|
||||
Select Case FIRMA_DY
|
||||
Case "UNISPED"
|
||||
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
|
||||
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
|
||||
Else
|
||||
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
|
||||
End If
|
||||
Case Else
|
||||
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
|
||||
End Select
|
||||
BezugsNr = BezugsNrTmp
|
||||
zusatz = "A"
|
||||
'Soloagne bis die Bezugsnummer noch nicht existiert
|
||||
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
|
||||
BezugsNr = BezugsNrTmp & "/" & zusatz
|
||||
|
||||
If zusatz.Length = 1 Then
|
||||
zusatz = Chr(Asc(zusatz.ToString) + 1)
|
||||
Else
|
||||
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
|
||||
End If
|
||||
|
||||
If zusatz = "Z" Then zusatz = "AA"
|
||||
End While
|
||||
lblBezugsnummer.Text = BezugsNr
|
||||
Return BezugsNr
|
||||
End Function
|
||||
|
||||
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MsgBox("LOAD")
|
||||
|
||||
cboDakosyAction.Items.Clear()
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
|
||||
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
|
||||
|
||||
Select Case FIRMA_DY
|
||||
Case "VERAG" : txtDyMandant.Text = "VERG"
|
||||
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
'Case "SUB" : txtDyNiederlassung.Text = "VERG"
|
||||
'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
|
||||
''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
|
||||
'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
|
||||
'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
|
||||
'End Select
|
||||
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
|
||||
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
|
||||
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
|
||||
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
|
||||
End Select
|
||||
|
||||
|
||||
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
|
||||
cboStammreferenz.changeItem("")
|
||||
|
||||
SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT, FIRMA_DY)
|
||||
VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT)
|
||||
ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ')
|
||||
ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT)
|
||||
POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT)
|
||||
|
||||
If isSTAMMREF Then
|
||||
Me.BezugsNr = "STAMMREFERENZ"
|
||||
If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
|
||||
ncts_OUT.ncts_ObjectName = BezugsNr
|
||||
Else
|
||||
If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG
|
||||
Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY)
|
||||
Dim Stammreferenz = Nothing
|
||||
If f.ShowDialog(Me) Then
|
||||
Stammreferenz = f.STAMMREF
|
||||
sentToDakosy = f.sentToDakosy
|
||||
End If
|
||||
Try
|
||||
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True)
|
||||
If ncts_OUT Is Nothing Then
|
||||
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
|
||||
ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
|
||||
|
||||
|
||||
If ncts_OUT IsNot Nothing Then
|
||||
'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
|
||||
ncts_OUT.ncts_dyaAnmID = -1
|
||||
ncts_OUT.ncts_Id = -1
|
||||
Else
|
||||
ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
|
||||
End If
|
||||
|
||||
|
||||
loaddataFromAVISO(ncts_OUT)
|
||||
cboStammreferenz.changeItem(Stammreferenz)
|
||||
|
||||
|
||||
End If
|
||||
'ncts_OUT
|
||||
|
||||
Else
|
||||
' ncts_OUT is ot nothing
|
||||
Me.BezugsNr = ncts_OUT.ncts_ObjectName
|
||||
'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
|
||||
|
||||
End If
|
||||
End If
|
||||
If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY
|
||||
|
||||
If If(Me.cDy_ART, "") <> "" Then
|
||||
'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird...
|
||||
ncts_OUT.ncts_ArtAnmeldung = Me.cDy_ART
|
||||
Else
|
||||
'Wenn keine Art --> T1
|
||||
If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then
|
||||
ncts_OUT.ncts_ArtAnmeldung = "T1"
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
|
||||
Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT)
|
||||
Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
|
||||
Me.SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
|
||||
' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
|
||||
'Werte setzen:
|
||||
SICHERHEIT.setValues_TR(ncts_OUT.ncts_SICHERHEITSANGABEN)
|
||||
'VERSCHLUESSE.setValues_TR(ncts_OUT)
|
||||
ADRESSEN.setValues_TR(ncts_OUT)
|
||||
ALLG.setValues(ncts_OUT)
|
||||
POSITIONEN.setValues_TR(ncts_OUT)
|
||||
|
||||
If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz)
|
||||
|
||||
'Controls wieder entfernen:
|
||||
Me.SplitContainer.Panel2.Controls.Clear()
|
||||
|
||||
|
||||
' If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr
|
||||
|
||||
|
||||
|
||||
' ADRESSEN.CreateControl()
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
|
||||
AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
|
||||
End If
|
||||
Next
|
||||
|
||||
SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
lblBezugsnummer.Text = BezugsNr
|
||||
|
||||
|
||||
|
||||
|
||||
ALLG.Dock = DockStyle.Fill
|
||||
ADRESSEN.Dock = DockStyle.Fill
|
||||
POSITIONEN.Dock = DockStyle.Fill
|
||||
SICHERHEIT.Dock = DockStyle.Fill
|
||||
VERSCHLUESSE.Dock = DockStyle.Fill
|
||||
|
||||
'
|
||||
'
|
||||
AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke)
|
||||
Label5.Text = packstuecke.ToString("N0") & " Pk"
|
||||
Label7.Text = rohmasse.ToString("N2") & " kg"
|
||||
|
||||
End Sub
|
||||
AddHandler POSITIONEN.PosAnzChanged, Sub(anz)
|
||||
Label3.Text = anz
|
||||
End Sub
|
||||
|
||||
If isSTAMMREF Then
|
||||
Button1.Visible = False
|
||||
cboDakosyAction.Visible = False
|
||||
lblBezugsnummer.Text = "STAMMREFERENZ"
|
||||
lblBezugsnummer.ForeColor = Color.Red
|
||||
End If
|
||||
|
||||
|
||||
If sentToDakosy Then
|
||||
|
||||
Try
|
||||
Me.Button1.PerformClick()
|
||||
Me.FindForm.Close()
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Try
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
|
||||
Me.FindForm.Close()
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED
|
||||
Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
|
||||
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
|
||||
DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White
|
||||
DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black
|
||||
End If
|
||||
Next
|
||||
|
||||
btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128)
|
||||
btn.ForeColor = Drawing.Color.White
|
||||
|
||||
|
||||
SplitContainer.Panel2.Controls.Clear()
|
||||
|
||||
If btn Is btnAllgemein Then
|
||||
SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
ElseIf btn Is btnAdressen Then
|
||||
SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
ElseIf btn Is btnSicherheit Then
|
||||
SplitContainer.Panel2.Controls.Add(SICHERHEIT)
|
||||
ElseIf btn Is btnVerschlüsse Then
|
||||
SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
|
||||
ElseIf btn Is btnPositionen Then
|
||||
SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Sub loaddataFromAVISO(ByRef cdy As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
|
||||
Try
|
||||
|
||||
'==> VORBLENDUNG:
|
||||
|
||||
' Dim cdy As New VERAG_PROG_ALLGEMEIN.cNCTS_TR
|
||||
cdy.ncts_ObjectName = BezugsNr
|
||||
cdy.ncts_AbgangsDienststellennummer = "" '"DE007701" ' Neuhaus (öSTERR:)
|
||||
frmZollanmeldung.setZollstelle(cdy.ncts_AbgangsDienststellennummer, AVISO)
|
||||
|
||||
cdy.ncts_dyaArt = cDy_ART
|
||||
If AVISO IsNot Nothing Then
|
||||
cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
|
||||
cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
|
||||
cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X"
|
||||
Else
|
||||
cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr
|
||||
cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
cdy.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = "3"
|
||||
cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35"
|
||||
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
|
||||
cdy.ncts_SumA_KzSumASicherheit = True
|
||||
cdy.ncts_SumA_BesondereUmstaende = "C"
|
||||
cdy.ncts_SumA_BefoerderungskostenZahlungsweise = "D"
|
||||
cdy.ncts_SumA_Ladeort = "DE"
|
||||
cdy.ncts_SumA_KennnummerSendung = "OHNE"
|
||||
|
||||
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
|
||||
Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer
|
||||
Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer
|
||||
cdy.ncts_SumA_Befoerderer_EORI = KD_Befoerderer.EORITIN
|
||||
If KD_Befoerderer.EORITIN IsNot Nothing Then cdy.ncts_SumA_Befoerderer_NLNR = KD_Befoerderer.EORITIN_NL
|
||||
cdy.ncts_SumA_Befoerderer_Name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).trim
|
||||
cdy.ncts_SumA_Befoerderer_StrasseHausnummer = AD_Befoerderer.Straße
|
||||
cdy.ncts_SumA_Befoerderer_PLZ = AD_Befoerderer.PLZ
|
||||
cdy.ncts_SumA_Befoerderer_Ort = AD_Befoerderer.Ordnungsbegriff
|
||||
cdy.ncts_SumA_Befoerderer_Land = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz)
|
||||
Else
|
||||
cdy.ncts_SumA_Befoerderer_Name = If(AVISO.Frächter, "")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
|
||||
Dim p As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing
|
||||
If cdy.ncts_WARENPOS.Count > 0 Then
|
||||
p = cdy.ncts_WARENPOS(0)
|
||||
Else
|
||||
p = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
|
||||
cdy.ncts_WARENPOS.Add(p) ' schon wieder...'nciht mehr anfügen
|
||||
End If
|
||||
p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
|
||||
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
|
||||
Dim pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
|
||||
pk.nctsWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli
|
||||
pk.nctsWpPk_Verpackungsart = "PK"
|
||||
pk.nctsWpPk_ZeichenNummern = "OHNE"
|
||||
p.nctsWP_PACKSTUECKE.Add(pk)
|
||||
End If
|
||||
p.nctsWP_Rohmasse = SENDUNG.tblSnd_Gewicht
|
||||
p.nctsWP_Warenwert = SENDUNG.tblSnd_Warenwert
|
||||
p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung
|
||||
' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
|
||||
p.nctsWP_VorpapierTyp = "OHNE"
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
|
||||
p.nctsWP_BesondereVermeke_Export = True
|
||||
End If
|
||||
'cdy.ncts_WARENPOS.Add(p)
|
||||
|
||||
cdy.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI)
|
||||
cdy.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI_NL)
|
||||
cdy.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse)
|
||||
cdy.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse)
|
||||
cdy.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ)
|
||||
cdy.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort)
|
||||
cdy.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land)
|
||||
cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
|
||||
|
||||
|
||||
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
|
||||
Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
|
||||
Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
|
||||
cdy.ncts_Versender_EORI = kdVERSENDER.EORITIN
|
||||
cdy.ncts_Versender_NLNR = kdVERSENDER.EORITIN_NL
|
||||
cdy.ncts_Versender_Name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "")
|
||||
cdy.ncts_Versender_StrasseHausnummer = adVERSENDER.Straße
|
||||
cdy.ncts_Versender_PLZ = adVERSENDER.PLZ
|
||||
cdy.ncts_Versender_Ort = adVERSENDER.Ort
|
||||
If adVERSENDER.LandKz IsNot Nothing Then cdy.ncts_Versender_Land = cProgramFunctions.getISO2Land(adVERSENDER.LandKz)
|
||||
' cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
' NCTS= cdy
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub setValue(ncts_OUT)
|
||||
BezugsNr = ncts_OUT.ncts_ObjectName
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
|
||||
If DY_ANM Is Nothing Then
|
||||
DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
|
||||
End If
|
||||
DY_ANM.dy_ART = ALLG.NCTS_ART 'cDy_ART
|
||||
DY_ANM.dy_BezugsNr = BezugsNr
|
||||
DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID)
|
||||
DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
|
||||
'Status?
|
||||
DY_ANM.SAVE() 'Speichern, ID wird erzeugt
|
||||
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
Me.Refresh()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If ncts_OUT IsNot Nothing Then
|
||||
'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
|
||||
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
ncts_OUT.ncts_LetzteBearbeitung = Now
|
||||
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
ncts_OUT.ncts_Partnersystem = "VERAG_SGS" ' eigene Anmeldungen in Fremdsystem
|
||||
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
|
||||
|
||||
|
||||
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
|
||||
|
||||
Dim saveFile = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cSGSInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then
|
||||
If saveFile <> "" Then
|
||||
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
|
||||
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
|
||||
Else
|
||||
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
|
||||
MsgBox("Sendefehler!")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
DY_ANM.UPDATE_DATA()
|
||||
Me.FindForm.Close()
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
|
||||
|
||||
Me.Refresh()
|
||||
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If ncts_OUT IsNot Nothing Then
|
||||
'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
|
||||
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
ncts_OUT.ncts_LetzteBearbeitung = Now
|
||||
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
ncts_OUT.ncts_Partnersystem = "VERAG_SGS" ' eigene Anmeldungen in Fremdsystem
|
||||
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00
|
||||
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00
|
||||
|
||||
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
|
||||
|
||||
If Not ncts_OUT.SAVE_ALL() Then
|
||||
'gespeichert
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
DY_ANM.UPDATE_DATA()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
End Sub
|
||||
|
||||
Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlSGS_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR
|
||||
Try
|
||||
|
||||
Select Case FIRMA_DY
|
||||
Case "UNISPED"
|
||||
NCTS.ncts_Trans_Partner = "UNAT"
|
||||
Case Else
|
||||
NCTS.ncts_Trans_Partner = "VERA"
|
||||
End Select
|
||||
|
||||
NCTS.ncts_Trans_DatumZeit = Now
|
||||
NCTS.ncts_Gestellt = False
|
||||
NCTS.ncts_Status = "00"
|
||||
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
|
||||
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
|
||||
NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
|
||||
NCTS.ncts_Trans_Version = "003"
|
||||
NCTS.ncts_Trans_Div1 = "ATILLA"
|
||||
'NCTS.ncts_Trans_Div1 = "ATILLA"
|
||||
'NCTS.ncts_Trans_Div1 = "ATILLA"
|
||||
|
||||
NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value)
|
||||
NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz
|
||||
|
||||
NCTS.ncts_ObjectName = USRCNTL.BezugsNr
|
||||
'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID
|
||||
USRCNTL.ALLG.getValues(NCTS)
|
||||
USRCNTL.ADRESSEN.getValues_TR(NCTS)
|
||||
USRCNTL.POSITIONEN.getValues_TR(NCTS)
|
||||
NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR()
|
||||
'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS)
|
||||
'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
|
||||
'--------------------------------
|
||||
|
||||
|
||||
|
||||
Return NCTS
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
@@ -635,7 +635,7 @@ Public Class usrCntlZollArtikel
|
||||
a.Artikelnummer = myArray(i, 1).ToString
|
||||
If Not myArray(i, 2) Is Nothing Then a.Dynamische_Ergänzung_1 = myArray(i, 2).ToString
|
||||
If Not myArray(i, 3) Is Nothing Then a.Dynamische_Ergänzung_2 = myArray(i, 3).ToString
|
||||
a.Warencodenummer = myArray(i, 4).ToStringReplace(" ", "").Replace(".", "")
|
||||
a.Warencodenummer = myArray(i, 4).ToString.Replace(" ", "").Replace(".", "")
|
||||
a.Kurzbezeichnung = myArray(i, 5).ToString
|
||||
a.Warenbeschreibung = myArray(i, 6).ToString
|
||||
a.Verarbeitungskennzeichen = "0"
|
||||
@@ -646,7 +646,7 @@ Public Class usrCntlZollArtikel
|
||||
artikel.Add(a)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Einlesen der Excel-Datei!")
|
||||
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End Try
|
||||
@@ -661,7 +661,7 @@ Public Class usrCntlZollArtikel
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Einlesen in die Datenbank!")
|
||||
MsgBox("Fehler beim Einlesen in die Datenbank!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End Try
|
||||
@@ -675,7 +675,7 @@ Public Class usrCntlZollArtikel
|
||||
' AddHandler frmStatusFSSAtlas.FormClosed, AddressOf Me_Load
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Einlesen in ATLAS!")
|
||||
MsgBox("Fehler beim Einlesen in ATLAS!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End Try
|
||||
@@ -699,7 +699,7 @@ Public Class usrCntlZollArtikel
|
||||
Catch ex As Exception
|
||||
'
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message)
|
||||
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
End Try
|
||||
End With
|
||||
|
||||
@@ -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