edv/DISPO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Transportauftrag und Zeiterfassung in Dispo implementiert.

Browse Source
This commit is contained in:
d.breimaier
2024-03-14 11:58:37 +01:00
parent 0af1d25237
commit 583bc67daa
12 changed files with 222 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
UID/frmAuftragNEU.vb
View File

@@ -612,15 +612,15 @@ Public Class frmAuftragNEU
For Each r In Leistungen
Dim u As New usrcntlLeistungen(r.LeistungsNr, r.LeistungsBez, r.Steuerpflichtig, r.LeistungsIdDispo)
If AUFTRAG.BH_rechnungen IsNot Nothing AndAlso AUFTRAG.BH_rechnungen.Count > 0 Then
For Each l In AUFTRAG.BH_rechnungen
If (l.bhrg_leistungIdDispo IsNot Nothing And l.bhrg_leistungIdDispo = r.LeistungsIdDispo) Or (l.bhrg_leistungIdDispo Is Nothing And l.bhrg_code = r.LeistungsNr) Then
For Each re In AUFTRAG.BH_rechnungen
If (re.bhrg_leistungIdDispo IsNot Nothing And re.bhrg_leistungIdDispo = r.LeistungsIdDispo) Or (re.bhrg_leistungIdDispo Is Nothing And re.bhrg_code = r.LeistungsNr) Then
' MsgBox(l.bhrg_option)
Select Case l.bhrg_option
Case 1 : u.txtBetrag_Auftraggeber._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 2 : u.txtBetrag_Absender._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 3 : u.txtBetrag_Empfaenger._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 4 : u.txtBetrag_FraechterBis._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 5 : u.txtBetrag_FraechterAb._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Select Case re.bhrg_option
Case 1 : u.txtBetrag_Auftraggeber._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 2 : u.txtBetrag_Absender._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 3 : u.txtBetrag_Empfaenger._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 4 : u.txtBetrag_FraechterBis._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 5 : u.txtBetrag_FraechterAb._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
End Select
End If
Next
@@ -1612,16 +1612,16 @@ Public Class frmAuftragNEU
initCMR2.CMR_Stempel_Frachtführer_2 = initCMR2.CMR_Frachtführer_3
For Each l In AUFTRAG.LADUNGEN
For Each lad In AUFTRAG.LADUNGEN
Dim POS As New SDL.cCMRPos
POS.Zeichen = l.lad_ZeNr
POS.Anzahl = l.lad_Anzahl
POS.Art = l.lad_Art
POS.Bezeichnung = l.lad_Bezeichnung
POS.StatistikNr = l.lad_StatNr
POS.Bruttogewicht = l.lad_BruttoKg
POS.Umfang = l.lad_Umfang
POS.Zeichen = lad.lad_ZeNr
POS.Anzahl = lad.lad_Anzahl
POS.Art = lad.lad_Art
POS.Bezeichnung = lad.lad_Bezeichnung
POS.StatistikNr = lad.lad_StatNr
POS.Bruttogewicht = lad.lad_BruttoKg
POS.Umfang = lad.lad_Umfang
initCMR2.CMRPos.Add(POS)
Next
@@ -1954,15 +1954,15 @@ Public Class frmAuftragNEU
If SPEDBUCH.Packstücke IsNot Nothing AndAlso SPEDBUCH.Packstücke.StartsWith(" / ") Then SPEDBUCH.Packstücke = Replace(SPEDBUCH.Packstücke, " / ", "", , 1)
Dim rohmasse As Double = 0.0
For Each l In AUFTRAG.LADUNGEN
For Each lad In AUFTRAG.LADUNGEN
' SPEDBUCH.Packstücke &= vbNewLine & If(l.lad_Anzahl, "") & " " & If(l.lad_Art, "Pk") & " " & If(l.lad_Bezeichnung, "-")
SPEDBUCH.Packstücke &= "; " & If(l.lad_Anzahl, "") & " " & If(l.lad_Art, "Pk") & " " & If(l.lad_Bezeichnung, "-")
If l.lad_BruttoKg IsNot Nothing AndAlso l.lad_BruttoKg <> "" Then
SPEDBUCH.Packstücke &= ", " & l.lad_BruttoKg
If Not (l.lad_BruttoKg.Contains("kg") Or l.lad_BruttoKg.Contains("to") Or l.lad_BruttoKg.Contains("t")) Then SPEDBUCH.Packstücke &= " kg"
SPEDBUCH.Packstücke &= "; " & If(lad.lad_Anzahl, "") & " " & If(lad.lad_Art, "Pk") & " " & If(lad.lad_Bezeichnung, "-")
If lad.lad_BruttoKg IsNot Nothing AndAlso lad.lad_BruttoKg <> "" Then
SPEDBUCH.Packstücke &= ", " & lad.lad_BruttoKg
If Not (lad.lad_BruttoKg.Contains("kg") Or lad.lad_BruttoKg.Contains("to") Or lad.lad_BruttoKg.Contains("t")) Then SPEDBUCH.Packstücke &= " kg"
End If
Dim kg = If(l.lad_BruttoKg, "").Trim
Dim kg = If(lad.lad_BruttoKg, "").Trim
kg = kg.ToLower.Replace("kg", "").Replace("to", "").Replace("t", "")
If IsNumeric(kg) Then rohmasse += CDbl(kg)
Next