clsImportProjectContractPosition Class

public class clsImportProjectContractPosition : clsImportBase

Public Class clsImportProjectContractPosition
	Inherits clsImportBase

public clsImportProjectContractPosition CreateContractPositionFixedPrice(int lContractID, string sItemCode) {
    Log($"CreateContractPositionFixedPrice(lContractID={lContractID}, sItemCode=\"{sItemCode}\")");

    // create contract position
    clsImportProjectContractPosition oPos = new clsImportProjectContractPosition();
    oPos.PositionTyp = clsImportProjectContractPosition.eContractPositionType.FixedPrice;
    oPos.ContractID = lContractID;
    oPos.Matchcode = "Fix Price Position";
    oPos.Description1 = "FP: Created from the interface";
    oPos.ContractQuantity = 1;
    oPos.ContractPrice = 10000;
    oPos.ItemCode = sItemCode;
    oPos.SalesPriceType = clsImportProjectContractPosition.eSalesPriceType.SalesPriceByContract; //IN20220719
    oPos.SalesPositionRebatePercentage = 0;//IN20220719

    //two accounting details 30%, 70%
    oPos.CollectionAccountingPos = new List<clsImportProjectContractPositionAccountingPos>();
    clsImportProjectContractPositionAccountingPos oAcc1 = new clsImportProjectContractPositionAccountingPos();
    oAcc1.AccountingType = clsImportProjectContractPositionAccountingPos.ePosAccountingType.DueDate;
    oAcc1.DueDate = new DateTime(2015, 1, 15);
    oAcc1.AccountingValue = 3000;
    oAcc1.Percentage = 30;
    oAcc1.Description = "First 30%";
    oPos.CollectionAccountingPos.Add(oAcc1);
    clsImportProjectContractPositionAccountingPos oAcc2 = new clsImportProjectContractPositionAccountingPos();
    oAcc2.AccountingType = clsImportProjectContractPositionAccountingPos.ePosAccountingType.DueDate;
    oAcc2.DueDate = new DateTime(2015, 5, 15);
    oAcc2.AccountingValue = 7000;
    oAcc2.Percentage = 70;
    oAcc2.Description = "Last 70%";
    oPos.CollectionAccountingPos.Add(oAcc2);
    return oPos;
}
public int ImportContractPositionFixedPrice(clsImportProjectContractPosition oPos) {
    Log($"ImportContractPositionFixedPrice(lContractID={oPos.ContractID}, sItemCode=\"{oPos.ItemCode}\")");

    // import contract position
    if (oMPInterface.bImportContractPosition(oPos, clsImportBase.eImportMode.ValidateAndImport)) {
        Log($"ImportContractPositionFixedPrice ContractPositionID={oPos.ContractPositionID}");
        return oPos.ContractPositionID;
    } else {
        // read import error
        LogFail(oMPInterface.oErrors.PrintErrors(true));
        return 0;
    }
}

public clsImportProjectContractPosition CreateContractPositionService(int lContractID) {
    Log($"CreateContractPositionService({lContractID})");
    // Create contract position
    clsImportProjectContractPosition oPos = new clsImportProjectContractPosition();
    oPos.PositionTyp = clsImportProjectContractPosition.eContractPositionType.ServiceAtCost;
    // existing contract id (found from the code below):
    // SELECT ContractID FROM MARIContract WHERE Projectnumber=N'P123456' AND ContractNumber = N'C1010100101'
    // QM default result: ContractID: 100028
    oPos.ContractID = lContractID;
    oPos.ServiceCode = "1010"; // Valid Service Type: SELECT ServiceNumber FROM MARIServices
    oPos.Matchcode = "oMPInterface Service Position";
    oPos.Description1 = "Service: Created from the interface";
    oPos.ContractQuantity = 1;
    oPos.ContractPrice = 85.50m;
    return oPos;
}
public int ImportContractPositionService(clsImportProjectContractPosition oPos) {
    Log($"CreateContractPositionService({oPos.ContractID})");

    // import contract position
    if (oMPInterface.bImportContractPosition(oPos, clsImportBase.eImportMode.ValidateAndImport)) {
        Log($"CreateContractPositionService: ContractPositionID={oPos.ContractPositionID}");
        return oPos.ContractPositionID;
    } else {
        LogFail(oMPInterface.oErrors.PrintErrors(true));
        return 0;
    }
}

public int CreateContractPositionEquipmentRental(int lContractID, int lEqupmentCategory, string sFilterEqiupmentMaster) {
    Log($"CreateContractPositionEquipmentRental({lContractID}, lEqupmentCategory={lEqupmentCategory}, sFilterEqiupmentMaster=\"{sFilterEqiupmentMaster}\")");
    // create contract position
    clsImportProjectContractPosition oPos = new clsImportProjectContractPosition();
    oPos.PositionTyp = clsImportProjectContractPosition.eContractPositionType.EquipmentTimeAtCost;
    oPos.ContractID = lContractID;
    oPos.Matchcode = "Equipment At Cost";
    oPos.Description1 = "Eq at Cost: Created from the interface";
    oPos.ContractQuantity = 1; // Quantity will be re calculated based on the number of equipment * number of days
    oPos.ContractPrice = 12.5m; // per day
    oPos.EquipmentCategory = lEqupmentCategory; // SELECT EquipmentCategory FROM MARIEquipmentCategory
    oPos.EquipmentStartDate = new DateTime(2015, 02, 3);
    oPos.EquipmentEndDate = oPos.EquipmentStartDate.AddDays(15);
    oPos.DeliveryDate = oPos.EquipmentStartDate;
    oPos.EquipmentQuantity = 2; //rent two equipment (per day)

    // Optional: Filter contract position to one equipment master. Equipment transactions are then only allowed to this equipment master.
    if (sFilterEqiupmentMaster != "") {
        oPos.EquipmentMasterList = new List<string>();
        oPos.EquipmentMasterList.Add(sFilterEqiupmentMaster);
    }

    // import contract position
    if (oMPInterface.bImportContractPosition(oPos, clsImportBase.eImportMode.ValidateAndImport)) {
        Log($"CreateContractPositionEquipmentRental: ContractPositionID={oPos.ContractPositionID}");
        return oPos.ContractPositionID;
    } else {
        // on import error
        LogFail(oMPInterface.oErrors.PrintErrors(true));
        return 0;
    }
}

/// <summary>
/// Example creates a sub contract with one header and two childs AND a position in the parent contract with the reference
/// </summary>
/// <param name="sProjectnumber">Example project to create this BOM hierarchy</param>
/// <returns></returns>
public int CreateSubContractWithLink(string sProjectnumber) {

    // Main Contract
    // 1.0 eContractPositionType.FixedPrice
    // 1.1 eContractPositionType.SubContractPosition [Link to the header position of the sub contract]
    // Sub Contract
    //    1.0 eContractPositionType.BOMHeader
    //    1.1 eContractPositionType.ItemAtFixedPrice
    //    1.2 eContractPositionType.ItemAtFixedPrice

    int lMainContractID = CreateContract(sProjectnumber, "Example with sub contracts " + DateTime.Now.ToShortDateString() + " " + DateTime.Now.ToShortTimeString());
    int lFixPricePositionID = CreateContractPosition(lMainContractID, clsImportProjectContractPosition.eContractPositionType.FixedPrice, "220000", "All In One", 1, 0);

    decimal QuantityOfSub = 2M;
    int lSubContractID = CreateSubContract(sProjectnumber, "BOM 1 sub contract", lMainContractID);
    int lSubContractHeadPos = CreateContractPosition(lSubContractID, clsImportProjectContractPosition.eContractPositionType.BOMHeader, "220001", "BOM 1", QuantityOfSub, 1); // The header in the subcontract does have also the type FixedPrice
    int lSubContractPos1___ = CreateContractPosition(lSubContractID, clsImportProjectContractPosition.eContractPositionType.ItemAtFixedPrice, "220002", "Item 1", 5 * QuantityOfSub, 5, "UKey 1100", lSubContractHeadPos);
    int lSubContractPos2___ = CreateContractPosition(lSubContractID, clsImportProjectContractPosition.eContractPositionType.ItemAtFixedPrice, "220003", "Item 2", 4 * QuantityOfSub, 4, "UKey 1200", lSubContractHeadPos);

    // Create Position in the main (parent Contract) with the link to the sub contract
    clsImportProjectContractPosition oPosInMainContrctForSubContract = new clsImportProjectContractPosition();
    oPosInMainContrctForSubContract.PositionTyp = clsImportProjectContractPosition.eContractPositionType.SubContractPosition;
    oPosInMainContrctForSubContract.ContractID = lMainContractID;
    oPosInMainContrctForSubContract.Matchcode = "BOM 1";
    oPosInMainContrctForSubContract.Description1 = "BOM 1";
    oPosInMainContrctForSubContract.ContractQuantity = 1; // when you have more than one, consider to fill also BaseQuantity in the sub contract
    oPosInMainContrctForSubContract.ContractPrice = 10000;
    oPosInMainContrctForSubContract.ItemCode = "220001";
    oPosInMainContrctForSubContract.ParentContractPosition = lFixPricePositionID; // link to fix price position above
    oPosInMainContrctForSubContract.SubContractID = lSubContractID; // link to the sub contract
    oPosInMainContrctForSubContract.SubContractPositionID = lSubContractHeadPos; // link to the head position
    oPosInMainContrctForSubContract.ExternalNumber = "UKey 1000";
    oPosInMainContrctForSubContract.ContractQuantity = QuantityOfSub;

    // Import Position in Main contract with the link
    if (oMPInterface.bImportContractPosition(oPosInMainContrctForSubContract, clsImportBase.eImportMode.ValidateAndImport)) {
        return lMainContractID;
    } else {
        // read import error
        Assert.False(true, oMPInterface.oErrors.PrintErrors(true));
        return 0;
    }
}


private int CreateSubContract(string sProject, string sContractName, int lMainContractID) {
    clsImportProjectContract oContract = new clsImportProjectContract();
    oContract.ProjectNumber = sProject; // existing project  P100005
    oContract.ContractNumber = oMPInterface.sGetNewContractNumber(sProject);  // new number based on settings
    oContract.Description = sContractName;
    oContract.ContractDate = DateTime.Now;
    oContract.CompanyID = 1;
    oContract.CustomerCode = "10006"; // valid customer number OCRD.CardCode
    oContract.ContractType = clsImportProjectContract.eContractTypes.SubContract;
    oContract.ValidPeriodFrom = 2016001; // Starting period for the contract YYYYMMM 
    oContract.BaseContractID = lMainContractID; // Points to the main contract (IndividualContractType)

    if (oMPInterface.bImportContract(oContract, clsImportBase.eImportMode.ValidateAndImport)) {
        return oContract.ContractID;
    } else {
        Assert.False(true, oMPInterface.oErrors.PrintErrors(true));
        return 0;
    }
}
private int CreateContractPosition(int lContract, clsImportProjectContractPosition.eContractPositionType nType,
    string sItemCode, string sDescription, decimal Quantity, decimal BaseQuantity, string sUniqueKey = "", int lParent = 0) {
    clsImportProjectContractPosition oPos = new clsImportProjectContractPosition();
    oPos.PositionTyp = nType;
    oPos.ContractID = lContract;
    oPos.Matchcode = sDescription;
    oPos.Description1 = sDescription;
    oPos.ContractQuantity = Quantity;
    oPos.BaseQuantity = BaseQuantity;
    oPos.ContractPrice = 10000;
    oPos.ItemCode = sItemCode;
    oPos.SalesPriceType = clsImportProjectContractPosition.eSalesPriceType.SalesPriceByContract;
    oPos.ExternalNumber = sUniqueKey;
    oPos.ParentContractPosition = lParent;
    if (oMPInterface.bImportContractPosition(oPos, clsImportBase.eImportMode.ValidateAndImport)) {
        return oPos.ContractPositionID;
    } else {
        Assert.False(true, oMPInterface.oErrors.PrintErrors(true));
        return 0;
    }
}

/// <summary>
/// Example creates a sub contract with one header and two childs AND a position in the parent contract with the reference
/// </summary>
/// <param name="lMainContractID"></param>
/// <param name="sItemCode"></param>
/// <returns></returns>
public int CreateSubContractWithBOMHierarchy(string sProjectnumber) {

    // Main Contract
    // 1.0 eContractPositionType.FixedPrice
    // 1.1 eContractPositionType.SubContractPosition [Link to the header position of the sub contract]
    // Sub Contract
    //    1.0 eContractPositionType.BOMHeader
    //    1.1 eContractPositionType.ItemAtFixedPrice
    //    1.2 eContractPositionType.ItemAtFixedPrice

    clsImportProjectContract MainContract = CreateNewContract(sProjectnumber, "Example with BOM Hierarchy");
    clsImportProjectContractPosition FixPos = NewContractPosition(MainContract, clsImportProjectContractPosition.eContractPositionType.FixedPrice, "220000", "All In One", 1);

    // 1. import fix price
    if (oMPInterface.bImportContractPosition(FixPos, clsImportBase.eImportMode.ValidateAndImport)) {

        //SubContract Position
        clsImportProjectContractPosition SubContractPos = NewContractPosition(MainContract, clsImportProjectContractPosition.eContractPositionType.SubContractPosition, "220001", "BOM 1", 2, "UKey 1000");
        SubContractPos.CollectionBOM = new List<clsImportProjectContractPosition>();
        SubContractPos.CollectionBOM.Add(NewContractPosition(MainContract, clsImportProjectContractPosition.eContractPositionType.ItemAtFixedPrice, "220002", "Item 1", 5, "UKey 1100"));
        SubContractPos.CollectionBOM.Add(NewContractPosition(MainContract, clsImportProjectContractPosition.eContractPositionType.ItemAtFixedPrice, "220003", "Item 2", 4, "UKey 1200"));

        // Store the reference to the fixed price position
        SubContractPos.ParentContractPosition = FixPos.ContractPositionID;

        //2. Import the SubContractPosition. Create a new sub contract and add all childs into the sub contract.
        if (oMPInterface.bImportContractPosition(SubContractPos, clsImportBase.eImportMode.ValidateAndImport)) {
            return MainContract.ContractID;
        } else {
            Assert.False(true, oMPInterface.oErrors.PrintErrors(true));
        }
    } else {
        Assert.False(true, oMPInterface.oErrors.PrintErrors(true));
    }
    return 0;
}

private clsImportProjectContract CreateNewContract(string sProject, string sContractName) {
    clsImportProjectContract oContract = new clsImportProjectContract();
    oContract.ProjectNumber = sProject; // existing project  P100005
    oContract.ContractNumber = oMPInterface.sGetNewContractNumber(sProject);  // new (visible) contract number based on automaric creation settings
    oContract.Description = sContractName + " " + DateTime.Now.ToShortDateString() + " " + DateTime.Now.ToShortTimeString();
    oContract.ContractDate = DateTime.Now;
    oContract.CompanyID = 1;
    oContract.CustomerCode = "10006"; // valid customer number OCRD.CardCode
    oContract.ContractType = clsImportProjectContract.eContractTypes.IndividualContract;
    oContract.ValidPeriodFrom = 2016001; // Starting period for the contract YYYYMMM 

    if (oMPInterface.bImportContract(oContract, clsImportBase.eImportMode.ValidateAndImport)) {
        return oContract;
    } else {
        Assert.False(true, oContract.IMPORT_ErrorMessage);
        return null;
    }
}
private clsImportProjectContractPosition NewContractPosition(clsImportProjectContract Contract, clsImportProjectContractPosition.eContractPositionType nType,
                string sItemCode, string sDescription, decimal cQuantity = 1, string sExternalNumber = null) {
    clsImportProjectContractPosition oPos = new clsImportProjectContractPosition();
    oPos.PositionTyp = nType;
    oPos.ContractID = Contract.ContractID;
    oPos.Matchcode = sDescription;
    oPos.Description1 = sDescription;
    oPos.ContractQuantity = cQuantity;
    oPos.ItemCode = sItemCode;
    oPos.ExternalNumber = sExternalNumber;
    return oPos;
}