--cambios modulos

-- preciolibre

App_Code/Modelos.vb

@@ -382,7 +382,7 @@ Namespace Modelos
             Me.ListaMensajes = New List(Of String)
             Me.FolioFiscal = ""
             Me.GenerarPDFFactura = False
-            IniciaValores()
+            IniciaValores()
 
             Dim ObjVentas As New ClsVentas()
             If ObjVentas.GetVenta(CveVenta, CveEmpresa) Then
@@ -414,49 +414,49 @@ Namespace Modelos
             TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
             TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
 
-            Dim DR As DataRow = TmpDTImpuestos.NewRow()
+            Dim DR As DataRow = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
+            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
+            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
+            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
+            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
-
+
-            'solo para eclipse, que muesre un subtotal debajo de IVA
+            'solo para eclipse, que muesre un subtotal debajo de IVA
-            If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
+            If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
+            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
+            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-
-            If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-
-            If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
 
-            If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
+            If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
-
+            DR = TmpDTImpuestos.NewRow()
-                Dim dtImpuesto As DataTable = ObjVentas.DtResultados
+
-                If dtImpuesto.Rows.Count > 0 Then
+            If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
-                    For Each Row As DataRow In dtImpuesto.Rows
+            DR = TmpDTImpuestos.NewRow()
-                        Dim Orden = 80
+
-                        If Row("Importe").ToString.ToDouble <> 0 Then
+            If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
-                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
+
-                            DR("Importe") = Row("Importe").ToString.ToDouble
+                Dim dtImpuesto As DataTable = ObjVentas.DtResultados
-                            DR("Orden") = Orden
+                If dtImpuesto.Rows.Count > 0 Then
-                            TmpDTImpuestos.Rows.Add(DR)
+                    For Each Row As DataRow In dtImpuesto.Rows
-                            DR = TmpDTImpuestos.NewRow()
+                        Dim Orden = 80
-                            Orden = Orden + 1
+                        If Row("Importe").ToString.ToDouble <> 0 Then
-                        End If
+                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
-                    Next
+                            DR("Importe") = Row("Importe").ToString.ToDouble
-                End If
+                            DR("Orden") = Orden
-                Me.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
+                            TmpDTImpuestos.Rows.Add(DR)
-
+                            DR = TmpDTImpuestos.NewRow()
+                            Orden = Orden + 1
+                        End If
+                    Next
+                End If
+                Me.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
+
             End If
 
         End Sub
@@ -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

@@ -122,6 +122,14 @@ Partial Class Bancos_PopIECompras
         Set(value As Integer)
             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
@@ -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
@@ -1107,9 +1116,9 @@ Partial Class Bancos_PopIECompras
                 RegistraScript("CambiaDolaresPesos();")
             End If
 
-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
+            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
+            IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
-
+
             If dr("UsaTarjeta").ToString = "True" Then
                 CargaGridTarjetas()
             Else
@@ -2814,15 +2823,13 @@ Partial Class Bancos_PopIECompras
                                                         CveCuenta = CveCuentaCliente
                                                     End If
                                                 Else
-                                                    IdCtaContable = IdCtaContComplementaria
+                                                    IdCtaContable = IdCuentaBancariaComplementaria
-                                                    CveCuenta = CveCuentaComplementaria
                                                     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
+                                                        IdCtaContable = IdCuentaBancaria
-                                                        CveCuenta = CveCuentaMonedaExtranjera
                                                     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