From f9b6c55b60e62893bec70bdf4b02eea7c479918c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 11 Jan 2024 05:59:49 -0700
Subject: [PATCH] -- cambios update venta

---
 Ventas/PV.aspx.vb     |  4 ++--
 Ventas/Ventas.aspx.vb | 28 ++++++++++++++--------------
 2 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 671f24e2b..dcf8f8b3d 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -1871,7 +1871,7 @@ Partial Class PV
         Dim ObjAC As ClsContPAQi = Nothing
 
         Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero
-        Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal
         Try
             'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
             If DdlMoneda.SelectedValue.ToEntero <> 2 AndAlso ChkConvertirDolares.Checked Then
@@ -1960,7 +1960,7 @@ Partial Class PV
 
             '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:="", AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero,
                                           CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4205a02d6..0bb39a1fb 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36268,21 +36268,21 @@ Partial Class Ventas
         DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
-
         'si es  pago directo es factura
-        If RBLTipoVenta.SelectedValue.Contiene("2") Then
-            DdlTipoComprobante.SelectedValueExist("Ing")
-            TdRequiereTecnico1.Visible = True
-            TdRequiereTecnico2.Visible = True
-        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 ' 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
         DdlTipoComprobante.Enabled = False
 
         CargaCliente(CveCliente)