--FIX ventas

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,7 +37809,7 @@ Partial Class Ventas
                 Exit Sub
             End If
 
-        End If
+        Else
 
             Dim DiasVencidos As Integer = 0
             Dim CveEstatus As Integer = 0
@@ -37836,6 +37836,9 @@ Partial Class Ventas
 
             End If
             ObjPS.Dispose()
+        End If
+
+
         UpModalSolicitud.Update()
     End Sub
     Protected Sub DdlTipoAutorizacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoAutorizacion.SelectedIndexChanged