-- chofer/remolques asignados

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()
-        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-    End Sub
-
-
+    'Private Sub CargaDdlProveedor()
+    '    DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+    '    DdlProveedor.DataBind()
+    '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