-- simplificación de addmovimiento, en una función
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user