inventarios unidades agregar marca color

App_Code/ClsInventarios.vb

@@ -3,6 +3,7 @@ Option Strict On
 Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
+Imports Microsoft.Web.XmlTransform
 
 Public Class ClsInventarios
     Implements IDisposable
@@ -148,7 +149,7 @@ Public Class ClsInventarios
 
     Public ReadOnly Property DataSetResultados() As DataSet
         Get
-            DataSetResultados = DataSet
+            DataSetResultados = Dataset
         End Get
     End Property
 
@@ -5630,7 +5631,8 @@ Public Class ClsInventarios
     Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
                                 NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String,
                                 Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "",
-                                Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1) As Boolean
+                                Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1,
+                                   Optional Marca As String = "", Optional Color As String = "") As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesAdd")
@@ -5658,6 +5660,8 @@ Public Class ClsInventarios
             .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@Marca", SqlDbType.VarChar).Value = Marca
+            .Add("@Color", SqlDbType.VarChar).Value = Color
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -5691,7 +5695,8 @@ Public Class ClsInventarios
     Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
                                    NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String,
                                    NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "",
-                                   Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1) As Boolean
+                                   Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False, Optional CveProveedor As Integer = -1,
+                                   Optional Marca As String = "", Optional Color As String = "") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -5719,6 +5724,8 @@ Public Class ClsInventarios
             .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@Marca", SqlDbType.VarChar).Value = Marca
+            .Add("@Color", SqlDbType.VarChar).Value = Color
         End With
         Try
             SqlAdapter.Fill(Data)

Inventarios/CatUnidades.aspx

@@ -32,7 +32,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 
-                DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer,Estatus"
+                DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer,Marca,Color,Estatus"
                 EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Unidad" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
@@ -42,6 +42,8 @@
                     <asp:BoundField HeaderText="Permiso SCT" DataField="NumPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Aseguradora" DataField="NombreAseguradora" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Póliza Seguro" DataField="NumPolizaSeguro" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Marca" DataField="Marca" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Color" DataField="Color" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Estatus" DataField="EstatuStr" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
                     <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
@@ -249,6 +251,23 @@
 
                         </div>
                         
+                        <div class="row" runat="server" id="DivMarcaColor" visible="false">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtMarca" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                    <label for="<%= TxtMarca.ClientID.ToString()%>">Marca:</label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtColor" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
+                                    <label for="<%= TxtColor.ClientID.ToString()%>">Color:</label>
+                                    <i></i>
+                                </div>
+                            </div>
+
+                        </div>
                         <div class="row">
                             
                             <div class="col-md-6">

Inventarios/CatUnidades.aspx.vb

@@ -1,4 +1,6 @@
 Imports Extensiones
+Imports Stimulsoft.Report.StiOptions.Export
+
 Partial Class Inventarios_CatUnidades
     Inherits ClsPaginas
 
@@ -109,6 +111,8 @@ Partial Class Inventarios_CatUnidades
         TxtNumeroTrailer.Text = ""
         TxtSCAC.Text = ""
         TxtCAAT.Text = ""
+        TxtMarca.Text = ""
+        TxtColor.Text = ""
         ChkEstatus.Checked = False
 
         RdTipoUnidad.SelectedValue = "1"
@@ -153,6 +157,8 @@ Partial Class Inventarios_CatUnidades
         TxtLineaTransportacion.Text = GvRow.DataKey("LineaTransportacion")
         TxtSCAC.Text = GvRow.DataKey("SCAC")
         TxtCAAT.Text = GvRow.DataKey("CAAT")
+        TxtMarca.Text = GvRow.DataKey("Marca")
+        TxtColor.Text = GvRow.DataKey("Color")
         ChkEstatus.Checked = If(Boolean.Parse(GvRow.DataKey("Estatus")), True, False)
 
         'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
@@ -207,14 +213,14 @@ Partial Class Inventarios_CatUnidades
 
             If CveCamion <= 0 Then
                 If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
-                                              TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue) Then
+                                              TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
                     Alert("Unidad agregada correctamente")
                 Else
                     ErrorPrceso = True
                 End If
             Else
                 If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                 TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue) Then
+                                                 TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then
                     Alert("Unidad actualizada correctamente")
                 Else
                     ErrorPrceso = True
@@ -256,7 +262,7 @@ Partial Class Inventarios_CatUnidades
 
             DVTiposRemolque.Visible = False
             'DVLongitudCaja.Visible = False
-
+            DivMarcaColor.Visible = True
 
             DVTiposRemolque.Visible = False
         Else
@@ -270,6 +276,7 @@ Partial Class Inventarios_CatUnidades
 
             'DVLineaTransportacion.Visible = False
             'DVSCACCAAT.Visible = False
+            DivMarcaColor.Visible = False
 
             DVTiposRemolque.Visible = True
             'DVLongitudCaja.Visible = True