BH, Kundenkontakte, MD;
This commit is contained in:
@@ -367,7 +367,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
loaded = True
|
||||
allowGetValues = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -489,7 +489,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
' dgvOfferteDetailsUebersicht.Rows(dgvOfferteDetailsUebersicht.Rows.Count - 1).Cells("BerechnungsartNr").Value = POS.BerechnungsartNr
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
@@ -796,7 +796,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
ToolTip.SetToolTip(pic, InfoText.Trim)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -869,7 +869,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
txtBesonderheiten.Visible = Not rtbAbf_Besonderheiten.Visible
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -1346,7 +1346,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
loaded = loadedtmp
|
||||
End Sub
|
||||
@@ -1438,7 +1438,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
RECHNUNG.POSITIONEN.Add(POS) 'ALLE HINENLADEN! --> Sonst Proglem mit SVS/VP/KA
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Dim loadedTmp = loaded
|
||||
@@ -2934,7 +2934,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
If loaded Then przRefreshDGV_Positionen() 'wegen SVS
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -3167,7 +3167,7 @@ Nächste_Textzeile_lesen:
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
@@ -3854,7 +3854,7 @@ Nächste_Textzeile_lesen:
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -3864,40 +3864,46 @@ Nächste_Textzeile_lesen:
|
||||
End Sub
|
||||
|
||||
Private Sub AbsenderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbsenderToolStripMenuItem.Click, EmpfängerToolStripMenuItem.Click, AuftraggeberToolStripMenuItem.Click, AvisiererToolStripMenuItem.Click
|
||||
If cboRechnungAn._value = "" Then Exit Sub
|
||||
getValues()
|
||||
Dim ROLLE = "AUFTRAGGEBER"
|
||||
Try
|
||||
|
||||
Dim FirmaFrm = (RECHNUNG.RechnungsName_1 & " " & If(RECHNUNG.RechnungsName_2, "")).trim
|
||||
Dim kdnrFrm As Integer = RECHNUNG.RechnungsKundenNr
|
||||
|
||||
Select Case sender.text.ToString.Substring(0, 1) 'cboRechnungAn._value
|
||||
Case "1"
|
||||
ROLLE = "ABSENDER"
|
||||
FirmaFrm = (RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "")).trim
|
||||
kdnrFrm = RECHNUNG.AbsenderKundenNr
|
||||
Case "2"
|
||||
ROLLE = "EMPFAENGER"
|
||||
FirmaFrm = (RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "")).trim
|
||||
kdnrFrm = RECHNUNG.EmpfängerKundenNr
|
||||
Case "3"
|
||||
ROLLE = "AUFTRAGGEBER"
|
||||
FirmaFrm = (RECHNUNG.VermittlerName_1 & " " & If(RECHNUNG.VermittlerName_2, "")).trim
|
||||
kdnrFrm = RECHNUNG.VermittlerKundenNr
|
||||
Case "4"
|
||||
ROLLE = "AVISIERER"
|
||||
FirmaFrm = (RECHNUNG.Avisierer)
|
||||
kdnrFrm = RECHNUNG.AvisiererKundenNr
|
||||
End Select
|
||||
If SPEDBUCH IsNot Nothing Then
|
||||
If cboRechnungAn._value = "" Then Exit Sub
|
||||
getValues()
|
||||
Dim ROLLE = "AUFTRAGGEBER"
|
||||
|
||||
Dim SENDUNG As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID)
|
||||
Dim AVISODAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
Dim AVISO = AVISODAL.LesenAviso(SPEDBUCH.AvisoID, "")
|
||||
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG, AVISO, ROLLE, -1, True})
|
||||
Else
|
||||
MsgBox("Speditionsbuch Eintrag nicht gefunden.")
|
||||
End If
|
||||
Dim FirmaFrm = (RECHNUNG.RechnungsName_1 & " " & If(RECHNUNG.RechnungsName_2, "")).trim
|
||||
Dim kdnrFrm As Integer = RECHNUNG.RechnungsKundenNr
|
||||
|
||||
Select Case sender.text.ToString.Substring(0, 1) 'cboRechnungAn._value
|
||||
Case "1"
|
||||
ROLLE = "ABSENDER"
|
||||
FirmaFrm = (RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "")).trim
|
||||
kdnrFrm = RECHNUNG.AbsenderKundenNr
|
||||
Case "2"
|
||||
ROLLE = "EMPFAENGER"
|
||||
FirmaFrm = (RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "")).trim
|
||||
kdnrFrm = RECHNUNG.EmpfängerKundenNr
|
||||
Case "3"
|
||||
ROLLE = "AUFTRAGGEBER"
|
||||
FirmaFrm = (RECHNUNG.VermittlerName_1 & " " & If(RECHNUNG.VermittlerName_2, "")).trim
|
||||
kdnrFrm = RECHNUNG.VermittlerKundenNr
|
||||
Case "4"
|
||||
ROLLE = "AVISIERER"
|
||||
FirmaFrm = (RECHNUNG.Avisierer)
|
||||
kdnrFrm = RECHNUNG.AvisiererKundenNr
|
||||
End Select
|
||||
If SPEDBUCH IsNot Nothing Then
|
||||
|
||||
Dim SENDUNG As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID)
|
||||
Dim AVISODAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
Dim AVISO = AVISODAL.LesenAviso(SPEDBUCH.AvisoID, "")
|
||||
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG, AVISO, ROLLE, -1, True})
|
||||
Else
|
||||
MsgBox("Speditionsbuch Eintrag nicht gefunden.")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub SeperateRechnungFürEUSTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SeperateRechnungFürEUSTToolStripMenuItem.Click
|
||||
|
||||
Reference in New Issue
Block a user