neu

2021-06-24 23:04:15 +02:00
parent 5187fe0e71
commit 2d06d935ef
38 changed files with 6730 additions and 1088 deletions
--- a/Aviso/frmEintragAviso.vb
+++ b/Aviso/frmEintragAviso.vb
@@ -92,6 +92,13 @@ Public Class frmEintragAviso
        kdAvisierer.initKdBox(Me)
        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.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+        cboGrenzstelle.changeItem("")
+
+
+
        sbLkwNationalitaet.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)

        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
@@ -235,7 +242,7 @@ Public Class frmEintragAviso
            grpAktVerzollung.Visible = False
            cbxSendungsvorlagen.Visible = False
            Button3.Visible = False
-            cboGrenzstelle.Text = "SUB"
+            cboGrenzstelle.changeItem("SUB")
            cbxAuftraggeberfurAlleSendungen.Visible = False
            If ATILLA_NEUERAKTENDECKEL Then
                UsrCntlEintragAvisoAtilla.Visible = True
@@ -269,7 +276,7 @@ Public Class frmEintragAviso
            kdFrächter.Text = ""
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
                If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
-                    cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                    cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
                End If
            End If
        Else
@@ -323,8 +330,8 @@ Public Class frmEintragAviso
                Else
                    optUnbekannt.Checked = True
                End If
-                cboGrenzstelle.Text = myAviso.Grenzstelle
-                cboImEx.Text = If(myAviso.ImEx, "")
+            cboGrenzstelle.changeItem(myAviso.Grenzstelle)
+            cboImEx.Text = If(myAviso.ImEx, "")
                hStatus = myAviso.Status
                If myAviso.Ankunft = LeerDatum Then
                    dtpAnkunft.Value = Now.Date
@@ -602,7 +609,7 @@ Public Class frmEintragAviso
            End If


-            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FIELDS_AVISO_Mandatory_FreachterKdNr") Then
                If Not cbxFrächterUnbekannt.Checked Then
                    If kdFrächter.KdNr_value <= 0 Then
                        kdFrächter.Focus()
@@ -610,22 +617,28 @@ Public Class frmEintragAviso
                        Exit Sub
                    End If
                End If
+            End If
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FIELDS_AVISO_Mandatory_AvisiererKdNr") Then
                If kdAvisierer.KdNr_value <= 0 Then
                    kdAvisierer.Focus()
                    lblErr_KdNr.Visible = True
                    Exit Sub
                End If
+            End If

-            Else
-                If cboGrenzstelle.Text.Trim = "" Then
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
+                If cboGrenzstelle._value.Trim = "" Then
                    ' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation)
                    lblErr_Grenzstelle.Visible = True
                    cboGrenzstelle.Focus()
                    Exit Sub
                End If
-
            End If

+
+
            If cGlobal.Aktive_ID = 0 Then ' nur wenn Neuanlage!
                If datVoraussichtlichesEintreffen.Visible AndAlso CDate(datVoraussichtlichesEintreffen.Value.ToShortDateString) < CDate(dtpDatum.Value.ToShortDateString) Then 'ohne Uhrzeit
                    lblErrVorraussuchtlEintreffen.Visible = True
@@ -813,7 +826,7 @@ Public Class frmEintragAviso
            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
                myAviso.Grenzstelle = "SUB"
            Else
-                myAviso.Grenzstelle = cboGrenzstelle.Text
+                myAviso.Grenzstelle = cboGrenzstelle._value
                ' MsgBox(myAviso.Grenzstelle)
            End If

@@ -921,7 +934,12 @@ Public Class frmEintragAviso


            'If myAviso.FIRMA = "IMEX" Then
-            myAviso.Zollstelle = SDL.cProgramFunctions.isLeerNothing(txtBestimmungszollstelle._value)
+            If myAviso.Grenzstelle = "???" Then
+                myAviso.Zollstelle = SDL.cProgramFunctions.isLeerNothing(txtBestimmungszollstelle._value)
+            Else
+                myAviso.Zollstelle = Nothing
+            End If
+
            myAviso.Warenort = If(pnl.Visible, cbxWarenort.Checked, False)
            'End If

@@ -1003,7 +1021,7 @@ Public Class frmEintragAviso
                        End If
                        If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
                    Catch ex As Exception
-                        MsgBox(ex.Message & ex.StackTrace)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                    End Try
                Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX"
                    Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
@@ -1034,7 +1052,7 @@ Public Class frmEintragAviso
                                            If kdAvisierer.KdNr_value > 0 Then tblSnd_AuftraggeberKdNr = kdAvisierer.KdNr_value
                                            tblSnd_Auftraggeber = kdAvisierer.Text
                                        End If
-                                     
+
                                        AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT 

                                    Next
@@ -1042,7 +1060,7 @@ Public Class frmEintragAviso
                            Else
                                lblSendungsanzahl.Visible = True
                                txtSendungen.Focus()
-                                : Me.Cursor = Cursors.Default : Exit Sub
+                                Me.Cursor = Cursors.Default : Exit Sub
                            End If

                        End If
@@ -1088,15 +1106,15 @@ Public Class frmEintragAviso
                            Else
                                lblSendungsanzahl.Visible = True
                                txtSendungen.Focus()
-                                : Me.Cursor = Cursors.Default : Exit Sub
+                                Me.Cursor = Cursors.Default : Exit Sub
                            End If

                        End If
                    End If
            End Select

-           
-                
+
+

            '        If Not IsNumeric(txtSendungen.Text) Or txtSendungen.Text = "0" Then
            'txtSendungen.Text = "1"
@@ -1131,13 +1149,13 @@ Public Class frmEintragAviso
                    Try
                        System.Diagnostics.Process.Start(hMail)
                    Catch ex As Exception
-                        MsgBox("Beim Mail-Versenden ist ein Fehler aufgetreten: " & vbCrLf & vbCrLf & ex.Message)
+                        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


-            : Me.Cursor = Cursors.Default
+            Me.Cursor = Cursors.Default
            'Jetzt wird Fenster geschlossen
            Me.Close()
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
@@ -1148,7 +1166,7 @@ Public Class frmEintragAviso

        Catch ex As Exception
            Me.Cursor = Cursors.Default
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

@@ -1174,7 +1192,7 @@ Public Class frmEintragAviso
    End Sub
    Sub getFilialeAndAbfertNr(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd)
        If cnt <= txtSendungen.Text Then
-            Select Case cboGrenzstelle.Text
+            Select Case cboGrenzstelle._value
                Case "SUB" : filialeNr = 4803
                Case "SBG" : filialeNr = 5003
                Case "WAI" : filialeNr = 5103
@@ -1369,7 +1387,7 @@ Public Class frmEintragAviso
    Private Sub optOhneAviso_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles optOhneAviso.CheckedChanged
        dtpAvisoEingangDatum.Visible = optAvisoEingang.Checked
        dtpAvisoEingangZeit.Visible = optAvisoEingang.Checked
-        cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
        If optOhneAviso.Checked Then optUnbekannt.Checked = True
        If optOhneAviso.Checked Then cbxAktenzettelDrucken.Checked = True

@@ -1623,12 +1641,12 @@ Public Class frmEintragAviso

        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")
+        Label1.Visible = (cboGrenzstelle._value = "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", "IMEX", "AMBAR"

-                If cboGrenzstelle.Text = "???" Then
+                If cboGrenzstelle._value = "???" 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
@@ -1743,7 +1761,7 @@ Public Class frmEintragAviso
                End If
            End If
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub