If rsShip.RecordCount > 2 Then
sfmTourListeKosten.Requery
Set rsShip = sfmTourListeKosten.Form.RecordsetClone
strCriteria = "LStNr=" & Me.txtLstNr3
rsShip.Find strCriteria, , adSearchForward, 1
strCriteria = "ShipNr <> " & varShipNr2
rsShip.Find strCriteria, , adSearchForward, 0
If Not rsShip.EOF Then ' Datensatz suchen
'Werte bei LStNr3 eintragen
varLfdShNr = rsShip!LfdShipNr
rsShip!TrBeNr = Me!TrBeNr
varTrBeNr = rsShip!TrBeNr
rsShip!StGeDC = 0
StDc = rsShip!StGeDC
StLs = Me!txtStGeLSt3
varStLs = Replace(StLs, ",", ".")
rsShip!StGeLSt = varStLs
rsShip!TrKosten = Me!TrKosten / Plts * rsShip!TotPlts
Kost = rsShip!TrKosten
varKosten = Replace(Kost, ",", ".")
rsShip!Diesel = Me!Diesel / Plts * rsShip!TotPlts
Diesel = rsShip!Diesel
varDiesel = Replace(Diesel, ",", ".")
rsShip!Maut = Me!Maut / Plts * rsShip!TotPlts
varMaut = Replace(rsShip!Maut, ",", ".")
rsShip!UnbudgeKosten = Me.NoBudget / Plts * rsShip!TotPlts
NoBudget = rsShip!UnbudgeKosten
varNoBudget = Replace(NoBudget, ",", ".")
sql = "Insert into tblTrKosten(LfdShipNr,TrBeNr,StGeDC,StGeLSt,TrKosten,Diesel,Maut,UnbudgeKosten) Values " & _
"(" & varLfdShNr & "," & varTrBeNr & _
"," & StDc & "," & varStLs & "," & varKosten & "," & varDiesel & "," & varMaut & "," & varNoBudget & " ) "
cn.Execute sql
End If
End If
If rsShip.RecordCount > 3 Then
sfmTourListeKosten.Requery
Set rsShip = sfmTourListeKosten.Form.RecordsetClone
strCriteria = "LStNr= " & Me.txtLstNr4
rsShip.Find strCriteria, , adSearchForward, 1
If Not rsShip.EOF Then ' Datensatz suchen
'Werte bei LStNr4 eintragen
varLfdShNr = rsShip!LfdShipNr
rsShip!TrBeNr = Me!TrBeNr
varTrBeNr = rsShip!TrBeNr
rsShip!StGeDC = 0
StDc = rsShip!StGeDC
StLs = Me!txtStGeLSt4
varStLs = Replace(StLs, ",", ".")
rsShip!StGeLSt = varStLs
rsShip!TrKosten = Me!TrKosten / Plts * rsShip!TotPlts
Kost = rsShip!TrKosten
varKosten = Replace(Kost, ",", ".")
rsShip!Diesel = Me!Diesel / Plts * rsShip!TotPlts
Diesel = rsShip!Diesel
varDiesel = Replace(Diesel, ",", ".")
rsShip!Maut = Me!Maut / Plts * rsShip!TotPlts
varMaut = Replace(rsShip!Maut, ",", ".")
rsShip!UnbudgeKosten = Me.NoBudget / Plts * rsShip!TotPlts
NoBudget = rsShip!UnbudgeKosten
varNoBudget = Replace(NoBudget, ",", ".")
sql = "Insert into tblTrKosten(LfdShipNr,TrBeNr,StGeDC,StGeLSt,TrKosten,Diesel,Maut,UnbudgeKosten) Values " & _
"(" & varLfdShNr & "," & varTrBeNr & _
"," & StDc & "," & varStLs & "," & varKosten & "," & varDiesel & "," & varMaut & "," & varNoBudget & " ) "
cn.Execute sql
End If
End If
Else 'Kosten pro Shipment nach Anzahl der Shipments errechnen
varLfdShNr = rsShip!LfdShipNr
rsShip!TrBeNr = Me!TrBeNr
varTrBeNr = rsShip!TrBeNr
rsShip!StGeDC = Me!StGeDC
StDc = rsShip!StGeDC
varStDC = Replace(StDc, ",", ".")
rsShip!StGeLSt = Me!StGeLSt
StLs = rsShip!StGeLSt
varStLs = Replace(StLs, ",", ".")
rsShip!TrKosten = Me!TrKosten / AnzRs
Kost = rsShip!TrKosten
varKosten = Replace(Kost, ",", ".")
rsShip!Diesel = Me!Diesel / AnzRs
Diesel = rsShip!Diesel
varDiesel = Replace(Diesel, ",", ".")
rsShip!Maut = Me!Maut / AnzRs
Maut = rsShip!Maut
varMaut = Replace(Maut, ",", ".")
rsShip!UnbudgeKosten = Me.NoBudget / AnzRs
NoBudget = rsShip!UnbudgeKosten
varNoBudget = Replace(NoBudget, ",", ".")
sql = "Insert into tblTrKosten(LfdShipNr,TrBeNr,StGeDC,StGeLSt,TrKosten,Diesel,Maut,UnbudgeKosten) Values " & _
"(" & varLfdShNr & "," & varTrBeNr & _
"," & varStDC & "," & varStLs & "," & varKosten & "," & varDiesel & "," & varMaut & "," & varNoBudget & ")"
cn.Execute sql
'Die Werte für den Datensatz ohne Standgeld übergeben
If rsShip.RecordCount > 1 Then
sfmTourListeKosten.Requery
Set rsShip = sfmTourListeKosten.Form.RecordsetClone
strCriteria = "ShipNr <> " & varShipNr
rsShip.Find strCriteria, , adSearchForward, 1
If Not rsShip.EOF Then ' Datensatz suchen
'Werte bei ungleicher Shipmentnummer eintragen
varLfdShNr = rsShip!LfdShipNr
rsShip!TrBeNr = Me!TrBeNr
varTrBeNr = rsShip!TrBeNr
rsShip!StGeDC = 0
StDc = rsShip!StGeDC
StLs = Me!txtStGeLSt2
varStLs = Replace(StLs, ",", ".")
rsShip!StGeLSt = varStLs
rsShip!TrKosten = Me!TrKosten / AnzRs
Kost = rsShip!TrKosten
varKosten = Replace(Kost, ",", ".")
rsShip!Diesel = Me!Diesel / AnzRs
Diesel = rsShip!Diesel
varDiesel = Replace(Diesel, ",", ".")
rsShip!Maut = Me!Maut / AnzRs
varMaut = Replace(rsShip!Maut, ",", ".")
rsShip!UnbudgeKosten = Me.NoBudget / AnzRs
NoBudget = rsShip!UnbudgeKosten
varNoBudget = Replace(NoBudget, ",", ".")
sql = "Insert into tblTrKosten(LfdShipNr,TrBeNr,StGeDC,StGeLSt,TrKosten,Diesel,Maut,UnbudgeKosten) Values " & _
"(" & varLfdShNr & "," & varTrBeNr & _
"," & StDc & "," & varStLs & "," & varKosten & "," & varDiesel & "," & varMaut & "," & varNoBudget & " ) "
cn.Execute sql
End If
End If
If rsShip.RecordCount > 2 Then
sfmTourListeKosten.Requery
Set rsShip = sfmTourListeKosten.Form.RecordsetClone
strCriteria = "LStNr <> " & Me.txtLstNr3
rsShip.Find strCriteria, , adSearchForward, 1
If Not rsShip.EOF Then ' Datensatz suchen
'Werte bei LStNr3 eintragen
varLfdShNr = rsShip!LfdShipNr
rsShip!TrBeNr = Me!TrBeNr
varTrBeNr = rsShip!TrBeNr
rsShip!StGeDC = 0
StDc = rsShip!StGeDC
StLs = Me!txtStGeLSt3
varStLs = Replace(StLs, ",", ".")
rsShip!StGeLSt = varStLs
rsShip!TrKosten = Me!TrKosten / AnzRs
Kost = rsShip!TrKosten
varKosten = Replace(Kost, ",", ".")
rsShip!Diesel = Me!Diesel / AnzRs
Diesel = rsShip!Diesel
varDiesel = Replace(Diesel, ",", ".")
rsShip!Maut = Me!Maut / AnzRs
varMaut = Replace(rsShip!Maut, ",", ".")
rsShip!UnbudgeKosten = Me.NoBudget / AnzRs
NoBudget = rsShip!UnbudgeKosten
varNoBudget = Replace(NoBudget, ",", ".")
sql = "Insert into tblTrKosten(LfdShipNr,TrBeNr,StGeDC,StGeLSt,TrKosten,Diesel,Maut,UnbudgeKosten) Values " & _
"(" & varLfdShNr & "," & varTrBeNr & _
"," & StDc & "," & varStLs & "," & varKosten & "," & varDiesel & "," & varMaut & "," & varNoBudget & " ) "
cn.Execute sql
End If
End If
If rsShip.RecordCount > 3 Then
sfmTourListeKosten.Requery
Set rsShip = sfmTourListeKosten.Form.RecordsetClone
strCriteria = "LStNr= " & Me.txtLstNr4
rsShip.Find strCriteria, , adSearchForward, 1
If Not rsShip.EOF Then ' Datensatz suchen
'Werte bei LStNr4 eintragen
varLfdShNr = rsShip!LfdShipNr
rsShip!TrBeNr = Me!TrBeNr
varTrBeNr = rsShip!TrBeNr
rsShip!StGeDC = 0
StDc = rsShip!StGeDC
StLs = Me!txtStGeLSt4
varStLs = Replace(StLs, ",", ".")
rsShip!StGeLSt = varStLs
rsShip!TrKosten = Me!TrKosten / Plts * rsShip!TotPlts
Kost = rsShip!TrKosten
varKosten = Replace(Kost, ",", ".")
rsShip!Diesel = Me!Diesel / Plts * rsShip!TotPlts
Diesel = rsShip!Diesel
varDiesel = Replace(Diesel, ",", ".")
rsShip!Maut = Me!Maut / Plts * rsShip!TotPlts
varMaut = Replace(rsShip!Maut, ",", ".")
rsShip!UnbudgeKosten = Me.NoBudget / Plts * rsShip!TotPlts
NoBudget = rsShip!UnbudgeKosten
varNoBudget = Replace(NoBudget, ",", ".")
sql = "Insert into tblTrKosten(LfdShipNr,TrBeNr,StGeDC,StGeLSt,TrKosten,Diesel,Maut,UnbudgeKosten) Values " & _
"(" & varLfdShNr & "," & varTrBeNr & _
"," & StDc & "," & varStLs & "," & varKosten & "," & varDiesel & "," & varMaut & "," & varNoBudget & " ) "
cn.Execute sql
End If
End If
'Daten neu abfragen und Schließen-Button einschalten
sfmTourListeKosten.Requery
' cmdCloseForm.Enabled = True
End If
End Function
Hat Ihnen diese Seite geholfen?
Wenn Ihnen diese Seite nicht weiterhilft, können Sie hier unsere ganze Webseite nach passenden Tipps oder ähnlichen Fragen durchsuchen lassen, oder im Chat nach Hilfe fragen!
Wie können wir ihnen (kostenlos!) weiterhelfen?