From c0c32da918887f7cc332afbd8846377191230bdf Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Tue, 22 Jun 2021 14:09:31 -0700
Subject: [PATCH] validar que cambio el proveedor para hacer el cambio

---
 OC/OC.aspx.vb | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index e6384aa58..c5002a274 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -463,6 +463,14 @@ Partial Class OC
             ViewState("CveConfianzaProveedor") = value
         End Set
     End Property
+    Private Property CveProveedorOrignal As Integer
+        Get
+            Return IfNull(ViewState("CveProveedorOrignal"), -1).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveProveedorOrignal") = value
+        End Set
+    End Property
     Private Property CveEstatusSupervisada As Integer
         Get
             Return IfNull(ViewState("CveEstatusSupervisada"), -1).ToString().ToEntero()
@@ -1431,6 +1439,7 @@ Partial Class OC
 
                         DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
                         If DdlProveedores.SelectedValue.ToEntero > 0 Then
+                            CveProveedorOrignal = DdlProveedores.SelectedValue.ToEntero
                             DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
                         Else
                             DdlProveedores.SelectedText = "-"
@@ -2718,8 +2727,10 @@ 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 Not ObjConta.UpdateProveedorPoliza(CveOrdenCompra, CveProveedor, Proveedor) Then
-                    TieneError = True
+                If CveProveedorOrignal <> CveProveedor Then
+                    If Not ObjConta.UpdateProveedorPoliza(CveOrdenCompra, CveProveedor, Proveedor) Then
+                        TieneError = True
+                    End If
                 End If
             Else
                 TieneError = True