AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- se quitó combo de moneda, para que tome el de la cuenta

Browse Source
This commit is contained in:
rrene
2022-12-05 11:04:53 -07:00
parent 9127b4db5e
commit 17040eabbb
2 changed files with 46 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/IE.aspx
View File

@@ -874,17 +874,7 @@
<td style="vertical-align: top;"> <td style="vertical-align: top;">
<div> <div>
<fieldset style="min-height: 60px;"> <fieldset style="min-height: 60px;">
<table width="100%" border="0" class="table table-striped table-advance table-hover"> <table width="100%" border="0" class="table table-striped table-advance table-hover">
<tr>
<td>Moneda:</td>
<td>
<asp:DropDownList ID="DdlMoneda" CssClass="select2me" runat="server" ClientIDMode="Static" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="206px" ValidationGroup="GrpGuardar">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
</tr>
<tr> <tr>
<td>Registró:</td> <td>Registró:</td>
<td> <td>

129
Bancos/IE.aspx.vb
View File

@@ -669,7 +669,6 @@ Partial Class Bancos_IE
TRCveIE.Visible = False TRCveIE.Visible = False
CargaTipoTransaccion() CargaTipoTransaccion()
CargaMoneda()
CargaCuenta() CargaCuenta()
CargaDDLPersonal() CargaDDLPersonal()
@@ -776,7 +775,6 @@ Partial Class Bancos_IE
Calendario.Enabled = False Calendario.Enabled = False
TxtImporte.Enabled = False TxtImporte.Enabled = False
TxtImporteLetra.Enabled = False TxtImporteLetra.Enabled = False
DdlMoneda.Enabled = False
TxtTipoCambio.Enabled = False TxtTipoCambio.Enabled = False
DdlCuenta.Enabled = False DdlCuenta.Enabled = False
'DdlTipo.Enabled = False 'DdlTipo.Enabled = False
@@ -934,7 +932,6 @@ Partial Class Bancos_IE
LblBeneficiario.Text = ObjIE.PagueseA LblBeneficiario.Text = ObjIE.PagueseA
TxtImporte.Text = ObjIE.Importe.FormatoNumero TxtImporte.Text = ObjIE.Importe.FormatoNumero
TxtImporteLetra.Text = ObjIE.Importe.Texto2Letras(ObjIE.CveMoneda) TxtImporteLetra.Text = ObjIE.Importe.Texto2Letras(ObjIE.CveMoneda)
DdlMoneda.SelectedValue = ObjIE.CveMoneda.ToString
If ObjIE.TipoCambio > 0 Then If ObjIE.TipoCambio > 0 Then
TrTipoCambio.Visible = True TrTipoCambio.Visible = True
Else Else
@@ -1680,8 +1677,7 @@ Partial Class Bancos_IE
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
DdlMoneda.SelectedValue = dr("CveMoneda").ToString
IDCtaContable = dr("IdCtaContable").ToString.ToEntero IDCtaContable = dr("IdCtaContable").ToString.ToEntero
IDCtaContableComplementaria = dr("IDCtaContableComplementaria").ToString.ToEntero IDCtaContableComplementaria = dr("IDCtaContableComplementaria").ToString.ToEntero
CambiaTipoMoneda() CambiaTipoMoneda()
@@ -1914,10 +1910,7 @@ Partial Class Bancos_IE
End Sub End Sub
Private Sub CargaMoneda()
DdlMoneda.DataSource = GlobalDTMonedas
DdlMoneda.DataBind()
End Sub
#End Region #End Region
#Region "VIATICOS" #Region "VIATICOS"
@@ -2759,7 +2752,7 @@ Partial Class Bancos_IE
Dim FolioFijo As Integer = 0 Dim FolioFijo As Integer = 0
Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero Dim tCveMoneda As Integer = CveMoneda
Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal
If tCveMoneda <> 1 Then tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL If tCveMoneda <> 1 Then tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL
Dim PagueseA = "" Dim PagueseA = ""
@@ -2775,7 +2768,7 @@ Partial Class Bancos_IE
End If End If
If AgregaPolizaSaldoInicial Then If AgregaPolizaSaldoInicial Then
If AgregarSaldoInicial(TxtImporte.Text.ToDouble(), TxtFechaDocumento.Text.ToDateTime(), DdlMoneda.SelectedValue.ToEntero(), ObjMov) <= 0 Then If AgregarSaldoInicial(TxtImporte.Text.ToDouble(), TxtFechaDocumento.Text.ToDateTime(), 1, ObjMov) <= 0 Then
MsgError = "No se pudo insertar la póliza de saldo inicial." MsgError = "No se pudo insertar la póliza de saldo inicial."
End If End If
End If End If
@@ -2784,7 +2777,7 @@ Partial Class Bancos_IE
If MsgError = "" Then If MsgError = "" Then
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo) ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
@@ -3035,10 +3028,10 @@ Partial Class Bancos_IE
ImporteAplicarME = ImporteAplicar ImporteAplicarME = ImporteAplicar
'CONSIDERA COMPLEMENTARIA 'CONSIDERA COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ImporteAplicar ImporteAplicarMN = ImporteAplicar
Else Else
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
End If End If
'BANCOS 'BANCOS
@@ -3049,8 +3042,8 @@ Partial Class Bancos_IE
End If End If
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If End If
@@ -3082,7 +3075,7 @@ Partial Class Bancos_IE
'CANCELA NC 'CANCELA NC
IdCtaContableAplicar = IDCtaBeneficiario IdCtaContableAplicar = IDCtaBeneficiario
ImporteAplicar = ImporteAplicar + Impo ImporteAplicar = ImporteAplicar + Impo
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
Exit Select Exit Select
@@ -3144,10 +3137,10 @@ Partial Class Bancos_IE
'CONSIDERA COMPLEMENTARIA 'CONSIDERA COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ImporteAplicar ImporteAplicarMN = ImporteAplicar
Else Else
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
End If End If
Dim TCCompra As Decimal = 1 Dim TCCompra As Decimal = 1
@@ -3170,7 +3163,7 @@ Partial Class Bancos_IE
Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3192,14 +3185,14 @@ Partial Class Bancos_IE
'CONSIDERA COMPLEMENTARIA 'CONSIDERA COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ImporteAplicar ImporteAplicarMN = ImporteAplicar
Else Else
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
End If End If
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3221,8 +3214,8 @@ Partial Class Bancos_IE
'' ''
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
End If End If
@@ -3267,9 +3260,9 @@ Partial Class Bancos_IE
'NC COMPLEMENTARIA 'NC COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
@@ -3334,7 +3327,7 @@ Partial Class Bancos_IE
IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2) IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2)
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1 Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
IVADevMN = IVADev IVADevMN = IVADev
IEPSDevMN = IEPSDev IEPSDevMN = IEPSDev
Else Else
@@ -3416,7 +3409,7 @@ Partial Class Bancos_IE
Else Else
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
TCCompra = GlobalTipoCambio(FechaCompra).ToDecimal TCCompra = GlobalTipoCambio(FechaCompra).ToDecimal
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3433,8 +3426,8 @@ Partial Class Bancos_IE
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
End If End If
@@ -3475,13 +3468,10 @@ Partial Class Bancos_IE
End If End If
'NC COMPLEMENTARIA 'NC COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
@@ -3511,8 +3501,6 @@ Partial Class Bancos_IE
End If End If
End If End If
'IMPUESTOS 'IMPUESTOS
@@ -3557,7 +3545,7 @@ Partial Class Bancos_IE
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1 Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
IVADevMN = IVADev IVADevMN = IVADev
IEPSDevMN = IEPSDev IEPSDevMN = IEPSDev
Else Else
@@ -3714,7 +3702,7 @@ Partial Class Bancos_IE
TipoMovimiento = False TipoMovimiento = False
End If End If
If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then If CveConceptoCompra = 10 AndAlso tCveMoneda > 1 AndAlso UsaComplementariaBancos Then
IDCtaBeneficiario = IdCtaAnticipoExtranjera IDCtaBeneficiario = IdCtaAnticipoExtranjera
End If End If
@@ -3737,7 +3725,7 @@ Partial Class Bancos_IE
End If End If
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 Then If tCveMoneda > 1 Then
Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL() Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
@@ -3749,6 +3737,11 @@ Partial Class Bancos_IE
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If End If
End If End If
If CveConceptoCompra = 66 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 226, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If
End If
End If End If
If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then
@@ -4715,12 +4708,8 @@ Partial Class Bancos_IE
#End Region #End Region
Protected Sub DdlMoneda_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlMoneda.SelectedIndexChanged
CambiaTipoMoneda()
End Sub
Private Sub CambiaTipoMoneda() Private Sub CambiaTipoMoneda()
If DdlMoneda.SelectedValue.ToEntero > 1 Then If CveMoneda > 1 Then
TrTipoCambio.Visible = True TrTipoCambio.Visible = True
TxtTipoCambio.Text = GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString TxtTipoCambio.Text = GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString
Else Else
@@ -5078,7 +5067,7 @@ Partial Class Bancos_IE
If HdnCveProveedor.Value.ToEntero > 0 Or HdnCvePersonal.Value.ToEntero > 0 Then If HdnCveProveedor.Value.ToEntero > 0 Or HdnCvePersonal.Value.ToEntero > 0 Then
trIEDevolucion.Visible = True trIEDevolucion.Visible = True
If ObjMov.GetEgresosSinComprobar("-1", "-1", HdnCveProveedor.Value.ToEntero, HdnCvePersonal.Value.ToEntero, -1, -1, -1, DdlMoneda.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then If ObjMov.GetEgresosSinComprobar("-1", "-1", HdnCveProveedor.Value.ToEntero, HdnCvePersonal.Value.ToEntero, -1, -1, -1, CveMoneda, -1, UsuarioActual.CveEmpresa) Then
DtIEDevolucion = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 ", "", {"CveIE", "IEDevolucion", "Saldo"}) DtIEDevolucion = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 ", "", {"CveIE", "IEDevolucion", "Saldo"})
Else Else
@@ -5103,7 +5092,7 @@ Partial Class Bancos_IE
If HdnCveCliente.Value.ToEntero > 0 Then If HdnCveCliente.Value.ToEntero > 0 Then
trIEDevolucion.Visible = True trIEDevolucion.Visible = True
If ObjMov.GetMovimientosIE(1, HdnCveCliente.Value.ToEntero, DdlCuenta.SelectedValue.ToEntero, Now.AddMonths(-24), Now, DdlMoneda.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then If ObjMov.GetMovimientosIE(1, HdnCveCliente.Value.ToEntero, DdlCuenta.SelectedValue.ToEntero, Now.AddMonths(-24), Now, CveMoneda, -1, UsuarioActual.CveEmpresa) Then
DtIEDevolucion = ObjMov.DtResultados.FiltraParametros("Saldo > 0 ") DtIEDevolucion = ObjMov.DtResultados.FiltraParametros("Saldo > 0 ")
Else Else
Alert("Ocurrió un error al cargar los Egresos del Proveedor seleccionado. Por favor vuelva a intetar.", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar los Egresos del Proveedor seleccionado. Por favor vuelva a intetar.", TipoMensaje.MsgError)
@@ -5152,7 +5141,7 @@ Partial Class Bancos_IE
DivIEAcreedor.Visible = True DivIEAcreedor.Visible = True
DdlIEDevolucion.Items.Clear() DdlIEDevolucion.Items.Clear()
If ObjMov.GetIngresosAcreedorXSaldar(HdnCveProveedor.Value.ToEntero, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If ObjMov.GetIngresosAcreedorXSaldar(HdnCveProveedor.Value.ToEntero, CveMoneda, UsuarioActual.CveEmpresa) Then
DdlIEAcreedor.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 ", "", {"CveIE", "IEAcreedor", "Saldo"}) DdlIEAcreedor.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 ", "", {"CveIE", "IEAcreedor", "Saldo"})
DdlIEAcreedor.DataBind() DdlIEAcreedor.DataBind()
DdlIEAcreedor.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlIEAcreedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -5492,7 +5481,6 @@ Partial Class Bancos_IE
CveOCSolicitudAnticipo = Request("CveOC").ToString.ToEntero CveOCSolicitudAnticipo = Request("CveOC").ToString.ToEntero
TxtImporte.Enabled = False TxtImporte.Enabled = False
End If End If
End If End If
@@ -5507,8 +5495,6 @@ Partial Class Bancos_IE
SaldoOCAnticipo = 0 SaldoOCAnticipo = 0
End If End If
If ObjOC.GetSolicitudAnticipo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then If ObjOC.GetSolicitudAnticipo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
Dim DrOC = ObjOC.DtResultados.FiltroPrimero("") Dim DrOC = ObjOC.DtResultados.FiltroPrimero("")
@@ -5529,20 +5515,14 @@ Partial Class Bancos_IE
ImporteOriginalDolaras = DrOC("ImporteAnticipo").ToString.ToDecimal ImporteOriginalDolaras = DrOC("ImporteAnticipo").ToString.ToDecimal
End If End If
DdlMoneda.SelectedValue = DrOC("CveMoneda").ToString
CveMoneda = DrOC("CveMoneda").ToString.ToEntero CveMoneda = DrOC("CveMoneda").ToString.ToEntero
CargaCuenta(DrOC("CveMoneda").ToString.ToEntero) CargaCuenta(CveMoneda)
CveMonedaOriginal = DrOC("CveMoneda").ToString.ToEntero
CveMonedaOriginal = CveMoneda
If CveMonedaOriginal > 1 Then If CveMonedaOriginal > 1 Then
MostrarPagoEnPesos(True) MostrarPagoEnPesos(True)
End If End If
UpCuentaDeposito.Update() UpCuentaDeposito.Update()
If DrOC("CveProveedor").ToString.ToEntero > 0 Then If DrOC("CveProveedor").ToString.ToEntero > 0 Then
HdnCveProveedor.Value = DrOC("CveProveedor").ToString HdnCveProveedor.Value = DrOC("CveProveedor").ToString
@@ -5740,8 +5720,6 @@ Partial Class Bancos_IE
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
DVGenerarComplementoModal.Visible = False DVGenerarComplementoModal.Visible = False
If Tipo = "Abono" Then If Tipo = "Abono" Then
@@ -5768,7 +5746,6 @@ Partial Class Bancos_IE
DivCancelarComplemento.Visible = True DivCancelarComplemento.Visible = True
End If End If
' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"}) ' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"}) GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"})
@@ -5822,8 +5799,6 @@ Partial Class Bancos_IE
End If End If
End If End If
ElseIf e.Row.DataKey("Tipo") = "Egs" Then ElseIf e.Row.DataKey("Tipo") = "Egs" Then
e.Row.Cells(3).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-file-code-o""></i></a>", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%"))))) e.Row.Cells(3).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-file-code-o""></i></a>", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
@@ -5835,9 +5810,6 @@ Partial Class Bancos_IE
End If End If
End If End If
End Sub End Sub
@@ -5847,7 +5819,6 @@ Partial Class Bancos_IE
RegistraScript("$('#ModalComplementoPagos').modal('show');") RegistraScript("$('#ModalComplementoPagos').modal('show');")
End Sub End Sub
Private Function VerificaComplementos(Validos As Boolean) As Boolean Private Function VerificaComplementos(Validos As Boolean) As Boolean
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -5926,9 +5897,8 @@ Partial Class Bancos_IE
CargaCliente(CveCliente) CargaCliente(CveCliente)
'BuscarCliente() 'BuscarCliente()
DdlMoneda.SelectedValue = UrlParametros("CVEMONEDA").ToString CveMoneda = UrlParametros("CVEMONEDA").ToString.ToEntero
CveMoneda = DdlMoneda.SelectedValue.ToEntero CargaCuenta(CveMoneda)
CargaCuenta(DdlMoneda.SelectedValue.ToEntero)
CambiaTipoMoneda() CambiaTipoMoneda()
UpCuentaDeposito.Update() UpCuentaDeposito.Update()
@@ -5939,7 +5909,6 @@ Partial Class Bancos_IE
Dim ParametrosTexto As String = Decripta(Request("P")) Dim ParametrosTexto As String = Decripta(Request("P"))
If ParametrosTexto <> "" Then If ParametrosTexto <> "" Then
CargaParametros(ParametrosTexto) CargaParametros(ParametrosTexto)
@@ -5958,24 +5927,16 @@ Partial Class Bancos_IE
CargaProveedor(CveProveedor, "-1") CargaProveedor(CveProveedor, "-1")
'BuscarCliente()
CveMoneda = UrlParametros("CVEMONEDA").ToString.ToEntero
CargaCuenta(CveMoneda)
'BuscarCliente()
DdlMoneda.SelectedValue = UrlParametros("CVEMONEDA").ToString
CveMoneda = DdlMoneda.SelectedValue.ToEntero
CargaCuenta(DdlMoneda.SelectedValue.ToEntero)
CambiaTipoMoneda() CambiaTipoMoneda()
UpCuentaDeposito.Update() UpCuentaDeposito.Update()
End If End If
End If End If
End Sub End Sub
#End Region #End Region