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

Fxed Design

Browse Source
This commit is contained in:
ja
2021-11-04 09:18:51 +01:00
parent 5eace02936
commit e3283a452a
10 changed files with 43 additions and 670 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Customers/Invoices.aspx
View File

@@ -97,10 +97,11 @@
</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="container">
<div class="row">
<div id="rowcol1" class="row-cols-1">
<asp:TextBox ID="txt_LKW" runat="server" PlaceHolder="truck license plate" style="width:145px;"></asp:TextBox>
@@ -123,29 +124,31 @@
<asp:RequiredFieldValidator ControlToValidate="txt_ReNr" runat="server" ID="reqval_txt_ReNr" Display="Dynamic" Enabled="false" ></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ControlToValidate="txt_ReNr" runat="server" ID="regex_txt_ReNr" ValidationExpression="[0-9]{1,8}" Display="Dynamic" ErrorMessage="Please stay in the range of 8 numbers!"></asp:RegularExpressionValidator>
</div>
</div>
</div></div>
</div>
<!-- Mobil -->
<div class="d-md-none">
<div class="container" style="margin-left:-10px">
<div class="row">
<div id="rowcols4" class="row-cols-1" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
<asp:TextBox ID="txt_LKW_M" runat="server" PlaceHolder="truck license plate" style="width:155px;margin-left:18px"></asp:TextBox>
<asp:TextBox ID="txt_LKW_M" runat="server" PlaceHolder="truck license plate" style="width:155px;"></asp:TextBox>
<asp:RequiredFieldValidator ControlToValidate="txt_LKW_M" runat="server" ID="regval_txt_LKW_M" Enabled="false"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ControlToValidate="txt_LKW_M" runat="server" ID="regex_txt_LKW_M" ValidationExpression="[A-Z0-9]{4,30}\d" Display="Dynamic" ErrorMessage="Wrong plate format!" SetFocusOnError="true" Enabled="false"></asp:RegularExpressionValidator>
<asp:TextBox ID="txt_KdNrAuftrag_M" runat="server" PlaceHolder="Customer Order Nr" style="width:155px;margin-left:13px"></asp:TextBox>
<asp:TextBox ID="txt_KdNrAuftrag_M" runat="server" PlaceHolder="Customer Order Nr" style="width:155px;margin-left:28px"></asp:TextBox>
<asp:RequiredFieldValidator ControlToValidate="txt_KdNrAuftrag_M" runat="server" Enabled="false" ID="reqval_txt_KdNrAuftrag_M"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator runat="server" ID="regex_txt_KdNrAuftrag_M" ControlToValidate="txt_KdNrAuftrag_M" Display="Dynamic" ValidationExpression="[A-Z0-9]{5,30}/d" Enabled="false" ErrorMessage="No valid input found!"></asp:RegularExpressionValidator>
</div>
<div id="rowcols5" class="row-cols-1" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
<asp:TextBox ID="txt_Absender_M" runat="server" PlaceHolder="Sender" style="width:155px;margin-left:18px"></asp:TextBox>
<asp:TextBox ID="txt_Absender_M" runat="server" PlaceHolder="Sender" style="width:155px;"></asp:TextBox>
<asp:RequiredFieldValidator ControlToValidate="txt_Absender_M" runat="server" style="width:155px;margin-left:18px" Enabled="false" ID="req_txt_Absender_M" ErrorMessage="*"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ControlToValidate="txt_Absender_M" runat="server" ID="regex_txt_Absender_M" Enabled="false" ValidationExpression="[^!,]{2,90}" SetFocusOnError="true" Display="Dynamic" ErrorMessage="Wrong Input! Try again!"></asp:RegularExpressionValidator>
<asp:TextBox ID="txt_Empfaenger_M" runat="server" PlaceHolder="Receiver" style="width:155px;margin-left:-15px"></asp:TextBox>
<asp:TextBox ID="txt_Empfaenger_M" runat="server" PlaceHolder="Receiver" style="width:155px;margin-left:-3px"></asp:TextBox>
<asp:RequiredFieldValidator ControlToValidate="txt_Empfaenger_M" runat="server" ID="reqval_txt_Empfaenger_M" Enabled="false" Display="Dynamic"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ControlToValidate="txt_Empfaenger_M" ID="regex_txt_Empaenger_M" runat="server" Enabled="false" ValidationExpression="[^!,]{2,90}" Display="Dynamic" style="width:105px;margin-left:13px" SetFocusOnError="true" ErrorMessage="Error! Try again!"></asp:RegularExpressionValidator>
</div>
<div id="rowcol6" class="row-cols-1" style="margin-right:/*1.52px;*/0.33480176211453744vw;">
<asp:TextBox ID="txt_ReNr_M" runat="server" PlaceHolder="invoice number" style="width:155px;margin-left:18px"></asp:TextBox>
<asp:TextBox ID="txt_ReNr_M" runat="server" PlaceHolder="invoice number" style="width:155px;"></asp:TextBox>
<asp:RequiredFieldValidator Enabled="false" ControlToValidate="txt_ReNr_M" runat="server" Display="Dynamic" ErrorMessage="*"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ControlToValidate="txt_ReNr_M" runat="server" ID="regex_txt_ReNr_M" Display="Dynamic" ValidationExpression="[0-9]{1,8}" Enabled="false" ErrorMessage="Please stay in the range of 8 numbers!"></asp:RegularExpressionValidator>
</div>
@@ -154,6 +157,8 @@
</div>
</div>
</div>
</div>
</div>
<div id="accordion">
<div class="accordion" id="accordionExample">
<div class="accordion-item">
@@ -170,7 +175,7 @@
</div>
</div>
<div id="Abstand_laenger" style="height:/*24px*/ 1.873536299765808vh;"></div>
<asp:Button ID="Button1" CssClass="btn btn-primary" runat="server" Text="Button" OnClick="btn_b_Click" />
<asp:Button ID="Button1" CssClass="btn btn-primary" runat="server" Text="Get Invoices" OnClick="btn_b_Click" />
<div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
<div class="g-5">
<div id="conovertab" style="overflow-x:auto;margin-left:-2px">

4
Customers/Invoices.aspx.vb
View File

@@ -358,10 +358,6 @@ Partial Class Customers_Default3
If String.IsNullOrEmpty(Kdnrtext) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = 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) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False And reNr = "" Then
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf String.IsNullOrEmpty(Kdnrtext) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False And reNr = "" And Absender = "" Then
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Nothing, Nothing, Empfaenger, LKWNR, KDNAFNR)
Else
valreq_pickdate1.Validate()
valreq_pickdate2.Validate()

221
Customers/Invoices_old.aspx
View File

@@ -1,221 +0,0 @@
<%@ 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
View File

@@ -1,384 +0,0 @@

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

11
Customers/pdfviewer.aspx
View File

@@ -41,7 +41,16 @@
<br />
<h3>Hier finden Sie Informationen zu der Rechnung: <%=VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P3")) %> der Filiale <%=VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P1")) %></h3>
<div class="container-fluid">
<!-- Große Bildschirme-->
<div class="d-none d-md-block">
<iframe src="../pdf/Bonizertifikat.pdf" width="100%" height="1000px" ></iframe>
<!--<embed src="../pdf/Bonizertifikat.pdf" width="100%" height="800px" type="application/pdf">-->
</div>
<!--Smartphone-Bildschirme-->
<div class="d-md-none">
<iframe src="../pdf/Bonizertifikat.pdf" width="380px" height="800px" style="margin-left:-40px; margin-right:5px" ></iframe>
<!--<embed src="../pdf/Bonizertifikat.pdf" width="100%" height="800px" type="application/pdf">-->
</div>
</div>
</div>
</ContentTemplate>

1
Customers/pdfviewer.aspx.vb
View File

@@ -18,5 +18,6 @@ Partial Class Customers_Default3
Else
Page.MaintainScrollPositionOnPostBack = False
End If
End Sub
End Class

5
Web.config
View File

@@ -56,6 +56,11 @@
<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" />
<add assembly="System.Data.OracleClient, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
<add assembly="System.Net, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
<add assembly="System.Security, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
<add assembly="System.ServiceProcess, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
<add assembly="WindowsBase, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" />
</assemblies>
</compilation>
<membership defaultProvider="MySqlMembershipProvider">

23
login/Home.aspx
View File

@@ -1,23 +0,0 @@
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="Home.aspx.vb" Inherits="login_Home" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
Welcome
<asp:LoginName ID="LoginName1" runat="server" Font-Bold = "true" />
<br />
<br />
<asp:LoginStatus ID="LoginStatus1" runat="server" />
</div>
</form>
</body>
</html>

20
login/Home.aspx.vb
View File

@@ -1,20 +0,0 @@

Imports System.Web.Security
Partial Class login_Home
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.Page.User.Identity.IsAuthenticated Then
FormsAuthentication.RedirectToLoginPage()
End If
If Not Request.IsSecureConnection Then
Response.Redirect(Request.Url.AbsoluteUri.Replace("http://", "https://").Replace("56551", "44300"))
End If
End Sub
End Class

5
packages.config
View File

@@ -26,10 +26,15 @@
<package id="System.Buffers" version="4.5.1" targetFramework="net47" />
<package id="System.Collections" version="4.3.0" targetFramework="net47" />
<package id="System.Collections.Immutable" version="5.0.0" targetFramework="net47" />
<package id="System.Configuration.ConfigurationManager" version="5.0.0" targetFramework="net47" />
<package id="System.Drawing.Common" version="5.0.0" targetFramework="net47" />
<package id="System.Memory" version="4.5.4" targetFramework="net47" />
<package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" />
<package id="System.Reflection.Metadata" version="5.0.0" targetFramework="net47" />
<package id="System.Runtime.CompilerServices.Unsafe" version="5.0.0" targetFramework="net47" />
<package id="System.Security.AccessControl" version="5.0.0" targetFramework="net47" />
<package id="System.Security.Permissions" version="5.0.0" targetFramework="net47" />
<package id="System.Security.Principal.Windows" version="5.0.0" targetFramework="net47" />
<package id="System.Text.Encoding.CodePages" version="4.5.1" targetFramework="net47" />
<package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net47" />
</packages>