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

Kd VeranlKd,Aviso Birthday

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-23 15:38:50 +02:00
parent 47e3f994a8
commit 65a16fca73
13 changed files with 2408 additions and 463 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -555,6 +555,12 @@
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmATZollEingereichtSetzenEV.Designer.vb">
<DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
</Compile>
<Compile Include="frmATZollEingereichtSetzenEV.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAvisoAnhangsarten.Designer.vb">
<DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
</Compile>
@@ -1155,6 +1161,9 @@
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATZollEingereichtSetzenEV.resx">
<DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoAnhangsarten.resx">
<DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
</EmbeddedResource>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.9.9")>
<Assembly: AssemblyFileVersion("3.9.9.9")>
<Assembly: AssemblyVersion("4.0.0.0")>
<Assembly: AssemblyFileVersion("4.0.0.0")>

354
Aviso/frmATZollEingereichtSetzenEV.Designer.vb generated Normal file
View File

@@ -0,0 +1,354 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmATZollEingereichtSetzenEV
Inherits System.Windows.Forms.Form
'Das Formular ü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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATZollEingereichtSetzenEV))
Me.pnl = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblAbfNr = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.cbxRG2 = New System.Windows.Forms.CheckBox()
Me.cbxRG1 = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.lblWare = New System.Windows.Forms.Label()
Me.lblAbs = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblNr = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxEmpf = New System.Windows.Forms.CheckBox()
Me.lblAuftr = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.GroupBox1)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.lblAbfNr)
Me.pnl.Controls.Add(Me.GroupBox3)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblWare)
Me.pnl.Controls.Add(Me.lblAbs)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.Panel3)
Me.pnl.Controls.Add(Me.lblAuftr)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(621, 409)
Me.pnl.TabIndex = 0
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(451, 125)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(108, 13)
Me.Label7.TabIndex = 78
Me.Label7.Text = "Filiale/AbfertigungsNr"
'
'lblAbfNr
'
Me.lblAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAbfNr.Location = New System.Drawing.Point(450, 138)
Me.lblAbfNr.Name = "lblAbfNr"
Me.lblAbfNr.Size = New System.Drawing.Size(158, 26)
Me.lblAbfNr.TabIndex = 77
Me.lblAbfNr.Text = "4803/23999999"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cbxRG2)
Me.GroupBox3.Controls.Add(Me.cbxRG1)
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(14, 249)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(336, 86)
Me.GroupBox3.TabIndex = 58
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Auf Rechnung"
'
'cbxRG2
'
Me.cbxRG2.AutoSize = True
Me.cbxRG2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxRG2.Location = New System.Drawing.Point(6, 45)
Me.cbxRG2.Name = "cbxRG2"
Me.cbxRG2.Size = New System.Drawing.Size(314, 30)
Me.cbxRG2.TabIndex = 1
Me.cbxRG2.Text = "Der Text zur steuerlichen Vertretung in AT/DE durch VERAG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ist auf der Rechnung a" &
"ufgedruckt."
Me.cbxRG2.UseVisualStyleBackColor = True
'
'cbxRG1
'
Me.cbxRG1.AutoSize = True
Me.cbxRG1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxRG1.Location = New System.Drawing.Point(6, 22)
Me.cbxRG1.Name = "cbxRG1"
Me.cbxRG1.Size = New System.Drawing.Size(248, 17)
Me.cbxRG1.TabIndex = 0
Me.cbxRG1.Text = "AT-UID Nummer des Absenders auf Rechnung"
Me.cbxRG1.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label6)
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(619, 41)
Me.Panel1.TabIndex = 53
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Panel2.Location = New System.Drawing.Point(535, 41)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(85, 63)
Me.Panel2.TabIndex = 76
'
'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.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(534, -1)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(85, 33)
Me.Button1.TabIndex = 1
Me.Button1.Text = "x"
Me.Button1.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(13, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(467, 26)
Me.Label6.TabIndex = 51
Me.Label6.Text = "Checkliste"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lblWare
'
Me.lblWare.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblWare.Location = New System.Drawing.Point(10, 217)
Me.lblWare.Name = "lblWare"
Me.lblWare.Size = New System.Drawing.Size(587, 26)
Me.lblWare.TabIndex = 51
Me.lblWare.Text = "PCK"
'
'lblAbs
'
Me.lblAbs.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAbs.Location = New System.Drawing.Point(10, 138)
Me.lblAbs.Name = "lblAbs"
Me.lblAbs.Size = New System.Drawing.Size(435, 26)
Me.lblAbs.TabIndex = 50
Me.lblAbs.Text = "Absender:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(11, 125)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(50, 13)
Me.Label4.TabIndex = 48
Me.Label4.Text = "Abender:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(11, 204)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(36, 13)
Me.Label5.TabIndex = 49
Me.Label5.Text = "Ware:"
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(402, 334)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(206, 62)
Me.btn.TabIndex = 0
Me.btn.Text = "Weiter >>" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Bestätigen)"
Me.btn.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label3.Location = New System.Drawing.Point(6, 54)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(469, 57)
Me.Label3.TabIndex = 52
Me.Label3.Text = "Veranlagungskunde!"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.AntiqueWhite
Me.Panel3.Controls.Add(Me.Label2)
Me.Panel3.Controls.Add(Me.lblNr)
Me.Panel3.Location = New System.Drawing.Point(533, 41)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(87, 57)
Me.Panel3.TabIndex = 76
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(20, 3)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(49, 13)
Me.Label2.TabIndex = 77
Me.Label2.Text = "Send.Nr."
'
'lblNr
'
Me.lblNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold)
Me.lblNr.Location = New System.Drawing.Point(5, 18)
Me.lblNr.Name = "lblNr"
Me.lblNr.Size = New System.Drawing.Size(78, 34)
Me.lblNr.TabIndex = 75
Me.lblNr.Text = "99"
Me.lblNr.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cbxEmpf)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(356, 249)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(250, 57)
Me.GroupBox1.TabIndex = 59
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "ODER:"
'
'cbxEmpf
'
Me.cbxEmpf.AutoSize = True
Me.cbxEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxEmpf.Location = New System.Drawing.Point(6, 22)
Me.cbxEmpf.Name = "cbxEmpf"
Me.cbxEmpf.Size = New System.Drawing.Size(192, 17)
Me.cbxEmpf.TabIndex = 0
Me.cbxEmpf.Text = "Es wird auf den Empfänger verzollt!"
Me.cbxEmpf.UseVisualStyleBackColor = True
'
'lblAuftr
'
Me.lblAuftr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAuftr.Location = New System.Drawing.Point(10, 177)
Me.lblAuftr.Name = "lblAuftr"
Me.lblAuftr.Size = New System.Drawing.Size(435, 26)
Me.lblAuftr.TabIndex = 80
Me.lblAuftr.Text = "Absender:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(11, 164)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(71, 13)
Me.Label8.TabIndex = 79
Me.Label8.Text = "Auftraggeber:"
'
'frmATZollEingereichtSetzenEV
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(621, 409)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmATZollEingereichtSetzenEV"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "AT Zoll Einreichen Fiskal - Checkliste"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents Label3 As Label
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents cbxRG2 As CheckBox
Friend WithEvents cbxRG1 As CheckBox
Friend WithEvents lblWare As Label
Friend WithEvents lblAbs As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Panel3 As Panel
Friend WithEvents lblNr As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents Label2 As Label
Friend WithEvents Label7 As Label
Friend WithEvents lblAbfNr As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents cbxEmpf As CheckBox
Friend WithEvents Label8 As Label
Friend WithEvents lblAuftr As Label
End Class

1253
Aviso/frmATZollEingereichtSetzenEV.resx Normal file
View File

File diff suppressed because it is too large Load Diff

92
Aviso/frmATZollEingereichtSetzenEV.vb Normal file
View File

@@ -0,0 +1,92 @@
Imports SDL
Imports SDL.EORI
Imports VERAG_PROG_ALLGEMEIN
Public Class frmATZollEingereichtSetzenEV
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Sub New(AVISO, SND)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = AVISO
Me.SND = SND
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
If AVISO IsNot Nothing Then
lblAbs.Text = If(SND.tblSnd_Absender, "")
lblAuftr.Text = If(SND.tblSnd_Auftraggeber, "")
lblAbfNr.Text = SND.FilialenNr & "/" & SND.AbfertigungsNr
lblWare.Text = If(SND.tblSnd_Gewicht, "") & " kg, " & If(SND.tblSnd_Colli, "") & " Pk. " & If(SND.tblSnd_Warenbezeichnung, "")
End If
If SND IsNot Nothing Then
If SND.tblSnd_EmpfaengerKdNr > 0 Then
lblNr.Text = SND.tblSnd_PosUnterNr
'Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
'Dim KUNDEN As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
'If ADRESSEN IsNot Nothing Then
' txtUid.Text = If(ADRESSEN.UstIdKz, "") & If(ADRESSEN.UstIdNr, "")
' Dim UID_Pruef = VERAG_PROG_ALLGEMEIN.cUIDPruefung.LOADByKdNrNewestDate(SND.tblSnd_EmpfaengerKdNr)
' If UID_Pruef IsNot Nothing Then
' lblUIDPruefdatum.Text = UID_Pruef.uid_Datum.ToShortDateString
' If UID_Pruef.uid_Datum.ToShortDateString = Now.ToShortDateString Then
' cbxUID.Checked = True
' picUIDAbfrage.Image = My.Resources.ok
' Else
' check_UID_AD(ADRESSEN)
' End If
' End If
'Else
' check_UID(txtUid.Text)
'End If
'If KUNDEN IsNot Nothing Then
' txtEori.Text = If(KUNDEN.EORITIN, "")
' check_EORI(KUNDEN)
'End If
End If
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If cbxEmpf.Checked Then
Me.DialogResult = DialogResult.OK
Else
If Not cbxRG1.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
If Not cbxRG2.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
' AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "UID Prüfung Begründung: " & Txt, 47)
Me.DialogResult = DialogResult.OK
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Cancel
End Sub
Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Return Then
btn.PerformClick()
End If
End Sub
End Class

103
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -169,6 +169,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End If
Dim tmpSndId = -1
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Plausibilität prüfen
@@ -183,13 +184,13 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Else
'--------------------------------------------------------------------------------------------------------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
For Each SND In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 28 ' --> DE FISKAL
@@ -202,8 +203,25 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End If
End Select
Next
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'VERANLAGUNGSKUNDE
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
Else
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Next
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -218,7 +236,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
'End If
End If
ElseIf sender Is btnDEZollDIGITAL Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If sender.tag = "SWITCH" Then
insertVermerk("DE Zoll (DIGITAL) fertig", 83)
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
@@ -229,14 +247,14 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Else
'--------------------------------------------------------------------------------------------------------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 28 ' --> DE FISKAL
@@ -249,9 +267,26 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End If
End Select
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'VERANLAGUNGSKUNDE
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
Else
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Next
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
insertVermerk("DE Zoll DIGITAL eingereicht", 82)
@@ -266,14 +301,15 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
'--------------------------------------------------------------------------------------------------------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Select Case SND.tblSnd_Abfertigungsart_ID
Case 26 ' --> AT FISKAL
@@ -285,13 +321,36 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Exit Sub ' --> YOU'RE OUT!
End If
End Select
Next
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
End Select
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'VERANLAGUNGSKUNDE
If sql.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
Else
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Next
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
insertVermerk("AT Zoll eingereicht", 19)
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then

44
Aviso/frmAvisoBirthday.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmAvisoBirthday
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoBirthday))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -30,6 +31,7 @@ Partial Class frmAvisoBirthday
Me.Button1 = New System.Windows.Forms.Button()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -39,12 +41,13 @@ Partial Class frmAvisoBirthday
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.MyTextBox1)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.MyTextBox2)
Me.Panel1.Controls.Add(Me.MyTextBox1)
Me.Panel1.Controls.Add(Me.RichTextBox1)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.PictureBox2)
Me.Panel1.Controls.Add(Me.MyTextBox3)
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
@@ -79,7 +82,7 @@ Partial Class frmAvisoBirthday
Me.MyTextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(22, 876)
Me.MyTextBox2.Location = New System.Drawing.Point(22, 887)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
@@ -105,12 +108,12 @@ Partial Class frmAvisoBirthday
Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox1.ForeColor = System.Drawing.Color.DarkBlue
Me.MyTextBox1.Location = New System.Drawing.Point(22, 316)
Me.MyTextBox1.Location = New System.Drawing.Point(22, 340)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(224, 23)
Me.MyTextBox1.Size = New System.Drawing.Size(158, 23)
Me.MyTextBox1.TabIndex = 4
Me.MyTextBox1.Text = "Erinnerungen..."
'
@@ -137,7 +140,7 @@ Partial Class frmAvisoBirthday
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Location = New System.Drawing.Point(22, 352)
Me.PictureBox2.Location = New System.Drawing.Point(22, 369)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(746, 513)
Me.PictureBox2.TabIndex = 1
@@ -150,10 +153,38 @@ Partial Class frmAvisoBirthday
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(22, -1)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(746, 347)
Me.PictureBox1.Size = New System.Drawing.Size(746, 278)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'MyTextBox3
'
Me.MyTextBox3._DateTimeOnly = False
Me.MyTextBox3._numbersOnly = False
Me.MyTextBox3._numbersOnlyKommastellen = ""
Me.MyTextBox3._numbersOnlyTrennzeichen = True
Me.MyTextBox3._Prozent = False
Me.MyTextBox3._ShortDateNew = False
Me.MyTextBox3._ShortDateOnly = False
Me.MyTextBox3._TimeOnly = False
Me.MyTextBox3._TimeOnly_Seconds = False
Me.MyTextBox3._value = resources.GetString("MyTextBox3._value")
Me.MyTextBox3._Waehrung = False
Me.MyTextBox3._WaehrungZeichen = True
Me.MyTextBox3.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
Me.MyTextBox3.Location = New System.Drawing.Point(23, 268)
Me.MyTextBox3.MaxLineLength = -1
Me.MyTextBox3.MaxLines_Warning = ""
Me.MyTextBox3.MaxLines_Warning_Label = Nothing
Me.MyTextBox3.Multiline = True
Me.MyTextBox3.Name = "MyTextBox3"
Me.MyTextBox3.Size = New System.Drawing.Size(773, 86)
Me.MyTextBox3.TabIndex = 7
Me.MyTextBox3.Text = resources.GetString("MyTextBox3.Text")
Me.MyTextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'frmAvisoBirthday
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -180,4 +211,5 @@ Partial Class frmAvisoBirthday
Friend WithEvents Button2 As Button
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

12
Aviso/frmAvisoBirthday.resx
View File

@@ -117,4 +117,16 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="MyTextBox3._value" xml:space="preserve">
<value>Das Avsio Programm wird seit 2013 entwickelt und steuert immer mehr Prozesse in unserer Zoll- und Buchhaltungsabteilung.
Aktuell ist die Versionsnummer 4.0.0.0 erreicht!
In Version 2.x und 3.x gab es noch Versionssprünge, seit 3.0.0.0 (ca. 2017) wurden durchgängig 1.000 Updates (Erweiterungen/Verbesserungen) durchgeführt.</value>
</data>
<data name="MyTextBox3.Text" xml:space="preserve">
<value>Das Avsio Programm wird seit 2013 entwickelt und steuert immer mehr Prozesse in unserer Zoll- und Buchhaltungsabteilung.
Aktuell ist die Versionsnummer 4.0.0.0 erreicht!
In Version 2.x und 3.x gab es noch Versionssprünge, seit 3.0.0.0 (ca. 2017) wurden durchgängig 1.000 Updates (Erweiterungen/Verbesserungen) durchgeführt.</value>
</data>
</root>

2
Aviso/frmAvisoBirthday.vb
View File

@@ -1,7 +1,7 @@
Public Class frmAvisoBirthday
Dim cnt As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag;d.breimair@verag.ag", "AVISO Congrats - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, RichTextBox1.Text)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag;d.breimaier@verag.ag", "AVISO Congrats - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, RichTextBox1.Text)
'
Button1.Visible = False
End Sub

12
Aviso/frmHauptfenster.vb
View File

@@ -2838,12 +2838,14 @@ Public Class frmHauptfenster
BürgschaftenExcelToolStripMenuItem.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then
If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmAvisoBirthday
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmAvisoBirthday
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If
End If
End Sub

875
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

21
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1531,6 +1531,9 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1651,6 +1654,18 @@
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
@@ -2059,6 +2074,9 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>
@@ -2514,6 +2532,9 @@
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>129, 56</value>
</metadata>
<metadata name="timerValidation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 56</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

90
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -36,6 +36,7 @@ Public Class frmSendungsdetailsNEU
Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
Dim listOfTextconserven
Dim cntVeranlagungsRg = 0
Sub New()
InitializeComponent()
@@ -119,7 +120,7 @@ Public Class frmSendungsdetailsNEU
loadDataInLIST()
doVeranlagungsValidation()
If VALIDATE_ME() Then
SAVE_ME = True
@@ -143,20 +144,45 @@ Public Class frmSendungsdetailsNEU
End If
End Function
Function VALIDATE_ME() As Boolean
Sub doVeranlagungsValidation()
cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0")
End Sub
Function VALIDATE_ME(Optional showErr = True) As Boolean
pnlValidation.Visible = False
rtbValidierung.Text = ""
'Dim returnValue = True
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
lblErr_AvisiererKdNr.Visible = False
lblErr_EmpfKdNr.Visible = False
lblErr_FraechterKdNr.Visible = False
'--------------------------------------------------
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
Return True
End If
'--------------------------------------------------
If (txtAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) Or (txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
End If
If (txtAbsender.KdData_KUNDE_ERW Is Nothing OrElse Not txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) And (txtAuftraggeber.KdData_KUNDE_ERW Is Nothing OrElse Not txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
End If
'--------------------------------------------------
'Aktuell noch nicht!
'Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
' Case <= 0, 10
' Case Else
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
'End Select
Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
Case <= 0, 10
Case Else
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False
End Select
If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
@@ -164,11 +190,32 @@ Public Class frmSendungsdetailsNEU
Else
If FilialeAktFirma <> "" Then
If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then
Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then
Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then
Dim err = "- Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then
Dim err = "- Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtAbsender.checkFirma(FilialeAktFirma) Then
Dim err = "- Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
End If
End If
End If
@@ -187,7 +234,9 @@ Public Class frmSendungsdetailsNEU
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
MsgBox("ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False
Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
@@ -200,12 +249,13 @@ Public Class frmSendungsdetailsNEU
If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or
(cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or
(cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then
If MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
Return False
End If
End If
End If
' pnlValidation.Visible = rtbValidierung.Text <> ""
Return True
End Function
@@ -1344,6 +1394,7 @@ Public Class frmSendungsdetailsNEU
setVorpapiere()
doVeranlagungsValidation()
initFraechterAvisererFromAkt()
''Übergangsphase Aviso/Sendung
@@ -3258,9 +3309,9 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initAnhang()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert
FROM [tblAvisoAnhaenge]
left join tblAvisoAnhangsArten on aa_name = anh_Art
left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art
WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
ORDER BY anh_SendungsId desc, case when aa_sort = NULL THEN 15 else aa_sort END, [anh_Reihenfolge],[anh_id]"
@@ -6858,4 +6909,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick
VALIDATE_ME(False)
End Sub
End Class