diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index aec32d5ad..cf7fb7af6 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -32,7 +32,7 @@ @@ -45,8 +45,7 @@ - - + @@ -270,7 +269,16 @@
-
+
+
+ + + + + +
+
+
@@ -286,6 +294,27 @@
+
+
+ +
+
+ + + + + +
+
+
+
+ + + + + +
+
diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb index c171aaf2a..a41b52811 100644 --- a/Inventarios/CatUnidades.aspx.vb +++ b/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