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

ATEZ +Procedure

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-31 08:44:07 +02:00
parent 9a3a86228f
commit d12db72804
6 changed files with 56 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/frmATEZ_NCTS.vb
View File

@@ -125,6 +125,14 @@ Public Class frmATEZ_NCTS
.Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
.Carrier_EORI = usrCntl_Carrier.txtEORI.Text
.Guarantee_GRN = "" 'leer
Select Case SENDUNG.tblSnd_Abfertigungsart_ID
Case 5, 45 : .DAKOSY_Procedure = "T1"
Case 6 : .DAKOSY_Procedure = "T2"
Case 8 : .DAKOSY_Procedure = "TIR"
Case Else : .DAKOSY_Procedure = "T2"
End Select
.SAVE()
End With
@@ -396,7 +404,7 @@ CASE WHEN [anh_Art] = 'ATR-EUR1' then 'EUR'
when [anh_Art] = 'Sonstiges' then 'OTHER'
when [anh_Art] ='' then 'OTHER' End
[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <=0 And anh_Typ = 'PDF'
WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' And anh_Typ = 'PDF'
Order BY [anh_Reihenfolge], anh_Datum desc, [anh_id]"
Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
@@ -499,8 +507,9 @@ CASE WHEN [anh_Art] = 'ATR-EUR1' then 'EUR'
End If
End Sub
Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs)
Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged
txtDat._value = CDate(sender.value).ToShortDateString
End Sub
End Class