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

Verwahrung, NCTS, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-19 09:17:26 +02:00
parent 7bb33a0833
commit d2ebc68cc0
3 changed files with 17 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -2795,14 +2795,16 @@ Public Class frmStartOptions
moveFile(pfad, ZIEL_PFAD, destFull)
Try
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)
If destFull <> "" Then
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
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Pfad: " & destFull & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try