Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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');
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement