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

Sendungsdetails WO_Fremd

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-04-11 14:53:29 +02:00
parent 0718110b3a
commit 87fcf230d6
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -311,7 +311,7 @@ Public Class frmSendungsdetailsNEU
Sub initGrenzstelle() Sub initGrenzstelle()
lblGrenze.Text = "" lblGrenze.Text = ""
If AVISO.Grenzstelle.Replace("???", "") = "" Then If AVISO.Grenzstelle.Replace("???", "").Replace("WO_FREMD", "") = "" Then
'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") 'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
lblGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL") lblGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
Else Else
@@ -1064,6 +1064,7 @@ Public Class frmSendungsdetailsNEU
newRow.tblSnd_AbklaerungTR_MA = Nothing newRow.tblSnd_AbklaerungTR_MA = Nothing
newRow.tblSnd_AbfertigungTR = Nothing newRow.tblSnd_AbfertigungTR = Nothing
newRow.tblSnd_AbfertigungTR_MA = Nothing newRow.tblSnd_AbfertigungTR_MA = Nothing
newRow.tblSnd_SpeditionsbuchEingetragen = False
newRow.tblSnd_SendungID = -1 newRow.tblSnd_SendungID = -1
@@ -2273,9 +2274,15 @@ Public Class frmSendungsdetailsNEU
If cboAbfertigungsart._value = "23" Then If cboAbfertigungsart._value = "23" Then
SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = ""
txtDyRef.Visible = False
picDy.Visible = False
txtDyRef.Text = ""
ElseIf cboAbfertigungsart._value = "9" Then ElseIf cboAbfertigungsart._value = "9" Then
btnLeihgeld.Enabled = True btnLeihgeld.Enabled = True
Else Else
txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED
picDy.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED
' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "VERAG" ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "VERAG"
initAufschubBtn() initAufschubBtn()
End If End If