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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -1239,22 +1239,30 @@ Public Class frmKundenUebersichtZOLL
End Sub
Private Sub AnDakosyÜbertragenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnDakosyÜbertragenToolStripMenuItem.Click
If If(KUNDE.EORITIN, "") = "" Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
MsgBox("Keine Berechtigung!")
Else
If If(KUNDE.EORITIN, "") = "" Then
MsgBox("Bitte EORI-Nr. eintragen!")
Exit Sub
End If
If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
' init(KUNDE.KundenNr)
MsgBox("Daten gesendet!")
If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
' init(KUNDE.KundenNr)
MsgBox("Daten gesendet!")
End If
End If
End Sub
Private Sub AufschubEORIBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AufschubEORIBearbeitenToolStripMenuItem.Click
Dim f As New frmKundenAufschubdatenBearbeiten(kdNr)
f.ShowDialog(Me)
setKD(kdNr)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_AufschubBearbeiten", "SDL") Then
MsgBox("Keine Berechtigung!")
Else
Dim f As New frmKundenAufschubdatenBearbeiten(kdNr)
f.ShowDialog(Me)
setKD(kdNr)
End If
End Sub
Private Sub timer_EORI_Tick(sender As Object, e As EventArgs) Handles timer_EORI.Tick
Try