MAIN

CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'
CALL elimina()
END MAIN
FUNCTION elimina()
 DEFINE zk_numemp,numemp INT,
        nombre VARCHAR(100),
        selec STRING

        LET selec=
            "SELECT a.id,b.nom1_emp,b.num_emp FROM zkbiotime.dbo.hr_employee a,adtb00003 b 
             WHERE a.emp_cardnumber = b.num_emp AND b.status_t IS NOT NULL"

        PREPARE comando FROM selec
        DECLARE buscar CURSOR FOR comando


        LET selec = "DELETE FROM zkbiotime.dbo.att_punches WHERE employee_id = ?"

        PREPARE bpunches FROM selec
        
        LET selec = "DELETE FROM zkbiotime.dbo.hr_biotemplate WHERE employee_id = ?"

        PREPARE bbiotemplate FROM selec
        
        LET selec = "DELETE FROM zkbiotime.dbo.att_employee_zone WHERE employee_id = ?"
        PREPARE bzone FROM selec
        
        LET selec = "DELETE FROM zkbiotime.dbo.hr_employee WHERE id = ?"
        PREPARE employee FROM selec
        
        FOREACH buscar INTO zk_numemp,nombre,numemp

           EXECUTE bpunches USING zk_numemp
           EXECUTE bbiotemplate USING zk_numemp
           EXECUTE bzone USING zk_numemp
           EXECUTE employee USING zk_numemp
           
           
           DISPLAY "BORRE ",zk_numemp ,' ',nombre,' ',numemp

        END FOREACH      
END FUNCTION