diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index d6c120adb..b158a0930 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -70,8 +70,8 @@ Public Class ClsOS Public Property CveMedico As Integer = -1 Public Property CveProcedimiento As Integer = -1 Public Property CveTipoVenta As Integer = -1 - - + Public Property Paciente As String + Public Property IdentificadorCliente As String Private Class Especificaciones Public CveValor As Integer @@ -495,7 +495,8 @@ Public Class ClsOS End Function - Public Function GetRepOrdenesServicioMedicasRep(FechaI As Date, FechaF As Date, CveCliente As Integer, CveVendedor As Integer, CveEstatusOrdenServicio As Integer, CveUsuarioAtendio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Public Function GetRepOrdenesServicioMedicasRep(FechaI As Date, FechaF As Date, CveCliente As Integer, CveVendedor As Integer, CveEstatusOrdenServicio As Integer, CveUsuarioAtendio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, + Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServiciosMedicasRepGet") @@ -510,6 +511,8 @@ Public Class ClsOS .Add("@CveUsuarioAtendio", SqlDbType.Int).Value = CveUsuarioAtendio 'Este es el técnico .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento End With @@ -586,7 +589,8 @@ Public Class ClsOS Me.CveMedico = Data.Rows(0)("CveMedico").ToString.ToEntero Me.CveProcedimiento = Data.Rows(0)("CveProcedimiento").ToString.ToEntero Me.CveTipoVenta = Data.Rows(0)("CveTipoVenta").ToString.ToEntero - + Me.Paciente = Data.Rows(0)("Paciente").ToString + Me.IdentificadorCliente = Data.Rows(0)("IdentificadorCliente").ToString End If Retorno = True @@ -642,7 +646,8 @@ Public Class ClsOS Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional Correo As String = "", - Optional Condiciones As String = "", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional FechaCita As DateTime = MinFecha) As Boolean + Optional Condiciones As String = "", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional FechaCita As DateTime = MinFecha, + Optional Paciente As String = "-1", Optional IdentificadorCliente As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServiciosAdd") @@ -674,6 +679,9 @@ Public Class ClsOS .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta .Add("@FechaCita", SqlDbType.DateTime).Value = FechaCita + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@IdentificadorCliente", SqlDbType.VarChar).Value = IdentificadorCliente + .Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -718,7 +726,8 @@ Public Class ClsOS Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1", Optional Condiciones As String = "", - Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional FechaCita As DateTime = MinFecha) As Boolean + Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional FechaCita As DateTime = MinFecha, + Optional Paciente As String = "-1", Optional IdentificadorCliente As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServiciosUpdate") @@ -745,6 +754,8 @@ Public Class ClsOS .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta .Add("@FechaCita", SqlDbType.DateTime).Value = FechaCita + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@IdentificadorCliente", SqlDbType.VarChar).Value = IdentificadorCliente End With diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 64dc00556..93944792e 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -412,7 +412,8 @@ Public Class ClsProductosServicios Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0) As Integer + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, + Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -518,6 +519,9 @@ Public Class ClsProductosServicios .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce .Add("@EcommerceCantidad", SqlDbType.SmallMoney).Value = EcommerceCantidad + .Add("@CodigoAlterno", SqlDbType.VarChar).Value = CodigoAlterno + .Add("@PSAlterno", SqlDbType.VarChar).Value = PSAlterno + End With @@ -653,7 +657,8 @@ Public Class ClsProductosServicios Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0) As Boolean + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, + Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -758,6 +763,8 @@ Public Class ClsProductosServicios .Add("@EcommercePrecio", SqlDbType.SmallMoney).Value = EcommercePrecio .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce .Add("@EcommerceCantidad", SqlDbType.SmallMoney).Value = EcommerceCantidad + .Add("@CodigoAlterno", SqlDbType.VarChar).Value = CodigoAlterno + .Add("@PSAlterno", SqlDbType.VarChar).Value = PSAlterno End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 714a2fabf..bfb364bad 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6308,6 +6308,32 @@ Public Class ClsVentas #End Region + + +#Region "DEVOLUICON" + + Public Function UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle As Integer, CantidadDevolucion As Decimal) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasDetalleCantidadDevolucionUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle + .Add("@CantidadDevolucion", SqlDbType.Decimal).Value = CantidadDevolucion + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la cantidad de devolución.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + #Region "IDisposable Support" diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index b9f515ebd..7f384d130 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -177,7 +177,7 @@ Dirección:
- +
@@ -255,6 +255,27 @@ +
+ +
+ Paciente: +
+ +
+ +
+ +
+ Episodio: +
+ +
+ +
+ + +
+ diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 424c967c2..8abda6546 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -421,7 +421,6 @@ Partial Class OS_OrdenesServicios If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then DVAMedicoProcedimiento.Visible = True DVTipoVenta.Visible = True - DVTipoVenta.Visible = True DvFechaRecivido1.Visible = False DvFechaRecivido2.Visible = False @@ -429,6 +428,8 @@ Partial Class OS_OrdenesServicios DVFechaCita1.Visible = True DVFechaCita2.Visible = True + DVEpisodioPaciente.Visible = True + End If End If @@ -671,6 +672,9 @@ Partial Class OS_OrdenesServicios DdlProcedimiento.SelectedValueExist(ObjOS.CveProcedimiento) DdlTipoVenta.SelectedValueExist(ObjOS.CveTipoVenta) + TxtPaciente.Text = ObjOS.Paciente + TxtIdentificadorCliente.Text = ObjOS.IdentificadorCliente + CargaEventoBitacora() CargaHistorial() Else @@ -1233,7 +1237,8 @@ Partial Class OS_OrdenesServicios If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, EstatusOrdenServicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveMedico:=DdlMedico.SelectedValue.ToEntero, - CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita) Then + CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita, + Paciente:=TxtPaciente.Text.Trim, IdentificadorCliente:=TxtIdentificadorCliente.Text.Trim) Then Errores = True End If CargaCliente(CveCliente) @@ -1334,7 +1339,8 @@ Partial Class OS_OrdenesServicios If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveMedico:=DdlMedico.SelectedValue.ToEntero, - CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita) Then + CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita, + Paciente:=TxtPaciente.Text.Trim, IdentificadorCliente:=TxtIdentificadorCliente.Text.Trim) Then For Each Row As DataRow In TmpDT.Rows If Not Errores Then Dim CvePS As Integer = Row("CvePS").ToString.ToEntero diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index 88fc35cd8..e66e272dd 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -4,68 +4,11 @@ - - + - - - <%-- - - - - - --%> + @@ -139,16 +82,23 @@ -
+
-
+
+ +
+ + +
+
@@ -158,12 +108,7 @@
- -
- - -
+ @@ -172,13 +117,28 @@
Proyecto: -
+
SubProyecto: -
+
+ + + +
+ + Todos + +
+ + +
+ + Todos + +
@@ -202,12 +162,9 @@ - - - <%-- CveOS,FechaCita,Folio,Nombre,Medico,Procedimiento,Vendedor,RequiereOS,RequiereOSStr,CveUsuarioAtendio,Usuario,CveEstatusOrdenServicio,EstatusOrdenServicio,EstatusRepartidor,FolioPedido--%> - <%--0--%> <%----%> @@ -224,10 +181,13 @@ <%--6--%> <%--7--%> - + + <%--8--%> + + <%--9--%> + - - + diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index eca84031c..ec06bffbd 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/OS/RepOSMedicas.aspx.vb @@ -85,6 +85,12 @@ Partial Class OS_RepOSMedicas txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString txtFechaF.Text = NowADS().ToShortDateString + DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedico.DataBind() + + DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlProcedimiento.DataBind() + End Sub @@ -104,7 +110,8 @@ Partial Class OS_RepOSMedicas Dim FechaF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.ToDate) Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) - If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, + CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjOS.DtResultados Else GvDatos.DataSource = Nothing diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 0f9b38178..2628fe2f3 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="Catálogo de Medicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" %> +<%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> @@ -10,7 +10,7 @@ - Catálogo de Medicos + Catálogo de Médicos @@ -38,13 +38,13 @@ DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, Especialidad, Celular, Consultorio" EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> - + - + @@ -62,11 +62,11 @@ - + <%-- - + --%> @@ -142,7 +142,7 @@ - +
@@ -150,8 +150,8 @@
- + <%----%>
@@ -263,7 +263,7 @@
- +
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index d3dce6a85..1163fa121 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -307,7 +307,25 @@ -
+
+ + +
+
+
+ + + +
+
+
+
+ + + +
+
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 11d94c44e..e06628aaa 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -439,6 +439,12 @@ Partial Class ProductosyServicios DdlEcommerceClasificacion.DataBind() End If + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + + DVCodigoPSAlterno.Visible = True + + End If + End Sub @@ -1073,6 +1079,13 @@ Partial Class ProductosyServicios TxtFechaVigenciaRSCO.Text = "" ChkFechaIndeterminadaRSCO.Checked = False End If + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + TxtCodigoAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("CodigoAlterno").ToString + TxtPSAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("PSAlterno").ToString + DVCodigoPSAlterno.Visible = True + + End If Else Alert("El Producto o Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')") @@ -1467,7 +1480,8 @@ Partial Class ProductosyServicios CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked, CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim, CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked, - NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero, EcommerceCantidad:=TxtEcommerceCantidad.Text.Trim.ToDecimal) > 0 Then + NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, + CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero, EcommerceCantidad:=TxtEcommerceCantidad.Text.Trim.ToDecimal, CodigoAlterno:=TxtCodigoAlterno.Text.Trim, PSAlterno:=TxtPSAlterno.Text.Trim) > 0 Then ViewState("CvePS") = ObjProductosServicios.CvePS For Each GVR As GridViewRow In GvImpuestosLocales.Rows If GVR.FCCheckBox("ChkDeduccion").Checked Then @@ -1539,7 +1553,9 @@ Partial Class ProductosyServicios CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim, CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked, - NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, ActivoEcommerce:=ChkActivoEcommerce.Checked, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero, EcommerceCantidad:=TxtEcommerceCantidad.Text.Trim.ToDecimal) Then + NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, ActivoEcommerce:=ChkActivoEcommerce.Checked, + EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero, EcommerceCantidad:=TxtEcommerceCantidad.Text.Trim.ToDecimal, + CodigoAlterno:=TxtCodigoAlterno.Text.Trim, PSAlterno:=TxtPSAlterno.Text.Trim) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3225d63be..f2316889a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4098,6 +4098,32 @@ + + + Medico:  + + + + + Seleccione uno + + + + + + + Medico:  + + + + + Seleccione uno + + + + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d89772ef7..efd0ba201 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5217,6 +5217,20 @@ Partial Class Ventas TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2) TxtCorreoNotificaciones.Text = DbRowVenta("CorreoNotificacion").ToString() + If DbRowVenta("CveProcedimiento").ToString().ToEntero > 0 Then + DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString()) + DdlProcedimientoObservaciones.Enabled = False + TrObsProcedimiento1.Visible = True + TrObsProcedimiento2.Visible = True + End If + + If DbRowVenta("CveMedico").ToString().ToEntero > 0 Then + DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString()) + DdlMedicoObservaciones.Enabled = False + TrObsMedico1.Visible = True + TrObsMedico2.Visible = True + End If + If TxtRetIVA.Text.ToDecimal() > 0 Then TrRetIVA.Style.Add("display", "") UsuarioActual.Empresa.MostrarRetIVA = True @@ -7760,6 +7774,11 @@ Partial Class Ventas DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlMedicoModal.DataBind() + + + DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa) + DdlMedicoObservaciones.DataBind() + End Sub Private Sub CargaMedicos() @@ -7769,6 +7788,9 @@ Partial Class Ventas DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlProcedimientoModal.DataBind() + DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa) + DdlProcedimientoObservaciones.DataBind() + End Sub Private Sub CargaDdlClientes()