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

- folio poliza, cuando manda idpoliza

Browse Source
This commit is contained in:
rrene
2020-04-15 15:31:14 -07:00
parent fcff1e5604
commit 05acc43b78
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Bancos/ProductosFinancieros.aspx.vb
View File

@@ -304,6 +304,7 @@ Partial Class Bancos_ProductosFinancieros
Dim CvePrePoliza = -1
Dim IdPoliza = -1
Dim FolioPoliza As Integer = -1
Dim CveIE As Integer = -1
CvePrePoliza = ObjMov.AddPrePolizas("ProductosFinancieros/Registrar", DdlTipoMovimiento.SelectedValue.ToEntero, Importe, Importe, CveMoneda, TxtFecha.Text.ToDate, TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -406,6 +407,7 @@ Partial Class Bancos_ProductosFinancieros
IdPoliza = ObjContaAC.AddPoliza(3, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
If IdPoliza > 0 Then
FolioPoliza = ObjContaAC.Folio
Dim DtPresupuestosTemp As DataTable
Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz, IdCuentaEjercido, IdCuentaPagado As Integer
@@ -493,6 +495,7 @@ Partial Class Bancos_ProductosFinancieros
IdPoliza = ObjContaAC.AddPoliza(1, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, Fecha)
If IdPoliza > 0 Then
FolioPoliza = ObjContaAC.Folio
Dim DtPresupuestosTemp As DataTable
Dim IdCuentaPorEjecutar, IdCuentaDevengado, IdCuentaRecaudado, IdCuentaMatriz As Integer
@@ -559,7 +562,7 @@ Partial Class Bancos_ProductosFinancieros
End If
If Not ErrorTransaccion AndAlso Not ErrorAC Then
If Not ObjMov.UpdatePrePoliza(TxtFecha.Text.ToDate, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa) Then
If Not ObjMov.UpdatePrePoliza(TxtFecha.Text.ToDate, FolioPoliza, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa) Then
ErrorAC = True
ErrorTransaccion = True
End If