ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise

SDL/OriginalArchiv_ATR/frmATR.vb

@@ -58,6 +58,8 @@ Public Class frmATR
             getValues()
 
             'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben:
+
+
             If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then
                 'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
                 Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr)
@@ -67,7 +69,7 @@ Public Class frmATR
                 End If
             End If
 
-            If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) Or (loadedDSID <> DSID And loadedDSID > 0) Then
+            If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And (loadedDSID <> DSID Or loadedDSID <= 0) Then
                 If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then
                     If ATR.atr_dsId < 0 Then
                         MsgBox("Kein PDF-Anhang!")
@@ -81,6 +83,7 @@ Public Class frmATR
                         ANH.anh_Art = "ATR"
                         ANH.SAVE() 'Eintrag wird überschreiben 
                         ATR.atr_anhID = ANH.anh_id
+                        insertVermerkATR(ATR)
 
                     End If
                 End If
@@ -95,6 +98,14 @@ Public Class frmATR
         Me.DialogResult = DialogResult.None
     End Sub
 
+    Shared Sub insertVermerkATR(ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR)
+
+        Dim VermerkeCodeID = 110
+        VERAG_PROG_ALLGEMEIN.cVermerkeDAL.DeleteSNDVermerkCode(ATR.atr_SendungsId, VermerkeCodeID) 'Alte löschen!
+        Dim vermerkId = VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(ATR.atr_SendungsId, ATR.atr_AvisoId, "ATR-Archiv", VermerkeCodeID)
+        If vermerkId > 0 Then VERAG_PROG_ALLGEMEIN.cVermerkeDAL.toggleHervorheben(vermerkId) 'Hervorheben!
+
+    End Sub
 
     Function doValidation() As Boolean
         lblErr_Ausstellungsdatum.Visible = False
@@ -135,8 +146,8 @@ Public Class frmATR
         txtDocNumber.Text = If(ATR.atr_documentNr, "")
         txtDocDatum._value = If(ATR.atr_austellungsdatum, "")
         txtKennzeichen.Text = If(ATR.atr_LKW, "")
-        txtFiliale.Text = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "")
-        txtAbfNr.Text = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "")
+        txtFiliale._value = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "")
+        txtAbfNr._value = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "")
 
         sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId)
 
@@ -167,7 +178,7 @@ Public Class frmATR
         If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value
         ATR.atr_LKW = txtKennzeichen.Text
 
-        ATR.atr_SendungsId = sbAvisoSuche._value
+        ATR.atr_SendungsId = If(sbAvisoSuche._value <> "", sbAvisoSuche._value, -1)
         If sbAvisoSuche._value <> "" Then
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
             ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1)
@@ -262,17 +273,20 @@ Public Class frmATR
     Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED
         txtFiliale.Text = ""
         txtAbfNr.Text = ""
-        Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value)
-        If SND IsNot Nothing Then
-            Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID)
-            txtFiliale.Text = SND.FilialenNr
-            txtAbfNr.Text = SND.AbfertigungsNr
-            lblLKWId.Text = SND.tblSnd_AvisoID
-            If AVISO IsNot Nothing Then
-                txtKennzeichen.Text = AVISO.LKW_Nr
+        If sbAvisoSuche._value <> "" Then
+
+            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value)
+            If SND IsNot Nothing Then
+                Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID)
+                txtFiliale._value = SND.FilialenNr
+                txtAbfNr._value = SND.AbfertigungsNr
+                lblLKWId.Text = SND.tblSnd_AvisoID
+                If AVISO IsNot Nothing Then
+                    txtKennzeichen.Text = AVISO.LKW_Nr
+                End If
+                ' lblKennzeichen.Visible = True
+                lblLKWId.Visible = True
             End If
-            ' lblKennzeichen.Visible = True
-            lblLKWId.Visible = True
         End If
     End Sub
 

SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb

@@ -402,6 +402,7 @@ Public Class frmOriginalArchiv_ATR
                         ATR.atr_FilialenNr = SND.FilialenNr
                         ATR.atr_AbfertigungsNr = SND.AbfertigungsNr
                         If ATR.SAVE() Then
+                            frmATR.insertVermerkATR(ATR)
                             Me.Close()
                         End If
                     End If