neu

Aviso/frmSendungsdetailsNEU.vb

@@ -29,6 +29,7 @@ Public Class frmSendungsdetailsNEU
     Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse
     Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf
     Dim usrcntl_ATA As usrCntlSND_Handling
+    Dim usrcntl_ATB As usrCntlSND_ATBGestellung
 
 
     Sub New()
@@ -240,6 +241,12 @@ Public Class frmSendungsdetailsNEU
 
             End If
 
+            cboVorpapier.Items.Clear()
+            AVISO.LOAD_Vorpapiere()
+            For Each VP In AVISO.VORPAPIERE
+                cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
+            Next
+
             If AVISO.Abgeschlossen Then
                 Label8.Visible = True
             End If
@@ -1129,6 +1136,11 @@ Public Class frmSendungsdetailsNEU
                 txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer)
             End If
 
+
+            cboVorpapier.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier
+            txtVorpapierPos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos
+
+
             initFraechterAvisererFromAkt()
             ''Übergangsphase Aviso/Sendung
             'If txtAvisierer.Text = "" And txtAvisierer.Enabled And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
@@ -1161,12 +1173,18 @@ Public Class frmSendungsdetailsNEU
             usrcntl_NCTS.reset()
             usrcntl_FISKAL.reset()
             usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+            usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
 
             AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht)
                                                       txtColli.Text = colli
                                                       txtGewicht.Text = gewicht
                                                   End Sub
 
+            'AddHandler usrcntl_ATB.HandlingWerte, Sub(colli, gewicht)
+            '                                          txtColli.Text = colli
+            '                                          txtGewicht.Text = gewicht
+            '                                      End Sub
+
             '   txtT1Verzollungsadresse.Text = ""
             Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
                 Case 5, 6
@@ -1195,6 +1213,11 @@ Public Class frmSendungsdetailsNEU
                     usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
                     usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "")
                     pnlT1.Controls.Add(usrcntl_ATA)
+                Case 44
+                    usrcntl_ATB.txtATBT1.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1, "")
+                    usrcntl_ATB.txtATbNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "")
+
+                    pnlT1.Controls.Add(usrcntl_ATB)
             End Select
 
             cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs)
@@ -1503,6 +1526,11 @@ Public Class frmSendungsdetailsNEU
                     SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING() 'derzeit ohne Funktion
                     SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_STRING() 'derzeit ohne Funktion
                 End If
+            Case 44
+                If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_ATBGestellung) Then
+                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1 = usrcntl_ATB.txtATBT1.Text
+                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr = usrcntl_ATB.txtATBNr.Text
+                End If
         End Select
 
 
@@ -1524,6 +1552,12 @@ Public Class frmSendungsdetailsNEU
         SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrAvisierer = txtKdAuftragsNrAvisierer.Text
         SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrEmpfaenger = txtKdAuftragsNrEmpfaenger.Text
         SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer = txtKdAuftragsNrFrachtfuehrer.Text
+
+
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier = cboVorpapier.Text
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos = txtVorpapierPos.Text
+
+
     End Sub
     Function getint(o) As Integer
         Try
@@ -1921,6 +1955,8 @@ Public Class frmSendungsdetailsNEU
                 pnlT1.Controls.Add(usrcntl_FISKAL)
             Case "23"
                 pnlT1.Controls.Add(usrcntl_ATA)
+            Case "44"
+                pnlT1.Controls.Add(usrcntl_ATB)
         End Select