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

GebrWeiss Aviso Vorlage

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-06-15 22:20:55 +02:00
parent 4eb01c30dc
commit 133e16d7e5
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1201,8 +1201,12 @@ Public Class frmSendungsdetailsNEU
' cboAufschub._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub, "") ' cboAufschub._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub, "")
cboZolltarif.changeItem(loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif, 0)) cboZolltarif.changeItem(loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif, 0))
If txtDyRef.Visible Then
txtDyRef.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_DakosyRef, "")
Else
txtDyRef.Text = ""
End If
txtDyRef.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_DakosyRef, "")
If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0)
lblSendungen.Text = (CURRENT_INDEX + 1) lblSendungen.Text = (CURRENT_INDEX + 1)
@@ -5182,7 +5186,7 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST_SND For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "HANDELSRECHNUNG", "eFatura" Case "RECHNUNG", "HANDELSRECHNUNG", "EFATURA"
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)}) VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
End Select End Select
Next Next