diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index ac79814f3..36cd8ca2f 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3037,18 +3037,20 @@ Partial Class OS_OrdenesServicios
 
 
         Select Case DdlTipoVenta.SelectedValue.ToEntero
-            Case 1, 2
+            Case 1, 2 ' *1    *pago directo 
                 Opcion = 1
                 Exit Select
             Case 3 ' por el momento ya no se usa
                 Opcion = 2
                 Exit Select
-            Case 5
-                Opcion = 3
-                Exit Select
-            Case 6
+            Case 5 ' consignacion uso
+                'Opcion = 3
                 Opcion = 4
                 Exit Select
+            Case 6  ' a vista uso de material
+                'Opcion = 4
+                Opcion = 3
+                Exit Select
             Case Else
                 Opcion = 1
                 Exit Select