Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -940,7 +940,7 @@ Public Class cFakturierung
|
||||
|
||||
If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6"
|
||||
|
||||
If FIRMA.Firma_ID = 19 Then rpt.lblFirma.Text &= vbNewLine & "VERAG Spedition GmbH, Hartham 6, D-94152 Neuhaus/Inn"
|
||||
'If FIRMA.Firma_ID = 19 Then rpt.lblFirma.Text &= vbNewLine & "VERAG Spedition GmbH, Hartham 6, D-94152 Neuhaus/Inn"
|
||||
|
||||
|
||||
rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
|
||||
@@ -3573,10 +3573,14 @@ Public Class cFakturierung
|
||||
Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" : imageForWatermark = My.Resources.ungueltig_de
|
||||
End Select
|
||||
|
||||
If Rechnugnsdruck = 7 Then 'nur bei "Vorschaudruck"
|
||||
rpt.Watermark = imageForWatermark
|
||||
rpt.WatermarkSizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||
If False Then 'deaktiviert weil nun doch nicht benötigt
|
||||
If Rechnugnsdruck = 7 Then 'nur bei "Vorschaudruck"
|
||||
rpt.Watermark = imageForWatermark
|
||||
rpt.WatermarkSizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -4007,6 +4007,7 @@
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="kunden\usrCntlKundenuebersicht.resx">
|
||||
<DependentUpon>usrCntlKundenuebersicht.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="kunden\Vorauskasse\frmVorauskasse.resx">
|
||||
<DependentUpon>frmVorauskasse.vb</DependentUpon>
|
||||
|
||||
52
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
52
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
@@ -41,6 +41,7 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.lblLand = New System.Windows.Forms.Label()
|
||||
Me.Panel8 = New System.Windows.Forms.Panel()
|
||||
Me.lblMWSTAbrechnung = New System.Windows.Forms.Label()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
@@ -89,13 +90,12 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.btnEintragloeschen = New System.Windows.Forms.Button()
|
||||
Me.btnNeuerEintrag = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.lblMWSTAbrechnung = New System.Windows.Forms.Label()
|
||||
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
|
||||
Me.Panel3.SuspendLayout()
|
||||
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -362,6 +362,18 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.Panel8.Size = New System.Drawing.Size(973, 87)
|
||||
Me.Panel8.TabIndex = 19
|
||||
'
|
||||
'lblMWSTAbrechnung
|
||||
'
|
||||
Me.lblMWSTAbrechnung.AutoSize = True
|
||||
Me.lblMWSTAbrechnung.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblMWSTAbrechnung.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblMWSTAbrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblMWSTAbrechnung.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblMWSTAbrechnung.Location = New System.Drawing.Point(224, 41)
|
||||
Me.lblMWSTAbrechnung.Name = "lblMWSTAbrechnung"
|
||||
Me.lblMWSTAbrechnung.Size = New System.Drawing.Size(0, 17)
|
||||
Me.lblMWSTAbrechnung.TabIndex = 25
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
@@ -522,9 +534,9 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.cbxFiliale.DropDownWidth = 150
|
||||
Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxFiliale.FormattingEnabled = True
|
||||
Me.cbxFiliale.Location = New System.Drawing.Point(429, 33)
|
||||
Me.cbxFiliale.Location = New System.Drawing.Point(413, 33)
|
||||
Me.cbxFiliale.Name = "cbxFiliale"
|
||||
Me.cbxFiliale.Size = New System.Drawing.Size(89, 24)
|
||||
Me.cbxFiliale.Size = New System.Drawing.Size(105, 24)
|
||||
Me.cbxFiliale.TabIndex = 16
|
||||
'
|
||||
'Label4
|
||||
@@ -534,7 +546,7 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label4.Location = New System.Drawing.Point(363, 38)
|
||||
Me.Label4.Location = New System.Drawing.Point(352, 38)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(48, 17)
|
||||
Me.Label4.TabIndex = 15
|
||||
@@ -585,9 +597,9 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.cbxWahrung._value = ""
|
||||
Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxWahrung.FormattingEnabled = True
|
||||
Me.cbxWahrung.Location = New System.Drawing.Point(447, 5)
|
||||
Me.cbxWahrung.Location = New System.Drawing.Point(431, 5)
|
||||
Me.cbxWahrung.Name = "cbxWahrung"
|
||||
Me.cbxWahrung.Size = New System.Drawing.Size(71, 24)
|
||||
Me.cbxWahrung.Size = New System.Drawing.Size(87, 24)
|
||||
Me.cbxWahrung.TabIndex = 12
|
||||
'
|
||||
'lblWahrung
|
||||
@@ -597,7 +609,7 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.lblWahrung.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblWahrung.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblWahrung.Location = New System.Drawing.Point(363, 9)
|
||||
Me.lblWahrung.Location = New System.Drawing.Point(352, 9)
|
||||
Me.lblWahrung.Name = "lblWahrung"
|
||||
Me.lblWahrung.Size = New System.Drawing.Size(70, 17)
|
||||
Me.lblWahrung.TabIndex = 11
|
||||
@@ -1090,14 +1102,6 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.Panel2.Size = New System.Drawing.Size(1300, 269)
|
||||
Me.Panel2.TabIndex = 1
|
||||
'
|
||||
'UstCntlUSTV_AntragPosition1
|
||||
'
|
||||
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
|
||||
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
|
||||
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
@@ -1148,17 +1152,13 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'lblMWSTAbrechnung
|
||||
'UstCntlUSTV_AntragPosition1
|
||||
'
|
||||
Me.lblMWSTAbrechnung.AutoSize = True
|
||||
Me.lblMWSTAbrechnung.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblMWSTAbrechnung.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblMWSTAbrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblMWSTAbrechnung.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblMWSTAbrechnung.Location = New System.Drawing.Point(224, 41)
|
||||
Me.lblMWSTAbrechnung.Name = "lblMWSTAbrechnung"
|
||||
Me.lblMWSTAbrechnung.Size = New System.Drawing.Size(0, 17)
|
||||
Me.lblMWSTAbrechnung.TabIndex = 25
|
||||
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
|
||||
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
|
||||
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
|
||||
'
|
||||
'frmMDM_USTVAntrag
|
||||
'
|
||||
|
||||
@@ -724,7 +724,7 @@ Public Class frmMDM_USTVAntrag
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
Dim sql As New SQL
|
||||
USTV_POS.UStVPo_Schnittstelle = True
|
||||
USTV_POS.UStVPo_Leistender = "VERAG 360 GmbH; 4975 Suben"
|
||||
USTV_POS.UStVPo_Leistender = "VERAG 360 GmbH"
|
||||
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
USTV_POS.UStVPo_Zeitstempel = Now()
|
||||
|
||||
@@ -1855,8 +1855,8 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim dtSteuerNr As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & USTV_ANTRAG.UStVAn_LandNr, "FMZOLL")
|
||||
|
||||
If dtSteuerNr.Rows.Count > 0 Then
|
||||
txtStNr.Text = dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")
|
||||
txtGueltig.Text = dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")
|
||||
txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
|
||||
txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
9
SDL/USTV/usrCntlUSTV.Designer.vb
generated
9
SDL/USTV/usrCntlUSTV.Designer.vb
generated
@@ -70,6 +70,7 @@ Partial Class usrCntlUSTV
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -694,7 +695,7 @@ Partial Class usrCntlUSTV
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(92, 39)
|
||||
Me.Button2.TabIndex = 27
|
||||
Me.Button2.Text = "St.-Nr. prüfen"
|
||||
Me.Button2.Text = "FA-Bestätig. prüfen"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVorschau
|
||||
@@ -776,6 +777,11 @@ Partial Class usrCntlUSTV
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'ContextMenuStrip3
|
||||
'
|
||||
Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'usrCntlUSTV
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -840,4 +846,5 @@ Partial Class usrCntlUSTV
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents lblVZhint As Label
|
||||
Friend WithEvents lblVZKunde As Label
|
||||
Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
|
||||
End Class
|
||||
|
||||
@@ -123,4 +123,7 @@
|
||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>174, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>331, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -1,6 +1,9 @@
|
||||
Imports System.ComponentModel
|
||||
Imports com.sun.javadoc
|
||||
Imports com.sun.xml.internal.bind.v2.model.core
|
||||
Imports itextsharp.text.factories
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports sun.swing
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
@@ -541,6 +544,38 @@ Public Class usrCntlUSTV
|
||||
|
||||
|
||||
|
||||
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then
|
||||
Dim dgv = New ToolStripMenuItem() With {.Text = "Übersicht anzeigen", .Name = "dgv", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler dgv.Click, AddressOf mnuItem3_Clicked
|
||||
ContextMenuStrip3.Items.Add(dgv)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("excel") Then
|
||||
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip3.Items.Add(excel)
|
||||
AddHandler excel.Click, AddressOf mnuItem3_Clicked
|
||||
End If
|
||||
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("mail") Then
|
||||
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler mail.Click, AddressOf mnuItem3_Clicked
|
||||
ContextMenuStrip3.Items.Add(mail)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ContextMenuStrip3.Show(Cursor.Position)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
|
||||
|
||||
If Not ContextMenuStrip1.Items.ContainsKey("excel") Then
|
||||
@@ -952,49 +987,197 @@ Public Class usrCntlUSTV
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Private Sub mnuItem3_Clicked(sender As Object, e As EventArgs)
|
||||
|
||||
Dim f As New frmDatumsabfrage("Bitte Prüfdatum eingeben", False)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
Dim sqlKunde = ""
|
||||
Dim sqlKundeadmin = ""
|
||||
If KdSearchBox1.KdNr > 0 Then
|
||||
sqlKunde = " And A.AdressenNr = " & KdSearchBox1.KdNr
|
||||
sqlKundeadmin = " AND [api_KundenNr] = " & KdSearchBox1.KdNr
|
||||
End If
|
||||
|
||||
Dim sqlKunde = ""
|
||||
If KdSearchBox1.KdNr > 0 Then
|
||||
sqlKunde = " AND A.AdressenNr = " & KdSearchBox1.KdNr
|
||||
If item IsNot Nothing Then
|
||||
|
||||
If item.Name = "dgv" Then
|
||||
|
||||
Try
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim frm As New Form
|
||||
Dim dgv As New DataGridView()
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(" select [api_datetime] as erstelltAm,[api_EMail] as An ,[api_EMailCC] as CC,[api_EMailBCC] as BCC,[api_EMailSubject] as Betreff,[api_EMailAttCnt] as Anzahl_Anhänge, [api_KundenNr] as KundenNr, [api_Username] as erstelltVon from [tblAPI] where [api_apiUArt] = 'FA-Bestaetigung' AND api_progName = 'SDL'" & sqlKundeadmin & " Order by api_datetime desc", "ADMIN")
|
||||
|
||||
dgv.DataSource = dt
|
||||
If dgv IsNot Nothing Then
|
||||
frm.Size = New Size(1000, 1000)
|
||||
dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
|
||||
dgv.Dock = DockStyle.Fill
|
||||
dgv.Anchor = AnchorStyles.Left
|
||||
dgv.Anchor = AnchorStyles.Top
|
||||
dgv.ReadOnly = True
|
||||
frm.Controls.Add(dgv)
|
||||
frm.StartPosition = FormStartPosition.CenterScreen
|
||||
frm.ShowDialog()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As System.Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Dim f As New frmDatumsabfrage("Bitte Prüfdatum eingeben", False)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
|
||||
|
||||
|
||||
|
||||
Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz, A.Ordnungsbegriff, L.LandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum,
|
||||
CASE
|
||||
WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 ELSE 0
|
||||
END AS Gültig
|
||||
FROM [Länderverzeichnis für die Außenhandelsstatistik] L INNER JOIN (Adressen A INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr) ON L.LandNr = S.LandNr
|
||||
WHERE S.StNrGültigkeitsdatum IS NOT NULL AND W.MitgliedslandEU = 0 " & sqlKunde
|
||||
|
||||
Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")
|
||||
|
||||
ContextMenuStrip3.Hide()
|
||||
|
||||
If dtVorschau.Rows.Count = 0 Then Exit Sub
|
||||
|
||||
|
||||
If item.Name = "excel" Then
|
||||
|
||||
If dtVorschau.Columns.Contains("E-Mail") Then dtVorschau.Columns.Remove("E-Mail")
|
||||
If dtVorschau.Columns.Contains("E-Mail2") Then dtVorschau.Columns.Remove("E-Mail2")
|
||||
|
||||
cProgramFunctions.genExcelFromDT_NEW(dtVorschau,,,,,, True)
|
||||
|
||||
ElseIf item.Name = "mail" Then
|
||||
|
||||
Dim displayView = New DataView(dtVorschau, "Gültig = 0", "AdressenNr", DataViewRowState.CurrentRows)
|
||||
Dim distinctDT As DataTable = displayView.ToTable(True, "AdressenNr")
|
||||
|
||||
If distinctDT.Rows.Count = 0 Then
|
||||
MsgBox("Zu diesem Datum sind alle FA-Bestätigung gültig!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Not vbYes = MsgBox("Es werden Emails für " & distinctDT.Rows.Count & " unterschiedliche/n Kunden erstellt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then Exit Sub
|
||||
|
||||
For Each row In distinctDT.Rows
|
||||
|
||||
Dim dt_Data_selected = dtVorschau.Select("AdressenNr ='" & row.Item(0) & "'").CopyToDataTable
|
||||
|
||||
Try
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
|
||||
Mail.Subject = "PDV UVERENJA"
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Postovani,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "isteklo nam je staro porezno Uvjerenje i potrebno je da nam dostavite hitno nova za sljedece zemlje.<br><br>"
|
||||
|
||||
Dim attachmentSRB As Boolean = False
|
||||
Dim attachmentBIH As Boolean = False
|
||||
Dim attachmendSK As Boolean = False
|
||||
|
||||
For Each r In dt_Data_selected.Rows
|
||||
|
||||
If Not IsDBNull(r.item("LandKZ1")) Then
|
||||
Select Case r.item("LandKZ1")
|
||||
Case "HU" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)</li></b><br><br>"
|
||||
Case "SI" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)</li></b><br><br>"
|
||||
Case "LU" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)</li></b><br><br>"
|
||||
Case "SK" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)</li></b><br><br>" : attachmendSK = True
|
||||
Case "RO" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)</li></b><br><br>"
|
||||
Case "HR" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Hrvatski)</li></b><br><br>"
|
||||
Case Else
|
||||
TextHTML &= "<li><b>" & r.item("LandKZ1") & " (prevod na Engleski)</li></b><br><br>"
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If Not IsDBNull(r.item("LandKZ")) Then
|
||||
Select Case r.item("LandKZ")
|
||||
Case "SRB" : attachmentSRB = True
|
||||
Case "BIH" : attachmentBIH = True
|
||||
End Select
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
TextHTML &= "<br><br>Molim Vas da nam original uverenja + prijevod dostavite pojedinacno za svaku zemlju, znaci koliko zemalja toliko uverenja I prevoda.<br><br>"
|
||||
|
||||
TextHTML &= "U privitku se nalazi primjer uverenja (u smislu sadrzaja)<br><br>"
|
||||
|
||||
TextHTML &= "za pitanja stojim na raspolaganju!<br><br>"
|
||||
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail") & ";"
|
||||
If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail2")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail2") & ";"
|
||||
|
||||
If attachmentSRB Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SRB_FA_BESTAETIGUNG")
|
||||
Dim filepath = DS.GET_TOP1_PATH(False)
|
||||
If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
|
||||
End If
|
||||
If attachmentBIH Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "BIH_FA_BESTAETIGUNG")
|
||||
Dim filepath = DS.GET_TOP1_PATH(False)
|
||||
If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End If
|
||||
If attachmentBIH And attachmendSK Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SVK_FA_BESTAETIGUNG")
|
||||
Dim filepath = DS.GET_TOP1_PATH(False)
|
||||
If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End If
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_FA, "FA-Bestaetigung",,, row.Item(0))
|
||||
API.api_EMail = Mail.To
|
||||
API.api_EMailSubject = Mail.Subject
|
||||
API.api_EMailText = TextHTML
|
||||
API.api_EMailAttCnt = Mail.Attachments.Count
|
||||
API.SAVE()
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
End Try
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim sqlQery = "SELECT
|
||||
A.LandKz,
|
||||
A.AdressenNr,
|
||||
A.Ordnungsbegriff,
|
||||
L.LandKz,
|
||||
S.StNrFürRückerstattungUSt,
|
||||
S.StNrGültigkeitsdatum,
|
||||
CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum,
|
||||
CASE
|
||||
WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1
|
||||
ELSE 0
|
||||
END AS Gültig
|
||||
FROM
|
||||
[Länderverzeichnis für die Außenhandelsstatistik] L
|
||||
INNER JOIN
|
||||
(Adressen A
|
||||
INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz
|
||||
INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr)
|
||||
ON L.LandNr = S.LandNr
|
||||
WHERE
|
||||
S.StNrGültigkeitsdatum IS NOT NULL
|
||||
AND W.MitgliedslandEU = 0 " & sqlKunde
|
||||
|
||||
|
||||
Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")
|
||||
|
||||
cProgramFunctions.genExcelFromDT_NEW(dtVorschau,,,,,, True)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
33
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
33
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
@@ -1,9 +1,9 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class ustCntlUSTV_AntragPosition
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
@@ -20,7 +20,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
'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()> _
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.tabDok = New System.Windows.Forms.TabPage()
|
||||
@@ -49,6 +49,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.lblAenderungsdatum = New System.Windows.Forms.Label()
|
||||
Me.lblSachbearbeiter = New System.Windows.Forms.Label()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.btnLeistenderSave = New System.Windows.Forms.Button()
|
||||
Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.pnlAdresse = New System.Windows.Forms.Panel()
|
||||
@@ -387,6 +388,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.Controls.Add(Me.lblWarning)
|
||||
Me.pnl.Controls.Add(Me.btnLeistenderSave)
|
||||
Me.pnl.Controls.Add(Me.sbLeistender)
|
||||
Me.pnl.Controls.Add(Me.pnlAdresse)
|
||||
@@ -419,6 +421,16 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.pnl.Size = New System.Drawing.Size(1300, 239)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'lblWarning
|
||||
'
|
||||
Me.lblWarning.AutoSize = True
|
||||
Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblWarning.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblWarning.Location = New System.Drawing.Point(14, 167)
|
||||
Me.lblWarning.Name = "lblWarning"
|
||||
Me.lblWarning.Size = New System.Drawing.Size(0, 16)
|
||||
Me.lblWarning.TabIndex = 23
|
||||
'
|
||||
'btnLeistenderSave
|
||||
'
|
||||
Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
|
||||
@@ -699,7 +711,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtRgDatum._DateTimeOnly = False
|
||||
Me.txtRgDatum._numbersOnly = False
|
||||
Me.txtRgDatum._numbersOnlyKommastellen = ""
|
||||
Me.txtRgDatum._numbersOnlyTrennzeichen = True
|
||||
Me.txtRgDatum._numbersOnlyTrennzeichen = False
|
||||
Me.txtRgDatum._Prozent = False
|
||||
Me.txtRgDatum._ShortDateNew = False
|
||||
Me.txtRgDatum._ShortDateOnly = False
|
||||
@@ -707,7 +719,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtRgDatum._TimeOnly_Seconds = False
|
||||
Me.txtRgDatum._value = ""
|
||||
Me.txtRgDatum._Waehrung = False
|
||||
Me.txtRgDatum._WaehrungZeichen = True
|
||||
Me.txtRgDatum._WaehrungZeichen = False
|
||||
Me.txtRgDatum.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtRgDatum.Location = New System.Drawing.Point(17, 49)
|
||||
Me.txtRgDatum.MaxLength = 10
|
||||
@@ -784,8 +796,8 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtUSTBetragEUR._TimeOnly = False
|
||||
Me.txtUSTBetragEUR._TimeOnly_Seconds = False
|
||||
Me.txtUSTBetragEUR._value = ""
|
||||
Me.txtUSTBetragEUR._Waehrung = False
|
||||
Me.txtUSTBetragEUR._WaehrungZeichen = True
|
||||
Me.txtUSTBetragEUR._Waehrung = True
|
||||
Me.txtUSTBetragEUR._WaehrungZeichen = False
|
||||
Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
|
||||
Me.txtUSTBetragEUR.MaxLength = 10
|
||||
@@ -799,7 +811,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
'txtUmrechnungskurs
|
||||
'
|
||||
Me.txtUmrechnungskurs._DateTimeOnly = False
|
||||
Me.txtUmrechnungskurs._numbersOnly = True
|
||||
Me.txtUmrechnungskurs._numbersOnly = False
|
||||
Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
|
||||
Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
|
||||
Me.txtUmrechnungskurs._Prozent = False
|
||||
@@ -809,7 +821,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtUmrechnungskurs._TimeOnly_Seconds = False
|
||||
Me.txtUmrechnungskurs._value = ""
|
||||
Me.txtUmrechnungskurs._Waehrung = False
|
||||
Me.txtUmrechnungskurs._WaehrungZeichen = True
|
||||
Me.txtUmrechnungskurs._WaehrungZeichen = False
|
||||
Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130)
|
||||
Me.txtUmrechnungskurs.MaxLength = 10
|
||||
@@ -833,7 +845,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtUSTBetrag._TimeOnly_Seconds = False
|
||||
Me.txtUSTBetrag._value = ""
|
||||
Me.txtUSTBetrag._Waehrung = False
|
||||
Me.txtUSTBetrag._WaehrungZeichen = True
|
||||
Me.txtUSTBetrag._WaehrungZeichen = False
|
||||
Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
|
||||
Me.txtUSTBetrag.MaxLength = 10
|
||||
@@ -1017,4 +1029,5 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Friend WithEvents pnlAdresse As Panel
|
||||
Friend WithEvents sbLeistender As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents btnLeistenderSave As Button
|
||||
Friend WithEvents lblWarning As Label
|
||||
End Class
|
||||
|
||||
@@ -85,38 +85,36 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UStV_POS.UStVPo_Zeitstempel = Now
|
||||
|
||||
If txtRgNr._value <> "" Then
|
||||
UStV_POS.UStVPo_ReNr = txtRgNr._value
|
||||
If txtRgNr.Text <> "" Then
|
||||
UStV_POS.UStVPo_ReNr = txtRgNr.Text
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
|
||||
If txtRgDatum._value <> "" AndAlso IsDate(txtRgDatum._value) Then
|
||||
If txtRgDatum.Text <> "" AndAlso IsDate(txtRgDatum.Text) Then
|
||||
UStV_POS.UStVPo_ReDat = txtRgDatum._value
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If txtUSTBetrag._value <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value.Replace(",", ".")
|
||||
If txtUSTBetrag.Text <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
|
||||
If txtUSTBetragEUR._value <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value.Replace(",", ".")
|
||||
If txtUSTBetragEUR.Text <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If txtLeistungsbezeichnung._value <> "" Then
|
||||
UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung._value
|
||||
If txtLeistungsbezeichnung.Text <> "" Then
|
||||
UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung.Text
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If Not (txtUmrechnungskurs.Text = "" And txtUmrechnungskurs._value = "") Then
|
||||
If Not txtUmrechnungskurs.Text = "" Then
|
||||
If txtUmrechnungskurs.Text <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
|
||||
ElseIf txtUmrechnungskurs._value <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
|
||||
End If
|
||||
Else
|
||||
save = False
|
||||
@@ -137,17 +135,6 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtUmrechnungskurs_TextChanged(sender As Object, e As EventArgs) Handles txtUmrechnungskurs.TextChanged
|
||||
Dim gridAktivTMP = gridAktiv
|
||||
gridAktiv = False
|
||||
txtUSTBetragEUR._value = ""
|
||||
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
||||
'txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
|
||||
End If
|
||||
gridAktiv = gridAktivTMP
|
||||
End Sub
|
||||
|
||||
Function save()
|
||||
Dim setSave As Boolean = True
|
||||
getValues(UStV_POS, setSave)
|
||||
@@ -161,6 +148,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
|
||||
'If sender Is txtLieferung Then
|
||||
' If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
|
||||
'End If
|
||||
@@ -170,7 +158,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
'values_changed()
|
||||
|
||||
Else
|
||||
txtChanged = True
|
||||
'txtChanged = True
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -179,58 +167,6 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp, sbLeistender.KeyUp
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
|
||||
If sender Is txtUSTBetrag Then
|
||||
|
||||
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
||||
'values_changed()
|
||||
End If
|
||||
|
||||
ElseIf sender Is txtUSTBetragEUR Then
|
||||
|
||||
'so herum nicht umrechnen!!!!
|
||||
'If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
||||
' 'values_changed()
|
||||
'End If
|
||||
|
||||
ElseIf sender Is sbLeistender Then
|
||||
If e.KeyValue = 9 Then
|
||||
e.SuppressKeyPress = True
|
||||
If UStV_Leist.hasEntry Then
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
values_changed()
|
||||
'UStV_POS.SAVE()
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
If e.KeyValue = 9 Then 'SHIFT
|
||||
e.SuppressKeyPress = True
|
||||
If txtChanged Then
|
||||
values_changed()
|
||||
txtChanged = False
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub values_changed()
|
||||
lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
lblAenderungsdatum.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
@@ -302,7 +238,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
If UStV_Leist.SAVE() Then
|
||||
|
||||
btnLeistenderSave.Visible = False
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
values_changed()
|
||||
End If
|
||||
@@ -332,7 +268,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
|
||||
|
||||
btnLeistenderSave.Visible = False
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
values_changed()
|
||||
Exit Sub
|
||||
@@ -342,12 +278,12 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
If UStV_Leist.SAVE() Then
|
||||
If Not UStV_Leist.UstV_Leistender_Adresse And adresseChanged Then UStV_Leist.UstV_Leistender_Adresse = True
|
||||
btnLeistenderSave.Visible = False
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
values_changed()
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
values_changed()
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -393,4 +329,87 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
|
||||
' Eingabeprüfung
|
||||
If e.KeyValue = 9 Then
|
||||
|
||||
lblWarning.Text = ""
|
||||
If sender Is txtUSTBetrag Or sender Is txtUSTBetragEUR Or sender Is txtUmrechnungskurs Then
|
||||
|
||||
If txtUSTBetrag.Text = "" Then
|
||||
lblWarning.Text = "Bitte Umsatzsteuerbetrag eingeben."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If sender Is txtUSTBetrag Then
|
||||
If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs.Text) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
|
||||
txtChanged = True
|
||||
End If
|
||||
|
||||
ElseIf sender Is txtUSTBetragEUR Then
|
||||
|
||||
'so herum nicht umrechnen!!!!
|
||||
'If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
||||
' 'values_changed()
|
||||
'End If
|
||||
|
||||
|
||||
If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then
|
||||
|
||||
Dim zahl1 = txtUSTBetragEUR.Text / txtUSTBetrag.Text
|
||||
|
||||
txtUmrechnungskurs.Text = zahl1
|
||||
txtChanged = True
|
||||
End If
|
||||
|
||||
ElseIf sender Is txtUmrechnungskurs Then
|
||||
|
||||
|
||||
If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
|
||||
txtChanged = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ElseIf sender Is sbLeistender Then
|
||||
|
||||
|
||||
|
||||
If UStV_Leist.hasEntry Then
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
txtChanged = True
|
||||
'UStV_POS.SAVE()
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If txtChanged Then
|
||||
values_changed()
|
||||
txtChanged = False
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -119,7 +119,7 @@ Public Class usrCntlATLAS_NCTS004
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Shared Function getBezugsnr(FIRMA_DY, SENDUNG, ByRef BezugsNr, ByRef zusatz)
|
||||
Shared Function getBezugsnr(FIRMA_DY As String, SENDUNG As cSendungen, ByRef BezugsNr As String, ByRef zusatz As String)
|
||||
Dim BezugsNrTmp = ""
|
||||
Select Case FIRMA_DY
|
||||
Case "UNISPED"
|
||||
|
||||
@@ -143,30 +143,34 @@ Public Class frmMain
|
||||
setProfileImage()
|
||||
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
|
||||
Dim timas As New cTimasAPI("timas")
|
||||
Dim infoMessage As String = ""
|
||||
Dim timeEntryExisting As Boolean = False
|
||||
Dim isEndpointRunning As Boolean = True
|
||||
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting,, isEndpointRunning)
|
||||
If Not timeEntryExisting AndAlso isEndpointRunning Then
|
||||
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
|
||||
If a = vbYes Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
|
||||
Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
|
||||
f.ShowDialog()
|
||||
f.BringToFront()
|
||||
Else
|
||||
Dim info
|
||||
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
|
||||
MsgBox(info)
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
|
||||
Dim timas As New cTimasAPI("timas")
|
||||
Dim infoMessage As String = ""
|
||||
Dim timeEntryExisting As Boolean = False
|
||||
Dim isEndpointRunning As Boolean = True
|
||||
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting,, isEndpointRunning)
|
||||
If Not timeEntryExisting AndAlso isEndpointRunning Then
|
||||
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
|
||||
If a = vbYes Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
|
||||
Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
|
||||
f.ShowDialog()
|
||||
f.BringToFront()
|
||||
Else
|
||||
Dim info
|
||||
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
|
||||
MsgBox(info)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
AddHandler KdSearchBox1.PropertyChanged, Sub()
|
||||
Try
|
||||
If KdSearchBox1.KdNr > 0 Then
|
||||
|
||||
998
SDL/kunden/frmKundenblatt.Designer.vb
generated
998
SDL/kunden/frmKundenblatt.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -123,90 +123,90 @@
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
|
||||
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
|
||||
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
|
||||
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
|
||||
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
|
||||
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
|
||||
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
|
||||
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
|
||||
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
|
||||
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
|
||||
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
|
||||
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
|
||||
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
|
||||
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
|
||||
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
|
||||
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
|
||||
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
|
||||
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
|
||||
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
|
||||
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
|
||||
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
|
||||
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
|
||||
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
|
||||
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
|
||||
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
|
||||
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
|
||||
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
|
||||
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
|
||||
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
|
||||
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
|
||||
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
|
||||
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
|
||||
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
|
||||
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
|
||||
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
|
||||
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
|
||||
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
|
||||
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
|
||||
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
|
||||
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
|
||||
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl
|
||||
mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK
|
||||
qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12
|
||||
zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE
|
||||
jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3
|
||||
kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv
|
||||
XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr
|
||||
e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr
|
||||
1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX
|
||||
bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr
|
||||
0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X
|
||||
vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7
|
||||
IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix
|
||||
QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+
|
||||
xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU
|
||||
yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy
|
||||
fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n
|
||||
hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx
|
||||
yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR
|
||||
auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3
|
||||
TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD
|
||||
VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN
|
||||
nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn
|
||||
EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N
|
||||
Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3
|
||||
m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK
|
||||
2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b
|
||||
3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz
|
||||
sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6
|
||||
Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz
|
||||
5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p
|
||||
ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d
|
||||
++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh
|
||||
y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz
|
||||
Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY
|
||||
v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw
|
||||
OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN
|
||||
cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs
|
||||
LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb
|
||||
ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
|
||||
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
|
||||
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
|
||||
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
|
||||
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
|
||||
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
|
||||
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
|
||||
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
|
||||
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
|
||||
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
|
||||
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
|
||||
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
|
||||
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
|
||||
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
|
||||
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
|
||||
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
|
||||
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
|
||||
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
|
||||
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
|
||||
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
|
||||
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
|
||||
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
|
||||
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
|
||||
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
|
||||
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
|
||||
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
|
||||
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
|
||||
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
|
||||
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
|
||||
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
|
||||
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
|
||||
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
|
||||
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
|
||||
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
|
||||
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
|
||||
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
|
||||
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
|
||||
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
|
||||
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
|
||||
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
|
||||
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl
|
||||
mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK
|
||||
qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12
|
||||
zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE
|
||||
jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3
|
||||
kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv
|
||||
XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr
|
||||
e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr
|
||||
1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX
|
||||
bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr
|
||||
0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X
|
||||
vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7
|
||||
IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix
|
||||
QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+
|
||||
xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU
|
||||
yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy
|
||||
fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n
|
||||
hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx
|
||||
yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR
|
||||
auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3
|
||||
TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD
|
||||
VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN
|
||||
nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn
|
||||
EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N
|
||||
Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3
|
||||
m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK
|
||||
2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b
|
||||
3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz
|
||||
sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6
|
||||
Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz
|
||||
5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p
|
||||
ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d
|
||||
++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh
|
||||
y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz
|
||||
Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY
|
||||
v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw
|
||||
OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN
|
||||
cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs
|
||||
LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb
|
||||
ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
|
||||
@@ -411,9 +411,9 @@ Public Class usrCntlKundenuebersicht
|
||||
Dim zusatz As String = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
|
||||
Dim strasse As String = checkNullStr(ADRESSE.Straße)
|
||||
|
||||
lblStrasse.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) & checkNullStr(ADRESSE.Straße)
|
||||
'lblStrasse.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) & " " & checkNullStr(ADRESSE.Straße)
|
||||
If zusatz <> "" Then
|
||||
lblStrasse.Text = zusatz & vbCrLf & strasse
|
||||
lblStrasse.Text = strasse & vbCrLf & zusatz
|
||||
Else
|
||||
lblStrasse.Text = vbCrLf & strasse
|
||||
End If
|
||||
|
||||
4
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb
generated
4
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb
generated
@@ -316,8 +316,8 @@ Partial Public Class rptPLOSE_Anhang
|
||||
Me.txtKunde.HyperLink = Nothing
|
||||
Me.txtKunde.Left = 5.111811!
|
||||
Me.txtKunde.Name = "txtKunde"
|
||||
Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
|
||||
"char-set: 1"
|
||||
Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
|
||||
"-char-set: 1"
|
||||
Me.txtKunde.Text = "1000000 TEST"
|
||||
Me.txtKunde.Top = 0.8291339!
|
||||
Me.txtKunde.Width = 2.354331!
|
||||
|
||||
File diff suppressed because one or more lines are too long
@@ -450,6 +450,7 @@ Public Class usrcntlFakturierung
|
||||
|
||||
If intZlr = 0 Then Exit For
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
@@ -25,6 +25,7 @@ Public Enum cAPI_ART
|
||||
VERAG_OUT_EZA = 11
|
||||
|
||||
AVISO_IN_MSE = 80
|
||||
SDL_OUT_FA = 81
|
||||
|
||||
|
||||
End Enum
|
||||
|
||||
Reference in New Issue
Block a user