Änderungen Invoices neugeschrieben
This commit is contained in:
ja
@@ -1,10 +1,10 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="true" CodeFile="Invoices.aspx.vb" Inherits="Customers_Invoices" %>
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Invoices.aspx.vb" Inherits="Customers_Default3" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="head" Runat="Server">
|
||||
<!-- Bootstrap -->
|
||||
<html lang="en"></html>
|
||||
|
||||
<!-- Required meta tags -->
|
||||
<meta charset="utf-8"/>
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1"/>
|
||||
@@ -28,6 +28,7 @@
|
||||
<link rel="stylesheet" type="text/css" href="../css/navbarsidebar2.css"/>
|
||||
<link rel="stylesheet" type="text/css" href="../css/Customers/Invoices.css"/>
|
||||
</asp:Content>
|
||||
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
|
||||
<asp:ScriptManager ID="script1" runat="server"></asp:ScriptManager>
|
||||
<asp:UpdatePanel ID="panelupdate1" runat="server"><ContentTemplate>
|
||||
@@ -39,7 +40,6 @@
|
||||
<div id="line" style="width:92%;"></div>
|
||||
<br />
|
||||
<h3>Hier finden Sie Informationen zu Ihren aktuellen Rechnungen</h3>
|
||||
</div>
|
||||
<%Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
||||
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
|
||||
@@ -62,151 +62,70 @@
|
||||
<div>
|
||||
<div style="height:0.936768149882904vh"></div>
|
||||
<div class="col-12" style="margin-left:2px">
|
||||
<h2><%=Server.HtmlEncode("Rechnungen:") %></h2>
|
||||
<h2><%=Server.HtmlEncode("Rechnungen") %></h2>
|
||||
</div>
|
||||
<div style="margin-left:6px">
|
||||
<div class="col-12" style="text-align:end">
|
||||
<asp:LinkButton ID="btn_resetForm" runat="server" onclick="btn_resetForm_Click"><%=Server.HtmlEncode("Reset Form") %></asp:LinkButton>
|
||||
<asp:LinkButton ID="btn_resetForm" runat="server" OnClick="btn_resetForm_Click"><%=Server.HtmlEncode("Reset Formular") %></asp:LinkButton>
|
||||
</div>
|
||||
<div class="d-none d-md-block">
|
||||
<div style="width:780px;margin-left:8px">
|
||||
<asp:Label ID="lbl_ArtderRechnugen" runat="server" Text="Rechnungs-Status:" data-bs-placement="top" title="Wenn nichts angewählt ist, bitte das Datum eingrenzen."></asp:Label>
|
||||
</div>
|
||||
<div class="d-none d-md-block">
|
||||
<div style="width:780px; margin-left:8px">
|
||||
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
|
||||
<!-- Hier könnten rbts hin-->
|
||||
</div>
|
||||
</div>
|
||||
<div class="d-md-none">
|
||||
<div class="col-8" style="margin-left:8px">
|
||||
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
|
||||
<!-- Hier könnten rbts hin-->
|
||||
<!-- Hier könnten rbts hin! -->
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div style="height:0.936768149882904vh"></div>
|
||||
<div class="col-12" id="cont4">
|
||||
<div class="col-12" id="con4">
|
||||
<div class="col-12" id="container2" style="margin-left:2px">
|
||||
<asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>
|
||||
<asp:TextBox ID="pickdate1" Type="Date" CssClass="classTarget" minDate="<%=New Date(Now().Year, Now().Month, 1) %>" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="pickdate1" Display="Dynamic" ID="valreq_pickdate1" runat="server" ErrorMessage="Missing date1"></asp:RequiredFieldValidator>
|
||||
<asp:CustomValidator runat="server" ID="valDateRange_1" ControlToValidate="pickdate1" Display="Dynamic" ErrorMessage="Error in date1" SetFocusOnError="true" ValidationGroup="Datevalid"></asp:CustomValidator>
|
||||
<asp:TextBox ID="pickdate1" Type="Date" CssClass="classTarget" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="pickdate1" Display="Dynamic" ID="valreq_pickdate1" runat="server" ErrorMessage=""></asp:RequiredFieldValidator>
|
||||
<asp:CustomValidator runat="server" ID="valdaterage_1" OnServerValidate="valdaterage_1_ServerValidate" ControlToValidate="pickdate1" Display="Dynamic" ErrorMessage="Error in von" SetFocusOnError="true"></asp:CustomValidator>
|
||||
<asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label>
|
||||
<asp:TextBox ID="pickdate2" Type="Date" CssClass="classTarget" runat="server" minDate="<%= DateTime.Now.Date %>"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="pickdate2" Display="Dynamic" ID="valreq_pickdate2" runat="server" ErrorMessage="Missing date2"></asp:RequiredFieldValidator>
|
||||
<asp:CustomValidator runat="server" ID="valDateRange_2" ControlToValidate="pickdate2" Display="Dynamic" ErrorMessage="Error in date2" SetFocusOnError="true" ValidationGroup="Datevalid"></asp:CustomValidator>
|
||||
<asp:Textbox ID="pickdate2" Type="Date" CssClass="classTarget" runat="server"></asp:Textbox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="pickdate2" Display="Dynamic" ID="valreq_pickdate2" runat="server" ErrorMessage=""></asp:RequiredFieldValidator>
|
||||
<asp:CustomValidator ControlToValidate="pickdate2" runat="server" Display="Dynamic" ID="valdaterange_2" OnServerValidate="valdaterange_2_ServerValidate" ErrorMessage="Error in bis" SetFocusOnError="true"></asp:CustomValidator>
|
||||
</div>
|
||||
<div id="Abstand"></div>
|
||||
<hr>
|
||||
</div>
|
||||
<hr />
|
||||
<div class="col-12" id="cont3">
|
||||
<div class="container">
|
||||
<div id="Abstand"></div>
|
||||
<!--Desktop/Tablet-->
|
||||
<!-- Desktop/Tablet -->
|
||||
<div class="d-none d-md-block">
|
||||
<div class="row">
|
||||
<div id="rowcol1" class="col-12">
|
||||
<form class="myform" id="commentform">
|
||||
<asp:Label ID="lbl_LKWNr" runat="server" Text="LKW Kennzeichen"></asp:Label>
|
||||
<asp:TextBox ID="txt_LKWNr" runat="server" style="width:117px;margin-left:32px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_LKWNr" runat="server" ID="regexval_txt_LKW" ValidationGroup="additional_TXTs" ValidationExpression="[A-Z0-9]{4,30}\d" Display="Dynamic" ErrorMessage="LKW Kennzeichen: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_KdNrAuftrag" runat="server" Text="Kunden Auftrags Nr" style="margin-left:45px"></asp:Label>
|
||||
<asp:TextBox ID="txt_KdNrAuftrag" runat="server" style="width:117px;margin-left:6px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_KdNrAuftrag" runat="server" ID="regexval_txt_KdNrAuftrag" ValidationGroup="additional_TXTs" ValidationExpression="[0-9]{8}" Display="Dynamic" ErrorMessage="Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
<div id="rowcol1" class="row-cols-1">
|
||||
<asp:TextBox ID="txt_LKW" runat="server" PlaceHolder="LKW Kennzeichen" style="width:117px;margin-left:26px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator runat="server" ControlToValidate="txt_LKW" ID="reqval_txt_LKW" Enabled="false"></asp:RequiredFieldValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_LKW" runat="server" ID="regex_txt_LKW" ValidationExpression="[A-Z0-9]{4,30}\d" Display="Dynamic" ErrorMessage="Wrong Plate-Format!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:TextBox ID="txt_KdNrAuftrag" runat="server" PlaceHolder="KundenAuftr-Nr." style="width:117px;margin-left:26px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="txt_KdNrAuftrag" runat="server" Display="Dynamic" ID="reqval_txt_KdNrAuftrag" Enabled="false"></asp:RequiredFieldValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_KdNrAuftrag" runat="server" Display="Dynamic" ValidationExpression="[0-9]{2,8}" ErrorMessage="Wrong Input!"></asp:RegularExpressionValidator>
|
||||
</div>
|
||||
<div id="rowcol2" class="col-12">
|
||||
<form class="myform" id="commentform_2">
|
||||
<asp:Label ID="lbl_Absender" runat="server" Text="Absender"></asp:Label>
|
||||
<asp:TextBox ID="txt_Absender" runat="server" style="width:117px;margin-left:78px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Absender" runat="server" ID="regexval_txt_Absender" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Absender: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_Empfaenger" runat="server" Text="Empfaenger" style="margin-left:45px"></asp:Label>
|
||||
<asp:TextBox id="txt_Empfaenger" runat="server" style="width:155px;margin-left:49px" ></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Empfaenger" runat="server" ID="regexval_txt_Empfaenger" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Empfänger: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
<div id="rowcol3" class="col-12">
|
||||
<form class="myform" id="commentform_3">
|
||||
<asp:Label ID="lbl_ReNr" runat="server" Text="Rechnungs-Nummer:"></asp:Label>
|
||||
<asp:TextBox ID="txt_ReNr" runat="server" style="width:117px;margin-left:8px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_ReNr" runat="server" ID="regexval_txt_ReNr" ValidationGroup="additional_TXTs" ValidationExpression="^([1-9]{8})$" Display="Dynamic" ErrorMessage="Rechnungsnummer: Falsches Format" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<!-- Smartphone-->
|
||||
<div class="d-md-none">
|
||||
<div class="row">
|
||||
<div id="rowcol4" class="col-12 row" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
|
||||
<form class="myform_M" id="commentform_4">
|
||||
<asp:Label ID="lbl_LKWNr_M" runat="server" Text="LKW Kennzeichen"></asp:Label>
|
||||
<asp:TextBox ID="txt_LKWNr_M" runat="server" style="width:105px;margin-left:29px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_LKWNr_M" runat="server" ID="regexval_txt_LKW_M" ValidationGroup="additional_TXTs" ValidationExpression="^([A-Z0-9]{5,30})\d$" Display="Dynamic" ErrorMessage="LKW Kennzeichen: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_KdNrAuftrag_M" runat="server" Text="Kunden Auftrags Nr" ></asp:Label>
|
||||
<asp:TextBox ID="txt_KdNrAuftrag_M" runat="server" style="width:105px;margin-left:13px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_KdNrAuftrag_M" runat="server" ID="regexval_txt_KdNrAuftrag_M" ValidationGroup="additional_TXTs" ValidationExpression="^([0-9]{7})$" Display="Dynamic" ErrorMessage="Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
<div id="rowcol5" class="col-12 row" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
|
||||
<form class="myform_M" id="commentform_5">
|
||||
<asp:Label ID="lbl_Absender_M" runat="server" Text="Absender"></asp:Label>
|
||||
<asp:TextBox ID="txt_Absender_M" runat="server" style="width:105px;margin-left:85px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Absender_M" runat="server" ID="regexval_txt_Absender_M" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Absender: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_Empfaenger_M" runat="server" Text="Empfaenger"></asp:Label>
|
||||
<asp:TextBox id="txt_Empfaenger_M" runat="server" style="width:105px;margin-left:65px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Empfaenger_M" runat="server" ID="regexval_txt_Empfaenger_M" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Empfänger: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
<div id="rowcol6" class="col-12 row" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
|
||||
<form class="myform_M" id="commentform_6">
|
||||
<asp:Label ID="lbl_ReNr_M" runat="server" Text="Rechnungs-Nummer"></asp:Label>
|
||||
<asp:TextBox ID="txt_ReNr_M" runat="server" style="width:105px;margin-left:0px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_ReNr_M" runat="server" ID="regexval_txt_ReNr_M" ValidationGroup="additional_TXTs" ValidationExpression="^([1-9]{8})$" Display="Dynamic" ErrorMessage="Rechnungsnummer: Falsches Format" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="accordion">
|
||||
<div class="accordion" id="accordionExample">
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="headingOne">
|
||||
<button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#collapseOne" aria-expanded="false" aria-controls="collapseOne" style="height:10px">Erweiterte Suche</button>
|
||||
</h2>
|
||||
</div>
|
||||
<asp:HiddenField ID="hfAccordionIndex" runat="server" />
|
||||
<div id="collapseOne" class="accordion-collapse collapse hide" aria-lablledby="headingOne" data-bs-parent="#accordionExample">
|
||||
<div class="card card-body">
|
||||
<!--optionale paramter könnten hier kommen-->
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="Abstand_laenger" style="height: /*24px*/ 1.873536299765808vh;"></div>
|
||||
<asp:Button ID="btn_Send_Data" class="btn btn-primary" runat="server" Text="Erhalte Rechnungen" OnClick="btn_Send_Data_Click" CausesValidation="false" style="font-size:1.33em;width:260px;height:30px;color:#fff" />
|
||||
<div id="rowcol2" class="row-cols-2">
|
||||
<asp:TextBox ID="txt_Absender" runat="server" PlaceHolder="Sender" style="width:117px;margin-left:26px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="txt_Absender" runat="server" Enabled="false"></asp:RequiredFieldValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Absender" runat="server" ID="regex_txt_Absender" ValidationExpression="[a-zA-Z0-9]{90}" SetFocusOnError="true" Display="Dynamic" ErrorMessage="Wrong Input! Try again!"></asp:RegularExpressionValidator>
|
||||
<asp:TextBox ID="txt_Empfaenger" runat="server" PlaceHolder="Receiver" style="width:117px;margin-left:26px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="txt_Empfaenger" runat="server" Enabled="false" ID="reqval_txt_Empfaenger"></asp:RequiredFieldValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Empfaenger" runat="server" ID="regex_txt_Empfaenger" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Empfänger: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
|
||||
<div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
|
||||
<div class="g-3">
|
||||
<div id="conovertab" style="overflow-x:auto;margin-left:-2px">
|
||||
<asp:Table class="table table-responsive table-striped table-table-borderless" ID="normaltable" runat="server" EnableViewState="false" BorderWidth="2px" Width="1200px" style="margin-left:20px;margin-right:auto;">
|
||||
<asp:TableHeaderRow ID="tbl_Header_row" runat="server" style="background-color:#043381;color:#fff">
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server" AbbreviatedText="Index">Index-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_ReNr" runat="server" AbbreviatedText="RNr">Rechnungs-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_LKWNr" runat="server" AbbreviatedText="LKWNr">LKW-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Auftragsdatum" runat="server" AbbreviatedText="AuftrDat">Auftragsdatum</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_KundAuftrNr" runat="server" AbbreviatedText="AuftrNr">Auftrags-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Absender" runat="server" AbbreviatedText="Abs">Absender</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Empfaenger" runat="server" AbbreviatedText="Empf">Empfänger</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Info" runat="server" AbbreviatedText="Info">Info</asp:TableHeaderCell>
|
||||
</asp:TableHeaderRow>
|
||||
</asp:Table>
|
||||
</div>
|
||||
</div>
|
||||
<asp:Label ID="lbl_status" runat="server" Font-Size="16px" ForeColor="Black" Text=""></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<asp:Button ID="Button1" CssClass="btn btn-primary" runat="server" Text="Button" OnClick="btn_b_Click" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<% End If
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1,385 +1,20 @@
|
||||
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Customers_Invoices
|
||||
Partial Class Customers_Default3
|
||||
Inherits System.Web.UI.Page
|
||||
Dim datevon As DateTime
|
||||
Dim datebis As DateTime
|
||||
Dim Kdnrtext As String
|
||||
Dim Absender As String = ""
|
||||
Dim Empfaenger As String = ""
|
||||
Dim LKWNR As String = ""
|
||||
Dim KDNAFNR As String = ""
|
||||
Dim dt As List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
|
||||
Dim reNr As String = ""
|
||||
|
||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
If Me.Page.User.Identity.IsAuthenticated Then
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
|
||||
lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
|
||||
End Try
|
||||
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
||||
DataBind()
|
||||
tbl_Header_row.TableSection = TableRowSection.TableHeader
|
||||
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
|
||||
Page.MaintainScrollPositionOnPostBack = True
|
||||
normaltable.EnableViewState = True
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
Else
|
||||
Page.MaintainScrollPositionOnPostBack = False
|
||||
normaltable.EnableViewState = True
|
||||
lbl_von.Visible = True
|
||||
lbl_bis.Visible = True
|
||||
'valDateRange_1.Enabled = True
|
||||
'valDateRange_2.Enabled = True
|
||||
Dim erster = New Date(Now().Year, Now().Month, 1)
|
||||
Dim ersterdat = "1." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
' lbl_status.Text=ersterdat)
|
||||
datevon = ersterdat
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
pickdate2.Text = Now().ToShortDateString()
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
End If
|
||||
Else
|
||||
FormsAuthentication.RedirectToLoginPage()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
|
||||
Dim white As Drawing.Color = Drawing.Color.White
|
||||
Dim schwarz As Drawing.Color = Drawing.Color.Black
|
||||
Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray
|
||||
Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)
|
||||
|
||||
tr.BackColor = white
|
||||
If t1.Text = "" Then
|
||||
t1.BackColor = white
|
||||
t1.ForeColor = schwarz
|
||||
Else
|
||||
t1.BackColor = white
|
||||
t1.ForeColor = schwarz
|
||||
End If
|
||||
If t2.Text = "" Then
|
||||
t2.BackColor = Drawing.Color.HotPink
|
||||
t2.ForeColor = white
|
||||
Else
|
||||
t2.BackColor = Drawing.Color.Red
|
||||
t2.ForeColor = white
|
||||
End If
|
||||
If t3.Text = "" Then
|
||||
t3.BackColor = white
|
||||
t3.ForeColor = schwarz
|
||||
Else
|
||||
t3.BackColor = white
|
||||
t3.ForeColor = schwarz
|
||||
End If
|
||||
If t4.Text = "" Then
|
||||
t4.BackColor = white
|
||||
t4.ForeColor = schwarz
|
||||
Else
|
||||
t4.BackColor = white
|
||||
t4.ForeColor = schwarz
|
||||
End If
|
||||
If t5.Text = "" Then
|
||||
t5.BackColor = white
|
||||
t5.ForeColor = schwarz
|
||||
Else
|
||||
t5.BackColor = white
|
||||
t5.ForeColor = schwarz
|
||||
End If
|
||||
If t6.Text = "" Then
|
||||
t6.BackColor = white
|
||||
t6.ForeColor = schwarz
|
||||
Else
|
||||
t6.BackColor = white
|
||||
t6.ForeColor = schwarz
|
||||
End If
|
||||
If t7.Text = "" Then
|
||||
t7.BackColor = white
|
||||
t7.ForeColor = schwarz
|
||||
Else
|
||||
t7.BackColor = white
|
||||
t7.ForeColor = schwarz
|
||||
End If
|
||||
If t8.Text = "" Then
|
||||
t8.BackColor = white
|
||||
t8.ForeColor = schwarz
|
||||
Else
|
||||
t8.BackColor = white
|
||||
t8.ForeColor = schwarz
|
||||
End If
|
||||
th1.Font.Bold = True
|
||||
th1.BackColor = darkblue
|
||||
th1.ForeColor = white
|
||||
th2.Font.Bold = True
|
||||
th2.BackColor = darkblue
|
||||
th2.ForeColor = white
|
||||
th3.Font.Bold = True
|
||||
th3.BackColor = darkblue
|
||||
th3.ForeColor = white
|
||||
th4.Font.Bold = True
|
||||
th4.BackColor = darkblue
|
||||
th4.ForeColor = white
|
||||
th5.Font.Bold = True
|
||||
th5.BackColor = darkblue
|
||||
th5.ForeColor = white
|
||||
th6.Font.Bold = True
|
||||
th6.BackColor = darkblue
|
||||
th6.ForeColor = white
|
||||
th7.Font.Bold = True
|
||||
th7.BackColor = darkblue
|
||||
th7.ForeColor = white
|
||||
th8.Font.Bold = True
|
||||
th8.BackColor = darkblue
|
||||
th8.ForeColor = white
|
||||
Protected Sub btn_b_Click(sender As Object, e As EventArgs)
|
||||
MsgBox("Test")
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
|
||||
|
||||
txt_Absender.Text = String.Empty
|
||||
txt_Absender_M.Text = String.Empty
|
||||
txt_Empfaenger.Text = String.Empty
|
||||
txt_Empfaenger_M.Text = String.Empty
|
||||
txt_KdNrAuftrag.Text = String.Empty
|
||||
txt_KdNrAuftrag_M.Text = String.Empty
|
||||
txt_LKWNr.Text = String.Empty
|
||||
txt_LKWNr_M.Text = String.Empty
|
||||
txt_ReNr.Text = String.Empty
|
||||
txt_ReNr_M.Text = String.Empty
|
||||
pickdate1.Text = String.Empty
|
||||
pickdate2.Text = String.Empty
|
||||
|
||||
dt = Nothing
|
||||
Kdnrtext = ""
|
||||
Absender = ""
|
||||
Empfaenger = ""
|
||||
LKWNR = ""
|
||||
KDNAFNR = ""
|
||||
reNr = ""
|
||||
MsgBox("Reset")
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_Send_Data_Click(sender As Object, e As EventArgs)
|
||||
dt = Nothing
|
||||
Protected Sub valdaterage_1_ServerValidate(source As Object, args As ServerValidateEventArgs)
|
||||
|
||||
valreq_pickdate1.Validate()
|
||||
valreq_pickdate2.Validate()
|
||||
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid And Kdnrtext = Not "" Then
|
||||
' valDateRange_1.Validate()
|
||||
'valDateRange_2.Validate()
|
||||
'If valDateRange_1.IsValid And valDateRange_2.IsValid Then
|
||||
If Not String.IsNullOrEmpty(txt_Absender.Text) Then
|
||||
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_Absender.Enabled = True
|
||||
regexval_txt_Absender.Validate()
|
||||
Try
|
||||
If regexval_txt_Absender.IsValid = True Then
|
||||
Absender = txt_Absender.Text
|
||||
Else
|
||||
Absender = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_Empfaenger.Text) Then
|
||||
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_Empfaenger.Enabled = True
|
||||
regexval_txt_Empfaenger.Validate()
|
||||
Try
|
||||
If regexval_txt_Empfaenger.IsValid = True Then
|
||||
Empfaenger = txt_Empfaenger.Text
|
||||
Else
|
||||
Empfaenger = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_KdNrAuftrag.Enabled = True
|
||||
regexval_txt_KdNrAuftrag.Validate()
|
||||
Try
|
||||
If regexval_txt_KdNrAuftrag.IsValid = True Then
|
||||
KDNAFNR = txt_KdNrAuftrag.Text
|
||||
Else
|
||||
KDNAFNR = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_LKWNr.Text) Then
|
||||
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_LKW.Enabled = True
|
||||
regexval_txt_LKW.Validate()
|
||||
Try
|
||||
If regexval_txt_LKW.IsValid = True Then
|
||||
LKWNR = txt_LKWNr.Text
|
||||
Else
|
||||
LKWNR = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_ReNr.Text) Then
|
||||
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_ReNr.Enabled = True
|
||||
regexval_txt_ReNr.Validate()
|
||||
Try
|
||||
If regexval_txt_ReNr.IsValid = True Then
|
||||
reNr = txt_ReNr.Text
|
||||
Else
|
||||
reNr = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_Absender_M.Text) Then
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Absender = txt_Absender_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_Empfaenger_M.Text) Then
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) Then
|
||||
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
|
||||
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
LKWNR = txt_LKWNr_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_ReNr_M.Text) Then
|
||||
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
reNr = txt_ReNr_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
|
||||
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
|
||||
Try
|
||||
Dim erster = New Date(Now().Year, Now().Month, 1)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
' lbl_status.Text=ersterdat)
|
||||
datevon = ersterdat
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||
lbl_status.Text = "Der gewählte Von-Zeitpunkt ist nicht gültig!"
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||
lbl_status.Text = "Der gewählte Bis-Zeitpunkt ist nicht gültig!"
|
||||
End Try
|
||||
End If
|
||||
|
||||
'lbl_status.Text = Kdnrtext
|
||||
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)
|
||||
ElseIf String.IsNullOrEmpty(Kdnrtext) = True And 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
|
||||
lbl_status.Text = "Bitte alle fehlenden Felder ausfüllen!"
|
||||
valreq_pickdate1.Validate()
|
||||
valreq_pickdate2.Validate()
|
||||
End If
|
||||
|
||||
If dt IsNot Nothing AndAlso Not dt.Count = 0 Then
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt
|
||||
Dim tr = New TableRow
|
||||
Dim Cell = New TableCell
|
||||
Dim tbl_CellIndex = New TableCell
|
||||
Dim tbl_CellRENr = New TableCell
|
||||
Dim tbl_Cell_Auftragsdatum = New TableCell
|
||||
Dim tbl_CellAbsender = New TableCell
|
||||
Dim tbl_CellEmpfaenger = New TableCell
|
||||
Dim tbl_CellLKWs = New TableCell
|
||||
Dim tbl_CellKundAuftNr = New TableCell
|
||||
Dim tbl_CellInfo = New TableCell
|
||||
|
||||
Dim zahl = i + 1
|
||||
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellIndex.Text = zahl
|
||||
tr.Cells.Add(tbl_CellIndex)
|
||||
tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellRENr.Text = d.RechnungsNr.ToString
|
||||
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.Text = d.RechnungsDatum.ToString
|
||||
tr.Cells.Add(tbl_Cell_Auftragsdatum)
|
||||
tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellKundAuftNr.Text = d.KdAuftragsNr.ToString
|
||||
tr.Cells.Add(tbl_CellKundAuftNr)
|
||||
tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellAbsender.Text = d.AbsenderName_1.ToString + Space(1) + d.AbsenderName_2.ToString
|
||||
tr.Cells.Add(tbl_CellAbsender)
|
||||
tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellEmpfaenger.Text = d.EmpfängerName_1.ToString + Space(1) + d.EmpfängerName_2.ToString
|
||||
tr.Cells.Add(tbl_CellEmpfaenger)
|
||||
|
||||
Dim btn As New ImageButton
|
||||
btn.ViewStateMode = ViewStateMode.Enabled
|
||||
'btn.Text = "Text"
|
||||
btn.CssClass = "btn btn-primary"
|
||||
btn.ImageUrl = "../images/Icons/service/pdficon.gif"
|
||||
'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("target", "_blank")
|
||||
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.Controls.Add(btn)
|
||||
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)
|
||||
|
||||
i += 1
|
||||
Next
|
||||
Else
|
||||
Dim tbl_cellNothing = New TableCell()
|
||||
tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count
|
||||
tbl_cellNothing.Style.Add("text-align", "center")
|
||||
Dim tr = New TableRow()
|
||||
tr.Style.Add("text-align", "center")
|
||||
tbl_cellNothing.Text = Server.HtmlEncode("Keine Daten gefunden.")
|
||||
tr.Cells.Add(tbl_cellNothing)
|
||||
normaltable.Rows.Add(tr)
|
||||
End If
|
||||
Else
|
||||
lbl_status.Text = "Error in valid date room"
|
||||
End If
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Protected Sub valdaterange_2_ServerValidate(source As Object, args As ServerValidateEventArgs)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
221
Customers/Invoices_old.aspx
Normal file
221
Customers/Invoices_old.aspx
Normal file
@@ -0,0 +1,221 @@
|
||||
<%@ Page Title="Invoices" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="true" CodeFile="Invoices_old.aspx.vb" Inherits="Customers_Invoices" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="head" Runat="Server">
|
||||
<!-- Bootstrap -->
|
||||
|
||||
<!-- Required meta tags -->
|
||||
<meta charset="utf-8"/>
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1"/>
|
||||
<link rel="shortcut icon" href="../images/Icons/favicon/favicon.ico" />
|
||||
<style>
|
||||
.nav-item dropdown::marker {
|
||||
background-color: #fff;
|
||||
font-size: 0;
|
||||
visibility: hidden;
|
||||
color: #043381;
|
||||
}
|
||||
</style>
|
||||
<!-- Bootstrap CSS -->
|
||||
<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-EVSTQN3/azprG1Anm3QDgpJLIm9Nao0Yz1ztcQTwFspd3yD65VohhpuuCOmLASjC" crossorigin="anonymous"/>
|
||||
<link rel="stylesheet" href="https://unpkg.com/bootstrap-table@1.18.3/dist/bootstrap-table.min.css"/>
|
||||
<link rel="stylesheet" type="text/css" href="../css/main.css"/>
|
||||
<link rel="stylesheet" type="text/css" href="../css/style.css"/>
|
||||
<link rel="stylesheet" href="https://unpkg.com/bootstrap-table@1.18.3/dist/bootstrap-table.min.css"/>
|
||||
<link rel="stylesheet" type="text/css" href="../css/Dropdown.css"/>
|
||||
<link rel="stylesheet" type="text/css" href="../css/Customers/MasterpageCustomers.css"/>
|
||||
<link rel="stylesheet" type="text/css" href="../css/navbarsidebar2.css"/>
|
||||
<link rel="stylesheet" type="text/css" href="../css/Customers/Invoices.css"/>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
|
||||
<asp:ScriptManager ID="script1" runat="server"></asp:ScriptManager>
|
||||
<asp:UpdatePanel ID="panelupdate1" runat="server"><ContentTemplate>
|
||||
<!-- Webiste-Content-->
|
||||
<div id="containerseiterand" style="margin-left:auto;margin-right:auto">
|
||||
<div class="container-fluid">
|
||||
<div id="cont1">
|
||||
<h1>Rechnungen</h1>
|
||||
<div id="line" style="width:92%;"></div>
|
||||
<br />
|
||||
<h3>Hier finden Sie Informationen zu Ihren aktuellen Rechnungen</h3>
|
||||
</div>
|
||||
<%Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
||||
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
|
||||
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' MsgBox(VERAGSQL.GetADMINConnectionString())
|
||||
'Response.Write(AD.Ordnungsbegriff)
|
||||
Dim STANDORT = "SUB"
|
||||
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then
|
||||
Try
|
||||
STANDORT = (Request.QueryString("STANDORT"))
|
||||
Catch ex As Exception
|
||||
STANDORT = "SUB"
|
||||
End Try
|
||||
End If
|
||||
If True Then
|
||||
Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT)
|
||||
If AVISO_dt IsNot Nothing Then
|
||||
If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE'%>
|
||||
<div class="col-12" style="margin-left:4px">
|
||||
<div>
|
||||
<div style="height:0.936768149882904vh"></div>
|
||||
<div class="col-12" style="margin-left:2px">
|
||||
<h2><%=Server.HtmlEncode("Rechnungen:") %></h2>
|
||||
</div>
|
||||
<div style="margin-left:6px">
|
||||
<div class="col-12" style="text-align:end">
|
||||
<asp:LinkButton ID="btn_resetForm" runat="server" onclick="btn_resetForm_Click"><%=Server.HtmlEncode("Reset Form") %></asp:LinkButton>
|
||||
</div>
|
||||
<div class="d-none d-md-block">
|
||||
<div style="width:780px;margin-left:8px">
|
||||
<asp:Label ID="lbl_ArtderRechnugen" runat="server" Text="Rechnungs-Status:" data-bs-placement="top" title="Wenn nichts angewählt ist, bitte das Datum eingrenzen."></asp:Label>
|
||||
</div>
|
||||
<div class="d-none d-md-block">
|
||||
<div style="width:780px; margin-left:8px">
|
||||
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
|
||||
<!-- Hier könnten rbts hin-->
|
||||
</div>
|
||||
</div>
|
||||
<div class="d-md-none">
|
||||
<div class="col-8" style="margin-left:8px">
|
||||
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
|
||||
<!-- Hier könnten rbts hin-->
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div style="height:0.936768149882904vh"></div>
|
||||
<div class="col-12" id="cont4">
|
||||
<div class="col-12" id="container2" style="margin-left:2px">
|
||||
<asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>
|
||||
<asp:TextBox ID="pickdate1" Type="Date" CssClass="classTarget" minDate="<%=New Date(Now().Year, Now().Month, 1) %>" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="pickdate1" Display="Dynamic" ID="valreq_pickdate1" runat="server" ErrorMessage="Missing date1"></asp:RequiredFieldValidator>
|
||||
<asp:CustomValidator runat="server" ID="valDateRange_1" ControlToValidate="pickdate1" Display="Dynamic" ErrorMessage="Error in date1" SetFocusOnError="true" ValidationGroup="Datevalid"></asp:CustomValidator>
|
||||
<asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label>
|
||||
<asp:TextBox ID="pickdate2" Type="Date" CssClass="classTarget" runat="server" minDate="<%= DateTime.Now.Date %>"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ControlToValidate="pickdate2" Display="Dynamic" ID="valreq_pickdate2" runat="server" ErrorMessage="Missing date2"></asp:RequiredFieldValidator>
|
||||
<asp:CustomValidator runat="server" ID="valDateRange_2" ControlToValidate="pickdate2" Display="Dynamic" ErrorMessage="Error in date2" SetFocusOnError="true" ValidationGroup="Datevalid"></asp:CustomValidator>
|
||||
</div>
|
||||
<div id="Abstand"></div>
|
||||
<hr>
|
||||
<div class="col-12" id="cont3">
|
||||
<div class="container">
|
||||
<div id="Abstand"></div>
|
||||
<!--Desktop/Tablet-->
|
||||
<div class="d-none d-md-block">
|
||||
<div class="row">
|
||||
<div id="rowcol1" class="col-12">
|
||||
<form class="myform" id="commentform">
|
||||
<asp:Label ID="lbl_LKWNr" runat="server" Text="LKW Kennzeichen"></asp:Label>
|
||||
<asp:TextBox ID="txt_LKWNr" runat="server" style="width:117px;margin-left:32px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_LKWNr" runat="server" ID="regexval_txt_LKW" ValidationGroup="additional_TXTs" ValidationExpression="[A-Z0-9]{4,30}\d" Display="Dynamic" ErrorMessage="LKW Kennzeichen: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_KdNrAuftrag" runat="server" Text="Kunden Auftrags Nr" style="margin-left:45px"></asp:Label>
|
||||
<asp:TextBox ID="txt_KdNrAuftrag" runat="server" style="width:117px;margin-left:6px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_KdNrAuftrag" runat="server" ID="regexval_txt_KdNrAuftrag" ValidationGroup="additional_TXTs" ValidationExpression="[0-9]{8}" Display="Dynamic" ErrorMessage="Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
<div id="rowcol2" class="col-12">
|
||||
<form class="myform" id="commentform_2">
|
||||
<asp:Label ID="lbl_Absender" runat="server" Text="Absender"></asp:Label>
|
||||
<asp:TextBox ID="txt_Absender" runat="server" style="width:117px;margin-left:78px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Absender" runat="server" ID="regexval_txt_Absender" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Absender: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_Empfaenger" runat="server" Text="Empfaenger" style="margin-left:45px"></asp:Label>
|
||||
<asp:TextBox id="txt_Empfaenger" runat="server" style="width:155px;margin-left:49px" ></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Empfaenger" runat="server" ID="regexval_txt_Empfaenger" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Empfänger: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
<div id="rowcol3" class="col-12">
|
||||
<form class="myform" id="commentform_3">
|
||||
<asp:Label ID="lbl_ReNr" runat="server" Text="Rechnungs-Nummer:"></asp:Label>
|
||||
<asp:TextBox ID="txt_ReNr" runat="server" style="width:117px;margin-left:8px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_ReNr" runat="server" ID="regexval_txt_ReNr" ValidationGroup="additional_TXTs" ValidationExpression="^([1-9]{8})$" Display="Dynamic" ErrorMessage="Rechnungsnummer: Falsches Format" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<!-- Smartphone-->
|
||||
<div class="d-md-none">
|
||||
<div class="row">
|
||||
<div id="rowcol4" class="col-12 row" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
|
||||
<form class="myform_M" id="commentform_4">
|
||||
<asp:Label ID="lbl_LKWNr_M" runat="server" Text="LKW Kennzeichen"></asp:Label>
|
||||
<asp:TextBox ID="txt_LKWNr_M" runat="server" style="width:105px;margin-left:29px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_LKWNr_M" runat="server" ID="regexval_txt_LKW_M" ValidationGroup="additional_TXTs" ValidationExpression="^([A-Z0-9]{5,30})\d$" Display="Dynamic" ErrorMessage="LKW Kennzeichen: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_KdNrAuftrag_M" runat="server" Text="Kunden Auftrags Nr" ></asp:Label>
|
||||
<asp:TextBox ID="txt_KdNrAuftrag_M" runat="server" style="width:105px;margin-left:13px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_KdNrAuftrag_M" runat="server" ID="regexval_txt_KdNrAuftrag_M" ValidationGroup="additional_TXTs" ValidationExpression="^([0-9]{7})$" Display="Dynamic" ErrorMessage="Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
<div id="rowcol5" class="col-12 row" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
|
||||
<form class="myform_M" id="commentform_5">
|
||||
<asp:Label ID="lbl_Absender_M" runat="server" Text="Absender"></asp:Label>
|
||||
<asp:TextBox ID="txt_Absender_M" runat="server" style="width:105px;margin-left:85px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Absender_M" runat="server" ID="regexval_txt_Absender_M" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Absender: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_Empfaenger_M" runat="server" Text="Empfaenger"></asp:Label>
|
||||
<asp:TextBox id="txt_Empfaenger_M" runat="server" style="width:105px;margin-left:65px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Empfaenger_M" runat="server" ID="regexval_txt_Empfaenger_M" ValidationGroup="additional_TXTs" ValidationExpression="[a-zA-Z0-9]{90}" Display="Dynamic" ErrorMessage="Empfänger: Falsche Eingabe!" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
<div id="rowcol6" class="col-12 row" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
|
||||
<form class="myform_M" id="commentform_6">
|
||||
<asp:Label ID="lbl_ReNr_M" runat="server" Text="Rechnungs-Nummer"></asp:Label>
|
||||
<asp:TextBox ID="txt_ReNr_M" runat="server" style="width:105px;margin-left:0px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_ReNr_M" runat="server" ID="regexval_txt_ReNr_M" ValidationGroup="additional_TXTs" ValidationExpression="^([1-9]{8})$" Display="Dynamic" ErrorMessage="Rechnungsnummer: Falsches Format" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</form>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="accordion">
|
||||
<div class="accordion" id="accordionExample">
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="headingOne">
|
||||
<button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#collapseOne" aria-expanded="false" aria-controls="collapseOne" style="height:10px">Erweiterte Suche</button>
|
||||
</h2>
|
||||
</div>
|
||||
<asp:HiddenField ID="hfAccordionIndex" runat="server" />
|
||||
<div id="collapseOne" class="accordion-collapse collapse hide" aria-lablledby="headingOne" data-bs-parent="#accordionExample">
|
||||
<div class="card card-body">
|
||||
<!--optionale paramter könnten hier kommen-->
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="Abstand_laenger" style="height: /*24px*/ 1.873536299765808vh;"></div>
|
||||
<asp:Button ID="btn_Send_Data" class="btn btn-primary" runat="server" Text="Erhalte Rechnungen" OnClick="btn_Send_Data_Click" CausesValidation="false" style="font-size:1.33em;width:260px;height:30px;color:#fff" />
|
||||
|
||||
<div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
|
||||
<div class="g-3">
|
||||
<div id="conovertab" style="overflow-x:auto;margin-left:-2px">
|
||||
<asp:Table class="table table-responsive table-striped table-table-borderless" ID="normaltable" runat="server" EnableViewState="false" BorderWidth="2px" Width="1230px" style="margin-right:auto;">
|
||||
<asp:TableHeaderRow ID="tbl_Header_row" runat="server" style="background-color:#043381;color:#fff">
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server" AbbreviatedText="Index">Index-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_ReNr" runat="server" AbbreviatedText="RNr">Rechnungs-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_LKWNr" runat="server" AbbreviatedText="LKWNr">LKW-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Auftragsdatum" runat="server" AbbreviatedText="AuftrDat">Auftragsdatum</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_KundAuftrNr" runat="server" AbbreviatedText="AuftrNr">Auftrags-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Absender" runat="server" AbbreviatedText="Abs">Absender</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Empfaenger" runat="server" AbbreviatedText="Empf">Empfänger</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_Info" runat="server" AbbreviatedText="Info">Info</asp:TableHeaderCell>
|
||||
</asp:TableHeaderRow>
|
||||
</asp:Table>
|
||||
</div>
|
||||
</div>
|
||||
<asp:Label ID="lbl_status" runat="server" Font-Size="16px" ForeColor="Black" Text=""></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<% End If
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Response.Write(ex.Message & ex.StackTrace)
|
||||
End Try %>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate></asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
|
||||
384
Customers/Invoices_old.aspx.vb
Normal file
384
Customers/Invoices_old.aspx.vb
Normal file
@@ -0,0 +1,384 @@
|
||||
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Customers_Invoices
|
||||
Inherits System.Web.UI.Page
|
||||
Dim datevon As DateTime
|
||||
Dim datebis As DateTime
|
||||
Dim Kdnrtext As String
|
||||
Dim Absender As String = ""
|
||||
Dim Empfaenger As String = ""
|
||||
Dim LKWNR As String = ""
|
||||
Dim KDNAFNR As String = ""
|
||||
Dim dt As List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
|
||||
Dim reNr As String = ""
|
||||
|
||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
If Me.Page.User.Identity.IsAuthenticated Then
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
|
||||
lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
|
||||
End Try
|
||||
|
||||
DataBind()
|
||||
tbl_Header_row.TableSection = TableRowSection.TableHeader
|
||||
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
|
||||
Page.MaintainScrollPositionOnPostBack = True
|
||||
normaltable.EnableViewState = True
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
Else
|
||||
Page.MaintainScrollPositionOnPostBack = False
|
||||
normaltable.EnableViewState = True
|
||||
lbl_von.Visible = True
|
||||
lbl_bis.Visible = True
|
||||
'valDateRange_1.Enabled = True
|
||||
'valDateRange_2.Enabled = True
|
||||
Dim erster = New Date(Now().Year, Now().Month, 1)
|
||||
Dim ersterdat = "1." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
' lbl_status.Text=ersterdat)
|
||||
datevon = ersterdat
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString)
|
||||
pickdate2.Text = Now().ToShortDateString()
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
End If
|
||||
Else
|
||||
FormsAuthentication.RedirectToLoginPage()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
|
||||
Dim white As Drawing.Color = Drawing.Color.White
|
||||
Dim schwarz As Drawing.Color = Drawing.Color.Black
|
||||
Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray
|
||||
Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)
|
||||
|
||||
tr.BackColor = white
|
||||
If t1.Text = "" Then
|
||||
t1.BackColor = white
|
||||
t1.ForeColor = schwarz
|
||||
Else
|
||||
t1.BackColor = white
|
||||
t1.ForeColor = schwarz
|
||||
End If
|
||||
If t2.Text = "" Then
|
||||
t2.BackColor = Drawing.Color.HotPink
|
||||
t2.ForeColor = white
|
||||
Else
|
||||
t2.BackColor = Drawing.Color.Red
|
||||
t2.ForeColor = white
|
||||
End If
|
||||
If t3.Text = "" Then
|
||||
t3.BackColor = white
|
||||
t3.ForeColor = schwarz
|
||||
Else
|
||||
t3.BackColor = white
|
||||
t3.ForeColor = schwarz
|
||||
End If
|
||||
If t4.Text = "" Then
|
||||
t4.BackColor = white
|
||||
t4.ForeColor = schwarz
|
||||
Else
|
||||
t4.BackColor = white
|
||||
t4.ForeColor = schwarz
|
||||
End If
|
||||
If t5.Text = "" Then
|
||||
t5.BackColor = white
|
||||
t5.ForeColor = schwarz
|
||||
Else
|
||||
t5.BackColor = white
|
||||
t5.ForeColor = schwarz
|
||||
End If
|
||||
If t6.Text = "" Then
|
||||
t6.BackColor = white
|
||||
t6.ForeColor = schwarz
|
||||
Else
|
||||
t6.BackColor = white
|
||||
t6.ForeColor = schwarz
|
||||
End If
|
||||
If t7.Text = "" Then
|
||||
t7.BackColor = white
|
||||
t7.ForeColor = schwarz
|
||||
Else
|
||||
t7.BackColor = white
|
||||
t7.ForeColor = schwarz
|
||||
End If
|
||||
If t8.Text = "" Then
|
||||
t8.BackColor = white
|
||||
t8.ForeColor = schwarz
|
||||
Else
|
||||
t8.BackColor = white
|
||||
t8.ForeColor = schwarz
|
||||
End If
|
||||
th1.Font.Bold = True
|
||||
th1.BackColor = darkblue
|
||||
th1.ForeColor = white
|
||||
th2.Font.Bold = True
|
||||
th2.BackColor = darkblue
|
||||
th2.ForeColor = white
|
||||
th3.Font.Bold = True
|
||||
th3.BackColor = darkblue
|
||||
th3.ForeColor = white
|
||||
th4.Font.Bold = True
|
||||
th4.BackColor = darkblue
|
||||
th4.ForeColor = white
|
||||
th5.Font.Bold = True
|
||||
th5.BackColor = darkblue
|
||||
th5.ForeColor = white
|
||||
th6.Font.Bold = True
|
||||
th6.BackColor = darkblue
|
||||
th6.ForeColor = white
|
||||
th7.Font.Bold = True
|
||||
th7.BackColor = darkblue
|
||||
th7.ForeColor = white
|
||||
th8.Font.Bold = True
|
||||
th8.BackColor = darkblue
|
||||
th8.ForeColor = white
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
|
||||
|
||||
txt_Absender.Text = String.Empty
|
||||
txt_Absender_M.Text = String.Empty
|
||||
txt_Empfaenger.Text = String.Empty
|
||||
txt_Empfaenger_M.Text = String.Empty
|
||||
txt_KdNrAuftrag.Text = String.Empty
|
||||
txt_KdNrAuftrag_M.Text = String.Empty
|
||||
txt_LKWNr.Text = String.Empty
|
||||
txt_LKWNr_M.Text = String.Empty
|
||||
txt_ReNr.Text = String.Empty
|
||||
txt_ReNr_M.Text = String.Empty
|
||||
pickdate1.Text = String.Empty
|
||||
pickdate2.Text = String.Empty
|
||||
|
||||
dt = Nothing
|
||||
Kdnrtext = ""
|
||||
Absender = ""
|
||||
Empfaenger = ""
|
||||
LKWNR = ""
|
||||
KDNAFNR = ""
|
||||
reNr = ""
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_Send_Data_Click(sender As Object, e As EventArgs)
|
||||
dt = Nothing
|
||||
|
||||
valreq_pickdate1.Validate()
|
||||
valreq_pickdate2.Validate()
|
||||
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid And String.IsNullOrEmpty(Kdnrtext) = False Then
|
||||
' valDateRange_1.Validate()
|
||||
'valDateRange_2.Validate()
|
||||
'If valDateRange_1.IsValid And valDateRange_2.IsValid Then
|
||||
If Not String.IsNullOrEmpty(txt_Absender.Text) Then
|
||||
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_Absender.Enabled = True
|
||||
regexval_txt_Absender.Validate()
|
||||
Try
|
||||
If regexval_txt_Absender.IsValid = True Then
|
||||
Absender = txt_Absender.Text
|
||||
Else
|
||||
Absender = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_Empfaenger.Text) Then
|
||||
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_Empfaenger.Enabled = True
|
||||
regexval_txt_Empfaenger.Validate()
|
||||
Try
|
||||
If regexval_txt_Empfaenger.IsValid = True Then
|
||||
Empfaenger = txt_Empfaenger.Text
|
||||
Else
|
||||
Empfaenger = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_KdNrAuftrag.Enabled = True
|
||||
regexval_txt_KdNrAuftrag.Validate()
|
||||
Try
|
||||
If regexval_txt_KdNrAuftrag.IsValid = True Then
|
||||
KDNAFNR = txt_KdNrAuftrag.Text
|
||||
Else
|
||||
KDNAFNR = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_LKWNr.Text) Then
|
||||
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_LKW.Enabled = True
|
||||
regexval_txt_LKW.Validate()
|
||||
Try
|
||||
If regexval_txt_LKW.IsValid = True Then
|
||||
LKWNR = txt_LKWNr.Text
|
||||
Else
|
||||
LKWNR = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_ReNr.Text) Then
|
||||
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_ReNr.Enabled = True
|
||||
regexval_txt_ReNr.Validate()
|
||||
Try
|
||||
If regexval_txt_ReNr.IsValid = True Then
|
||||
reNr = txt_ReNr.Text
|
||||
Else
|
||||
reNr = String.Empty
|
||||
End If
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_Absender_M.Text) Then
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Absender = txt_Absender_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_Empfaenger_M.Text) Then
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) Then
|
||||
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
|
||||
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
LKWNR = txt_LKWNr_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(txt_ReNr_M.Text) Then
|
||||
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
reNr = txt_ReNr_M.Text
|
||||
Catch ex As FormatException
|
||||
lbl_status.Text = ex.Message
|
||||
End Try
|
||||
End If
|
||||
|
||||
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
|
||||
Try
|
||||
Dim erster = New Date(Now().Year, Now().Month, 1)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
' lbl_status.Text=ersterdat)
|
||||
datevon = ersterdat
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||
lbl_status.Text = "Der gewählte Von-Zeitpunkt ist nicht gültig!"
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||
lbl_status.Text = "Der gewählte Bis-Zeitpunkt ist nicht gültig!"
|
||||
End Try
|
||||
End If
|
||||
|
||||
'lbl_status.Text = Kdnrtext
|
||||
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)
|
||||
ElseIf String.IsNullOrEmpty(Kdnrtext) = True And 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
|
||||
lbl_status.Text = "Bitte alle fehlenden Felder ausfüllen!"
|
||||
valreq_pickdate1.Validate()
|
||||
valreq_pickdate2.Validate()
|
||||
End If
|
||||
|
||||
If dt IsNot Nothing AndAlso Not dt.Count = 0 Then
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt
|
||||
Dim tr = New TableRow
|
||||
Dim Cell = New TableCell
|
||||
Dim tbl_CellIndex = New TableCell
|
||||
Dim tbl_CellRENr = New TableCell
|
||||
Dim tbl_Cell_Auftragsdatum = New TableCell
|
||||
Dim tbl_CellAbsender = New TableCell
|
||||
Dim tbl_CellEmpfaenger = New TableCell
|
||||
Dim tbl_CellLKWs = New TableCell
|
||||
Dim tbl_CellKundAuftNr = New TableCell
|
||||
Dim tbl_CellInfo = New TableCell
|
||||
|
||||
Dim zahl = i + 1
|
||||
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellIndex.Text = zahl
|
||||
tr.Cells.Add(tbl_CellIndex)
|
||||
tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellRENr.Text = d.RechnungsNr.ToString
|
||||
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.Text = d.RechnungsDatum.ToString
|
||||
tr.Cells.Add(tbl_Cell_Auftragsdatum)
|
||||
tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellKundAuftNr.Text = d.KdAuftragsNr.ToString
|
||||
tr.Cells.Add(tbl_CellKundAuftNr)
|
||||
tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellAbsender.Text = d.AbsenderName_1.ToString + Space(1) + d.AbsenderName_2.ToString
|
||||
tr.Cells.Add(tbl_CellAbsender)
|
||||
tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellEmpfaenger.Text = d.EmpfängerName_1.ToString + Space(1) + d.EmpfängerName_2.ToString
|
||||
tr.Cells.Add(tbl_CellEmpfaenger)
|
||||
MsgBox(tbl_CellIndex.Text + Environment.NewLine + tbl_CellRENr.Text + Environment.NewLine + tbl_CellLKWs.Text + Environment.NewLine + tbl_Cell_Auftragsdatum.Text + Environment.NewLine + tbl_CellAbsender.Text + Environment.NewLine + tbl_CellEmpfaenger.Text)
|
||||
Dim btn As New ImageButton
|
||||
btn.ViewStateMode = ViewStateMode.Enabled
|
||||
'btn.Text = "Text"
|
||||
btn.CssClass = "btn btn-primary"
|
||||
btn.ImageUrl = "../images/Icons/service/pdficon.gif"
|
||||
'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("target", "_blank")
|
||||
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.Controls.Add(btn)
|
||||
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)
|
||||
|
||||
i += 1
|
||||
Next
|
||||
Else
|
||||
Dim tbl_cellNothing = New TableCell()
|
||||
tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count
|
||||
tbl_cellNothing.Style.Add("text-align", "center")
|
||||
Dim tr = New TableRow()
|
||||
tr.Style.Add("text-align", "center")
|
||||
tbl_cellNothing.Text = Server.HtmlEncode("Keine Daten gefunden.")
|
||||
tr.Cells.Add(tbl_cellNothing)
|
||||
normaltable.Rows.Add(tr)
|
||||
End If
|
||||
Else
|
||||
lbl_status.Text = "Error in valid date room"
|
||||
End If
|
||||
'End If
|
||||
End Sub
|
||||
End Class
|
||||
12
Web.config
12
Web.config
@@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" ?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
Weitere Informationen zum Konfigurieren der ASP.NET-Anwendung finden Sie unter
|
||||
http://go.microsoft.com/fwlink/?LinkId=169433
|
||||
@@ -52,6 +52,10 @@
|
||||
<add assembly="System.Net.Http, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
|
||||
<add assembly="System.Numerics, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
|
||||
<add assembly="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
|
||||
<add assembly="System.ComponentModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
|
||||
<add assembly="System.Configuration.Install, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
|
||||
<add assembly="System.Management, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
|
||||
<add assembly="System.Transactions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
|
||||
</assemblies>
|
||||
</compilation>
|
||||
<membership defaultProvider="MySqlMembershipProvider">
|
||||
@@ -93,12 +97,6 @@
|
||||
</rules>
|
||||
</rewrite>
|
||||
</system.webServer>
|
||||
<system.data>
|
||||
<DbProviderFactories>
|
||||
<remove invariant="MySql.Data.MySqlClient" />
|
||||
<add name="MySQL Data Provider" invariant="MySql.Data.MySqlClient" description=".Net Framework Data Provider for MySQL" type="MySql.Data.MySqlClient.MySqlClientFactory, MySql.Data, Version=6.7.9.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d" />
|
||||
</DbProviderFactories>
|
||||
</system.data>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
|
||||
@@ -10,7 +10,6 @@
|
||||
|
||||
<%@ import Namespace="MySql.Data.MySqlClient"%>
|
||||
<!-- Bootstrap -->
|
||||
<html lang="en">
|
||||
<!-- Required meta tags -->
|
||||
<meta charset="utf-8"/>
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1">
|
||||
|
||||
@@ -5,7 +5,7 @@
|
||||
<html xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head runat="server">
|
||||
<!-- Bootstrap -->
|
||||
<html lang="en"></html>
|
||||
|
||||
<!-- Required meta tags -->
|
||||
<meta charset="utf-8"/>
|
||||
|
||||
|
||||
@@ -1,10 +1,15 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<packages>
|
||||
<package id="bootstrap" version="5.0.2" targetFramework="net47" />
|
||||
<package id="BouncyCastle" version="1.8.5" targetFramework="net47" />
|
||||
<package id="CompareNETObjects" version="4.73.0" targetFramework="net47" />
|
||||
<package id="DotNetZip" version="1.15.0" targetFramework="net47" />
|
||||
<package id="Google.Protobuf" version="3.14.0" targetFramework="net47" />
|
||||
<package id="jQuery" version="1.4.4" targetFramework="net47" />
|
||||
<package id="jQuery.Validation" version="1.19.3" targetFramework="net47" />
|
||||
<package id="K4os.Compression.LZ4" version="1.2.6" targetFramework="net47" />
|
||||
<package id="K4os.Compression.LZ4.Streams" version="1.2.6" targetFramework="net47" />
|
||||
<package id="K4os.Hash.xxHash" version="1.0.6" targetFramework="net47" />
|
||||
<package id="Microsoft.CodeAnalysis.Analyzers" version="3.0.0" targetFramework="net47" developmentDependency="true" />
|
||||
<package id="Microsoft.CodeAnalysis.Common" version="3.9.0" targetFramework="net47" />
|
||||
<package id="Microsoft.CodeAnalysis.CSharp" version="3.9.0" targetFramework="net47" />
|
||||
@@ -14,7 +19,7 @@
|
||||
<package id="Microsoft.CSharp" version="4.3.0" targetFramework="net47" />
|
||||
<package id="Microsoft.CST.DevSkim" version="0.4.253" targetFramework="net47" />
|
||||
<package id="Microsoft.CST.OAT" version="1.0.88" targetFramework="net47" />
|
||||
<package id="MySql.Data" version="6.7.9" targetFramework="net47" />
|
||||
<package id="MySql.Data" version="8.0.27" targetFramework="net47" />
|
||||
<package id="Newtonsoft.Json" version="12.0.3" targetFramework="net47" />
|
||||
<package id="Serilog" version="2.10.0" targetFramework="net47" />
|
||||
<package id="Serilog.Sinks.Console" version="3.1.1" targetFramework="net47" />
|
||||
|
||||
Reference in New Issue
Block a user