WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV
This commit is contained in:
@@ -319,209 +319,214 @@ Public Class frmEintragAviso
|
||||
cboGrenzstelle.changeItem("AMB")
|
||||
End If
|
||||
Else
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
|
||||
Me.Text = "Änderung LKW-Aviso"
|
||||
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
|
||||
'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
|
||||
txtInfo.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
|
||||
|
||||
|
||||
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
|
||||
|
||||
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")
|
||||
|
||||
'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
|
||||
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
|
||||
|
||||
'Vorpapier laden
|
||||
UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
|
||||
|
||||
|
||||
' If FIRMA_TMP = "IMEX" Then
|
||||
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
|
||||
cbxWarenort.Checked = myAviso.Warenort
|
||||
' End If
|
||||
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
|
||||
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)
|
||||
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
|
||||
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, "")
|
||||
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
|
||||
|
||||
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")
|
||||
|
||||
'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
|
||||
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
|
||||
|
||||
'Vorpapier laden
|
||||
UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
|
||||
|
||||
|
||||
If TMP_SND_Atilla.tblSnd_AuftraggeberKdNr > 0 Then
|
||||
kdAuftraggeber.KdNr = TMP_SND_Atilla.tblSnd_AuftraggeberKdNr
|
||||
Else
|
||||
kdAuftraggeber.Text = TMP_SND_Atilla.tblSnd_Auftraggeber
|
||||
' If FIRMA_TMP = "IMEX" Then
|
||||
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
|
||||
cbxWarenort.Checked = myAviso.Warenort
|
||||
' End If
|
||||
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user