--merge SaldosIniciales

2024-01-11 18:25:11 -07:00
parent 64b0be941d 2ed3aac55b
commit 6e6f4c4b31
45 changed files with 615 additions and 528 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2282,6 +2282,53 @@ Partial Class Ventas
        End Set
    End Property

+
+#Region "VENTA MEDICA"
+
+    Property EsVentaMedica As Boolean
+        Get
+            If ViewState("EsVentaMedica") Is Nothing Then
+                ViewState("EsVentaMedica") = False
+            End If
+
+            Return Boolean.Parse(ViewState("EsVentaMedica").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("EsVentaMedica") = value
+        End Set
+    End Property
+
+
+    Property SeEstaFActurandoVentaMedica As Boolean
+        Get
+            If ViewState("SeEstaFActurandoVentaMedica") Is Nothing Then
+                ViewState("SeEstaFActurandoVentaMedica") = False
+            End If
+
+            Return Boolean.Parse(ViewState("SeEstaFActurandoVentaMedica").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("SeEstaFActurandoVentaMedica") = value
+        End Set
+    End Property
+
+
+    Public Property CveTipoVenta As Integer
+        Get
+            If ViewState("CveTipoVenta") Is Nothing Then
+                ViewState("CveTipoVenta") = -1
+            End If
+            Return ViewState("CveTipoVenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoVenta") = value
+        End Set
+    End Property
+
+#End Region
+
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
@@ -2678,8 +2725,7 @@ Partial Class Ventas
                Using ObjVentas As New ClsCGame()

                    If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
-                        'DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
-                        DdlSubProyectoDatos.SelectedValueExist("12629")
+                        DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
                    End If

                    If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
@@ -2738,7 +2784,12 @@ Partial Class Ventas
                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False

                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then BtnPermisoEditarRemision.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+
+                    If DdlTipoComprobante.SelectedValue = "Ped" Then
+                        BtnPermisoEditarRemision.Text = "Editar Pedido"
+                        BtnEditarRemision.Text = "Actualizar Pedido"
+                    End If

                    DivFechaAnticipoCliente.Visible = True
                    TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString
@@ -3387,19 +3438,27 @@ Partial Class Ventas
                End If
            End If

-
-            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-                EsVentaMedica = True
-                CargaTiposVenta()
-
-                If CveCliente > 0 Then
-                    SeleccionarClienteSucursal(CveCliente:=CveCliente)
+            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                If CveVenta <= 0 Then
+                    EsVentaMedica = True
+                    CargaTiposVenta()
+                    If CveCliente > 0 Then
+                        SeleccionarClienteSucursal(CveCliente:=CveCliente)
+                    End If
+                End If
+                If CveVenta >= 0 Then
+                    HLFAgregarOS.Visible = True
+                    HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
                End If
-            End If

-            If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-                HLFAgregarOS.Visible = True
-                HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
+                TxtPrecio.Enabled = False
+                'ocultar la columna de subproyecto
+                GvPS.Columns(ColumnaSubProyecto).Visible = False
+                ThProyecto.Visible = False
+                ThProyecto2.Visible = False
+
+                TxtCantidad.Text = "1"
+                TxtCantidad.Focus()
            End If

            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
@@ -3418,10 +3477,6 @@ Partial Class Ventas
                RegistraScript("$('#TxtCantidad').focus();", "A1")
            End If

-            If EsVentaMedica Then
-                TxtPrecio.Enabled = False
-            End If
-
        End If

    End Sub
@@ -5322,7 +5377,7 @@ Partial Class Ventas
            End If

            If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then
-                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy hh:mm")
+                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy HH:mm")
                DVMEEFechaEje.Visible = False
            Else
                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
@@ -5811,14 +5866,16 @@ Partial Class Ventas

            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then

-                If DbRowVenta("CveMedico").ToString.ToEntero > 0 Then
-                    TrObsMedico1.Visible = True
-                    TrObsMedico2.Visible = True
-                    TrObsProcedimiento1.Visible = True
-                    TrObsProcedimiento2.Visible = True
+                CveTipoVenta = If(DbRowVenta("CveTipoVenta").ToString.ToEntero > 0, DbRowVenta("CveTipoVenta").ToString.ToEntero, -1)

-                    DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString)
-                    DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+                If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
+                    TrVentasMedicas1.Visible = True
+                    DdlMedico.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+                    DdlProcedimiento.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+
+
+                    DdlMedico.Enabled = False
+                    DdlProcedimiento.Enabled = False

                End If

@@ -10120,6 +10177,12 @@ Partial Class Ventas

                                If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then

+                                End If
+                            End If
+                            If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
+
+                                If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
+
                                End If
                            End If
                        Catch ex As Exception
@@ -13179,6 +13242,18 @@ Partial Class Ventas
        Dim DescripcionVenta As String = ""
        If TxtDescripcionVenta.Text <> "" Then DescripcionVenta = TxtDescripcionVenta.Text

+
+        Dim CveMedico As Integer = -1
+        Dim CveProcedimiento As Integer = -1
+        Dim CveTipoVentaGuardar As Integer = -1
+
+        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            CveMedico = DdlMedico.SelectedValue.ToEntero
+            CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
+            CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)
+        End If
+
+
        If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                           factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
                           factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
@@ -13196,7 +13271,7 @@ Partial Class Ventas
                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
                           FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
                           CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta,
-                           CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, RequiereOS:=ChkRequiereTecnico.Checked) Then
+                           CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked) Then
            ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
        Else
            If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
@@ -13306,13 +13381,16 @@ Partial Class Ventas
                CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas)
            End If

+            Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue = "5" AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen
            'Se agregan los PS
            For Each Row As DataRow In TmpDTDetalle.Rows
                If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(),
                                                 Row("PU").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString().ToDecimal, Math.Round((Row("Total").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
                                                 Row("Obs").ToString(), Row("Descuento").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), TiempoEntrega:=Row("TiempoEntrega").ToString(), CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(),
                                                 CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal,
-                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(), CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal()) Then
+                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal,
+                                                 PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(),
+                                                 CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen) Then
                    ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                    Exit For
                Else
@@ -21691,6 +21769,13 @@ Partial Class Ventas

        ViewState("CveClienteAnterior") = CveCliente

+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
+            TrVentasMedicas1.Visible = True
+            DdlMedico.Enabled = True
+            DdlProcedimiento.Enabled = True
+        End If
+
+
        Dim CantidadFacturadaRemision As Decimal = 0

        'EN BDH NO DEBE PERMITIR EDITAR EL PU
@@ -21753,6 +21838,7 @@ Partial Class Ventas
        UpPS.Update()
        UpCliente.Update()
        UPObservaciones.Update()
+
    End Sub
    Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click
        Dim OcurrioError As Boolean = False
@@ -21764,7 +21850,7 @@ Partial Class Ventas
        Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())

        Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
-        Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal
        EditoRemision = True
        Try
            'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
@@ -21840,14 +21926,13 @@ Partial Class Ventas
                Moneda = 1
            End If

-            'Actualizo los parametros de la venta
            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
-                                          UsuarioActual.CveEmpresa, CveVenta, 0, 0,
+                                          UsuarioActual.CveEmpresa, CveVenta,
                                          Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                          PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(),
-                                          CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
-                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
-                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible) Then
+                                          CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
+                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
+                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
                OcurrioError = True
            End If

@@ -30282,7 +30367,7 @@ Partial Class Ventas
        End If

        Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
-        Dim TipoCambio As Double = TxtTipoCambio.Text.Trim.ToDecimal
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.Trim.ToDecimal
        If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
            TipoCambio = 1
            Moneda = 1
@@ -30371,17 +30456,20 @@ Partial Class Ventas


            'ACTUALIZA VENTA
-            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDouble(), LblDescuentos.Text.ToDouble(), TxtIVA.Text.ToDouble(), TxtIEPS.Text.ToDouble(), TxtTotal.Text.ToDouble(),
+            'ACTUALIZA VENTA
+            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal(), TxtIVA.Text.ToDecimal(), TxtIEPS.Text.ToDecimal(), TxtTotal.Text.ToDecimal(),
                                  Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
-                                  UsuarioActual.CveEmpresa, CveVenta, 0, 0,
+                                  UsuarioActual.CveEmpresa, CveVenta,
                                  Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                  PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(),
                                  CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
                MensajeError = "Ocurrió un error al actualizar la información de la cotización"
                OcurrioError = True
            End If

+
+
            'ELIMINA DETALLES
            If Not ObjVentas.RemoveVentasDetalle(CveVenta) Then
                MensajeError = "Ocurrió un error al actualizar las partidas de la cotización"
@@ -32166,6 +32254,8 @@ Partial Class Ventas
    End Function
    Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)

+
+
        If DdlVendedor.SelectedValue.ToEntero() <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDoctoNuevo = "Ing" Then
            Alert("Debe seleccionar un vendedor.", TipoMensaje.MsgAdvertencia)
            Exit Sub
@@ -32199,6 +32289,9 @@ Partial Class Ventas

        End If

+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso TipoDoctoNuevo = "Ing" Then
+            SeEstaFActurandoVentaMedica = True
+        End If

        If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then
            Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
@@ -33642,6 +33735,12 @@ Partial Class Ventas
            DdlUsoCFDI.Enabled = True
        End If

+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
+            TrVentasMedicas1.Visible = True
+            DdlMedico.Enabled = True
+            DdlProcedimiento.Enabled = True
+        End If
+
        If UsuarioActual.TienePermisoProceso(289) Then
            If LblSeTimbro.Text = "No" Then
                DdlUsoCFDI.Enabled = False
@@ -33660,6 +33759,9 @@ Partial Class Ventas
            UpPS.Update()
        End If

+        TxtDescripcionVenta.Enabled = True
+
+        UpCliente.Update()
        UpParametros.Update()
        UPObservaciones.Update()
        UpFacturar.Update()
@@ -33677,8 +33779,12 @@ Partial Class Ventas
        Dim ObjVentas As New ClsVentas()
        ObjVentas.IniciaTransacSQL()

+        'DdlMedicoObservaciones.Enabled = True
+        'DdlProcedimientoObservaciones.Enabled = True
+
        If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
-                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
+                                                TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim,
+                                                CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
            TieneError = True
        End If

@@ -34999,19 +35105,6 @@ Partial Class Ventas
        End Set
    End Property

-    Property EsVentaMedica As Boolean
-        Get
-            If ViewState("EsVentaMedica") Is Nothing Then
-                ViewState("EsVentaMedica") = False
-            End If
-
-            Return Boolean.Parse(ViewState("EsVentaMedica").ToString)
-
-        End Get
-        Set(value As Boolean)
-            ViewState("EsVentaMedica") = value
-        End Set
-    End Property



@@ -35997,7 +36090,7 @@ Partial Class Ventas

        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
        RBLTipoVenta.DataBind()
-        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
+        RBLTipoVenta.Items.Add(New ListItem("Otros", "99"))

        TrVentasMedicas1.Visible = True
        TrVentasMedicas2.Visible = True
@@ -36016,8 +36109,7 @@ Partial Class Ventas
        DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
        DdlProcedimientoModal.DataBind()

-        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
-        DdlProcedimientoObservaciones.DataBind()
+

    End Sub

@@ -36028,8 +36120,7 @@ Partial Class Ventas
        DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
        DdlMedicoModal.DataBind()

-        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
-        DdlMedicoObservaciones.DataBind()
+

    End Sub

@@ -36080,7 +36171,11 @@ Partial Class Ventas
    End Sub

    Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
-        TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
+
+
+        TdFechaOS1.Visible = ChkRequiereTecnico.Checked
+        TdFechaOS2.Visible = ChkRequiereTecnico.Checked
+
        UpCliente.Update()
    End Sub

@@ -36107,7 +36202,7 @@ Partial Class Ventas


            Select Case RBLTipoVenta.SelectedValue
-                Case "1" ' Fuera de linea
+                Case "1", "5" '1 Fuera de linea  ||  5 Consignación - Uso material
                    ChkRequiereTecnicoModal.Checked = True
                    ChkRequiereTecnicoModal.Enabled = True
                    DvModalRequiereOSFecha.Visible = True
@@ -36121,13 +36216,13 @@ Partial Class Ventas
                    DvModalRequiereOSFecha.Visible = False
                    DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                    DVGvProductosProcedimiento.Visible = False
-                Case "4" 'Consigna
+                Case "4" 'Consignación
                    ChkRequiereTecnicoModal.Checked = False
                    DvModalTipoVentaPasoRequiereOS.Visible = False
                    DvModalRequiereOSFecha.Visible = False
                    DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                    DVGvProductosProcedimiento.Visible = False
-                Case "5" ' Otros
+                Case "99" ' Otros
                    LnkDvModalTipoVentaAceptar.Visible = False
                    UpDvModalTipoVenta.Update()
                    RegistraScript("$('#DvModalTipoVenta').modal('hide');")
@@ -36230,6 +36325,8 @@ Partial Class Ventas

    Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)

+
+
        If DdlClienteSucursalCliente() > 0 Then
            ViewState("CveCliente") = DdlClienteSucursalCliente()
        Else
@@ -36259,18 +36356,43 @@ Partial Class Ventas
        DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)


-        'si es  pago directo es factura
-        If RBLTipoVenta.SelectedValue.Contiene("2") Then
+        If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es factura
            DdlTipoComprobante.SelectedValueExist("Ing")
-            TdRequiereTecnico1.Visible = True
-            TdRequiereTecnico2.Visible = True
-        Else
+
+            TrVentasMedicas1.Visible = True
+            TrVentasMedicas2.Visible = True
+
            TdFechaOS1.Visible = True
            TdFechaOS2.Visible = True
            ChkRequiereTecnico.Checked = True
            ChkRequiereTecnico.Enabled = False
+
+        ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
            DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
            DdlTipoComprobante.SelectedValueExist("Ped")
+            TrVentasMedicas1.Visible = False
+            TrVentasMedicas2.Visible = False
+            ChkRequiereTecnico.Enabled = True
+        ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then ' consignacion
+            DdlTipoComprobante.SelectedValueExist("Ing")
+            TrVentasMedicas1.Visible = False
+            TrVentasMedicas2.Visible = False
+            ChkRequiereTecnico.Enabled = True
+        Else
+            DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
+            DdlTipoComprobante.SelectedValueExist("Ped")
+
+            TrVentasMedicas1.Visible = True
+            TrVentasMedicas2.Visible = True
+
+            TdFechaOS1.Visible = True
+            TdFechaOS2.Visible = True
+
+            ChkRequiereTecnico.Enabled = True
+            ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
+            TdFechaOS1.Visible = ChkRequiereTecnicoModal.Checked
+            TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
+

        End If
        DdlTipoComprobante.Enabled = False