-- cambios update venta

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)