DY div.
This commit is contained in:
@@ -1831,10 +1831,16 @@ Public Class frmStartOptions
|
||||
betreff = betreff.replace("FW: ", "")
|
||||
betreff = betreff.replace("VBD - Versandbegleitdokument (DE), ", "")
|
||||
|
||||
If betreff.contains(",") Then
|
||||
betreff = betreff.ToString.Split(",")(0).Trim
|
||||
End If
|
||||
'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
|
||||
Dim dy_id As String = ""
|
||||
If betreff.ToString.Length > 15 Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
|
||||
If dy_id = "" Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
|
||||
End If
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut004] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
|
||||
End If
|
||||
@@ -1863,91 +1869,135 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
If Not found Then 'OLD --- NCTS < 004!
|
||||
'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
|
||||
dy_id = ""
|
||||
If betreff.ToString.Length > 15 Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_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", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
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_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
|
||||
'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
|
||||
dy_id = ""
|
||||
If betreff.ToString.Length > 15 Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_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", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
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_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
cWorker_NCTS.checkATEZ_Bereitstellung_VBD(betreff.ToString.Trim, destFull)
|
||||
|
||||
'==================================
|
||||
|
||||
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
cWorker_NCTS.checkATEZ_Bereitstellung_VBD(betreff.ToString.Trim, destFull)
|
||||
|
||||
'==================================
|
||||
ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
|
||||
betreff = betreff.replace("WG: ", "")
|
||||
betreff = betreff.replace("FW: ", "")
|
||||
betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
|
||||
If betreff.ToString.Contains(",") Then
|
||||
Dim sp = betreff.ToString.Split(",")
|
||||
|
||||
|
||||
ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
|
||||
betreff = betreff.replace("WG: ", "")
|
||||
betreff = betreff.replace("FW: ", "")
|
||||
betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
|
||||
If betreff.ToString.Contains(",") Then
|
||||
Dim sp = betreff.ToString.Split(",")
|
||||
If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!!
|
||||
betreff = sp(0).Trim
|
||||
Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO")
|
||||
If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
Dim destFull = ""
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
moveFile(pfad, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) 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, "ZNV", SND_ID, betreff)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!!
|
||||
betreff = sp(0).Trim
|
||||
Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO")
|
||||
If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
Else ' STB !!!!
|
||||
|
||||
betreff = sp(0).Trim
|
||||
|
||||
|
||||
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 eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
|
||||
If dy_id = "" 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")
|
||||
End If
|
||||
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 destFull = ""
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
|
||||
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
|
||||
' 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, "ZNV", SND_ID, betreff)
|
||||
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
|
||||
|
||||
|
||||
Else ' STB !!!!
|
||||
|
||||
'ABD
|
||||
ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
|
||||
betreff = betreff.replace("WG: ", "")
|
||||
betreff = betreff.replace("FW: ", "")
|
||||
betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
|
||||
If betreff.ToString.Contains(",") Then
|
||||
Dim sp = betreff.ToString.Split(",")
|
||||
betreff = sp(0).Trim
|
||||
|
||||
|
||||
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")
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
|
||||
If dy_id = "" Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL")
|
||||
End If
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_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 = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", 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") & "\"
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
@@ -1955,51 +2005,13 @@ Public Class frmStartOptions
|
||||
|
||||
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)
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
'ABD
|
||||
ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
|
||||
betreff = betreff.replace("WG: ", "")
|
||||
betreff = betreff.replace("FW: ", "")
|
||||
betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
|
||||
If betreff.ToString.Contains(",") Then
|
||||
Dim sp = betreff.ToString.Split(",")
|
||||
betreff = sp(0).Trim
|
||||
|
||||
Dim dy_id As String = ""
|
||||
If betreff.ToString.Length > 15 Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL")
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_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", "ABD", 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\ABD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & 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_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'AVM
|
||||
ElseIf betreff.ToString.Contains("AVM - Ausgangsvermerk (DE), ") Then
|
||||
@@ -2012,7 +2024,10 @@ Public Class frmStartOptions
|
||||
|
||||
Dim dy_id As String = ""
|
||||
If betreff.ToString.Length > 15 Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL")
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
|
||||
If dy_id = "" Then
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL")
|
||||
End If
|
||||
Else
|
||||
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
|
||||
End If
|
||||
@@ -4064,4 +4079,9 @@ Public Class frmStartOptions
|
||||
showPic(blt.exportiereBlackList, PictureBox19)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel50_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel50.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
sendWOELFL_USTVAntraege("al@verag.ag")
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user