From 9f9e974e717aa94c6dc7ab65e02e4568bf95366c Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 27 Apr 2024 13:35:17 -0700 Subject: [PATCH 1/8] -- cambio para addfactura --- App_Code/ClsCompras.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 83ee9fe20..4f4417e6d 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1792,7 +1792,7 @@ Public Class ClsCompras StrSQL.Append(" INSERT INTO Comp_Facturas (Serie, Folio, FechaFactura, NombreProveedor, RFCDe, Total, UUID, RFCPara, XML, PDF, FueValidado, CveEmpresa, TipoFactura,Version, TipoComprobante) ") StrSQL.Append(" VALUES (@Serie, @Folio, @FechaFactura, @NombreProveedor, @RFCDe, @Total, @UUID, @RFCPara, @XML, @PDF, @FueValidado, @CveEmpresa, @PreFijo, @Version,@TipodeComprobante); ") StrSQL.Append(" SET @Retorno = 1; ") - StrSQL.Append(" SET @CveFactura = IDENT_CURRENT('Comp_Facturas'); ") + StrSQL.Append(" SET @CveFactura = SCOPE_IDENTITY(); ") StrSQL.Append(" UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml'), PDF = CONCAT(@CveFactura ,'.pdf') WHERE CveFactura = @CveFactura; ") StrSQL.Append(" END ") StrSQL.Append(" ELSE BEGIN SET @CveFactura = @tTotal; END ") From 1f5d8b5c7a7af358437c27b3f7e85e6666a71ab3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 May 2024 16:33:05 -0700 Subject: [PATCH 2/8] - --- OS/OrdenesServicios.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 120338480..bc6d50fc1 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3202,6 +3202,7 @@ Partial Class OS_OrdenesServicios For i = 0 To dtmat.Rows.Count - 1 If DtVentaDetalle.Rows(i)("CvePS").ToString = dtmat.Rows(i)("CvePS").ToString Then DtVentaDetalle.Rows(i)("CveVentaDetalle") = dtmat.Rows(i)("CveVentaDetalle") + DtVentaDetalle.Rows(i)("CveUM") = dtmat.Rows(i)("CveUM") End If Next End If @@ -3212,7 +3213,7 @@ Partial Class OS_OrdenesServicios If GenerarRemisionMovimientos AndAlso ProcesoOK Then - CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil") + CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil3") Dim Folio As Integer = ObjInventario.Folio If CveMovimientoSalida > 0 Then From 46717f70ea990326e9ddde67d47ffc745263dabe Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 May 2024 16:33:33 -0700 Subject: [PATCH 3/8] =?UTF-8?q?=20cambio=20para=20env=C3=ADo=20de=20correo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ProveedoresAbonar.aspx | 9 ++------- Bancos/ProveedoresAbonar.aspx.vb | 16 ++-------------- 2 files changed, 4 insertions(+), 21 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 1b1028021..1e7945306 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -338,13 +338,8 @@ - - - - - - - + + diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 911a889a4..a1791b726 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -317,9 +317,6 @@ Partial Class Bancos_ProveedoresAbonar chkaplicaDescuento.Visible = True End If - - tmpValida() - End If End Sub @@ -1389,31 +1386,26 @@ Partial Class Bancos_ProveedoresAbonar 'Hilo.Start() If MostarAlert Then - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + Alert("El correo se envió correctamente", TipoMensaje.ToastInformacion) End If Catch ex As Exception - If MostarAlert Then Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) End If - - End Try End Sub Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) - Try Dim ObjBancos As New ClsBancos() If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + Alert("El correo se envió correctamente", TipoMensaje.ToastInformacion) Else Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) End If - ObjBancos.Dispose() Catch ex As Exception GuardaLog("Error al enviar notificación de pago ProveedoresAbonar --> " & ex.StackTrace.ToString) @@ -1715,9 +1707,5 @@ Partial Class Bancos_ProveedoresAbonar End If End Sub - - Protected Sub Button1_Click(sender As Object, e As EventArgs) - tmpValida() - End Sub End Class From 1fa8a1c96604e55a68fe100a04079907f6d9ddff Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 May 2024 16:33:54 -0700 Subject: [PATCH 4/8] -- complementos de pago. --- Contabilidad/RegPrePolizaS.aspx | 76 ++++++++++++++++++++++-------- Contabilidad/RegPrePolizaS.aspx.vb | 53 ++++++++++++++++++--- 2 files changed, 103 insertions(+), 26 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 4856937c2..b460ad4ee 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -69,37 +69,27 @@ - - -
  • - Cargar Excel -
    • -
  • - Crear Complemento de Pago -
    • +
  • Imprimir Poliza -
    • - - <%--
  • - Imprimir PDF Resumen -
    • --%> - <%--
  • - Imprimir Excel Resumen -
    • --%> - - +
  • - Agregar Concepto
  • Crear a partir de
    • +
  • + Complemento de Pago +
    • +
  • + Cargar Excel +
    • -     + +     @@ -1008,6 +998,52 @@ + + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index bbf936287..28a9814bb 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -6,7 +6,6 @@ Imports GemBox.Spreadsheet Partial Class ContabilidadC_RegPrePolizaS Inherits ClsPaginas - #Region "Propiedades" Public Property ArregloMovs As ArrayList Get @@ -504,7 +503,7 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.Columns(7).Visible = True End If - If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17,292,308)").Rows.Count > 0 Then + If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,292)").Rows.Count > 0 AndAlso DtMovimientos.FiltraParametros("CveConceptoContable IN (30)").Rows.Count = 0 Then LnkComplementoPago.Visible = True End If @@ -2073,6 +2072,36 @@ Partial Class ContabilidadC_RegPrePolizaS #Region "COMPLEMENTO DE PAGO" + Private Sub LnkComplementoPago_Click(sender As Object, e As EventArgs) Handles LnkComplementoPago.Click + CargaComplementosPago() + RegistraScript("$('#ModalComplementoPagos').modal('show');") + End Sub + + Private Sub CargaComplementosPago() + + Dim ObjBancos As New ClsBancos + DVGenerarComplementoModal.Visible = False + + If ObjBancos.GetComplementoPagosRep(-1, MinFecha, MaxFecha, -1, -1, 1, UsuarioActual.CveEmpresa, 2, CvePrePoliza:=CvePrePoliza) Then + Dim dtt As DataTable = Nothing + dtt = ObjBancos.DtResultados + If dtt.Rows.Count > 0 Then + UpComplementoPagos.Visible = True + 'GvComplementoPagos.Columns(7).Visible = True + ' si tiene el permiso para eliminar IE o editar IE + 'If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(8).Visible = True + Else + DVGenerarComplementoModal.Visible = True + End If + GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "SerieFolioPago", "FechaComplemento", "Importe", "CveIE"}) + + End If + ObjBancos.Dispose() + GvComplementoPagos.DataBind() + UpComplementoPagos.Update() + + End Sub + Private Sub GeneraTimbre(CvePrePoliza As Integer) Dim Str As New StringBuilder Dim Banco As New ClsBancos @@ -2094,6 +2123,18 @@ Partial Class ContabilidadC_RegPrePolizaS Alert(Str.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") End Sub + Protected Sub GvComplementoPagos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvComplementoPagos.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + 'If e.Row.DataKey("Tipo") = "Ing" Then + e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + + 'End If + End If + End Sub + Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True) Try Dim Msg As String = "" @@ -2127,13 +2168,9 @@ Partial Class ContabilidadC_RegPrePolizaS End Try End Sub - Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs) - GeneraTimbre(CvePrePoliza) - End Sub #End Region - #Region "E X C E L" @@ -2709,5 +2746,9 @@ Partial Class ContabilidadC_RegPrePolizaS End If UpModalConcepto.Update() End Sub + + Protected Sub LnkEmitirComplemento_Click(sender As Object, e As EventArgs) + GeneraTimbre(CvePrePoliza) + End Sub End Class From a4d826f01f69475b77069fa239599f15ba23b4aa Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 May 2024 16:34:05 -0700 Subject: [PATCH 5/8] - --- General/SaldosIniciales.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 5fa4c8fbd..11846cb70 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -879,7 +879,7 @@ Partial Class General_SaldosIniciales If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then If ObjUM.AddUnidadMedida(UnidadMedida, UnidadMedida, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero() > 0 Then - If ObjUM.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing + GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString().ToEntero() End If End If @@ -1250,6 +1250,7 @@ Partial Class General_SaldosIniciales If Not ObjProv.AddProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Dirrecion, Telefono, "", ContactoMail, CelularContacto, LimiteCredito, PlazoCobranza, "", 0, 0, 0, CveProveedorClasificacion, -1, "", "", False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CP:=CodigoPostal, CveRegimenFiscal:=CveRegimenFiscal, CveTipoProveedor:=TipoProveedor, CveMonedaPreferente:=CveMoneda, DIOTCveTipoTercero:=DIOTCveTipoTercero, DIOTCveTipoOperacion:=DIOTCveTipoOperacion) Then + Alert("." & RFC) ErrorProv = True Exit For Else From 8178bddc89b85fbd42ea874c01eb210e5dcf3b0e Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 May 2024 16:34:13 -0700 Subject: [PATCH 6/8] - --- asmx/WSApp.asmx | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index 3d4d064e3..d58e8eef0 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -350,9 +350,10 @@ Public Class WSApp Return JsonConvert.SerializeObject(Retorno) End Function Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario) - Try - Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)) - Hilo.Start() + Try + EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual) + 'Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)) + 'Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar el correo de facturación", ex) End Try From 775c967e70039c358483e8bdfb1b805e825f07fe Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 2 May 2024 20:55:58 -0700 Subject: [PATCH 7/8] =?UTF-8?q?--=20cambio=20en=20timbrado=20INE-campa?= =?UTF-8?q?=C3=B1a?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Timbrado.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index c6c2e9e9e..60c6dc724 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2461,7 +2461,7 @@ Public Class Timbrado cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "") cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite) - 'If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) + If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad) End Select End If From f5983e3e9ec8511eb2049a201f9ce0bde6ea9898 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 3 May 2024 12:18:19 -0700 Subject: [PATCH 8/8] SMS Comisiones 2024-04-02 --- App_Code/ClsVentas.vb | 11 ++- UserControl/AddMedico.ascx | 127 ++++++++++++++++++-------------- UserControl/AddMedico.ascx.vb | 15 +++- Ventas/CatMedicos.aspx | 2 +- Ventas/CatMedicos.aspx.vb | 2 +- Ventas/RepComisionesSMS.aspx | 32 ++++++-- Ventas/RepComisionesSMS.aspx.vb | 37 ++++++++-- 7 files changed, 147 insertions(+), 79 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 21f150695..69de2e44a 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6197,7 +6197,8 @@ Public Class ClsVentas End Function Public Function AddMedico(Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, - CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Integer + CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, + Optional CveVendedor As Integer = -1, Optional CvePeriodoPago As Integer = 1) As Integer Dim Retorno As Boolean = False CveMedicoNuevo = -1 @@ -6218,6 +6219,7 @@ Public Class ClsVentas .Add("@Celular", SqlDbType.VarChar).Value = Celular .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CvePeriodoPago", SqlDbType.Int).Value = CvePeriodoPago .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -6234,7 +6236,8 @@ Public Class ClsVentas End Function Public Function UpdateMedico(CveMedico As Integer, Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, - CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Boolean + CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, + Optional CveVendedor As Integer = -1, Optional CvePeriodoPago As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_MedicosUpdate") @@ -6259,6 +6262,7 @@ Public Class ClsVentas '.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CvePeriodoPago", SqlDbType.Int).Value = CvePeriodoPago '.Add("@Torre", SqlDbType.VarChar).Value = Torre @@ -6827,7 +6831,7 @@ Public Class ClsVentas End Function - Public Function AddUpdateComisionesMedicas(CvePS As Integer, CveEmpresa As Integer, ComisionMedico As Decimal, ComisionVendedor As Decimal, ComisionTecnico As Decimal) As Boolean + Public Function AddUpdateComisionesMedicas(CvePS As Integer, CveEmpresa As Integer, ComisionMedico As Decimal, ComisionVendedor As Decimal, ComisionTecnico As Decimal, ComisionGerente As Decimal) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ComisionesMedicasAddUpdate") @@ -6838,6 +6842,7 @@ Public Class ClsVentas .Add("@ComisionMedico", SqlDbType.Money).Value = ComisionMedico .Add("@ComisionVendedor", SqlDbType.Money).Value = ComisionVendedor .Add("@ComisionTecnico", SqlDbType.Money).Value = ComisionTecnico + .Add("@ComisionGerente", SqlDbType.Money).Value = ComisionGerente End With Try diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index 500ff0a9c..f56e0b0b4 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -21,7 +21,7 @@

    Agregar Médico

    -
    +
    @@ -34,12 +34,12 @@
    - - - -
    -
    + + + +
    +
    @@ -50,7 +50,7 @@
    + ErrorMessage="ERROR:
    El campo ''Cédula Profecional'' es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico">
    @@ -74,15 +74,15 @@ -
    -
    - - - +
    + + + - -
    -
    + +
    +
    @@ -93,7 +93,7 @@
    - +
    @@ -101,23 +101,23 @@ - +
    -
    -
    - - - - +
    + + + + - -
    -
    + +
    +
    @@ -145,20 +145,35 @@
    +
    +
    +
    + + - + Mensual + Quincenal + Semanal + + +
    +
    +
    +
    + + +
    +
    + -
    - -
    - -
    -
    - -
    -
    +
    +
    + +
    +
    @@ -171,7 +186,7 @@ - + @@ -186,26 +201,26 @@ - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + - <%-- + <%-- diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb index 1a0a18012..410e991a0 100644 --- a/UserControl/AddMedico.ascx.vb +++ b/UserControl/AddMedico.ascx.vb @@ -170,7 +170,7 @@ Partial Class UserControl_AddMedico TxtCelular.Text = "" DdlEspecialidad.SelectedValueExist(-1) DdlSubEspecialidad.SelectedValueExist(-1) - + DdlPeriodoPago.SelectedValueExist(-1) DVUsuarioFechaIng.Visible = False TxtFechaIng.Text = "" TxtUsuario.Text = "" @@ -209,7 +209,8 @@ Partial Class UserControl_AddMedico End Sub Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, - Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer) + Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, + CveVendedor As Integer, Optional CvePeriodoPago As Integer = -1) CargaCombos() CargaCombosMedicoClientesucursal() @@ -233,11 +234,15 @@ Partial Class UserControl_AddMedico TxtUsuario.Text = Usuario DdlVendedor.SelectedValueExist(CveVendedor) + DdlPeriodoPago.SelectedValueExist(CvePeriodoPago) DVEstatus.Visible = True LbAgregar.Text = "Actualizar" LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}" + + + UpModal.Update() CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa) @@ -257,13 +262,15 @@ Partial Class UserControl_AddMedico If CveMedico > 0 Then If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, - UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) Then + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, + DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) Then ProcesoOK = True End If Else CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, - UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, + DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) If CveMedicoNuevo > 0 Then diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index f66cc0647..186e273ff 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -228,7 +228,7 @@ <%--DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"--%> diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb index 10e4e01b6..45c4a28f8 100644 --- a/Ventas/CatMedicos.aspx.vb +++ b/Ventas/CatMedicos.aspx.vb @@ -188,7 +188,7 @@ Partial Class Ventas_CatMedicos AddMedicoControl.PreparaEdicion(CveMedico, GvRow.DataKey("Nombre"), GvRow.DataKey("Apellidos"), GvRow.DataKey("CedulaProfesional"), GvRow.DataKey("FechaNacimiento").ToDate(), GvRow.DataKey("Notas"), Boolean.Parse(GvRow.DataKey("Estatus")), GvRow.DataKey("Mail"), GvRow.DataKey("Telefono"), GvRow.DataKey("Celular"), GvRow.DataKey("CveMedicoEspecialidad").ToEntero, GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero, - GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"), GvRow.DataKey("CveVendedor").ToEntero) + GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"), GvRow.DataKey("CveVendedor").ToEntero, CvePeriodoPago:=GvRow.DataKey("CvePeriodoPago").ToEntero) diff --git a/Ventas/RepComisionesSMS.aspx b/Ventas/RepComisionesSMS.aspx index d7122528f..d4aa631ed 100644 --- a/Ventas/RepComisionesSMS.aspx +++ b/Ventas/RepComisionesSMS.aspx @@ -164,7 +164,7 @@