Validacion de registro de compra proveniente de OC

Ventas/Ventas.aspx.vb

@@ -21854,7 +21854,7 @@ Partial Class Ventas
             Dim tDT As DataTable = Nothing
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then
-                tDT = ObjOC.DtResultados
+                tDT = ObjOC.DtResultados.Copy()
                 'tTmpDT.Columns.Add("TipoDocto", GetType(String))
                 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
                 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
@@ -21867,10 +21867,14 @@ Partial Class Ventas
             If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then
 
 
-                ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente")
+                ViewState("CveCliente") = tDT.Rows(0)("CveCliente")
                 HdnCveCliente.Value = CveCliente.ToString()
                 CargaCliente(CveCliente)
 
+                If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                End If
+
                 For Each Dr As DataRow In tDT.Rows
 
                     AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),