<?php

include_once('vtlib/Vtiger/Menu.php');
include_once('vtlib/Vtiger/Module.php');

// Create module instance and save it first


/*$module = new Vtiger_Module();
$module->name = "Dispense";
$module->parent = 'PATIENT';
$module->save();

$module->initTables();
$module->initWebservice();


$block1 = new Vtiger_Block();
$block1->label = "LBL_DISPENSE_GLASSES";
$module->addBlock($block1);


$field1  = new Vtiger_Field();
$field1->name = 'dispense_no';
$field1->label= 'Dispense No';
$field1->uitype= 4;
$field1->column = $field1->name;
$field1->columntype = 'VARCHAR(255)';
$field1->typeofdata = 'V~M';
$block1->addField($field1);
$module->setEntityIdentifier($field1);

$field2  = new Vtiger_Field();
$field2->name = 'patient_detail';
$field2->label= 'Patient Detail';
$field2->uitype= 2;
$field2->column = $field2->name;
$field2->columntype = 'VARCHAR(100)';
$field2->table = $module->basetable;
$field2->typeofdata = 'V~O';
$block1->addField($field2);

$field3  = new Vtiger_Field();
$field3->name = 'dispense_date';
$field3->label= 'Date';
$field3->uitype= 5;
$field3->column = $field3->name;
$field3->columntype = 'Date';
$field3->table = $module->basetable;
$field3->typeofdata = 'D~O';
$block1->addField($field3);

$field30  = new Vtiger_Field();
$field30->name = 'lenstype';
$field30->label= 'Lens Type';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = $module->basetable;
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('Single Vision Distance','Single Vision Intermediate','Single Vision Reading','Bifocal','Varifocal'));


$mfield10 = new Vtiger_Field();
$mfield10->name = 'dispense_by';
$mfield10->label = 'Dispense by';
$mfield10->column = $mfield10->name;
$mfield10->uitype = 53;
$mfield10->table = $module->basetable;
$mfield10->typeofdata = 'V~O';
$block1->addField($mfield10);


$field8  = new Vtiger_Field();
$field8->name = 'dispense_number';
$field8->label= 'Dispense Number';
$field8->uitype= 2;
$field8->column = $field8->name;
$field8->table = $module->basetable;
$field8->columntype = 'INT(10)';
$field8->typeofdata = 'I~O';
$block1->addField($field8);

$field3  = new Vtiger_Field();
$field3->name = 'expected_due_date';
$field3->label= 'Expected Due Date';
$field3->uitype= 5;
$field3->column = $field3->name;
$field3->columntype = 'Date';
$field3->table = $module->basetable;
$field3->typeofdata = 'D~O';
$block1->addField($field3);


 // Recommended common fields every Entity module should have (linked to core table)
$mfield1 = new Vtiger_Field();
$mfield1->name = 'assigned_user_id';
$mfield1->label = 'Assigned To';
$mfield1->table = 'vtiger_crmentity';
$mfield1->column = 'smownerid';
$mfield1->uitype = 53;
$mfield1->typeofdata = 'V~M';
$block1->addField($mfield1);

$mfield2 = new Vtiger_Field();
$mfield2->name = 'createdtime';
$mfield2->label= 'Created Time';
$mfield2->table = 'vtiger_crmentity';
$mfield2->column = 'createdtime';
$mfield2->uitype = 70;
$mfield2->typeofdata = 'DT~O';
$mfield2->displaytype= 2;
$block1->addField($mfield2);

$mfield3 = new Vtiger_Field();
$mfield3->name = 'modifiedtime';
$mfield3->label= 'Modified Time';
$mfield3->table = 'vtiger_crmentity';
$mfield3->column = 'modifiedtime';
$mfield3->uitype = 70;
$mfield3->typeofdata = 'DT~O';
$mfield3->displaytype= 2;
$block1->addField($mfield3);


$filter1 = new Vtiger_Filter();
$filter1->name = 'All';
$filter1->isdefault = true;
$module->addFilter($filter1);

// Add fields to the filter created
$filter1->addField($field2)
		->addField($field1, 1)
		->addField($field3, 2)
		->addField($mfield10, 3)
		->addField($field8, 4)
		->addField($mfield1, 5)
		->addField($mfield2, 6)
		->addField($mfield3, 7);
	
// Set sharing access of this module /
//$module->setDefaultSharing('Private'); 
 // Sharing Access Setup
$module->setDefaultSharing();
// Enable and Disable available tools 
$module->enableTools(Array('Import', 'Export'));
//$module->disableTools('Merge');

echo "Done";exit;
*/


/*$module = new Vtiger_Module();
$module->name = 'Dispense';
$module = $module->getInstance('Dispense');

$block1 = new Vtiger_Block();
$block1->label = 'LBL_DISPENSE_GLASSES';
$block1 = $block1->getInstance($block1->label,$module);


$field30  = new Vtiger_Field();
$field30->name = 'lenstype';
$field30->label= 'Lens Type';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = $module->basetable;
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('Single Vision Distance','Single Vision Intermediate','Single Vision Reading','Bifocal','Varifocal'));

echo "Done";exit;*/


/*$block1 = new Vtiger_Block();
$block1->label = 'LBL_DISPENSE_GLASSES';
$block1 = $block1->getInstance($block1->label,$module);

$field2  = new Vtiger_Field();
$field2->name = 'draft_record';
$field2->label= 'Draft Record';
$field2->uitype= 2;
$field2->displaytype=3;
$field2->column = $field2->name;
$field2->columntype = 'INT(10)';
$field2->table = $module->basetable;
$field2->typeofdata = 'V~O';
$block1->addField($field2);
*/


/*$module = new Vtiger_Module();
$module->name = 'Dispense';
$module = $module->getInstance('Dispense');

$block1 = new Vtiger_Block();
$block1->label = "LBL_INVENTORY_MATERIAL_INFORMATIONS";
$module->addBlock($block1);

$field10 = new Vtiger_Field();
$field10->label = 'Frame';
$field10->name = 'frame';
$field10->column =$field10->name;
$field10->uitype = 10;
$field10->typeofdata = 'V~O';
$block1->addField($field10);
$field10->setRelatedModules(Array('InventoryMaterial'));

*/

/*$module = new Vtiger_Module();
$module->name = 'Dispense';
$module = $module->getInstance('Dispense');

$block1 = new Vtiger_Block();
$block1->label = 'LBL_DISPENSE_GLASSES';
$block1 = $block1->getInstance($block1->label,$module);


$field2  = new Vtiger_Field();
$field2->name = 'patient_detail';
$field2->label= 'Patient Detail';
$field2->uitype= 10;
$field2->column = $field2->name;
$field2->columntype = 'VARCHAR(100)';
$field2->table = $module->basetable;
$field2->typeofdata = 'V~O';
$block1->addField($field2);
$field2->setRelatedModules(Array('PatientDetail'));*/


/*$module = new Vtiger_Module();
$module->name = 'Dispense';
$module = $module->getInstance('Dispense');

$block1 = new Vtiger_Block();
$block1->label = 'LBL_DISPENSE_GLASSES';
$block1 = $block1->getInstance($block1->label,$module);


$field2  = new Vtiger_Field();
$field2->name = 'dispensetesttype';
$field2->label= 'Dispense Type';
$field2->uitype= 15;
$field2->column = $field2->name;
$field2->columntype = 'VARCHAR(100)';
$field2->table = $module->basetable;
$field2->typeofdata = 'V~O';
$block1->addField($field2);
$field2->setPicklistValues(array('Glasses','Contact Lens','Repairs'));

echo "Done";exit;
*/

$module = new Vtiger_Module();
$module->name = 'Dispense';
$module = $module->getInstance('Dispense');

$block1 = new Vtiger_Block();
//$block1->label = 'LBL_DISPENSE_GLASSES';
$block1->label = 'LBL_GLASSSES_INFORMATION';
$block1 = $block1->getInstance($block1->label,$module);

/*$field2  = new Vtiger_Field();
$field2->name = 'repair_type';
$field2->label= 'Repair Type';
$field2->uitype= 15;
$field2->column = $field2->name;
$field2->columntype = 'VARCHAR(100)';
$field2->table = $module->basetable;
$field2->typeofdata = 'V~O';
$block1->addField($field2);
$field2->setPicklistValues(array('NHS/Private'));

echo "Done";exit;
echo "Done";exit;*/

$field3  = new Vtiger_Field();
$field3->name = 'cl_subscription_period';
$field3->label= 'CL Subscription Period';
$field3->uitype= 15;
$field3->column = $field3->name;
$field3->columntype = 'VARCHAR(100)';
$field3->table = 'vtiger_glasses_information';
$field3->typeofdata = 'V~O';
$block1->addField($field3);
$field3->setPicklistValues(array('1', '2', '3','4', '5', '6', '7', '8', '9', '10', '11', '12'));

echo "Done";exit;