DdlPlantillas cargar todo en 120
This commit is contained in:
Rakcsle Supertramp
@@ -188,77 +188,78 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
' If UsuarioActual.Empresa.UsaContabilidad Then
|
' If UsuarioActual.Empresa.UsaContabilidad Then
|
||||||
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
|
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
|
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
|
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
|
'Else
|
||||||
' Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
|
' Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
|
||||||
@@ -271,6 +272,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Sub CreaDT()
|
Private Sub CreaDT()
|
||||||
DtMovimientos = New DataTable("Movimientos")
|
DtMovimientos = New DataTable("Movimientos")
|
||||||
Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
|
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.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
||||||
'GvPlantillas.DataBind()
|
'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.DataBind()
|
||||||
DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
|
DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
Reference in New Issue
Block a user