499 lines
21 KiB
VB.net
499 lines
21 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports System.Linq
|
|
Imports Extensiones
|
|
|
|
Partial Class Contabilidad_PlantillasPolizasDetalle
|
|
Inherits ClsPaginas
|
|
#Region "PROPIEDADES"
|
|
|
|
Private Property DTSubProyectos As DataTable
|
|
Get
|
|
Return CType(ViewState("DTSubProyectos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTSubProyectos") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property DTCuentasContables As DataTable
|
|
Get
|
|
Return CType(ViewState("DTCuentasContables"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTCuentasContables") = value
|
|
End Set
|
|
End Property
|
|
Private ReadOnly Property CvePlantillaPoliza As Integer
|
|
Get
|
|
Return ViewState("CvePlantillaPoliza").ToString.ToEntero
|
|
End Get
|
|
End Property
|
|
Public Property DTDetalle As DataTable
|
|
Get
|
|
Return CType(ViewState("DTDetalle"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTDetalle") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
ViewState("Orden") = ""
|
|
TxtFechaIng.Text = Date.Today.ToString("dd/MM/yyyy")
|
|
TxtUsuario.Text = UsuarioActual.CveUsuario.ToString
|
|
CreadDTDetalle()
|
|
|
|
Dim ObjPlantillaPolizasTipo As New ClsContabilidad
|
|
If ObjPlantillaPolizasTipo.GetConta_PlantillasPolizasTipo() Then
|
|
Dim row As DataRow = ObjPlantillaPolizasTipo.DtResultados().NewRow()
|
|
row("CveTipoPlantillaPoliza") = -1
|
|
row("TipoPlantillaPoliza") = "Seleccione"
|
|
ObjPlantillaPolizasTipo.DtResultados.Rows.Add(row)
|
|
ObjPlantillaPolizasTipo.DtResultados.AcceptChanges()
|
|
DdlTPP.DataSource = ObjPlantillaPolizasTipo.DtResultados()
|
|
DdlTPP.DataBind()
|
|
End If
|
|
ObjPlantillaPolizasTipo.Dispose()
|
|
|
|
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()
|
|
End If
|
|
CargaCuenta()
|
|
CargaDDL()
|
|
CargaDDLProveedor()
|
|
CargarConcepto()
|
|
ViewState("CvePlantillaPoliza") = 0
|
|
|
|
If Request("CvePlantillaPoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePlantillaPoliza")) AndAlso Request("CvePlantillaPoliza").ToEntero > 0 Then
|
|
ViewState("CvePlantillaPoliza") = Request("CvePlantillaPoliza")
|
|
TRClave.Visible = False
|
|
TxtPlantillaPoliza.Enabled = False
|
|
DdlTipoPoliza.Enabled = False
|
|
DdlTPP.Enabled = False
|
|
ChkEstatus.Enabled = False
|
|
BtnGuardar.Visible = False
|
|
tableopcional.Visible = False
|
|
CargaDatos()
|
|
CargaDatosPoliza(CvePlantillaPoliza)
|
|
Else
|
|
ViewState("CvePlantillaPoliza") = -1
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#Region "C A R G A - D A T O S"
|
|
Public Sub CargaDatos()
|
|
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
|
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(CvePlantillaPoliza, UsuarioActual.CveEmpresa) Then
|
|
GvDatos.DataSource = ObjPlantillaPolizaDetalle.DtResultados
|
|
ObjPlantillaPolizaDetalle.Dispose()
|
|
GvDatos.DataBind()
|
|
Else
|
|
Me.GvDatos.DataSource = Nothing
|
|
End If
|
|
|
|
' OrdenaDatos()
|
|
End Sub
|
|
Public Sub CargaDatosPoliza(CvePlantillaPoliza As Integer)
|
|
Dim ObjPlantillaPolizas As New ClsContabilidad
|
|
If ObjPlantillaPolizas.GetConta_PlantillasPolizas(CvePlantillaPoliza, -1) Then
|
|
TxtPlantillaPoliza.Text = ObjPlantillaPolizas.PlantillaPoliza
|
|
DdlTipoPoliza.SelectedValue = ObjPlantillaPolizas.TipoPoliza.ToString
|
|
DdlTPP.SelectedValue = ObjPlantillaPolizas.CveTipoPlantillaPoliza.ToString
|
|
If ObjPlantillaPolizas.Estatus = "Activo" Then
|
|
ChkEstatus.Checked = True
|
|
End If
|
|
TxtFechaIng.Text = ObjPlantillaPolizas.FechaIng.ToShortDateString
|
|
TxtUsuario.Text = ObjPlantillaPolizas.Usuario
|
|
BtnGuardar.Text = "Actualizar"
|
|
Else
|
|
End If
|
|
|
|
ObjPlantillaPolizas.Dispose()
|
|
End Sub
|
|
|
|
Private Sub LimpiaDatos()
|
|
TxtPlantillaPoliza.Text = ""
|
|
DdlTipoPoliza.SelectedValue = "-1"
|
|
DdlTPP.SelectedValue = "-1"
|
|
ChkEstatus.Checked = False
|
|
ViewState("CvePlantillaPoliza") = -1
|
|
GvDatos.DataSource = Nothing
|
|
GvDatos.DataBind()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
Private Sub CargaCuenta()
|
|
DdlCtaContable.Items.Clear()
|
|
|
|
DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
|
Dim Conta As New ClsContabilidad
|
|
Dim dtt As New DataTable
|
|
|
|
If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
|
dtt = Conta.DtResultados
|
|
End If
|
|
|
|
Conta.Dispose()
|
|
|
|
DdlCuentas.Items.Clear()
|
|
DdlCuentas.DataSource = dtt
|
|
DdlCuentas.DataBind()
|
|
DdlCuentas.Visible = True
|
|
DdlCtaContable.Visible = False
|
|
Else
|
|
|
|
DdlCtaContable.DataSource = DTCuentasContables
|
|
DdlCtaContable.DataBind()
|
|
End If
|
|
|
|
|
|
DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargarConcepto()
|
|
DdlConcepto.DataSource = GlobalDTContaConceptosContables(-1)
|
|
DdlConcepto.DataBind()
|
|
End Sub
|
|
|
|
Private Sub CreadDTDetalle()
|
|
DTDetalle = New DataTable
|
|
DTDetalle.Columns.Add("CvePlantillaPolizaDetalle", GetType(Integer)) 'Consec
|
|
DTDetalle.Columns.Add("ConceptoContable", GetType(String))
|
|
DTDetalle.Columns.Add("CveConcepto", GetType(Integer))
|
|
DTDetalle.Columns.Add("TipoMovimiento", GetType(String))
|
|
DTDetalle.Columns.Add("TipoMovto", GetType(Integer))
|
|
DTDetalle.Columns.Add("IdCtaContable", GetType(Integer))
|
|
DTDetalle.Columns.Add("Orden", GetType(String))
|
|
DTDetalle.Columns.Add("Usuario", GetType(String))
|
|
DTDetalle.Columns.Add("PorcentajeImpuesto", GetType(Decimal))
|
|
End Sub
|
|
#End Region
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
|
Dim ObjPlantillaPoliza As New ClsContabilidad
|
|
Dim ErrorPlantilla = False
|
|
Dim CvePlantilla = -1
|
|
ObjPlantillaPoliza.IniciaTransacSQL()
|
|
|
|
If CvePlantillaPoliza < 0 Then
|
|
If ObjPlantillaPoliza.AddConta_PlantillasPolizas(TxtClave.Text.ToEntero, TxtPlantillaPoliza.Text.Trim, DdlTPP.SelectedValue.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, ChkEstatus.Checked, TxtFechaIng.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
|
CvePlantilla = ObjPlantillaPoliza.CvePlantillaPoliza
|
|
If DTDetalle.Rows.Count > 0 Then
|
|
For Each Row As DataRow In DTDetalle.Rows
|
|
If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
|
|
ErrorPlantilla = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
Else
|
|
ErrorPlantilla = True
|
|
End If
|
|
|
|
Else
|
|
If ObjPlantillaPoliza.UpdateConta_PlantillasPolizas(TxtPlantillaPoliza.Text.Trim, DdlTPP.SelectedValue.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, ChkEstatus.Checked, CvePlantillaPoliza) Then
|
|
ObjPlantillaPoliza.Commit()
|
|
ObjPlantillaPoliza.Dispose()
|
|
LimpiaDatos()
|
|
Alert("La Plantilla Póliza y sus Detalles fueron Actualizados correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Contabilidad/PlantillasPolizas.aspx?"";")
|
|
Exit Sub
|
|
Else
|
|
ErrorPlantilla = True
|
|
End If
|
|
|
|
End If
|
|
|
|
If Not ErrorPlantilla Then
|
|
ObjPlantillaPoliza.Commit()
|
|
LimpiaDatos()
|
|
Alert("La Plantilla Póliza y su Detalle fue agregado correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Contabilidad/PlantillasPolizas.aspx?"";")
|
|
Else
|
|
ObjPlantillaPoliza.RollBack()
|
|
Alert("Error al agregar la Plantilla Póliza y el Detalle.", TipoMensaje.MsgError)
|
|
End If
|
|
ObjPlantillaPoliza.Dispose()
|
|
End Sub
|
|
Public Sub updatatos()
|
|
|
|
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
|
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, -1) Then
|
|
ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa))
|
|
|
|
GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados
|
|
End If
|
|
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizas(-1, -1) Then
|
|
GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizaDetalle.DtResultados
|
|
End If
|
|
ObjPlantillaPolizaDetalle.Dispose()
|
|
End Sub
|
|
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
|
OcultaDiv()
|
|
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
|
Dim Row As DataRow
|
|
Dim ErrorActualizar = False
|
|
Dim ErrorDetalle = False
|
|
Dim Cuenta As Integer = -1
|
|
|
|
If HdnModalidad.Value = "I" Then
|
|
If CvePlantillaPoliza > 0 Then
|
|
If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
|
|
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
|
|
DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
|
|
TxtOrden.Text = ""
|
|
If Not ChkSeguirAgregando.Checked Then
|
|
updatatos()
|
|
Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
|
|
UpModal.Update()
|
|
End If
|
|
|
|
Else
|
|
ErrorDetalle = True
|
|
End If
|
|
Else
|
|
Try
|
|
Row = DTDetalle.NewRow
|
|
Row("CvePlantillaPolizaDetalle") = DTDetalle.Rows.Count + 1
|
|
Row("ConceptoContable") = DdlConcepto.SelectedItem.ToString
|
|
Row("CveConcepto") = DdlConcepto.SelectedValue.ToEntero
|
|
Row("TipoMovimiento") = DdlTipoMovimiento.SelectedItem.ToString
|
|
Row("TipoMovto") = DdlTipoMovimiento.SelectedValue.ToEntero
|
|
Row("IdCtaContable") = DdlCtaContable.SelectedValue.ToEntero
|
|
Row("Orden") = TxtOrden.Text.Trim.ToEntero
|
|
Row("Usuario") = UsuarioActual.Usuario
|
|
|
|
DTDetalle.Rows.Add(Row)
|
|
|
|
TxtOrden.Text = ""
|
|
UpTitulos.Update()
|
|
Catch ex As Exception
|
|
ErrorDetalle = True
|
|
End Try
|
|
End If
|
|
Else
|
|
If HdnID.Value.ToEntero <> -1 Then
|
|
If CvePlantillaPoliza > 0 Then
|
|
If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
|
|
HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
|
|
DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
|
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
updatatos()
|
|
Else
|
|
ErrorActualizar = True
|
|
End If
|
|
Else
|
|
Try
|
|
Row = DTDetalle.NewRow
|
|
Row("CvePlantillaPolizaDetalle") = DTDetalle.Rows.Count + 1
|
|
Row("ConceptoContable") = DdlConcepto.SelectedItem.ToString
|
|
Row("CveConcepto") = DdlConcepto.SelectedValue.ToEntero
|
|
Row("TipoMovimiento") = DdlTipoMovimiento.SelectedItem.ToString
|
|
Row("TipoMovto") = DdlTipoMovimiento.SelectedValue.ToEntero
|
|
Row("IdCtaContable") = DdlCtaContable.SelectedValue.ToEntero
|
|
Row("Orden") = TxtOrden.Text.Trim.ToEntero
|
|
Row("Usuario") = UsuarioActual.Usuario
|
|
DTDetalle.Rows.Add(Row)
|
|
Catch ex As Exception
|
|
ErrorActualizar = True
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
ObjPlantillaPolizaDetalle.Dispose()
|
|
|
|
CargaDatos()
|
|
UpDatos.Update()
|
|
|
|
End Sub
|
|
|
|
#Region "G V - D A T O S"
|
|
|
|
|
|
|
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
|
|
Dim Cuenta As Integer = e.Row.DataKey("IdCtaContable").ToString.ToEntero
|
|
e.Row.FCLiteral("LtlCtaContable").Text = DTCuentasContables.FiltroPrimeroValor("Nombre", $"Id = {Cuenta}")
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
|
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
|
|
If CvePlantillaPoliza > 0 Then
|
|
If ObjPlantillaPolizaDetalle.RemoveConta_PlantillasPolizasDetalle(CvePlantillaPoliza, GvDatos.Rows(e.RowIndex).DataKey("CvePlantillaPolizaDetalle").ToString.ToEntero) Then
|
|
GvDatos.EditIndex = -1
|
|
updatatos()
|
|
Alert("El Concepto se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
Else
|
|
Dim index = GvDatos.Rows(e.RowIndex).DataKey("CvePlantillaPolizaDetalle").ToString.ToEntero - 1
|
|
DTDetalle.Rows.RemoveAt(index)
|
|
End If
|
|
ObjPlantillaPolizaDetalle.Dispose()
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
Public Sub CargaDDL()
|
|
|
|
|
|
DTSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DDLSubProyecto.DataSource = DTSubProyectos
|
|
DDLSubProyecto.DataBind()
|
|
DDLSubProyecto.Items.Insert(0, New ListItem(" - ", "-1"))
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaDDLProveedor()
|
|
DDLProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
DDLProveedor.DataBind()
|
|
DDLProveedor.Items.Insert(0, New ListItem(" - ", "-1"))
|
|
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
|
|
DdlPersonal.DataBind()
|
|
DdlPersonal.Items.Insert(0, New ListItem(" - ", "-1"))
|
|
End Sub
|
|
|
|
Private Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
|
|
|
|
'cargar la cuenta
|
|
|
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
|
'busco en la cuenta contable, lo que tenga asignado
|
|
Dim Con As New ClsContabilidad
|
|
Dim dtt As DataTable = Nothing
|
|
If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
|
dtt = Con.DtResultados
|
|
End If
|
|
Dim drr As DataRow = dtt.FiltroPrimero(String.Format("CveConceptoAdmin={0}", DdlConcepto.SelectedValue))
|
|
|
|
If drr IsNot Nothing Then
|
|
LblCuenta.Text = drr("CtaCodigo").ToString
|
|
Else
|
|
LblCuenta.Text = ""
|
|
End If
|
|
|
|
DdlCuentas.Items.Clear()
|
|
DdlCuentas.DataSource = dtt
|
|
DdlCuentas.DataBind()
|
|
DdlCuentas.Visible = True
|
|
DdlCtaContable.Visible = False
|
|
|
|
dtt.Dispose()
|
|
Con.Dispose()
|
|
End If
|
|
|
|
If DdlConcepto.SelectedValue.Contiene("130", "29") Then
|
|
DdlPersonal.Visible = True
|
|
LblPersonal.Visible = True
|
|
Else
|
|
DdlPersonal.Visible = False
|
|
LblPersonal.Visible = False
|
|
End If
|
|
If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado
|
|
DdlPorcentajeImpuesto.Visible = True
|
|
LblPorcentajeImpuesto.Visible = True
|
|
Else
|
|
DdlPorcentajeImpuesto.Visible = False
|
|
LblPorcentajeImpuesto.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
#Region " O R D E N A M I E N T O JAVASCRIPT"
|
|
Private Sub OrdenaDatos()
|
|
If (GvDatos.Rows.Count > 0) Then
|
|
GvDatos.UseAccessibleHeader = True
|
|
GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
|
|
RegistraScript("OrdenarGV();")
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub OcultaDiv()
|
|
ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True)
|
|
End Sub
|
|
|
|
|
|
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnModalidad.Value = "U"
|
|
HdnID.Value = GvRow.DataKey("CvePlantillaPolizaDetalle")
|
|
DdlConcepto.SelectedValueExist(GvRow.DataKey("CveConcepto"))
|
|
DdlTipoMovimiento.SelectedValueExist(IIf(GvRow.DataKey("TipoMovimiento") = "Abono", 1, 0).ToString)
|
|
DdlCtaContable.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
|
|
DdlCuentas.SelectedValueExist(GvRow.DataKey("CveCuenta"))
|
|
DDLSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
|
|
TxtOrden.Text = GvRow.DataKey("Orden")
|
|
LbAgregar.Text = "Actualizar"
|
|
LtlTituloModal.Text = String.Format("{0}{1}", "Actualizar Concepto: ", DdlConcepto.SelectedItem)
|
|
|
|
If DdlConcepto.SelectedValue.Contiene("130", "29") Then
|
|
DdlPersonal.SelectedValueExist(GvRow.DataKey("CvePersonal"))
|
|
DdlPersonal.Visible = True
|
|
LblPersonal.Visible = True
|
|
Else
|
|
DdlPersonal.SelectedIndex = 0
|
|
DdlPersonal.Visible = False
|
|
LblPersonal.Visible = False
|
|
End If
|
|
If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado
|
|
DdlPorcentajeImpuesto.SelectedValueExist(GvRow.DataKey("PorcentajeImpuesto"))
|
|
DdlPorcentajeImpuesto.Visible = True
|
|
LblPorcentajeImpuesto.Visible = True
|
|
Else
|
|
DdlPorcentajeImpuesto.Visible = False
|
|
LblPorcentajeImpuesto.Visible = False
|
|
End If
|
|
|
|
UpModal.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
Public Sub BtnAgregarSucursalModal_Click(sender As Object, e As EventArgs)
|
|
DdlPersonal.Visible = False
|
|
LblPersonal.Visible = False
|
|
LbAgregar.Text = "Agregar"
|
|
LtlTituloModal.Text = "Agregar Concepto Contable"
|
|
DdlConcepto.SelectedIndex = 0
|
|
DdlTipoMovimiento.SelectedIndex = 0
|
|
DdlCtaContable.SelectedIndex = 0
|
|
DDLSubProyecto.SelectedIndex = 0
|
|
DDLProveedor.SelectedIndex = 0
|
|
DdlPersonal.SelectedIndex = 0
|
|
TxtOrden.Text = ""
|
|
UpModal.Update()
|
|
HdnModalidad.Value = "I"
|
|
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
|
|
End Sub
|
|
|
|
|
|
End Class
|