Div
This commit is contained in:
@@ -387,6 +387,34 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cLDV_Interface.copyLDV_BMD()
|
||||
closeMe()
|
||||
|
||||
'-----------AMBAR-------------------
|
||||
Case "AMBAR_DATEV_DEBITOREN"
|
||||
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, False)
|
||||
closeMe()
|
||||
|
||||
Case "AMBAR_DATEV_BUCHUNGEN"
|
||||
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, False, True)
|
||||
closeMe()
|
||||
|
||||
|
||||
Case "AMBAR_DATEV_ALL"
|
||||
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, True)
|
||||
closeMe()
|
||||
|
||||
|
||||
'------------------------------
|
||||
Case Else
|
||||
'Nur bei manuellem Start wird der fehler ausgegeben
|
||||
@@ -763,61 +791,62 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
Select Case art
|
||||
Case "STB"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
Case "STB"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
Case "VBD"
|
||||
If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "VBD"
|
||||
If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
Case "ZNV"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "ZNV"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
Case "ABD"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "ABD"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
Case "AVM"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "AVM"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
End Select
|
||||
End Select
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
@@ -1570,7 +1599,7 @@ Public Class frmStartOptions
|
||||
NCTS_FREMD.SAVE_ALL()
|
||||
|
||||
End If
|
||||
zeile += 1
|
||||
zeile += 1
|
||||
|
||||
End While
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Then
|
||||
@@ -2149,7 +2178,7 @@ Public Class frmStartOptions
|
||||
End While
|
||||
IO.File.Copy(file, dest) ' Verschiebt die Datei
|
||||
IO.File.Move(dest, dest.ToString.Replace(".tmp_" & tmpExt, "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird!
|
||||
dest = dest.ToString.Replace( ".tmp_" & tmpExt, "")
|
||||
dest = dest.ToString.Replace(".tmp_" & tmpExt, "")
|
||||
Return True
|
||||
|
||||
End Function
|
||||
@@ -2801,17 +2830,17 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
Dim rowSplitter As Char() = {vbCr, vbLf}
|
||||
Dim columnSplitter As Char() = {vbTab}
|
||||
Dim dataInClipboard As IDataObject = Clipboard.GetDataObject()
|
||||
Dim stringInClipboard As String = CStr(dataInClipboard.GetData(DataFormats.Text))
|
||||
Dim rowsInClipboard As String() = stringInClipboard.Split(rowSplitter, StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim columnSplitter As Char() = {vbTab}
|
||||
Dim dataInClipboard As IDataObject = Clipboard.GetDataObject()
|
||||
Dim stringInClipboard As String = CStr(dataInClipboard.GetData(DataFormats.Text))
|
||||
Dim rowsInClipboard As String() = stringInClipboard.Split(rowSplitter, StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim r As Integer = 0 'dgvMRN.SelectedRows(0).Index
|
||||
Dim c As Integer = 0 'dgvMRN.SelectedRows(0).Cells(0).ColumnIndex
|
||||
|
||||
MsgBox(rowsInClipboard.Length)
|
||||
If dgvMRN.Rows.Count < (r + rowsInClipboard.Length) Then
|
||||
dgvMRN.Rows.Add(r + rowsInClipboard.Length - dgvMRN.Rows.Count)
|
||||
End If
|
||||
If dgvMRN.Rows.Count < (r + rowsInClipboard.Length) Then
|
||||
dgvMRN.Rows.Add(r + rowsInClipboard.Length - dgvMRN.Rows.Count)
|
||||
End If
|
||||
|
||||
For iRow As Integer = 0 To rowsInClipboard.Length - 1
|
||||
Dim valuesInRow As String() = rowsInClipboard(iRow).Split(columnSplitter)
|
||||
@@ -3292,7 +3321,7 @@ Public Class frmStartOptions
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel40_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel40.LinkClicked
|
||||
Private Sub LinkLabel40_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) 'Handles LinkLabel40.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ
|
||||
@@ -3300,11 +3329,17 @@ Public Class frmStartOptions
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel39_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel39.LinkClicked
|
||||
Private Sub LinkLabel39_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) 'Handles LinkLabel39.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub btnDatev_Click(sender As Object, e As EventArgs) Handles btnDatev.Click
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxDatevTest.Checked
|
||||
VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(cbxDatevOpen.Checked, cbxDatevDebitoren.Checked, cbxDatevBuchungen.Checked)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user