Cambiar cargar conciliaciones a gembox.

Soporte en compras para actualizar contabilizados.
Cambiar cargar contratos a gem box.
Soporte en Ventas que no se pueda ingresar productos de diferente moneda.

Ventas/Ventas.aspx.vb

@@ -12650,8 +12650,12 @@ Partial Class Ventas
                 DdlUnidadMedida.SelectedValue = "-1"
                 DdlUnidadMedida.DataBind()
                 DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString)
-                DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString)
-                CambiaMoneda()
+
+                If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 Then
+                    DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString)
+                    CambiaMoneda()
+                End If
+
                 'SUGIERE PRECIO
                 Dim PrecioSugerido = 0.0
                 PrecioSugerido = drPS("Precio").ToString.ToDouble
@@ -13239,6 +13243,15 @@ Partial Class Ventas
             Return False
         End If
 
+        If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
+            Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
+            If DrPS IsNot Nothing Then
+                If DrPS("CveMoneda").ToString.ToEntero <> DdlMoneda.SelectedValue.ToEntero Then
+                    Alert("No puede agregar un producto de diferente moneda a la ya seleccionada", TipoMensaje.MsgAdvertencia)
+                    Return False
+                End If
+            End If
+        End If
 
         If Not UsuarioActual.TienePermisoProceso(169) Then ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
             'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS