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

Contabilidad/RegPrePoliza.aspx.vb

@@ -188,77 +188,78 @@ Partial Class ContabilidadC_RegPrePoliza
             '   If UsuarioActual.Empresa.UsaContabilidad Then
             Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
-                If Conta.GetCuentas(-1, "-1", 1) Then
+            If Conta.GetCuentas(-1, "-1", 1) Then
-                    dt = Conta.DtResultados
+                dt = Conta.DtResultados
-                    DtCuentasContables = Conta.DtResultados
+                DtCuentasContables = Conta.DtResultados
-                    Session("DtCuentas") = Conta.DtResultados
+                Session("DtCuentas") = Conta.DtResultados
-                End If
+            End If
-                Conta.Dispose()
+            Conta.Dispose()
 
-                If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
-                    DivTipoGasto.Visible = True
+                DivTipoGasto.Visible = True
-                    ThTipoGasto.Visible = True
+                ThTipoGasto.Visible = True
-                    CargaTiposGasto()
+                CargaTiposGasto()
-                End If
+            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 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(3).Visible = False
+                    GvPrePoliza.Columns(4).Visible = False
-                    GvConcepto.Columns(3).Visible = False
+                    GvConcepto.Columns(4).Visible = False
-                    GvMov.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

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
+        'If (Gv.Rows.Count > 0) Then
-            Gv.UseAccessibleHeader = True
+        '    Gv.UseAccessibleHeader = True
-            Gv.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    Gv.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestos();")
+        '    RegistraScript("OrdenarGVPresupuestos();")
-        End If
+        '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
+        'If (GvInsumos.Rows.Count > 0) Then
-            GvInsumos.UseAccessibleHeader = True
+        '    GvInsumos.UseAccessibleHeader = True
-            GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestosInsumos();")
+        '    RegistraScript("OrdenarGVPresupuestosInsumos();")
-        End If
+        'End If
         UpGVInsumos.Update()
     End Sub
 

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