API tools faq
paste
Advertisement
Guest User

Mijn project ! BRENT . J

a guest
Apr 20th, 2017
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Progress 9.63 KB | None | 0 0
raw download clone embed print report
  1.  
  2.  /*------------------------------------------------------------------------
  3.     File        : Fallora
  4.     Purpose     : De bedoeling is dat we al de orders kunnen ingeven.
  5.     Iedere custommer / klant krijgt zijn eigen file dit kan constant worden upgedate door de append functie.
  6.     Iedere order die word ingegeven krijgt automatisch de dag waarop hij is ingegeven aangewezen.
  7.     Dit is zodat ik dit kan analyseren.
  8.    
  9.     Syntax      :  ABL
  10.     Description :
  11.     Author(s)   : BrentJacobs
  12.     Created     : Mon Apr 17 23:25:42 CEST 2017
  13.     Notes       :
  14.   ----------------------------------------------------------------------*/
  15.  
  16. USING PROGRESS.Lang.*.
  17. USING PROGRESS.Windows.Form.
  18.  
  19. BLOCK-LEVEL ON ERROR UNDO, THROW.
  20.  
  21. CLASS Fallora INHERITS FORM:
  22.    
  23.     DEFINE PRIVATE VARIABLE button1 AS System.Windows.Forms.Button NO-UNDO.
  24.     DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO.
  25.     DEFINE PRIVATE VARIABLE label1 AS System.Windows.Forms.Label NO-UNDO.
  26.     DEFINE PRIVATE VARIABLE label4 AS System.Windows.Forms.Label NO-UNDO.
  27.     DEFINE PRIVATE VARIABLE label3 AS System.Windows.Forms.Label NO-UNDO.
  28.     DEFINE PRIVATE VARIABLE label2 AS System.Windows.Forms.Label NO-UNDO.
  29.     DEFINE PRIVATE VARIABLE label5 AS System.Windows.Forms.Label NO-UNDO.
  30.     DEFINE PRIVATE VARIABLE textBox1 AS System.Windows.Forms.TextBox NO-UNDO.
  31.     DEFINE PRIVATE VARIABLE textBox3 AS System.Windows.Forms.TextBox NO-UNDO.
  32.     DEFINE PRIVATE VARIABLE textBox2 AS System.Windows.Forms.TextBox NO-UNDO.
  33.     DEFINE PRIVATE VARIABLE textBox4 AS System.Windows.Forms.TextBox NO-UNDO.
  34.     DEFINE PRIVATE VARIABLE textBox5 AS System.Windows.Forms.TextBox NO-UNDO.
  35.        
  36.     CONSTRUCTOR PUBLIC Fallora (  ):
  37.        
  38.        
  39.         SUPER().
  40.         InitializeComponent().
  41.         THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components).
  42.         CATCH e AS PROGRESS.Lang.Error:
  43.             UNDO, THROW e.
  44.         END CATCH.
  45.  
  46.     END CONSTRUCTOR.
  47.  
  48.  
  49.  
  50.  
  51.     /*------------------------------------------------------------------------------
  52.      Purpose:
  53.      Notes
  54.     ------------------------------------------------------------------------------*/
  55.     @VisualDesigner.
  56.     METHOD PRIVATE VOID button1_Click( INPUT sender AS System.Object, INPUT e AS System.EventArgs ):
  57.  
  58.         /*
  59.         Werken met een simpele file i/o is veel beter om te debuggen als het door een single user word gebruikt.
  60.         Aangezien niemand anders dingen ingeeft hoef ik niet persé een database ( dit zou handiger zijn qua opslag en later-on efficiency).
  61.         Qua testen is dit beter voor mij.
  62.         */
  63.  
  64.         IF STRING(THIS-OBJECT:textBox1:TEXT) = "" AND STRING(THIS-OBJECT:textBox2:TEXT) = "" AND STRING(THIS-OBJECT:textBox3:TEXT) = ""
  65.             THEN LEAVE.
  66.         ELSE
  67.           DO:
  68.              OUTPUT TO VALUE(STRING(THIS-OBJECT:textBox1:TEXT) + ".txt") APPEND.
  69.               PUT UNFORMATTED STRING(THIS-OBJECT:textBox1:TEXT) SKIP.
  70.               PUT UNFORMATTED STRING(THIS-OBJECT:textBox2:TEXT)  SKIP.
  71.               PUT UNFORMATTED STRING(THIS-OBJECT:textBox3:TEXT)  SKIP.
  72.               PUT UNFORMATTED STRING(THIS-OBJECT:textBox4:TEXT)  SKIP.  
  73.               PUT UNFORMATTED STRING(THIS-OBJECT:textBox5:TEXT)  SKIP.  
  74.               PUT UNFORMATTED STRING(TODAY) SKIP.
  75.              OUTPUT CLOSE.
  76.              /* Deze tables nog converten naar een database table en een manier vinden om te displayen */
  77.           END.
  78.          
  79.  
  80.         RETURN.
  81.  
  82.     END METHOD.
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.     METHOD PRIVATE VOID InitializeComponent(  ):
  92.  
  93.         THIS-OBJECT:textBox1 = NEW System.Windows.Forms.TextBox().
  94.         THIS-OBJECT:button1 = NEW System.Windows.Forms.Button().
  95.         THIS-OBJECT:textBox2 = NEW System.Windows.Forms.TextBox().
  96.         THIS-OBJECT:textBox3 = NEW System.Windows.Forms.TextBox().
  97.         THIS-OBJECT:label2 = NEW System.Windows.Forms.Label().
  98.         THIS-OBJECT:label3 = NEW System.Windows.Forms.Label().
  99.         THIS-OBJECT:label4 = NEW System.Windows.Forms.Label().
  100.         THIS-OBJECT:textBox4 = NEW System.Windows.Forms.TextBox().
  101.         THIS-OBJECT:label1 = NEW System.Windows.Forms.Label().
  102.         THIS-OBJECT:label5 = NEW System.Windows.Forms.Label().
  103.         THIS-OBJECT:textBox5 = NEW System.Windows.Forms.TextBox().
  104.         THIS-OBJECT:SuspendLayout().
  105.         /*  */
  106.         /* textBox1 */
  107.         /*  */
  108.         THIS-OBJECT:textBox1:AcceptsReturn = TRUE.
  109.         THIS-OBJECT:textBox1:Location = NEW System.Drawing.Point(11, 30).
  110.         THIS-OBJECT:textBox1:NAME = "textBox1".
  111.         THIS-OBJECT:textBox1:SIZE = NEW System.Drawing.Size(199, 20).
  112.         THIS-OBJECT:textBox1:TabIndex = 0.
  113.         THIS-OBJECT:textBox1:Tag = "".
  114.         /*  */
  115.         /* button1 */
  116.         /*  */
  117.         THIS-OBJECT:button1:BackColor = System.Drawing.SystemColors:ControlText.
  118.         THIS-OBJECT:button1:ForeColor = System.Drawing.SystemColors:ActiveCaptionText.
  119.         THIS-OBJECT:button1:Location = NEW System.Drawing.Point(11, 400).
  120.         THIS-OBJECT:button1:Margin = NEW System.Windows.Forms.Padding(0).
  121.         THIS-OBJECT:button1:NAME = "button1".
  122.         THIS-OBJECT:button1:SIZE = NEW System.Drawing.Size(199, 35).
  123.         THIS-OBJECT:button1:TabIndex = 1.
  124.         THIS-OBJECT:button1:TEXT = "ENTER ORDER".
  125.         THIS-OBJECT:button1:UseCompatibleTextRendering = TRUE.
  126.         THIS-OBJECT:button1:UseVisualStyleBackColor = FALSE.
  127.         THIS-OBJECT:button1:Click:SUBSCRIBE(THIS-OBJECT:button1_Click).
  128.         /*  */
  129.         /* textBox2 */
  130.         /*  */
  131.         THIS-OBJECT:textBox2:Location = NEW System.Drawing.Point(13, 72).
  132.         THIS-OBJECT:textBox2:NAME = "textBox2".
  133.         THIS-OBJECT:textBox2:SIZE = NEW System.Drawing.Size(199, 20).
  134.         THIS-OBJECT:textBox2:TabIndex = 2.
  135.         /*  */
  136.         /* textBox3 */
  137.         /*  */
  138.         THIS-OBJECT:textBox3:Location = NEW System.Drawing.Point(13, 115).
  139.         THIS-OBJECT:textBox3:NAME = "textBox3".
  140.         THIS-OBJECT:textBox3:SIZE = NEW System.Drawing.Size(199, 20).
  141.         THIS-OBJECT:textBox3:TabIndex = 3.
  142.         /*  */
  143.         /* label2 */
  144.         /*  */
  145.         THIS-OBJECT:label2:Location = NEW System.Drawing.Point(13, 9).
  146.         THIS-OBJECT:label2:NAME = "label2".
  147.         THIS-OBJECT:label2:SIZE = NEW System.Drawing.Size(106, 18).
  148.         THIS-OBJECT:label2:TabIndex = 7.
  149.         THIS-OBJECT:label2:TEXT = "Naam :".
  150.         THIS-OBJECT:label2:UseCompatibleTextRendering = TRUE.
  151.         /*  */
  152.         /* label3 */
  153.         /*  */
  154.         THIS-OBJECT:label3:Location = NEW System.Drawing.Point(12, 53).
  155.         THIS-OBJECT:label3:NAME = "label3".
  156.         THIS-OBJECT:label3:SIZE = NEW System.Drawing.Size(93, 16).
  157.         THIS-OBJECT:label3:TabIndex = 8.
  158.         THIS-OBJECT:label3:TEXT = "Product:".
  159.         THIS-OBJECT:label3:UseCompatibleTextRendering = TRUE.
  160.         /*  */
  161.         /* label4 */
  162.         /*  */
  163.         THIS-OBJECT:label4:Location = NEW System.Drawing.Point(12, 95).
  164.         THIS-OBJECT:label4:NAME = "label4".
  165.         THIS-OBJECT:label4:SIZE = NEW System.Drawing.Size(100, 17).
  166.         THIS-OBJECT:label4:TabIndex = 9.
  167.         THIS-OBJECT:label4:TEXT = "Hoeveelheid:".
  168.         THIS-OBJECT:label4:UseCompatibleTextRendering = TRUE.
  169.         /*  */
  170.         /* textBox4 */
  171.         /*  */
  172.         THIS-OBJECT:textBox4:Location = NEW System.Drawing.Point(12, 209).
  173.         THIS-OBJECT:textBox4:Multiline = TRUE.
  174.         THIS-OBJECT:textBox4:NAME = "textBox4".
  175.         THIS-OBJECT:textBox4:SIZE = NEW System.Drawing.Size(198, 186).
  176.         THIS-OBJECT:textBox4:TabIndex = 12.
  177.         /*  */
  178.         /* label1 */
  179.         /*  */
  180.         THIS-OBJECT:label1:Location = NEW System.Drawing.Point(12, 179).
  181.         THIS-OBJECT:label1:NAME = "label1".
  182.         THIS-OBJECT:label1:SIZE = NEW System.Drawing.Size(196, 27).
  183.         THIS-OBJECT:label1:TabIndex = 13.
  184.         THIS-OBJECT:label1:TEXT = "Description : ( DINGEN DIE IK MOET WETEN HIER !".
  185.         THIS-OBJECT:label1:UseCompatibleTextRendering = TRUE.
  186.         /*  */
  187.         /* label5 */
  188.         /*  */
  189.         THIS-OBJECT:label5:Location = NEW System.Drawing.Point(13, 138).
  190.         THIS-OBJECT:label5:NAME = "label5".
  191.         THIS-OBJECT:label5:SIZE = NEW System.Drawing.Size(100, 15).
  192.         THIS-OBJECT:label5:TabIndex = 14.
  193.         THIS-OBJECT:label5:TEXT = "Prijs:".
  194.         THIS-OBJECT:label5:UseCompatibleTextRendering = TRUE.
  195.         /*  */
  196.         /* textBox5 */
  197.         /*  */
  198.         THIS-OBJECT:textBox5:Location = NEW System.Drawing.Point(13, 156).
  199.         THIS-OBJECT:textBox5:NAME = "textBox5".
  200.         THIS-OBJECT:textBox5:SIZE = NEW System.Drawing.Size(197, 20).
  201.         THIS-OBJECT:textBox5:TabIndex = 15.
  202.         /*  */
  203.         /* Fallora */
  204.         /*  */
  205.         THIS-OBJECT:ClientSize = NEW System.Drawing.Size(225, 444).
  206.         THIS-OBJECT:Controls:Add(THIS-OBJECT:textBox5).
  207.         THIS-OBJECT:Controls:Add(THIS-OBJECT:label5).
  208.         THIS-OBJECT:Controls:Add(THIS-OBJECT:label1).
  209.         THIS-OBJECT:Controls:Add(THIS-OBJECT:textBox4).
  210.         THIS-OBJECT:Controls:Add(THIS-OBJECT:label4).
  211.         THIS-OBJECT:Controls:Add(THIS-OBJECT:label3).
  212.         THIS-OBJECT:Controls:Add(THIS-OBJECT:label2).
  213.         THIS-OBJECT:Controls:Add(THIS-OBJECT:textBox3).
  214.         THIS-OBJECT:Controls:Add(THIS-OBJECT:textBox2).
  215.         THIS-OBJECT:Controls:Add(THIS-OBJECT:button1).
  216.         THIS-OBJECT:Controls:Add(THIS-OBJECT:textBox1).
  217.         THIS-OBJECT:NAME = "Fallora".
  218.         THIS-OBJECT:TEXT = "Fallora".
  219.         THIS-OBJECT:ResumeLayout(FALSE).
  220.         THIS-OBJECT:PerformLayout().
  221.         CATCH e AS PROGRESS.Lang.Error:
  222.             UNDO, THROW e.
  223.         END CATCH.
  224.     END METHOD.
  225.  
  226.  
  227.  
  228.  
  229.    
  230.  
  231.     DESTRUCTOR PUBLIC Fallora ( ):
  232.  
  233.     END DESTRUCTOR.
  234.  
  235. END CLASS.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!