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

Warenort, Essensbestellungen, Datev-Export, Gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2023-01-17 17:11:17 +01:00
parent 5f1a2249d6
commit 6652d84799
9 changed files with 709 additions and 565 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -8,12 +8,23 @@ Public Class frmGesamtsicherheitenMenuNEU
Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
Public dataTable As DataTable
Public Property Standort As String = ""
Public firmaId As Integer
Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case Standort
Case "Verag GmbH" : firmaId = 2
Case "VERAG AG" : firmaId = 1
Case "IMEX" : firmaId = 20
Case "Verag CS" : firmaId = 11
End Select
cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
cbxWarenort.DropDownWidth = 150
Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe)
@@ -150,6 +161,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
.avisoID = dgvListe.CurrentRow.Cells("gs_avisoId").Value
.dataTable = Me.dataTable
.firmaId = Me.firmaId
End With
AddHandler frm.FormClosing, Function()
@@ -169,6 +181,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.datum = Date.Now
.Neu = True
.dataTable = Me.dataTable
.firmaId = Me.firmaId
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()