/**************************************************************************************************
@Author: 黄千龙
@Name: EquipmentCoverageTargetBatch
@CreateDate: 22/03/2022
@Description: 是否续签率实际（分子）
@Version 1.0
*****************************************************************************************************/
global class EquipmentRenewMoleculeBatch implements Database.Batchable<sObject>,Database.Stateful {
    public String query;
    public Date toDayTime = Date.today();
    private BatchIF_Log__c iflog;
    public String OCSM_Period_half;
    public String OCSM_Period = 'FY'+(toDayTime.year()+1);
    public Date effectiveTime;
    public List < String > accountIdList;
    global EquipmentRenewMoleculeBatch() {
        this.query = query;
    }
    
    global Database.QueryLocator start(Database.BatchableContext bc) {
        iflog = new BatchIF_Log__c();
        iflog.Type__c = 'PushNotification';
        iflog.Log__c  = 'EquipmentRenewMoleculeBatch start\n';
        iflog.ErrorLog__c = '';
        insert iflog;
        
        // 1、1年以内续签且在2023年3月31日(2H)前系统生效完毕 2、上期合同属于续签目标清单内​
        query = 'select ID,LastMContract_Gap__c,Asset__c,Maintenance_Contract__c,LastMContract__c '
                +' from Maintenance_Contract_Asset__c '
                +' where LastMContract_Gap__c <= 366 and LastMContract_Gap__c !=null and IF_Target_MC_Asset_F__c =\'1\'  ';
        
        return Database.getQueryLocator(query);
    }   

    global void execute(Database.BatchableContext BC, list<Maintenance_Contract_Asset__c> MCAs) {
        if (toDayTime.month() >= 4 && toDayTime.month() <= 9) {
            OCSM_Period_half = '1H';
            effectiveTime = Date.newInstance(toDayTime.year(),9,30);
        }else{
            OCSM_Period_half = '2H';
            effectiveTime = Date.newInstance(toDayTime.year()+1,3,31);
        }
        List<ID> assetIDs = new List<ID>();
        List<ID> mcIDs = new List<ID>();
        List<ID> lastMCIDs = new List<ID>();

        for (Maintenance_Contract_Asset__c  mca: MCAs){
            assetIDs.add(mca.Asset__c);
            mcIDs.add(mca.Maintenance_Contract__c);
            lastMCIDs.add(mca.LastMContract__c);
        }

        List<Maintenance_Contract__c> mcList =[select ID, Contract_Conclusion_Date__c 
                                                    from Maintenance_Contract__c where ID in :mcIDs and Maintenance_Contract_No__c !=null and Contract_Conclusion_Date__c!=null and Contract_Conclusion_Date__c <= :effectiveTime];
        List<Maintenance_Contract__c> lastList =[select ID,IF_Taget_MC__c 
                                                    from Maintenance_Contract__c where ID in :lastMCIDs and IF_Taget_MC__c = '1'];
        List<Asset> assetList = [select ID,Product2.ServiceCategory__c,IF_Renewalrate_Real_Asset__c,IF_Renewalrate_Target_Asset__c,Hospital__c
                                    from Asset where ID in :assetIDs and IF_Renewalrate_Target_Asset__c = '1'];
        List<ID> assetIDs2 = new List<ID>();
        List<ID> mcIDs2 = new List<ID>();
        List<ID> lastMCIDs2 = new List<ID>();
        for (Maintenance_Contract__c mc : mcList){
            mcIDs2.add(mc.Id);
        }
        for (Maintenance_Contract__c lastmc : lastList){
            lastMCIDs2.add(lastmc.Id);
        }
        for (Asset asset : assetList){
            assetIDs2.add(asset.Id);
        }

        List<Maintenance_Contract_Asset__c> mcAssetList=[select ID,Asset__c from Maintenance_Contract_Asset__c
                                                            where Maintenance_Contract__r.Maintenance_Contract_No__c != null and Maintenance_Contract__c in :mcIDs2
                                                            and LastMContract__c in :lastMCIDs2
                                                            and Asset__c in :assetIDs2];
        List<ID> assetIDs3 = new List<ID>();
        for (Maintenance_Contract_Asset__c mcN : mcAssetList){
            assetIDs3.add(mcN.Asset__c);
        }
        List<Asset> assetListN = [select ID,Product2.ServiceCategory__c,IF_Renewalrate_Real_Asset__c,IF_Renewalrate_Target_Asset__c,Hospital__c
                                    from Asset where ID in :assetIDs3 ];

        List<Account_Service_Of_Target__c> asots = new List<Account_Service_Of_Target__c>();
        List<Id> accIds = new List<Id>();
        Map<String,Account_Service_Of_Target__c> asotMap = new Map<String,Account_Service_Of_Target__c>();
        for (Asset ass1 : assetListN) {
            accIds.add(ass1.Hospital__c);
        }

        List<Account_Service_Of_Target__c> asotList = [select Id,Renew_Finish_Rigid_Mirror_1__c,Renew_Finish_Rigid_Mirror_3__c,Renew_Finish_Correlation_Lightsource__c,Renew_Finish_Else__c,Account_HP__c,Account_HP__r.ID,OCSM_Period_half__c 
                                                    from Account_Service_Of_Target__c 
                                                    where Account_HP__c in :accIds and OCSM_Period_half__c = :OCSM_Period_half 
                                                    and OCSM_Period__c = :OCSM_Period];
        

        if (asotList.size() > 0) {
            for (Account_Service_Of_Target__c asot : asotList) {
                if (accIds.contains(asot.Account_HP__c)){
                    asotMap.put(asot.Account_HP__r.ID,asot);
                }

                // for (Id accid : accIds) {
                //     if (asot.Account_HP__c == accid) {
                //         asotMap.put(accid,asot);
                //     }
                // }
            }
        }

        List<Asset> AssetsReal = new List<Asset>();
        
        for ( Asset ass :  assetListN) {
            // 标记为是否续签实际设备
            ass.IF_Renewalrate_Real_Asset__c = '1';
            AssetsReal.add(ass); 

            // 实际续签数（硬）
            Integer mirror_5 = 0;
            // 实际续签数（周边）
            Integer mirror_6 = 0;
            // 实际续签数（软）
            Integer mirror_7 = 0;
            // 实际续签数(其他)
            Integer mirror_8 = 0;
            
            if (ass.Product2.ServiceCategory__c == '硬性镜') {
                mirror_5++;
            }
            if (ass.Product2.ServiceCategory__c == '周边') {
                mirror_6++;
            }
            if (ass.Product2.ServiceCategory__c =='软性镜') {
                mirror_7++;
            }
            if (ass.Product2.ServiceCategory__c == null) {
                mirror_8++;
            }
        
            if (asotMap.containsKey(ass.Hospital__c)) {
                Account_Service_Of_Target__c asotOne = new Account_Service_Of_Target__c();
                asotOne = asotMap.get(ass.Hospital__c);
                asotOne.Renew_Finish_Rigid_Mirror_3__c += mirror_5;
                asotOne.Renew_Finish_Correlation_Lightsource__c += mirror_6;
                asotOne.Renew_Finish_Rigid_Mirror_1__c += mirror_7;
                asotOne.Renew_Finish_Else__c += mirror_8;
                if (!asots.contains(asotOne)) {
                    asots.add(asotOne);
                } 
            }else{
                Account_Service_Of_Target__c asot1 = new Account_Service_Of_Target__c();
                asot1.Account_HP__c = ass.Hospital__c;
                asot1.Renew_Finish_Rigid_Mirror_3__c = mirror_5;
                asot1.Renew_Finish_Correlation_Lightsource__c = mirror_6;
                asot1.Renew_Finish_Rigid_Mirror_1__c = mirror_7;
                asot1.Renew_Finish_Else__c = mirror_8;
                asot1.OCSM_Period__c = OCSM_Period; 
                asot1.OCSM_Period_half__c = OCSM_Period_half;
                asotMap.put(ass.hospital__c,asot1);
                if (!asots.contains(asot1)) {
                    asots.add(asot1);
                }
            }
        }   
        if (AssetsReal!=null) {
            try {
                Oly_TriggerHandler.bypass('AssetTrigger');
                update AssetsReal;
            }
            catch (Exception e) {
                iflog.ErrorLog__c += 'ERROR'+'['+'update AssetsReal:'+']'+e.getMessage()+'\n';
             }
        }
        if (asots!=null) {
            try {
                UpSert asots;
            }
            catch (Exception e) {
                iflog.ErrorLog__c += 'ERROR'+'['+'UpSert asots:'+']'+e.getMessage()+'\n';
            }  
        } 
    }

    global void finish(Database.BatchableContext BC) {
        iflog.Log__c += '\nEquipmentRenewMoleculeBatch end';
        String tmp = iflog.ErrorLog__c;
        if (tmp.length() > 65000) {
            tmp = tmp.substring(0, 65000);
            tmp += ' ...have more lines...';
            iflog.ErrorLog__c = tmp;
        }
        update iflog;
    }
}