diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index d99788d..77c4b96 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -311,7 +311,7 @@ Public Class frmSendungsdetailsNEU Sub initGrenzstelle() 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 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 @@ -1064,6 +1064,7 @@ Public Class frmSendungsdetailsNEU newRow.tblSnd_AbklaerungTR_MA = Nothing newRow.tblSnd_AbfertigungTR = Nothing newRow.tblSnd_AbfertigungTR_MA = Nothing + newRow.tblSnd_SpeditionsbuchEingetragen = False newRow.tblSnd_SendungID = -1 @@ -2273,9 +2274,15 @@ Public Class frmSendungsdetailsNEU If cboAbfertigungsart._value = "23" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" + + txtDyRef.Visible = False + picDy.Visible = False + txtDyRef.Text = "" ElseIf cboAbfertigungsart._value = "9" Then btnLeihgeld.Enabled = True 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" initAufschubBtn() End If