AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2020-05-30 15:34:48 -07:00
parent 28351c58e0 0a55876694
commit fa2c29bf3f
4 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsInventarios.vb
View File

@@ -2943,7 +2943,7 @@ Public Class ClsInventarios
DataAdapter("Vta_UpdateDevolucionVentaDetalle") DataAdapter("Vta_UpdateDevolucionVentaDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVenta .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
.Add("@Valor", SqlDbType.Int).Value = Valor .Add("@Valor", SqlDbType.Int).Value = Valor
End With End With

5
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -660,8 +660,9 @@ Partial Class Inventarios_EntregaAlmacen
Alert("Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If End If
End If End If
If UsuarioActual.Empresa.FacturaProduccion Then
CargaDocumentos(CveVenta) CargaDocumentos(CveVenta)
End If
Else Else
Alert("No se encontraron productos pendientes por surtir. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("No se encontraron productos pendientes por surtir. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If End If

23
Ventas/Ventas.aspx.vb
View File

@@ -5152,7 +5152,9 @@ Partial Class Ventas
CargarAlmacenes() CargarAlmacenes()
CargaDocumentacionCliente() If UsuarioActual.Empresa.FacturaProduccion Then
CargaDocumentacionCliente()
End If
If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});" BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});"
@@ -7029,7 +7031,7 @@ Partial Class Ventas
'MARCA LO PENDIENTE A NIVEL DETALLE 'MARCA LO PENDIENTE A NIVEL DETALLE
Dim DtMovDetalles As DataTable = Nothing Dim DtMovDetalles As DataTable = Nothing
If ObjInventario.GetSaldoVentaDetalle(ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then If ObjInventario.GetSaldoVentaDetalle(CveDevolucion, UsuarioActual.CveEmpresa) Then
DtMovDetalles = ObjInventario.DtResultados.Copy() DtMovDetalles = ObjInventario.DtResultados.Copy()
End If End If
@@ -7037,9 +7039,9 @@ Partial Class Ventas
For Each Row As DataRow In DtMovDetalles.Rows For Each Row As DataRow In DtMovDetalles.Rows
Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToEntero() Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToEntero()
If SaldoAlmacen < 0 Then If SaldoAlmacen < 0 Then
ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalle").ToString().ToEntero(), 1) ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalleNueva").ToString().ToEntero(), 1)
ElseIf SaldoAlmacen = 0 Then ElseIf SaldoAlmacen = 0 Then
ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalle").ToString().ToEntero(), 0) ObjInventario.UpdateEstatusAlmacen(Row("CveVentaDetalleNueva").ToString().ToEntero(), 0)
End If End If
Next Next
End If End If
@@ -19451,6 +19453,7 @@ Partial Class Ventas
Private Sub CancelarDocumento(Optional EsRefacturacion As Boolean = False) Private Sub CancelarDocumento(Optional EsRefacturacion As Boolean = False)
Dim LigaRedirigir As String = ""
'Si es cancelacion de una refactura ignoramos las condiciones 'Si es cancelacion de una refactura ignoramos las condiciones
If Me.CveEstatus = 13 Then If Me.CveEstatus = 13 Then
CancelarRefacturada() CancelarRefacturada()
@@ -19495,11 +19498,9 @@ Partial Class Ventas
Else Else
If EsRefacturacion Then If EsRefacturacion Then
If resp.CveEstatus = 20 Then If resp.CveEstatus = 20 Then
ObjFacturaCancelacion.Dispose() LigaRedirigir = $"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}"
Server.Transfer($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}")
ElseIf resp.CveEstatus.Contiene(4, 5) Then ElseIf resp.CveEstatus.Contiene(4, 5) Then
ObjFacturaCancelacion.Dispose() LigaRedirigir = $"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1"
Server.Transfer($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1")
Else Else
Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();") Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
End If End If
@@ -19507,8 +19508,6 @@ Partial Class Ventas
Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();") Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
End If End If
End If End If
ObjFacturaCancelacion.CveAlmacen = -1
Else Else
Alert("Ocurrió un error al generar la cancelación", TipoMensaje.MsgError) Alert("Ocurrió un error al generar la cancelación", TipoMensaje.MsgError)
End If End If
@@ -19520,6 +19519,10 @@ Partial Class Ventas
UpEstatus.Update() UpEstatus.Update()
If Not String.IsNullOrEmpty(LigaRedirigir) Then
Response.Redirect(LigaRedirigir)
End If
End Sub End Sub

2
asmx/WSApp.asmx
View File

@@ -633,7 +633,7 @@ Public Class WSApp
Dim retorno As String = "[]" Dim retorno As String = "[]"
Dim CvePS = -1 Dim CvePS = -1
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSExistencias(CvePS, CvePrecioLista, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then If ObjPS.GetPSExistenciasWS(CvePS, CvePrecioLista, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
If CveClasificacion > 0 Then If CveClasificacion > 0 Then
retorno = ObjPS.DtResultados.FiltraParametros($"CveClasificacion = {CveClasificacion}").ToJson() retorno = ObjPS.DtResultados.FiltraParametros($"CveClasificacion = {CveClasificacion}").ToJson()
Else Else