Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Inventarios/TraspasoAlmacen.aspx.vb

@@ -176,6 +176,14 @@ Partial Class Inventarios_TraspasoAlmacen
             ViewState("FolioBusqueda") = value
         End Set
     End Property
+    Private Property DtCamiones As DataTable
+        Get
+            Return CType(ViewState("DtCamiones"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCamiones") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -635,7 +643,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         'VALIDA TRANSITORIO
         If ChkTransitorio.Checked Then
-            If TxtResponsable.Text.Trim = "" Then
+            If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then
                 Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
                 If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
@@ -648,6 +656,13 @@ Partial Class Inventarios_TraspasoAlmacen
                 If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
                 Exit Sub
             End If
+
+            If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
+                RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
+                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
+                Exit Sub
+            End If
         End If
 
         'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
@@ -2790,6 +2805,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
             DdlUnidadCamion.DataSource = ObjInventarios.DtResultados
+            DtCamiones = ObjInventarios.DtResultados
         End If
         ObjInventarios.Dispose()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1"))
@@ -2808,11 +2824,13 @@ Partial Class Inventarios_TraspasoAlmacen
 
     Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
         If DdlUnidadCamion.SelectedValue = "-1" Then
-            divPlacaEspecificacion.Visible = True
-        Else
-            divPlacaEspecificacion.Visible = False
+            'divPlacaEspecificacion.Visible = True
             TxtPlaca.Text = ""
             TxtEspecifUnidad.Text = ""
+        Else
+            'divPlacaEspecificacion.Visible = False
+            TxtPlaca.Text = DtCamiones.FiltroPrimeroValor("Placa", String.Format("CveCamion = {0}", DdlUnidadCamion.SelectedValue))
+            TxtEspecifUnidad.Text = DtCamiones.FiltroPrimeroValor("Especificacion", String.Format("CveCamion = {0}", DdlUnidadCamion.SelectedValue))
         End If
     End Sub
 End Class