-traspasos

-poliza virtual

Inventarios/TraspasoAlmacen.aspx.vb

@@ -191,6 +191,11 @@ Partial Class Inventarios_TraspasoAlmacen
             Folio = 0
             CveMovimientoTimbrado = -1
 
+            If UsuarioActual.CveEmpresa = 119 Then
+                divGastoIndirecto.Visible = False
+                divResponsable.Visible = False
+            End If
+
 
             CargaCombos()
             CreaDT()
@@ -211,7 +216,7 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
             If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
 
-            If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmiirTimbrado.Visible = True
+            If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmitirTimbrado.Visible = True
 
             CantidadTotal = 0
             IndexSeccionAlmacen = 0
@@ -387,11 +392,11 @@ Partial Class Inventarios_TraspasoAlmacen
         'Llena Choferes
         Dim ObjAcar As New ClsAcarreos()
         If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
-            DldChofer.DataSource = ObjAcar.DtResultados
-            DldChofer.DataBind()
+            DdlChofer.DataSource = ObjAcar.DtResultados
+            DdlChofer.DataBind()
         End If
         ObjAcar.Dispose()
-        DldChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
         TxtFechaEntrega.Text = Now.ToShortDateString
 
         'Llena Responsables Transitorio
@@ -766,7 +771,7 @@ Partial Class Inventarios_TraspasoAlmacen
         CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                           Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
                                                           CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble,
-                                                          CveChofer:=If(ChkTransitorio.Checked, DldChofer.SelectedValue.ToEntero, -1), Placa:=If(ChkTransitorio.Checked, TxtPlaca.Text.Trim, "-1"), FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:=If(ChkTransitorio.Checked, TxtEspecifUnidad.Text.Trim, "-1"),
+                                                          CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:=If(ChkTransitorio.Checked, TxtPlaca.Text.Trim, "-1"), FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:=If(ChkTransitorio.Checked, TxtEspecifUnidad.Text.Trim, "-1"),
                                                           ResponsableCarga:=If(ChkTransitorio.Checked, TxtResponsableCarga.Text.Trim, "-1"), ResponsableRecibio:=If(ChkTransitorio.Checked, TxtResponsableRecibio.Text.Trim, "-1"), Identificacion:=If(ChkTransitorio.Checked, TxtIdentificacion.Text.Trim, "-1"), Domicilio:=If(ChkTransitorio.Checked, TxtDomicilio.Text.Trim, "-1"),
                                                           Telefono:=If(ChkTransitorio.Checked, TxtTelefono.Text.Trim, "-1"), Ciudad:=If(ChkTransitorio.Checked, TxtCiudad.Text.Trim, "-1"), Licencia:=If(ChkTransitorio.Checked, TxtLicencia.Text.Trim, "-1"), Modulo:="TA/G")
         FolioSalida = ObjInventario.Folio
@@ -2550,9 +2555,10 @@ Partial Class Inventarios_TraspasoAlmacen
     Protected Sub DldChofer_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim ObjAcar As New ClsAcarreos()
 
-        If ObjAcar.GetChofer(DldChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
+        If ObjAcar.GetChofer(DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
             Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
             If dr IsNot Nothing Then
+                TxtResponsableRecibio.Text = dr("Chofer").ToString
                 TxtIdentificacion.Text = dr("Identificacion").ToString
                 TxtDomicilio.Text = dr("Domicilio").ToString
                 TxtTelefono.Text = dr("Telefono").ToString
@@ -2780,11 +2786,13 @@ Partial Class Inventarios_TraspasoAlmacen
     End Function
 
     Public Sub CargarCamiones()
+        DdlUnidadCamion.Items.Clear 
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
             DdlUnidadCamion.DataSource = ObjInventarios.DtResultados
         End If
         ObjInventarios.Dispose()
+        DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1"))
         DdlUnidadCamion.DataBind()
     End Sub
     Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
@@ -2797,4 +2805,14 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
         ObjInventarios.Dispose()
     End Sub
+
+    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
+            TxtPlaca.Text = ""
+            TxtEspecifUnidad.Text = ""
+        End If
+    End Sub
 End Class