--cambios modulos

-- preciolibre

App_Code/ClsProductosServicios.vb

@@ -103,6 +103,7 @@ Public Class ClsProductosServicios
     Public Property ClaveCategoriaToxicidad As String
 
     Public Property EsOutSourcing As Boolean
+    Public Property PrecioLibre As Boolean
 
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -306,6 +307,8 @@ Public Class ClsProductosServicios
                 ClaveImpuestoUnidadMedida = Data.Rows(0)("ClaveImpuestoUM").ToString
                 ClaveCategoriaToxicidad = Data.Rows(0)("ClaveCategoriaToxicidad").ToString
                 EsOutSourcing = Data.Rows(0)("EsOutSourcing").ToString = "True"
+                EsOutSourcing = Data.Rows(0)("PrecioLibre").ToString = "True"
+
             End If
             Retorno = True
         Catch ex As SqlException
@@ -404,7 +407,7 @@ Public Class ClsProductosServicios
                           Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                           Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
-                          Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1) As Integer
+                          Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -486,6 +489,8 @@ Public Class ClsProductosServicios
             .Add("@TiempoCaducidad", SqlDbType.SmallInt).Value = TiempoCaducidad
 
             .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
+            .Add("@PrecioLibre", SqlDbType.Bit).Value = PrecioLibre
+
         End With
 
         Try
@@ -632,7 +637,7 @@ Public Class ClsProductosServicios
                              Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                              Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
-                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1) As Boolean
+                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -716,6 +721,8 @@ Public Class ClsProductosServicios
             .Add("@TiempoCaducidad", SqlDbType.SmallInt).Value = TiempoCaducidad
 
             .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
+            .Add("@PrecioLibre", SqlDbType.Bit).Value = PrecioLibre
+
         End With
 
         Try

App_Code/Modelos.vb

@@ -3952,7 +3952,7 @@ Namespace Modelos
             Dim ContadorMovtosDetalles = 0
 
             'Creamos el movimiento
-            Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado,, Modulo:="Mod/M2")
+            Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Mod/M2")
 
             If CveMovimientoInventario > 0 Then
 

Bancos/PopIECompras.aspx.vb

@@ -123,6 +123,14 @@ Partial Class Bancos_PopIECompras
             ViewState("IdCuentaBancaria") = value
         End Set
     End Property
+    Private Property IdCuentaBancariaComplementaria As Integer
+        Get
+            Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdCuentaBancariaComplementaria") = value
+        End Set
+    End Property
     Private ReadOnly Property IdCtaContMonedaExtranjera As Integer
         Get
             Return ViewState("IdCtaContMonedaExtranjera").ToString.ToEntero
@@ -482,6 +490,7 @@ Partial Class Bancos_PopIECompras
                 ViewState("IdCtaContRetIVA") = 0
                 ViewState("IdCtaContRetISR") = 0
                 ViewState("IdCuentaBancaria") = 0
+                ViewState("IdCuentaBancariaComplementaria") = 0
                 ViewState("IdCtaAnticipo") = 0
 
                 ViewState("CveCuentaMonedaExtranjera") = 0
@@ -1108,7 +1117,7 @@ Partial Class Bancos_PopIECompras
             End If
 
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
+            IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
 
             If dr("UsaTarjeta").ToString = "True" Then
                 CargaGridTarjetas()
@@ -2814,15 +2823,13 @@ Partial Class Bancos_PopIECompras
                                                         CveCuenta = CveCuentaCliente
                                                     End If
                                                 Else
-                                                    IdCtaContable = IdCtaContComplementaria
-                                                    CveCuenta = CveCuentaComplementaria
+                                                    IdCtaContable = IdCuentaBancariaComplementaria
                                                     If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 204, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago, CveCuenta:=CveCuenta) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
                                                         ImporteMX = ImporteMovimiento
-                                                        IdCtaContable = IdCtaContMonedaExtranjera
-                                                        CveCuenta = CveCuentaMonedaExtranjera
+                                                        IdCtaContable = IdCuentaBancaria
                                                     End If
                                                 End If
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1021,6 +1021,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
                         DivDocumentos.Visible = True
+                        UpDocumentos.Update()
                     End If
 
                     DtDatosDetalle = Nothing
@@ -1184,6 +1185,11 @@ Partial Class Inventarios_RecepcionAlmacen
                     DivCodigoSeriePS.Visible = False
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                    DivDocumentos.Visible = True
+                    UpDocumentos.Update()
+                End If
+
             End If
         Else
             BtnGuardar.Visible = False
@@ -1235,6 +1241,11 @@ Partial Class Inventarios_RecepcionAlmacen
                     DivCodigoSeriePS.Visible = False
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                    DivDocumentos.Visible = True
+                    UpDocumentos.Update()
+                End If
+
             End If
         Else
             BtnGuardar.Visible = False
@@ -4072,6 +4083,13 @@ Partial Class Inventarios_RecepcionAlmacen
                     Else
                         DivCodigoSeriePS.Visible = False
                     End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                        DivDocumentos.Visible = True
+                        UpDocumentos.Update()
+                    End If
+
+
                     CargaGVInv()
 
                 Else