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

ATILLA Status 2 (VERIMEX, INDONESIEN), Login Warenort, Sprache div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-06 08:41:13 +01:00
parent 074e999003
commit eb090f8b37
24 changed files with 653 additions and 481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/usrcntlAktDetails.vb
View File

@@ -489,6 +489,7 @@ Public Class usrcntlAktDetails
.Columns("tblSnd_Empfaenger").MinimumWidth = 130
.Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
.Columns("tblSnd_Empfaenger").HeaderText = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE_SUB(Me, dgvSendungen, .Columns("tblSnd_Empfaenger"), .Columns("tblSnd_Empfaenger").HeaderText)
.Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("Vermerke_Anzahl").Width = 60
@@ -617,6 +618,7 @@ Public Class usrcntlAktDetails
Dim t = New DataGridViewTextBoxColumn
t.Name = "Abfertigungsart"
t.HeaderText = "Abfertigungsart"
t.HeaderText = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE_SUB(Me, dgvSendungen, t, t.HeaderText)
t.Width = 100 : t.DefaultCellStyle.Padding = New Padding(2) : t.DefaultCellStyle.BackColor = Color.White
't.ToolTipText = ""
.Columns.Insert(3, t)
@@ -2084,14 +2086,14 @@ Public Class usrcntlAktDetails
Next
Try
tbcntlVermerke.TabPages(0).Text = "Alle (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & "", "AVISO") & ")"
tbcntlVermerke.TabPages(1).Text = "Aktenvermerke (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='A' ", "AVISO") & ")"
tbcntlVermerke.TabPages(0).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbAlle, "Alle") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & "", "AVISO") & ")"
tbcntlVermerke.TabPages(1).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbAkenvermerk, "Aktenvermerke") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='A' ", "AVISO") & ")"
If dgvSendungen.SelectedRows.Count > 0 Then
tbcntlVermerke.TabPages(2).Text = "Sendungsvermerke (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='S' AND [SendungID]='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value & "' ", "AVISO") & ")"
tbcntlVermerke.TabPages(2).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbSndvermerk, "Sendungsvermerke") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='S' AND [SendungID]='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value & "' ", "AVISO") & ")"
Else
tbcntlVermerke.TabPages(2).Text = "Sendungsvermerke"
tbcntlVermerke.TabPages(2).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbSndvermerk, "Sendungsvermerke") & ""
End If
tbcntlVermerke.TabPages(3).Text = "Anhang (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [tblAvisoAnhaenge] WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 ", "AVISO") & ")"
tbcntlVermerke.TabPages(3).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbAnhang, "Anhang") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [tblAvisoAnhaenge] WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 ", "AVISO") & ")"
Catch ex As Exception
End Try
@@ -2404,9 +2406,11 @@ Public Class usrcntlAktDetails
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
btnAktUebernehmen.Image = My.Resources.weiterleiten_small1
btnAktUebernehmen.Text = "Akt weiterleiten..."
'VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, btnAktUebernehmen)
Else
btnAktUebernehmen.Image = My.Resources.personCheck_small
btnAktUebernehmen.Text = "Akt übernehmen"
VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, btnAktUebernehmen)
End If
End Sub
Public Sub showInfo(t As String, s As Double)