From 27938cf51583da47cf8fe9f30521a8f69197fcca Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 Jan 2025 16:47:11 -0700
Subject: [PATCH] --FIX ventas

---
 Ventas/Ventas.aspx.vb | 53 +++++++++++++++++++++++--------------------
 1 file changed, 28 insertions(+), 25 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 715278271..6ac79c8f5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37794,7 +37794,7 @@ Partial Class Ventas
             If CveVenta > 0 Then
 
                 Dim ObjVta As New ClsVentas
-                If ObjVta.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtTotal.Text.ToDecimal(), 0, UsuarioActual.CveUsuario, 1, TipoDocumento:="Ing", DiasVencidos:=25, CveVenta:=CveVenta) Then
+                If ObjVta.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtTotal.Text.ToDecimal(), 0, UsuarioActual.CveUsuario, 1, TipoDocumento:=DdlTipoComprobante.SelectedValue, DiasVencidos:=25, CveVenta:=CveVenta) Then
                     RegistraScript("$('#DivModalSolicitarCredito').modal('hide')")
                     Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion)
                     'signal
@@ -37809,33 +37809,36 @@ Partial Class Ventas
                 Exit Sub
             End If
 
+        Else
+
+            Dim DiasVencidos As Integer = 0
+            Dim CveEstatus As Integer = 0
+            Dim TipoDocto As String = DdlSolCreditoTipoDocto.SelectedValue
+            Dim CveTipoAutorizacion As Integer = DdlTipoAutorizacion.SelectedValue.ToEntero()
+            If UsuarioActual.Empresa.Funcionalidad(595) <> "3" AndAlso CveTipoAutorizacion <= 0 Then
+                Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If CveTipoAutorizacion = 2 Then
+                DiasVencidos = TxtDiasVencidos.Text.ToEntero()
+            End If
+
+            Dim Motivo As String = TxtMotivoAutorizacion.Text
+
+            Dim ObjPS As New ClsVentas
+            If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtImporteSolicitud.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocumento:=DdlSolCreditoTipoDocto.SelectedValue, DiasVencidos:=DiasVencidos, Motivo:=Motivo) Then
+                RegistraScript("$('#DivModalSolicitarCredito').modal('hide')")
+                Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion)
+                'signal
+                Dim mensaje = "<br/> <a target='_blank' href='https://www.w3schools.com'>La autorización se agregó correctamente.</a>"
+                ClsSisNotificaciones.EnviarAlerta("Autorización Crédito", mensaje, "100", Tipo:=TipoNotificacion.ToastInformacionB)
+
+            End If
+            ObjPS.Dispose()
         End If
 
-        Dim DiasVencidos As Integer = 0
-        Dim CveEstatus As Integer = 0
-        Dim TipoDocto As String = DdlSolCreditoTipoDocto.SelectedValue
-        Dim CveTipoAutorizacion As Integer = DdlTipoAutorizacion.SelectedValue.ToEntero()
-        If UsuarioActual.Empresa.Funcionalidad(595) <> "3" AndAlso CveTipoAutorizacion <= 0 Then
-            Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
 
-        If CveTipoAutorizacion = 2 Then
-            DiasVencidos = TxtDiasVencidos.Text.ToEntero()
-        End If
-
-        Dim Motivo As String = TxtMotivoAutorizacion.Text
-
-        Dim ObjPS As New ClsVentas
-        If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtImporteSolicitud.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocumento:=DdlSolCreditoTipoDocto.SelectedValue, DiasVencidos:=DiasVencidos, Motivo:=Motivo) Then
-            RegistraScript("$('#DivModalSolicitarCredito').modal('hide')")
-            Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion)
-            'signal
-            Dim mensaje = "<br/> <a target='_blank' href='https://www.w3schools.com'>La autorización se agregó correctamente.</a>"
-            ClsSisNotificaciones.EnviarAlerta("Autorización Crédito", mensaje, "100", Tipo:=TipoNotificacion.ToastInformacionB)
-
-        End If
-        ObjPS.Dispose()
         UpModalSolicitud.Update()
     End Sub
     Protected Sub DdlTipoAutorizacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoAutorizacion.SelectedIndexChanged