agregando parametro de kilometraje en Ventas

App_Code/ClsVentas.vb

@@ -317,7 +317,7 @@ Public Class ClsVentas
                              Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1,
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
-                             Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False) As Boolean
+                             Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -403,6 +403,7 @@ Public Class ClsVentas
             .Add("@DiasCredito", SqlDbType.Int).Value = DiasCredito
             .Add("@EsDiasCreditoFijo", SqlDbType.Bit).Value = EsDiasCreditoFijo
             .Add("@AnticipoEspecial", SqlDbType.Bit).Value = AnticipoEspecial
+            .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -430,7 +431,8 @@ Public Class ClsVentas
                                  Fecha As Date, Observaciones As String, CveEmpresa As Integer, CveVenta As Integer, CveMetodoPago As Integer, FormaPago As Integer,
                                  Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
                                  Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
-                                 Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, Optional RetISR As Double = -1) As Boolean
+                                 Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
+                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
 
@@ -460,6 +462,7 @@ Public Class ClsVentas
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
+            .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
         End With
 
         Try

Ventas/Ventas.aspx

@@ -373,7 +373,7 @@
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
-    <div style="display: table;">
+    <div style="display: table;width:100%">
         <asp:UpdatePanel ID="UpCliente" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 473px;">
             <ContentTemplate>
                 <div class="portlet-title">
@@ -726,9 +726,9 @@
             </ContentTemplate>
         </asp:UpdatePanel>
         
-        <asp:UpdatePanel ID="UpEstatus" runat="server" UpdateMode="Conditional" style="width: 250px; display: inline-block;">
+        <asp:UpdatePanel ID="UpEstatus" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="margin-left:auto">
             <ContentTemplate>
-                <div class="portlet light xspadding bordered whitoutcol" id="DivEstatusFac" runat="server" visible="false">
+                <div id="DivEstatusFac" runat="server" visible="false">
                     <div class="portlet-title">
                         <div class="caption font-green">
                             <i class="icon-pin font-green"></i>
@@ -811,6 +811,14 @@
 
             </ContentTemplate>
         </asp:UpdatePanel>
+        
+        <asp:UpdatePanel ID="UpTurno" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 30%;display: flex;flex-direction:row;color:white;background-color:#c49f47">
+            <ContentTemplate>
+                <div id="DivTurno" runat="server" style="width:100%;text-align:center;">
+                    Turno: <asp:Label runat="server" ID="LblTurno"></asp:Label>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
     </div>
 
     <asp:UpdatePanel ID="Updatetabs" runat="server" UpdateMode="Conditional">

Ventas/Ventas.aspx.vb

@@ -2575,11 +2575,13 @@ Partial Class Ventas
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
                 LblEstatusCaja.Text = ObjPVenta.FechaInicial.ToShortDateString
+                LblTurno.Text = ObjPVenta.FechaInicial.ToShortDateString
                 TrEstatusCaja.Visible = True
                 BtnIniciarTurno.Visible = False
                 LkbEstadodeCaja.Visible = True
                 LkbIngreso.Visible = True
                 LkbRetiro.Visible = True
+                UpTurno.Update()
             Else
                 'Ingresar un nuevo Turno
                 RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")