-

Bancos/ProductosFinancieros.aspx.vb

@@ -407,6 +407,7 @@ Partial Class Bancos_ProductosFinancieros
                 IdPoliza = ObjContaAC.AddPoliza(3, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
                 FolioPoliza = ObjContaAC.Folio
                 If IdPoliza > 0 Then
+                    FolioPoliza = ObjContaAC.Folio
                     Dim DtPresupuestosTemp As DataTable
                     Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz, IdCuentaEjercido, IdCuentaPagado As Integer
 
@@ -494,6 +495,7 @@ Partial Class Bancos_ProductosFinancieros
                 IdPoliza = ObjContaAC.AddPoliza(1, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, Fecha)
                 FolioPoliza = ObjContaAC.Folio
                 If IdPoliza > 0 Then
+                    FolioPoliza = ObjContaAC.Folio
                     Dim DtPresupuestosTemp As DataTable
                     Dim IdCuentaPorEjecutar, IdCuentaDevengado, IdCuentaRecaudado, IdCuentaMatriz As Integer