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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:32:20 +01:00
parent 12f63bb4bc
commit bd77a8a525
20 changed files with 652 additions and 380 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -99,14 +99,15 @@ Public Class frmSendungsdetailsNEU
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
Return True
End If
SAVE_ME = True
If saveAll Then
For Each s In SENDUNG_LIST
If s.SAVE() = False Then SAVE_ME = False
' s.SAVE_HANDLING() 'derzeit ohne Funktion
Next
Else
SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
' SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING()'derzeit ohne Funktion
End If
SAVE_ABRECHUNG()
@@ -123,7 +124,6 @@ Public Class frmSendungsdetailsNEU
initDataBinding()
' initButtons()
End If
End Sub
Sub PREV_SENDUNG()
@@ -303,7 +303,7 @@ Public Class frmSendungsdetailsNEU
usrcntl_NCTS = New usrCntlSND_NCTSGestellungsadresse
usrcntl_FISKAL = New usrCntlSND_NCTSFiskalEndempf
usrcntl_ATA = New usrCntlSND_Handling
'usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZollanmeldungen", Me) Then
TabControl1.TabPages.Remove(tbZollabfertigung)
End If
@@ -993,7 +993,7 @@ Public Class frmSendungsdetailsNEU
pnlT1.Controls.Clear()
usrcntl_NCTS.reset()
usrcntl_FISKAL.reset()
usrcntl_ATA.reset()
usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
' txtT1Verzollungsadresse.Text = ""
Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
Case 5, 6
@@ -1018,7 +1018,7 @@ Public Class frmSendungsdetailsNEU
usrcntl_FISKAL.rtbFiskalEndempf.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger, "")
pnlT1.Controls.Add(usrcntl_FISKAL)
Case 23
usrcntl_ATA.txtATA.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "")
pnlT1.Controls.Add(usrcntl_ATA)
End Select
@@ -1268,9 +1268,10 @@ Public Class frmSendungsdetailsNEU
Case 23
' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text
If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Handling) Then
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATA.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd = usrcntl_ATA.txtATCMRNFremd.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATAold.Text
'SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING()'derzeit ohne Funktion
'SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_String()'derzeit ohne Funktion
End If
End Select