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

-- cambio en las cuentas de bancos

Browse Source
This commit is contained in:
rrene
2023-11-27 15:53:33 -07:00
parent 4fabaf9783
commit 1e53d179de
2 changed files with 5 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/Transferencias.aspx
View File

@@ -192,7 +192,7 @@
<asp:TextBox ID="TxtResponsable" runat="server" Width="250px" Text='<%# Eval("NumCuenta")%>' CssClass="TextBoxAsLabel"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:BoundField DataField="Numero" HeaderText="Tarjeta de Credito" ItemStyle-HorizontalAlign="Right">
<asp:BoundField DataField="CLABE" HeaderText="Tarjeta de Credito" >
<ItemStyle HorizontalAlign="Right" />
</asp:BoundField>
<asp:TemplateField HeaderText="Responsable" ItemStyle-HorizontalAlign="Left">

23
Bancos/Transferencias.aspx.vb
View File

@@ -174,7 +174,7 @@ Partial Class Bancos_Transferencias
Private Sub CargaGridTarjetas()
Dim ObjCreditos As New ClsBancos
If ObjCreditos.GetTarjetasCreditos(DdlCuentaDestino.SelectedValue.ToEntero) Then
If ObjCreditos.GetTarjetasCreditos(DdlCuentaOrigen.SelectedValue.ToEntero) Then
If ObjCreditos.DtResultados.Rows.Count > 0 Then
GvTC.DataSource = ObjCreditos.DtResultados
End If
@@ -321,10 +321,6 @@ Partial Class Bancos_Transferencias
If (CveIE > 0 AndAlso CveIEDestino > 0 Or CveIE > 0 AndAlso chkMovimientoTarjeta.Checked AndAlso SumaImportesTarjeta <> 0) Then
If filemove <> "" Then
filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If
'inserto los movimientos de la conta para abonar al saldo
If MsgError = "" Then
@@ -354,7 +350,6 @@ Partial Class Bancos_Transferencias
TipoCambio:=TC) Then
MsgError = "Ocurri<EFBFBD> un error al registrar el asiento del ingreso."
End If
End If
'Agregamos los Movimientos de Acreedor cuando es tarjeta
@@ -371,7 +366,6 @@ Partial Class Bancos_Transferencias
MsgError = "Ocurrio un error al obtener el folio destino."
Exit For
End If
Dim PagueseA As String = $"Transferencia Cta: {If(DdlCuentaOrigen.SelectedItem Is Nothing, DdlCuentaDestino.SelectedItem.Text, DdlCuentaOrigen.SelectedItem.Text)}"
CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, PagueseA, row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -385,9 +379,6 @@ Partial Class Bancos_Transferencias
AlertaGlobal.AppendFormat("<a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a><br/>", CveIEDestino, FolioDestino)
End If
End If
Next
'Agregamos la contraria a bancos cuando es cuenta
@@ -408,7 +399,6 @@ Partial Class Bancos_Transferencias
ImporteME:=ImporteDestino, TipoCambio:=TC) Then
MsgError = "Ocurri<EFBFBD> un error al registrar el asiento del ingreso."
End If
End If
End If
@@ -433,13 +423,10 @@ Partial Class Bancos_Transferencias
If Not chkMovimientoTarjeta.Checked Then
AlertaGlobal.AppendFormat("<br/><br/>Recepci<63>n: <a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a>", CveIEDestino, FolioDestino)
End If
End If
Else
MsgError = "no se pudo insertar el detalle de la p<>liza2"
End If
Else
MsgError = "no se pudo insertar el detalle de la p<>liza"
End If
@@ -454,13 +441,11 @@ Partial Class Bancos_Transferencias
MsgError = "Error al guardar"
End If
If MsgError = "" Then
ObjIE.Commit()
If filemove <> "" Then
filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If
Alert(String.Format("El Movimiento se realizo correctamente.<br>{0}", AlertaGlobal), TipoMensaje.MsgInformacion)
Anexo.Text = ""
'Enviar Correo a los usuarios que tienen acceso a las dos cuentas