neu
This commit is contained in:
@@ -80,10 +80,10 @@ Public Class frmEintragAviso
|
||||
|
||||
|
||||
Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||
MsgBox("Keine Berechtigung!")
|
||||
Me.Close()
|
||||
End If
|
||||
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||
' MsgBox("Keine Berechtigung!")
|
||||
' Me.Close()
|
||||
'End If
|
||||
|
||||
|
||||
Me.CenterToParent()
|
||||
@@ -115,8 +115,9 @@ Public Class frmEintragAviso
|
||||
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
|
||||
'txtBestimmungszollstelle.Visible = True
|
||||
'lblZA.Visible = True
|
||||
pnl.Visible = True
|
||||
Case "UNISPED"
|
||||
Label1.Visible = True
|
||||
cboImEx.Visible = True
|
||||
@@ -150,6 +151,11 @@ Public Class frmEintragAviso
|
||||
lblSndFremd.Visible = True
|
||||
cboImEx.Visible = True
|
||||
Label1.Visible = True
|
||||
Case "AMB"
|
||||
txtSndFremd.Visible = True
|
||||
lblSndFremd.Visible = True
|
||||
cboImEx.Visible = True
|
||||
Label1.Visible = True
|
||||
End Select
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "FRONTOFFICE"
|
||||
@@ -384,12 +390,13 @@ Public Class frmEintragAviso
|
||||
|
||||
|
||||
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||||
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
|
||||
' End If
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||||
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
|
||||
cbxWarenort.Checked = myAviso.Warenort
|
||||
' End If
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
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, ""))
|
||||
@@ -870,6 +877,7 @@ Public Class frmEintragAviso
|
||||
|
||||
'If myAviso.FIRMA = "IMEX" Then
|
||||
myAviso.Zollstelle = SDL.cProgramFunctions.isLeerNothing(txtBestimmungszollstelle._value)
|
||||
myAviso.Warenort = If(pnl.Visible, cbxWarenort.Checked, False)
|
||||
'End If
|
||||
|
||||
If myAviso.FIRMA = "ATILLA" Then
|
||||
@@ -912,6 +920,9 @@ Public Class frmEintragAviso
|
||||
End If
|
||||
End If
|
||||
|
||||
If myAviso.Warenort Then
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
|
||||
End If
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "ATILLA"
|
||||
@@ -934,7 +945,7 @@ Public Class frmEintragAviso
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE"
|
||||
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX"
|
||||
Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
|
||||
|
||||
'Die Sendungen eintragen:
|
||||
@@ -954,8 +965,9 @@ 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
|
||||
'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
|
||||
'AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0) ' INSERT
|
||||
'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT
|
||||
Dim tblSnd_AuftraggeberKdNr As Object = Nothing
|
||||
Dim tblSnd_Auftraggeber As Object = Nothing
|
||||
If cbxAuftraggeberfurAlleSendungen.Checked Then
|
||||
@@ -1471,7 +1483,7 @@ Public Class frmEintragAviso
|
||||
Label20.Text = lnlSendungText.Text
|
||||
End Sub
|
||||
|
||||
Private Sub dtpAvisoEingangZeit_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAuftraggeber.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, txtBestimmungszollstelle.PreviewKeyDown
|
||||
Private Sub dtpAvisoEingangZeit_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAuftraggeber.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, dtpAvisoEingangZeit.PreviewKeyDown, kdFrächter.PreviewKeyDown, kdAvisierer.PreviewKeyDown, txtBestimmungszollstelle.PreviewKeyDown, cbxWarenort.PreviewKeyDown
|
||||
If e.KeyCode = Keys.Return Then
|
||||
e.IsInputKey = True : Me.DialogResult = DialogResult.None
|
||||
If sender Is kdAvisierer Then kdAvisierer.FireReturn() : e.IsInputKey = True : Me.DialogResult = DialogResult.None
|
||||
@@ -1545,17 +1557,18 @@ 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.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "VERAG", "FRONTOFFICE", "UNISPED"
|
||||
Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX"
|
||||
|
||||
If cboGrenzstelle.Text = "???" Then
|
||||
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
|
||||
|
||||
'txtBestimmungszollstelle.Visible = True
|
||||
'lblZA.Visible = True
|
||||
pnl.Visible = True
|
||||
End If
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user