From 7f6c8843899736587b9437da3570e441a034156b Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 30 Nov 2019 11:38:07 -0700 Subject: [PATCH] - --- Inventarios/PrestamosdeProveedor.aspx.vb | 2 +- Inventarios/RecepcionUsados.aspx.vb | 65 +----------------------- 2 files changed, 3 insertions(+), 64 deletions(-) diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb index 8b04d2dc5..33b9f89ba 100644 --- a/Inventarios/PrestamosdeProveedor.aspx.vb +++ b/Inventarios/PrestamosdeProveedor.aspx.vb @@ -179,7 +179,7 @@ Partial Class Inventarios_PrestamosdeProveedor If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then ErrorMovInv = True Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=tValorInventario) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=-tValorInventario) Then ErrorMovInv = True End If End If diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 7569691b3..ee62afd3a 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1071,10 +1071,10 @@ Partial Class Inventarios_RecepcionUsados ErrorMovInv = True Exit For End If - + 'si es selectedvalue = 2, es entrada ,3 -salida Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2) - If RBLOpcion.SelectedValue.ToEntero <> 3 AndAlso Not GenerarRNC Then + If RBLOpcion.SelectedValue.ToEntero = 2 Then If EsDistribuidor Then If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then @@ -1638,51 +1638,6 @@ Partial Class Inventarios_RecepcionUsados End Sub #End Region -#Region " CONSUMO INTERNO " - 'Private Sub ActivaConsumoInterno() - ' EsConsumoInterno = True - - - - ' DdlAlmacen.AutoPostBack = False - ' DivFolio1.Visible = False - ' DivFolio2.Visible = False - - ' divMonedaSeccion.Visible = False - ' divGuia.Visible = False - ' TrResponsable.Visible = False - ' CargaPersonal() - - - ' 'RECARGA ALMACENES SOLO DE CONSUMO INTERNO - ' DdlAlmacen.Items.Clear() - ' DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - ' DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) - ' DdlAlmacen.SelectedValue = "-1" - ' DdlAlmacen.DataBind() - ' If IsNothing(Request("CveMovimiento")) Then - ' DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) - ' End If - - 'End Sub -#End Region - -#Region "PAQUETERIA GUIA" - 'Protected Sub LnkAgregarGuia_Click(sender As Object, e As EventArgs) - ' RegistraScript(String.Format("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveMovimiento={0}',800,620);", CveMovimiento)) - 'End Sub - - - - - - - - - - - -#End Region #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED" @@ -1844,22 +1799,6 @@ Partial Class Inventarios_RecepcionUsados #End Region - Private Sub GuardarBitacora(CveVenta As Integer, RutaAdjunto As String, Obser As String) - Dim ObjEventos As New ClsOIEventos() - - - Try - If ObjEventos.AddEventoBitacora(Obser, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then - - - End If - Catch ex As Exception - OnError("Se presento un error al guardar la Bitacora", ex) - End Try - - ObjEventos.Dispose() - - End Sub Protected Sub LnkAgregarUsado_Click(sender As Object, e As EventArgs) AgregarUsado = True