625 lines
29 KiB
VB.net
625 lines
29 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
|
|
Partial Class Compras_Reembolsos
|
|
Inherits ClsPaginas
|
|
|
|
#Region "Propiedades"
|
|
Private ReadOnly Property CveCajaChica As Integer
|
|
Get
|
|
Return ViewState("CveCajaChica").ToString.ToEntero
|
|
End Get
|
|
End Property
|
|
Private ReadOnly Property CvePersonal As Integer
|
|
Get
|
|
Return ViewState("CvePersonal").ToString.ToEntero
|
|
End Get
|
|
End Property
|
|
Private Property CveMoneda As Integer
|
|
Get
|
|
Return ViewState("CveMoneda").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveMoneda") = value
|
|
End Set
|
|
End Property
|
|
Private Property IdCuentaBancaria As Integer
|
|
Get
|
|
Return ViewState("IdCuentaBancaria").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("IdCuentaBancaria") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtCheques As DataTable
|
|
Get
|
|
Return CType(ViewState("DtCheques"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtCheques") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
TxtImporte.Attributes.Add("disabled", "disabled")
|
|
TxtAboneA.Enabled = False
|
|
|
|
ViewState("CveMoneda") = 1
|
|
|
|
'Cargar Filtros
|
|
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
|
|
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
|
|
DdlCajaChica.DataSource = dt
|
|
DdlCajaChica.DataBind()
|
|
|
|
Dim ObjPersonal As New ClsRH
|
|
ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
|
|
DdlPersonal.DataSource = ObjPersonal.DtResultados
|
|
ObjPersonal.Dispose()
|
|
DdlPersonal.DataBind()
|
|
|
|
CargaTipoTransaccion()
|
|
|
|
'CargaCuentasDiferencia()
|
|
|
|
'TableDiferencia.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
#Region " FILTROS "
|
|
Protected Sub DdlTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPago.SelectedIndexChanged
|
|
|
|
PnlCheques.Visible = False
|
|
PnlChequeInfo.Visible = False
|
|
TableExpedirCheque.Visible = False
|
|
|
|
If DdlTipoPago.SelectedValue = "1" Then
|
|
TdFunEmp.Visible = True
|
|
DdlPersonal.SelectedValue = "-2"
|
|
Else
|
|
TdFunEmp.Visible = False
|
|
DdlPersonal.SelectedValue = "-2"
|
|
End If
|
|
|
|
If DdlTipoPago.SelectedValue = "2" Then
|
|
TdCajaChica.Visible = True
|
|
DdlCajaChica.SelectedValue = "-2"
|
|
Else
|
|
TdCajaChica.Visible = False
|
|
DdlCajaChica.SelectedValue = "-2"
|
|
End If
|
|
|
|
ViewState("CveCajaChica") = -2
|
|
ViewState("CvePersonal") = -2
|
|
LimpiaDatos()
|
|
CargaCxP()
|
|
|
|
End Sub
|
|
|
|
Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonal.SelectedIndexChanged
|
|
ViewState("CvePersonal") = DdlPersonal.SelectedValue
|
|
LimpiaDatos()
|
|
CargaCxP()
|
|
End Sub
|
|
|
|
Protected Sub DdlCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCajaChica.SelectedIndexChanged
|
|
ViewState("CveCajaChica") = DdlCajaChica.SelectedValue
|
|
LimpiaDatos()
|
|
CargaCxP()
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " CARGA DATOS "
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
If DdlCajaChica.SelectedIndex > 0 Or DdlPersonal.SelectedIndex > 0 Then
|
|
LimpiaDatos()
|
|
CargaCxP()
|
|
Else
|
|
Alert("Seleccione un Funcionario/Empleado o una Cuenta", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End Sub
|
|
Private Sub CargaDatos(tCveIE As Integer)
|
|
Dim ObjIE As New ClsBancos()
|
|
|
|
If ObjIE.GetBancosIE(tCveIE, UsuarioActual.CveEmpresa) Then
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
|
|
LtChequeFecha.Text = ObjIE.FechaDocumento.ToShortDateString
|
|
|
|
HlCheque.Text = ObjIE.Folio
|
|
HlCheque.NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", tCveIE)
|
|
|
|
HdnCheque.Value = tCveIE.ToString
|
|
LtChequeImporte.Text = ObjIE.Importe.FormatoNumero
|
|
|
|
TxtChequeSaldo.Text = DtCheques.Rows(DDlCheques.SelectedIndex - 1)("Saldo").ToString.FormatoNumero
|
|
|
|
|
|
'DdlTipoTransaccion.SelectedValue = ObjIE.CveTipoTransaccion.ToString
|
|
'DdlTipoTransaccion_SelectedIndexChanged(DdlTipoTransaccion, EventArgs.Empty)
|
|
'DdlTipoTransaccion.Enabled = False
|
|
|
|
'DdlCuenta.SelectedValue = ObjIE.CveCuenta.ToString
|
|
'DdlCuenta.Enabled = False
|
|
|
|
'TxtObservaciones.Text = ObjIE.Observaciones
|
|
'ChkAbonoCuenta.Checked = ObjIE.EsAbonoEnCuenta
|
|
|
|
''saco el tipo de transaccion
|
|
'Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", ObjIE.CveTipoTransaccion)) 'Egs o Ing
|
|
'If dr IsNot Nothing Then
|
|
' If dr("Tipo").ToString = "Egs" Then
|
|
' LblPagueseA.Text = "Beneficiario"
|
|
' Else
|
|
' LblPagueseA.Text = "Pagador"
|
|
' End If
|
|
|
|
'End If
|
|
|
|
Else
|
|
Alert("El Documento solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
ObjIE.Dispose()
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaTipoTransaccion()
|
|
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'") 'Ing
|
|
DdlTipoTransaccion.DataBind()
|
|
DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
|
|
|
|
'DdlTipoTransaccionDiferencia.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'") 'Ing
|
|
'DdlTipoTransaccionDiferencia.DataBind()
|
|
'DdlTipoTransaccionDiferencia.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
|
|
|
|
End Sub
|
|
Private Sub CargaCuentas()
|
|
DdlCuenta.Items.Clear()
|
|
DdlCuenta.SelectedIndex = -1
|
|
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
|
|
|
|
dt = dt.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = {1}", 1, DdlTipoTransaccion.SelectedValue))
|
|
DdlCuenta.DataSource = dt
|
|
DdlCuenta.DataBind()
|
|
DdlCuenta.Items.Insert(0, New ListItem("Seleccione cuenta", "-1"))
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " SELECTED INDEX CHANGED "
|
|
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
|
|
'recargo la moneda con la que se va a pagar
|
|
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
|
|
|
|
If dr IsNot Nothing Then
|
|
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
|
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
|
End If
|
|
|
|
If HdnTipoTransaccion.Value = "Egs" Then
|
|
Dim Folio As Long
|
|
Dim Banco As New ClsBancos
|
|
Folio = Banco.GetNextFolio(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero)
|
|
Banco.Dispose()
|
|
TxtFolio.Text = Folio.ToString
|
|
Else
|
|
TxtFolio.Text = ""
|
|
End If
|
|
End Sub
|
|
Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
|
|
Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))
|
|
If dr IsNot Nothing Then
|
|
HdnTipoTransaccion.Value = dr("Tipo").ToString
|
|
End If
|
|
CargaCuentas()
|
|
End Sub
|
|
Protected Sub DDlCheques_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlCheques.SelectedIndexChanged
|
|
|
|
If DDlCheques.SelectedValue.ToEntero > 0 Then
|
|
|
|
PnlChequeInfo.Visible = True
|
|
CargaDatos(DDlCheques.SelectedValue.ToEntero)
|
|
|
|
LimpiaDatos()
|
|
TableExpedirCheque.Visible = False
|
|
|
|
Else
|
|
|
|
HlCheque.Text = ""
|
|
HlCheque.NavigateUrl = ""
|
|
|
|
HdnCheque.Value = "-1"
|
|
TableExpedirCheque.Visible = True
|
|
|
|
LimpiaDatos()
|
|
|
|
ChkChequeExcedente.Checked = False
|
|
PnlChequeInfo.Visible = False
|
|
|
|
'DdlTipoTransaccion.Enabled = True
|
|
'DdlCuenta.Enabled = True
|
|
'TxtChequeSaldo.Text = ""
|
|
'LimpiaDatos()
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " BTN GUARDAR "
|
|
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
|
|
|
|
If HdnCheque.Value.ToEntero > 0 And ChkChequeExcedente.Checked And TxtImporte.Text.ToDouble = 0 Then
|
|
Alert("El importe del cheque excedente debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
If TxtImporte.Text.ToDouble > 0 Or TxtImporteVinculado.Text.ToDouble > 0 Then
|
|
|
|
Dim ObjIE As New ClsBancos()
|
|
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
|
|
Dim MsgError As String = ""
|
|
Dim CveIERegistrado As Integer = 0
|
|
Dim CvePersonal As Integer = 0
|
|
Dim CvePrePolizaVieja As Integer = 0
|
|
Dim CvePrePolizaNueva As Integer = 0
|
|
|
|
Dim CveIE As Integer
|
|
|
|
If HdnCheque.Value.ToEntero > 0 Then
|
|
|
|
Dim FechaPrePoliza As Date = "01/01/0001".ToDate
|
|
|
|
|
|
For Each gvr As GridViewRow In GvCxP.Rows
|
|
|
|
If gvr.FCCheckBox("Chk").Checked Then
|
|
If gvr.DataKey("FechaCompra").ToDate > FechaPrePoliza Then
|
|
FechaPrePoliza = gvr.DataKey("FechaCompra").ToDate
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
'Dim FchasCompras = HdnFechasComprasVinculadas.Value.ToString.Split(","c)
|
|
|
|
'For index = 0 To FchasCompras.Length - 1
|
|
' If FchasCompras(index).ToDate > FechaPrePoliza Then
|
|
' FechaPrePoliza = FchasCompras(index).ToDate
|
|
' End If
|
|
'Next
|
|
|
|
If LtChequeFecha.Text.ToDate > FechaPrePoliza Then
|
|
FechaPrePoliza = LtChequeFecha.Text.ToDate
|
|
End If
|
|
|
|
CvePrePolizaVieja = ObjMov.AddPrePolizas("Banc", 9, TxtImporteVinculado.Text.ToDouble, TxtImporteVinculado.Text.ToDouble, CveMoneda, FechaPrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
CveIE = DDlCheques.SelectedValue.ToEntero
|
|
CveIERegistrado = CveIE
|
|
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
|
|
If DdlPersonal.Visible AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then CvePersonal = DdlPersonal.SelectedValue.ToEntero
|
|
|
|
If dr IsNot Nothing Then
|
|
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
|
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
|
End If
|
|
|
|
If ChkChequeExcedente.Checked Then
|
|
CvePrePolizaNueva = ObjMov.AddPrePolizas("Banc", 9, TxtImporte.Text.ToDouble, TxtImporte.Text.ToDouble, CveMoneda, TxtFechaDocumento.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDouble, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaNueva, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
End If
|
|
Else
|
|
CvePrePolizaNueva = ObjMov.AddPrePolizas("Banc", 9, TxtImporte.Text.ToDouble, TxtImporte.Text.ToDouble, CveMoneda, TxtFechaDocumento.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDouble, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaNueva, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
End If
|
|
|
|
If CveIE > 0 Then
|
|
'inserto los movimientos de la conta para abonar al saldo
|
|
|
|
If (TxtImporte.Text.ToDouble > 0 And CvePrePolizaNueva > 0) Or (TxtImporteVinculado.Text.ToDouble > 0 And HdnCheque.Value.ToEntero > 0 And CvePrePolizaVieja > 0) Then
|
|
Dim SaldoCheque = TxtChequeSaldo.Text.ToDecimal
|
|
Dim SaldoActual = 0.0D
|
|
Dim SaldoAbonado = 0.0D
|
|
Dim PorcentajePago As Decimal = 1
|
|
'inserto las compras que voy a pagar
|
|
For Each gvr As GridViewRow In GvCxP.Rows
|
|
|
|
If gvr.FCCheckBox("Chk").Checked Then
|
|
'Saco el porcentaje de pago
|
|
If gvr.DataKey("Original").ToDouble > 0 Then PorcentajePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal / gvr.DataKey("Original").ToDecimal Else PorcentajePago = 1
|
|
SaldoActual = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
|
|
|
SaldoAbonado = If(SaldoActual > SaldoCheque, SaldoCheque, SaldoActual)
|
|
|
|
If gvr.DataKey("Original").ToDouble > 0 Then PorcentajePago = SaldoAbonado / gvr.DataKey("Original").ToDecimal Else PorcentajePago = 1
|
|
|
|
If CveIERegistrado > 0 AndAlso SaldoCheque > 0 Then
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, True, SaldoAbonado, " ", 29, " ", gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, False, SaldoAbonado, " ", 17, " ", gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
|
|
If MsgError = "" AndAlso gvr.DataKey("IVA").ToDouble > 0 Then
|
|
'Agrego el IVA
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 14, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
|
|
'Agrego el IVA
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 19, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
SaldoActual = SaldoActual - SaldoAbonado
|
|
If gvr.DataKey("Original").ToDouble > 0 Then PorcentajePago = SaldoActual / gvr.DataKey("Original").ToDecimal Else PorcentajePago = 1
|
|
If SaldoActual > 0 Then
|
|
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, SaldoActual, TxtObservaciones.Text, 17, "", gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
Exit For
|
|
Else
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, False, gvr.DataKey("SubTotal").ToDecimal * PorcentajePago, TxtObservaciones.Text, 30, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "no se pudo insertar el detalle de la poliza"
|
|
End If
|
|
'*********IVA. siempre se registra aunque sea cero PREGUNTAR POR EL CONCEPTO DE IVA EN Conta_Conceptos
|
|
If MsgError = "" AndAlso gvr.DataKey("IVA").ToDouble > 0 Then
|
|
'Agrego el IVA
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 14, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
|
|
'Agrego el IVA
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 19, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
End If
|
|
|
|
If MsgError = "" AndAlso gvr.DataKey("RetIVA").ToDouble > 0 Then
|
|
'Agrego el RetIVA
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 15, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
End If
|
|
|
|
If MsgError = "" AndAlso gvr.DataKey("RetISR").ToDouble > 0 Then
|
|
'Agrego el RetISR
|
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, TxtObservaciones.Text, 16, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
|
|
MsgError = "Detalle"
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
SaldoCheque = SaldoCheque - gvr.FCTextBox("TxtAbonar").Text.ToDecimal 'Saldo completo del concepto
|
|
|
|
End If
|
|
Next
|
|
Else
|
|
MsgError = "No se pudo insertar la póliza"
|
|
End If
|
|
Else
|
|
MsgError = "No se insertó el encabezado"
|
|
End If
|
|
|
|
|
|
|
|
If MsgError.Trim = "" Then
|
|
ObjIE.Commit()
|
|
UPCompras.Update()
|
|
CargaCxP()
|
|
|
|
If CvePrePolizaNueva > 0 Then
|
|
Alert(String.Format("Abono Registrado Correctamente. <br/><br/> Cheque: <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> ", CveIE, TxtFolio.Text), TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("Abono Registrado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
LimpiaDatos()
|
|
PnlChequeInfo.Visible = False
|
|
Else
|
|
Alert("Ocurrió un error al guardar el movimiento", TipoMensaje.MsgError)
|
|
ObjIE.RollBack()
|
|
End If
|
|
|
|
Else
|
|
Alert("El Importe debe de ser mayor a $0.00", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End Sub
|
|
Protected Sub LimpiaDatos()
|
|
TxtFolio.Text = ""
|
|
TxtObservaciones.Text = ""
|
|
TxtImporte.Text = ""
|
|
TxtFechaDocumento.Text = Date.Now.ToShortDateString
|
|
'DdlCuenta.SelectedValue = "-1"
|
|
DdlTipoTransaccion.SelectedValue = "-1"
|
|
DdlTipoTransaccionDiferencia_SelectedIndexChanged(DdlTipoTransaccion, EventArgs.Empty)
|
|
|
|
UpDatos.Update()
|
|
|
|
For Each gvr As GridViewRow In GvCxP.Rows
|
|
gvr.FCCheckBox("Chk").Checked = False
|
|
gvr.FCTextBox("TxtAbonar").Text = ""
|
|
Next
|
|
UPCompras.Update()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " TABLA CxP "
|
|
Protected Sub CargaCxP()
|
|
Dim ObjMovtos As New ClsMovimientos
|
|
|
|
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim))
|
|
GvCxP.DataSource = ObjMovtos.DtResultados
|
|
|
|
'Limpia Ddl Cheques
|
|
DDlCheques.Items.Clear()
|
|
|
|
'cargo si tiene cheques pendientes sin amortizar
|
|
|
|
|
|
If CvePersonal > 0 Then
|
|
ObjMovtos.GetEgresosSinComprobarPersonalDetalle(CvePersonal, UsuarioActual.CveEmpresa)
|
|
CargaCuentas()
|
|
End If
|
|
If CveCajaChica > 0 Then
|
|
ObjMovtos.GetCajaChicaDetalle(CveCajaChica, UsuarioActual.CveEmpresa)
|
|
PnlCheques.Visible = True
|
|
TableExpedirCheque.Visible = True
|
|
DdlCuenta.Items.Clear()
|
|
DdlCuenta.Items.Add(New ListItem(DdlCajaChica.SelectedItem.Text, DdlCajaChica.SelectedValue))
|
|
End If
|
|
|
|
DtCheques = ObjMovtos.DtResultados.FiltraParametros("CveIE > 0")
|
|
|
|
If DtCheques.Rows.Count > 0 Then
|
|
PnlCheques.Visible = True
|
|
DDlCheques.DataSource = DtCheques
|
|
TableExpedirCheque.Visible = True
|
|
|
|
End If
|
|
|
|
ObjMovtos.Dispose()
|
|
GvCxP.DataBind()
|
|
DDlCheques.DataBind()
|
|
DDlCheques.Items.Insert(0, New ListItem("Expedir Cheque", "-1"))
|
|
|
|
If GvCxP.Rows.Count > 0 Then
|
|
TxtFechaDocumento.Text = Now.ToShortDateString
|
|
BtnIEGuardar.Enabled = True
|
|
|
|
If Not DdlPersonal.SelectedValue = "-2" Then
|
|
TxtAboneA.Text = DdlPersonal.SelectedItem.ToString
|
|
End If
|
|
If Not DdlCajaChica.SelectedValue = "-2" Then
|
|
TxtAboneA.Text = DdlCajaChica.SelectedItem.ToString
|
|
End If
|
|
|
|
Else
|
|
TxtAboneA.Text = ""
|
|
BtnIEGuardar.Enabled = False
|
|
End If
|
|
|
|
UpDatos.Update()
|
|
UpGuardar.Update()
|
|
UPCompras.Update()
|
|
UPPChq.Update()
|
|
End Sub
|
|
|
|
Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(0).ColumnSpan = 4
|
|
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
|
e.Row.Cells(1).Visible = False
|
|
e.Row.Cells(2).Visible = False
|
|
e.Row.Cells(3).Visible = False
|
|
e.Row.BackColor = Drawing.Color.LightGray
|
|
e.Row.FCTextBox("TxtAbonar").Visible = False
|
|
e.Row.FCCheckBox("Chk").Visible = False
|
|
End If
|
|
If e.Row.RowIndex = 1 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(25)
|
|
e.Row.Cells(1).Width = Unit.Pixel(80)
|
|
e.Row.Cells(2).Width = Unit.Pixel(250)
|
|
e.Row.Cells(3).Width = Unit.Pixel(70)
|
|
e.Row.Cells(4).Width = Unit.Pixel(60)
|
|
e.Row.Cells(5).Width = Unit.Pixel(50)
|
|
e.Row.Cells(6).Width = Unit.Pixel(90)
|
|
e.Row.Cells(7).Width = Unit.Pixel(70)
|
|
e.Row.Cells(8).Width = Unit.Pixel(70)
|
|
e.Row.Cells(9).Width = Unit.Pixel(80)
|
|
End If
|
|
|
|
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
|
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
|
e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
|
|
|
|
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(7).ForeColor = Drawing.Color.Red
|
|
If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxP" Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
|
|
If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
|
|
If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
|
|
If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
|
|
|
|
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{2},{3});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCHiddenField("HdnGenerado").ClientID, e.Row.FCHiddenField("HdnVinculado").ClientID))
|
|
e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},{2},{3});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCHiddenField("HdnGenerado").ClientID, e.Row.FCHiddenField("HdnVinculado").ClientID))
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region " APLICA DIFERENCIA "
|
|
Protected Sub ChkChequeExcedente_CheckedChanged(sender As Object, e As EventArgs)
|
|
If ChkChequeExcedente.Checked Then
|
|
TableExpedirCheque.Visible = True
|
|
Else
|
|
LimpiaDatos()
|
|
TxtImporteVinculado.Text = ""
|
|
TableExpedirCheque.Visible = False
|
|
End If
|
|
End Sub
|
|
Protected Sub BtnDiferencia_Click(sender As Object, e As EventArgs)
|
|
TxtImporteVinculado.Text = HdnSaldo.Value
|
|
|
|
If HdnSaldoDiferencia.Value.ToDouble > 0 AndAlso ChkChequeExcedente.Checked Then
|
|
TxtImporte.Text = HdnSaldoDiferencia.Value
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub DdlCuentaDiferencia_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlCuentaDiferencia.SelectedIndexChanged
|
|
'recargo la moneda con la que se va a pagar
|
|
'Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDiferencia.SelectedValue)
|
|
|
|
'If dr IsNot Nothing Then
|
|
' CveMoneda = dr("CveMoneda").ToString.ToEntero
|
|
' IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
|
'End If
|
|
|
|
'If HdnTipoTransaccion.Value = "Egs" Then
|
|
' Dim Folio As Long
|
|
' Dim Banco As New ClsBancos
|
|
' Folio = Banco.GetNextFolio(DdlCuentaDiferencia.SelectedValue.ToEntero, DdlTipoTransaccionDiferencia.SelectedValue.ToEntero)
|
|
' Banco.Dispose()
|
|
' TxtFolioDiferencia.Text = Folio.ToString
|
|
'Else
|
|
' TxtFolioDiferencia.Text = ""
|
|
'End If
|
|
End Sub
|
|
Protected Sub DdlTipoTransaccionDiferencia_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlTipoTransaccionDiferencia.SelectedIndexChanged
|
|
'Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccionDiferencia.SelectedValue))
|
|
'If dr IsNot Nothing Then
|
|
' HdnTipoTransaccionDiferencia.Value = dr("Tipo").ToString
|
|
'End If
|
|
'CargaCuentasDiferencia()
|
|
End Sub
|
|
Private Sub CargaCuentasDiferencia()
|
|
'DdlCuentaDiferencia.Items.Clear()
|
|
'Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
|
|
|
|
'dt = dt.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = {1}", 1, DdlTipoTransaccion.SelectedValue))
|
|
'DdlCuentaDiferencia.DataSource = dt
|
|
'DdlCuentaDiferencia.DataBind()
|
|
'DdlCuentaDiferencia.Items.Insert(0, New ListItem("Seleccione cuenta", "-1"))
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
End Class
|