| Artikelnummern & -gruppen zuordnen, Lagerwerte addieren |
| |
| |
| Const armax = 99 | Kleine Korrekturen siehe: |
| Private LagList(0 To armax) As TLager | http://www.wbrnet.info/db/0074.html |
| Private pos As Integer | |
| |
| Private Type TLager | |
| ArtNr As Integer | |
| ArtGrp As String | |
| ArtLWert As Double | |
| End Type | |
| |
| Private Sub cmdSuchArtnr_Click() | Nach Eingabe einer Artikelnummer ist die entsprechende |
| Dim wert As String, gef As Boolean, i As Integer | Artikelgruppe und der Lagerwert in den zuständigen |
| If txtArtnr.Text <> "" Then | Feldern auszugeben. |
| wert = Trim$(txtArtnr.Text) | |
| i = 0 | |
| gef = False |
| While i <= armax And Not gef |
| If wert = Trim$(LagList(0).ArtNr) Then |
| pos = i |
| gef = True |
| End If |
| i = i + 1 |
| Wend |
| If gef Then | |
| Call anzeigen1 | |
| Else | Fehlermeldung, wenn nichts gefunden wird. |
| lblMeldung.Caption = "Zu Art.-Nr. " & wert & " existiert kein Eintrag" |
| End If | |
| Else | |
| txtArtnr.SetFocus | |
| End If | |
| End Sub | |
| |
| Private Sub cmdSuchArtgrp_Click() | Nach Eingabe einer Artikelgruppe sind alles Lagerwerte |
| Dim wert As String, gef As Boolean, i As Integer | zu dieser Gruppe aufzuaddieren und im Label auszu- |
| If txtArtgrp.Text <> "" Then | geben. |
| wert = Trim$(txtArtgrp.Text) | Dabei ist das Feld für die Artikelnummer zu löschen (siehe |
| i = 0 | Subroutine anzeigen2). |
| gef = False | |
| While i <= armax And Not gef | |
| If wert = Trim$(LagList(0).ArtGrp) Then | |
| pos = i | |
| gef = True | |
| End If | |
| i = i + 1 | |
| Wend | |
| If gef Then | |
| Call anzeigen2 | |
| Else | Fehlermeldung, wenn nichts gefunden wird. |
| lblMeldung.Caption = "Zu Art-Gruppe.-Nr. " & wert & " existiert kein Lager" |
| End If | |
| Else | |
| txtArtgrp.SetFocus | |
| End If | |
| End Sub | |
| |
| Private Sub anzeigen1() | |
| Dim i As Integer | |
| For i = 0 To armax | |
| If pos + i <= armax Then | |
| txtArtgrp.Text = LagList(pos + i).ArtGrp | |
| lblLgwert.Caption = LagList(pos + i).ArtLWert & " DM" |
| End If | |
| Next i | |
| End Sub | |
| |
| Private Sub anzeigen2() | |
| Dim i As Integer, LagWert As Double | |
| LagWert = 0 | |
| For i = 0 To armax | |
| If pos + i <= armax Then | |
| LagWert = LagWert + LagList(i).ArtLWert | |
| End If | |
| Next i | |
| lblLgwert.Caption = Format$(LagWert, "###,##0.00") & " DM" |
| txtArtnr.Text = "" | |
| End Sub | |
| |
| Private Sub Form_Load() | |
| Me.Show | |
| txtArtnr.SetFocus | |
| Call TabLaden | |
| Call TabAnzeigen | |
| End Sub | |
| |
| Private Sub TabLaden() | |
| Dim i As Long | |
| For i = 0 To armax | |
| Randomize | |
| LagList(i).ArtGrp = Int((100 - 1) * Rnd + 1) | |
| LagList(i).ArtLWert = Int((100 - 1) * Rnd + 1) | |
| LagList(i).ArtNr = Int((100 - 1) * Rnd + 1) | Z. B. Werte aus Excel laden. |
| Next i | |
| End Sub | |
| |
| Private Sub TabAnzeigen() | |
| Dim i As Integer | |
| For i = 0 To 0 | |
| If pos + i <= armax Then | |
| txtArtnr.Text = LagList(pos + i).ArtNr | |
| txtArtgrp.Text = LagList(pos + i).ArtGrp | |
| lblLgwert.Caption = Format(LagList(pos + i).ArtLWert, "###,##0.00") & " DM" |
| End If | |
| Next i | |
| End Sub | |
| |
| Private Sub cmdEnde_Click() | |
| Unload Me | |
| End Sub | |
| |
zurück