diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index c5002a274..b6e71a423 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -463,12 +463,12 @@ Partial Class OC
             ViewState("CveConfianzaProveedor") = value
         End Set
     End Property
-    Private Property CveProveedorOrignal As Integer
+    Private Property CveProveedorOriginal As Integer
         Get
-            Return IfNull(ViewState("CveProveedorOrignal"), -1).ToString().ToEntero()
+            Return IfNull(ViewState("CveProveedorOriginal"), -1).ToString().ToEntero()
         End Get
         Set(value As Integer)
-            ViewState("CveProveedorOrignal") = value
+            ViewState("CveProveedorOriginal") = value
         End Set
     End Property
     Private Property CveEstatusSupervisada As Integer
@@ -580,6 +580,7 @@ Partial Class OC
         If Not Page.IsPostBack Then
 
             CargaDatosAgregarPS()
+            CveProveedorOriginal = -1
             'MODALIDAD MULTIEMPRESA
             CveEmpresaActual = UsuarioActual.CveEmpresa
             CargaEstatusUsuariosClasificaciones()
@@ -1439,7 +1440,7 @@ Partial Class OC
 
                         DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
                         If DdlProveedores.SelectedValue.ToEntero > 0 Then
-                            CveProveedorOrignal = DdlProveedores.SelectedValue.ToEntero
+                            CveProveedorOriginal = objOC.CveProveedor
                             DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
                         Else
                             DdlProveedores.SelectedText = "-"
@@ -2727,7 +2728,7 @@ Partial Class OC
                                     DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1),
                                     Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto,
                                     PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then
-                If CveProveedorOrignal <> CveProveedor Then
+                If CveProveedorOriginal <> CveProveedor Then
                     If Not ObjConta.UpdateProveedorPoliza(CveOrdenCompra, CveProveedor, Proveedor) Then
                         TieneError = True
                     End If