neu
This commit is contained in:
@@ -31,13 +31,16 @@ Public Class frmEintragAviso
|
||||
Dim PROG As New cProgramFunctions
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
|
||||
End Sub
|
||||
|
||||
Private Sub frmEintragAviso_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And myAviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
||||
If FIRMA_TMP = "ATILLA" And myAviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
||||
If myAviso.Frächter = "" Then
|
||||
MsgBox("Bei 'Ankunft' muss der Frächter angegeben werden!")
|
||||
e.Cancel = True
|
||||
@@ -62,7 +65,7 @@ Public Class frmEintragAviso
|
||||
' btnSaveAttachments.Enabled = False
|
||||
Else
|
||||
dgvAnhaenge.Visible = True
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
If FIRMA_TMP = "ATILLA" Then
|
||||
dgvAnhaenge.Visible = False
|
||||
'dgvAnhaenge.Size = New Size(dgvAnhaenge.Size.Width, 70)
|
||||
'dgvAnhaenge.Top += (dgvAnhaenge.Size.Height - 70)
|
||||
@@ -94,7 +97,7 @@ Public Class frmEintragAviso
|
||||
kdAuftraggeber.initKdBox(Me)
|
||||
|
||||
cboGrenzstelle.Items.Clear()
|
||||
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
|
||||
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
|
||||
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
|
||||
cboGrenzstelle.changeItem("")
|
||||
|
||||
@@ -124,10 +127,10 @@ Public Class frmEintragAviso
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
|
||||
cboFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
cboFirma.changeItem(FIRMA_TMP)
|
||||
cboFirma.Enabled = False
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Select Case FIRMA_TMP
|
||||
Case "IMEX"
|
||||
|
||||
txtSndFiskalAT.Visible = False
|
||||
@@ -194,7 +197,7 @@ Public Class frmEintragAviso
|
||||
cboImEx.Visible = True
|
||||
Label1.Visible = True
|
||||
End Select
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Select Case FIRMA_TMP
|
||||
Case "FRONTOFFICE"
|
||||
cbxSendungsvorlagen.Checked = False
|
||||
cbxPosNr.Checked = False
|
||||
@@ -253,7 +256,7 @@ Public Class frmEintragAviso
|
||||
|
||||
btnOK.Enabled = True
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
If FIRMA_TMP = "ATILLA" Then
|
||||
cbxFrächterUnbekannt.Visible = True
|
||||
cboGrenzstelle.Visible = False
|
||||
lblGrenze.Visible = False
|
||||
@@ -287,222 +290,222 @@ Public Class frmEintragAviso
|
||||
If cboFirma._value = "ATILLA" Then datVoraussichtlichesEintreffen.Value = Now 'Bei ATILLA gibt es meist kein voraussichtliches Eintreffdatum.
|
||||
|
||||
dtpAvisoEingangDatum.Value = Now.Date
|
||||
dtpAvisoEingangZeit.Value = LeerDatum
|
||||
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
lblStatus.Text = "Neuanlage"
|
||||
optAvisoEingang.Checked = True
|
||||
kdAvisierer.Text = ""
|
||||
kdAuftraggeber.Text = ""
|
||||
kdFrächter.Text = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
|
||||
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
|
||||
End If
|
||||
dtpAvisoEingangZeit.Value = LeerDatum
|
||||
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
lblStatus.Text = "Neuanlage"
|
||||
optAvisoEingang.Checked = True
|
||||
kdAvisierer.Text = ""
|
||||
kdAuftraggeber.Text = ""
|
||||
kdFrächter.Text = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
|
||||
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
|
||||
End If
|
||||
Else
|
||||
Me.Text = "Änderung LKW-Aviso"
|
||||
End If
|
||||
Else
|
||||
Me.Text = "Änderung LKW-Aviso"
|
||||
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
|
||||
|
||||
txtInfo.Visible = False
|
||||
Label3.Visible = False
|
||||
'ausgewählter Datensatz wird geladen
|
||||
grpAktVerzollung.Visible = False
|
||||
cbxSendungsvorlagen.Visible = False
|
||||
Button3.Visible = False
|
||||
Label3.Visible = False
|
||||
'ausgewählter Datensatz wird geladen
|
||||
grpAktVerzollung.Visible = False
|
||||
cbxSendungsvorlagen.Visible = False
|
||||
Button3.Visible = False
|
||||
|
||||
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
|
||||
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
|
||||
|
||||
'Werte(zuweisen)
|
||||
dtpDatum.Value = myAviso.Datum
|
||||
If myAviso.Frächter_KdNr > 0 Then
|
||||
kdFrächter.KdNr = myAviso.Frächter_KdNr
|
||||
Else
|
||||
kdFrächter.Text = myAviso.Frächter
|
||||
End If
|
||||
'Werte(zuweisen)
|
||||
dtpDatum.Value = myAviso.Datum
|
||||
If myAviso.Frächter_KdNr > 0 Then
|
||||
kdFrächter.KdNr = myAviso.Frächter_KdNr
|
||||
Else
|
||||
kdFrächter.Text = myAviso.Frächter
|
||||
End If
|
||||
|
||||
If myAviso.Auftraggeber_KdNr > 0 Then
|
||||
kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
|
||||
Else
|
||||
kdAvisierer.Text = myAviso.Auftraggeber
|
||||
End If
|
||||
If myAviso.Auftraggeber_KdNr > 0 Then
|
||||
kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
|
||||
Else
|
||||
kdAvisierer.Text = myAviso.Auftraggeber
|
||||
End If
|
||||
|
||||
txtInfo.Text = myAviso.Info.Trim
|
||||
txtLKW_Nr.Text = myAviso.LKW_Nr
|
||||
sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
|
||||
txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
|
||||
txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "")
|
||||
If myAviso.VoraussichtlichesEintreffen IsNot Nothing Then
|
||||
datVoraussichtlichesEintreffen.Value = myAviso.VoraussichtlichesEintreffen
|
||||
Else
|
||||
datVoraussichtlichesEintreffen.Value = myAviso.Datum.AddDays(-1)
|
||||
End If
|
||||
txtInfo.Text = myAviso.Info.Trim
|
||||
txtLKW_Nr.Text = myAviso.LKW_Nr
|
||||
sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
|
||||
txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
|
||||
txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "")
|
||||
If myAviso.VoraussichtlichesEintreffen IsNot Nothing Then
|
||||
datVoraussichtlichesEintreffen.Value = myAviso.VoraussichtlichesEintreffen
|
||||
Else
|
||||
datVoraussichtlichesEintreffen.Value = myAviso.Datum.AddDays(-1)
|
||||
End If
|
||||
|
||||
|
||||
txtÄnderungen.Text = myAviso.Änderungen.Trim
|
||||
optOhneAviso.Visible = False 'bei Änderung kann kein Eingang ohne Aviso erfolgen, da Datum bereits bei Anlage gesetzt
|
||||
optAvisoEingang.Checked = True 'bei Änderung kann kein Eingang ohne Aviso erfolgen...
|
||||
dtpAvisoEingangDatum.Visible = True
|
||||
dtpAvisoEingangZeit.Visible = True
|
||||
If myAviso.Telefonisch = "Telefon" Then
|
||||
optTelefonisch.Checked = True
|
||||
ElseIf myAviso.Telefonisch = "Schriftl." Then
|
||||
optSchriftlich.Checked = True
|
||||
Else
|
||||
optUnbekannt.Checked = True
|
||||
End If
|
||||
txtÄnderungen.Text = myAviso.Änderungen.Trim
|
||||
optOhneAviso.Visible = False 'bei Änderung kann kein Eingang ohne Aviso erfolgen, da Datum bereits bei Anlage gesetzt
|
||||
optAvisoEingang.Checked = True 'bei Änderung kann kein Eingang ohne Aviso erfolgen...
|
||||
dtpAvisoEingangDatum.Visible = True
|
||||
dtpAvisoEingangZeit.Visible = True
|
||||
If myAviso.Telefonisch = "Telefon" Then
|
||||
optTelefonisch.Checked = True
|
||||
ElseIf myAviso.Telefonisch = "Schriftl." Then
|
||||
optSchriftlich.Checked = True
|
||||
Else
|
||||
optUnbekannt.Checked = True
|
||||
End If
|
||||
cboGrenzstelle.changeItem(myAviso.Grenzstelle)
|
||||
cboTransportmittelart.changeItem(myAviso.Transportmittelart)
|
||||
|
||||
cboImEx.Text = If(myAviso.ImEx, "")
|
||||
hStatus = myAviso.Status
|
||||
If myAviso.Ankunft = LeerDatum Then
|
||||
dtpAnkunft.Value = Now.Date
|
||||
dtpAnkunftZeit.Value = Now
|
||||
Else
|
||||
dtpAnkunft.Value = myAviso.Ankunft
|
||||
dtpAnkunftZeit.Value = myAviso.Ankunft
|
||||
End If
|
||||
If myAviso.AvisoEingang = LeerDatum Then
|
||||
dtpAvisoEingangDatum.Value = dtpDatum.Value.Date
|
||||
dtpAvisoEingangZeit.Value = dtpDatum.Value
|
||||
Else
|
||||
dtpAvisoEingangDatum.Value = myAviso.AvisoEingang
|
||||
dtpAvisoEingangZeit.Value = myAviso.AvisoEingang
|
||||
End If
|
||||
If myAviso.Freigabe = LeerDatum Then
|
||||
dtpFreigabe.Value = Now.Date
|
||||
dtpFreigabeZeit.Value = Now
|
||||
Else
|
||||
dtpFreigabe.Value = myAviso.Freigabe
|
||||
dtpFreigabeZeit.Value = myAviso.Freigabe
|
||||
End If
|
||||
If myAviso.Vorbereitet = LeerDatum Then
|
||||
dtpVorbereitet.Value = Now.Date
|
||||
dtpVorbereitetZeit.Value = Now
|
||||
Else
|
||||
dtpVorbereitet.Value = myAviso.Vorbereitet
|
||||
dtpVorbereitetZeit.Value = myAviso.Vorbereitet
|
||||
End If
|
||||
If myAviso.Vorgeschrieben = LeerDatum Then
|
||||
dtpVorgeschrieben.Value = Now.Date
|
||||
dtpVorgeschriebenZeit.Value = Now
|
||||
Else
|
||||
dtpVorgeschrieben.Value = myAviso.Vorgeschrieben
|
||||
dtpVorgeschriebenZeit.Value = myAviso.Vorgeschrieben
|
||||
End If
|
||||
hStatus = myAviso.Status
|
||||
If myAviso.Ankunft = LeerDatum Then
|
||||
dtpAnkunft.Value = Now.Date
|
||||
dtpAnkunftZeit.Value = Now
|
||||
Else
|
||||
dtpAnkunft.Value = myAviso.Ankunft
|
||||
dtpAnkunftZeit.Value = myAviso.Ankunft
|
||||
End If
|
||||
If myAviso.AvisoEingang = LeerDatum Then
|
||||
dtpAvisoEingangDatum.Value = dtpDatum.Value.Date
|
||||
dtpAvisoEingangZeit.Value = dtpDatum.Value
|
||||
Else
|
||||
dtpAvisoEingangDatum.Value = myAviso.AvisoEingang
|
||||
dtpAvisoEingangZeit.Value = myAviso.AvisoEingang
|
||||
End If
|
||||
If myAviso.Freigabe = LeerDatum Then
|
||||
dtpFreigabe.Value = Now.Date
|
||||
dtpFreigabeZeit.Value = Now
|
||||
Else
|
||||
dtpFreigabe.Value = myAviso.Freigabe
|
||||
dtpFreigabeZeit.Value = myAviso.Freigabe
|
||||
End If
|
||||
If myAviso.Vorbereitet = LeerDatum Then
|
||||
dtpVorbereitet.Value = Now.Date
|
||||
dtpVorbereitetZeit.Value = Now
|
||||
Else
|
||||
dtpVorbereitet.Value = myAviso.Vorbereitet
|
||||
dtpVorbereitetZeit.Value = myAviso.Vorbereitet
|
||||
End If
|
||||
If myAviso.Vorgeschrieben = LeerDatum Then
|
||||
dtpVorgeschrieben.Value = Now.Date
|
||||
dtpVorgeschriebenZeit.Value = Now
|
||||
Else
|
||||
dtpVorgeschrieben.Value = myAviso.Vorgeschrieben
|
||||
dtpVorgeschriebenZeit.Value = myAviso.Vorgeschrieben
|
||||
End If
|
||||
|
||||
txtDauer.Text = Minuten_auf_Text(myAviso.Dauer)
|
||||
cbxHandling.Checked = myAviso.Handling
|
||||
cbxSammelakt.Checked = myAviso.Sammelakt
|
||||
txtSendungen.Text = myAviso.Sendungen_Gesamtanzahl
|
||||
If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
|
||||
txtDauer.Text = Minuten_auf_Text(myAviso.Dauer)
|
||||
cbxHandling.Checked = myAviso.Handling
|
||||
cbxSammelakt.Checked = myAviso.Sammelakt
|
||||
txtSendungen.Text = myAviso.Sendungen_Gesamtanzahl
|
||||
If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
|
||||
|
||||
'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
|
||||
'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
|
||||
|
||||
'Status anzeigen
|
||||
'Status anzeigen
|
||||
|
||||
Select Case hStatus
|
||||
Case cGlobal.Status_Ankunft
|
||||
lblStatus.Text = "Ankunft"
|
||||
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
|
||||
lblStatus.ForeColor = Color.Blue
|
||||
optAnkunft.Checked = True
|
||||
Case cGlobal.Status_Erfasst
|
||||
lblStatus.Text = "erfasst"
|
||||
lblStatus.ForeColor = Color.Red
|
||||
optErfasst.Checked = True
|
||||
Case cGlobal.Status_Freigegeben
|
||||
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
|
||||
lblStatus.ForeColor = Color.Green
|
||||
btnOK.Enabled = bearb
|
||||
optFreigegeben.Checked = True
|
||||
Case cGlobal.Status_NichtEingetroffen
|
||||
lblStatus.Text = "LKW nicht eingetroffen"
|
||||
lblStatus.ForeColor = Color.DarkGray
|
||||
btnOK.Enabled = bearb
|
||||
optNichtEingetroffen.Checked = True
|
||||
Case cGlobal.Status_Vorbereitet
|
||||
lblStatus.Text = "Vorbereitet"
|
||||
lblStatus.ForeColor = Color.Brown
|
||||
btnOK.Enabled = bearb
|
||||
optVorbereitet.Checked = True
|
||||
Case cGlobal.Status_Vorgeschrieben
|
||||
lblStatus.Text = "Vorgeschrieben"
|
||||
lblStatus.ForeColor = Color.Purple
|
||||
btnOK.Enabled = bearb
|
||||
optVorgeschrieben.Checked = True
|
||||
Case Else
|
||||
lblStatus.Text = ""
|
||||
End Select
|
||||
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
|
||||
Select Case hStatus
|
||||
Case cGlobal.Status_Ankunft
|
||||
lblStatus.Text = "Ankunft"
|
||||
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
|
||||
lblStatus.ForeColor = Color.Blue
|
||||
optAnkunft.Checked = True
|
||||
Case cGlobal.Status_Erfasst
|
||||
lblStatus.Text = "erfasst"
|
||||
lblStatus.ForeColor = Color.Red
|
||||
optErfasst.Checked = True
|
||||
Case cGlobal.Status_Freigegeben
|
||||
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
|
||||
lblStatus.ForeColor = Color.Green
|
||||
btnOK.Enabled = bearb
|
||||
optFreigegeben.Checked = True
|
||||
Case cGlobal.Status_NichtEingetroffen
|
||||
lblStatus.Text = "LKW nicht eingetroffen"
|
||||
lblStatus.ForeColor = Color.DarkGray
|
||||
btnOK.Enabled = bearb
|
||||
optNichtEingetroffen.Checked = True
|
||||
Case cGlobal.Status_Vorbereitet
|
||||
lblStatus.Text = "Vorbereitet"
|
||||
lblStatus.ForeColor = Color.Brown
|
||||
btnOK.Enabled = bearb
|
||||
optVorbereitet.Checked = True
|
||||
Case cGlobal.Status_Vorgeschrieben
|
||||
lblStatus.Text = "Vorgeschrieben"
|
||||
lblStatus.ForeColor = Color.Purple
|
||||
btnOK.Enabled = bearb
|
||||
optVorgeschrieben.Checked = True
|
||||
Case Else
|
||||
lblStatus.Text = ""
|
||||
End Select
|
||||
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
|
||||
cboFirma.changeItem("")
|
||||
cboFirma.changeItem(myAviso.FIRMA)
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ZeitenBearbeiten", "SDL") Then
|
||||
panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
|
||||
End If
|
||||
panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
|
||||
End If
|
||||
|
||||
'Vorpapier laden
|
||||
UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
|
||||
|
||||
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||||
' If FIRMA_TMP = "IMEX" Then
|
||||
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
|
||||
cbxWarenort.Checked = myAviso.Warenort
|
||||
' End If
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle3.SET_VALUE(If(myAviso.Durchgangszollstelle3, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle4.SET_VALUE(If(myAviso.Durchgangszollstelle4, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle5.SET_VALUE(If(myAviso.Durchgangszollstelle5, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle6.SET_VALUE(If(myAviso.Durchgangszollstelle6, ""))
|
||||
UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = ""
|
||||
If FIRMA_TMP = "ATILLA" Then
|
||||
cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle3.SET_VALUE(If(myAviso.Durchgangszollstelle3, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle4.SET_VALUE(If(myAviso.Durchgangszollstelle4, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle5.SET_VALUE(If(myAviso.Durchgangszollstelle5, ""))
|
||||
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle6.SET_VALUE(If(myAviso.Durchgangszollstelle6, ""))
|
||||
UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = ""
|
||||
|
||||
If myAviso.Ausgangszollstelle IsNot Nothing Then
|
||||
For Each s In myAviso.Ausgangszollstelle.split(";")
|
||||
Select Case s
|
||||
Case "KA" : UsrCntlEintragAvisoAtilla.rbtnKaptainAndreevo.Checked = True
|
||||
Case "L" : UsrCntlEintragAvisoAtilla.rbtnLesovo.Checked = True
|
||||
Case "BB" : UsrCntlEintragAvisoAtilla.rbtnBatrovici.Checked = True
|
||||
Case "HR" : UsrCntlEintragAvisoAtilla.rbtnHorgos.Checked = True
|
||||
Case "TK" : UsrCntlEintragAvisoAtilla.rbtnTompa.Checked = True
|
||||
Case "T" : UsrCntlEintragAvisoAtilla.rbtnTrieste.Checked = True
|
||||
Case "KI" : UsrCntlEintragAvisoAtilla.rbtnKipi.Checked = True
|
||||
Case "TS" : UsrCntlEintragAvisoAtilla.rbtnTovarnik.Checked = True
|
||||
Case Else : If s <> "" Then UsrCntlEintragAvisoAtilla.rbtnAndere.Checked = True : UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = s
|
||||
End Select
|
||||
Next
|
||||
If myAviso.Ausgangszollstelle IsNot Nothing Then
|
||||
For Each s In myAviso.Ausgangszollstelle.split(";")
|
||||
Select Case s
|
||||
Case "KA" : UsrCntlEintragAvisoAtilla.rbtnKaptainAndreevo.Checked = True
|
||||
Case "L" : UsrCntlEintragAvisoAtilla.rbtnLesovo.Checked = True
|
||||
Case "BB" : UsrCntlEintragAvisoAtilla.rbtnBatrovici.Checked = True
|
||||
Case "HR" : UsrCntlEintragAvisoAtilla.rbtnHorgos.Checked = True
|
||||
Case "TK" : UsrCntlEintragAvisoAtilla.rbtnTompa.Checked = True
|
||||
Case "T" : UsrCntlEintragAvisoAtilla.rbtnTrieste.Checked = True
|
||||
Case "KI" : UsrCntlEintragAvisoAtilla.rbtnKipi.Checked = True
|
||||
Case "TS" : UsrCntlEintragAvisoAtilla.rbtnTovarnik.Checked = True
|
||||
Case Else : If s <> "" Then UsrCntlEintragAvisoAtilla.rbtnAndere.Checked = True : UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = s
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
UsrCntlEintragAvisoAtilla.txtTransporttemp.Text = If(myAviso.TransportTemperatur, "")
|
||||
UsrCntlEintragAvisoAtilla.txtZugmaschine.Text = If(myAviso.Zugmaschine, "")
|
||||
Dim sndId = ADMIN.getValueTxtBySql("SELECT TOP 1 isnull(tblSnd_SendungID,-1) FROM [tblSendungen] WHERE [tblSnd_AvisoID]=" & myAviso.AvisoID, "AVISO")
|
||||
If IsNumeric(sndId) AndAlso sndId > 0 Then
|
||||
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
|
||||
End If
|
||||
If TMP_SND_Atilla IsNot Nothing Then
|
||||
UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text = If(TMP_SND_Atilla.tblSnd_Warenbezeichnung, "")
|
||||
UsrCntlEintragAvisoAtilla.txtColli.Text = If(TMP_SND_Atilla.tblSnd_Colli, "")
|
||||
UsrCntlEintragAvisoAtilla.txtGewicht.Text = If(TMP_SND_Atilla.tblSnd_Gewicht, "")
|
||||
UsrCntlEintragAvisoAtilla.txtAnmerkung.Text = If(TMP_SND_Atilla.tblSnd_Anmerkung, "")
|
||||
|
||||
|
||||
If TMP_SND_Atilla.tblSnd_AuftraggeberKdNr > 0 Then
|
||||
kdAuftraggeber.KdNr = TMP_SND_Atilla.tblSnd_AuftraggeberKdNr
|
||||
Else
|
||||
kdAuftraggeber.Text = TMP_SND_Atilla.tblSnd_Auftraggeber
|
||||
End If
|
||||
|
||||
|
||||
UsrCntlEintragAvisoAtilla.txtTransporttemp.Text = If(myAviso.TransportTemperatur, "")
|
||||
UsrCntlEintragAvisoAtilla.txtZugmaschine.Text = If(myAviso.Zugmaschine, "")
|
||||
Dim sndId = ADMIN.getValueTxtBySql("SELECT TOP 1 isnull(tblSnd_SendungID,-1) FROM [tblSendungen] WHERE [tblSnd_AvisoID]=" & myAviso.AvisoID, "AVISO")
|
||||
If IsNumeric(sndId) AndAlso sndId > 0 Then
|
||||
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
|
||||
End If
|
||||
If TMP_SND_Atilla IsNot Nothing Then
|
||||
UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text = If(TMP_SND_Atilla.tblSnd_Warenbezeichnung, "")
|
||||
UsrCntlEintragAvisoAtilla.txtColli.Text = If(TMP_SND_Atilla.tblSnd_Colli, "")
|
||||
UsrCntlEintragAvisoAtilla.txtGewicht.Text = If(TMP_SND_Atilla.tblSnd_Gewicht, "")
|
||||
UsrCntlEintragAvisoAtilla.txtAnmerkung.Text = If(TMP_SND_Atilla.tblSnd_Anmerkung, "")
|
||||
|
||||
|
||||
If TMP_SND_Atilla.tblSnd_AuftraggeberKdNr > 0 Then
|
||||
kdAuftraggeber.KdNr = TMP_SND_Atilla.tblSnd_AuftraggeberKdNr
|
||||
Else
|
||||
kdAuftraggeber.Text = TMP_SND_Atilla.tblSnd_Auftraggeber
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If bearb Then Me.Text += " (Verwaltung)"
|
||||
If bearb Then Me.Text += " (Verwaltung)"
|
||||
|
||||
hÄnderung = False
|
||||
|
||||
@@ -585,7 +588,7 @@ Public Class frmEintragAviso
|
||||
lblSendungsanzahl.Visible = False
|
||||
lblErrVorraussuchtlEintreffen.Visible = False
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
|
||||
If FIRMA_TMP = "VERIMEX" Then
|
||||
If cboFirma._value = "" Then
|
||||
MsgBox("Firma auswählen!", vbInformation)
|
||||
cboFirma.Focus()
|
||||
@@ -650,7 +653,7 @@ Public Class frmEintragAviso
|
||||
End If
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
|
||||
If FIRMA_TMP <> "ATILLA" Then
|
||||
If cboGrenzstelle._value.Trim = "" Then
|
||||
' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation)
|
||||
lblErr_Grenzstelle.Visible = True
|
||||
@@ -845,7 +848,7 @@ Public Class frmEintragAviso
|
||||
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||
End If
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
If FIRMA_TMP = "ATILLA" Then
|
||||
myAviso.Grenzstelle = "SUB"
|
||||
Else
|
||||
myAviso.Grenzstelle = cboGrenzstelle._value
|
||||
@@ -855,7 +858,7 @@ Public Class frmEintragAviso
|
||||
myAviso.Transportmittelart = cboTransportmittelart._value
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
If FIRMA_TMP = "AMBAR" Then
|
||||
myAviso.Grenzstelle = "AMB"
|
||||
End If
|
||||
|
||||
@@ -954,7 +957,7 @@ Public Class frmEintragAviso
|
||||
myAviso.Sammelakt = (myAviso.Sendungen_Gesamtanzahl > 1) 'cbxSammelakt.Checked
|
||||
End If
|
||||
|
||||
myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
|
||||
myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
|
||||
|
||||
|
||||
@@ -1027,7 +1030,7 @@ Public Class frmEintragAviso
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
|
||||
End If
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Select Case FIRMA_TMP
|
||||
Case "ATILLA"
|
||||
Try
|
||||
'ATILLA AKTENZETTEL DRUCKEN
|
||||
@@ -1068,7 +1071,7 @@ Public Class frmEintragAviso
|
||||
|
||||
Dim abfArt As Object = DBNull.Value
|
||||
getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then filiale_tmp = 0
|
||||
If FIRMA_TMP = "VERIMEX" Then filiale_tmp = 0
|
||||
'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
|
||||
'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT
|
||||
Dim tblSnd_AuftraggeberKdNr As Object = Nothing
|
||||
@@ -1174,7 +1177,7 @@ Public Class frmEintragAviso
|
||||
Try
|
||||
System.Diagnostics.Process.Start(hMail)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,"Beim Mail-Versenden ist ein Fehler aufgetreten")
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Beim Mail-Versenden ist ein Fehler aufgetreten")
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
@@ -1672,10 +1675,10 @@ Public Class frmEintragAviso
|
||||
Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
|
||||
|
||||
pnl.Visible = False
|
||||
' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
|
||||
Label1.Visible = (cboGrenzstelle._value = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
|
||||
' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
|
||||
Label1.Visible = (cboGrenzstelle._value = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Select Case FIRMA_TMP
|
||||
Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR"
|
||||
|
||||
If cboGrenzstelle._value = "???" Then
|
||||
|
||||
Reference in New Issue
Block a user