diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 4f11401..49af484 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -4186,11 +4186,11 @@ Public Class frmStartOptions If dt IsNot Nothing Then For Each r In dt.Rows - MsgBox(r("AvisoId")) + ' MsgBox(r("AvisoId")) insertBenachrichtigung_AAS(r("AvisoId"), r("SendungsId"), VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(r("FilialenNr")), VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AAE_Benachrichtigung, "AAS: REMINDER", "REMINDER: " & r("Hinweis_Vermerk"), 1, r("VermerkID")) - insertVermerk(r("AvisoId"), r("SendungsId"), 115, "(AAS) " & r("Hinweis_Vermerk")) - cVermerkeDAL.increaseWarnstufe(r("VermerkID")) - MsgBox("done") + ' insertVermerk(r("AvisoId"), r("SendungsId"), 115, "(AAS) " & r("Hinweis_Vermerk")) + + ' MsgBox("done") Next End If Catch ex As Exception @@ -4213,9 +4213,10 @@ Public Class frmStartOptions If dt IsNot Nothing Then For Each r In dt.Rows + MsgBox("" & r("AvisoId"),) insertBenachrichtigung_AAS(r("AvisoId"), r("SendungsId"), VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(r("FilialenNr")), VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AAE_Benachrichtigung, "AAS: REMINDER 24h", "REMINDER: " & r("Hinweis_Vermerk"), 0, Nothing) - insertVermerk(r("AvisoId"), r("SendungsId"), 115, "(AAS) " & r("Hinweis_Vermerk")) - + ' insertVermerk(r("AvisoId"), r("SendungsId"), 115, "(AAS) " & r("Hinweis_Vermerk")) + MsgBox("2") Next End If Catch ex As Exception @@ -4310,11 +4311,9 @@ Public Class frmStartOptions Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben 'Nicht Case Else - MsgBox("!!!!!" & sendToID) - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, code, art, sendToID, TXT_AAS_HEAD, prio, , TXT_AAS_BODY.Trim,,, firma, VermerkID) insertVermerk(AvisoId, SendungsId, 115, "(AAS) " & TXT_AAS_BODY) - + cVermerkeDAL.increaseWarnstufe(VermerkID) End Select ' End If End If