From be0a01de4a3badd52189d291215da1963f03d82e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 4 Dec 2019 19:44:43 -0700 Subject: [PATCH] Correciones en ventas --- Ventas/Ventas.aspx.vb | 42 ++++++++++++++++++++++++------------------ 1 file changed, 24 insertions(+), 18 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 3079f5ad9..f42619e76 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1697,6 +1697,7 @@ Partial Class Ventas DdlBPPS.setEsWebService(True) DdlBPPS.ddlWS.Attributes.Add("data-clear", "1") ViewState("ProcesoCorrecto") = True + ViewState("CargoUsado") = True ViewState("NuevaFactura") = -1 ViewState("CveDevolucion") = -1 ViewState("CvePedido") = -1 @@ -4729,6 +4730,7 @@ Partial Class Ventas DivClienteMsg.Visible = True LtlClienteMsg.Text = "Cálculo sin desglose de IEPS" End If + ViewState("CargoUsado") = ObjCliente.CargoUsados Dim dr As DataRow = Nothing dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) @@ -6702,10 +6704,11 @@ Partial Class Ventas Obj2.Add(ObjFacturaDevolucion) End If Catch ex As Exception - ErrorList.Add("No se pudo generarse la nota de crédito de amortización") + OnError("Ocurrió un error al generar nota de crédito de amortización", ex) + ErrorList.Add("No se pudo generar la nota de crédito de amortización") End Try If Obj2 Is Nothing AndAlso Obj2.Count = 0 Then - ErrorList.Add("No se pudo generarse la nota de crédito de amortización") + ErrorList.Add("No se pudo generar la nota de crédito de amortización") End If End If End If @@ -15259,7 +15262,7 @@ Partial Class Ventas End If 'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR - If DtMovimientos.Rows.Count > 0 AndAlso (DtMovimientosDetalles.Rows.Count > 0 AndAlso DtMovimientosDetalles.SUM("SaldoAlmacen") > 0) Then + If DtMovimientos.Rows.Count > 0 Then Dim GeneroMovimientoAlmacen As Boolean = False For Each dr As DataRow In DtMovimientos.Rows 'Obtenemos los Movimientos de salida @@ -15292,7 +15295,7 @@ Partial Class Ventas 'Le damos salida normal If ConSalida Then - GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 + GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 If Not GeneroMovimientoAlmacen Then OcurrioError = True @@ -22490,23 +22493,23 @@ Partial Class Ventas End If 'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS') - 'If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then - ' Dim SbRem As New StringBuilder - ' SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.
") + If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then + Dim SbRem As New StringBuilder + SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.
") - ' SbRem.Append("Remisiones Surtidas:
") - ' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows - ' SbRem.AppendFormat("{0}
", RowSurtida("Folio")) - ' Next + SbRem.Append("Remisiones Surtidas:
") + For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows + SbRem.AppendFormat("{0}
", RowSurtida("Folio")) + Next - ' SbRem.Append("Remisiones No Surtidas:
") - ' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows - ' SbRem.AppendFormat("{0}
", RowSurtida("Folio")) - ' Next + SbRem.Append("Remisiones No Surtidas:
") + For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows + SbRem.AppendFormat("{0}
", RowSurtida("Folio")) + Next - ' Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If + Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) + Exit Sub + End If DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'") DdlMoneda.Enabled = False @@ -23512,6 +23515,9 @@ Partial Class Ventas TmpDT.AcceptChanges() + If ViewState("CargoUsado").ToString = "False" Then + Exit Sub + End If Dim ObjProductosServicios As New ClsProductosServicios()