1268 lines
57 KiB
VB.net
1268 lines
57 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
|
|
|
|
Partial Class RegPoliza
|
|
Inherits ClsPaginas
|
|
|
|
#Region "P R O P E R T Y"
|
|
Private Shared missing As Object = System.Reflection.Missing.Value
|
|
Private Property RemoveMovimientos As New ArrayList()
|
|
|
|
Private Property CvePoliza As Integer
|
|
Get
|
|
Return CType(ViewState("CvePoliza"), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CvePoliza") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property Opcion As String
|
|
Get
|
|
Return CType(ViewState("Opcion"), String)
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Opcion") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property TmpDT As DataTable
|
|
Get
|
|
Return CType(ViewState("TmpDT"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TmpDT") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DTCuentas As DataTable
|
|
Get
|
|
Return CType(ViewState("DTCuentas"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTCuentas") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DTSegmentosNegocio As DataTable
|
|
Get
|
|
Return CType(ViewState("DTSegmentosNegocio"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTSegmentosNegocio") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DtDevoluciones As DataTable
|
|
Get
|
|
DtDevoluciones = DirectCast(ViewState("DtDevoluciones"), DataTable)
|
|
End Get
|
|
|
|
Set(ByVal value As DataTable)
|
|
ViewState("DtDevoluciones") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DtProveedoresConta As DataTable
|
|
Get
|
|
DtProveedoresConta = DirectCast(ViewState("DtProveedoresConta"), DataTable)
|
|
End Get
|
|
|
|
Set(ByVal value As DataTable)
|
|
ViewState("DtProveedoresConta") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DrParametros As DataRow
|
|
Get
|
|
DrParametros = If(ViewState("drParametros") IsNot Nothing AndAlso DirectCast(ViewState("drParametros"), DataTable).Rows.Count > 0, DirectCast(ViewState("drParametros"), DataTable).Rows(0), Nothing)
|
|
End Get
|
|
Set(value As DataRow)
|
|
ViewState("drParametros") = value.Table
|
|
End Set
|
|
End Property
|
|
|
|
Private Property UsaMonedaExtranjera As Boolean
|
|
Get
|
|
UsaMonedaExtranjera = CBool(ViewState("UsaMonedaExtranjera"))
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaMonedaExtranjera") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
|
|
If Not IsPostBack Then
|
|
ViewState("Orden0") = ""
|
|
ViewState("Orden1") = ""
|
|
Me.Form.DefaultButton = BtnConsultar.UniqueID
|
|
|
|
TxtFecha.Text = Now.ToShortDateString
|
|
TxtFechaPoliza.Text = Now.ToShortDateString
|
|
|
|
If Not UsuarioActual.Empresa.UsaAC Then
|
|
tdPolizaComplementaria.Visible = True
|
|
End If
|
|
|
|
Dim ObjConta As New ClsContabilidad
|
|
If ObjConta.GetConta_TiposPoliza(UsuarioActual.CveEmpresa) Then
|
|
DdlTipo.DataSource = ObjConta.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL")
|
|
DdlTipo.DataBind()
|
|
DdlTipoPoliza.DataSource = ObjConta.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL")
|
|
DdlTipoPoliza.DataBind()
|
|
End If
|
|
|
|
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
|
DTCuentas = ObjConta.DtResultados
|
|
End If
|
|
|
|
DTSegmentosNegocio = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
|
|
|
|
Dim dr As DataRow = DTSegmentosNegocio.NewRow
|
|
dr("CveSubProyecto") = "0"
|
|
dr("SubProyecto") = ""
|
|
DTSegmentosNegocio.Rows.InsertAt(dr, 0)
|
|
|
|
DdlSegNeg.DataSource = DTSegmentosNegocio
|
|
DdlSegNeg.DataBind()
|
|
|
|
If ObjConta.GetParametros(UsuarioActual.CveEmpresa) Then
|
|
If ObjConta.DtResultados IsNot Nothing AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
|
DrParametros = ObjConta.DtResultados.Rows(0)
|
|
'vienen datos agruapdos ejemplo 'SSSSSSNNNNSSSSSS, Y un digito significa una opcion
|
|
UsaMonedaExtranjera = DrParametros("ParFunc").ToString.Substring(5, 1) = "S"
|
|
|
|
If UsaMonedaExtranjera Then
|
|
GvDatos.Columns(5).Visible = True
|
|
GvDatos.Columns(6).Visible = True
|
|
td1CargoME.Visible = True
|
|
td1AbonoME.Visible = True
|
|
td2CargoME.Visible = True
|
|
td2AbonoME.Visible = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
|
|
LblAbono.Text = "0.00"
|
|
LblCargo.Text = "0.00"
|
|
|
|
If TmpDT Is Nothing Then CreaDTRegPoliza()
|
|
|
|
If Request("CvePoliza") IsNot Nothing AndAlso Request("CvePoliza").ToEntero() > 0 Then
|
|
|
|
ChkPolizaComplementaria.Enabled = False
|
|
CvePoliza = Request("CvePoliza").ToEntero()
|
|
|
|
Limpia()
|
|
|
|
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString <> "" Then
|
|
Opcion = Request("Opcion").ToString
|
|
End If
|
|
|
|
If Opcion = "Com" Then
|
|
CargaPolizaComplementaria(CvePoliza)
|
|
Else
|
|
CargaDatos(CvePoliza)
|
|
tdPolizaComplementaria.Visible = False
|
|
End If
|
|
|
|
Else
|
|
TxtFechaPoliza.Text = Date.Now.ToShortDateString
|
|
CvePoliza = -1
|
|
SiguienteFolio()
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.UsaAC Then
|
|
LBDevIVA.Visible = False
|
|
PnlDevIVA.Visible = False
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#Region "C A R G A - V A L O R E S"
|
|
Private Sub CreaDTRegPoliza()
|
|
TmpDT = New DataTable
|
|
Dim column As DataColumn = New DataColumn("IdConsec", GetType(Integer))
|
|
With column
|
|
.AutoIncrement = True
|
|
.AutoIncrementSeed = 1
|
|
.AutoIncrementStep = 1
|
|
End With
|
|
TmpDT.Columns.Add(column)
|
|
TmpDT.Columns.Add("CvePolizaDetalle", GetType(Integer))
|
|
TmpDT.Columns.Add("CvePoliza", GetType(Integer))
|
|
TmpDT.Columns.Add("Referencia", GetType(String))
|
|
TmpDT.Columns.Add("CveCuenta", GetType(Integer))
|
|
TmpDT.Columns.Add("Cuenta", GetType(String))
|
|
TmpDT.Columns.Add("CtaCodigo", GetType(String))
|
|
TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
|
|
TmpDT.Columns.Add("SubProyecto", GetType(String))
|
|
TmpDT.Columns.Add("Concepto", GetType(String))
|
|
TmpDT.Columns.Add("Estado", GetType(String))
|
|
TmpDT.Columns.Add("Cargo", GetType(Double))
|
|
TmpDT.Columns.Add("Abono", GetType(Double))
|
|
TmpDT.Columns.Add("CargoME", GetType(Double))
|
|
TmpDT.Columns.Add("AbonoME", GetType(Double))
|
|
TmpDT.Columns.Add("Folio", GetType(Integer))
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "G R I D - V I E W"
|
|
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
|
|
GvDatos.EditIndex = -1
|
|
CargaGrid()
|
|
End Sub
|
|
|
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If e.Row.RowIndex <= 4 Then 'mayor a cero, por si borran los primeros 3 renglones que se conserve el ancho
|
|
LblAbono.Text = TmpDT.FiltraParametros("Estado<>'D'").SUM("Abono").FormatoNumero
|
|
LblCargo.Text = TmpDT.FiltraParametros("Estado<>'D'").SUM("Cargo").FormatoNumero
|
|
LblDiferencia.Text = (LblCargo.Text.Trim.ToDouble - LblAbono.Text.Trim.ToDouble).FormatoNumero
|
|
End If
|
|
|
|
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
|
|
e.Row.Cells(2).Style.Add("text-align", "left")
|
|
e.Row.FCLiteral("LtlNo").Text = (e.Row.RowIndex + 1).ToString
|
|
|
|
If e.Row.DBCampo("Cargo") = "0" AndAlso e.Row.FCLiteral("LtlCargo") IsNot Nothing Then e.Row.FCLiteral("LtlCargo").Text = ""
|
|
If e.Row.DBCampo("Abono") = "0" AndAlso e.Row.FCLiteral("LtlAbono") IsNot Nothing Then e.Row.FCLiteral("LtlAbono").Text = ""
|
|
|
|
If e.Row.DBCampo("CargoME") = "0" AndAlso e.Row.FCLiteral("LtlCargoME") IsNot Nothing Then e.Row.FCLiteral("LtlCargoME").Text = ""
|
|
If e.Row.DBCampo("AbonoME") = "0" AndAlso e.Row.FCLiteral("LtlAbonoME") IsNot Nothing Then e.Row.FCLiteral("LtlAbonoME").Text = ""
|
|
|
|
If e.Row.DBCampo("Cargo").ToDouble < 0 AndAlso e.Row.FCLiteral("LtlCargo") IsNot Nothing Then e.Row.FCLiteral("LtlCargo").Text = String.Format("<span style='color:red;'>{0}</span>", e.Row.DBCampo("Cargo").FormatoNumero())
|
|
If e.Row.DBCampo("Abono").ToDouble < 0 AndAlso e.Row.FCLiteral("LtlAbono") IsNot Nothing Then e.Row.FCLiteral("LtlAbono").Text = String.Format("<span style='color:red;'>{0}</span>", e.Row.DBCampo("Abono").FormatoNumero())
|
|
|
|
If e.Row.DBCampo("Estado").ToString.Trim = "D" Then e.Row.Visible = False
|
|
|
|
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
|
e.Row.FCDropDownList("DdlCuenta").DataSource = DTCuentas.FiltraParametros("Afectable=1")
|
|
e.Row.FCDropDownList("DdlCuenta").DataBind()
|
|
e.Row.FCDropDownList("DdlCuenta").SelectedValue = e.Row.DBCampo("CveCuenta")
|
|
|
|
e.Row.FCDropDownList("DdlSegNeg").DataSource = DTSegmentosNegocio
|
|
e.Row.FCDropDownList("DdlSegNeg").DataBind()
|
|
e.Row.FCDropDownList("DdlSegNeg").SelectedValue = e.Row.DBCampo("CveSubProyecto")
|
|
|
|
e.Row.FCTextBox("TxtCargo").Text = e.Row.DBCampo("Cargo").ToString
|
|
e.Row.FCTextBox("TxtAbono").Text = e.Row.DBCampo("Abono").ToString
|
|
|
|
e.Row.FCTextBox("TxtCargoME").Text = e.Row.DBCampo("CargoME").ToString
|
|
e.Row.FCTextBox("TxtAbonoME").Text = e.Row.DBCampo("AbonoME").ToString
|
|
Else
|
|
'e.Row.FCHyperLink("Ref").NavigateUrl = e.Row.DBCampo("SIGReferencia").ContaReferenciaLiga
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
|
Dim dr() As DataRow = TmpDT.Select(String.Format("IdConsec = {0}", e.Keys("IdConsec")))
|
|
|
|
dr(0)("Estado") = "D"
|
|
TmpDT.AcceptChanges()
|
|
BtnNuevo.OnClientClick = "return confirm('Se han hecho cambios que no fueron guardados, ¿Continuar?');"
|
|
|
|
CargaGrid()
|
|
End Sub
|
|
|
|
Protected Sub GvDatos_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvDatos.RowEditing
|
|
GvDatos.EditIndex = e.NewEditIndex
|
|
CargaGrid()
|
|
End Sub
|
|
|
|
Protected Sub GvDatos_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
|
|
|
If (GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargo").Text.Length = 0 AndAlso
|
|
GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbono").Text.Length = 0) OrElse
|
|
(GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargo").Text.Trim.ToDouble > 0 AndAlso
|
|
GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbono").Text.Trim.ToDouble > 0) Then
|
|
Alert("Debes asignar un valor para CARGO o para ABONO", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
Dim dr() As DataRow = TmpDT.Select(String.Format("IdConsec = {0}", e.Keys("IdConsec")))
|
|
|
|
BtnNuevo.OnClientClick = "return confirm('Se han hecho cambios que no fueron guardados, ¿Continuar?');"
|
|
dr(0)("Referencia") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
|
|
dr(0)("CveCuenta") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuenta").SelectedValue
|
|
dr(0)("CtaCodigo") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuenta").SelectedItem.Text
|
|
dr(0)("Cuenta") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuenta").SelectedItem.Text
|
|
dr(0)("CveSubProyecto") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlSegNeg").SelectedValue
|
|
dr(0)("SubProyecto") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlSegNeg").SelectedItem.Text
|
|
dr(0)("Concepto") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtNombreConcepto").Text.Trim
|
|
dr(0)("Cargo") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargo").Text.Trim.ToDouble
|
|
dr(0)("Abono") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbono").Text.Trim.ToDouble
|
|
dr(0)("CargoME") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargoME").Text.Trim.ToDouble
|
|
dr(0)("AbonoME") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbonoME").Text.Trim.ToDouble
|
|
dr(0)("Estado") = "U"
|
|
TmpDT.AcceptChanges()
|
|
GvDatos.EditIndex = -1
|
|
CargaGrid()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Function WSCuentas() As String
|
|
Dim Str As New StringBuilder
|
|
Dim i As Integer = 0
|
|
Dim dt As DataTable = DTCuentas.FiltraParametros("Afectable = 1")
|
|
|
|
If dt IsNot Nothing Then
|
|
For Each dr As DataRow In dt.Rows
|
|
i += 1
|
|
Str.AppendFormat("{{value:""{0}"",label:""{1}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""))
|
|
Next
|
|
End If
|
|
|
|
Return Str.ToString
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "O R D E N A M I E N T O"
|
|
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
|
Dim Orden As String = ""
|
|
Dim Campo As String = ""
|
|
Dim gvi As Integer = 0
|
|
Dim Literal As Literal = Nothing
|
|
Const OrdenInicial As String = ""
|
|
Dim Arg(2) As String
|
|
|
|
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
|
Campo = Arg(0)
|
|
gvi = Arg(1).ToEntero
|
|
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
|
Campo = Campo.Substring(0, Campo.Length - 1)
|
|
|
|
If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString = String.Format("{0} DESC", Campo) Then
|
|
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
|
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
|
Else
|
|
ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
|
|
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
|
End If
|
|
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString
|
|
ViewState("Orden") = Orden
|
|
CargaGridDevoluciones(Orden, gvi)
|
|
End Sub
|
|
|
|
Protected Sub CargaGridDevoluciones(Orden As String, gvi As Integer)
|
|
Dim DV As DataView = Nothing
|
|
|
|
DV = New DataView(DtDevoluciones, "", Orden, DataViewRowState.CurrentRows)
|
|
If Orden <> String.Empty Then
|
|
GvDevoluciones.DataSource = DV.ToTable()
|
|
Else
|
|
GvDevoluciones.DataSource = DtDevoluciones
|
|
End If
|
|
ViewState("Orden1") = Orden
|
|
|
|
GvDevoluciones.DataBind()
|
|
UpDevoluciones.Update()
|
|
DV.Dispose()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "I M A G E - B U T T O N Y L I N K S"
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
Limpia()
|
|
CargaDatos(-1, DdlTipo.SelectedValue.ToEntero, TxtFecha.Text.Trim.ToDate, TxtNumero.Text.Trim.ToEntero)
|
|
End Sub
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
|
If GvDatos.Rows.Count = 0 Then
|
|
Alert("Debe agregar movimientos a la póliza.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
If LblCargo.Text.Trim.ToDouble <> LblAbono.Text.Trim.ToDouble Then
|
|
Alert("El total del CARGO debe coincidir con el total del ABONO.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
BtnGuardar.OnClientClick = "FncVerifica();"
|
|
|
|
If ChkPolizaComplementaria.Checked Then
|
|
If CvePoliza < 0 Then
|
|
GuardaPolizaComplementaria()
|
|
ElseIf HdnGuardar.Value = "" Or HdnGuardar.Value = "True" Then
|
|
ActualizaPolizaComplementaria()
|
|
ElseIf HdnGuardar.Value = "False" Then
|
|
Alert("Los datos no se guardaron", TipoMensaje.MsgError)
|
|
End If
|
|
Else
|
|
If CvePoliza < 0 Then
|
|
GuardaPoliza()
|
|
ElseIf HdnGuardar.Value = "" Or HdnGuardar.Value = "True" Then
|
|
ActualizaPoliza()
|
|
ElseIf HdnGuardar.Value = "False" Then
|
|
Alert("Los datos no se guardaron", TipoMensaje.MsgError)
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Protected Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click
|
|
CvePoliza = -1
|
|
DdlTipo.SelectedIndex = 0
|
|
DdlTipoPoliza.SelectedIndex = 0
|
|
DdlSegNeg.SelectedIndex = 0
|
|
|
|
BtnGuardar.OnClientClick = ""
|
|
TxtFecha.Text = ""
|
|
TxtNumero.Text = ""
|
|
TxtFechaPoliza.Text = ""
|
|
TxtNumeroPoliza.Text = ""
|
|
TxtConcepto.Text = ""
|
|
TxtReferencia.Text = ""
|
|
TxtCuenta.Text = ""
|
|
HdnCveCuenta.Value = ""
|
|
TxtNombreConcepto.Text = ""
|
|
TxtCargo.Text = ""
|
|
TxtAbono.Text = ""
|
|
LblCargo.Text = "0.00"
|
|
LblAbono.Text = "0.00"
|
|
|
|
HdnFechaPoliza.Value = TxtFechaPoliza.Text
|
|
HdnFolioPoliza.Value = TxtNumeroPoliza.Text
|
|
HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue
|
|
|
|
BtnEliminar.Visible = False
|
|
|
|
GvDatos.DataBind()
|
|
UpConsultar.Update()
|
|
UpTitulos.Update()
|
|
UpDatos.Update()
|
|
|
|
If TmpDT Is Nothing Then CreaDTRegPoliza() Else TmpDT.Rows.Clear()
|
|
|
|
Limpia()
|
|
End Sub
|
|
|
|
Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
|
|
If HdnCveCuenta.Value.ToEntero <= 0 Then Alert("Debe de seleccionar la cuenta.", TipoMensaje.MsgAdvertencia) : TxtCuenta.Focus() : Exit Sub
|
|
|
|
If (TxtCargo.Text.Length = 0 And TxtAbono.Text.Length = 0) Or (TxtCargo.Text.Trim.ToDouble > 0 And TxtAbono.Text.Trim.ToDouble > 0) Then
|
|
Alert("Debes asignar un valor para CARGO o para ABONO", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
If TxtCargo.Text = "" Then TxtCargo.Text = "0"
|
|
If TxtAbono.Text = "" Then TxtAbono.Text = "0"
|
|
AddRegPolizaDetalle(-1, TxtReferencia.Text, HdnCveCuenta.Value.ToEntero, TxtCuenta.Text, DdlSegNeg.SelectedValue, DdlSegNeg.SelectedItem.Text, TxtNombreConcepto.Text, TxtCargo.Text.ToDouble, TxtAbono.Text.ToDouble)
|
|
CargaGrid()
|
|
UpDatos.Update()
|
|
TxtReferencia.Focus()
|
|
|
|
DdlSegNeg.SelectedIndex = 0
|
|
TxtCargo.Text = ""
|
|
TxtAbono.Text = ""
|
|
HdnCveCuenta.Value = ""
|
|
TxtCuenta.Text = ""
|
|
BtnNuevo.OnClientClick = "return confirm('Se han hecho cambios que no fueron guardados, ¿Continuar?')"
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub CargaGrid()
|
|
GvDatos.DataBind()
|
|
GvDatos.DataSource = TmpDT
|
|
GvDatos.DataBind()
|
|
|
|
LblAbono.Text = TmpDT.SUM("Abono", "Estado<>'D'").FormatoNumero
|
|
LblCargo.Text = TmpDT.SUM("Cargo", "Estado<>'D'").FormatoNumero
|
|
LblDiferencia.Text = (LblCargo.Text.Trim.ToDouble - LblAbono.Text.Trim.ToDouble).FormatoNumero
|
|
|
|
If LblDiferencia.Text.ToDouble >= 0 Then
|
|
LblDiferencia.ForeColor = Drawing.Color.Black
|
|
Else
|
|
BtnGuardar.Enabled = True
|
|
LblDiferencia.ForeColor = Drawing.Color.Red
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#Region " P O L I Z A S - C O M P L E M E N T A R I A S "
|
|
Private Sub CargaPolizaComplementaria(tCvePoliza As Integer)
|
|
Dim ObjPoliza As New ClsContabilidad
|
|
Dim DT As DataTable = Nothing
|
|
|
|
If ObjPoliza.GetPoliza(tCvePoliza, UsuarioActual.CveEmpresa) Then
|
|
DT = ObjPoliza.DtResultados
|
|
BtnGuardar.OnClientClick = "FncVerifica();"
|
|
|
|
ChkPolizaComplementaria.Checked = True
|
|
|
|
If DT.Rows.Count = 0 Then
|
|
TxtFechaPoliza.Text = Now.ToShortDateString
|
|
TxtNumeroPoliza.Text = ""
|
|
LblCargo.Text = ""
|
|
LblAbono.Text = ""
|
|
TxtConcepto.Text = ""
|
|
Alert("No se encontró ninguna póliza, verifique los datos.", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
Dim dr As DataRow = DT.Rows(0)
|
|
TxtFechaPoliza.Text = dr("FechaPol").ToString.ToDate.ToShortDateString
|
|
HdnFechaPoliza.Value = dr("FechaPol").ToString.ToDate.ToShortDateString
|
|
HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue
|
|
TxtNumeroPoliza.Text = dr("Folio").ToString
|
|
HdnFolioPoliza.Value = dr("Folio").ToString
|
|
TxtConcepto.Text = dr("ConceptoPoliza").ToString
|
|
HdnlCargo.Value = dr("Cargos").ToString
|
|
HdnlAbono.Value = dr("Abonos").ToString
|
|
LblCargo.Text = dr("Cargos").ToString
|
|
LblAbono.Text = dr("Abonos").ToString
|
|
LblNumPoliza.ToolTip = dr("CvePoliza").ToString
|
|
|
|
If Math.Abs(dr("Cargos").ToString.ToDecimal - DT.SUM("Cargo")) > 0.001 OrElse Math.Abs(dr("Abonos").ToString.ToDecimal - DT.SUM("Abono")) > 0.001 Then
|
|
Dim Str As New StringBuilder
|
|
Str.AppendFormat("Los Totales de la póliza no coinciden con los movimientos <br>Cargos en Póliza: {0} Cargos en Movimientos: {1}<br>Abonos en Póliza: {2} Abonos en Movimientos: {3}<br>", dr("Cargos").ToString, DT.SUM("Cargo").ToString, dr("Abonos").ToString, DT.SUM("Abono").ToString)
|
|
Alert(Str.ToString, TipoMensaje.MsgError)
|
|
End If
|
|
|
|
CvePoliza = dr("CvePoliza").ToString.ToEntero
|
|
End If
|
|
|
|
End If
|
|
ObjPoliza.Dispose()
|
|
|
|
If TmpDT Is Nothing Then CreaDTRegPoliza()
|
|
TmpDT.Clear()
|
|
If DT IsNot Nothing Then TmpDT.Merge(DT)
|
|
|
|
If LblDiferencia.Text.Trim.ToDouble <> 0 Then
|
|
Alert("Verifique los cargos y abonos de los movimientos", TipoMensaje.MsgInformacion)
|
|
ElseIf HdnlCargo.Value.ToDouble <> LblCargo.Text.ToDouble Then
|
|
Alert("El cargo de la póliza " + HdnlCargo.Value + " no coincide con la sumatoria de cargos de los movimientos", TipoMensaje.MsgInformacion)
|
|
ElseIf HdnlAbono.Value.ToDouble <> LblAbono.Text.ToDouble Then
|
|
Alert("El abono de la póliza " + HdnlAbono.Value + " no coincide con la sumatoria de abonos de los movimientos", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
CargaGrid()
|
|
UpTitulos.Update()
|
|
UpDatos.Update()
|
|
|
|
If DT IsNot Nothing Then DT.Dispose()
|
|
End Sub
|
|
|
|
Private Sub GuardaPolizaComplementaria()
|
|
Dim OcurrioError As Boolean = False
|
|
Dim ObjConta As New ClsContabilidad
|
|
Dim tCvePoliza As Integer
|
|
Dim NumPoliza As String = "-1"
|
|
Dim Tipo As String = ""
|
|
|
|
ObjConta.IniciaTransacSQL()
|
|
|
|
If TxtNumeroPoliza.Text.Trim <> "" Then
|
|
NumPoliza = TxtNumeroPoliza.Text.Trim
|
|
Tipo = "CHQ"
|
|
Else
|
|
|
|
End If
|
|
|
|
tCvePoliza = ObjConta.AddPoliza(DdlTipoPoliza.SelectedValue.ToEntero, TxtFolio.Text.ToEntero, TxtFechaPoliza.Text.Trim.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
|
|
If tCvePoliza > 0 Then
|
|
|
|
'Agrega Movimientos de la poliza
|
|
For Each Row As DataRow In TmpDT.Rows
|
|
If Row("Cargo").ToString.ToDecimal <> 0 Then
|
|
If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, False,
|
|
Row("Cargo").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString,
|
|
TxtFechaPoliza.Text.Trim.ToDate) Then
|
|
OcurrioError = True
|
|
End If
|
|
Else
|
|
If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, True,
|
|
Row("Abono").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString,
|
|
TxtFechaPoliza.Text.Trim.ToDate) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
|
|
If OcurrioError Then
|
|
ObjConta.RollBack()
|
|
Alert("Ocurrió un error al guardar la póliza.", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
Alert(String.Format("La información se guardó correctamente."), TipoMensaje.MsgInformacion)
|
|
ObjConta.Commit()
|
|
CvePoliza = tCvePoliza
|
|
Limpia()
|
|
CargaPolizaComplementaria(CvePoliza)
|
|
BtnNuevo.OnClientClick = ""
|
|
End If
|
|
End If
|
|
|
|
UpTitulos.Update()
|
|
UpDatos.Update()
|
|
UpConsultar.Update()
|
|
ObjConta.Dispose()
|
|
End Sub
|
|
|
|
Private Sub ActualizaPolizaComplementaria()
|
|
Dim OcurrioError As Boolean = False
|
|
Dim ObjConta As New ClsContabilidad
|
|
Dim Row As DataRow
|
|
ObjConta.IniciaTransacSQL()
|
|
|
|
|
|
If ObjConta.UpdatePoliza(TxtFechaPoliza.Text.Trim.ToDate, TxtNumeroPoliza.Text.ToEntero, CvePoliza, TxtConcepto.Text.Trim, DdlTipoPoliza.SelectedValue.ToEntero) Then
|
|
|
|
For Each Row In TmpDT.Rows
|
|
If Row("Estado").ToString.Trim = "D" AndAlso Row("CvePolizaDetalle").ToString.ToEntero > 0 Then
|
|
ObjConta.RemovePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero)
|
|
Else
|
|
Dim Importe As Double = If(Row("Cargo").ToString.ToDouble <> 0, Row("Cargo"), Row("Abono")).ToString.ToDouble
|
|
Dim TipoMovto As Boolean = Not Row("Cargo").ToString.ToDouble <> 0
|
|
|
|
If Row("CvePolizaDetalle").ToString.ToEntero <> -1 Then
|
|
|
|
If Not ObjConta.UpdatePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString) Then
|
|
OcurrioError = True
|
|
End If
|
|
|
|
Else
|
|
|
|
If Not ObjConta.AddPolizaDetalle(CvePoliza.ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString, TxtFechaPoliza.Text.Trim.ToDate) Then
|
|
OcurrioError = True
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
If OcurrioError Then
|
|
ObjConta.RollBack()
|
|
Alert("Ocurrió un error al actualizar los movimientos de la póliza complementaria", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
Alert("La póliza se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
|
ObjConta.Commit()
|
|
HdnFechaPoliza.Value = TxtFechaPoliza.Text.ToDate.ToShortDateString
|
|
HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue
|
|
CargaPolizaComplementaria(CvePoliza)
|
|
BtnNuevo.OnClientClick = ""
|
|
End If
|
|
Else
|
|
ObjConta.RollBack()
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "P R O C E D I M I E N T O S"
|
|
Private Sub CargaDatos(tCvePoliza As Integer, Optional CveTipoPoliza As Integer = -1, Optional Fecha As Date = MinFecha, Optional Folio As Integer = -1)
|
|
Dim ObjPoliza As New ClsContabilidad
|
|
Dim DT As DataTable = Nothing
|
|
|
|
If (tCvePoliza = -1 And ObjPoliza.GetPoliza(CveTipoPoliza, Fecha, Folio, UsuarioActual.CveEmpresa)) OrElse ObjPoliza.GetPoliza(tCvePoliza, UsuarioActual.CveEmpresa) Then
|
|
DT = ObjPoliza.DtResultados
|
|
|
|
BtnGuardar.OnClientClick = "FncVerifica();"
|
|
|
|
If DT.Rows.Count = 0 Then
|
|
TxtFechaPoliza.Text = Now.ToShortDateString
|
|
TxtNumeroPoliza.Text = ""
|
|
LblCargo.Text = ""
|
|
LblAbono.Text = ""
|
|
TxtConcepto.Text = ""
|
|
Alert("No se encontró ninguna Póliza, verifique los datos.", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
Dim dr As DataRow = DT.Rows(0)
|
|
|
|
HLImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("CvePoliza").ToString.ToEntero}"))
|
|
|
|
TxtFechaPoliza.Text = dr("Fecha").ToString.ToDate.ToShortDateString
|
|
HdnFechaPoliza.Value = dr("Fecha").ToString.ToDate.ToShortDateString
|
|
DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza").ToString.Trim
|
|
HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue
|
|
TxtNumeroPoliza.Text = dr("Folio").ToString
|
|
HdnFolioPoliza.Value = dr("Folio").ToString
|
|
TxtConcepto.Text = dr("ConceptoPoliza").ToString
|
|
HdnlCargo.Value = dr("Cargos").ToString
|
|
HdnlAbono.Value = dr("Abonos").ToString
|
|
LblCargo.Text = dr("Cargos").ToString
|
|
LblAbono.Text = dr("Abonos").ToString
|
|
LblNumPoliza.ToolTip = dr("CvePoliza").ToString
|
|
|
|
If Math.Abs(dr("Cargos").ToString.ToDecimal - DT.SUM("Cargo")) > 0.001 OrElse Math.Abs(dr("Abonos").ToString.ToDecimal - DT.SUM("Abono")) > 0.001 Then
|
|
Dim Str As New StringBuilder
|
|
Str.AppendFormat("Los Totales de la póliza no coinciden con los movimientos <br>Cargos en Póliza: {0} Cargos en Movimientos: {1}<br>Abonos en Póliza: {2} Abonos en Movimientos: {3}<br>", dr("Cargos").ToString, DT.SUM("Cargo").ToString, dr("Abonos").ToString, DT.SUM("Abono").ToString)
|
|
Alert(Str.ToString, TipoMensaje.MsgError)
|
|
End If
|
|
|
|
CvePoliza = dr("CvePoliza").ToString.ToEntero
|
|
|
|
If UsuarioActual.TienePermisoProceso(145) Then
|
|
BtnEliminar.Visible = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
ObjPoliza.Dispose()
|
|
|
|
TmpDT = DT
|
|
TmpDT.Columns.Add("CtaCodigo", GetType(String))
|
|
|
|
For Each dr As DataRow In TmpDT.Rows
|
|
dr("CtaCodigo") = DTCuentas.FiltroPrimeroValor("CtaCodigo", $"CveCuenta={dr("CveCuenta")}")
|
|
Next
|
|
|
|
TmpDT.AcceptChanges()
|
|
|
|
If LblDiferencia.Text.Trim.ToDouble <> 0 Then
|
|
Alert("Verifique los cargos y abonos de los movimientos", TipoMensaje.MsgAdvertencia)
|
|
ElseIf HdnlCargo.Value.ToDouble <> LblCargo.Text.ToDouble Then
|
|
Alert("El cargo de la póliza " + HdnlCargo.Value + " no coincide con la sumatoria de cargos de los movimientos", TipoMensaje.MsgAdvertencia)
|
|
ElseIf HdnlAbono.Value.ToDouble <> LblAbono.Text.ToDouble Then
|
|
Alert("El abono de la póliza " + HdnlAbono.Value + " no coincide con la sumatoria de abonos de los movimientos", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
RegistraScript("PrendeGVS();") 'Aseguramos que se cargue el gridViewScroll
|
|
CargaGrid()
|
|
|
|
UpTitulos.Update()
|
|
UpDatos.Update()
|
|
|
|
If DT IsNot Nothing Then DT.Dispose()
|
|
End Sub
|
|
|
|
Private Sub GuardaPoliza()
|
|
Dim OcurrioError As Boolean = False
|
|
Dim ObjConta As New ClsContabilidad
|
|
ObjConta.IniciaTransacSQL()
|
|
Dim tCvePoliza As Integer
|
|
Dim NumPoliza As String = TxtNumeroPoliza.Text.Trim
|
|
Dim Tipo As String = ""
|
|
|
|
If Not TxtNumeroPoliza.Text.Trim <> "" Then
|
|
Tipo = "CHQ"
|
|
End If
|
|
|
|
tCvePoliza = ObjConta.AddPoliza(DdlTipoPoliza.SelectedValue.ToEntero, NumPoliza.ToEntero, TxtFechaPoliza.Text.Trim.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
|
|
If tCvePoliza > 0 Then
|
|
|
|
'Agrega Movimientos de la poliza
|
|
For Each Row As DataRow In TmpDT.Rows
|
|
If Row("Cargo").ToString.ToDecimal <> 0 Then
|
|
If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, False,
|
|
Row("Cargo").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString,
|
|
TxtFechaPoliza.Text.Trim.ToDate) Then
|
|
OcurrioError = True
|
|
End If
|
|
Else
|
|
If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, True,
|
|
Row("Abono").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString,
|
|
TxtFechaPoliza.Text.Trim.ToDate) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
If DtDevoluciones IsNot Nothing AndAlso DtDevoluciones.Rows.Count > 0 Then
|
|
'Agrega Devoluciones
|
|
For Each row As DataRow In DtDevoluciones.Rows
|
|
If Not ObjConta.AddDevolucionesIVA(tCvePoliza, row("IdCuenta").ToString.ToEntero, row("IdProveedor").ToString.ToEntero, row("Tasa").ToString.ToDouble, row("ImporteBase").ToString.ToDouble,
|
|
row("ImporteIVA").ToString.ToDouble, row("RetIVA").ToString.ToDouble, row("RetISR").ToString.ToDouble, TxtFechaPoliza.Text.ToDate, row("Referencia").ToString, row("Serie").ToString, row("Folio").ToString.ToEntero, "") Then
|
|
OcurrioError = True
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If Not OcurrioError Then
|
|
If Not ObjConta.AjustaPoliza(tCvePoliza) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
|
|
If OcurrioError Then
|
|
ObjConta.RollBack()
|
|
Alert("Ocurrió un error al guardar la póliza.", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
ObjConta.Commit()
|
|
CvePoliza = tCvePoliza
|
|
Limpia()
|
|
CargaDatos(CvePoliza)
|
|
BtnNuevo.OnClientClick = ""
|
|
Alert(String.Format("La información se guardó correctamente con el numero de póliza: <b>{0}</b>", ObjConta.ContaFolio), TipoMensaje.MsgInformacion)
|
|
End If
|
|
End If
|
|
|
|
UpTitulos.Update()
|
|
UpDatos.Update()
|
|
UpConsultar.Update()
|
|
ObjConta.Dispose()
|
|
End Sub
|
|
|
|
Private Sub AddRegPolizaDetalle(CvePoliza As Integer, Referencia As String, CveCuenta As Integer, Cuenta As String, CveSubProyecto As String, SubProyecto As String, NombreConcepto As String, Cargo As Double, Abono As Double)
|
|
Dim Row As DataRow = Nothing
|
|
Row = TmpDT.NewRow()
|
|
Row("CvePoliza") = CvePoliza
|
|
Row("Referencia") = Referencia
|
|
Row("CveCuenta") = CveCuenta
|
|
Row("Cuenta") = Cuenta
|
|
Row("CtaCodigo") = Cuenta
|
|
Row("CveSubProyecto") = CveSubProyecto
|
|
Row("SubProyecto") = SubProyecto
|
|
Row("Concepto") = NombreConcepto
|
|
Row("Estado") = "I"
|
|
Row("Cargo") = Cargo
|
|
Row("Abono") = Abono
|
|
TmpDT.Rows.Add(Row)
|
|
CargaGrid()
|
|
End Sub
|
|
|
|
Private Sub ActualizaPoliza()
|
|
Dim OcurrioError As Boolean = False
|
|
Dim ObjConta As New ClsContabilidad
|
|
Dim Row As DataRow
|
|
ObjConta.IniciaTransacSQL()
|
|
|
|
If ObjConta.UpdatePoliza(TxtFechaPoliza.Text.Trim.ToDate, TxtNumeroPoliza.Text.ToEntero, CvePoliza.ToString.ToEntero, TxtConcepto.Text.Trim, DdlTipoPoliza.SelectedValue.ToEntero) Then
|
|
|
|
For Each Row In TmpDT.Rows
|
|
|
|
If Row("Estado").ToString.Trim = "D" AndAlso Row("CvePolizaDetalle").ToString.ToEntero > 0 Then
|
|
ObjConta.RemovePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero)
|
|
Else
|
|
Dim Importe As Double = If(Row("Cargo").ToString.ToDouble <> 0, Row("Cargo"), Row("Abono")).ToString.ToDouble
|
|
Dim ImporteME As Double = If(Row("CargoME").ToString.ToDouble <> 0, Row("CargoME"), Row("AbonoME")).ToString.ToDouble
|
|
Dim TipoMovto As Boolean = Not Row("Cargo").ToString.ToDouble <> 0
|
|
|
|
If Row("CvePolizaDetalle").ToString.ToEntero > 0 Then
|
|
If Not ObjConta.UpdatePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString) Then
|
|
OcurrioError = True
|
|
End If
|
|
Else
|
|
If Not ObjConta.AddPolizaDetalle(CvePoliza.ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString, TxtFechaPoliza.Text.Trim.ToDate) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
Next
|
|
|
|
If OcurrioError Then
|
|
ObjConta.RollBack()
|
|
Alert("Ocurrió un error al actualizar los movimientos de la póliza", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
Alert("La póliza se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
|
ObjConta.Commit()
|
|
HdnFechaPoliza.Value = TxtFechaPoliza.Text.ToDate.ToShortDateString
|
|
HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue
|
|
CargaDatos(CvePoliza)
|
|
BtnNuevo.OnClientClick = ""
|
|
End If
|
|
Else
|
|
ObjConta.RollBack()
|
|
End If
|
|
|
|
|
|
ObjConta.Dispose()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub Limpia()
|
|
HdnCveCuenta.Value = ""
|
|
HdnlAbono.Value = ""
|
|
HdnlCargo.Value = ""
|
|
LblDiferencia.Text = ""
|
|
DtDevoluciones = Nothing
|
|
GvDevoluciones.DataBind()
|
|
End Sub
|
|
|
|
|
|
#Region "G R I D - V I E W"
|
|
Protected Sub GvDevoluciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDevoluciones.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
|
e.Row.FCDropDownList("DdlProveedor").SelectedIndex = -1
|
|
e.Row.FCDropDownList("DdlProveedor").DataSource = DtProveedoresConta
|
|
e.Row.FCDropDownList("DdlProveedor").DataBind()
|
|
e.Row.FCDropDownList("DdlProveedor").SelectedValueExist(e.Row.DataKey("IdProveedor"))
|
|
e.Row.FCTextBox("TxtImporteBase").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaImporteIVA({0},{1},{2});CalculaImporteSinRet({0},{2},{3});CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID))
|
|
e.Row.FCTextBox("TxtImporteIVA").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaImporteSinRet({0},{2},{3});CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID))
|
|
e.Row.FCTextBox("TxtRetIVA").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID))
|
|
e.Row.FCTextBox("TxtRetISR").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID))
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub GvDevoluciones_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvDevoluciones.RowCancelingEdit
|
|
GvDevoluciones.EditIndex = -1
|
|
CargaGridDevoluciones("", 0)
|
|
UpDevoluciones.Update()
|
|
End Sub
|
|
|
|
'Protected Sub GvDevoluciones_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDevoluciones.RowDeleting
|
|
' Dim ErrorEliminar = False
|
|
|
|
' If CvePoliza > 0 Then
|
|
' Dim ObjConta As New ClsContabilidad
|
|
|
|
' If Not ObjConta.RemoveDevolucionesIVA(e.Keys("Id").ToString.ToEntero) Then
|
|
' ErrorEliminar = True
|
|
' End If
|
|
|
|
' ObjConta.Dispose()
|
|
' CargaDevoluciones()
|
|
' Else
|
|
' DtDevoluciones.Rows().RemoveAt(e.Keys("Id").ToString.ToEntero - 1)
|
|
' CargaGridDevoluciones("", 0)
|
|
' End If
|
|
|
|
' If Not ErrorEliminar Then
|
|
' Alert("La Devolución fue eliminada correctamente.", TipoMensaje.MsgInformacion)
|
|
' Else
|
|
' Alert("Ocurrió un error al eliminar la Devolución", TipoMensaje.MsgError)
|
|
' End If
|
|
'End Sub
|
|
|
|
Protected Sub GvDevoluciones_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvDevoluciones.RowEditing
|
|
GvDevoluciones.EditIndex = e.NewEditIndex
|
|
CargaGridDevoluciones("", 0)
|
|
End Sub
|
|
|
|
'Protected Sub GvDevoluciones_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvDevoluciones.RowUpdating
|
|
' Dim ErrorDevolucion = False
|
|
|
|
' If CvePoliza > 0 Then
|
|
' Dim gvr As GridViewRow = GvDevoluciones.Rows(e.RowIndex)
|
|
' Dim ObjConta As New ClsContabilidad
|
|
|
|
' If ObjConta.UpdateDevolucionesIVA(gvr.DataKey("Id").ToEntero, CvePoliza, DdlCuenta.SelectedValue.ToEntero,
|
|
' gvr.FCDropDownList("DdlProveedor").SelectedValue.ToEntero, gvr.FCDropDownList("DdlTasa").SelectedValue.ToDouble,
|
|
' gvr.FCTextBox("TxtImporteBase").Text.ToDouble, gvr.FCTextBox("TxtImporteIVA").Text.ToDouble,
|
|
' gvr.FCTextBox("TxtRetIVA").Text.ToDouble, gvr.FCTextBox("TxtRetISR").Text.ToDouble, Date.Now,
|
|
' gvr.FCTextBox("TxtReferenciaDevolucion").Text, gvr.FCTextBox("TxtSerie").Text, gvr.FCTextBox("TxtFolio").Text.ToEntero) Then
|
|
' Alert("Devolución Actualizada con Éxito", TipoMensaje.MsgInformacion)
|
|
' Else
|
|
' Alert("Ocurrió un error al Actualizar la Devolución", TipoMensaje.MsgError)
|
|
' ErrorDevolucion = True
|
|
' End If
|
|
|
|
' ObjConta.Dispose()
|
|
|
|
' If Not ErrorDevolucion Then
|
|
' GvDevoluciones.EditIndex = -1
|
|
' CargaDevoluciones()
|
|
' End If
|
|
' Else
|
|
' Dim row() = DtDevoluciones.Select(String.Format("Id = {0}", e.Keys("Id")))
|
|
|
|
' row(0)("IdProveedor") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedValue
|
|
' row(0)("Tasa") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlTasa").SelectedValue
|
|
' row(0)("ImporteBase") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteBase").Text
|
|
' row(0)("ImporteIVA") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteIVA").Text
|
|
' row(0)("RetIVA") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetIVA").Text
|
|
' row(0)("RetISR") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetISR").Text
|
|
' row(0)("Referencia") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtReferenciaDevolucion").Text
|
|
' row(0)("Serie") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtSerie").Text
|
|
' row(0)("Folio") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtFolio").Text
|
|
' row(0)("Proveedor") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedItem.Text
|
|
' row(0)("ImporteAntesRet") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteBase").Text.ToDouble + GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteIVA").Text.ToDouble
|
|
' row(0)("GranTotal") = row(0)("ImporteAntesRet").ToString.ToDouble - GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetIVA").Text.ToDouble - GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetISR").Text.ToDouble
|
|
|
|
|
|
' GvDevoluciones.EditIndex = -1
|
|
' CargaGridDevoluciones("", 0)
|
|
' End If
|
|
|
|
'End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "D E V O L U C I O N E S - I V A"
|
|
Protected Sub LbAgregarDevolucion_Click(sender As Object, e As EventArgs)
|
|
' Dim ErrorDevolucion = False
|
|
|
|
' If CvePoliza > 0 Then
|
|
' Dim ObjConta As New ClsContabilidad
|
|
|
|
' If ObjConta.AddDevolucionesIVA(CvePoliza, DdlCuenta.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlTasa.SelectedValue.ToDouble, TxtImporteBase.Text.ToDouble, TxtImporteIVA.Text.ToDouble,
|
|
' TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtFechaPoliza.Text.ToDate, TxtReferenciaDevolucion.Text, TxtSerie.Text, TxtFolio.Text.ToEntero, "") Then
|
|
' Alert("Devolución Agregada con Éxito", TipoMensaje.MsgInformacion)
|
|
' Else
|
|
' ErrorDevolucion = True
|
|
' Alert("Ocurrió un error al agregar la Devolución", TipoMensaje.MsgAdvertencia)
|
|
' End If
|
|
|
|
' ObjConta.Dispose()
|
|
|
|
' If Not ErrorDevolucion Then
|
|
' CargaDevoluciones()
|
|
' End If
|
|
' Else
|
|
' Dim row = DtDevoluciones.NewRow
|
|
|
|
' row("ID") = (DtDevoluciones.Rows.Count + 1).ToString
|
|
' row("IdProveedor") = DdlProveedor.SelectedValue
|
|
' row("Tasa") = DdlTasa.SelectedValue
|
|
' row("ImporteBase") = TxtImporteBase.Text
|
|
' row("ImporteIVA") = TxtImporteIVA.Text
|
|
' row("RetIVA") = TxtRetIVA.Text
|
|
' row("RetISR") = TxtRetISR.Text
|
|
' row("Referencia") = TxtReferenciaDevolucion.Text
|
|
' row("Serie") = TxtSerie.Text
|
|
' row("Folio") = TxtFolio.Text
|
|
' row("Proveedor") = DdlProveedor.SelectedItem.Text
|
|
' row("ImporteAntesRet") = TxtImporteBase.Text.ToDouble + TxtImporteIVA.Text.ToDouble
|
|
' row("GranTotal") = row("ImporteAntesRet").ToString.ToDouble - TxtRetIVA.Text.ToDouble - TxtRetISR.Text.ToDouble
|
|
' DtDevoluciones.Rows.Add(row)
|
|
|
|
' CargaGridDevoluciones("", 0)
|
|
|
|
' End If
|
|
|
|
' LimpiaDevoluciones()
|
|
End Sub
|
|
|
|
Protected Sub LbAgregarCausacion_Click(sender As Object, e As EventArgs)
|
|
' Dim ErrorDevolucion = False
|
|
|
|
' If CvePoliza > 0 Then
|
|
' Dim ObjConta As New ClsContabilidad
|
|
|
|
' Dim TotalTasa16 As Double = TxtImporteTotalC.Text.ToDouble
|
|
' Dim BaseTasa16 As Double = TxtImporteBaseC.Text.ToDouble
|
|
' Dim IVATasa16 As Double = TxtIVAC.Text.ToDouble
|
|
' Dim IVATasaNoAcreditable As Double = TxtIvaNoAcreditableC.Text.ToDouble
|
|
' Dim ISRRetenido As Double = TxtISRRetenidoC.Text.ToDouble
|
|
' Dim IVARetenido As Double = TxtIVARetenidoC.Text.ToDouble
|
|
' Dim ietu As Double = TxtIETU.Text.ToDouble
|
|
' Dim cuenta As String
|
|
' Dim CuentasConcatenadas As New StringBuilder
|
|
' Dim importeMaximo As Double
|
|
|
|
' If DrParametros IsNot Nothing Then
|
|
' cuenta = DrParametros("CtaFlujo").ToString
|
|
|
|
' ObjConta.GetCuentasCausaciones(cuenta)
|
|
|
|
' For Each row As DataRow In ObjConta.DtResultados.Rows
|
|
' Dim ct As String = row("IdSubCtade").ToString
|
|
' CuentasConcatenadas.AppendFormat("{0},", ct)
|
|
|
|
' Next
|
|
' End If
|
|
|
|
' importeMaximo = TmpDT.SUM("Cargo", String.Format("CveCuenta IN ( {0} )", CuentasConcatenadas.ToString.TrimEnd(","c))).ToString.ToDecimal
|
|
|
|
' If LbAgregarCausacion.Text = "Agregar" And importeMaximo = TotalTasa16 Then
|
|
' If ObjConta.AddCausacionesIVA(CvePoliza, TotalTasa16, BaseTasa16, IVATasa16, IVATasaNoAcreditable, ISRRetenido, IVARetenido, ChkNoCausar.Checked, IETU:=ietu) Then
|
|
' Alert("El movimiento se realizó correctamente", TipoMensaje.MsgInformacion)
|
|
' End If
|
|
' ElseIf LbAgregarCausacion.Text = "Actualizar" And importeMaximo = TotalTasa16 Then
|
|
' If ObjConta.UpdateCausacionesIVA(CvePoliza, TotalTasa16, BaseTasa16, IVATasa16, IVATasaNoAcreditable, ISRRetenido, IVARetenido, ChkNoCausar.Checked, ietu:=ietu) Then
|
|
' Alert("El movimiento se realizó correctamente", TipoMensaje.MsgInformacion)
|
|
' End If
|
|
' Else
|
|
' Alert("El importe total desglosado con coincide con el importe de la cuenta de flujo de efectivo", TipoMensaje.MsgAdvertencia)
|
|
' End If
|
|
|
|
' ObjConta.Dispose()
|
|
' End If
|
|
|
|
' CargaCausaciones()
|
|
End Sub
|
|
|
|
Private Sub LimpiaDevoluciones()
|
|
TxtSerie.Text = ""
|
|
TxtFolio.Text = ""
|
|
TxtReferenciaDevolucion.Text = ""
|
|
TxtImporteBase.Text = ""
|
|
TxtImporteIVA.Text = ""
|
|
TxtRetIVA.Text = ""
|
|
TxtRetISR.Text = ""
|
|
|
|
DdlProveedor.SelectedValue = "-1"
|
|
TxtSerie.Focus()
|
|
End Sub
|
|
|
|
'Private Sub CargaDevoluciones()
|
|
|
|
' If CvePoliza > 0 Then
|
|
' Dim ObjConta As New ClsContabilidad
|
|
|
|
' PnlDevIVA.Visible = True
|
|
|
|
' If ObjConta.GetDevolucionesIVA(-1, CvePoliza) Then
|
|
' DtDevoluciones = ObjConta.DtResultados
|
|
' Else
|
|
' DtDevoluciones = Nothing
|
|
' Alert("Ocurrió un error al cargar Devoluciones", TipoMensaje.MsgError)
|
|
' End If
|
|
|
|
' If DtDevoluciones IsNot Nothing Then
|
|
' CargaGridDevoluciones("", 0)
|
|
' DdlCuenta.SelectedValueExist(DtDevoluciones.MAX("CveCuenta"))
|
|
' End If
|
|
|
|
' ObjConta.Dispose()
|
|
' Else
|
|
' CreaDtDevoluciones()
|
|
' End If
|
|
|
|
'End Sub
|
|
|
|
'Private Sub CargaCausaciones()
|
|
|
|
' If CvePoliza > 0 Then
|
|
' Dim ObjConta As New ClsContabilidad
|
|
|
|
' PnlCauIVA.Visible = True
|
|
|
|
' If ObjConta.GetCausacionesIVA(-1, CvePoliza) Then
|
|
|
|
' If ObjConta.DtResultados IsNot Nothing AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
|
' TxtImporteTotalC.Text = ObjConta.DtResultados.Rows(0)("ImporteTotal").ToString
|
|
' TxtImporteBaseC.Text = ObjConta.DtResultados.Rows(0)("ImporteBase").ToString
|
|
' TxtIVAC.Text = ObjConta.DtResultados.Rows(0)("IVA").ToString
|
|
' TxtIvaNoAcreditableC.Text = ObjConta.DtResultados.Rows(0)("IVANoAcreditable").ToString
|
|
' lblEjercicioTexto.Text = ObjConta.DtResultados.Rows(0)("Año").ToString
|
|
' LblPeriodoTexto.Text = StrConv(MonthName(ObjConta.DtResultados.Rows(0)("Mes").ToString.ToEntero, False), VbStrConv.ProperCase)
|
|
' TxtIVARetenidoC.Text = ObjConta.DtResultados.Rows(1)("ImporteTotal").ToString
|
|
' TxtISRRetenidoC.Text = ObjConta.DtResultados.Rows(2)("ImporteTotal").ToString
|
|
' LblTotalImporte.Text = ObjConta.DtResultados.Rows(3)("ImporteTotal").ToString
|
|
' LblTotalBase.Text = ObjConta.DtResultados.Rows(3)("ImporteBase").ToString
|
|
' LblTotalIVA.Text = ObjConta.DtResultados.Rows(3)("IVA").ToString
|
|
' LblTotalIvaNoAcreditable.Text = ObjConta.DtResultados.Rows(3)("IVANoAcreditable").ToString
|
|
' TxtIETU.Text = ObjConta.DtResultados.Rows(3)("ImporteBase").ToString
|
|
|
|
' If ObjConta.DtResultados.Rows(0)("NoCausar").ToString = "True" Then
|
|
' ChkNoCausar.Checked = True
|
|
' Else
|
|
' ChkNoCausar.Checked = False
|
|
' End If
|
|
|
|
' If TxtImporteTotalC.Text <> "" Then
|
|
' LbAgregarCausacion.Text = "Actualizar"
|
|
' End If
|
|
|
|
' End If
|
|
|
|
' Else
|
|
' Alert("Ocurrió un error al cargar Causaciones", TipoMensaje.MsgError)
|
|
' End If
|
|
|
|
' ObjConta.Dispose()
|
|
|
|
' End If
|
|
|
|
'End Sub
|
|
|
|
Private Sub CreaDtDevoluciones()
|
|
DtDevoluciones = New DataTable
|
|
|
|
DtDevoluciones.Columns.Add("IdProveedor", GetType(Integer))
|
|
DtDevoluciones.Columns.Add("Tasa", GetType(String))
|
|
DtDevoluciones.Columns.Add("ImporteBase", GetType(Double))
|
|
DtDevoluciones.Columns.Add("ImporteIVA", GetType(Double))
|
|
DtDevoluciones.Columns.Add("RetIVA", GetType(Double))
|
|
DtDevoluciones.Columns.Add("RetISR", GetType(Double))
|
|
DtDevoluciones.Columns.Add("Referencia", GetType(String))
|
|
DtDevoluciones.Columns.Add("Serie", GetType(String))
|
|
DtDevoluciones.Columns.Add("Folio", GetType(String))
|
|
|
|
DtDevoluciones.Columns.Add("Id", GetType(Integer))
|
|
DtDevoluciones.Columns.Add("Proveedor", GetType(String))
|
|
DtDevoluciones.Columns.Add("ImporteAntesRet", GetType(Double))
|
|
DtDevoluciones.Columns.Add("GranTotal", GetType(Double))
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Protected Sub LBDevIVA_Click(sender As Object, e As EventArgs)
|
|
' UpDevoluciones.Update()
|
|
' RegistraScript("$get('divDevIVA').style.display='';")
|
|
|
|
' Dim cont As New ClsContabilidad
|
|
|
|
' If cont.GetProveedores() Then
|
|
' DtProveedoresConta = cont.DtResultados
|
|
' DdlProveedor.DataSource = DtProveedoresConta
|
|
' DdlProveedor.DataBind()
|
|
' DdlProveedor.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
|
' Else
|
|
' DtProveedoresConta = Nothing
|
|
' Alert("Ocurrió un error al cargar los Proveedores. Por favor recargue la página.", TipoMensaje.MsgError)
|
|
' End If
|
|
|
|
' cont.Dispose()
|
|
|
|
' DdlCuenta.DataSource = DTCuentas
|
|
' DdlCuenta.DataBind()
|
|
|
|
' CargaDevoluciones()
|
|
End Sub
|
|
|
|
Protected Sub LBCauIVA_Click(sender As Object, e As EventArgs)
|
|
' UpCausaciones.Update()
|
|
' RegistraScript("$get('divCauIVA').style.display='';")
|
|
|
|
' CargaCausaciones()
|
|
End Sub
|
|
|
|
Protected Sub DdlTipoPoliza_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
RegistraScript("ApagaGVS();")
|
|
SiguienteFolio()
|
|
End Sub
|
|
|
|
Private Sub SiguienteFolio()
|
|
Dim ObjConta As New ClsContabilidad
|
|
Dim NumPoliza As Integer = 0
|
|
|
|
If ObjConta.GetNumeroPoliza(DdlTipoPoliza.SelectedValue.ToEntero, "", TxtFechaPoliza.Text.ToDate, UsuarioActual.CveEmpresa) Then
|
|
NumPoliza = ObjConta.DtResultados(0)("NumPoliza").ToString.ToEntero
|
|
If NumPoliza > 0 Then
|
|
TxtNumeroPoliza.Text = NumPoliza.ToString
|
|
Else
|
|
Alert("Ocurrió un error al obtener el número de póliza. Por favor recargue la página", TipoMensaje.MsgError)
|
|
End If
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
UpTitulos.Update()
|
|
End Sub
|
|
|
|
#Region " ELIMINAR POLIZA "
|
|
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
|
|
Dim ObjConta As New ClsContabilidad
|
|
ObjConta.IniciaTransacSQL()
|
|
Dim ObjMov As New ClsContabilidad()
|
|
|
|
If ObjConta.RemovePoliza(CvePoliza) Then
|
|
If ObjMov.DesvincularPrePolizaContabilizada(CvePoliza, UsuarioActual.CveEmpresa) Then
|
|
ObjConta.Commit()
|
|
Alert("La Póliza fue eliminada correctamente.", TipoMensaje.MsgInformacion)
|
|
BtnNuevo_Click(BtnNuevo, EventArgs.Empty)
|
|
Else
|
|
ObjConta.RollBack()
|
|
Alert("Ocurrió un error al eliminar la Póliza. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
End If
|
|
Else
|
|
ObjConta.RollBack()
|
|
Alert("Ocurrió un error al eliminar la Póliza. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
End Class
|