连续生产优化

admin

2024-10-22 ef42765827dbd7c60d23dffd9a5bd510d0d76617

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Quintiq file version 2.0
#parent: #root
Method PTF_InsertStatement () id:Method_LibPTF_dlgCreateEditTestScript_PTF_InsertStatement
{
  #keys: '[103546.0.78315835]'
  Body:
  [*
    // Insert the user selected action and the entered parameters into the Script Editor
    keyword      := selKeyWord.BoundValue();
    keywordparam := ""
    endkeyword   := ""
    
    // Insert additional statements for the LOOP keyword
    if( keyword.ToUpper().FindString( LibPTF_StandardAction::Loop().ToUpper(), 0 ) > -1 )
    {
      endkeyword := ";" + String::NewLine() + "  << DEFINE YOUR TASK >>" + String::NewLine() + LibPTF_StandardAction::EndLoop();
    }
    
    if( edtKeyWordParameter.Text().TrimBoth().Length() > 0 )
    {
      keywordparam := " " + edtKeyWordParameter.Text().TrimBoth();
    }
    
    // Retrieve the action(keyword) and the set of parameters from a statement
    parameters := construct( Strings );
    this.PTF_GetActionAndParameters( keyword + keywordparam, parameters );
    
    // Validate the set of parameters based on action(keyword)
    errormsg := this.PTF_ValidateStatement( keyword, parameters );
    
    // Format the error message when there is an error in validation
    if( errormsg.Length() > 0 )
    {
      errormsg := "The following error is found in the script:" + String::NewLine() + String::NewLine()
                  + errormsg + String::NewLine() + "Do you still want to add the action into the script?";
    }
    
    // When validation passed, or user insists to insert the invalid statement, perform insert.
    if( errormsg.Length() = 0 or MessageBox::Warning( this, errormsg, '&Yes|&No', 1 ) = 0 )
    {
      // Append new script
      if( edtActionScript.Text().TrimBoth().Length() = 0 )
      {
        edtActionScript.CursorToBegin();
      }
      else
      {
        edtActionScript.CursorToEndOfLine();
        edtActionScript.InsertText( String::NewLine() );
      }
    
      edtActionScript.InsertText( keyword + keywordparam + endkeyword + ";" );
    }
  *]
}