Datev Schnittstelle im RoutineManager
This commit is contained in:
@@ -743,70 +743,70 @@ Public Class frmStartOptions
|
||||
|
||||
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr)
|
||||
|
||||
API.api_EMail = EMails
|
||||
API.api_EMailCC = EMails_CC
|
||||
API.api_EMailBCC = EMails_BCC
|
||||
API.api_EMailSubject = betreff
|
||||
API.api_EMailText = body
|
||||
API.api_EMailAttCnt = pfadList.Count
|
||||
API.api_EMail = EMails
|
||||
API.api_EMailCC = EMails_CC
|
||||
API.api_EMailBCC = EMails_BCC
|
||||
API.api_EMailSubject = betreff
|
||||
API.api_EMailText = body
|
||||
API.api_EMailAttCnt = pfadList.Count
|
||||
|
||||
|
||||
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
|
||||
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 "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 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)
|
||||
@@ -1559,7 +1559,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
|
||||
@@ -1748,30 +1748,30 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
Dim dy_id As String = ""
|
||||
If betreff.ToString.Length > 15 Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
|
||||
End If
|
||||
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
moveFile(pfad, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id)
|
||||
If betreff.ToString.Length > 15 Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
|
||||
End If
|
||||
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
moveFile(pfad, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
@@ -2138,7 +2138,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
|
||||
@@ -2790,17 +2790,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)
|
||||
@@ -3281,8 +3281,19 @@ Public Class frmStartOptions
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestDatev.Checked
|
||||
VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(cbxOpenDatev.Checked, cbxKundenDatev.Checked, cbxBuchungenDatev.Checked)
|
||||
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
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
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
|
||||
End Class
|
||||
Reference in New Issue
Block a user