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

SEndungsdetails ATilla

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-19 10:50:13 +01:00
parent 390d5353f2
commit 7823d11489
19 changed files with 2603 additions and 4038 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
Aviso/frmEintragAviso.vb
View File

@@ -1078,29 +1078,32 @@ Public Class frmEintragAviso
' Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
Select Case FIRMA_TMP
Case "ATILLA"
Try
'ATILLA AKTENZETTEL DRUCKEN
If Neuanlage Then
If ATILLA_NEUERAKTENDECKEL Then
Dim abfnr_tmp As Object = DBNull.Value
Dim sndId = -1
Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
loadInSND(TMP_SND_Atilla)
End If
End If
Else
loadInSND(TMP_SND_Atilla)
End If
If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX"
'Case "ATILLA"
' Try
' 'ATILLA AKTENZETTEL DRUCKEN
' If Neuanlage Then
' If ATILLA_NEUERAKTENDECKEL Then
' Dim abfnr_tmp As Object = DBNull.Value
' Dim sndId = -1
' Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
' If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
' getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
' MsgBox(filiale_tmp & "/" & abfnr_tmp)
' If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT
' TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
' loadInSND(TMP_SND_Atilla)
' End If
' End If
' Else
' loadInSND(TMP_SND_Atilla)
' End If
' If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX", "ATILLA"
Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
'Die Sendungen eintragen:
@@ -1112,6 +1115,11 @@ Public Class frmEintragAviso
showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
Else
Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
Select Case FIRMA_TMP
Case "ATILLA"
filiale_tmp = 4801
If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
End Select
Dim gesAnzSnd = initSndAnzahl()
@@ -1136,7 +1144,17 @@ Public Class frmEintragAviso
tblSnd_Auftraggeber = kdAvisierer.Text
End If
AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT
Dim sndId = -1
If AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, remd, sndId) Then ' INSERT
If FIRMA_TMP = "ATILLA" Then
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
loadInSND(TMP_SND_Atilla)
End If
End If
Next
End If
@@ -1259,9 +1277,9 @@ Public Class frmEintragAviso
Sub loadInSND(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
If SND IsNot Nothing Then
SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
' SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
' SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
' SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
SND.tblSnd_Anmerkung = (UsrCntlEintragAvisoAtilla.txtAnmerkung.Text)