From 7b383e30c1b1fb4ddbdd48a70247f98763e686f0 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Tue, 8 Oct 2019 12:27:29 -0700
Subject: [PATCH] DdlPlantillas cargar todo en 120

---
 Contabilidad/RegPrePoliza.aspx.vb | 160 ++++++++++++++++--------------
 1 file changed, 84 insertions(+), 76 deletions(-)

diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 0d3eefe4f..c7290769b 100644
--- 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