Simulación Iterativa (Terminada)

Carlos Chaves:
Luego del concierto, se procedió a reanudar la simulación de manera iterativa. Se había dejado como pendientes los movimientos y calculos iterativos dentro de la simulación.
Se hicieron varios calculos y to-do lists de lo que hacía falta. De esta manera se podía abarcar ciertos problemas antes de que se presentaran.
Finalmente, la simulación estaba terminada, pero con un pequeño problema que surgía de vez en cuando por las referencias de las tablas movimientos, planillas semanal y planilla mensual.

Pendientes: Simulación Masiva y arreglar bugs.

Horas estimadas de trabajo: 3h

create procedure SimulacionIs
as begin
  DECLARE @XML XML
  SET @XML = (SELECT * FROM OPENROWSET(BULK '/home/datos/FechaOperacion V2.xml', SINGLE_BLOB) AS BasicData)


  --TODO: Agregar numeros que estan "quemados" en el codigo
  -- Variables
  DECLARE @fecha_inicio date
  DECLARE @fecha_fin date

  DECLARE @low1 int
  DECLARE @high1 int
  --
  DECLARE @valorDocId numeric(12)
  DECLARE @idPuesto int
  DECLARE @idTipoJornada int
  DECLARE @idTipoMov int
  DECLARE @numeroDeVierneses int
  DECLARE @horas int
  DECLARE @tiempoNormal int
  DECLARE @fecha date
  DECLARE @idPlanillaMensual bigint
  DECLARE @idPlanillaSemanal bigint
  DECLARE @Nombre varchar(20)
  DECLARE @sabadoDePlanilla date
  DECLARE @viernesDePlanilla date

  DECLARE @idTipoDeduccion int
  DECLARE @valor int
  --SET @Cero = 0
  DECLARE @numeroDiaEnSemana int
  DECLARE @horaEntrada time
  DECLARE @horaSalida time
  DECLARE @salarioPorHora money
  DECLARE @Feriado int
  --DECLARE @QMaxATM1 int
  --DECLARE @QMaxManual1 int
  --DECLARE @QMaxATM2 int
  --DECLARE @QMaxManual2 int
  --DECLARE @MultaNegativo money
  --DECLARE @MultaMinimo money
  --DECLARE @MultaManual money
  --DECLARE @MultaATM money
  --DECLARE @TasaInteres int
  --
  ---- Tablas Variables
  DECLARE @EmpleadoAux TABLE(sec int IDENTITY (1, 1), valorDocId numeric(12), Nombre varchar(50), idPuesto int)
  DECLARE @AsistenciaAux TABLE(sec int IDENTITY (1, 1), Fecha date, IdObrero int, IdTipoJornada int, HoraEntrada time, HoraSalida time)
  DECLARE @DeduccionAux TABLE(sec int IDENTITY (1, 1), DocId numeric(12), idTipoDeduccion int, Valor money)
  DECLARE @Bono TABLE(sec int IDENTITY (1, 1), DocId numeric(12), Monto money)
  DECLARE @tabla_fechas TABLE(sec int IDENTITY (1, 1), fecha date)
  DECLARE @cierrePlanillaSemAux TABLE(sec int IDENTITY (1, 1), idMensual bigint, idSemanal bigint, monto money, tipo_mov int, fecha date)
  DECLARE @cierrePlanillaMenAux TABLE(sec int IDENTITY (1, 1), idMensual bigint, monto money, MES INt, ANNO INt)

  DECLARE @IncapacidadAux TABLE(sec int IDENTITY (1, 1), DocId numeric(12), idTipoJornada int)
  --                             SaldoMinimoCorte money, FechaCorte date, QopManual int, QopAT int)
  
  
  INSERT @tabla_fechas (fecha)
  SELECT CONVERT(VARCHAR(8), Child.value('(@fecha)[1]', 'date'), 3)
  FROM @XML.nodes('dataset/FechaOperacion') AS N (Child)

  SELECT @fecha_inicio = min(fecha), @fecha_fin = max(fecha) FROM @tabla_fechas
  --SET @fechaCorte = DATEADD(M,1, @fecha_inicio)


  --Inicio iteracion por fecha
  WHILE @fecha_inicio <= @fecha_fin
    BEGIN

      set @sabadoDePlanilla = DATEADD(DAY, DATEDIFF(DAY, 5, @fecha_inicio) / 7 * 7, 5)
      set @viernesDePlanilla = DATEADD(d, 6 - DATEPART(dw, @fecha_inicio), @fecha_inicio)
      set @numeroDiaEnSemana = datepart(dw, @fecha_inicio)

      /*
       Cargar empleados en tabla auxiliar
       */
      INSERT @EmpleadoAux (Nombre, valorDocId, idPuesto)
      SELECT Child.value('(@nombre)[1]', 'varchar(50)'),
             Child.value('(@DocId)[1]', 'numeric(12)'),
             Child.value('(@idPuesto)[1]', 'int')
      FROM @XML.nodes('dataset/FechaOperacion/NuevoEmpleado') AS N (Child)
      WHERE @fecha_inicio = Child.value('../@fecha', 'date')

      /*
      Cargar empleados en la base de datos
       */
      SELECT @low1 = min(sec), @high1 = max(sec) FROM @EmpleadoAux
      WHILE @low1 <= @high1
        BEGIN
          SELECT @valorDocId = C.valorDocId, @Nombre = C.Nombre, @idPuesto = C.idPuesto
          FROM @EmpleadoAux C
          WHERE C.sec = @low1
          INSERT INTO OBRERO (ID, Nombre, ID_PUESTO) VALUES (@valorDocId, @Nombre, @idPuesto)
          SET @low1 = @low1 + 1
        END


      /*
      Cargar asistencias en tabla auxiliar
       */
      INSERT @AsistenciaAux (Fecha, IdObrero, IdTipoJornada, HoraEntrada, HoraSalida)
      SELECT @fecha_inicio,
             Child.value('(@DocID)[1]', 'numeric(12)'),
             Child.value('(@idTipoJornada)[1]', 'int'),
             Child.value('(@HoraEntrada)[1]', 'time'),
             Child.value('(@HoraSalida)[1]', 'time')
      FROM @XML.nodes('dataset/FechaOperacion/Asistencia') AS N (Child)
      WHERE @fecha_inicio = Child.value('../@Fecha', 'date')

      /*
      Guardar asistencias en base de datos
      Actualizar/crear planillas
      Se agrega lo ganado y se registra como movimiento
      Todo: Agregar ganancia por hora extra o por feriado

       */
      SELECT @low1 = min(sec), @high1 = max(sec) FROM @AsistenciaAux
      WHILE @low1 <= @high1
        BEGIN
          SELECT @valorDocId = C.IdObrero,
                 @idTipoJornada = C.IdTipoJornada,
                 @horaEntrada = C.HoraEntrada,
                 @horaSalida = C.HoraSalida
          FROM @AsistenciaAux C
          WHERE sec = @low1

          SELECT @salarioPorHora = TC.SALARIO, @tiempoNormal = datediff(hour, J.HORA_INICIO, J.HORA_FIN)
          FROM SALARIOXHORA TC
                 Inner join TIPO_JORNADA J on TC.ID_TIPO_JORNADA = J.ID
          WHERE TC.ID_TIPO_JORNADA = @idTipoJornada
            and TC.ID_PUESTO = @valorDocId

          /* Crea asistencia*/
          INSERT INTO ASISTENCIA (FECHA, ID_OBRERO, ID_TIPO_JORNADA, HORA_ENTRADA, HORA_SALIDA)
          SELECT @fecha_inicio, @valorDocId, @idTipoJornada, @horaEntrada, @horaSalida


          set @horas = datediff(hour, @horaEntrada, @horaSalida)


          IF (@horas < 0)
            set @horas = 24 + @horas
          IF (@tiempoNormal < 0)
            set @tiempoNormal = 24 + @tiempoNormal

          /*
           * Agregar dinero ganado
           ************* TODO: Agregar dinero ganado por horas extras
           */
          UPDATE PLANILLA_MENSUAL
          SET SALARIO_BRUTO = SALARIO_BRUTO + (@salarioPorHora * @horas)
              OUTPUT inserted.ID into @idPlanillaMensual
          WHERE ID_OBRERO = @valorDocId
            and MES = MONTH(@viernesDePlanilla)
            and ANNO = YEAR(@viernesDePlanilla)
          IF @@ROWCOUNT = 0
            INSERT INTO PLANILLA_MENSUAL ("ID_OBRERO", "SALARIO_BRUTO", "SALARIO_NETO", "MES", "ANNO")
                OUTPUT inserted.ID into @idPlanillaMensual
            values (@valorDocId, (@salarioPorHora * @horas), 0, MONTH(@viernesDePlanilla), YEAR(@viernesDePlanilla))

          UPDATE PLANILLA_SEMANA
          SET SALARIO_BRUTO = SALARIO_BRUTO + (@salarioPorHora * @horas)
              OUTPUT inserted.ID into @idPlanillaSemanal
          WHERE ID_PLANILLA_MENSUAL = @idPlanillaMensual
            and FECHA = @sabadoDePlanilla
          IF @@ROWCOUNT = 0
            INSERT INTO PLANILLA_SEMANA (ID_PLANILLA_MENSUAL, "SALARIO_BRUTO", "SALARIO_NETO", FECHA)
                OUTPUT inserted.ID into @idPlanillaSemanal
            values (@valorDocId, (@salarioPorHora * @horas), 0, @sabadoDePlanilla)

          --Agregar movimiento
          INSERT INTO MOVIMIENTO ("ID_PLANILLA_SEMANAL", "ID_OBRERO", "FECHA", "MONTO", "TIPO_MOVIMIENTO")
          VALUES (@idPlanillaSemanal,
                  @valorDocId,
                  @fecha_inicio,
                  (@salarioPorHora * @horas),
                  1) --3 porque es el valor del id de movimiento por incapacidad en la tabla respectiva

          --Se agregan horas extras

          Set @horas = @horas - @tiempoNormal
          If (@horas > 0)
            begin
              Update PLANILLA_SEMANA
              set SALARIO_NETO = SALARIO_NETO + (@horas * @salarioPorHora * 1.5)
              where ID = @idPlanillaSemanal
              INSERT INTO MOVIMIENTO ("ID_PLANILLA_SEMANAL", "ID_OBRERO", "FECHA", "MONTO", "TIPO_MOVIMIENTO")
              VALUES (@idPlanillaSemanal,
                      @valorDocId,
                      @fecha_inicio,
                      (@salarioPorHora * @horas * 1.5),
                      2)

            end

   --Agrega extra por feriado o si es domingo
   Select @Feriado = count(Fecha) from Feriado where month(@fecha_inicio)=month(Fecha) and day(@fecha_inicio)=day(Fecha) or datepart(dw,@fecha_inicio)=7
   if(@Feriado > 0)
   begin
    UPDATE PLANILLA_SEMANA
    SET SALARIO_BRUTO = SALARIO_BRUTO + (@salarioPorHora * @horas) --Se agrega el doble porque se trabaja el dia feriado
                OUTPUT inserted.ID into @idPlanillaSemanal
    WHERE ID_PLANILLA_MENSUAL = @idPlanillaMensual

    --Agregar movimiento
    INSERT INTO MOVIMIENTO("ID_PLANILLA_SEMANAL",
                                 "ID_OBRERO",
                                 "FECHA",
                                 "MONTO",
                                 "TIPO_MOVIMIENTO")
    VALUES (@idPlanillaSemanal,
                  @valorDocId,
                  @fecha_inicio,
                  (@salarioPorHora * @horas),
                  2) --2 porque es el valor del id de movimiento por jornada extraordinaria
   end
          SET @low1 = @low1 + 1
        END


      /*
       Cargar deducciones
       Se agrega el movimiento pero NO se descuenta (eso se hace en el cierre)
       */
      INSERT @DeduccionAux (DocId, idTipoDeduccion, Valor)
      SELECT Child.value('(@DocId)[1]', 'numeric(12)'),
             Child.value('(@idTipoDeduccion)[1]', 'int'),
             Child.value('(@valor)[1]', 'money')
      FROM @XML.nodes('dataset/FechaOperacion/NuevaDeduccion') AS N (Child)
      WHERE @fecha_inicio = Child.value('../@Fecha', 'date')

      /*
       * Guardar deducciones en la base de datos
        Se agrega el movimiento pero NO se descuenta (eso se hace en el cierre)
       */
      SELECT @low1 = min(sec), @high1 = max(sec) FROM @DeduccionAux
      WHILE @low1 <= @high1
        BEGIN
          SELECT @valorDocId = M.DocId, @idTipoDeduccion = M.idTipoDeduccion, @valor = M.Valor
          FROM @DeduccionAux M
          WHERE sec = @low1

          SELECT @idPlanillaMensual = MENSUAL.ID
          FROM PLANILLA_SEMANA P
                 inner join PLANILLA_MENSUAL MENSUAL on P.ID_PLANILLA_MENSUAL = MENSUAL.ID
          WHERE MENSUAL.ID_OBRERO = @valorDocId
            and P.FECHA = @sabadoDePlanilla


          INSERT INTO MOVIMIENTO ("ID_PLANILLA_MENSUAL", "ID_OBRERO", "FECHA", "MONTO", "TIPO_MOVIMIENTO")
          VALUES (@idPlanillaMensual, @valorDocId, @fecha_inicio, @valor, @idTipoDeduccion + 5)

          --IF (@idTipoDeduccion = 1 OR @idTipoDeduccion= 2)
          --  BEGIN
          --    UPDATE PLANILLA_SEMANA
          --    SET SALARIO_BRUTO=SALARIO_BRUTO*(1-(@valor/100)),
          --        QopManual += 1
          --    WHERE IdCuenta = @codCuenta
          --  END
          --IF (@IdTipoCuenta = 2 OR @IdTipoCuenta = 4)
          --  BEGIN
          --    UPDATE EstadoCuenta
          --    SET SaldoFinal += @Monto,
          --        QopATM += 1
          --    WHERE IdCuenta = @codCuenta
          --  END
          --/**/
          --IF (@IdTipoCuenta = 1 OR @IdTipoCuenta = 2 OR @IdTipoCuenta = 6)
          --  BEGIN
          --    UPDATE Cuenta SET SaldoActual += @Monto WHERE CodigoCuenta = @codCuenta
          --  END
          --ELSE BEGIN
          --  UPDATE Cuenta SET SaldoActual -= @Monto WHERE CodigoCuenta = @codCuenta
          --END

        END

      /*
       Cargar bonos
       */
      INSERT @Bono (DocId, Monto)
      SELECT Child.value('(@DocId)[1]', 'numeric(12)'), Child.value('(@valor)[1]', 'money')
      FROM @XML.nodes('dataset/FechaOperacion/Bono') AS N (Child)
      WHERE @fecha_inicio = Child.value('../@Fecha', 'date')

      /*
      Guardar bonos en base de datos
      En este caso si se agrega a la planilla
       */
      SELECT @low1 = min(sec), @high1 = max(sec) FROM @Bono
      WHILE @low1 <= @high1
        BEGIN
          SELECT @valorDocId = M.DocId, @valor = M.Monto FROM @Bono M WHERE sec = @low1

          SELECT @idPlanillaSemanal = P.ID
          FROM PLANILLA_SEMANA P
                 inner join PLANILLA_MENSUAL MENSUAL on P.ID_PLANILLA_MENSUAL = MENSUAL.ID
          WHERE MENSUAL.ID_OBRERO = @valorDocId
            and P.FECHA = @sabadoDePlanilla


          INSERT INTO MOVIMIENTO ("ID_PLANILLA_SEMANAL", "ID_OBRERO", "FECHA", "MONTO", "TIPO_MOVIMIENTO")
          VALUES (@idPlanillaSemanal,
                  @valorDocId,
                  @fecha_inicio,
                  @valor,
                  4) --4 porque es el valor del id de movimiento tipo bono en la tabla respectiva

          UPDATE PLANILLA_SEMANA SET SALARIO_NETO = SALARIO_NETO + @valor WHERE ID = @idPlanillaSemanal

        END


      /*
       Cargar incapacidades en tabla auxiliar
       */
      INSERT @IncapacidadAux (DocId, idTipoJornada)
      SELECT Child.value('(@DocId)[1]', 'numeric(12)'), Child.value('(@idTipoJornada)[1]', 'int')
      FROM @XML.nodes('dataset/FechaOperacion/Incapacidad') AS N (Child)
      WHERE @fecha_inicio = Child.value('../@Fecha', 'date')


      /*
      Cargar incapacidades en la base de datos
      Si se guardan los movimientos y se agrega en la planilla
       */
      SELECT @low1 = min(sec), @high1 = max(sec) FROM @IncapacidadAux
      WHILE @low1 <= @high1
        BEGIN
          SELECT @valorDocId = C.DocId, @idTipoJornada = C.idTipoJornada FROM @IncapacidadAux C WHERE C.sec = @low1

          --REgistro la incapacidad
          INSERT INTO INCAPACIDAD (ID_OBRERO, ID_TIPO_JORNADA, FECHA)
          VALUES (@valorDocId, @idTipoJornada, @fecha_inicio)
          SET @low1 = @low1 + 1

          --obtengo la planilla
          --SELECT @idPlanillaSemanal=P.ID
          --FROM PLANILLA_SEMANA P
          --  inner join PLANILLA_MENSUAL MENSUAL on P.ID_PLANILLA_MENSUAL = MENSUAL.ID
          --WHERE MENSUAL.ID_OBRERO=@valorDocId and P.FECHA=@sabadoDePlanilla


          Select @salarioPorHora = sxh.SALARIO * (0.6)
          from SALARIOXHORA sxh
                 inner join OBRERO o on sxh.ID_PUESTO = o.ID_PUESTO
          where sxh.ID_TIPO_JORNADA = @idTipoJornada


          IF (@idTipoJornada = 1)
            begin
              set @horas = 8
            end
          ELSE IF (@idTipoJornada = 2)
            begin
              set @horas = 5
            end
          ELSE begin
            set @horas = 11
          end

          UPDATE PLANILLA_MENSUAL
          SET SALARIO_BRUTO = SALARIO_BRUTO + (@salarioPorHora * @horas)
              OUTPUT inserted.ID into @idPlanillaMensual
          WHERE ID_OBRERO = @valorDocId
            and MES = MONTH(@sabadoDePlanilla)
            and ANNO = YEAR(@sabadoDePlanilla)
          IF @@ROWCOUNT = 0
            INSERT INTO PLANILLA_MENSUAL ("ID_OBRERO", "SALARIO_BRUTO", "SALARIO_NETO", "MES", "ANNO")
                OUTPUT inserted.ID into @idPlanillaMensual
            values (@valorDocId, (@salarioPorHora * @horas), 0, MONTH(@sabadoDePlanilla), YEAR(@sabadoDePlanilla))

          UPDATE PLANILLA_SEMANA
          SET SALARIO_BRUTO = SALARIO_BRUTO + (@salarioPorHora * @horas)
              OUTPUT inserted.ID into @idPlanillaSemanal
          WHERE ID_PLANILLA_MENSUAL = @idPlanillaMensual
            and FECHA = @sabadoDePlanilla
          IF @@ROWCOUNT = 0
            INSERT INTO PLANILLA_SEMANA (ID_PLANILLA_MENSUAL, "SALARIO_BRUTO", "SALARIO_NETO", FECHA)
                OUTPUT inserted.ID into @idPlanillaSemanal
            values (@valorDocId, (@salarioPorHora * @horas), 0, @sabadoDePlanilla)

          INSERT INTO MOVIMIENTO ("ID_PLANILLA_SEMANAL", "ID_OBRERO", "FECHA", "MONTO", "TIPO_MOVIMIENTO")
          VALUES (@idPlanillaSemanal,
                  @valorDocId,
                  @fecha_inicio,
                  (@salarioPorHora * @horas),
                  3) --3 porque es el valor del id de movimiento por incapacidad en la tabla respectiva


        END

      --------------------------------------------------------------
      --------------------------------------------------------------
      --------------------------------------------------------------
      --------------------------------------------------------------

      --Cierre
      IF (@numeroDiaEnSemana = 6)
        begin
          --Donde 6 es Viernes
          IF (@numeroDiaEnSemana =
              DATEADD(
                  DY,
                  DATEDIFF(
                      DY,
                      '1900-01-05',
                      DATEADD(
                          MM,
                          DATEDIFF(
                              MM, 0, @fecha_inicio), 30)) / 7 * 7, '1900-01-05')) --Es el ultimo viernes? Heh
            begin
              --Cierre mensual
              insert into @cierrePlanillaMenAux (idMensual, monto, mes, anno)
              SELECT PM.ID, PM.SALARIO_BRUTO, PM.MES, PM.ANNO
              FROM PLANILLA_MENSUAL PM
              WHERE PM.MES = MONTH(@fecha_inicio)

              SELECT @low1 = min(sec), @high1 = max(sec) FROM @cierrePlanillaMenAux
              while @low1 <= @high1
              BEGIN
                SELECT @idPlanillaMensual = C.idMensual, @valor = C.monto
                FROM @cierrePlanillaMenAux C
                where C.sec = @low1

                UPDATE PLANILLA_MENSUAL
                set SALARIO_NETO = SALARIO_BRUTO
                where ID = @idPlanillaMensual

              END

            end
          else begin
            --Cierre semana
            insert into @cierrePlanillaSemAux (idMensual, idSemanal, monto, tipo_mov, fecha)
            SELECT PS.ID, PS.ID_PLANILLA_MENSUAL, MOV.MONTO, MOV.TIPO_MOVIMIENTO, MOV.FECHA
            From PLANILLA_SEMANA PS
                   inner join PLANILLA_MENSUAL MENSUAL2 on PS.ID_PLANILLA_MENSUAL = MENSUAL2.ID
                   inner join MOVIMIENTO MOV on PS.ID = MOV.ID_PLANILLA_MENSUAL
            where PS.FECHA = @sabadoDePlanilla --and @idTipoMov=6 or @idTipoMov=7

            SELECT @low1 = min(sec), @high1 = max(sec) FROM @cierrePlanillaSemAux
            while @low1 <= @high1
              BEGIN
                select @idPlanillaSemanal = c.idSemanal, @valor = C.monto, @idTipoMov = C.tipo_mov, @fecha = C.fecha
                from @cierrePlanillaSemAux C
                where C.sec = @low1
                --Agregar salario neto
                update PLANILLA_SEMANA set SALARIO_NETO = SALARIO_NETO + SALARIO_BRUTO where ID = @idPlanillaSemanal

                --Procesar deducciones porcentuales
                IF (@idTipoMov = 6 or @idTipoMov = 7)
                  begin
                    update PLANILLA_SEMANA
                    set SALARIO_NETO = SALARIO_NETO - (SALARIO_BRUTO * (@valor / 100))
                    where ID = @idPlanillaSemanal
                  end
                ELSE IF (@idTipoMov = 8 or @idTipoMov = 9) --procesar deducciones "fijas"
                  BEGIN
                    set @numeroDeVierneses = datediff(day, -3,
                                                      DATEADD(dd, -1, DATEADD(mm, DATEDIFF(mm, 0, GETDATE()) + 1, 0))
                                                      --ultimo dia
                                             ) / 7 - datediff(day, -2,
                                                              @fecha) --primer dia
                                                     / 7

                    update PLANILLA_SEMANA
                    set SALARIO_NETO = SALARIO_NETO - (@valor / @numeroDeVierneses) -- Todo: fix this. Baja toda la deduccion en una semana, coz reasons
                    where ID = @idPlanillaSemanal
                  end
              end

          end
        end


      SET @fecha_inicio = DATEADD(DD, 1, @fecha_inicio)

      DELETE FROM @EmpleadoAux
      DELETE FROM @AsistenciaAux
      DELETE FROM @DeduccionAux
      DELETE FROM @Bono
      DELETE FROM @tabla_fechas
      DELETE FROM @cierrePlanillaSemAux

      --select * from Cliente
      --select * from Cuenta
      --select * from Movimiento
      --select * from MovimientoIntereses
      --select * from EstadoCuenta


    END
  --Fin
END