diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 246596a7e..4506bd264 100644
--- 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
@@ -3391,7 +3438,7 @@ Partial Class Ventas
End If
End If
- If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
If CveVenta <= 0 Then
EsVentaMedica = True
CargaTiposVenta()
@@ -5819,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
@@ -13192,20 +13241,15 @@ Partial Class Ventas
Dim CveMedico As Integer = -1
Dim CveProcedimiento As Integer = -1
+ Dim CveTipoVentaGuardar As Integer = -1
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
- If SeEstaFActurandoVentaMedica Then
- CveMedico = DdlMedicoObservaciones.SelectedValue.ToEntero
- CveProcedimiento = DdlProcedimientoObservaciones.SelectedValue.ToEntero
- Else
- CveMedico = DdlMedico.SelectedValue.ToEntero
- CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
- End If
+ 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,
@@ -13223,7 +13267,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:=CveMedico, CveProcedimiento:=CveProcedimiento, 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.
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
@@ -13333,13 +13377,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()) Then
ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
Exit For
Else
@@ -21702,7 +21749,6 @@ Partial Class Ventas
BtnEditarRemision.Visible = True
BtnPermisoEditarRemision.Visible = False
BtnCrearApartirDe.Visible = False
- DdlSucursalCliente.Enabled = True
TxtObsFact.Enabled = True
TxtOrdenCompra.Enabled = True
TxtPedidoContrato.Enabled = True
@@ -21713,12 +21759,17 @@ Partial Class Ventas
UPCondicionesPago.Update()
If Me.PermiteCredito Then RBLPago.Enabled = True
DdlVendedor.Enabled = True
+
ModalidadEdicion = True
ViewState("CveClienteAnterior") = CveCliente
- DdlMedicoObservaciones.Enabled = True
- DdlProcedimientoObservaciones.Enabled = True
+ 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
@@ -21767,6 +21818,7 @@ Partial Class Ventas
TxtPrecio.Enabled = True
End If
+
LbAgregar.Enabled = True
ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
LblSubTotal1.Text = TxtSubTotal.Text
@@ -21793,9 +21845,8 @@ Partial Class Ventas
Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
- Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal
+ Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
EditoRemision = True
- CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
Try
'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS
If DdlMoneda.SelectedValue.ToEntero() <> 2 AndAlso ChkConvertirDolares.Checked Then
@@ -21872,12 +21923,12 @@ Partial Class Ventas
'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,
+ UsuarioActual.CveEmpresa, CveVenta, 0, 0,
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:=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:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
+ 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, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
OcurrioError = True
End If
@@ -30312,7 +30363,7 @@ Partial Class Ventas
End If
Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
- Dim TipoCambio As Decimal = TxtTipoCambio.Text.Trim.ToDecimal
+ Dim TipoCambio As Double = TxtTipoCambio.Text.Trim.ToDecimal
If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
TipoCambio = 1
Moneda = 1
@@ -30399,14 +30450,15 @@ Partial Class Ventas
Moneda = 1
End If
+
'ACTUALIZA VENTA
- If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal(), TxtIVA.Text.ToDecimal(), TxtIEPS.Text.ToDecimal(), TxtTotal.Text.ToDecimal(),
+ If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDouble(), LblDescuentos.Text.ToDouble(), TxtIVA.Text.ToDouble(), TxtIEPS.Text.ToDouble(), TxtTotal.Text.ToDouble(),
Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
- UsuarioActual.CveEmpresa, CveVenta,
+ UsuarioActual.CveEmpresa, CveVenta, 0, 0,
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.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
+ TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, 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
@@ -33676,9 +33728,10 @@ Partial Class Ventas
DdlUsoCFDI.Enabled = True
End If
- If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
- DdlMedicoObservaciones.Enabled = True
- DdlProcedimientoObservaciones.Enabled = True
+ 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
@@ -33719,12 +33772,12 @@ Partial Class Ventas
Dim ObjVentas As New ClsVentas()
ObjVentas.IniciaTransacSQL()
- DdlMedicoObservaciones.Enabled = True
- DdlProcedimientoObservaciones.Enabled = True
+ '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, DescripcionVenta:=TxtDescripcionVenta.Text.Trim,
- CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
+ CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
TieneError = True
End If
@@ -35045,34 +35098,7 @@ 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
-
-
- 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
@@ -36057,7 +36083,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
@@ -36076,8 +36102,7 @@ Partial Class Ventas
DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlProcedimientoModal.DataBind()
- DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
- DdlProcedimientoObservaciones.DataBind()
+
End Sub
@@ -36088,8 +36113,7 @@ Partial Class Ventas
DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlMedicoModal.DataBind()
- DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
- DdlMedicoObservaciones.DataBind()
+
End Sub
@@ -36140,7 +36164,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
@@ -36167,7 +36195,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
@@ -36181,13 +36209,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');")
@@ -36290,6 +36318,8 @@ Partial Class Ventas
Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
+
+
If DdlClienteSucursalCliente() > 0 Then
ViewState("CveCliente") = DdlClienteSucursalCliente()
Else
@@ -36318,21 +36348,46 @@ Partial Class Ventas
DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
- 'si es pago directo es factura
- If RBLTipoVenta.SelectedValue.Contiene("2") Then ' Pago Directo
- DdlTipoComprobante.SelectedValueExist("Ing")
- TdRequiereTecnico1.Visible = True
- TdRequiereTecnico2.Visible = True
- ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then ' Consigna
- DdlTipoComprobante.SelectedValueExist("Ing")
- Else
- TdFechaOS1.Visible = True
- TdFechaOS2.Visible = True
- ChkRequiereTecnico.Checked = True
- ChkRequiereTecnico.Enabled = False
- DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
- DdlTipoComprobante.SelectedValueExist("Ped")
- End If
+
+ If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura
+ DdlTipoComprobante.SelectedValueExist("Ing")
+
+ 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
CargaCliente(CveCliente)