DdlPlantillas cargar todo en 120
This commit is contained in:
Rakcsle Supertramp
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user