diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 19a47c992..e9acb1d41 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3154,7 +3154,7 @@ Partial Class OS_OrdenesServicios
                     End If
                     'asigno la cveventa, como concluido
                     If ProcesoOK Then
-                        If Not ObjOS.UpdateVentaOS(CveVenta, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
+                        If Not ObjOS.UpdateVentaOS(CveVentaPedido, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
                             ProcesoOK = False
                         End If
                     End If