From 9c51273239571368c9da5f401b99a5d50c65f179 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Dec 2024 07:38:29 -0700 Subject: [PATCH 1/7] - --- asmx/WS_PuntoVenta.asmx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx index 7aa4f7908..a5c0162e5 100644 --- a/asmx/WS_PuntoVenta.asmx +++ b/asmx/WS_PuntoVenta.asmx @@ -515,7 +515,7 @@ Public Class WS_PuntoVenta 'End Function - Public Function GetVta_Promociones(Fecha As String, CveSubProyecto As Integer, CveEmpresa As Integer) As RespuestaWS + Public Function GetVta_Promociones(Fecha As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As RespuestaWS Dim objPromociones As New ClsVentas Dim Respuesta As New RespuestaWS From 481b3b299444112772c15b27c60bf1c567ba9f75 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Dec 2024 07:38:45 -0700 Subject: [PATCH 2/7] -- solicitud de anticipos y mejoras GDIaz --- Ventas/CatAutorizacionLimites.aspx.vb | 2 + Ventas/PVCobranza.aspx | 8 ++-- Ventas/PVCobranza.aspx.vb | 50 ++++++++++++++++---- Ventas/Ventas.aspx | 16 ++++--- Ventas/Ventas.aspx.vb | 66 ++++++++++++++++----------- 5 files changed, 94 insertions(+), 48 deletions(-) diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index 3783e7562..8d8a0bc50 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -213,6 +213,8 @@ Partial Class Ventas_CatAutorizacionLimites Dim CveCliente As Integer = gvRow.DataKey("CveCliente").ToEntero() Dim CveVendedor As Integer = gvRow.DataKey("CveVendedor").ToEntero() Dim CveEstatusAutorizacion As Integer = 1 + 'cuando es la modalidad 3, es autorización directa sobre la venta ya asociada a la solicitud. + If UsuarioActual.Empresa.Funcionalidad(595) = "3" Then CveEstatusAutorizacion = 2 Dim Importe As Decimal = gvRow.DataKey("Importe").ToDecimal().RoundSQL(2) 'AUTORIZACION DE IMPORTE, diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index d23c3b2fb..eb932618b 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -371,7 +371,6 @@ -
@@ -399,9 +398,7 @@
-
- -   +
Nombre:
         
@@ -538,7 +535,8 @@
- + +
$ diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index e95f16c1a..941d85578 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -3,12 +3,16 @@ Option Strict On Imports System.Data Imports System.IO +Imports System.Net.Http Imports Extensiones Imports Modelos.Factura Partial Class Ventas_PVCobranza Inherits ClsPaginas + +#Region "Propiedades" + Private Property CveCliente As Integer Get If ViewState("CveCliente") Is Nothing Then @@ -93,10 +97,29 @@ Partial Class Ventas_PVCobranza Set(value As DataTable) ViewState("DtCortesVentas") = value End Set - End Property - + End Property + +#End Region + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then + Dim Arr As New ArrayList + 'Arr.Add("autorizada") + 'If EnviarNotificacionWhatsApp("526621430964", "solicitud_autorizacion_anticipo_respuesta", Arr) Then + ' Alert("bien") + 'Else + ' Alert("mal", TipoMensaje.MsgAdvertencia) + 'End If + 'Arr.Add("suc") + 'Arr.Add("cliente") + 'Arr.Add("10") + 'Arr.Add("$ 15.11") + 'If EnviarNotificacionWhatsApp("526621430964", "solicitud_autorizacion_anticipo", Arr, "autoriza") Then + ' Alert("bien") + 'Else + ' Alert("mal", TipoMensaje.MsgAdvertencia) + 'End If + 'Exit Sub CveCorte = 0 CargaFiltros() CargaDdlPagos() @@ -340,8 +363,6 @@ Partial Class Ventas_PVCobranza End Sub - - Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -360,8 +381,16 @@ Partial Class Ventas_PVCobranza ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkImprimir")) End If If e.Row.DBCampo("CondicionesPago") = "1" Then ' remis de crédito - e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-warning" - e.Row.FCLinkButton("BtnPagar").Text = "Crédito" + ' si es de crédito debe de estar autorizado. + e.Row.FCLinkButton("BtnPagar").Text = "Crédito" + If e.Row.DBCampo("CveEstatusAutorizacion") = "2" Then ' si es autorizada + e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-warning" + e.Row.FCLinkButton("BtnPagar").Enabled = True + Else + e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-danger" + e.Row.FCLinkButton("BtnPagar").Enabled = False + e.Row.FCLinkButton("BtnPagar").ToolTip = "Solicitud de crédito no autorizada." + End If End If If e.Row.DBCampo("AplicaImpresionPorAnt") = "1" Then @@ -369,10 +398,10 @@ Partial Class Ventas_PVCobranza If e.Row.DBCampo("Saldo").ToDecimal() > 0 Then e.Row.FCLinkButton("BtnPagar").Visible = True If Not e.Row.DBCampo("TipoEntrega") = "2" Then - e.Row.FCLinkButton("LnkImprimir").Visible = False - End If - Else - e.Row.FCLinkButton("BtnPagar").Visible = False + e.Row.FCLinkButton("LnkImprimir").Visible = False + End If + Else + e.Row.FCLinkButton("BtnPagar").Visible = False End If End If @@ -1867,6 +1896,7 @@ Partial Class Ventas_PVCobranza UpAnticipos.Update() End Sub + Protected Sub GVAnticipos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowCreated If e.Row.RowType = DataControlRowType.Header Then e.Row.ClientIDMode = ClientIDMode.Static diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index cdad14650..87d14695f 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -451,7 +451,7 @@ Nombre:  - Enviar Mail: + Envía Mail: @@ -578,6 +578,11 @@ + + + + + Médico: @@ -1266,7 +1271,7 @@ <%--1--%> - +
@@ -1288,7 +1293,7 @@ - + @@ -1472,7 +1477,7 @@ <%--18--%> - +
@@ -1486,7 +1491,7 @@ <%--19--%> - + @@ -8824,7 +8829,6 @@
-
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 39adff7c8..cfdd48d6f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1665,7 +1665,6 @@ Partial Class Ventas ViewState("CveOC") = value End Set End Property - Private Property RegistroxOC As Boolean Get Return CBool(IfNull(ViewState("RegistroxOC"), False)) @@ -1674,8 +1673,6 @@ Partial Class Ventas ViewState("RegistroxOC") = value End Set End Property - - Private Property EnviarCorreoCliente As Boolean Get Return CBool(IfNull(ViewState("EnviarCorreoCliente"), False)) @@ -2598,10 +2595,6 @@ Partial Class Ventas CargaGestionCobranza() End If - If UsuarioActual.Empresa.Funcionalidad(595) = "2" Then - LnkSolicitarCredito.Visible = True - End If - DdlSATPS.setEsWebService(True) : DdlSATPS.Attributes.Add("data-metodo", "getpssat") DivPSSAT.Visible = True @@ -7709,6 +7702,8 @@ Partial Class Ventas Private Sub CargaRestriccionesCreditoCliente(Optional Alertas As Boolean = False, Optional CveVenta As Integer = -1) Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595) + 'solo para bdh, que se generen NC + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlSolCreditoTipoDocto.Items.Add(New ListItem("Nota de crédito", "Egs")) 'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO If Not EsFilial AndAlso (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then @@ -7750,7 +7745,7 @@ Partial Class Ventas If Me.PermiteCredito Then If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then - Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) + Dim CreditoDispo As Decimal = GetSaldoCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) If CreditoDispo > 0 Then TrCreditoDisponible.Visible = True LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo) @@ -7778,7 +7773,7 @@ Partial Class Ventas UPCondicionesPago.Update() End If - Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) + Dim CreditoDispo As Decimal = GetSaldoCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) If CreditoDispo > 0 Then TrCreditoDisponible.Visible = True @@ -7801,7 +7796,7 @@ Partial Class Ventas If Not EsCreaApartirDe AndAlso (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then DdlTipoComprobante.SelectedValueExist("Cot") Else - If UsuarioActual.Empresa.Funcionalidad(595) = "1" Then + If ValorAutorizacion = "1" Then DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización") DdlTipoComprobante.SelectedValue = "PA" @@ -7814,7 +7809,7 @@ Partial Class Ventas If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then DdlTipoComprobante.SelectedValue = "Cot" 'quito remisión y factura - If UsuarioActual.Empresa.Funcionalidad(595) <> "2" Then + If ValorAutorizacion = "1" Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) If Not UsuarioActual.TienePermisoProceso(325) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) @@ -7839,7 +7834,6 @@ Partial Class Ventas If Bloqueo AndAlso ValorAutorizacion = "2" Then Dim Autorizacion As Integer = 0 - Dim ObjVentas As New ClsVentas If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero, "Ing", CveEstatus:=1) Then Dim RowAutorizacion As DataRow = Nothing @@ -7862,6 +7856,13 @@ Partial Class Ventas TieneBloqueoPorCreditoVencimiento = 0 Alert("El cliente tiene una autorización aprobada", TipoMensaje.ToastInformacion) End If + LnkSolicitarCredito.Visible = True + DdlTipoAutorizacion.SelectedValueExist("1") + 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 + ChkSolicitudAutorizacionCredito.Checked = True End If 'SI ES AUTORIZACION DEBE PERMITIR GENERARLA @@ -7999,16 +8000,7 @@ Partial Class Ventas End If End If Case "2" 'Autorizacion desde una solicitud del catalogo de autorizaciones - 'RMF. validacion temporal - 'verifica si tiene autorizaciones de Nota de crédito autorizadas - 'Dim ObjVentas As New ClsVentas - 'If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Ing", CveEstatus:=1) Then - ' Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion") - ' If RowAutorizacion IsNot Nothing Then - ' DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos") - ' End If - 'End If - 'ObjVentas.Dispose() + Dim Vta As New ClsVentas Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa) Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón:

{0}", Vta.SerieVenta) @@ -8128,7 +8120,7 @@ Partial Class Ventas 'CREDITO NO SUFICIENTE If Opcion = 3 Then - 'Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) + 'Dim CreditoDispo As Decimal = GetSaldoCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) 'If CreditoDispo < 0 AndAlso RBLPago.SelectedValue = "1" Then ' BloquearCliente = True 'End If @@ -8295,7 +8287,7 @@ Partial Class Ventas Alert("La Sucursal/Departamento del cliente se encuentra inactivo", TipoMensaje.MsgAdvertencia) Else RBLPago.Items(0).Enabled = True - Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero(), ObjVentas) + Dim CreditoDispo As Decimal = GetSaldoCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero(), ObjVentas) TrCreditoDisponible.Visible = True LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo) @@ -8435,7 +8427,7 @@ Partial Class Ventas UpCliente.Update() UpEmitirTransitorio.Update() End Sub - Private Function CargaCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal + Private Function GetSaldoCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal Dim Retorno As Decimal = 0 Dim ObjVentasAplciar As ClsVentas = Nothing If ObjVentas IsNot Nothing Then @@ -10904,6 +10896,23 @@ Partial Class Ventas End If End If End If + If ErrorList.Count = 0 AndAlso ObjFactura.CveVenta > 0 AndAlso ChkSolicitudAutorizacionCredito.Checked Then + ' crea la solicitud de autorización de crédito + Dim tCveTipoAutorizacion As Integer = 1 + If ObjVentas.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtTotal.Text.ToDecimal(), 0, UsuarioActual.CveUsuario, tCveTipoAutorizacion, TipoDocumento:=DdlTipoComprobante.SelectedValue, DiasVencidos:=25, CveVenta:=ObjFactura.CveVenta) Then + Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion) + Dim Arr As New ArrayList + + 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 + End If + End If 'Paso CRM actualizar importe de acercamiento y guardar en bitacora If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then @@ -37340,8 +37349,11 @@ Partial Class Ventas UpModalSolicitud.Update() End Sub Protected Sub DdlTipoAutorizacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoAutorizacion.SelectedIndexChanged - DivImporteSolicitud.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 1 - DivDiasVencidos.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 2 + DivImporteSolicitud.Visible = DdlTipoAutorizacion.SelectedValue = "1" + DivDiasVencidos.Visible = DdlTipoAutorizacion.SelectedValue = "2" + If Not UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + TxtDiasVencidos.Text = "25" + End If UpModalSolicitud.Update() End Sub From a5dd057e5d2b7cdcea183149f739ea7e45f2f9ca Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Dec 2024 10:06:33 -0700 Subject: [PATCH 3/7] -- cambio --- Ventas/PVCobranza.aspx.vb | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 941d85578..b2cb33b4f 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -388,8 +388,8 @@ Partial Class Ventas_PVCobranza e.Row.FCLinkButton("BtnPagar").Enabled = True Else e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-danger" - e.Row.FCLinkButton("BtnPagar").Enabled = False - e.Row.FCLinkButton("BtnPagar").ToolTip = "Solicitud de crédito no autorizada." + ' e.Row.FCLinkButton("BtnPagar").Enabled = False + e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;" End If End If @@ -1878,7 +1878,7 @@ Partial Class Ventas_PVCobranza If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then For Each dr As DataRow In dtt.Rows - Dim NumeroTelefono = "526621143532" + Dim NumeroTelefono = "" If EsProduccion Then NumeroTelefono = String.Format("52{0}", dr("Celular").ToString()) End If @@ -1892,7 +1892,6 @@ Partial Class Ventas_PVCobranza Else Alert("No se envió la solicitud de autorización", TipoMensaje.MsgAdvertencia) End If - UpAnticipos.Update() End Sub @@ -1918,7 +1917,6 @@ Partial Class Ventas_PVCobranza e.Row.FCCheckBox("Chk").Enabled = False End If End If - End If End Sub From 4a2b273841943160f700642617566ef7f73ab49d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Dec 2024 10:06:39 -0700 Subject: [PATCH 4/7] -- --- Ventas/Ventas.aspx | 97 +++++++++++++++++++++++-------------------- Ventas/Ventas.aspx.vb | 41 +++++++++++++----- 2 files changed, 82 insertions(+), 56 deletions(-) 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 From ca20b8299aff6eb70cc7d85886152a3e2e915b25 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 30 Dec 2024 10:20:55 -0700 Subject: [PATCH 5/7] Rep OCxSuertir reacocumo controles, PopUpBsucar Folio, Prmociones --- Compras/PopUpVerFactura.aspx.vb | 2 +- OC/RepOCxSurtir.aspx | 17 +++++++------ OC/RepOCxSurtir.aspx.vb | 43 ++++++++++++++++++++++++++++----- Site.master | 2 +- Ventas/PopUpBuscarFolio.aspx.vb | 2 +- Ventas/Promociones.aspx | 5 +++- Ventas/Promociones.aspx.vb | 13 +++++++--- 7 files changed, 63 insertions(+), 21 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index ea00e848c..5ad5f3e85 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3080,7 +3080,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Observaciones", Observaciones)) - If UsuarioActual.CveEmpresa.Contiene(186, 189, 193) Then + If UsuarioActual.CveEmpresa.Contiene(186, 189, 193, 189) Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) End If diff --git a/OC/RepOCxSurtir.aspx b/OC/RepOCxSurtir.aspx index 0365b13b2..148aeb4e3 100644 --- a/OC/RepOCxSurtir.aspx +++ b/OC/RepOCxSurtir.aspx @@ -18,7 +18,7 @@ <%--FILTROS--%> -
+
@@ -53,6 +53,10 @@
+
Centro de Costo
+
+ +
@@ -60,16 +64,15 @@
- + <%----%> +
Cliente:
- -
-
Centro de Costo
-
- + <%----%> +
+
diff --git a/OC/RepOCxSurtir.aspx.vb b/OC/RepOCxSurtir.aspx.vb index 0a9726d3a..5e0c376cc 100644 --- a/OC/RepOCxSurtir.aspx.vb +++ b/OC/RepOCxSurtir.aspx.vb @@ -15,20 +15,51 @@ Partial Class OC_RepOCxSurtir #Region " INICIALIZA VALORES " Private Sub InicializaValores() + + Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) + TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString TxtFechaF.Text = NowADS().ToShortDateString - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() - DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + 'DdlProveedor.DataBind() + 'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + + 'CargaProveedores + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlCliente.DataBind() - DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) + + + + If EsWS Then + DdlCliente.setEsWebService(True) + DdlCliente.SelectedText = "Todos" + DdlCliente.SelectedValue = "-1" + + DdlProveedor.setEsWebService(True) + DdlProveedor.Attributes.Add("data-metodo", "getproveedores") + DdlProveedor.SelectedText = "Todos" + DdlProveedor.SelectedValue = "-1" + + Else + DdlCliente.setEsWebService(False) + DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + DdlCliente.DataBind() + DdlCliente.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlProveedor.setEsWebService(False) + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedor.DataBind() + DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + + + + End If + UPFiltros.Update() End Sub diff --git a/Site.master b/Site.master index d925ca666..89641e5d6 100644 --- a/Site.master +++ b/Site.master @@ -168,7 +168,7 @@
  • - Buscar Venta diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb index 99717874d..8f3996771 100644 --- a/Ventas/PopUpBuscarFolio.aspx.vb +++ b/Ventas/PopUpBuscarFolio.aspx.vb @@ -175,7 +175,7 @@ Partial Class PopUpBuscarFolio Liga = String.Format("", e.Row.DBCampo("CveVenta")) End If - e.Row.FCLiteral("LtlTipo").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("TipoDocto")) + e.Row.FCLiteral("LtlTipo").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("TipoDocto")) e.Row.FCLiteral("LtlFolio").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Folio")) e.Row.FCLiteral("LtlFecha").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString) e.Row.FCLiteral("LtlNombre").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("NombreComercial")) diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 1aa380ef7..0b342eb9b 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -142,6 +142,9 @@ Descuento PU + +
    • @@ -193,7 +196,7 @@
    - +
    diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index de8564cf0..82f584ad0 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -243,7 +243,7 @@ Partial Class Ventas_Promociones 'CLASIFICACIONES DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacion.DataBind() - If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If EmpresaGrupoDiaz Then DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) Else DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -536,11 +536,16 @@ Partial Class Ventas_Promociones End If ' validación de %minimo considerado 02580104V - If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If EmpresaGrupoDiaz Then Dim tuc As Decimal = LblUltimoCosto.Text.ToDecimal Dim tpu As Decimal = TxtPromocionConcepto.Text.ToDecimal If tuc <= 0 OrElse (tpu - tuc) / tuc < UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100 Then - Alert("El producto está debajo de la utilidad permitida, la promoción requerirá autorización.", TipoMensaje.MsgAdvertencia.ToastAdventencia) + If PermisoAutorizPromocionPorcentaje Then + Alert("El producto está debajo de la utilidad permitida.", TipoMensaje.MsgAdvertencia.ToastAdventencia) + Else + Alert("El producto está debajo de la utilidad permitida, la promoción requerirá autorización.", TipoMensaje.MsgAdvertencia.ToastAdventencia) + End If + End If End If @@ -714,7 +719,7 @@ Partial Class Ventas_Promociones Next End If - If BloqueadoPromocionPorcentaje AndAlso Bloquear Then + If (Not PermisoAutorizPromocionPorcentaje) AndAlso BloqueadoPromocionPorcentaje AndAlso Bloquear Then ChkEstatus.Checked = False ChkEstatus.Enabled = False End If From a5b763aa3848ae119b4b712f9750cb7d6f2e75b4 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 30 Dec 2024 10:40:16 -0700 Subject: [PATCH 6/7] PVCobranza Mensaje solicitud e credio no ha sido autiorizada --- Ventas/PVCobranza.aspx.vb | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index b2cb33b4f..e60d157e1 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -102,7 +102,8 @@ Partial Class Ventas_PVCobranza #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then + If Not Page.IsPostBack Then + Dim Arr As New ArrayList 'Arr.Add("autorizada") 'If EnviarNotificacionWhatsApp("526621430964", "solicitud_autorizacion_anticipo_respuesta", Arr) Then @@ -389,7 +390,23 @@ Partial Class Ventas_PVCobranza Else e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-danger" ' e.Row.FCLinkButton("BtnPagar").Enabled = False - e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;" + 'e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;" + 'e.Row.FCLinkButton("BtnPagar").OnClientClick = "bootbox.dialog({message: 'La solicitud de crédito no ha sido autorizada ', className: ' header-yellow ', onEscape: function() { },title: ' Advertencia',buttons: { success: { label: '', className: ' hide',callback: function() { } }, danger: { label: '', className: ' hide',callback: function() { } },main: { label: 'Aceptar', className: ' yellow', callback: function() { } } } });return false;" + 'e.Row.FCLinkButton("BtnPagar") = + e.Row.FCLinkButton("BtnPagar").OnClientClick = + "bootbox.dialog({" & + "message: 'La solicitud de crédito no ha sido autorizada ', " & + "className: 'header-yellow', " & + "onEscape: function() {}, " & + "title: ' Advertencia', " & + "buttons: { " & + "success: { label: '', className: 'hide', callback: function() {} }, " & + "danger: { label: '', className: 'hide', callback: function() {} }, " & + "main: { label: 'Aceptar', className: 'yellow', callback: function() {} } " & + "} " & + "});" & + "return false;" + End If End If From 1466ea31944cf5fc9e06f19b0b4360479448ca23 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 30 Dec 2024 10:43:37 -0700 Subject: [PATCH 7/7] PVCobranza Mensaje solicitud e credio no ha sido autiorizada --- Ventas/PVCobranza.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index e60d157e1..735335254 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -393,6 +393,7 @@ Partial Class Ventas_PVCobranza 'e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;" 'e.Row.FCLinkButton("BtnPagar").OnClientClick = "bootbox.dialog({message: 'La solicitud de crédito no ha sido autorizada ', className: ' header-yellow ', onEscape: function() { },title: ' Advertencia',buttons: { success: { label: '', className: ' hide',callback: function() { } }, danger: { label: '', className: ' hide',callback: function() { } },main: { label: 'Aceptar', className: ' yellow', callback: function() { } } } });return false;" 'e.Row.FCLinkButton("BtnPagar") = + e.Row.FCLinkButton("BtnPagar").Enabled = False e.Row.FCLinkButton("BtnPagar").OnClientClick = "bootbox.dialog({" & "message: 'La solicitud de crédito no ha sido autorizada ', " &