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

Dublizieren von Sendungen -> in Ursprungssendung werden Sendungsabrechnungen nicht mehr zurückgesetzt.

Browse Source
This commit is contained in:
d.breimaier
2023-07-03 11:25:58 +02:00
parent c3cb9ebe60
commit 333da375a6
2 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Aviso.vbproj
View File

@@ -108,7 +108,7 @@
<PlatformTarget>x64</PlatformTarget> <PlatformTarget>x64</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile> <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Accessibility" /> <Reference Include="Accessibility" />

17
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -55,7 +55,7 @@ Public Class frmSendungsdetailsNEU
End Sub End Sub
Sub SAVE_ABRECHUNG() Sub SAVE_ABRECHUNG(Optional isDublicated = False)
SENDUNG_LIST(CURRENT_INDEX).CLEAR_ABRECHNUNG_NotLeistungen() SENDUNG_LIST(CURRENT_INDEX).CLEAR_ABRECHNUNG_NotLeistungen()
For Each c In Panel6.Controls For Each c In Panel6.Controls
If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then
@@ -65,7 +65,7 @@ Public Class frmSendungsdetailsNEU
End If End If
End If End If
Next Next
SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung() If Not isDublicated Then SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
End Sub End Sub
@@ -96,7 +96,7 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung() SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
End Sub End Sub
Function SAVE_ME(Optional saveAll = False) As Boolean Function SAVE_ME(Optional saveAll = False, Optional isDublicated = False) As Boolean
txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
@@ -123,7 +123,7 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion
SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion
End If End If
SAVE_ABRECHUNG() SAVE_ABRECHUNG(isDublicated)
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "UNISPED" ' Case "UNISPED"
@@ -991,9 +991,10 @@ Public Class frmSendungsdetailsNEU
newRow.tblSnd_PosUnterNr = SENDUNG_LIST.Count + 1 newRow.tblSnd_PosUnterNr = SENDUNG_LIST.Count + 1
newRow.AbfertigungsNr = IIf(newRow.FilialenNr > 0, Nothing, 0) newRow.AbfertigungsNr = IIf(newRow.FilialenNr > 0, Nothing, 0)
newRow.UnterNr = 0 newRow.UnterNr = 0
newRow.tblSnd_Colli = ""
newRow.tblSnd_Gewicht = "" 'diese Werte sollen beim dublizieren übernommen werden
newRow.tblSnd_Colli = "" 'newRow.tblSnd_Gewicht = ""
'newRow.tblSnd_Colli = ""
newRow.tblSnd_VG_MA = Nothing newRow.tblSnd_VG_MA = Nothing
newRow.tblSnd_Vorgeschrieben = Nothing newRow.tblSnd_Vorgeschrieben = Nothing
@@ -1009,7 +1010,7 @@ Public Class frmSendungsdetailsNEU
newRow.ABRECHNUNG.Clear() newRow.ABRECHNUNG.Clear()
SENDUNG_LIST.Add(newRow) SENDUNG_LIST.Add(newRow)
SAVE_ME() SAVE_ME(, True)
LAST_SENDUNG() LAST_SENDUNG()
End Sub End Sub