soporte y atendiendo tareas en CRM

OC/OC.aspx.vb

@@ -470,6 +470,19 @@ Partial Class OC
             ViewState("CveDireccionEnvio") = value
         End Set
     End Property
+
+    Private Property MonedaTexto As String
+        Get
+            If ViewState("MonedaTexto") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("MonedaTexto").ToString.ToEntero
+            End If
+        End Get
+        Set(value As String)
+            ViewState("CveDireccionEnvio") = value
+        End Set
+    End Property
     Private Property NumRow As Integer
 
 #End Region
@@ -1254,7 +1267,7 @@ Partial Class OC
             TxtDescrip.Text = objOC.Descripcion
             TxtJustificacion.Text = objOC.Justificacion
             DdlMoneda.SelectedValueExist(objOC.CveMoneda.ToString)
-
+            MonedaTexto = DdlMoneda.SelectedItem.Text
             Select Case objOC.PorcentajeIVA.ToString.ToDouble
                 Case 0
                     DdlIVA.SelectedValue = "1"
@@ -1745,6 +1758,7 @@ Partial Class OC
         If CveEmpresaActual.Contiene(13, 14, 24) Then
             DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
+
     End Sub
     Private Sub CargaClasificaciones()
         Dim TipoClasif As Integer = -1
@@ -2894,6 +2908,11 @@ Partial Class OC
 
             'COMMIT
             If Not TieneError Then
+                If MonedaTexto <> DdlMoneda.SelectedItem.Text Then
+                    If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then
+                        TieneError = True
+                    End If
+                End If
                 OC.Commit()
                 If Conta IsNot Nothing Then Conta.Commit()
 
@@ -5279,6 +5298,7 @@ Partial Class OC
             'MONEDA PREFERENTE
             If CveOrdenCompra <= 0 Then
                 DdlMoneda.SelectedValueExist(Objeto.CveMonedaPreferente)
+                MonedaTexto = DdlMoneda.SelectedItem.Text
             End If
 
             'MUESTRA IVA PROVEEDOR EXTRANJERO
@@ -7638,5 +7658,7 @@ Partial Class OC
     End Sub
 #End Region
 
-
+    Protected Sub DdlMoneda_Change() Handles DdlMoneda.SelectedIndexChanged
+        MonedaTexto = DdlMoneda.SelectedItem.Text
+    End Sub
 End Class