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

SEndungsdetails ATilla

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-19 10:50:13 +01:00
parent 390d5353f2
commit 7823d11489
19 changed files with 2603 additions and 4038 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Aviso/GVMS/frmGVMS.vb
View File

@@ -338,7 +338,7 @@
Dim dt = SQL.loadDgvBySql("SELECT distinct([gvms_notification_boxid]) FROM [tblGVMS] where gvms_GMR is null and gvms_notification_boxid is not null", "FMZOLL")
If dt IsNot Nothing Then
For Each row In dt.Rows
cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
VERAG_PROG_ALLGEMEIN.cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
Next
End If
Catch ex As Exception
@@ -377,7 +377,7 @@
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.DELETE_GMR(GVMS)
VERAG_PROG_ALLGEMEIN.cHMRC.DELETE_GMR(GVMS)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else
@@ -387,7 +387,7 @@
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
cHMRC.GET_GVMS_LIST()
VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_LIST()
End Sub
@@ -395,7 +395,7 @@
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else
@@ -404,14 +404,14 @@
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
cHMRC.getGVMS_RefData()
VERAG_PROG_ALLGEMEIN.cHMRC.getGVMS_RefData()
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_notification_boxid, "") <> "" AndAlso If(GVMS.gvms_notification_id, "") <> "" Then
cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
VERAG_PROG_ALLGEMEIN.cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else

4
Aviso/GVMS/frmGVMSNew.vb
View File

@@ -221,9 +221,9 @@ Public Class frmGVMSNew
If GVMS.SAVE() Then
If If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
Else
cHMRC.SEND_GVMS(GVMS)
VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS)
End If
Return True