Kd VeranlKd,Aviso Birthday
This commit is contained in:
@@ -36,6 +36,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
|
||||
Dim listOfTextconserven
|
||||
|
||||
Dim cntVeranlagungsRg = 0
|
||||
|
||||
Sub New()
|
||||
InitializeComponent()
|
||||
@@ -119,7 +120,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
loadDataInLIST()
|
||||
|
||||
|
||||
doVeranlagungsValidation()
|
||||
If VALIDATE_ME() Then
|
||||
|
||||
SAVE_ME = True
|
||||
@@ -143,20 +144,45 @@ Public Class frmSendungsdetailsNEU
|
||||
End If
|
||||
End Function
|
||||
|
||||
Function VALIDATE_ME() As Boolean
|
||||
Sub doVeranlagungsValidation()
|
||||
cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0")
|
||||
End Sub
|
||||
Function VALIDATE_ME(Optional showErr = True) As Boolean
|
||||
pnlValidation.Visible = False
|
||||
|
||||
rtbValidierung.Text = ""
|
||||
'Dim returnValue = True
|
||||
|
||||
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
|
||||
lblErr_AvisiererKdNr.Visible = False
|
||||
lblErr_EmpfKdNr.Visible = False
|
||||
lblErr_FraechterKdNr.Visible = False
|
||||
|
||||
|
||||
'--------------------------------------------------
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
|
||||
Return True
|
||||
End If
|
||||
|
||||
'--------------------------------------------------
|
||||
If (txtAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) Or (txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
|
||||
If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
|
||||
End If
|
||||
|
||||
If (txtAbsender.KdData_KUNDE_ERW Is Nothing OrElse Not txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) And (txtAuftraggeber.KdData_KUNDE_ERW Is Nothing OrElse Not txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
|
||||
If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
|
||||
End If
|
||||
'--------------------------------------------------
|
||||
|
||||
'Aktuell noch nicht!
|
||||
'Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
|
||||
' Case <= 0, 10
|
||||
' Case Else
|
||||
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
|
||||
' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
|
||||
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
|
||||
'End Select
|
||||
Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
|
||||
Case <= 0, 10
|
||||
Case Else
|
||||
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
|
||||
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False
|
||||
End Select
|
||||
If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
|
||||
@@ -164,11 +190,32 @@ Public Class frmSendungsdetailsNEU
|
||||
Else
|
||||
If FilialeAktFirma <> "" Then
|
||||
If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
|
||||
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
|
||||
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
|
||||
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
|
||||
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
|
||||
If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
|
||||
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then
|
||||
Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
|
||||
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
|
||||
If showErr Then MsgBox(err) : Return False
|
||||
End If
|
||||
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then
|
||||
Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
|
||||
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
|
||||
If showErr Then MsgBox(err) : Return False
|
||||
End If
|
||||
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then
|
||||
Dim err = "- Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
|
||||
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
|
||||
If showErr Then MsgBox(err) : Return False
|
||||
End If
|
||||
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then
|
||||
Dim err = "- Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
|
||||
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
|
||||
If showErr Then MsgBox(err) : Return False
|
||||
End If
|
||||
If Not txtAbsender.checkFirma(FilialeAktFirma) Then
|
||||
Dim err = "- Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
|
||||
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
|
||||
If showErr Then MsgBox(err) : Return False
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -187,7 +234,9 @@ Public Class frmSendungsdetailsNEU
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
|
||||
MsgBox("ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False
|
||||
Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte."
|
||||
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
|
||||
If showErr Then MsgBox(err) : Return False
|
||||
End If
|
||||
|
||||
|
||||
@@ -200,12 +249,13 @@ Public Class frmSendungsdetailsNEU
|
||||
If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or
|
||||
(cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or
|
||||
(cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then
|
||||
If MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
|
||||
If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
' pnlValidation.Visible = rtbValidierung.Text <> ""
|
||||
Return True
|
||||
End Function
|
||||
|
||||
@@ -1344,6 +1394,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
setVorpapiere()
|
||||
|
||||
doVeranlagungsValidation()
|
||||
|
||||
initFraechterAvisererFromAkt()
|
||||
''Übergangsphase Aviso/Sendung
|
||||
@@ -3258,9 +3309,9 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Sub initAnhang()
|
||||
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert
|
||||
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert
|
||||
FROM [tblAvisoAnhaenge]
|
||||
left join tblAvisoAnhangsArten on aa_name = anh_Art
|
||||
left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art
|
||||
WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
|
||||
ORDER BY anh_SendungsId desc, case when aa_sort = NULL THEN 15 else aa_sort END, [anh_Reihenfolge],[anh_id]"
|
||||
|
||||
@@ -6858,4 +6909,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick
|
||||
VALIDATE_ME(False)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user