X.INCLUDE('MyLibFile.txt');
var vUSERSCTXMENU = ',' + X.CCCWSSETTINGS.USERSCTXMENU + ','; //Χρήστες που εμφανίζεται το right click menu
var vSALSERIESCONV = ',' + X.CCCWSSETTINGS.SALSERIESCONV + ','; //Σειρές που εκτελείται ο custom μετασχηματισμός
var vUSER = ',' + X.SYS.USER + ',';

function ON_CREATE() {
	ChangeContextMenus(); //Αλλαγή των μενού που εμφανίζονται στο δεξί κλικ (browser και lines) ====  ΠΡΟΣΟΧΗ ΟΡΙΖΕΤΑΙ ΜΟΝΟ ΣΤΟ ON_CREATE ====
}

function ChangeContextMenus() {
	//Στα internal objects το StringList του Browser έχει όνομα BRMENU και του grid GRIDMENU.
	//Στα παραστατικά πωλήσεων, αγορών και αποθήκης το grid των υπηρεσιών είναι SRVGRIDMENU και των Παγίων ASSGRIDMENU

	//Μενού browser
	if (vUSERSCTXMENU.indexOf(vUSER) > -1) {
		var vBrowserMenu = X.EXEC('CODE:ModuleIntf.FindXStrings', X.MODULE, 'BRMENU');
		X.EXEC('CODE:PiLib.TStringsSetItem', vBrowserMenu, 0, '201707191=1;Μετασχηματισμός SoftOne / Custom Μετασχηματισμός');		//Αλλαγή υπάρχουσας τιμής StringList
	
		//Προσθήκη νέων τιμών σε StringList
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '-=-');	
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '201707192=1;Οικονομικά στοιχεία πελάτη');	
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '201707193=1;Run DLL Form');
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '-=-');		
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '201709281=1;Εργασία 1?Custom Εργασίες');
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '201709282=1;Εργασία 2?Custom Εργασίες');
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '201709283=1;Εργασία 3?Custom Εργασίες');
		X.EXEC('CODE:PiLib.TStringsAdd', vBrowserMenu, '201707194=3;Διαθεσιμότητα είδους');		
		
		X.EXEC('CODE:SysRequest.RefreshPopupMenu', X.MODULE, 'BRMENU', 1); //Refresh pop up menu
	}

	//Μενού γραμμών παραστατικού
	var vGridMenu = X.EXEC('CODE:ModuleIntf.FindXStrings', X.MODULE, 'GRIDMENU');
	X.EXEC('CODE:PiLib.TStringsAdd', vGridMenu, '-=-');
	X.EXEC('CODE:PiLib.TStringsAdd', vGridMenu, '201707195=Σχετικές καμπάνιες');	
	X.EXEC('CODE:PiLib.TStringsAdd', vGridMenu, '201707196=Διαθέσιμες παρτίδες');	
	
	X.EXEC('CODE:SysRequest.RefreshPopupMenu', X.MODULE, 'GRIDMENU', 0);
	
	//a = X.EXEC('CODE:PiLib.TStringsGetText', vGridMenu);
	//X.WARNING(a);
	//a = X.EXEC('CODE:PiLib.TStringsGetText', vBrowserMenu);
}

function EXECCOMMAND(cmd) {
	if (cmd == 201707191) { //Δεξί κλικ - Μετασχηματισμός στο ευρετήριο
		var vSelRecs;
		vSelRecs = X.GETPARAM('SELRECS');
		if (vSelRecs == '') {
			X.WARNING ('Παρακαλώ επιλέξτε παραστατικά!');
			return;
		}		
		vSelRecs = vSelRecs.replace(/\?/g,",");
		var vds = X.GETSQLDATASET('SELECT DISTINCT SERIES FROM FINDOC WHERE '+ vSelRecs,null);

		if (vds.RECORDCOUNT > 1) {
			X.EXCEPTION ('Εχετε επιλέξει παραστατικά με διαφορετικές σειρές!');
		}
		else {
			var vSeries = ',' + vds.SERIES + ',';
			if (vSALSERIESCONV.indexOf(vSeries) > -1) {
				X.EXEC('XCMD:FORMIMPORT,SCRIPTNAME:SalesCustomConv');
			}
			else {
				X.EXEC('XCMD:CONVERTDLG,SOSOURCE:1351');
			}
		}
	}
	if (cmd == 201707192) {//Δεξί κλικ σε browser - Οικονομικά στοιχεία πελάτη
		var vSelRecs;
		vSelRecs = X.GETPARAM('SELRECS');
		if (vSelRecs == '') {
			X.WARNING ('Παρακαλώ επιλέξτε παραστατικά!');
			return;
		}				
		vSelRecs = vSelRecs.replace(/\?/g,",");
		var vds = X.GETSQLDATASET('SELECT DISTINCT TRDR FROM FINDOC WHERE '+ vSelRecs,null);
		if (vds.RECORDCOUNT > 1) {
			X.WARNING('Εχετε επιλέξει περισσότερους από έναν πελάτες!');
			return;
		}
		else if (vds.RECORDCOUNT == 1) {
			X.EXEC('XCMD:CUSTOMER[FORM=Οικονομικά στοιχεία,AUTOLOCATE='+vds.TRDR+']');
		}
	}	
	if (cmd == 201707194) {//Δεξί κλικ σε browser - Γραμμές ειδών
		var vSelRecs;
		vSelRecs = X.GETPARAM('SELRECS');
		X.WARNING(vSelRecs);
		if (vSelRecs == '') {
			X.WARNING ('Παρακαλώ επιλέξτε παραστατικά!');
			return;
		}				
		vSelRecs = vSelRecs.replace(/\?/g,",");
		var vds = X.GETSQLDATASET('SELECT DISTINCT MTRL FROM FINDOC INNER JOIN MTRLINES ON FINDOC.FINDOC=MTRLINES.FINDOC WHERE '+ vSelRecs,null);
		if (vds.RECORDCOUNT > 1) {
			X.WARNING('Εχετε επιλέξει περισσότερα από ένα είδη!');
			return;
		}
		else if (vds.RECORDCOUNT == 1) {
			X.EXEC('XCMD:ITEM[FORM=Διαθεσιμότητα,AUTOLOCATE='+vds.MTRL+']');
		}
	}		
	
	if (cmd == 201707195) {
		X.WARNING('Το είδος '+ITELINES.X_NAME+ ' δεν υπάρχει σε καμπάνιες!');
	}
	if (cmd == 201707196) {
		if (ITELINES.MTRL > 0) {
			X.EXEC('XCMD:ITEM[FORM=Διαθέσιμες παρτίδες,AUTOLOCATE='+ITELINES.MTRL+']');
		}
	}	
	if (cmd == 201709281)
		MyMessage(16, 'Προσοχή', 'Custom Εργασία 1');
	if (cmd == 201709282)
		MyMessage(64, 'Πληροφορία', 'Custom Εργασία 2');
	if (cmd == 201709283) {
		var answer = MyMessage(4, 'Ερώτηση', 'Custom Εργασία 3');
		if (answer == 6)
			X.WARNING('Yes pressed');
		else if (answer == 7)
			X.WARNING('No pressed');			
	}
}