diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index b2b635433..98b0fec8d 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -20,12 +20,12 @@ Partial Class Bancos_FluctuacionCambiaria
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyecto)
-            CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas)
-            CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras)
-            CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales)
-            CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores)
-            CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores)
+            CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyecto, "")
+            CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores, "")
 
             CargaUltimaFluctuacion()
         End If
@@ -347,9 +347,8 @@ Partial Class Bancos_FluctuacionCambiaria
             TipoMovto = False
         End If
         If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
-                ErrorRegistrar = True
-            End If
+            ErrorRegistrar = True
+        End If
 
             Dim CveConconceptoCliente As Integer = 203
 
@@ -397,7 +396,6 @@ Partial Class Bancos_FluctuacionCambiaria
         Conta.IniciaTransacSQL()
         Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
         ObjContPaq.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Bancaria", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -405,28 +403,28 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim TipoMovto As Boolean = False
         Dim CveConceptoContable As Integer = 0
         Dim ErrorRegistrar As Boolean = False
-        Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
-
+        Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
+        Dim MesTCtexto As String = String.Format("{0} TC:{1}", TxtFecha.Text.ToDate.ToString("MMMM-yyyy"), TCCierreFluctuacion)
+
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, String.Format("Fluctuación Bancaria {0} ", MesTCtexto), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
         CveCuentaPerdida = 0 ' 55379
         CveCuentaGanancia = 0 ' 55382
         idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
         IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
-        Total = LblTotalBancos.Text.ToDecimal
-
-
-
-
-        Dim CveConconceptoBancos As Integer = 204
-
-
-        'saco las cuentas de pérdida y ganancia
+        Total = LblTotalBancos.Text.ToDecimal
+
+        Dim CveConconceptoBancos As Integer = 204
+
+        'saco las cuentas de pérdida y ganancia
         For Each gvr As GridViewRow In GvCuentas.Rows
             Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
             If cb.Checked Then
                 Total = gvr.DataKey("Fluctuacion").ToDecimal
                 Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
-                Dim ConceptoReferencia As String = $"{gvr.DataKey("Banco")} - {gvr.DataKey("NumCuenta")} "
+                Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto)
 
 
                 'MOVIMIENTO DE FLUCTUACION