Exported VBA

wgmaster/vba/Form_FChargen.frm

@@ -0,0 +1,70 @@
+Private Sub BBefüllungBeenden_Click()
+
+ChargeBefuellungBeenden (TCNR)
+
+End Sub
+
+Private Sub BBefüllungStarten_Click()
+
+ChargeBefuellungStarten (TCNR)
+
+End Sub
+
+Private Sub BChargenstammblatt_Click()
+
+DoCmd.OpenReport "BChargenStammblatt", acViewPreview, , "CNR=" + Format(TCNR)
+
+End Sub
+
+Private Sub BUmfuellen_Click()
+
+DoCmd.OpenForm "FChargeUmfuellen"
+
+End Sub
+
+Private Sub Form_Current()
+
+LLieferungen.Requery
+LChargenVorgaenger.Requery
+LChargenNachfolger.Requery
+
+End Sub
+
+Private Sub LChargenNachfolger_DblClick(Cancel As Integer)
+
+filter = "CNR=" + Format(LChargenNachfolger)
+FilterOn = True
+
+End Sub
+
+Private Sub LChargenVorgaenger_DblClick(Cancel As Integer)
+
+filter = "CNR=" + Format(LChargenVorgaenger)
+FilterOn = True
+
+
+End Sub
+
+Private Sub TBNR_Exit(Cancel As Integer)
+
+RefreshChargennummer
+
+End Sub
+
+Sub RefreshChargennummer()
+
+Dim Maxcounter1 As Long
+'MsgBox (TChargennummer)
+If IsNull(TChargennummer) And TBNR > 0 Then
+ DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
+ TChargennummer = GeneriereChargennummer(TCNR, Maxcounter1)
+ TChargennummerZaehler = Maxcounter1
+End If
+
+End Sub
+
+Private Sub TChargennummer_Exit(Cancel As Integer)
+
+RefreshChargennummer
+
+End Sub