- folio poliza, cuando manda idpoliza

Bancos/ProductosFinancieros.aspx.vb

@@ -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