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

gesamtsicherheiten: Positionsnummerierung und AvisoID eingebaut

Browse Source
This commit is contained in:
d.breimaier
2022-11-02 17:34:13 +01:00
parent a1e0c2bc6e
commit ff9be06159
3 changed files with 116 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -1,15 +1,8 @@
Imports System.Reflection
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.Expressions
Imports DocumentFormat.OpenXml.Bibliography
Imports DocumentFormat.OpenXml.Presentation
Imports DocumentFormat.OpenXml.Spreadsheet
Imports Spire.Pdf.General.Render.Decode

Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenNEU
Property currentSicherheit As cSicherheiten
Property currentSPos As cGesamtsicherheitsPositionen
Property currentGesSichRef As cGesamtsicherheitsReferenz
@@ -35,6 +28,8 @@ Public Class frmGesamtsicherheitenNEU
Public warenortID As String
Public avisioID As Integer
Dim indexGsId As Integer
Dim indexGspPosId As Integer
@@ -43,7 +38,7 @@ Public Class frmGesamtsicherheitenNEU
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public dt As New DataTable
Public dataTable As New DataTable()
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -69,6 +64,8 @@ Public Class frmGesamtsicherheitenNEU
nextGessicherheitID = -1
prevGessicherheitID = -1
txtlkwIdSearch.initSearchBox(Me.FindForm, " [LKW_Nr], [AvisoID] FROM [Aviso]", {"LKW_Nr", "AvisoID"}, "", "LKW_Nr", "LKW_Nr", "AvisoID", "AVISO",, 150, 200)
Else
LoadDGVSicherheiten()
End If
@@ -87,7 +84,7 @@ Public Class frmGesamtsicherheitenNEU
Public Sub LoadDGVSicherheiten(Optional withFilterParam As Boolean = False)
'lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
'lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = ""
Dim sqladd1 As String = ""
If currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
@@ -242,12 +239,14 @@ Public Class frmGesamtsicherheitenNEU
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
Me.avisioID = setNullToZero(dt.Rows(0).Item("gs_avisioId"))
Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ"))
Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
End If
If Me.avisioID.ToString.Length > 0 Then lblGestellungNr.Text &= "Aviso-ID: " & Me.LKWKZ & " "
If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " "
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
@@ -361,6 +360,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_saldo = currentGesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID
setEnviromentDataToObject(OPEN, Me)
End With
@@ -403,6 +403,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_erstellungsdatum = Me.datum
.gsp_avisoId = ""
.gsp_ust = ""
.gsp_avisoId = Me.avisioID
'.gsp_ATCNr = ""
'.gsp_MRNNr = ""
.gsp_gsNr = OPEN.gs_gsNr
@@ -448,6 +449,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_saldo = currentGesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID
setEnviromentDataToObject(OPEN, Me)
End With
@@ -469,6 +471,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_ust = currentSicherheit.gs_ust
.gsp_ATCNr = txtPositionenCRN.Text
.gsp_MRNNr = txtPositionenCRN.Text
.gsp_avisoId = Me.avisioID
End With
SicherheitsPos.SAVE()
@@ -682,7 +685,11 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnDeleteSicherheit_Click(sender As Object, e As EventArgs) Handles btnDeleteSicherheit.Click
Try
Dim posNr = currentSicherheit.gs_posNr
Dim ATBNr = currentSicherheit.gs_ATBNr
Dim gsNr = currentSicherheit.gs_gsNr
currentSicherheit.Delete()
rearangePosNr(gsNr, ATBNr, posNr)
btnUpdateSicherheit.Visible = False
btnAddSicherheit.Visible = True
btnDeleteSicherheit.Visible = False
@@ -883,7 +890,7 @@ Public Class frmGesamtsicherheitenNEU
Dim onlyOpenDT As DataTable
onlyOpenDT = dt.Select("gs_isOpen = True").CopyToDataTable
onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable
For i As Integer = 0 To onlyOpenDT.Rows.Count - 1
@@ -913,16 +920,16 @@ Public Class frmGesamtsicherheitenNEU
If isInList = False AndAlso onlyOpenDT.Rows.Count - 1 <> 0 Then
For i As Integer = 0 To dt.Rows.Count - 1
If dt.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
For i As Integer = 0 To dataTable.Rows.Count - 1
If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
If i = 0 Then
prevGessicherheitID = -1 ' no prev Sicherheit
Else
For j As Integer = i To 0
If dt.Rows(j).Item("gs_isOpen") Then
prevGessicherheitID = dt.Rows(j).Item("gs_gsnr")
If dataTable.Rows(j).Item("gs_isOpen") Then
prevGessicherheitID = dataTable.Rows(j).Item("gs_gsnr")
'MsgBox("prevGessicherheitID " & prevGessicherheitID)
Exit For
End If
@@ -930,12 +937,12 @@ Public Class frmGesamtsicherheitenNEU
End If
If i = dt.Rows.Count - 1 Then
If i = dataTable.Rows.Count - 1 Then
nextGessicherheitID = -1 ' ' no next Sicherheit
Else
For k As Integer = i To dt.Rows.Count - 1
If dt.Rows(k).Item("gs_isOpen") Then
nextGessicherheitID = dt.Rows(k).Item("gs_gsnr")
For k As Integer = i To dataTable.Rows.Count - 1
If dataTable.Rows(k).Item("gs_isOpen") Then
nextGessicherheitID = dataTable.Rows(k).Item("gs_gsnr")
'MsgBox("nextGessicherheitID " & nextGessicherheitID)
Exit For
End If
@@ -953,16 +960,16 @@ Public Class frmGesamtsicherheitenNEU
Private Function setPrevAndNextGesAll()
For i As Integer = 0 To dt.Rows.Count - 1
If dt.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
For i As Integer = 0 To dataTable.Rows.Count - 1
If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
prevGessicherheitID = dt.Rows(i).Item("gs_gsnr") - 1
prevGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") - 1
nextGessicherheitID = dt.Rows(i).Item("gs_gsnr") + 1
nextGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") + 1
If i = 0 Then prevGessicherheitID = -1 ' no prev Sicherheit
If i = dt.Rows.Count - 1 Then nextGessicherheitID = -1 ' ' no next Sicherheit
If i = dataTable.Rows.Count - 1 Then nextGessicherheitID = -1 ' ' no next Sicherheit
'MsgBox("prevGessicherheitID " & prevGessicherheitID)
'MsgBox("nextGessicherheitID " & nextGessicherheitID)
@@ -1088,5 +1095,37 @@ Public Class frmGesamtsicherheitenNEU
End Sub
Private Sub rearangePosNr(gsNr As Integer, ATBNr As String, posNr As Integer)
If posNr = -1 Or posNr = 1 Then Exit Sub
Dim sqlq As String = "select [gs_gsId], [gs_posNr] from [tblGesamtsicherheit] where gs_gsnr = " & gsNr & " AND gs_ATBNR = '" & ATBNr & "' AND gs_posNr > '" & posNr & "'"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
If (dt.Rows.Count = 0) Then Exit Sub
For i As Integer = 0 To dt.Rows.Count - 1
MsgBox("gs_gsId: " & dt.Rows(i).Item("gs_gsId").ToString & " " & "gs_posNr: " & dt.Rows(i).Item("gs_posNr").ToString)
Dim sicherheit = New cSicherheiten(dt.Rows(i).Item("gs_gsId"), dt.Rows(i).Item("gs_posNr"))
Dim currentPos = sicherheit.gs_posNr
sicherheit.gs_posNr = currentPos - 1
sicherheit.UPDATEWithNewPosNr()
Next
End Sub
Private Sub txtlkwIdSearch_VALUE_CHANGED() Handles txtlkwIdSearch.VALUE_CHANGED
If (txtlkwIdSearch._value <> "") Then
txtLKWID.Text = txtlkwIdSearch._value
txtLKWID.ReadOnly = True
Else
txtLKWID.Clear()
txtLKWID.ReadOnly = False
End If
End Sub
End Class