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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-11-18 14:58:25 +01:00
parent afaaa450e1
commit e19a163187
17 changed files with 429 additions and 338 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Aviso/frmHauptfenster.vb
View File

@@ -170,6 +170,8 @@ Public Class frmHauptfenster
' FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
'End Select
lblFimaAviso.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -410,8 +412,11 @@ Public Class frmHauptfenster
'Mitarbeiterinfos anzeigen
VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString
lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
' lblMitarbeiter.Text += " (Verwaltung)Then"
'End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
lblMitarbeiter.Text += " (Verwaltung)Then"
lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")"
End If
lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
@@ -1885,13 +1890,19 @@ Public Class frmHauptfenster
End Sub
Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click
Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click, ToolStripMenuItem17.Click
Try
Me.Cursor = Cursors.WaitCursor
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
If sender Is ToolStripMenuItem17 Then
f.FIRMA_TMP = "ATILLA"
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
' f.frmHilf = Me
If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
@@ -2553,6 +2564,16 @@ Public Class frmHauptfenster
End Function
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim list = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(717858, CDate("01.10.2021"), CDate("31.10.2021")) '{5})
For Each d In list
MsgBox(d.RechnungsDatum & " - " & d.RechnungsName_1)
Next
'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
Dim mailTo = "al@verag.ag"
Dim betreff = "Betreff - TESTMAIL"
@@ -2560,13 +2581,6 @@ Public Class frmHauptfenster
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False)
Exit Sub
Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, ) '{5})
For Each d In dt.Rows
MsgBox(d("LKW_Nr") & " - " & d("Status"))
Next
Exit Sub
CHMRC.hmrcTEST()
@@ -3004,12 +3018,14 @@ Public Class frmHauptfenster
Panel1.Height -= pnlSearch.Height
Panel1.Height += tbcntrAviso.Height
tbcntrAviso.Visible = True
Me.Refresh()
Aviso_anzeigen("")
Else
pnlSearch.Visible = True
Panel1.Height += pnlSearch.Height
Panel1.Height -= tbcntrAviso.Height
tbcntrAviso.Visible = False
Me.Refresh()
initDat()
gridAviso.Columns.Clear()
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
@@ -3789,6 +3805,14 @@ Public Class frmHauptfenster
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV")
DS.OPEN_SINGLE()
End Sub
Private Sub cntxtAtilla_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxtAtilla.Opening
ToolStripMenuItem17.Visible = (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX")
End Sub
End Class
Public Class AvisoStatusFunctions