Inventarios/CatUnidades.aspx

@@ -34,7 +34,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,ConfigCartaPorte,Anio,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga" 
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT" 
                 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" />
@@ -188,6 +188,46 @@
                                   </div>
 
                           </div>
+
+                        
+                          <div class="row">
+                              <div class="col-md-6">
+                            <div class="form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtLongitudCaja" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                <label for="<%= TxtLongitudCaja.ClientID.ToString()%>">Longitud de caja:</label>
+                                <i></i>
+                            </div>
+                                  </div>
+                              <div class="col-md-6">
+                            <div class="form-group form-md-line-input input-iconright"  >
+                                <asp:TextBox ID="TxtLineaTransportacion" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
+                                <label for="<%= TxtLineaTransportacion.ClientID.ToString()%>">Linea de transportacion:</label>
+                                <i></i>
+                            </div>
+                                  </div>
+
+                          </div>
+                        
+                          <div class="row">
+                              <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>
+                                <i></i>
+                            </div>
+                                  </div>
+                              <div class="col-md-6">
+                            <div class="form-group form-md-line-input input-iconright"  >
+                                <asp:TextBox ID="TxtCAAT" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
+                                <label for="<%= TxtCAAT.ClientID.ToString()%>">CAAT:</label>
+                                <i></i>
+                            </div>
+                                  </div>
+
+                          </div>
+
+
+                            <asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" />
                      
 
                     </div>

Inventarios/CatUnidades.aspx.vb

@@ -82,7 +82,11 @@ Partial Class Inventarios_CatUnidades
         TxtNumPolizaSeguroMedioAmbiente.Text = ""
         TxtNombreAseguradoraCarga.Text = ""
         TxtNumPolizaSeguroCarga.Text = ""
-
+        TxtLongitudCaja.Text = ""
+        TxtLineaTransportacion.Text = ""
+        TxtSCAC.Text = ""
+        TxtCAAT.Text = ""
+        ChkesRemolque.Checked = False
         LtlTituloModal.Text = "Agregar Unidad"
 
         UpModalUnidades.Update()
@@ -113,6 +117,14 @@ Partial Class Inventarios_CatUnidades
         TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga")
         TxtNumPolizaSeguroCarga.Text = GvRow.DataKey("NumPolizaSeguroCarga")
 
+
+        TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
+        TxtLineaTransportacion.Text = GvRow.DataKey("LineaTransportacion")
+        TxtSCAC.Text = GvRow.DataKey("SCAC")
+        TxtCAAT.Text = GvRow.DataKey("CAAT")
+
+        ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
+
         LtlTituloModal.Text = "Actualizar Unidad"
 
         UpModalUnidades.Update()
@@ -128,18 +140,19 @@ Partial Class Inventarios_CatUnidades
 
         Dim CveCamionEliminar = GvRow.DataKey("CveCamion").ToEntero()
 
-        Dim ObjInventarios As New ClsInventarios
+        Using ObjInventarios As New ClsInventarios
 
-        If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then
 
-            UpDatos.Update()
-            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))
-            Alert("Unidad Eliminada Correctamente")
-        Else
-            ErrorAlElimiar = True
-        End If
+            If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then
+
+                UpDatos.Update()
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))
+                Alert("Unidad Eliminada Correctamente")
+            Else
+                ErrorAlElimiar = True
+            End If
+        End Using
 
-        ObjInventarios.Dispose()
 
         If Not ErrorAlElimiar Then
             GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
@@ -152,23 +165,25 @@ Partial Class Inventarios_CatUnidades
 
         Dim ErrorPrceso As Boolean = False
 
-        Dim ObjInventarios As New ClsInventarios
+        Dim CveTipoCamion As Integer = If(ChkesRemolque.Checked, 2, 1)
+        Using ObjInventarios As New ClsInventarios
 
-        If CveCamion <= 0 Then
-            If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
-                                          TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text) Then
-                Alert("Unidad agregada correctamente")
+            If CveCamion <= 0 Then
+                If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, 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) Then
+                    Alert("Unidad agregada correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
             Else
-                ErrorPrceso = True
+                If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, 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) Then
+                    Alert("Unidad actualizada correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
             End If
-        Else
-            If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                             TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text) Then
-                Alert("Unidad actualizada correctamente")
-            Else
-                ErrorPrceso = True
-            End If
-        End If
+        End Using
 
 
         If Not ErrorPrceso Then