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

Correciones en ventas

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-12-04 19:44:43 -07:00
parent e0a9969a8f
commit be0a01de4a
1 changed files with 24 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Ventas/Ventas.aspx.vb
View File

@@ -1697,6 +1697,7 @@ Partial Class Ventas
DdlBPPS.setEsWebService(True) DdlBPPS.setEsWebService(True)
DdlBPPS.ddlWS.Attributes.Add("data-clear", "1") DdlBPPS.ddlWS.Attributes.Add("data-clear", "1")
ViewState("ProcesoCorrecto") = True ViewState("ProcesoCorrecto") = True
ViewState("CargoUsado") = True
ViewState("NuevaFactura") = -1 ViewState("NuevaFactura") = -1
ViewState("CveDevolucion") = -1 ViewState("CveDevolucion") = -1
ViewState("CvePedido") = -1 ViewState("CvePedido") = -1
@@ -4729,6 +4730,7 @@ Partial Class Ventas
DivClienteMsg.Visible = True DivClienteMsg.Visible = True
LtlClienteMsg.Text = "Cálculo sin desglose de IEPS" LtlClienteMsg.Text = "Cálculo sin desglose de IEPS"
End If End If
ViewState("CargoUsado") = ObjCliente.CargoUsados
Dim dr As DataRow = Nothing Dim dr As DataRow = Nothing
dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) 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) Obj2.Add(ObjFacturaDevolucion)
End If End If
Catch ex As Exception 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 End Try
If Obj2 Is Nothing AndAlso Obj2.Count = 0 Then 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 End If
End If End If
@@ -15259,7 +15262,7 @@ Partial Class Ventas
End If End If
'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR '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 Dim GeneroMovimientoAlmacen As Boolean = False
For Each dr As DataRow In DtMovimientos.Rows For Each dr As DataRow In DtMovimientos.Rows
'Obtenemos los Movimientos de salida 'Obtenemos los Movimientos de salida
@@ -15292,7 +15295,7 @@ Partial Class Ventas
'Le damos salida normal 'Le damos salida normal
If ConSalida Then 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 If Not GeneroMovimientoAlmacen Then
OcurrioError = True OcurrioError = True
@@ -22490,23 +22493,23 @@ Partial Class Ventas
End If End If
'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS') '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 If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
' Dim SbRem As New StringBuilder Dim SbRem As New StringBuilder
' SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>") SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
' SbRem.Append("<b>Remisiones Surtidas:</b></br>") SbRem.Append("<b>Remisiones Surtidas:</b></br>")
' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
' SbRem.AppendFormat("{0}</br>", RowSurtida("Folio")) SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
' Next Next
' SbRem.Append("<b>Remisiones No Surtidas:</b></br>") SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
' SbRem.AppendFormat("{0}</br>", RowSurtida("Folio")) SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
' Next Next
' Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
' Exit Sub Exit Sub
'End If End If
DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'") DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
DdlMoneda.Enabled = False DdlMoneda.Enabled = False
@@ -23512,6 +23515,9 @@ Partial Class Ventas
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
If ViewState("CargoUsado").ToString = "False" Then
Exit Sub
End If
Dim ObjProductosServicios As New ClsProductosServicios() Dim ObjProductosServicios As New ClsProductosServicios()