Correciones en ventas y timbrado

2023-07-20 20:59:33 -07:00
parent e21b4f02cc
commit 60e4dfd635
2 changed files with 4 additions and 4 deletions
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -590,11 +590,11 @@ Public Class Timbrado
                        CancelacionFecha = xmlDoc.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate
                        Retorno.CancelacionAcuse = CancelacionAcuse
                        Retorno.CancelacionFecha = CancelacionFecha
-
+                        Retorno.Verificado = True
                    Else
-                        CancelacionFecha = Now
+                        Retorno.Verificado = False
                    End If
-                    Retorno.Verificado = True
+

                Else
                    MsgCancelacion.AppendFormat("-3.5")
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -24897,7 +24897,7 @@ Partial Class Ventas
                Exit Sub
            End If

-            If SaldoVenta <> 0 Then
+            If SaldoAlmacen <> 0 Then

                If UsuarioActual.TienePermisoProceso(269) Then
                    DivDevAlm.Visible = True