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

feature_gesamtsicherheiten änderungen

Browse Source
This commit is contained in:
d.breimaier
2022-11-02 12:34:40 +01:00
parent e0a0e60440
commit a1e0c2bc6e
2 changed files with 387 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -98,7 +98,7 @@ Public Class frmGesamtsicherheitenNEU
If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= "AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'"
End If
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by [gs_gsId]"
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by gs_gsId"
dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
dgvGesamtsicherheit.LOAD()
@@ -403,8 +403,8 @@ Public Class frmGesamtsicherheitenNEU
.gsp_erstellungsdatum = Me.datum
.gsp_avisoId = ""
.gsp_ust = ""
.gsp_ATCNr = ""
.gsp_MRNNr = ""
'.gsp_ATCNr = ""
'.gsp_MRNNr = ""
.gsp_gsNr = OPEN.gs_gsNr
End With
@@ -675,7 +675,7 @@ Public Class frmGesamtsicherheitenNEU
currentSPos = sPos
btnDeletePos.Visible = True
'btnDeletePos.Visible = True
btnAddPos.Visible = False
btnUpdatePos.Visible = True
End Sub