diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index bbc4f3803..ac099a4ad 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37835,19 +37835,17 @@ Partial Class Ventas
 
         Dim tCveAlmacenExistencia As Integer = -1
 
-        If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es remisión sino tine técnico
-
+        If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es remisión sino tiene técnico
             TrVentasMedicas1.Visible = True
             TrVentasMedicas2.Visible = True
             ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
             ChkRequiereTecnico.Enabled = True
 
             If ChkRequiereTecnico.Checked Then
-                DdlTipoComprobante.SelectedValueExist("Ped")
+                DdlTipoComprobante.SelectedValueExistInsert("Ped", "Pedido")
             Else
-                DdlTipoComprobante.SelectedValueExist("Rem")
+                DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión")
             End If
-
         ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
             DdlTipoComprobante.SelectedValueExist("Ped")
@@ -38004,7 +38002,6 @@ Partial Class Ventas
         UpDvModalTipoVenta.Update()
     End Sub
 
-
     Private Function GeneraOS(ByRef TransacSQL As SqlClient.SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
 
         Dim Errores As Boolean = False