- simplificación objventas

Inventarios/RecepcionUsados.aspx.vb

@@ -2419,12 +2419,10 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
         Me.ObjRemisionNC.Serie = "-1"
         Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero()
-        Me.ObjRemisionNC.Version = "3.3"
+        Me.ObjRemisionNC.Version = "4.0"
         Me.ObjRemisionNC.FolioFiscal = ""
         Me.ObjRemisionNC.CveUsuario = UsuarioActual.CveUsuario
         Me.ObjRemisionNC.CveEmpresa = UsuarioActual.CveEmpresa
-        Me.ObjRemisionNC.TipoCambio = 1
-        Me.ObjRemisionNC.ConvertirPesos = False
         Me.ObjRemisionNC.CveMoneda = CveMoneda
         Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda))
         Me.ObjRemisionNC.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda))
@@ -2487,9 +2485,7 @@ Partial Class Inventarios_RecepcionUsados
                         DtMetodoPago.Dispose()
                         DtMetodoPago = Nothing
                     End If
-
                 End If
-
             End If
         End If
 
@@ -2523,8 +2519,7 @@ Partial Class Inventarios_RecepcionUsados
         Else
             Me.ObjRemisionNC.Observaciones = "Devolución por usado"
         End If
-        Me.ObjRemisionNC.OrdenCompra = ""
-        Me.ObjRemisionNC.PedidoContrato = ""
+
         Me.ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text.Trim
         Me.ObjRemisionNC.MovimientoObservaciones = TxtObservaciones.Text
         Me.ObjRemisionNC.MovimientoRecibio = TxtResponsable.Text