--

Ventas/Ventas.aspx.vb

@@ -10,6 +10,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Globalization
 Imports System.Net.Http
 Imports Newtonsoft.Json.Linq
+Imports System.Diagnostics
 
 Partial Class Ventas
     Inherits ClsPaginas
@@ -7018,11 +7019,18 @@ Partial Class Ventas
                         'End If
                         'Esquema viejo, evitamos que aparezca por surtir
                         If ErrorList.Count = 0 Then
+                            'MARCAR VENTA ANTERIOR
+                            If Not ObjInventario.ActualizarEsDevolucionVenta(CveDevolucion, 2) Then
+                                ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
+                            End If
+
+                            'MARCAR VENTA ANTERIOR
                             If VentaSaldoAlmacenNC <> 0 OrElse DevolucionAlmacenNC = 2 Then
                                 If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
                                     ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
                                 End If
                             End If
+
                         End If
                     End If
                 End If
@@ -9478,7 +9486,7 @@ Partial Class Ventas
                            Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
-            If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then
+            If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
                 If DtVentasNC IsNot Nothing Then
                     For Each row As DataRow In DtVentasNC.Rows
                         If Not row("CveVenta").ToString().ToEntero() = -1 Then
@@ -13302,7 +13310,7 @@ Partial Class Ventas
             End If
 
         Else
-            Alert("Se presento un error al cancelar el complemento.")
+            Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
         End If
 
         ObjBanco.Dispose()
@@ -16167,6 +16175,8 @@ Partial Class Ventas
                                         End If
 
                                         MovDetalle.Dispose()
+
+                                        OcurrioError = Not GeneroMovimientoAlmacen
                                     End If
 
                                 End If
@@ -16180,7 +16190,7 @@ Partial Class Ventas
                             End If
                         Next
 
-                        OcurrioError = Not GeneroMovimientoAlmacen
+
                     End If
 
                 End If
@@ -16334,7 +16344,7 @@ Partial Class Ventas
                     CveMovimientoDetalleEntrada = MovDet("CveMovimientoDetalle").ToString().ToEntero()
                 End If
 
-                If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, CveSeccionAlmacen:=CVeSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
+                If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
                     ContadorMovtosDetalles += 1
                 Else
                     OcurrioError = True
@@ -17035,7 +17045,21 @@ Partial Class Ventas
 
                 Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
                 Dim RFCReceptor As String = LblRFC.Text.Trim
+
+                Dim SWatch As New Stopwatch
+                SWatch.Start()
+
                 Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
+
+                SWatch.Stop()
+
+                Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
+                SegundosRespuesta = SegundosRespuesta.ToEntero
+
+                If SegundosRespuesta >= 5 Then
+                    Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastError, "")
+                End If
+
                 If Vigencia IsNot Nothing Then
 
                     If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
@@ -18003,17 +18027,30 @@ Partial Class Ventas
     Private Function ValidaPagosContado() As Boolean
         Dim Retorno = False
 
+        Dim AmortizacionNC As Decimal = 0
+
+        'SI ES AMORTIZACION POR NOTA DE CREDITO DEBE SUMAR LA TOTALIDAD PARA COMPARAR EL PAGO
+        If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
+            For Each gvr As GridViewRow In GVAnticipos.Rows
+                If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then
+                    AmortizacionNC += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal
+                End If
+            Next
+        End If
+
+        Dim TienePagos As Boolean = ((Not (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0)) AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0)) OrElse AmortizacionNC > 0
+
         'SI LA VENTA ES NUEVA VALIDAR TAMBIEN LOS PAGOS DE CONTADO
         If UsuarioActual.CveEmpresa = 141 AndAlso CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
 
-            If Not PermiteCredito AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) AndAlso TxtTotal.Text.ToDecimal > 0 Then
+            If Not PermiteCredito AndAlso Not TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
                 Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia)
                 Retorno = True
                 Return Retorno
             End If
 
-            If Not PermiteCredito AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0) AndAlso TxtTotal.Text.ToDecimal > 0 Then
-                Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal()
+            If Not PermiteCredito AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
+                Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + AmortizacionNC
 
                 If TotalPago < TxtTotal.Text.ToDecimal Then
                     Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia)
@@ -18026,15 +18063,15 @@ Partial Class Ventas
 
         'SI TIENE SALDO PENDIENTE VALIDA SI TIENE PAGOS
         If Me.SaldoVenta > 0 Then
-            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso (UsuarioActual.Empresa.Funcionalidad(531) = "1") AndAlso (Not PermiteCredito) AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) And TxtTotal.Text.ToDecimal > 0 Then
+            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso (UsuarioActual.Empresa.Funcionalidad(531) = "1") AndAlso (Not PermiteCredito) AndAlso Not TienePagos And TxtTotal.Text.ToDecimal > 0 Then
                 Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia)
                 Retorno = True
             End If
 
             If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
 
-                If Not PermiteCredito AndAlso DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 AndAlso TxtTotal.Text.ToDecimal > 0 Then
-                    Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal()
+                If Not PermiteCredito AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
+                    Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + AmortizacionNC
 
                     If TotalPago < TxtTotal.Text.ToDecimal Then
                         Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia)
@@ -18048,18 +18085,18 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(572) = "1" Then
                 Dim TotalNC As Decimal = If(ListaNCDesc IsNot Nothing AndAlso ListaNCDesc.Count > 0, LblTotalNC.Text.Trim().ToDecimal(), 0)
                 If TotalNC > 0 Then
-                    If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TotalNC Then
+                    If (DtPagos.SUM("Importe").ToString().ToDecimal() + AmortizacionNC + Total - TxtCambio.Text.ToDecimal) > TotalNC Then
                         Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia)
                         Retorno = True
                     End If
                 Else
-                    If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
+                    If (DtPagos.SUM("Importe").ToString().ToDecimal() + AmortizacionNC + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
                         Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia)
                         Retorno = True
                     End If
                 End If
             Else
-                If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
+                If (DtPagos.SUM("Importe").ToString().ToDecimal() + AmortizacionNC + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
                     Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia)
                     Retorno = True
                 End If
@@ -19178,6 +19215,7 @@ Partial Class Ventas
             End If
             sb.Clear()
         End If
+        ObjVentas.Dispose()
     End Sub
 
     Private Sub MostrarCondicionesCancelacion()
@@ -19212,7 +19250,19 @@ Partial Class Ventas
 
             Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
             Dim RFCReceptor As String = LblRFC.Text.Trim
+            Dim SWatch As New Stopwatch
+            SWatch.Start()
             Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
+
+            SWatch.Stop()
+
+            Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
+            SegundosRespuesta = SegundosRespuesta.ToEntero
+
+            If SegundosRespuesta >= 5 Then
+                Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastAdventencia, "")
+            End If
+
             If Vigencia IsNot Nothing Then
                 If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
                     Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia)
@@ -19272,7 +19322,7 @@ Partial Class Ventas
                     CancelacionAcuse = ObjCancelacion.CancelacionAcuse
                     CveEstatus = 5
                 Else
-                    Alert("La factura no se pudo cancelar ante el SAT", TipoMensaje.MsgError)
+                    Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
                     Exit Sub
                 End If
             Else
@@ -19392,6 +19442,8 @@ Partial Class Ventas
             Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
 
             If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then
+                Dim SWatch As New Stopwatch
+                SWatch.Start()
 
                 If EsRefacturacion Then
                     resp = ObjFacturaCancelacion.CancelarPorRefacturacion()
@@ -19410,16 +19462,25 @@ Partial Class Ventas
                     resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar)
                 End If
 
+                SWatch.Stop()
+
+                Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
+                SegundosRespuesta = SegundosRespuesta.ToEntero
+
+                If SegundosRespuesta >= 5 Then
+                    Alert($"Los servicios de cancelación del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastAdventencia, "")
+                End If
+
                 If resp.CveEstatus = 5 AndAlso Not EsRefacturacion Then
                     Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnEnviarMailCancelacion();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;<a onclick='Recargar()'>No</>&nbsp;&nbsp;&nbsp;&nbsp;")
                 Else
                     If EsRefacturacion Then
                         If resp.CveEstatus = 20 Then
                             ObjFacturaCancelacion.Dispose()
-                            Response.Redirect($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}")
+                            Server.Transfer($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}")
                         ElseIf resp.CveEstatus.Contiene(4, 5) Then
                             ObjFacturaCancelacion.Dispose()
-                            Response.Redirect($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1")
+                            Server.Transfer($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1")
                         Else
                             Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
                         End If