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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-09-07 15:51:01 -07:00
parent eeeb1d169a a71e9ed33b
commit f80f9dd7ae
1 changed files with 23 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Bancos/Transferencias.aspx.vb
View File

@@ -2,6 +2,7 @@ Imports System.IO
Imports Extensiones Imports Extensiones
Imports System.Data Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.ComponentModel.Design
Partial Class Bancos_Transferencias Partial Class Bancos_Transferencias
Inherits ClsPaginas Inherits ClsPaginas
@@ -363,6 +364,13 @@ Partial Class Bancos_Transferencias
For Each row As GridViewRow In GvTC.Rows For Each row As GridViewRow In GvTC.Rows
FolioDestino = GetFolio(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TransaccioSQL:=ObjIE.IniciaTransacSQL())
If FolioDestino.Trim.Length = 0 Then
MsgError = "Ocurrio un error al obtener el folio destino."
Exit For
End If
CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30, If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30,
$"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
@@ -372,7 +380,7 @@ Partial Class Bancos_Transferencias
Exit For Exit For
Else Else
AlertaGlobal.AppendFormat("<a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a><br/>", CveIEDestino, FolioDestino) AlertaGlobal.AppendFormat("<a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a><br/>", CveIEDestino, FolioDestino)
FolioDestino = (FolioDestino.ToLong + 1).ToString 'FolioDestino = (FolioDestino.ToLong + 1).ToString
End If End If
Next Next
@@ -610,13 +618,24 @@ Partial Class Bancos_Transferencias
TxtFolio.Text = GetFolio(CveCuenta, CveTipoTransaccion) TxtFolio.Text = GetFolio(CveCuenta, CveTipoTransaccion)
End Sub End Sub
Private Function GetFolio(CveCuenta As Integer, CveTipoTransaccion As Integer) As String Private Function GetFolio(CveCuenta As Integer, CveTipoTransaccion As Integer, Optional ByRef TransaccioSQL As SqlTransaction = Nothing) As String
Dim Folio As String Dim Folio As String
Dim Banco As ClsBancos Dim Banco As ClsBancos
Banco = New ClsBancos
If TransaccioSQL Is Nothing Then
Banco = New ClsBancos
Else
Banco = New ClsBancos(TransaccioSQL)
End If
Folio = Banco.GetNextFolio(CveCuenta, CveTipoTransaccion).ToString Folio = Banco.GetNextFolio(CveCuenta, CveTipoTransaccion).ToString
Banco.Dispose()
If TransaccioSQL Is Nothing Then
Banco.Dispose()
End If
Return Folio Return Folio
End Function End Function