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

2019-10-08 13:40:59 -07:00
parent 40ccbeebfc a20f348a3a
commit 5a4b3042ba
3 changed files with 95 additions and 87 deletions
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -165,9 +165,9 @@ Partial Class ContabilidadC_RegPrePoliza
        Set(value As Integer)
            ViewState("IdPoliza") = value
        End Set
-    End Property
+    End Property
 #End Region
-
+
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
@@ -186,79 +186,80 @@ Partial Class ContabilidadC_RegPrePoliza

            Dim dt As DataTable = Nothing
            '   If UsuarioActual.Empresa.UsaContabilidad Then
-            Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
-                If Conta.GetCuentas(-1, "-1", 1) Then
-                    dt = Conta.DtResultados
-                    DtCuentasContables = Conta.DtResultados
-                    Session("DtCuentas") = Conta.DtResultados
-                End If
-                Conta.Dispose()
-
-                If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
-                    DivTipoGasto.Visible = True
-                    ThTipoGasto.Visible = True
-                    CargaTiposGasto()
-                End If
-
-                If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
-                    ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
-                    CreaDT()
-                    CargaPrePoliza()
-                    If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
-                        GvPrePoliza.Columns(4).Visible = False
-                        GvConcepto.Columns(4).Visible = False
-                        GvMov.Columns(5).Visible = False
-                    End If
-                    Exit Sub
-                Else
-                    CreaDT()
-                    BtnEliminar.Visible = False
-                End If
-
-
-                TipoPlantilla = 0
-                If IfNull(Request("Tipo"), "").ToString = "Ing" Then
-                    TipoPlantilla = 1
-                    LblEncabezado.Text = "Otros Ingresos"
-                End If
-
-                CargaPlantillas(TipoPlantilla)
-
-                If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True
-
-                CargaConceptos()
-                CargaSubProyectos()
-                CargaCuentasContables()
-
-                'crea tabla temporal
-                ArregloMovs = New ArrayList
-
-                CargaCuentas()
-
-                If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then
-                    ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero
-                    ViewState("CveProyecto") = Request("CveProyecto").ToEntero
-                    ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
-                    ViewState("CveTurno") = Request("CveTurno").ToEntero
-
-                    DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
-                    DdlPlantilla.SelectedValue = "61"
-                    DdlPlantilla.Enabled = False
-                    DivAgregarConceptos.Visible = False
-
-                    CargaNomina()
-
-                    RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
-                    RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
-                    RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
-                End If
-
-                If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
-                    GvPrePoliza.Columns(3).Visible = False
-                    GvConcepto.Columns(3).Visible = False
-                    GvMov.Columns(4).Visible = False
-                End If
+            Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
+
+            If Conta.GetCuentas(-1, "-1", 1) Then
+                dt = Conta.DtResultados
+                DtCuentasContables = Conta.DtResultados
+                Session("DtCuentas") = Conta.DtResultados
+            End If
+            Conta.Dispose()
+
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
+                DivTipoGasto.Visible = True
+                ThTipoGasto.Visible = True
+                CargaTiposGasto()
+            End If
+
+            If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
+                ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
+                CreaDT()
+                CargaPrePoliza()
+                If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
+                    GvPrePoliza.Columns(4).Visible = False
+                    GvConcepto.Columns(4).Visible = False
+                    GvMov.Columns(5).Visible = False
+                End If
+                Exit Sub
+            Else
+                CreaDT()
+                BtnEliminar.Visible = False
+            End If
+
+
+            TipoPlantilla = 0
+
+            If IfNull(Request("Tipo"), "").ToString = "Ing" Then
+                TipoPlantilla = 1
+                LblEncabezado.Text = "Otros Ingresos"
+            End If
+
+            CargaPlantillas(TipoPlantilla)
+
+            If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True
+
+            CargaConceptos()
+            CargaSubProyectos()
+            CargaCuentasContables()
+
+            'crea tabla temporal
+            ArregloMovs = New ArrayList
+
+            CargaCuentas()
+
+            If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then
+                ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero
+                ViewState("CveProyecto") = Request("CveProyecto").ToEntero
+                ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
+                ViewState("CveTurno") = Request("CveTurno").ToEntero
+
+                DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
+                DdlPlantilla.SelectedValue = "61"
+                DdlPlantilla.Enabled = False
+                DivAgregarConceptos.Visible = False
+
+                CargaNomina()
+
+                RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
+                RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
+                RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
+            End If
+
+            If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
+                GvPrePoliza.Columns(3).Visible = False
+                GvConcepto.Columns(3).Visible = False
+                GvMov.Columns(4).Visible = False
+            End If

            'Else
            '    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
@@ -271,6 +272,7 @@ Partial Class ContabilidadC_RegPrePoliza

    End Sub

+
    Private Sub CreaDT()
        DtMovimientos = New DataTable("Movimientos")
        Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
@@ -502,7 +504,13 @@ Partial Class ContabilidadC_RegPrePoliza
        'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
        'GvPlantillas.DataBind()

-        DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+        If UsuarioActual.CveEmpresa.Contiene(120) Then
+            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+        Else
+            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+        End If
+
+
        DdlPlantilla.DataBind()
        DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
    End Sub
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -1755,11 +1755,11 @@ Partial Class Contratos_Default
            Gv.Columns(3).Visible = False
            Gv.Columns(9).Visible = False
        End If
-        If (Gv.Rows.Count > 0) Then
-            Gv.UseAccessibleHeader = True
-            Gv.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestos();")
-        End If
+        'If (Gv.Rows.Count > 0) Then
+        '    Gv.UseAccessibleHeader = True
+        '    Gv.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    RegistraScript("OrdenarGVPresupuestos();")
+        'End If
        UpGV.Update()
    End Sub
    Protected Sub BtnAutorizar_Click(sender As Object, e As EventArgs) Handles BtnAutorizar.Click
@@ -2020,11 +2020,11 @@ Partial Class Contratos_Default
        GvInsumos.DataSource = DtTemp
        DtSuministros = DtTemp
        GvInsumos.DataBind()
-        If (GvInsumos.Rows.Count > 0) Then
-            GvInsumos.UseAccessibleHeader = True
-            GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestosInsumos();")
-        End If
+        'If (GvInsumos.Rows.Count > 0) Then
+        '    GvInsumos.UseAccessibleHeader = True
+        '    GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    RegistraScript("OrdenarGVPresupuestosInsumos();")
+        'End If
        UpGVInsumos.Update()
    End Sub

--- a/Inventarios/RecepcionEntrega.aspx.vb
+++ b/Inventarios/RecepcionEntrega.aspx.vb
@@ -1894,7 +1894,7 @@ Partial Class Inventarios_RecepcionEntrega
            '' TERMINA: APARTADOS

            ' COMIENZA: GARANTIAS
-            If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
+            If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then

                Dim CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
                Dim DtGarantias As DataTable = Nothing