diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 87d14695f..d7f5f38f7 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -580,7 +580,7 @@ - + @@ -8826,54 +8826,59 @@

Solicitar crédito

-
- - - - -
-
- - - - - - - -
-
- -
- - - - - - -
-
-
- - - - - - - -
-
-
-
- +
+
+ + + +
-
-
- - - +
+ + + + + + + +
+
+ +
+ + + + + +
-
+
+ + + + + + + +
+
+
+
+ +
+
+
+ + + +
+
+
+
+
+
+  
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index cfdd48d6f..c0d161bd6 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11,6 +11,7 @@ Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Services.CRM Imports ADSTimbrado Imports Extensiones +Imports Microsoft.Ajax.Utilities Imports Microsoft.Reporting.WebForms Imports Modelos Imports Newtonsoft.Json.Linq @@ -7861,8 +7862,11 @@ Partial Class Ventas End If If Bloqueo AndAlso ValorAutorizacion = "3" Then ' autorización con vinculación a una venta registrada - If UsuarioActual.CveRol = 1 Then TrCredito1.Visible = True + TrCredito1.Visible = True ChkSolicitudAutorizacionCredito.Checked = True + LnkSolicitarCredito.Visible = True + divModalidad2.Visible = False + divModalidad3.Visible = True End If 'SI ES AUTORIZACION DEBE PERMITIR GENERARLA @@ -9075,9 +9079,9 @@ Partial Class Ventas GvPS.DataBind() End Sub Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating - 'Dim TipoDescuento As Integer - Dim CvePSNuevo As Integer = GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue.ToEntero() + Dim CvePSNuevo As Integer = GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue.ToEntero() + Dim CvePSAnterior As Integer = GvPS.Rows(e.RowIndex).DataKey("CvePS").ToEntero Dim Cantidad, PU As Decimal Dim ObjDescuento As New Modelos.VentaDescuentos Dim CuentaPredial As String @@ -9104,7 +9108,7 @@ Partial Class Ventas End If 'SI ESTA HABILITADO LA OPCION DE DESCUENTO, SE AGREGO UN DESCUENTO MANUAL Y NO TIENE PROMOCION - If GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Enabled AndAlso (ObjDescuento.CvePromocionDetalle <= 0 AndAlso ObjDescuento.ImporteDescuento <= 0) AndAlso DescuentoManual > 0 Then + If GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Enabled AndAlso CvePSAnterior = CvePSNuevo Then 'AndAlso (ObjDescuento.CvePromocionDetalle <= 0 AndAlso ObjDescuento.ImporteDescuento <= 0) Then ObjDescuento.ImporteDescuento = DescuentoManual End If @@ -10906,11 +10910,23 @@ Partial Class Ventas Arr.Add(NombreCliente) Arr.Add($" $ {TxtTotal.Text.ToDecimal}") Arr.Add(DdlSubProyectoDatos.SelectedItem.Text) - EnviarNotificacionWhatsAppPlantilla("526621430964", "solicitud_autorizacion_credito2", Arr) - ' Alert("bien") - 'Else - ' Alert("mal", TipoMensaje.MsgAdvertencia) - 'End If + Dim dtt As DataTable = Nothing + Dim ObjProceso As New ClsSisProcesos + If ObjProceso.GetUsuariosconProceso(379, UsuarioActual.CveEmpresa) Then 'proceso para autorizar + dtt = ObjProceso.DtResultados.FiltraParametros("", DistinctColumns:={"CveUsuario", "Celular"}) + End If + If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then + For Each dr As DataRow In dtt.Rows + Dim NumeroTelefono = "526621143532" + If EsProduccion Then + NumeroTelefono = String.Format("52{0}", dr("Celular").ToString()) + End If + EnviarNotificacionWhatsAppPlantilla(NumeroTelefono, "solicitud_autorizacion_credito2", Arr) + 'ClsSisNotificaciones.EnviarAlerta("Solicitud de Autorización de crédito", $"Solicitud de autorización de crédito Folio: {Folio}
Ir Activar", dr("CveUsuario").ToString, Tipo:=TipoNotificacion.ToastInformacionB) + Next + End If + ObjProceso.Dispose() + End If End If @@ -37321,11 +37337,16 @@ Partial Class Ventas UpModalSolicitud.Update() End Sub Protected Sub BtnSolicitarCredito_Click(sender As Object, e As EventArgs) Handles BtnSolicitarCredito.Click + If UsuarioActual.Empresa.Funcionalidad(595) = "3" Then + RegistraScript("$('#DivModalSolicitarCredito').modal('hide')") + Exit Sub + 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 CveTipoAutorizacion <= 0 Then + If UsuarioActual.Empresa.Funcionalidad(595) <> "3" AndAlso CveTipoAutorizacion <= 0 Then Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia) Exit Sub End If