{

     PROGRAMA        : NOPRMT030
     OBJETIVO        : GENERAR INFORMACION PARA LAS HORAS EXTRAS Y TRABAJADAS A PARTIR DE LOS
                       DISPOSITIVOS BIOMETRICOS
     DESARROLLADO POR: ING. JUAN SOTO
     FECHA DESARROLLADO: JUNIO 30, 2021     
     DETALLE ADICIONAL: ESTE PROGRAMA USA UNAS TABLAS INTERMEDIAS PARA PODER RESOLVER EL TEMA DE QUE UN EMPLEADO
                        PUNCHE DOS VECES EN LOS DISPOSITIVOS BIOMETRICOS, RESOLVIENDO QUE EL PROCESO SOLO TOME
                        UNA DE LAS DOS REGISTROS PARA EL MISMO DIA AL MOMENTO DE LA ENTRADA O LA SALIDA 
}

GLOBALS "noprgb000.4gl"
  DEFINE buf base.StringBuffer,
         chdepartamento STRING
  DEFINE fecha_inicial,fecha_final,fecha_corte DATE,
         criterio,selec,respuesta,criterioborrar STRING,
         data1 RECORD 
            USERID int,CHECKTIME DATETIME YEAR TO minute,CHECKTYPE CHAR(1)
         END RECORD,
         xtipoemp CHAR(1),
         xdepartamento,xnivel,xpuesto,pbar,numnomi,numemp,xuserid,xdia,xmes,xwd,dnumnomi,horaAlmuerzo,idx INT,
         nombreempleado VARCHAR(100),
         
         xhtrabajadas ,xhextras35,xhextras100 DEC(12,2),
         fechaEntrada,fechaSalida,xhoraentrada,xhorasalida,xhhsalida DATETIME HOUR TO MINUTE,
         cantidadh35,cantidadh100,cantidadTrabajadas,valorExtra35,valorExtra100,salario_diario,salario,
         salario_hora    DEC(12,2),
         chcantidad35,chcantidad100,chcantidadtrabaja CHAR(20),
         arr_departamentos DYNAMIC ARRAY OF RECORD
           chequeado  SMALLINT,
           departamento INT,
           titulo VARCHAR(100),
           tipodepto VARCHAR(100)
         END RECORD,
         arr_data DYNAMIC ARRAY OF RECORD
            empleado,
            xtrabajadas,xextras35,xhextras100 STRING,
            num_emp INT
         END RECORD
         
MAIN
 DEFER INTERRUPT
 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave
 
 CONNECT to "smarmotech" USER  usuarios USING clave
 SELECT * INTO p_companias.* FROM companias
 
 CALL noprmt038()
END MAIN

FUNCTION noprmt038()

  OPEN WINDOW w1 WITH FORM "nofmmt038"
  DIALOG ATTRIBUTE(UNBUFFERED)
  INPUT BY NAME fecha_inicial,fecha_final
    BEFORE INPUT  
    #  CALL rangofechas()
        SELECT MIN(a.num_nomi) INTO numnomi FROM notb00010 a  
       WHERE  a.fecha_del > '04/30/2023'

       SELECT DISTINCT a.fecha_inicio_trabajadas,a.fecha_final_trabajadas 
       INTO fecha_inicial,fecha_final 
       FROM notb00010 a 
       WHERE a.num_nomi = numnomi AND a.status_t IS NULL
       IF STATUS = NOTFOUND THEN
          DISPLAY BY NAME numnomi,fecha_inicial,fecha_final
          CALL fgl_winmessage("INFO","NOMINA NO EXISTE O ESTA CERRADA, NO PUEDES GENERAR H. EXTRAS","stop")
          RETURN
       END IF
        
       DISPLAY BY NAME numnomi,fecha_inicial,fecha_final
      CALL departamentos()

    AFTER INPUT
       
     
       
       END INPUT
       INPUT ARRAY arr_departamentos FROM sdepartamentos.* ATTRIBUTE(WITHOUT DEFAULTS)
       
       AFTER INPUT
          
       END INPUT
       
    ON ACTION procesar ATTRIBUTE(TEXT="Procesa")
              
            
                  LET selec = "SELECT DATEDIFF(minute,?,?) "
                  PREPARE comando FROM selec

                  LET criterio = "b.departamento in ("
                  FOR idx = 1 TO arr_departamentos.getLength()
                      IF arr_departamentos[idx].chequeado =1 THEN
                         LET chdepartamento = chdepartamento CLIPPED,arr_departamentos[idx].departamento USING "<<<<",","
                      END IF
                  END FOR
                  IF chdepartamento IS NOT NULL THEN
                      LET criterio = criterio CLIPPED,chdepartamento CLIPPED,")"
                      LET criterioborrar = criterio CLIPPED,chdepartamento CLIPPED,")"
                      
                      LET buf = base.StringBuffer.create()
                      CALL buf.append(criterio)
                      
                      CALL buf.replace(",)",")",1)
                      LET criterio =  buf.toString()
                      
                      CALL buf.replace("b.","",1)
                      LET criterioborrar = buf.toString()
                      DISPLAY "criterioborrar ",criterioborrar
                  ELSE 
                     LET criterio = 'b.departamento=b.departamento '    
                  END IF                              
                  LET horaAlmuerzo = 1
                  # BORRA LA DATA EN EL RANGO DE FECHAS
                  LET pbar = 10
                  CALL ui.Interface.refresh() 
                  DISPLAY pbar TO pbar
                
                  DISPLAY "BORRANDO INFORMACION.... " TO mensajes 
                  LET selec =
                  "DELETE FROM checkinout1   WHERE checktime BETWEEN ? AND ?  "
                  PREPARE borrar1 FROM selec
                  EXECUTE borrar1 USING fecha_inicial,fecha_final

                  LET selec =
                  "DELETE FROM checkinout2   WHERE checktime BETWEEN ? AND ?  "

                  PREPARE borrar2 FROM selec
                  EXECUTE borrar2 USING fecha_inicial,fecha_final
                  
                  LET pbar = 20
                  CALL ui.Interface.refresh() 
                  DISPLAY pbar TO pbar  
                
                  # BORRA REGISTROS DE LA TABLA DE NOVEDADES DEL SISTEMA DE NOMINAS
              #    DECLARE novedad CURSOR FOR
              #      SELECT DISTINCT a.num_nomi FROM checkinout a WHERE checktime BETWEEN fecha_inicial AND fecha_final
              #     FOREACH novedad INTO dnumnomi
              
              #     END FOREACH
                  LET selec =
                  "DELETE FROM CHECKINOUT_calculo  WHERE checktime BETWEEN ? AND ? and ",criterioborrar CLIPPED
                  PREPARE borra3 FROM selec
                  EXECUTE borra3 USING fecha_inicial,fecha_final
                  
                  LET pbar = 30
                  CALL ui.Interface.refresh() 
                  DISPLAY pbar TO pbar 
                  
                  LET selec = "	SELECT a.USERID,MIN(a.CHECKTIME),a.CHECKTYPE from facial.dbo.CHECKINOUT_calculo  a
                                 RIGHT OUTER JOIN marmotech.dbo.adtb00003 b ON a.userid = b.cuenta_out and b.status_T is null
                                where a.CHECKTIME between ? and ?  and ",criterio CLIPPED, 
                                " GROUP BY a.USERID,a.CHECKTYPE,CAST(checktime as date) "

                     PREPARE comando1 FROM selec
                     DECLARE busca1 CURSOR FOR comando1 
                     OPEN busca1 USING fecha_inicial,fecha_final

                     
                 DISPLAY "INICIO PROCESO.... " TO mensajes
                 FOREACH busca1 INTO data1.*
                  IF EXTEND(data1.CHECKTIME,HOUR TO MINUTE) < '11:00' THEN
                     LET data1.CHECKTYPE = 'I'
                  END IF
                  IF EXTEND(data1.CHECKTIME,HOUR TO MINUTE) > '11:01' THEN
                     LET data1.CHECKTYPE = 'O'
                  END IF   
                   
                  INSERT INTO CHECKINOUT1(USERID,CHECKTIME,CHECKTYPE) VALUES (data1.*)
                 END FOREACH
                  LET pbar = 60
                  CALL ui.Interface.refresh() 
                  DISPLAY pbar TO pbar
                # PROCESO DE GENERACION HORAS EXTRAS, TRABAJADAS

                     LET selec = " SELECT a.userid,a.checktime,a.checktype from
                                         CHECKINOUT1 a RIGHT OUTER JOIN adtb00003 b ON a.userid = b.cuenta_out and b.status_t is null
                                   where a.CHECKTIME between ? and ? and ",criterio CLIPPED
                                   
                     PREPARE comando3 FROM selec
                     DECLARE buscaemp SCROLL CURSOR FOR comando3
                     OPEN buscaemp USING fecha_inicial,fecha_final

                     LET idx = 1
        BEGIN WORK   
                     FOREACH buscaemp INTO data1.* 
                        
                        SELECT UNIQUE a.num_emp,RTRIM(a.nom1_emp)||' '||a.apell1_emp,
                               a.departamento,a.cod_puesto,a.nivel_emp,b.userid,a.nomina,
                               a.sueldo_ac
                        INTO numemp,nombreempleado,xdepartamento,xpuesto,xnivel,xuserid,xtipoemp,
                             salario    
                        from adtb00003 a,CHECKINOUT1 b
                        where a.cuenta_out = b.USERID AND b.userid = data1.USERID AND b.checktime = data1.CHECKTIME AND
                              b.checktype = data1.CHECKTYPE

                        # Adicionando al arreglo
                        LET arr_data[idx].empleado = "(",numemp USING "<<<<",") ",nombreempleado CLIPPED,
                                                     "(",xuserid USING "<<<<<<<",")"

                        LET salario_diario =salario/23.83
                        
                        IF data1.CHECKTYPE = 'O' THEN
                           SELECT MIN(a.checktime) INTO fechaEntrada from CHECKINOUT1 a 
                           WHERE cast(a.checktime as date) = CAST(data1.CHECKTIME AS DATE) 
                                    and a.userid =data1.USERID and a.CHECKTYPE='I'

                                 
                           SELECT MAX(a.checktime) INTO fechaSalida from CHECKINOUT1 a 
                           WHERE cast(a.checktime as date) = CAST(data1.CHECKTIME AS DATE) 
                           and a.userid =data1.USERID and a.CHECKTYPE='O'   
              
                            LET xhhsalida = data1.CHECKTIME
                       
                          EXECUTE comando INTO xhtrabajadas USING fechaentrada,fechasalida
                          LET xhtrabajadas = xhtrabajadas/60
                          LET xhtrabajadas = xhtrabajadas - horaAlmuerzo
                          
                            LET chcantidadtrabaja = xhtrabajadas

                            LET arr_data[idx].xtrabajadas = chcantidadtrabaja


        
                           LET xwd = WEEKDAY(data1.CHECKTIME)
                           IF xwd > 0 THEN      

                #--------- BUSCAR HORARIOS EMPLEDOS
                                  SELECT a.entrada,a.salida INTO xhoraentrada,xhorasalida FROM adtb00054 a,adtb00055 b 
                                  WHERE a.id_hora = b.id_horario and b.num_emp=numemp AND b.fecha = CAST(data1.CHECKTIME AS DATE)
DISPLAY "fecha ",data1.CHECKTIME," entrada ",xhoraentrada," salida ",xhorasalida
                                  LET xhhsalida = data1.CHECKTIME
                                  DISPLAY "HORAS: ",xhorasalida," ",xhhsalida," EMP ",numemp
                                  IF xhorasalida < xhhsalida THEN
                                     EXECUTE comando INTO xhextras35 USING xhorasalida,xhhsalida
                                     DISPLAY "HORA EXTRA: ",xhextras35," EMP ",numemp
                                     LET xhextras35 = xhextras35/60
                       
                                   # LET xhextras35 =  xhhsalida -  xhorasalida
                                    LET chcantidad35 = xhextras35
                                    LET cantidadh35 = chcantidad35

                                    LET arr_data[idx].xextras35 = cantidadh35        
                                  END IF
                                 
                               ELSE
                               # DIAS FERIADOS
                                     LET xhorasalida = EXTEND(fechaEntrada,HOUR TO MINUTE)
                                     LET xhhsalida  = EXTEND(data1.CHECKTIME, HOUR TO MINUTE)
                                     EXECUTE comando INTO xhextras100 USING xhorasalida,xhhsalida
                                     LET xhextras100 = xhextras100/60
                       
                          #          LET xhextras100 =  EXTEND(data1.CHECKTIME, HOUR TO MINUTE) - EXTEND(fechaEntrada,HOUR TO MINUTE)
                                    LET chcantidad100 = xhextras100
                                    LET cantidadh100 = chcantidad100

                                    LET arr_data[idx].xhextras100 = cantidadh100
                                    
                               END IF
                               # dias feriados fuera del domingo
                               LET xmes = MONTH(data1.CHECKTIME)
                               LET xdia = DAY(data1.CHECKTIME) 
                                                                  
                                SELECT a.dias FROM notb00012 a WHERE a.cod_mes = xmes and a.dias = xdia
                                IF STATUS <> NOTFOUND THEN
    
                                     LET xhorasalida = EXTEND(fechaEntrada,HOUR TO MINUTE)
                                     LET xhhsalida  = EXTEND(data1.CHECKTIME, HOUR TO MINUTE)
                                     EXECUTE comando INTO xhextras100 USING xhorasalida,xhhsalida
                                     LET xhextras100 = xhextras100/60

                                     LET arr_data[idx].xhextras100 = xhextras100
                                END IF
                             END IF   
                                SELECT DISTINCT a.checktime FROM checkinout_calculo a WHERE a.checktime = data1.CHECKTIME AND
                                                                                    a.userid = data1.USERID
                                IF STATUS = NOTFOUND THEN
                                    INSERT INTO CHECKINOUT_calculo (userid,CHECKTIME,CHECKTYPE,num_emp,nombre_empleado,
                                                            h_trabajadas,h_extras35,h_extras100,departamento)
                                    values (data1.*,numemp,nombreempleado,xhtrabajadas,xhextras35,xhextras100,xdepartamento)
                                END IF
                                IF cantidadh35 > 0 THEN
                  
              #empleado a        3335         860.26          37.64           2.00          75.28 sueldo       20500.00                     
                                   LET salario_hora   = (salario_diario / 8)*1.35
                                   
                                   LET valorExtra35 = salario_hora * cantidadh35
                                   IF valorExtra35 IS NULL THEN
                                      LET valorExtra35 =0
                                   END IF
                                       SELECT a.num_emp FROM notb00007 a 
                                       WHERE a.num_nomi = numnomi AND a.num_emp = numemp AND a.cod_mov = 3
                                       IF STATUS = NOTFOUND THEN
                                             INSERT INTO notb00007 
                                               (num_nomi,tipo_emp,cod_mov,num_emp,departamento,departamento_afecta,cod_puesto,nivel_emp,cantidad,valor,us_crea,fech_crea)
                                             VALUES (numnomi,xtipoemp,3,numemp,xdepartamento,xdepartamento, xpuesto,xnivel,cantidadh35,valorExtra35,'noprmt030',getdate())
                                       ELSE
                                          
                                             UPDATE notb00007 SET cantidad = cantidad + cantidadh35,us_mod = 'noprmt030',fech_mod = getdate(),
                                                               valor    = valor + valorExtra35
                                             WHERE num_emp = numemp AND num_nomi = numnomi AND cod_mov = 3
                                       END IF
                                    
                                END IF
                                
                                IF cantidadh100 IS NOT NULL THEN
                                   LET salario_hora   = (salario_diario / 8)*2
                                   LET valorExtra100 = salario_hora * cantidadh100
                                   
                                   IF valorExtra100 IS NULL THEN
                                      LET valorExtra100 =0
                                   END IF
                                END IF
                                LET xhextras35   =0
                                LET xhextras100  = 0
                                LET xhtrabajadas =0
                                LET cantidadTrabajadas =0
                                LET cantidadh35=0
                                LET cantidadh100 =0
                                LET valorExtra100 =0
                                LET valorExtra35 = 0
                                IF pbar < 90 THEN
                                   IF idx = 4 THEN
                                      LET idx = 1
                                   END IF
                                   IF idx < 4 THEN
                                       LET pbar = pbar+1
                                       CALL ui.Interface.refresh()
                                       DISPLAY pbar TO pbar
                                   END IF
                                END IF
                                LET idx = idx + 1
                     END FOREACH
                     COMMIT WORK
                     
                     LET pbar = 100 
                     CALL ui.Interface.refresh()
                    DISPLAY pbar TO pbar
                    
                     CALL fgl_Winmessage("INFO","PROCESO TERMINADO","INFO")
                     DISPLAY ARRAY arr_data TO sdata.*
                     EXIT PROGRAM
        
             ON ACTION CANCEL
                LET int_flag = FALSE
                EXIT PROGRAM   
          END DIALOG      
END FUNCTION
FUNCTION departamentos()
   CALL arr_departamentos.clear()
   DECLARE busca_dep CURSOR FOR
      SELECT '0',a.departamento,a.nom_dpto,a.tipo_departamento
      FROM adtb00001 a,adtb00056 b WHERE  a.departamento = b.departamento_visualiza AND
                                          b.usuario = usuarios and 
                                          a.status_t IS NULL
      ORDER BY a.nom_dpto

      
      LET idx = 1
      FOREACH busca_dep INTO arr_departamentos[idx].*
         LET idx = idx + 1
      END FOREACH
      
END FUNCTION

FUNCTION calculo_extras()

END FUNCTION