diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb
index f6e19b1f6..10a005927 100644
--- a/Contabilidad/DiarioPagos.aspx.vb
+++ b/Contabilidad/DiarioPagos.aspx.vb
@@ -109,7 +109,7 @@ Partial Class Contabilidad_DiarioPagos
                 DdlPolizaTipo.SelectedValue = "2"
                 'busco si se ocupa el tipo de cambio
 
-                CargaDatos(-1)
+                'CargaDatos(-1)
 
                 Cc.Dispose()
             Else
@@ -1066,16 +1066,13 @@ Partial Class Contabilidad_DiarioPagos
 
                                         End If
 
-
-
                                         FluctuacionCambiaria += Math.Round((CompraPagadoRetISR * TipoCambioCompra) - (CompraPagadoRetISR * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE ISR
-                                        Dim Dif As Double = (CompraPagadoTotal * TipoCambioPago) - Math.Round(CompraPagadoTotal * TipoCambioCompra, 2) + FluctuacionCambiaria
-
+                                        Dim Dif As Decimal = (CompraPagadoTotal * TipoCambioPago) - Math.Round(CompraPagadoTotal * TipoCambioCompra, 2) + FluctuacionCambiaria
 
                                         If Dif < 0 Then
-                                            tempMovto = True ' ganancia cambiaria
+                                            CtaFluctuacion = If(UsuarioActual.CveEmpresa = 13, 579, 0) : tempMovto = True ' ganancia cambiaria
                                         Else
-                                            tempMovto = False  ' perdida cambiaria
+                                            CtaFluctuacion = If(UsuarioActual.CveEmpresa = 13, 578, 0) : tempMovto = False  ' perdida cambiaria
                                         End If
 
                                         ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)