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

verwahrung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-12-31 09:19:14 +01:00
parent eab90bc81a
commit e3c2ac353d
6 changed files with 380 additions and 289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -815,6 +815,9 @@ Public Class frmStartOptions
End If
API.UPDTAE_OK(,, PARAM)
setInvoiceBackToCustomer("MSE")
closeMe()
Exit Sub
End If
@@ -6539,7 +6542,7 @@ weiter:
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'WICHTIG, bei companyDetailEventsRequest = true wird gleich Punkt 3 gemacht (dauert länger, aber mehr Datensätze und alle Kunden werden geprüft, bei companyDetailEventsRequest = false wird die u.a. Best Practice-Methode durchgeführt (Punkt 1 und 2) -> also triggerbasierend)!!!!
'WICHTIG, bei companyDetailEventsRequest = true wird gleich Punkt 3 durchgeführt (dauert länger, aber mehr Datensätze und alle Kunden werden geprüft, bei companyDetailEventsRequest = false wird die u.a. Best Practice-Methode durchgeführt (Punkt 1 und 2) -> also triggerbasierend)!!!!
'ANSATZ, bei der täglichen Prüfung die triggerbasierten Abruf, 1x im Monat bzw. wenn spezisches Unternehmen geprüft wird, dann Punkt 3.
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -6907,10 +6910,6 @@ repeatRequest:
Private Sub lbl_setBackToCustomerIDS_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lbl_setBackToCustomerIDS.LinkClicked, lblBackToCustomer_MSE.LinkClicked, lblBackToCustomer_PLOSE.LinkClicked, lblBackToCustomer_UTA.LinkClicked, lblBackToCustomer_RMC.LinkClicked
Dim dtkeineMWST As DataTable = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
Dim dtKundeMWST As DataTable = (New SQL).loadDgvBySql("select * from tblKundenMWST", "FMZOLL")
Dim Lieferant As String = ""
Select Case sender.Name
@@ -6921,10 +6920,19 @@ repeatRequest:
Case "lblBackToCustomer_RMC" : Lieferant = "RMC"
End Select
setInvoiceBackToCustomer(Lieferant)
End Sub
Private Sub setInvoiceBackToCustomer(Lieferant As String)
Dim sql_query = ""
Dim sql_query_keineMWST = ""
Dim dtkeineMWST As DataTable = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
Dim dtKundeMWST As DataTable = (New SQL).loadDgvBySql("select * from tblKundenMWST", "FMZOLL")
'alle ab 2025!
Select Case Lieferant
@@ -7134,10 +7142,8 @@ repeatRequest:
End Select
End Sub
Private Sub UpdateLieferantInvToCustomer(Lieferant As String, InvoiceID As String, Optional CustomerNr As String = "")
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL