Merge branch 'master' of http://192.168.10.111:8383/SIG

2021-06-29 14:15:42 -07:00
parent fd413d7f06 13d2382a36
commit 3cefe30612
8 changed files with 22 additions and 23 deletions
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -829,11 +829,12 @@ Public Class ClsBancos

        Return Retorno
    End Function
-    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Conta_PrePolizasDetalleGet")
        With SqlAdapter.SelectCommand.Parameters
            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@CveIE", SqlDbType.Int).Value = CveIE
            .Add("@CveOC", SqlDbType.Int).Value = CveOC
        End With
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -1777,7 +1777,7 @@ Namespace Extensiones

                'Dim UsuarioResponsable As String = ""
                Dim PreP As New ClsContabilidad
-                If PreP.GetPrePolizasDetalle(-1, pCveIE) Then
+                If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then
                    If PreP.DtResultados.Rows.Count > 0 Then
                        CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
                        CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
--- a/Bancos/Creditos.aspx.vb
+++ b/Bancos/Creditos.aspx.vb
@@ -422,7 +422,7 @@ Partial Class Bancos_Creditos
                    HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}"
                    LbSaldo.Text = $"Saldo <b>Acreedor</b> "

-                    If ObjPrepoliza.GetPrePolizasDetalle(ObjCreditos.CvePrePoliza) AndAlso ObjPrepoliza.DtResultados.Rows.Count > 0 Then
+                    If ObjPrepoliza.GetPrePolizasDetalle(ObjCreditos.CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjPrepoliza.DtResultados.Rows.Count > 0 Then
                        LbSaldoAcreedor.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 42").Rows(0)("Importe").ToString.FormatoNumero
                        LbSaldoDocxPagar.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 50").Rows(0)("Importe").ToString.FormatoNumero
                    End If
@@ -469,7 +469,7 @@ Partial Class Bancos_Creditos
                End If

                'CARGA ANTICIPOS
-                If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjPrepoliza.GetPrePolizasDetalle(-1, dr("CveIE").ToString.ToEntero) Then
+                If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjPrepoliza.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=dr("CveIE").ToString.ToEntero) Then
                    If ObjPrepoliza.DtResultados.Rows.Count > 0 Then
                        TxtVehiculoAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero
                        TxtComisionAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -895,7 +895,7 @@ Partial Class Bancos_IE
                    End If

                    'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.)
-                    If ObjIE2.GetPrePolizasDetalle(-1, CveIE) Then
+                    If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
                        If ObjIE2.DtResultados.Rows.Count > 0 Then

                            Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
@@ -2958,7 +2958,7 @@ Partial Class Bancos_IE
                                End If

                                'IMPUESTOS
-                                If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin) Then
+                                If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin, UsuarioActual.CveEmpresa) Then
                                    Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
                                    Dim CveConceptoContableAplciar = -1
                                    Dim TipoMovtoAplicar = False
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8343,9 +8343,9 @@ Partial Class Compras_Compras
                                    'ACTUALIZA CVEFACTURA
                                    If Request("CveFactura") IsNot Nothing Then

-                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
-                                            TieneError = True
-                                        End If
+                                        'If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+                                        '    TieneError = True
+                                        'End If

                                        If UsuarioActual.Empresa.UsaAC Then
                                            MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
@@ -10357,7 +10357,7 @@ Partial Class Compras_Compras
                        Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
                        Dim ConceptoPersonal As String = "", Concepto As String = ""

-                        If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
+                        If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                            ErrorPrepoliza = True
                        Else
                            If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
@@ -15010,7 +15010,7 @@ Partial Class Compras_Compras
                End If
            Else
                If CvePrePoliza > 0 Then
-                    If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
+                    If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                        dt = ObjContabilidad.DtResultados

                        CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -15062,11 +15062,11 @@ Partial Class Compras_Compras

            'LIMPIA PRE-POLIZA PONIENDO IMPORTE EN CEROS
            If CvePrePoliza > 0 Then
-                If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
+                If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                    dt = ObjContabilidad.DtResultados

                    For Each dr As DataRow In dt.Rows
-                        If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                        If Not ObjContabilidad.UpdatePrePolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                            ErrorCancelar = True : Exit For
                        End If
                    Next
@@ -18689,7 +18689,7 @@ Partial Class Compras_Compras
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Clasificacion") = HdnPSAliasClasificacion.Value
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
-            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value

            'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
@@ -18701,7 +18701,7 @@ Partial Class Compras_Compras
                drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
                drt("Clasificacion") = HdnPSAliasClasificacion.Value
                drt("Obs") = TxtPSAlias.Text.Trim
-                drt("CveSATPS") = HdnPSAliasCveSATPS.Value
+                drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
                drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value

            Next
@@ -18710,14 +18710,12 @@ Partial Class Compras_Compras
            GvPS.DataBind()
            UpPS.Update()

-            Alert("Registro actualizado con exito.", TipoMensaje.MsgInformacion)
+            Alert("Registro actualizado con éxito.", TipoMensaje.MsgInformacion)

            RegistraScript("$('#ModalPSAlias').modal('hide');", "ModalPSAliasHide")
        End If
        PS.Dispose()

-
-
    End Sub

    Private Sub RecargaGlobalEquivalencias()
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -4001,7 +4001,7 @@ Partial Class PopUpVerFactura
                End If
            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
                Dim PreP As New ClsContabilidad
-                If PreP.GetPrePolizasDetalle(-1, CveIE) Then
+                If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
                    DtMovimientosPoliza = New DataTable
                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
@@ -4081,7 +4081,7 @@ Partial Class PopUpVerFactura
            tIdPoliza = ObjIE.IDPoliza

            Dim PreP As New ClsContabilidad
-            If PreP.GetPrePolizasDetalle(-1, CveIE) Then
+            If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
                If PreP.DtResultados.Rows.Count > 0 Then
                    CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
                    CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
@@ -4282,7 +4282,7 @@ Partial Class PopUpVerFactura

                    Dim dtMovs As New DataTable
                    Dim Mov As New ClsContabilidad
-                    If Mov.GetPrePolizasDetalle(-1, CveIE) Then
+                    If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then

                        dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")

--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -379,7 +379,7 @@ Partial Class Contabilidad_FiltraPolizas


        'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
-        If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+        If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
            Dim dtVC As DataTable
            Dim dr As DataRow
            dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4265,7 +4265,7 @@ Partial Class Inventarios_EntradasSalidas

        If Not ErrorMovInv Then
            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-                ObjConta.GetPrePolizasDetalle(CvePrePoliza)
+                ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
                If ObjConta.ValorPolizaDescuadre > 0 Then
                    ErrorMovInv = True
                    Mensaje = "Ocurrió un error al validar los movimientos contables"