--cambios modulos

-- preciolibre
2021-02-03 09:56:49 -07:00
parent 21ceba9718
commit c6b70a7d97
4 changed files with 2278 additions and 2246 deletions
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
--- a/App_Code/Modelos.vb
+++ b/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()
-            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()
-            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()
-            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()
-            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()
-            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
-            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()
-            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()
-            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)
+            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)
+            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)
+            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)
+            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)
+            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)
+
+            '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)
+            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)
+            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)
            DR = TmpDTImpuestos.NewRow()

-            If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
-
-                Dim dtImpuesto As DataTable = ObjVentas.DtResultados
-                If dtImpuesto.Rows.Count > 0 Then
-                    For Each Row As DataRow In dtImpuesto.Rows
-                        Dim Orden = 80
-                        If Row("Importe").ToString.ToDouble <> 0 Then
-                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
-                            DR("Importe") = Row("Importe").ToString.ToDouble
-                            DR("Orden") = Orden
-                            TmpDTImpuestos.Rows.Add(DR)
-                            DR = TmpDTImpuestos.NewRow()
-                            Orden = Orden + 1
-                        End If
-                    Next
-                End If
-                Me.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
-
+            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
+
+                Dim dtImpuesto As DataTable = ObjVentas.DtResultados
+                If dtImpuesto.Rows.Count > 0 Then
+                    For Each Row As DataRow In dtImpuesto.Rows
+                        Dim Orden = 80
+                        If Row("Importe").ToString.ToDouble <> 0 Then
+                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
+                            DR("Importe") = Row("Importe").ToString.ToDouble
+                            DR("Orden") = Orden
+                            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

--- a/Bancos/PopIECompras.aspx.vb
+++ b/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
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
-
+            IdCuentaBancaria = dr("IdCtaContable").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
-                                                    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

--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/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