Inventarios/CatUnidades.aspx

@@ -31,7 +31,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
+            <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"
                 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" />
@@ -97,11 +97,11 @@
                                 </div>
 
                             </div>
-                                <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
-                                    <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
-                                    <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
-                                    <i></i>
-                                </div>
+                            <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
+                                <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
+                                <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
+                                <i></i>
+                            </div>
 
                             <div class="form-group form-md-line-input input-iconright col-md-6">
 
@@ -230,8 +230,8 @@
 
                         </div>
 
-                        <div class="row"  runat="server" id="DVSCACCAAT" visible="false">
-                            <div class="col-md-6" >
+                        <div class="row" runat="server" id="DVSCACCAAT" visible="false">
+                            <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtSCAC" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                     <label for="<%= TxtSCAC.ClientID.ToString()%>">SCAC:</label>
@@ -248,10 +248,19 @@
 
                         </div>
 
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" id="Div1">
+                                    <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveProveedor" DataTextField="RazonSocial" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator3" ControlToValidate="DdlTipoPermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+                            </div>
+                        </div>
 
                         <%--<asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" />--%>
-
-
                     </div>
 
                     <div class="modal-footer">

Inventarios/CatUnidades.aspx.vb

@@ -19,11 +19,17 @@ Partial Class Inventarios_CatUnidades
     Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
+            CargaDdlProveedor()
             CargaDatos()
         End If
     End Sub
 
 
+    Private Sub CargaDdlProveedor()
+        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+    End Sub
 
 
 
@@ -88,6 +94,7 @@ Partial Class Inventarios_CatUnidades
         TxtEspecificacionNuevo.Text = ""
         TxtEspecificacionNuevo.Text = ""
         DdlConfigAuto.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(-1)
 
         TxtAnio.Text = ""
         'TxtTipoPermisoSCT.Text = ""
@@ -137,8 +144,9 @@ Partial Class Inventarios_CatUnidades
         TxtNumPolizaSeguroMedioAmbiente.Text = GvRow.DataKey("NumPolizaSeguroMedioAmbiente")
         TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga")
         TxtNumPolizaSeguroCarga.Text = GvRow.DataKey("NumPolizaSeguroCarga")
-
         DdlTiposRemolque.SelectedValueExist(CveTipoRemolque)
+        DdlProveedor.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
 
         TxtNumeroTrailer.Text = GvRow.DataKey("NumeroTrailer")
         TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
@@ -207,6 +215,9 @@ Partial Class Inventarios_CatUnidades
                 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) Then
                     Alert("Unidad actualizada correctamente")
+                    Using objbase = New ClsClaseBase()
+                        objbase.runQuerystr(String.Format("UPDATE Inv_Camiones SET CveProveedor={1} WHERE  CveCamion={0}", CveCamion, DdlProveedor.SelectedValue))
+                    End Using
                 Else
                     ErrorPrceso = True
                 End If
@@ -214,6 +225,8 @@ Partial Class Inventarios_CatUnidades
         End Using
 
 
+
+
         If Not ErrorPrceso Then
             GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
             CargaDatos()