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

ANhangsarten, addsendeungen, Anhangsimport

Browse Source
This commit is contained in:
d.breimaier
2024-08-28 08:47:38 +02:00
parent d1786e494f
commit a4a7eb3351
6 changed files with 106 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
Aviso/usrcntlAktDetails.vb
View File

@@ -783,42 +783,50 @@ Public Class usrcntlAktDetails
End If
Button18.Visible = True
Dim hSQL As String = " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AvisoID & "' " & AktSndAnhaenge & " " & WhereWO & "
ORDER BY anh_SendungsId desc,
case
when [anh_Art] = 'ATR' then 0
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'EUR1' then 0.1
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4
when [anh_Art] = 'Packliste' then 5
when [anh_Art] = 'Auftrag' then 6
when [anh_Art] = 'Auftrag' then 7
when [anh_Art] = 'Dispoliste' then 8
when [anh_Art] = 'Vorkasse' then 9
when [anh_Art] = 'Überweisungsbeleg' then 10
when [anh_Art] = 'Vollmacht' then 11
when [anh_Art] = 'ATB' then 12
when [anh_Art] = 'ATA' then 13
Dim hSQL As String '= " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge]
' WHERE [anh_AvisoId]='" & AvisoID & "' " & AktSndAnhaenge & " " & WhereWO & "
' ORDER BY anh_SendungsId desc,
' case
' when [anh_Art] = 'ATR' then 0
' when [anh_Art] = 'ATR-EUR1' then 0
' when [anh_Art] = 'EUR1' then 0.1
' when [anh_Art] = 'Rechnung' then 1
' when [anh_Art] = 'eFatura' then 1.1
' when [anh_Art] = 'CMR' then 2
' when [anh_Art] = 'Ausfuhr' then 3
' when [anh_Art] = 'Vorpapier' then 4
' when [anh_Art] = 'Packliste' then 5
' when [anh_Art] = 'Auftrag' then 6
' when [anh_Art] = 'Auftrag' then 7
' when [anh_Art] = 'Dispoliste' then 8
' when [anh_Art] = 'Vorkasse' then 9
' when [anh_Art] = 'Überweisungsbeleg' then 10
' when [anh_Art] = 'Vollmacht' then 11
' when [anh_Art] = 'ATB' then 12
' when [anh_Art] = 'ATA' then 13
when [anh_Art] = 'GGED_D' then 40
when [anh_Art] = 'GGED_PP' then 41
when [anh_Art] = 'GGED_P' then 42
when [anh_Art] = 'GGED_A' then 43
when [anh_Art] = 'PHYTO' then 44
when [anh_Art] = 'CONFORM' then 45
' when [anh_Art] = 'GGED_D' then 40
' when [anh_Art] = 'GGED_PP' then 41
' when [anh_Art] = 'GGED_P' then 42
' when [anh_Art] = 'GGED_A' then 43
' when [anh_Art] = 'PHYTO' then 44
' when [anh_Art] = 'CONFORM' then 45
when [anh_Art] = 'Sonstiges' then 99
' when [anh_Art] = 'Sonstiges' then 99
when [anh_Art] ='' then 15
' when [anh_Art] ='' then 15
'END, [anh_Reihenfolge],[anh_id]"
hSQL = "SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert , anh_cmrId
FROM [tblAvisoAnhaenge]
left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art
WHERE anh_AvisoId='" & AvisoID & "'" & AktSndAnhaenge & " " & WhereWO & "
ORDER BY anh_SendungsId desc, case when aa_sort = NULL THEN 15 else aa_sort END, [anh_Reihenfolge],[anh_id]"
END, [anh_Reihenfolge],[anh_id]"
' order by [anh_Reihenfolge],[anh_id]
gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)