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

-- dato de folio temporal

Browse Source
This commit is contained in:
rrene
2022-10-19 15:45:05 -07:00
parent 1b6b8d277e
commit 58a75bde5b
2 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Bancos/DepositosCaja.aspx.vb
View File

@@ -46,6 +46,7 @@ Partial Class Bancos_DepositosCaja
'código temporal, para claudia y toñita, monge, anadelia, alba
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
divFolio.Visible = True
End If
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
@@ -187,7 +188,7 @@ Partial Class Bancos_DepositosCaja
Dim FolioIE As Long = -1
Dim CveMoneda As Integer = 1
Dim TipoCambio As Decimal = 1
Dim Fecha As Date = TxtFecha.Text.ToDate
Dim Fecha As Date = TxtFecha.Text.ToDate
Dim IdCuentaBancariaOrigen As Integer = 0
Dim IdCuentaBancariaDestino As Integer = 0
Dim CveCuentaBancariaOrigen As Integer = 0
@@ -252,11 +253,19 @@ Partial Class Bancos_DepositosCaja
If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
CveTransaccionBanco = 6
End If
'código temporal, para claudia y toñita, monge, anadelia, alba
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
FolioIE = TxtFolio.Text.ToEntero
End If
'Entrada a bancos
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
If Not FolioIE > 0 Then
If FolioIE <= 0 Then
'Entrada a bancos
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
End If
If FolioIE <= 0 Then
OcurrioError = True
End If
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)