-

Bancos/FluctuacionCambiaria.aspx.vb

@@ -51,15 +51,15 @@ Partial Class Bancos_FluctuacionCambiaria
         'Año Anterior
         DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(-1).Year.ToString()))
 
-        For i = 1 To 12
-            Dim fecha = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)
-            Dim mes = fecha.ToString("MMMM", CultureInfo.GetCultureInfo("es-MX"))
-            Dim mesStr = Char.ToUpper(mes(0)) + mes.Substring(1)
+        For i As Integer = 1 To 12
+            Dim fecha As DateTime = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)
+            Dim mes As String = fecha.ToString("MMMM", CultureInfo.GetCultureInfo("es-MX"))
+            Dim mesStr As String = Char.ToUpper(mes(0)) + mes.Substring(1)
 
             DdlMes.Items.Add(New ListItem(mesStr, i.ToString()))
         Next
 
-        Dim UltimaFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
+        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
         If UltimaFluctuacion IsNot Nothing Then
             DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Month)
             DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Year)
@@ -86,7 +86,6 @@ Partial Class Bancos_FluctuacionCambiaria
         UpTabs.Update()
     End Sub
 
-
     Private Sub CargaTipoCambio()
         Dim ObjGenerales As New ClsGenerales
         ObjGenerales.GetTipoCambio(-1, FechaUltimoDiaMes)
@@ -99,7 +98,6 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Private Sub CargaUltimaFluctuacion()
 
-
         Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
 
         If UltimaFluctuacion IsNot Nothing Then
@@ -1067,7 +1065,7 @@ Partial Class Bancos_FluctuacionCambiaria
         'TotalAcumulado = GvAcreedorDiversos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) Convert.ToDecimal(GvAcreedorDiversos.DataKeys(gvr.RowIndex)("Fluctuacion")))
 
 
-        If TotalAcumulado < 0 Then
+        If TotalAcumulado > 0 Then
             CveConceptoContable = 64 : TipoMovto = True
         Else
             CveConceptoContable = 65 : TipoMovto = False
@@ -1087,7 +1085,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Next
         If Not ErrorRegistrar Then
 
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(TotalAcumulado), Math.Abs(TotalAcumulado), CveConceptoContable, ConceptoFluctuacion, ConceptoFluctuacion, CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(TotalAcumulado), Math.Abs(TotalAcumulado), CveConceptoContable, ConceptoFluctuacion, ConceptoFluctuacion, CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then
                 ErrorRegistrar = True
             End If
         End If