20200108
This commit is contained in:
@@ -27,6 +27,7 @@ Public Class frmEintragAviso
|
||||
Public AktenzetteldruckenVisible = False
|
||||
Public TMP_SND_Atilla As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||
|
||||
Public ATT As List(Of String)
|
||||
Dim PROG As New cProgramFunctions
|
||||
|
||||
Public Sub New()
|
||||
@@ -53,7 +54,29 @@ Public Class frmEintragAviso
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initAttachment()
|
||||
If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub
|
||||
dgvAnhaenge.Rows.Clear()
|
||||
If ATT.Count = 0 Then
|
||||
' btnSaveAttachments.Enabled = False
|
||||
Else
|
||||
dgvAnhaenge.Visible = True
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
dgvAnhaenge.Visible = False
|
||||
'dgvAnhaenge.Size = New Size(dgvAnhaenge.Size.Width, 70)
|
||||
'dgvAnhaenge.Top += (dgvAnhaenge.Size.Height - 70)
|
||||
End If
|
||||
For Each a In ATT
|
||||
Dim display = a
|
||||
If a.Contains("\") Then
|
||||
Dim sp = a.Split("\")
|
||||
display = sp(sp.Count - 1)
|
||||
End If
|
||||
dgvAnhaenge.Rows.Add({display})
|
||||
Next
|
||||
End If
|
||||
dgvAnhaenge.ClearSelection()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
@@ -88,15 +111,18 @@ Public Class frmEintragAviso
|
||||
lblFiskAT.Visible = False
|
||||
txtSndFiskalDE.Visible = False
|
||||
lblFiskDE.Visible = False
|
||||
Label1.Visible = True
|
||||
cboImEx.Visible = True
|
||||
|
||||
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
|
||||
txtBestimmungszollstelle.Visible = True
|
||||
lblZA.Visible = True
|
||||
Case "UNISPED"
|
||||
lblDy.Visible = True
|
||||
txtDyRef.Visible = True
|
||||
picDy.Visible = True
|
||||
Label1.Visible = True
|
||||
cboImEx.Visible = True
|
||||
' lblDy.Visible = True
|
||||
' txtDyRef.Visible = True
|
||||
' picDy.Visible = True
|
||||
End Select
|
||||
|
||||
|
||||
@@ -118,7 +144,13 @@ Public Class frmEintragAviso
|
||||
txtSndFremd.Visible = True
|
||||
lblSndFremd.Visible = True
|
||||
End Select
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "FRONTOFFICE"
|
||||
cbxSendungsvorlagen.Checked = False
|
||||
cbxPosNr.Checked = False
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME.Contains("ANNAHME") Then cbxSendungsvorlagen.Checked = False
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "MAIL_USER" Then cbxSendungsvorlagen.Checked = False
|
||||
@@ -403,8 +435,24 @@ Public Class frmEintragAviso
|
||||
dtpAvisoEingangZeit.Enabled = bearb
|
||||
End If
|
||||
|
||||
|
||||
initAttachment()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
|
||||
If dgvAnhaenge.SelectedRows.Count > 0 Then
|
||||
For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
|
||||
ATT.RemoveAt(row.Index)
|
||||
Next
|
||||
|
||||
'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
|
||||
initAttachment()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
|
||||
'Irgendwas wurde geändert, deshalb ein Hinweis, ob auch wirklich abgebrochen werden soll
|
||||
@@ -670,6 +718,7 @@ Public Class frmEintragAviso
|
||||
' myAviso.Info = txtInfo.Text.Trim ' jetzt in Vermerke gespeichert!!
|
||||
myAviso.Info = ""
|
||||
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
myAviso.Grenzstelle = "SUB"
|
||||
Else
|
||||
@@ -769,6 +818,7 @@ Public Class frmEintragAviso
|
||||
End If
|
||||
|
||||
myAviso.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
|
||||
|
||||
|
||||
'If myAviso.FIRMA = "IMEX" Then
|
||||
@@ -837,7 +887,7 @@ Public Class frmEintragAviso
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Case "IMEX"
|
||||
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE"
|
||||
Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
|
||||
|
||||
'Die Sendungen eintragen:
|
||||
@@ -848,7 +898,7 @@ Public Class frmEintragAviso
|
||||
MsgBox("Es wurden bereits " & anzahlSendungen & " Sendungen hinzugefügt. Um die Anzahl zu reduzieren, löschen Sie die entsprechenden Sendungen.")
|
||||
showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
|
||||
Else
|
||||
Dim filiale_tmp As Integer = 5501
|
||||
Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
|
||||
Dim gesAnzSnd = initSndAnzahl()
|
||||
|
||||
For cnt As Integer = anzahlSendungen + 1 To gesAnzSnd
|
||||
@@ -1024,7 +1074,7 @@ Public Class frmEintragAviso
|
||||
End Sub
|
||||
Sub getFilialeAndAbfertNrIMEX(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd, ByRef abfart)
|
||||
abfart = DBNull.Value
|
||||
filialeNr = 5501
|
||||
filialeNr = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
|
||||
If cnt <= txtSendungen.Text Then
|
||||
ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then
|
||||
abfart = 26
|
||||
@@ -1205,18 +1255,20 @@ Public Class frmEintragAviso
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function bereits_angelegt(hFirma As String) As Boolean
|
||||
Dim checkEintrag As New cFirma
|
||||
Dim hSQL As String = "SELECT * FROM Firmen WHERE Firma = '" & hFirma.Trim & "'"
|
||||
'Private Function bereits_angelegt(hFirma As String) As Boolean
|
||||
' Dim checkEintrag As New cFirma
|
||||
|
||||
checkEintrag = Firmen.LesenFirma(0, "", hSQL)
|
||||
If IsNothing(checkEintrag) Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
|
||||
End Function
|
||||
' Dim hSQL As String = "SELECT * FROM Firmen WHERE " & firma
|
||||
|
||||
' checkEintrag = Firmen.LesenFirma(0, "", hSQL)
|
||||
' If IsNothing(checkEintrag) Then
|
||||
' Return False
|
||||
' Else
|
||||
' Return True
|
||||
' End If
|
||||
|
||||
'End Function
|
||||
|
||||
Private Sub btnFirmaNeu_Fraechter(sender As System.Object, e As System.EventArgs) Handles Button4.Click
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
@@ -1445,8 +1497,8 @@ Public Class frmEintragAviso
|
||||
|
||||
Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
|
||||
|
||||
cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX")
|
||||
Label1.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX")
|
||||
cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
|
||||
Label1.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
||||
If cboGrenzstelle.Text = "???" Then
|
||||
|
||||
Reference in New Issue
Block a user