neu

Aviso/frmSndVorgeschriebenSetzen.vb

@@ -0,0 +1,161 @@
+Public Class frmSndVorgeschriebenSetzen
+
+    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+    Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Public KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
+    Public AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
+
+    Public ueberschreitungFound As Boolean = False
+    Dim TmpFirma As String = ""
+    Sub New(AvisoId As Integer, ByRef SND As VERAG_PROG_ALLGEMEIN.cSendungen, KdNr As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.AVISO = AvisoDAL.LesenAviso(AvisoId, "")
+        Me.SND = SND
+        If KdNr > 0 Then
+            KD = New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
+            If KD IsNot Nothing Then
+                AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KD.KundenNrZentrale)
+            End If
+        End If
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Sub New(ByRef Aviso As VERAG_PROG_ALLGEMEIN.cAviso, ByRef SND As VERAG_PROG_ALLGEMEIN.cSendungen, KdNr As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.AVISO = Aviso
+        Me.SND = SND
+        If KdNr > 0 Then
+            KD = New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
+            If KD IsNot Nothing Then
+                AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KD.KundenNrZentrale)
+            End If
+        End If
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
+
+    End Sub
+
+    Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        btn.Focus()
+        TmpFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(KD.FilialenNr)
+        If AVISO IsNot Nothing And SND IsNot Nothing And AD IsNot Nothing And KD IsNot Nothing Then
+            Select Case TmpFirma
+                Case "UNISPED", "AMBAR", "" 'Kein Kreditlimit
+                    Me.Close()
+                    Exit Sub
+            End Select
+
+            If KD.Kreditlimit Is Nothing OrElse KD.Kreditlimit = 2600 OrElse KD.Kreditlimit = 0 Then  ' Kein Limit hinterlegt
+                Me.Close()
+                Exit Sub
+            End If
+
+            If Not calcUeberzeihung() Then
+                Me.Close() ' Keine Überzieheung
+                Exit Sub
+            Else
+                ueberschreitungFound = True
+            End If
+        Else
+            Me.Close()
+        End If
+    End Sub
+
+
+    Function calcUeberzeihung() As Boolean
+        Try
+            Label3.Visible = False
+            Label12.Visible = False
+            lblUeberzeihung.Text = "-"
+
+            lblKunde.Text = KD.KundenNrZentrale & " " & AD.Ordnungsbegriff
+            Dim OP_Saldo As Double = 0
+            Dim EUST As Double = 0
+            Dim Risiko As Double = 0
+            Dim Kreditlimit As Double = 0
+            Dim Ueberziehung As Double = 0
+            Dim KdNr As Integer = KD.KundenNrZentrale
+
+            If TmpFirma = "IMEX" Then
+                OP_Saldo = CDbl(SQL.getValueTxtBySql("SELECT isnull(sum([Buchungsbetrag_SOLL]),0)-isnull(sum([Buchungsbetrag_HABEN]),0) FROM [Offene_Posten_DVO] WHERE [Konto]='" & KdNr & "'", "FMZOLL",,, 0))
+            Else
+                OP_Saldo = CDbl(SQL.getValueTxtBySql("SELECT sum(Gesamtausstand) FROM [Offene Posten] where Kontonummer='" & KdNr & "'", "FMZOLL",,, 0))
+            End If
+
+            'Offene EUST/ZOLL aus Zkteing ermitteln
+            EUST = CDbl(SQL.getValueTxtBySql("SELECT isnull(SUM (Betrag),0)
+                                          FROM tblSendungen INNER JOIN [tblSendAbrechnung]  on tblSnd_SendungID=sndabr_sendId
+                                          INNER JOIN [FMZOLL\SQLFMZOLL].VERAG.dbo.[Zkteing] ON (cast(FilialenNr as varchar(4)) + '/' + cast(AbfertigungsNr as varchar(8)))  LIKE ([Bezugsnummer]  + '%')
+                                          WHERE sndabr_abrArt IN ('EUST','ZOLL') 
+                                          AND ( 
+	                                          (tblSnd_AvisiererKdNr='" & KdNr & "' and sndabr_beteiligter='AVISIERER') OR 
+	                                          (tblSnd_AbsenderKdNr='" & KdNr & "' and sndabr_beteiligter='ABS') OR 
+	                                          (tblSnd_EmpfaengerKdNr='" & KdNr & "' and sndabr_beteiligter='EMPF') OR 
+	                                          (tblSnd_FrachtfuehrerKdNr='" & KdNr & "' and sndabr_beteiligter='FRACHTF') OR 
+	                                          (tblSnd_AuftraggeberKdNr='" & KdNr & "' and sndabr_beteiligter='AUFTR') 
+                                          )
+                                          AND [Abfertigungsdatum]>DATEADD(month,-6 ,GETDATE())
+                                          AND [sndabr_wert]='X'
+                                          AND [Status] NOT IN ('F')", "AVISO",, , 0))
+
+            Kreditlimit = CDbl(If(KD.Kreditlimit, 0))
+
+            Risiko = OP_Saldo + EUST
+            Ueberziehung = Risiko - Kreditlimit
+
+            lblOPSaldo.Text = OP_Saldo.ToString("C2")
+            lblEUST.Text = EUST.ToString("C2")
+            '  lblEUST.Text = "nicht verfügbar"
+            lblRisiko.Text = Risiko.ToString("C2")
+            lblKreditlimit.Text = Kreditlimit.ToString("C2")
+
+
+            If Ueberziehung > 0 Then
+                lblUeberzeihung.Text = Ueberziehung.ToString("C2")
+                Label3.Visible = True
+                Label12.Visible = True
+                Return True
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        ' AVISO.FahrerHandy = txtFahrerHandy.Text
+        'If AvisoDAL.SpeichernAviso(AVISO) Then
+        '    Me.DialogResult = DialogResult.OK
+        'Else
+        '    Me.DialogResult = DialogResult.None
+        'End If
+        Me.DialogResult = DialogResult.OK
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.DialogResult = DialogResult.OK
+    End Sub
+
+    Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
+        If e.KeyCode = Keys.Return Then
+            btn.PerformClick()
+        End If
+    End Sub
+
+End Class