70 lines
1.2 KiB
Plaintext
70 lines
1.2 KiB
Plaintext
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 |