Cat Unidades Campos de agropecuaria

Inventarios/CatUnidades.aspx.vb

@@ -23,6 +23,11 @@ Partial Class Inventarios_CatUnidades
         End If
     End Sub
 
+
+
+
+
+
     Public Sub CargaDatos()
 
 
@@ -98,11 +103,12 @@ Partial Class Inventarios_CatUnidades
         TxtNumeroTrailer.Text = ""
         TxtSCAC.Text = ""
         TxtCAAT.Text = ""
-        ChkesRemolque.Checked = False
+
+        RdTipoUnidad.SelectedValue = "1"
         LtlTituloModal.Text = "Agregar Unidad"
         DdlTiposRemolque.SelectedValueExist(-1)
 
-        ChkesRemolque_CheckedChanged(Nothing, Nothing)
+        RdTipoUnidad_SelectedIndexChanged(Nothing, Nothing)
 
         UpModalUnidades.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad"))
@@ -140,11 +146,13 @@ Partial Class Inventarios_CatUnidades
         TxtSCAC.Text = GvRow.DataKey("SCAC")
         TxtCAAT.Text = GvRow.DataKey("CAAT")
 
-        ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
+        'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
+
+        RdTipoUnidad.SelectedValue = GvRow.DataKey("CveTipoCamion")
 
         LtlTituloModal.Text = "Actualizar Unidad"
 
-        ChkesRemolque_CheckedChanged(Nothing, Nothing)
+        RdTipoUnidad_SelectedIndexChanged(Nothing, Nothing)
 
 
         UpModalUnidades.Update()
@@ -185,7 +193,7 @@ Partial Class Inventarios_CatUnidades
 
         Dim ErrorPrceso As Boolean = False
 
-        Dim CveTipoCamion As Integer = If(ChkesRemolque.Checked, 2, 1)
+        Dim CveTipoCamion As Integer = RdTipoUnidad.SelectedValue.ToEntero
         Using ObjInventarios As New ClsInventarios
 
             If CveCamion <= 0 Then
@@ -218,9 +226,9 @@ Partial Class Inventarios_CatUnidades
     End Sub
 
 
-    Protected Sub ChkesRemolque_CheckedChanged(sender As Object, e As EventArgs)
+    Protected Sub RdTipoUnidad_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        If Not ChkesRemolque.Checked Then
+        If RdTipoUnidad.SelectedValue.ToEntero = 1 Then
 
             DVAnio.Visible = True
             DVConfigAuto.Visible = True
@@ -230,11 +238,14 @@ Partial Class Inventarios_CatUnidades
             DVNombreAseguradoraMedioAmbiente.Visible = True
             DVNumPolizaSeguroMedioAmbient.Visible = True
 
-            DVLineaTransportacion.Visible = True
-            DVSCACCAAT.Visible = True
+            'DVLineaTransportacion.Visible = True
+            'DVSCACCAAT.Visible = True
+
+            DVTiposRemolque.Visible = False
+            'DVLongitudCaja.Visible = False
+
 
             DVTiposRemolque.Visible = False
-            DVLongitudCaja.Visible = False
         Else
             DVAnio.Visible = False
             DVConfigAuto.Visible = False
@@ -244,16 +255,33 @@ Partial Class Inventarios_CatUnidades
             DVNombreAseguradoraMedioAmbiente.Visible = False
             DVNumPolizaSeguroMedioAmbient.Visible = False
 
-            DVLineaTransportacion.Visible = False
-            DVSCACCAAT.Visible = False
+            'DVLineaTransportacion.Visible = False
+            'DVSCACCAAT.Visible = False
 
             DVTiposRemolque.Visible = True
-            DVLongitudCaja.Visible = True
+            'DVLongitudCaja.Visible = True
+
+
+            DVTiposRemolque.Visible = True
+
         End If
 
 
-        DVTiposRemolque.Visible = ChkesRemolque.Checked
-        UpModalUnidades.Update
+        If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
+            DvNumeroTrailler.Visible = True
+            DVLongitudCaja.Visible = True
+            DVLineaTransportacion.Visible = True
+            DVSCACCAAT.Visible = True
+        Else
+            DvNumeroTrailler.Visible = False
+            DVLongitudCaja.Visible = False
+            DVLineaTransportacion.Visible = False
+            DVSCACCAAT.Visible = False
+        End If
+
+
+
+        UpModalUnidades.Update()
 
     End Sub
 End Class