diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index b7d21d2e4..4b81efaff 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -2234,7 +2234,8 @@ Public Class ClsContPAQi
     ''' <returns></returns>
     ''' <remarks></remarks>
     Public Function AddMovimiento(IdPoliza As Integer, IdCuenta As Integer, TipoMovto As Boolean, Importe As Double, Referencia As String,
-                                  Concepto As String, IdSegNeg As Integer, FechaMovto As Date, SIGReferencia As String, Optional ImporteMonedaExtranjera As Double = 0, Optional GUID As String = "-1") As Boolean
+                                  Concepto As String, IdSegNeg As Integer, FechaMovto As Date, SIGReferencia As String, Optional ImporteMonedaExtranjera As Double = 0, Optional GUID As String = "-1",
+                                  Optional CvePrePolizaDetalle As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         If IdPoliza <= 0 Or IdCuenta <= 0 Then
@@ -2307,8 +2308,8 @@ Public Class ClsContPAQi
         'StrSQL.AppendLine("")
         'StrSQL.AppendLine("END")
 
-        StrSQL.AppendLine("       INSERT INTO MovimientosPoliza (Id, RowVersion, IdPoliza, Ejercicio, Periodo, TipoPol, Folio, NumMovto, IdCuenta, TipoMovto, Importe, ImporteME, Referencia, Concepto, IdDiario, Fecha, IdSegNeg, SIGReferencia, TimeStamp, Guid)")
-        StrSQL.AppendLine("                             VALUES (@Id, @RowVersion, @IdPoliza, @Ejercicio, @Periodo, @TipoPol, @Folio, @NumMovto, @IdCuenta, @TipoMovto, @Importe, @ImporteME, @Referencia, @Concepto, @IdDiario, @Fecha, IIF(@SegNegMovtos = 1,@IdSegNeg,0), @SIGReferencia, @TimeStamp, @GUID);")
+        StrSQL.AppendLine("       INSERT INTO MovimientosPoliza (Id, RowVersion, IdPoliza, Ejercicio, Periodo, TipoPol, Folio, NumMovto, IdCuenta, TipoMovto, Importe, ImporteME, Referencia, Concepto, IdDiario, Fecha, IdSegNeg, SIGReferencia, TimeStamp, Guid, CvePrePolizaDetalle)")
+        StrSQL.AppendLine("                             VALUES (@Id, @RowVersion, @IdPoliza, @Ejercicio, @Periodo, @TipoPol, @Folio, @NumMovto, @IdCuenta, @TipoMovto, @Importe, @ImporteME, @Referencia, @Concepto, @IdDiario, @Fecha, IIF(@SegNegMovtos = 1,@IdSegNeg,0), @SIGReferencia, @TimeStamp, @GUID, IIF(@CvePrePolizaDetalle=-1,NULL,@CvePrePolizaDetalle));")
         StrSQL.AppendLine("       ")
 
         ''DESCOMENTAR PARA CIERRE PERIODO
@@ -2344,156 +2345,6 @@ Public Class ClsContPAQi
 
 
 
-        SqlDataAdapter(StrSQL.ToString, CommandType.Text)
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@RowVersion", SqlDbType.Int).Value = GlobalRowVersion
-            .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
-            .Add("@IdCuenta", SqlDbType.Int).Value = IdCuenta
-            .Add("@TipoMovto", SqlDbType.Int).Value = TipoMovto
-            .Add("@Importe", SqlDbType.Money).Value = Math.Round(Importe, 2)
-            .Add("@Referencia", SqlDbType.VarChar, 30).Value = If(Referencia.Length > 30, Referencia.Substring(1, 30), Referencia)
-            .Add("@Concepto", SqlDbType.VarChar, 100).Value = If(Concepto.Length > 100, Concepto.Substring(1, 100), Concepto)
-            .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg
-            .Add("@FechaMov", SqlDbType.DateTime).Value = FechaMovto
-            .Add("@SIGReferencia", SqlDbType.VarChar).Value = SIGReferencia
-            .Add("@ImporteME", SqlDbType.Money).Value = ImporteMonedaExtranjera
-            .Add("@GUID", SqlDbType.VarChar).Value = GUID
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            GUIDMovimiento = GUID
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el movimiento en la póliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    ''' <summary>
-    ''' Agrega un movimiento a una póliza
-    ''' </summary>
-    ''' <param name="IdPoliza">Es el ID que generó la póliza</param>
-    ''' <param name="IdCuenta">Es el ID de la cuenta del movimiento a agregar</param>
-    ''' <param name="TipoMovto">Cargo = False; Abono = True</param>
-    ''' <param name="Importe">Es el Importe del movimiento a agregar</param>
-    ''' <param name="Referencia">Es la referencia del movimiento, hasta 30 dígitos</param>
-    ''' <param name="Concepto">Es el concepto del movimiento, hasta 100 dígitos</param>
-    ''' <param name="IdSegNeg">Es el ID del Segmento de Negocio</param>
-    ''' <param name="FechaMovto">Es la fecha del movimiento</param>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Function AddMovimiento(IdPoliza As Integer, IdCuenta As Integer, TipoMovto As Boolean, Importe As Double, Referencia As String,
-                                  Concepto As String, IdSegNeg As Integer, FechaMovto As Date, SIGReferencia As String, CvePrePolizaDetalle As Integer, Optional ImporteMonedaExtranjera As Double = 0, Optional GUID As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-
-        If IdPoliza <= 0 Or IdCuenta <= 0 Then
-            Return False
-        End If
-
-        If Not FNC_GetCounter() Then
-            Return Retorno
-        End If
-
-        If Not FNC_GetNumMovto() Then
-            Return Retorno
-        End If
-
-        'SqlDataAdapter("PA_AddMovimiento
-        If GUID = "-1" Then GUID = System.Guid.NewGuid().ToString()
-
-        StrSQL.Clear()
-        StrSQL.AppendLine("BEGIN")
-        StrSQL.AppendLine("")
-        StrSQL.AppendLine("       DECLARE ")
-        StrSQL.AppendLine("             @Error              NVARCHAR(300),")
-        StrSQL.AppendLine("             @Id                        INT,")
-        StrSQL.AppendLine("             @Ejercicio          INT,")
-        StrSQL.AppendLine("             @Periodo            INT,")
-        StrSQL.AppendLine("             @TipoPol            INT,")
-        StrSQL.AppendLine("             @Folio              INT,")
-        StrSQL.AppendLine("             @NumMovto           INT,")
-        StrSQL.AppendLine("             @IdDiario           INT,")
-        StrSQL.AppendLine("             @Fecha              DATETIME,")
-        StrSQL.AppendLine("             @IDEjercicio INT,")
-        StrSQL.AppendLine("             @TimeStamp          NVARCHAR (200);")
-        StrSQL.AppendLine("       SET NOCOUNT ON;")
-        StrSQL.AppendLine("       ")
-        StrSQL.AppendLine("       SET @Id                           = dbo.FNC_GetCounter ('Id_MovimientoPoliza');")
-        StrSQL.AppendLine("       SET @NumMovto       = dbo.FNC_GetNumMovto (@IdPoliza);")
-        StrSQL.AppendLine("       SET @Fecha                 = @FechaMov;")
-        StrSQL.AppendLine("       SET @IdDiario       = 0;")
-        StrSQL.AppendLine("       SELECT @Ejercicio = P.Ejercicio, @Periodo = P.Periodo, @TipoPol = TipoPol, @Folio = P.Folio FROM Polizas P WHERE Id = @IdPoliza;")
-        StrSQL.AppendLine("")
-        StrSQL.AppendLine("       BEGIN TRY")
-        StrSQL.AppendLine("       ")
-
-        ''DESCOMENTAR PARA CIERRE PERIODO
-        'StrSQL.AppendLine("DECLARE")
-        'StrSQL.AppendLine("        @IdCtaCierre            INT,")
-        'StrSQL.AppendLine("        @IdPolCierre            INT,")
-        'StrSQL.AppendLine("        @NumMovtoCierre         INT;")
-        'StrSQL.AppendLine("")
-        'StrSQL.AppendLine("SET @NumMovtoCierre = 0;")
-        'StrSQL.AppendLine("")
-        'StrSQL.AppendLine("-- SI ES CUENTA DE RESULTADOS")
-        'StrSQL.AppendLine("IF (SELECT Tipo FROM Cuentas WHERE Id = @IdCuenta) IN ('G','H')")
-        'StrSQL.AppendLine("BEGIN ")
-        'StrSQL.AppendLine("")
-        'StrSQL.AppendLine("        SELECT @IdCtaCierre = IdCtaCierre, @IdPolCierre = IdPolCierre FROM Ejercicios WHERE Ejercicio = @Ejercicio")
-        'StrSQL.AppendLine("")
-        'StrSQL.AppendLine("        -- SI ESTA CERRADO EL EJERCICIO")
-        'StrSQL.AppendLine("        IF (@IdCtaCierre > 0 AND @IdPolCierre > 0)")
-        'StrSQL.AppendLine("        BEGIN")
-        'StrSQL.AppendLine("")
-        'StrSQL.AppendLine("                -- PARA QUE EL MOVIMIENTO SE AGREGUE DIRECTO EN LA POLIZA DE CIERRE")
-        'StrSQL.AppendLine("                SET @IdPoliza = @IdPolCierre;")
-        'StrSQL.AppendLine("                SET @NumMovto = dbo.FNC_GetNumMovto (@IdPolCierre);")
-        'StrSQL.AppendLine("                SET @NumMovtoCierre = @NumMovto + 1")
-        'StrSQL.AppendLine("")
-        'StrSQL.AppendLine("        END")
-        'StrSQL.AppendLine("")
-        'StrSQL.AppendLine("END")
-
-        StrSQL.AppendLine("       INSERT INTO MovimientosPoliza (Id, RowVersion, IdPoliza, Ejercicio, Periodo, TipoPol, Folio, NumMovto, IdCuenta, TipoMovto, Importe, ImporteME, Referencia, Concepto, IdDiario, Fecha, IdSegNeg, SIGReferencia, TimeStamp, Guid, CvePrePolizaDetalle)")
-        StrSQL.AppendLine("                             VALUES (@Id, @RowVersion, @IdPoliza, @Ejercicio, @Periodo, @TipoPol, @Folio, @NumMovto, @IdCuenta, @TipoMovto, @Importe, @ImporteME, @Referencia, @Concepto, @IdDiario, @Fecha, @IdSegNeg, @SIGReferencia, @TimeStamp, @GUID, @CvePrePolizaDetalle);")
-        StrSQL.AppendLine("       ")
-
-        ''DESCOMENTAR PARA CIERRE PERIODO
-        'StrSQL.AppendLine(" IF @NumMovtoCierre > 0 ")
-        'StrSQL.AppendLine("	BEGIN ")
-        'StrSQL.AppendLine("			IF @TipoMovto = 0 BEGIN  ")
-        'StrSQL.AppendLine("				SET @TipoMovto = 1 ")
-        'StrSQL.AppendLine("			END ")
-        'StrSQL.AppendLine("			ELSE BEGIN  ")
-        'StrSQL.AppendLine("				SET @TipoMovto = 0 ")
-        'StrSQL.AppendLine("			END ")
-        'StrSQL.AppendLine("			INSERT INTO MovimientosPoliza (Id, RowVersion, IdPoliza, Ejercicio, Periodo, TipoPol, Folio, NumMovto, IdCuenta, TipoMovto, Importe, ImporteME, Referencia, Concepto, IdDiario, Fecha, IdSegNeg, SIGReferencia, TimeStamp, Guid) ")
-        'StrSQL.AppendLine("								VALUES (@Id + 1, @RowVersion, @IdPoliza, @Ejercicio, @Periodo, @TipoPol, @Folio, @NumMovtoCierre, @IdCtaCierre, @TipoMovto, @Importe, @ImporteME, @Referencia, @Concepto, @IdDiario, @Fecha, @IdSegNeg, @SIGReferencia, @TimeStamp,''); ")
-        'StrSQL.AppendLine("         EXEC PA_UpdateId 'Id_MovimientoPoliza';")
-        'StrSQL.AppendLine("	END ")
-
-        StrSQL.AppendLine("       EXEC PA_UpdateId 'Id_MovimientoPoliza';")
-        StrSQL.AppendLine("       ")
-        StrSQL.AppendLine("       SELECT @IDEjercicio = ID FROM Ejercicios WHERE Ejercicio = @Ejercicio;")
-        StrSQL.AppendLine("       ")
-        StrSQL.AppendLine("       EXEC PA_UpdateSaldos @IdCuenta, @TipoMovto, @Importe, @IDEjercicio, @Periodo, @Id, @IdPoliza;")
-        StrSQL.AppendLine("       ")
-        StrSQL.AppendLine("       SELECT @Id AS IdMovto, @NumMovto AS NumMovto, @GUID AS GUID ;")
-        StrSQL.AppendLine("       ")
-        StrSQL.AppendLine("       END TRY")
-        StrSQL.AppendLine("       ")
-        StrSQL.AppendLine("       BEGIN CATCH")
-        StrSQL.AppendLine("             SET @Error = CONCAT('Número: ' , ERROR_NUMBER(), '; Procedimiento: ' , ERROR_PROCEDURE(), '; Linea: ' ,ERROR_LINE(), '; Detalle: ' , ERROR_MESSAGE());")
-        StrSQL.AppendLine("             RAISERROR(@Error, 16, 1);")
-        StrSQL.AppendLine("       END CATCH")
-        StrSQL.AppendLine("       ")
-        StrSQL.AppendLine("END;")
-
-
-
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
 
         With SqlAdapter.SelectCommand.Parameters
@@ -2523,6 +2374,159 @@ Public Class ClsContPAQi
         Return Retorno
     End Function
 
+    '''' <summary>
+    '''' Agrega un movimiento a una póliza
+    '''' </summary>
+    '''' <param name="IdPoliza">Es el ID que generó la póliza</param>
+    '''' <param name="IdCuenta">Es el ID de la cuenta del movimiento a agregar</param>
+    '''' <param name="TipoMovto">Cargo = False; Abono = True</param>
+    '''' <param name="Importe">Es el Importe del movimiento a agregar</param>
+    '''' <param name="Referencia">Es la referencia del movimiento, hasta 30 dígitos</param>
+    '''' <param name="Concepto">Es el concepto del movimiento, hasta 100 dígitos</param>
+    '''' <param name="IdSegNeg">Es el ID del Segmento de Negocio</param>
+    '''' <param name="FechaMovto">Es la fecha del movimiento</param>
+    '''' <returns></returns>
+    '''' <remarks></remarks>
+    'Public Function AddMovimiento(IdPoliza As Integer, IdCuenta As Integer, TipoMovto As Boolean, Importe As Double, Referencia As String,
+    '                              Concepto As String, IdSegNeg As Integer, FechaMovto As Date, SIGReferencia As String, CvePrePolizaDetalle As Integer, Optional ImporteMonedaExtranjera As Double = 0, Optional GUID As String = "-1") As Boolean
+    '    Dim Retorno As Boolean = False
+
+    '    If IdPoliza <= 0 Or IdCuenta <= 0 Then
+    '        Return False
+    '    End If
+
+    '    If Not FNC_GetCounter() Then
+    '        Return Retorno
+    '    End If
+
+    '    If Not FNC_GetNumMovto() Then
+    '        Return Retorno
+    '    End If
+
+    '    'SqlDataAdapter("PA_AddMovimiento
+    '    If GUID = "-1" Then GUID = System.Guid.NewGuid().ToString()
+
+    '    StrSQL.Clear()
+    '    StrSQL.AppendLine("BEGIN")
+    '    StrSQL.AppendLine("")
+    '    StrSQL.AppendLine("       DECLARE ")
+    '    StrSQL.AppendLine("             @Error              NVARCHAR(300),")
+    '    StrSQL.AppendLine("             @Id                        INT,")
+    '    StrSQL.AppendLine("             @Ejercicio          INT,")
+    '    StrSQL.AppendLine("             @Periodo            INT,")
+    '    StrSQL.AppendLine("             @TipoPol            INT,")
+    '    StrSQL.AppendLine("             @Folio              INT,")
+    '    StrSQL.AppendLine("             @NumMovto           INT,")
+    '    StrSQL.AppendLine("             @IdDiario           INT,")
+    '    StrSQL.AppendLine("             @SegNegMovtos       INT,")
+    '    StrSQL.AppendLine("             @Fecha              DATETIME,")
+    '    StrSQL.AppendLine("             @IDEjercicio INT,")
+    '    StrSQL.AppendLine("             @TimeStamp          NVARCHAR (200);")
+    '    StrSQL.AppendLine("       SET NOCOUNT ON;")
+    '    StrSQL.AppendLine("       ")
+    '    StrSQL.AppendLine("       SET @Id                           = dbo.FNC_GetCounter ('Id_MovimientoPoliza');")
+    '    StrSQL.AppendLine("       SET @NumMovto       = dbo.FNC_GetNumMovto (@IdPoliza);")
+    '    StrSQL.AppendLine("       SET @Fecha                 = @FechaMov;")
+    '    StrSQL.AppendLine("       SET @IdDiario       = 0;")
+    '    StrSQL.AppendLine("       SELECT @Ejercicio = P.Ejercicio, @Periodo = P.Periodo, @TipoPol = TipoPol, @Folio = P.Folio FROM Polizas P WHERE Id = @IdPoliza;")
+    '    StrSQL.AppendLine("       SELECT @SegNegMovtos = SegNegMovtos FROM Cuentas C WHERE Id = @IdCuenta;")
+    '    StrSQL.AppendLine("")
+    '    StrSQL.AppendLine("       BEGIN TRY")
+    '    StrSQL.AppendLine("       ")
+
+    '    ''DESCOMENTAR PARA CIERRE PERIODO
+    '    'StrSQL.AppendLine("DECLARE")
+    '    'StrSQL.AppendLine("        @IdCtaCierre            INT,")
+    '    'StrSQL.AppendLine("        @IdPolCierre            INT,")
+    '    'StrSQL.AppendLine("        @NumMovtoCierre         INT;")
+    '    'StrSQL.AppendLine("")
+    '    'StrSQL.AppendLine("SET @NumMovtoCierre = 0;")
+    '    'StrSQL.AppendLine("")
+    '    'StrSQL.AppendLine("-- SI ES CUENTA DE RESULTADOS")
+    '    'StrSQL.AppendLine("IF (SELECT Tipo FROM Cuentas WHERE Id = @IdCuenta) IN ('G','H')")
+    '    'StrSQL.AppendLine("BEGIN ")
+    '    'StrSQL.AppendLine("")
+    '    'StrSQL.AppendLine("        SELECT @IdCtaCierre = IdCtaCierre, @IdPolCierre = IdPolCierre FROM Ejercicios WHERE Ejercicio = @Ejercicio")
+    '    'StrSQL.AppendLine("")
+    '    'StrSQL.AppendLine("        -- SI ESTA CERRADO EL EJERCICIO")
+    '    'StrSQL.AppendLine("        IF (@IdCtaCierre > 0 AND @IdPolCierre > 0)")
+    '    'StrSQL.AppendLine("        BEGIN")
+    '    'StrSQL.AppendLine("")
+    '    'StrSQL.AppendLine("                -- PARA QUE EL MOVIMIENTO SE AGREGUE DIRECTO EN LA POLIZA DE CIERRE")
+    '    'StrSQL.AppendLine("                SET @IdPoliza = @IdPolCierre;")
+    '    'StrSQL.AppendLine("                SET @NumMovto = dbo.FNC_GetNumMovto (@IdPolCierre);")
+    '    'StrSQL.AppendLine("                SET @NumMovtoCierre = @NumMovto + 1")
+    '    'StrSQL.AppendLine("")
+    '    'StrSQL.AppendLine("        END")
+    '    'StrSQL.AppendLine("")
+    '    'StrSQL.AppendLine("END")
+
+    '    StrSQL.AppendLine("       INSERT INTO MovimientosPoliza (Id, RowVersion, IdPoliza, Ejercicio, Periodo, TipoPol, Folio, NumMovto, IdCuenta, TipoMovto, Importe, ImporteME, Referencia, Concepto, IdDiario, Fecha, IdSegNeg, SIGReferencia, TimeStamp, Guid, CvePrePolizaDetalle)")
+    '    StrSQL.AppendLine("                             VALUES (@Id, @RowVersion, @IdPoliza, @Ejercicio, @Periodo, @TipoPol, @Folio, @NumMovto, @IdCuenta, @TipoMovto, @Importe, @ImporteME, @Referencia, @Concepto, @IdDiario, @Fecha, IIF(@SegNegMovtos = 1,@IdSegNeg,0), @SIGReferencia, @TimeStamp, @GUID, @CvePrePolizaDetalle);")
+    '    StrSQL.AppendLine("       ")
+
+    '    ''DESCOMENTAR PARA CIERRE PERIODO
+    '    'StrSQL.AppendLine(" IF @NumMovtoCierre > 0 ")
+    '    'StrSQL.AppendLine("	BEGIN ")
+    '    'StrSQL.AppendLine("			IF @TipoMovto = 0 BEGIN  ")
+    '    'StrSQL.AppendLine("				SET @TipoMovto = 1 ")
+    '    'StrSQL.AppendLine("			END ")
+    '    'StrSQL.AppendLine("			ELSE BEGIN  ")
+    '    'StrSQL.AppendLine("				SET @TipoMovto = 0 ")
+    '    'StrSQL.AppendLine("			END ")
+    '    'StrSQL.AppendLine("			INSERT INTO MovimientosPoliza (Id, RowVersion, IdPoliza, Ejercicio, Periodo, TipoPol, Folio, NumMovto, IdCuenta, TipoMovto, Importe, ImporteME, Referencia, Concepto, IdDiario, Fecha, IdSegNeg, SIGReferencia, TimeStamp, Guid) ")
+    '    'StrSQL.AppendLine("								VALUES (@Id + 1, @RowVersion, @IdPoliza, @Ejercicio, @Periodo, @TipoPol, @Folio, @NumMovtoCierre, @IdCtaCierre, @TipoMovto, @Importe, @ImporteME, @Referencia, @Concepto, @IdDiario, @Fecha, @IdSegNeg, @SIGReferencia, @TimeStamp,''); ")
+    '    'StrSQL.AppendLine("         EXEC PA_UpdateId 'Id_MovimientoPoliza';")
+    '    'StrSQL.AppendLine("	END ")
+
+    '    StrSQL.AppendLine("       EXEC PA_UpdateId 'Id_MovimientoPoliza';")
+    '    StrSQL.AppendLine("       ")
+    '    StrSQL.AppendLine("       SELECT @IDEjercicio = ID FROM Ejercicios WHERE Ejercicio = @Ejercicio;")
+    '    StrSQL.AppendLine("       ")
+    '    StrSQL.AppendLine("       EXEC PA_UpdateSaldos @IdCuenta, @TipoMovto, @Importe, @IDEjercicio, @Periodo, @Id, @IdPoliza;")
+    '    StrSQL.AppendLine("       ")
+    '    StrSQL.AppendLine("       SELECT @Id AS IdMovto, @NumMovto AS NumMovto, @GUID AS GUID ;")
+    '    StrSQL.AppendLine("       ")
+    '    StrSQL.AppendLine("       END TRY")
+    '    StrSQL.AppendLine("       ")
+    '    StrSQL.AppendLine("       BEGIN CATCH")
+    '    StrSQL.AppendLine("             SET @Error = CONCAT('Número: ' , ERROR_NUMBER(), '; Procedimiento: ' , ERROR_PROCEDURE(), '; Linea: ' ,ERROR_LINE(), '; Detalle: ' , ERROR_MESSAGE());")
+    '    StrSQL.AppendLine("             RAISERROR(@Error, 16, 1);")
+    '    StrSQL.AppendLine("       END CATCH")
+    '    StrSQL.AppendLine("       ")
+    '    StrSQL.AppendLine("END;")
+
+
+
+    '    SqlDataAdapter(StrSQL.ToString, CommandType.Text)
+
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@RowVersion", SqlDbType.Int).Value = GlobalRowVersion
+    '        .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
+    '        .Add("@IdCuenta", SqlDbType.Int).Value = IdCuenta
+    '        .Add("@TipoMovto", SqlDbType.Int).Value = TipoMovto
+    '        .Add("@Importe", SqlDbType.Money).Value = Math.Round(Importe, 2)
+    '        .Add("@Referencia", SqlDbType.VarChar, 30).Value = If(Referencia.Length > 30, Referencia.Substring(1, 30), Referencia)
+    '        .Add("@Concepto", SqlDbType.VarChar, 100).Value = If(Concepto.Length > 100, Concepto.Substring(1, 100), Concepto)
+    '        .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg
+    '        .Add("@FechaMov", SqlDbType.DateTime).Value = FechaMovto
+    '        .Add("@SIGReferencia", SqlDbType.VarChar).Value = SIGReferencia
+    '        .Add("@ImporteME", SqlDbType.Money).Value = ImporteMonedaExtranjera
+    '        .Add("@GUID", SqlDbType.VarChar).Value = GUID
+    '        .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
+    '    End With
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        GUIDMovimiento = GUID
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al agregar el movimiento en la póliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
+
+    '    Return Retorno
+    'End Function
+
     Public Function UpdatePoliza(Concepto As String, Cargos As Double, Abonos As Double, IdUsuario As Integer, FechaPoliza As Date, Folio As String, TipoPoliza As Integer, IdPoliza As Integer) As Boolean
         Dim Retorno As Boolean = False
 
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 92b5aa4d1..a10b756f0 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1406,7 +1406,7 @@ Public Class ClsContabilidad
                                 If dr("ImporteMN").ToString.ToDecimal <> 0 Then
 
                                     If Not ObjConta.AddMovimiento(tIdPoliza, dr("IdCtaContable").ToString.ToEntero, tipoMovimiento,
-                                                      dr("ImporteMN").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
+                                                      dr("ImporteMN").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, CvePrePolizaDetalle:=dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
                                         OcurrioError = True
                                         StrLog.AppendFormat(" Error 1.1 - ")
                                         Exit For
@@ -1415,7 +1415,7 @@ Public Class ClsContabilidad
                                 Else
 
                                     If Not ObjConta.AddMovimiento(tIdPoliza, dr("IdCtaContable").ToString.ToEntero, tipoMovimiento,
-                                                      dr("Importe").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
+                                                      dr("Importe").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, CvePrePolizaDetalle:=dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
                                         OcurrioError = True
                                         StrLog.AppendFormat(" Error 1.2 - ")
                                         Exit For
@@ -1456,7 +1456,7 @@ Public Class ClsContabilidad
                         Dim RFC As String = ""
                         Dim RazonSocial As String = ""
                         If Not OcurrioError AndAlso ContabilizarDIOT Then
-                            If GetDIOTValores(CvePrePoliza) AndAlso Data.Rows.Count > 0 Then
+                            If GetDIOTValores(CvePrePoliza, Empresa.CveEmpresa) AndAlso Data.Rows.Count > 0 Then
                                 Dim IdProveedor As Integer
 
                                 For Each dr As DataRow In Data.Rows
@@ -1685,7 +1685,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetDIOTValores(CvePrePoliza As Integer) As Boolean  'Editado por charlie
+    Public Function GetDIOTValores(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean  'Editado por charlie
 
         Dim Retorno As Boolean = False
 
@@ -1693,6 +1693,7 @@ Public Class ClsContabilidad
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try