-- chofer/remolques asignados

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,Marca,Color,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,CveChoferAsignado,CveRemolque1Asignado,CveRemolque2Asignado"
                 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" />
@@ -46,7 +46,6 @@
                     <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" />
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
@@ -270,7 +269,16 @@
                         </div>
                         <div class="row">
                             
-                            <div class="col-md-6">
+                            <div class="col-md-6" runat="server" id="divChoferAsignado" visible="false">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" id="Div2">
+                                    <asp:DropDownList ID="DdlChoferAsignado" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveChofer" DataTextField="Chofer" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlChoferAsignado.ClientID.ToString()%>">Chofer Asignado:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator4" ControlToValidate="DdlChoferAsignado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer Asignado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-6" runat="server" id="divProv" visible="false">                                 
                                 <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>
@@ -286,6 +294,27 @@
                                   </div>
                               </div>
 
+                        </div>
+                        <div class="row"  runat="server" id="divrowRemolques" visible="false"> 
+                           
+                             <div class="col-md-6">
+                                 <div class="form-group form-md-line-input input-iconright" runat="server" id="Div3">
+                                    <asp:DropDownList ID="DdlRemolque1Asignado" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCamion" DataTextField="Especificacion" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlRemolque1Asignado.ClientID.ToString()%>">Remolque 1:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator5" ControlToValidate="DdlRemolque1Asignado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Remolque 1 Asignado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+                              </div>
+                             <div class="col-md-6">
+                                 <div class="form-group form-md-line-input input-iconright" runat="server" id="Div4">
+                                    <asp:DropDownList ID="DdlRemolque2Asignado" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCamion" DataTextField="Especificacion" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlRemolque2Asignado.ClientID.ToString()%>">Remolque 1:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator6" ControlToValidate="DdlRemolque2Asignado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Remolque 2 Asignado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+                              </div>
 
                         </div>
 

Inventarios/CatUnidades.aspx.vb

@@ -21,24 +21,21 @@ 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()
+            'CargaDdlProveedor()
             CargaDatos()
         End If
     End Sub
 
 
-    Private Sub CargaDdlProveedor()
+    'Private Sub CargaDdlProveedor()
-        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+    '    DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
+    '    DdlProveedor.DataBind()
-    End Sub
+    'End Sub
-
-
 
 
     Public Sub CargaDatos()
 
-
         Dim ObjInventarios As New ClsInventarios
 
         If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, Estatus:=-1) Then
@@ -81,6 +78,29 @@ Partial Class Inventarios_CatUnidades
         DdlTiposRemolque.Items.Insert(0, New ListItem("Seleccione Uno ", "-1"))
 
         UpModalUnidades.Update()
+        'If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
+        '    DdlRemolque1.DataSource = ObjInv.DtResultados
+        'End If
+
+        If UsuarioActual.CveEmpresa.Contiene(2, 13) Then
+            divrowRemolques.Visible = True
+            divChoferAsignado.Visible = True
+            DdlChoferAsignado.DataSource = GlobalDTChoferes(UsuarioActual.CveEmpresa)
+            DdlChoferAsignado.DataBind()
+            DdlChoferAsignado.Items.Insert(0, New ListItem("-", "0"))
+            Dim ObjInventarios As New ClsInventarios
+
+            If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, CveTipoCamion:=2, Estatus:=-1) Then
+                DdlRemolque1Asignado.DataSource = ObjInventarios.DtResultados
+                DdlRemolque2Asignado.DataSource = ObjInventarios.DtResultados
+            End If
+            ObjInventarios.Dispose()
+
+            DdlRemolque1Asignado.DataBind()
+            DdlRemolque2Asignado.DataBind()
+            DdlRemolque1Asignado.Items.Insert(0, New ListItem("-", "0"))
+            DdlRemolque2Asignado.Items.Insert(0, New ListItem("-", "0"))
+        End If
 
     End Sub
 
@@ -160,6 +180,9 @@ Partial Class Inventarios_CatUnidades
         TxtMarca.Text = GvRow.DataKey("Marca")
         TxtColor.Text = GvRow.DataKey("Color")
         ChkEstatus.Checked = If(Boolean.Parse(GvRow.DataKey("Estatus")), True, False)
+        DdlChoferAsignado.SelectedValueExist(GvRow.DataKey("CveChoferAsignado").ToEntero)
+        DdlRemolque1Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque1Asignado").ToEntero)
+        DdlRemolque2Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque2Asignado").ToEntero)
 
         'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
 
@@ -181,11 +204,10 @@ Partial Class Inventarios_CatUnidades
 
         Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
 
-        Dim CveCamionEliminar = GvRow.DataKey("CveCamion").ToEntero()
+        Dim CveCamionEliminar As Integer = GvRow.DataKey("CveCamion").ToEntero()
 
         Using ObjInventarios As New ClsInventarios
 
-
             If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then
 
                 UpDatos.Update()
@@ -213,14 +235,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.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) 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.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) 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.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) 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.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) Then
                     Alert("Unidad actualizada correctamente")
                 Else
                     ErrorPrceso = True
@@ -228,9 +250,6 @@ Partial Class Inventarios_CatUnidades
             End If
         End Using
 
-
-
-
         If Not ErrorPrceso Then
             GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
             CargaDatos()
@@ -238,10 +257,6 @@ Partial Class Inventarios_CatUnidades
             UpDatos.Update()
         End If
 
-
-
-
-
     End Sub