541 lines
21 KiB
VB.net
541 lines
21 KiB
VB.net
Option Strict On
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
Imports System.IO
|
|
|
|
|
|
Partial Class Contabilidad_FisImpuestos
|
|
Inherits ClsPaginas
|
|
|
|
#Region "Propiedades"
|
|
|
|
Public Property DtMovimientos As DataTable
|
|
Get
|
|
Return CType(ViewState("DtMovimientos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtMovimientos") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private Property CveImpuesto As Integer
|
|
Get
|
|
If ViewState("CveImpuesto") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("CveImpuesto"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveImpuesto") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
|
|
|
|
Private Property RutaArchivo As String
|
|
Get
|
|
If ViewState("RutaArchivo") Is Nothing Then
|
|
Return "-1"
|
|
Else
|
|
Return ViewState("RutaArchivo").ToString
|
|
End If
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("RutaArchivo") = 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
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
'Dim Dtplantilla As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
|
|
|
|
If Not Page.IsPostBack Then
|
|
CargaCombos()
|
|
|
|
Try
|
|
If Not Request.QueryString("CveImpuesto") Is Nothing Then
|
|
CveImpuesto = Request.QueryString("CveImpuesto").ToString.ToEntero
|
|
' CargaDatos()
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
Dim DT As DataTable = Nothing
|
|
If UsuarioActual.Empresa.UsaContabilidad Then
|
|
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
|
|
If ObjConta.GetCuentas(-1, "-1", 1) Then
|
|
DT = ObjConta.DtResultados
|
|
DTCuentasContables = ObjConta.DtResultados
|
|
End If
|
|
ObjConta.Dispose()
|
|
|
|
End If
|
|
|
|
|
|
|
|
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
|
|
|
|
|
|
|
|
DtMovimientos = New DataTable("Movimientos")
|
|
Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
|
|
With DtMovimientos.Columns
|
|
.Add("IdCuenta", Type.GetType("System.Int32"))
|
|
.Add("CodigoCuenta", Type.GetType("System.String"))
|
|
.Add("Cuenta", Type.GetType("System.String"))
|
|
.Add("Referencia", Type.GetType("System.String"))
|
|
.Add("Concepto", Type.GetType("System.String"))
|
|
.Add("Cargo", Type.GetType("System.Double"))
|
|
.Add("Abono", Type.GetType("System.Double"))
|
|
.Add("Importe", Type.GetType("System.Double"))
|
|
.Add("TipoMovto", Type.GetType("System.Int32"))
|
|
.Add("EsComodin", Type.GetType("System.Int32"))
|
|
.Add("CveConcepto", Type.GetType("System.Int32"))
|
|
.Add("CveProveedor", Type.GetType("System.Int32"))
|
|
.Add("RazonSocial", Type.GetType("System.String"))
|
|
.Add("SubProyecto", Type.GetType("System.String"))
|
|
.Add("CveSubProyecto", Type.GetType("System.Int32"))
|
|
End With
|
|
|
|
|
|
Try
|
|
If Not Request.QueryString("CveImpuesto") Is Nothing Then
|
|
CveImpuesto = Request.QueryString("CveImpuesto").ToString.ToEntero
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
If CveImpuesto > 0 Then
|
|
CargaDatos()
|
|
Else
|
|
CargaDetallesPlantilla()
|
|
End If
|
|
|
|
|
|
GvMov.DataBind()
|
|
UPMovs.Update()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub CargaCombos()
|
|
|
|
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
Dim ObjContabilidad As New ClsContabilidad
|
|
|
|
If ObjConta.GetMonedas() Then
|
|
DdlMoneda.DataSource = ObjConta.DtResultados
|
|
End If
|
|
|
|
If ObjContabilidad.GetFisImpuestosTipos(1) Then
|
|
DdlTipoImpuesto.DataSource = ObjContabilidad.DtResultados
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
|
|
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
|
|
DdlMoneda.DataBind()
|
|
DdlTipoImpuesto.DataBind()
|
|
DdlProveedores.DataBind()
|
|
|
|
DdlMoneda.Items.Insert(0, New ListItem("Seleccione una moneda", "-1"))
|
|
DdlTipoImpuesto.Items.Insert(0, New ListItem("Seleccione una opción", "-1"))
|
|
DdlProveedores.Items.Insert(0, New ListItem("Seleccione un proveedor", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaDatos()
|
|
Dim objConta As New ClsContabilidad
|
|
Dim DtTemp As New DataTable
|
|
Dim _CvePrePoliza As Integer = 0
|
|
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
|
|
Dim DtTempDetalle As New DataTable
|
|
|
|
With DtTempDetalle.Columns
|
|
.Add("IdMov", Type.GetType("System.Int32"))
|
|
.Add("IdCuenta", Type.GetType("System.Int32"))
|
|
.Add("CodigoCuenta", Type.GetType("System.String"))
|
|
.Add("Cuenta", Type.GetType("System.String"))
|
|
.Add("Referencia", Type.GetType("System.String"))
|
|
.Add("Concepto", Type.GetType("System.String"))
|
|
.Add("Cargo", Type.GetType("System.Double"))
|
|
.Add("Abono", Type.GetType("System.Double"))
|
|
.Add("TipoMovto", Type.GetType("System.Int32"))
|
|
.Add("EsComodin", Type.GetType("System.Int32"))
|
|
.Add("Importe", Type.GetType("System.Double"))
|
|
.Add("CveConcepto", Type.GetType("System.Int32"))
|
|
.Add("CveProveedor", Type.GetType("System.Int32"))
|
|
.Add("RazonSocial", Type.GetType("System.String"))
|
|
.Add("SubProyecto", Type.GetType("System.String"))
|
|
.Add("CveSubProyecto", Type.GetType("System.Int32"))
|
|
End With
|
|
|
|
If objConta.GetFisImpuestos(CveImpuesto, -1, -1, "-1", UsuarioActual.Empresa.CveEmpresa, Nothing, Nothing) Then
|
|
|
|
DtTemp = objConta.DtResultados
|
|
|
|
If DtTemp.Rows.Count > 0 Then
|
|
|
|
TxtFolio.Text = DtTemp(0)("Folio").ToString
|
|
DdlProveedores.SelectedValueExist(DtTemp(0)("CveProveedor").ToString)
|
|
DdlMoneda.SelectedValueExist(DtTemp(0)("CveMoneda").ToString)
|
|
DdlTipoImpuesto.SelectedValueExist("CveTipoImpuesto")
|
|
TxtConcepto.Text = DtTemp(0)("Concepto").ToString
|
|
TxtFechaImpuesto.Text = DtTemp(0)("Fecha").ToString.ToDate.ToString("dd/MM/yyyy")
|
|
_CvePrePoliza = DtTemp(0)("CvePrepoliza").ToString.ToEntero
|
|
|
|
BtnGuardar.Visible = False
|
|
|
|
UPImpuesto.Update()
|
|
|
|
If objConta.GetFisImpuestosDetalle(CveImpuesto, -1, -1, "-1", UsuarioActual.Empresa.CveEmpresa, Nothing, Nothing) Then
|
|
|
|
For Each DRD As DataRow In objConta.DtResultados.Rows
|
|
Dim dr As DataRow = DtTempDetalle.NewRow
|
|
|
|
dr("IdCuenta") = DRD("IdCtaContable").ToString.ToEntero
|
|
dr("CodigoCuenta") = ""
|
|
dr("Cuenta") = DRD("ConceptoContable").ToString
|
|
dr("RazonSocial") = ""
|
|
dr("Concepto") = ""
|
|
dr("TipoMovto") = If(DRD("TipoMovto").ToString = "False", 0, 1)
|
|
dr("EsComodin") = 1
|
|
dr("Importe") = DRD("Importe").ToString.ToDouble
|
|
dr("CveConcepto") = 0
|
|
dr("CveProveedor") = DRD("CveProveedor").ToString.ToEntero
|
|
dr("SubProyecto") = DRD("SubProyecto")
|
|
dr("CveSubProyecto") = DRD("CveSubProyecto").ToString.ToEntero
|
|
|
|
DtTempDetalle.Rows.Add(dr)
|
|
|
|
Next
|
|
GvMov.DataSource = DtTempDetalle
|
|
GvMov.DataBind()
|
|
UPMovs.Update()
|
|
End If
|
|
Else
|
|
Alert("No se encontron registros del impuesto solicitado.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
objConta.Dispose()
|
|
Else
|
|
objConta.Dispose()
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaDetallesPlantilla()
|
|
|
|
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
|
|
Dim Cuenta As String = ""
|
|
Dim IdCuenta As Integer = 0
|
|
Dim CodigoCuenta As String = ""
|
|
Dim NombreCuenta As String = ""
|
|
Dim EsComodin As Integer = 0
|
|
DtMovimientos.Clear()
|
|
|
|
For Each drt As DataRow In Dt.Rows
|
|
|
|
Cuenta = drt("ConceptoContable").ToString
|
|
IdCuenta = 0
|
|
CodigoCuenta = ""
|
|
NombreCuenta = ""
|
|
|
|
If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
|
|
Dim drr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
|
|
If drr IsNot Nothing Then
|
|
IdCuenta = drt("IdCtaContable").ToString.ToEntero
|
|
CodigoCuenta = drr("CuentaFormato").ToString()
|
|
NombreCuenta = drr("Nombre").ToString()
|
|
'Cuenta = drr("Nombre").ToString()
|
|
End If
|
|
EsComodin = 0
|
|
End If
|
|
|
|
Dim dr As DataRow = DtMovimientos.NewRow
|
|
dr("IdCuenta") = IdCuenta
|
|
dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
|
dr("Cuenta") = Cuenta
|
|
dr("RazonSocial") = drt("RazonSocial")
|
|
dr("Concepto") = TxtConcepto.Text
|
|
dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
|
|
dr("EsComodin") = EsComodin
|
|
|
|
dr("CveConcepto") = drt("CveConcepto")
|
|
dr("CveProveedor") = drt("CveProveedor")
|
|
dr("SubProyecto") = drt("SubProyecto")
|
|
dr("CveSubProyecto") = drt("CveSubProyecto")
|
|
|
|
DtMovimientos.Rows.Add(dr)
|
|
|
|
Next
|
|
|
|
GvMov.DataSource = DtMovimientos
|
|
GvMov.DataBind()
|
|
UPMovs.Update()
|
|
End Sub
|
|
|
|
|
|
Private Function SubirComprobante(CveImpuesto As Integer) As Boolean
|
|
Dim Respuesta As Boolean = False
|
|
Dim RutaDirectorio As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, "Comprobantes\")
|
|
|
|
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
|
Dim filemove As String = ""
|
|
Dim Comprobante As String = ""
|
|
|
|
If filesgral.Count > 0 Then
|
|
For Each fileItem As Archivo In filesgral
|
|
|
|
Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
filemove = fileItem.FileUrl
|
|
RutaArchivo = String.Format("{0}{1}", RutaDirectorio, CveImpuesto)
|
|
RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extension)
|
|
|
|
Try
|
|
If Not Directory.Exists(RutaDirectorio) Then
|
|
Directory.CreateDirectory(RutaDirectorio)
|
|
End If
|
|
|
|
If File.Exists(RutaArchivo) Then
|
|
File.Delete(RutaArchivo)
|
|
End If
|
|
|
|
File.Move(filemove, RutaArchivo)
|
|
Respuesta = True
|
|
Catch ex As Exception
|
|
OnError("Error al intentar guardar archivo ", ex)
|
|
Respuesta = False
|
|
RutaArchivo = "-1"
|
|
End Try
|
|
Anexo.Text = ""
|
|
|
|
Next
|
|
Else
|
|
Respuesta = True
|
|
End If
|
|
|
|
UpAnexo.Update()
|
|
Return Respuesta
|
|
|
|
End Function
|
|
|
|
Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound
|
|
|
|
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
|
|
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(0).ToolTip = e.Row.DBCampo("IdCuenta")
|
|
If e.Row.DBCampo("TipoMovto") = "1" Then e.Row.FCTextBox("TxtAbono").Visible = True Else e.Row.FCTextBox("TxtCargo").Visible = True
|
|
|
|
'cuando se modifica el importe de la cuenta bancaria que se actualice el importe del documento
|
|
If e.Row.DBCampo("EsComodin") = "1" Then
|
|
If e.Row.DBCampo("TipoMovto") = "1" Then
|
|
e.Row.FCTextBox("TxtAbono").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)")
|
|
If e.Row.DataKey("Importe").ToString.ToDouble > 0 Then
|
|
e.Row.FCTextBox("TxtAbono").Text = e.Row.DataKey("Importe").ToString.ToDouble.ToString("###,###,###.00")
|
|
e.Row.FCTextBox("TxtAbono").Enabled = False
|
|
TxtTotalAbonos.Enabled = False
|
|
End If
|
|
'e.Row.FCTextBox("TxtAbono").Text = TxtImporte.Text
|
|
Else
|
|
e.Row.FCTextBox("TxtCargo").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)")
|
|
If e.Row.DataKey("Importe").ToString.ToDouble > 0 Then
|
|
e.Row.FCTextBox("TxtCargo").Text = e.Row.DataKey("Importe").ToString.ToDouble.ToString("###,###,###.00")
|
|
e.Row.FCTextBox("TxtCargo").Enabled = False
|
|
TxtTotalCargos.Enabled = False
|
|
End If
|
|
'e.Row.FCTextBox("TxtCargo").Text = TxtImporte.Text
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
|
|
|
Dim objConta As New ClsContabilidad
|
|
Dim ErrorProceso As Boolean = True
|
|
Dim InfoArchivo As FileInfo
|
|
Dim CvePrepoliza As Integer = 0
|
|
Dim NombreArchivo As String = "-1"
|
|
Dim CargoTotal As Double = 0
|
|
Dim AbonoTotal As Double = 0
|
|
|
|
For Each gvRow As GridViewRow In GvMov.Rows
|
|
|
|
Dim Cargo As Double = gvRow.FCTextBox("txtcargo").Text.ToDouble
|
|
Dim Abono As Double = gvRow.FCTextBox("txtabono").Text.ToDouble
|
|
|
|
CargoTotal = CargoTotal + Cargo
|
|
AbonoTotal = AbonoTotal + Abono
|
|
Next
|
|
|
|
|
|
If CargoTotal = AbonoTotal And CargoTotal > 0 Then
|
|
|
|
objConta.IniciaTransacSQL()
|
|
|
|
CvePrepoliza = objConta.AddPrePolizas("Contabilidad/Impuestos", 62, 0, 0, DdlMoneda.SelectedValue.ToEntero, NowADS(), TxtConcepto.Text.Trim.ToUpper, UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa)
|
|
If CvePrepoliza > 0 Then
|
|
|
|
If objConta.AddUpdateFisImpuestos(-1, DdlTipoImpuesto.SelectedValue.ToEntero, CvePrepoliza, DdlProveedores.SelectedValue.ToEntero, TxtFechaImpuesto.Text.ToDate, TxtFolio.Text.Trim.ToUpper, NombreArchivo, UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa) Then
|
|
ErrorProceso = False
|
|
|
|
CveImpuesto = objConta.DtResultados(0)("CveImpuesto").ToString.ToEntero
|
|
|
|
' If objConta.AddUpdateFisImpuestos(CveImpuesto, DdlTipoImpuesto.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero, TxtFechaImpuesto.Text.ToDate, TxtFolio.Text.Trim.ToUpper, "-1", UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa) Then
|
|
|
|
ErrorProceso = False
|
|
|
|
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
|
If filesgral.Count > 0 Then
|
|
If SubirComprobante(CveImpuesto) Then
|
|
InfoArchivo = New FileInfo(RutaArchivo)
|
|
If InfoArchivo.Exists Then
|
|
NombreArchivo = System.IO.Path.GetFileName(RutaArchivo)
|
|
objConta.AddUpdateFisImpuestos(CveImpuesto, DdlTipoImpuesto.SelectedValue.ToEntero, CvePrepoliza, DdlProveedores.SelectedValue.ToEntero, TxtFechaImpuesto.Text.ToDate, TxtFolio.Text.Trim.ToUpper, NombreArchivo, UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa)
|
|
ErrorProceso = False
|
|
Else
|
|
ErrorProceso = True
|
|
OnError("", New Exception("No existe el archivo"))
|
|
End If
|
|
Else
|
|
ErrorProceso = True
|
|
End If
|
|
End If
|
|
|
|
|
|
If Not ErrorProceso Then
|
|
|
|
|
|
Dim ContadorOrdern As Integer = 0
|
|
For Each gvRow As GridViewRow In GvMov.Rows
|
|
|
|
'insercion de detalle ***********************************************************************************************
|
|
Dim Importe As Decimal = 0
|
|
Dim TipoMovto As Boolean = False
|
|
|
|
Dim Cargo As Double = gvRow.FCTextBox("txtcargo").Text.ToDouble
|
|
Dim Abono As Double = gvRow.FCTextBox("txtabono").Text.ToDouble
|
|
|
|
Dim Concepto As String = TxtConcepto.Text.ToUpper.Trim
|
|
Dim CveConcepto As Integer = gvRow.DataKey("CveConcepto").ToEntero
|
|
|
|
Dim CveSubProtyecto As Integer = If(gvRow.DataKey("CveSubProyecto").ToEntero = 0, -1, gvRow.DataKey("CveSubProyecto").ToEntero)
|
|
Dim CveProveedor As Integer = gvRow.DataKey("CveProveedor").ToEntero
|
|
Dim TipoMovimientoString As String = gvRow.DataKey("TipoMovto")
|
|
|
|
If gvRow.DataKey("TipoMovto").ToDouble = 0 Then
|
|
Importe = gvRow.FCTextBox("txtcargo").Text.ToDecimal
|
|
TipoMovto = True
|
|
Else
|
|
Importe = gvRow.FCTextBox("txtabono").Text.ToDecimal
|
|
TipoMovto = False
|
|
End If
|
|
|
|
If Importe > 0 Then
|
|
If objConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovto, Importe, Importe, CveConcepto, TxtFolio.Text.Trim.ToUpper, Concepto, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProtyecto) Then
|
|
ContadorOrdern = ContadorOrdern + 1
|
|
ErrorProceso = False
|
|
Else
|
|
ErrorProceso = True
|
|
Exit For
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
End If
|
|
|
|
If Not ErrorProceso Then
|
|
Alert($"Prepoliza { CvePrepoliza } Insertada correctamente, Impuesto { CveImpuesto } insertado y actualizado correctamente")
|
|
End If
|
|
|
|
Else
|
|
ErrorProceso = True
|
|
End If
|
|
Else
|
|
ErrorProceso = True
|
|
End If
|
|
|
|
If Not ErrorProceso Then
|
|
objConta.Commit()
|
|
Response.Redirect($"FisImpuestos.aspx?CveImpuesto={CveImpuesto}", True)
|
|
Else
|
|
objConta.RollBack()
|
|
End If
|
|
|
|
Else
|
|
If CargoTotal = 0 Then
|
|
Alert("El cargo total debe ser mayor a 0")
|
|
End If
|
|
|
|
If CargoTotal <> AbonoTotal Then
|
|
Alert("El cargo total y el abono total deben ser iguales.")
|
|
End If
|
|
|
|
End If
|
|
|
|
objConta.Dispose()
|
|
|
|
|
|
End Sub
|
|
|
|
Private Function IdCuentaBancos(CveCuenta As Integer) As Integer
|
|
Dim Retorno As Integer = 0
|
|
|
|
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
|
|
If CveCuenta > 0 Then
|
|
Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & CveCuenta)
|
|
If drr IsNot Nothing Then
|
|
Retorno = drr("IdCtaContable").ToString.ToEntero
|
|
End If
|
|
End If
|
|
Return Retorno
|
|
End Function
|
|
|
|
Private Sub ResetControles()
|
|
|
|
DdlMoneda.SelectedIndex = 0
|
|
DdlTipoImpuesto.SelectedIndex = 0
|
|
DdlProveedores.SelectedIndex = 0
|
|
TxtFechaImpuesto.Text = ""
|
|
TxtConcepto.Text = ""
|
|
TxtFolio.Text = ""
|
|
UPImpuesto.Update()
|
|
CargaDetallesPlantilla()
|
|
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|
|
|