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

updater

Browse Source
This commit is contained in:
d.breimaier
2025-05-16 09:28:50 +02:00
parent 28af74ca4b
commit db26c40475
2 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1785,20 +1785,20 @@ Public Class usrCntlFaktAbrechnung
If DAID <> "" AndAlso IsNumeric(DAID) Then
Dim daidno As Integer = CInt(DAID)
Dim ds As New cDATENSERVER(daidno)
.Rows.Add(1, nameLief, ds.da_name, ds.da_id, ds.da_id)
.Rows.Add(1, nameLief, ds.da_name, ds.da_id, -1)
End If
Next
End If
'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
'Dim pfadExcel As String = func.generateExcelPosList(USTV, "", "", "", False)
'If pfadExcel <> "" Then
Dim pfadExcel As String = func.generateExcelPosList(USTV, "", "", "", False) 'soll immer alle POS bekommen! laut Lidya! 28.04.2025
If pfadExcel <> "" Then
Dim FI As New FileInfo(pfadExcel)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & FI.Extension, USTV.UStVAn_KuNr, False)
DS.uploadDataToDATENSERVER(pfadExcel, FI.Name, FI.Extension,,,, True)
.Rows.Add(1, "POS-LIST", DS.da_name, DS.da_id, DS.da_id)
End If
' Dim FI As New FileInfo(pfadExcel)
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & FI.Extension, USTV.UStVAn_KuNr, False)
' DS.uploadDataToDATENSERVER(pfadExcel, FI.Name, FI.Extension,,,, True)
' .Rows.Add(1, "POS-LIST", DS.da_name, DS.da_id, -1)
'End If
End If
End If

7
SDLUPDATER/UPDATERfrm.vb
View File

@@ -1,4 +1,6 @@
Public Class UPDATERfrm
Imports System.Windows.Forms
Public Class UPDATERfrm
Dim CopyIncremental = True
Private Sub UPDATERfrm_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -9,6 +11,9 @@
Dim trd As New Threading.Thread(AddressOf Main)
trd.IsBackground = True
trd.Start()
'prevent user to close the form
btnClose.Enabled = False
End Sub