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

Änderungen an Invoices.aspx

Browse Source
This commit is contained in:
ja
2021-10-28 16:45:08 +02:00
parent 97a09e92a2
commit 3b94b2c491
1 changed files with 20 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
Customers/Invoices.aspx.vb
View File

@@ -270,10 +270,11 @@ Partial Class Customers_Invoices
Protected Sub Send_Data_Click(sender As Object, e As EventArgs) Protected Sub Send_Data_Click(sender As Object, e As EventArgs)
dt = Nothing dt = Nothing
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
valreq_pickdate1.Validate() valreq_pickdate1.Validate()
valreq_pickdate2.Validate() valreq_pickdate2.Validate()
If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid AndAlso Kdnrtext = Not "" Then If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid And Kdnrtext = Not "" Then
If txt_Absender.Text IsNot "" Then If txt_Absender.Text IsNot "" Then
regexval_txt_Absender.Enabled = True regexval_txt_Absender.Enabled = True
regexval_txt_Absender.Validate() regexval_txt_Absender.Validate()
@@ -285,7 +286,7 @@ Partial Class Customers_Invoices
Absender = String.Empty Absender = String.Empty
End If End If
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_Empfaenger.Text IsNot "" Then If txt_Empfaenger.Text IsNot "" Then
@@ -299,7 +300,7 @@ Partial Class Customers_Invoices
Empfaenger = String.Empty Empfaenger = String.Empty
End If End If
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_KdNrAuftrag.Text IsNot "" Then If txt_KdNrAuftrag.Text IsNot "" Then
@@ -313,7 +314,7 @@ Partial Class Customers_Invoices
KDNAFNR = String.Empty KDNAFNR = String.Empty
End If End If
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_LKWNr.Text IsNot "" Then If txt_LKWNr.Text IsNot "" Then
@@ -327,7 +328,7 @@ Partial Class Customers_Invoices
LKWNR = String.Empty LKWNR = String.Empty
End If End If
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_ReNr.Text IsNot "" Then If txt_ReNr.Text IsNot "" Then
@@ -341,7 +342,7 @@ Partial Class Customers_Invoices
reNr = String.Empty reNr = String.Empty
End If End If
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
@@ -350,7 +351,7 @@ Partial Class Customers_Invoices
Try Try
Absender = txt_Absender_M.Text Absender = txt_Absender_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_Empfaenger_M.Text IsNot "" Then If txt_Empfaenger_M.Text IsNot "" Then
@@ -358,7 +359,7 @@ Partial Class Customers_Invoices
Try Try
Empfaenger = txt_Empfaenger_M.Text Empfaenger = txt_Empfaenger_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_KdNrAuftrag_M.Text IsNot "" Then If txt_KdNrAuftrag_M.Text IsNot "" Then
@@ -366,7 +367,7 @@ Partial Class Customers_Invoices
Try Try
KDNAFNR = txt_KdNrAuftrag_M.Text KDNAFNR = txt_KdNrAuftrag_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_LKWNr_M.Text IsNot "" Then If txt_LKWNr_M.Text IsNot "" Then
@@ -374,7 +375,7 @@ Partial Class Customers_Invoices
Try Try
LKWNR = txt_LKWNr_M.Text LKWNR = txt_LKWNr_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
If txt_ReNr_M.Text IsNot "" Then If txt_ReNr_M.Text IsNot "" Then
@@ -382,11 +383,10 @@ Partial Class Customers_Invoices
Try Try
reNr = txt_ReNr_M.Text reNr = txt_ReNr_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message)
End Try End Try
End If End If
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try Try
Dim erster = New Date(Now().Year, Now().Month, 1) Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -409,7 +409,7 @@ Partial Class Customers_Invoices
End If End If
Kdnrtext = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("P4")) Kdnrtext = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("P4"))
MsgBox(Kdnrtext) 'MsgBox(Kdnrtext)
If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToString) = False And String.IsNullOrEmpty(datebis.ToString) = False Then If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToString) = False And String.IsNullOrEmpty(datebis.ToString) = False Then
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf String.IsNullOrEmpty(Kdnrtext) = True Or String.IsNullOrEmpty(datevon.ToString) = True And String.IsNullOrEmpty(datebis.ToString) = True And String.IsNullOrEmpty(reNr) = True And String.IsNullOrEmpty(Absender) = False And String.IsNullOrEmpty(LKWNR) = False And String.IsNullOrEmpty(Empfaenger) = False And String.IsNullOrEmpty(KDNAFNR) = False Then ElseIf String.IsNullOrEmpty(Kdnrtext) = True Or String.IsNullOrEmpty(datevon.ToString) = True And String.IsNullOrEmpty(datebis.ToString) = True And String.IsNullOrEmpty(reNr) = True And String.IsNullOrEmpty(Absender) = False And String.IsNullOrEmpty(LKWNR) = False And String.IsNullOrEmpty(Empfaenger) = False And String.IsNullOrEmpty(KDNAFNR) = False Then
@@ -436,14 +436,12 @@ Partial Class Customers_Invoices
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellIndex.Text = zahl tbl_CellIndex.Text = zahl
tr.Cells.Add(tbl_CellIndex) tr.Cells.Add(tbl_CellIndex)
initcells(tr, tbl_CellIndex, tbl_CellRENr, tbl_CellLKWs, tbl_Cell_Auftragsdatum, tbl_CellKundAuftNr, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundAuftrNr, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info)
tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString
tr.Cells.Add(tbl_CellLKWs)
tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellRENr.Text = d.RechnungsNr.ToString tbl_CellRENr.Text = d.RechnungsNr.ToString
tr.Cells.Add(tbl_CellRENr) tr.Cells.Add(tbl_CellRENr)
tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString
tr.Cells.Add(tbl_CellLKWs)
tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString
tr.Cells.Add(tbl_Cell_Auftragsdatum) tr.Cells.Add(tbl_Cell_Auftragsdatum)
@@ -465,11 +463,11 @@ Partial Class Customers_Invoices
'btn.Attributes.Add("Text", <img src= width="15" height="15"/>) 'btn.Attributes.Add("Text", <img src= width="15" height="15"/>)
btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString) btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString)
btn.Attributes.Add("target", "_blank") btn.Attributes.Add("target", "_blank")
btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString
tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellInfo.Controls.Add(btn) tbl_CellInfo.Controls.Add(btn)
tr.Cells.Add(tbl_CellInfo) tr.Cells.Add(tbl_CellInfo)
initcells(tr, tbl_CellIndex, tbl_CellRENr, tbl_CellLKWs, tbl_Cell_Auftragsdatum, tbl_CellKundAuftNr, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundAuftrNr, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info)
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
i += 1 i += 1
@@ -486,9 +484,4 @@ Partial Class Customers_Invoices
End If End If
End If End If
End Sub End Sub
End Class End Class