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

Ändnderngen CODE

Browse Source
This commit is contained in:
ja
2021-12-09 13:32:48 +01:00
parent 7e23ce7fdd
commit 4e91c99785
4 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Customers/LKWs.aspx
View File

@@ -81,7 +81,7 @@
</div>
<div class="col-9">
<div class="col-12">
<asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1" ImageUrl="~/images/truck.png" style="width:106px;height:66px" />
<asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1" ImageUrl="~/images/Icons/Aviso.png" style="width:96px;height:96px" />
<asp:Label runat="server" Font-Size="20px" Font-Bold="true">Bitte Spedition wählen</asp:Label>
</div>
<div class="col-12">
@@ -125,7 +125,7 @@
<div style="height:22px"></div>
<div class="col-12">
<div class="col-12">
<asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1_M" ImageUrl="~/images/truck.png" style="width:96px;height:56px" />
<asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1_M" ImageUrl="~/images/Icons/Aviso.png" style="width:56px;height:56px" />
<asp:Label runat="server" Font-Size="22px" Font-Bold="true">Bitte Spedition wählen...!</asp:Label>
</div>
<div class="col-12">

17
Customers/LKWs.aspx.vb
View File

@@ -9,15 +9,7 @@ Partial Class LKWS
Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL) = Nothing
Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load
VERAG_VARIABLES.initerrorcount()
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
End If
If Me.Page.User.Identity.IsAuthenticated Then
Try
Kdnrtext = Session.Item("CustomerID")
@@ -37,6 +29,15 @@ Partial Class LKWS
Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext)
'MsgBox("Test1")
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
End If
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)