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

Mitarbeiter, StartOptions, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-05 16:59:40 +01:00
parent 7d12e603ad
commit 1a8fea634e
3 changed files with 143 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -661,6 +661,7 @@ Public Class frmStartOptions
Dim totalPages = 0
Dim batchrequestNr = 0
Dim counTrans As Integer = 0
Dim pages As String = ""
Dim savedTrans As Integer = 0
Dim MDMEinarb As New cMDMEinarbeitung("MSE", Now())
MDMEinarb.setInvoicingDate(Now(), MDMEinarb)
@@ -672,6 +673,7 @@ Public Class frmStartOptions
closeMe()
Exit Sub
Else
pages = "1"
counTrans += dt.Rows.Count
End If
If totalPages > 1 Then
@@ -686,9 +688,10 @@ Public Class frmStartOptions
counTrans += dt.Rows.Count
End If
i = i + 1
pages &= " " & i
Next
End If
API.UPDTAE_OK(,, PARAM & " Batch-Nr: " & batchrequestNr & "-" & totalPages)
API.UPDTAE_OK(,, PARAM & " Batch-Nr: " & batchrequestNr & "-" & totalPages & " Transactions: " & counTrans & " Pages: " & pages)
MDMEinarb.ds_count += savedTrans
MDMEinarb.ds_total += counTrans
@@ -3184,7 +3187,7 @@ Public Class frmStartOptions
Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs, True)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
@@ -3349,7 +3352,7 @@ Public Class frmStartOptions
If setKundenvermerk Then
For Each r As DataRow In dt.Rows
If r("Ergebnis") = "UNGÜLTIG" Then
If Not IsDBNull(r("Ergebnis")) AndAlso r("Ergebnis") = "UNGÜLTIG" Then
Dim kunde As cKunde = New cKunde(r("kdNr"))
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
@@ -3377,15 +3380,15 @@ Public Class frmStartOptions
If updateFIBU Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim firma_id As String = ""
Dim vermerkNew As String = "UID Nr." & r("UstIdKz") & r("UstIdnr") & " ungültig"
Dim vermerkNew As String = "UID Nr. " & r("UstIdKz") & r("UstIdnr") & " ungültig (" & Now().ToShortDateString & ")"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : firma_id = "'1', '11'"
Case "ATILLA" : firma_id = "'7'"
Case "VERAG" : firma_id = "'1', '11', '7'"
'Case "ATILLA" : firma_id = "'7'" 'ATILLA UND VERAG haben selben Kundenstamm!!!
End Select
If firma_id <> "" Then SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET [c_homepage]='" & vermerkNew & "',[c_text2] = isnull([c_ustidnr],''), [c_ustidnr] = '', c_manipulator = 'AUTO', dt_manipulation = Getdate() where i_konto='" & kunde.KundenNr & "' AND i_firm_refid in (" & firma_id & ")", "FIBU")
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : kunde.FiBuSchnittstelle = True : kunde.SAVE() 'IMEX-Kunden sollen neu in DVO exportiert werden!
End Select
@@ -5123,14 +5126,14 @@ Public Class frmStartOptions
Else
Dim totalPages = 0
Dim batchrequestNr = 0
Dim pages As String = ""
Dim counTrans As Integer = 0
Dim savedTrans As Integer = 0
Dim MDMEinarb As New cMDMEinarbeitung("MSE", Now())
MDMEinarb.setInvoicingDate(Now(), MDMEinarb)
fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, cbxOnlyBilledTransactions.Checked, savedTrans)
pages = "0"
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
@@ -5150,6 +5153,7 @@ Public Class frmStartOptions
End If
i = i + 1
pages &= " " & i
Next
@@ -5294,7 +5298,7 @@ Public Class frmStartOptions
Dim token = mse.createJWT(fehler)
Dim transactions As New DataTable
Dim invoice As New DataTable
Dim pages As String = ""
Dim counTrans As Integer = 0
Dim savedTrans As Integer = 0
Dim MDMEinarb As New cMDMEinarbeitung("MSE", Now())
@@ -5316,6 +5320,7 @@ Public Class frmStartOptions
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, 1, savedTrans)
pages = "1"
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
@@ -5339,13 +5344,13 @@ Public Class frmStartOptions
Else
counTrans += transactions.Rows.Count
pages &= " " & i
End If
Next
End If
MsgBox("DONE")
MsgBox("DONE" & " Transactions: " & counTrans & " Pages: " & pages)
MDMEinarb.ds_count += savedTrans
MDMEinarb.ds_total += counTrans