Ir al contenido principal

Loops and conditions


Conditions

If Then Else

The following scripts are equivalent:
If I=1 Then J=2 Else J=3 : Endif
If I=1  :   J=2 Else J=3 : Endif  # the ":" allow to write one instruction after the other
If I=1
  J=2
Else J=3
Endif
In the case of multiple conditions placed in and, the evaluations are made in the written order, and the program stops at the first false condition found; in the case below, if ConditionA is false the other two conditions are not evaluated (therefore, in case of instructions, they are not executed):
If CondizioneA & CondizioneB and CondizioneC
Examples:
<> mathematical operator means “different from”;for example if you want check if a string is not null:
If [M:YCE1]YSEZFIL <> ""
Endif
The exclamation mark corresponds to not
If !clalev([F:YADI]) 
  Local File ATABDIV [F:YADI] 
Endif

Inline conditions

To put an “inline” condition, for example in the selection fields of an object, you can use stringstring$
or to make a value appear only for a certain transaction: string$(GFLAG='YOFQ',[F:POH]YPOHORE)

Loops

You can use two forms of loops,
For…Next
and
While…Wendwith different syntaxes based on the cases.
See below some examples

Loop on numerical variable

The step if not specified is 1.

For I = 1 To 13 Step 2.5 : Infbox num$(I) : Next I : Infbox 'FIN='+num$(I)  # displays  : 1 3.5 6 8.5 11 FIN=13.5
For I = 15 To 20 : Infbox I : Next I : Infbox 'FIN='+num$(I)                # displays  : 15 16 17 18 19 20 FIN=21
For I = 15 To 11 Step -1 : Infbox I : Next I : Infbox 'FIN='+num$(I)        # displasy  : 15 14 13 12 11 FIN=10

Loop on alfanumerical variable

For  CHN='A','EF','X','ZZZ' : Infbox CHN : Next CHN : Infbox 'FIN='-CHN    # displays   : A EF X ZZZ FIN=ZZZ

For USER="John","Matteo","Lucas" 
   Call PARAMUSER(USER,OTHER) From YLIB 
   ...
Next USER

Loop on table

For [F:ITM] Where [F:ITM]YCAT='COD'
  ...
Next

While INDEX>0
 ...
Wend

Break

It is possible to use the break keyword to interrupt the cycle:
For [F:ITM]  
    ...
    Break
Next

Multiple conditions

The Case statement can be used to manage multiple conditions:
Case YI
When 1 : Infbox '1'
When 2
    YFILE = "C:\TEMP\test2.pdf"
    Infbox '2'
When 3
    Local Char V2(250)
    YFILE = "C:\TEMP\test3.pdf"
    Infbox '3' - YFILE - V2
When Default
Endcase

Entradas populares de este blog

Valores de fstat

Fstat fstat  is a numeric status that is returned upon execution of a database operation, a sequential file operation, or a lock instruction. Syntax fstat Examples # MYTABLE is a table with a key called KEY1, that has a unique component called KEYVAL # Create a record in the table MYTABLE with they key value 1 if it doesn't exist Local File MYTABLE [MYT] Read [MYT]KEY1=1 If fstat [MYT]KEYVAL=1 : Write [MYT] If fstat MSG="The key was created in the mean time" Else MSG="Key created" Endif Else MSG="Key already exists" Endif Details fstat  is always set to '0' if the operation is successfully completed, and has a non-null value if there is an error: In a sequential read ( Getseq  and  Rdseq ),  fstat  is set to '1' at the end of the file. On  Lock ,  fstat  is set to '1' if the lock could not be performed. For a database operation ( Read ,  Look ,  Readlock ,  For ,  Write ,  ...
Leer más

3 ways to send a mail from code in Sage X3, with more attachments too

Origen Fuente:  https://en.sagedev.it/sagex3/send-mail-from-code-with-attachments-sage-x3/ Autor:  https://en.sagedev.it/category/sagex3/ In this post I’ll show you how to send a mail from adonix code in Sage X3. The points we will face are: 1) Meladx/Send introduction 2) Sending  through  meladx (the best way for me: at the end with just a single code line you send a mail!) 3) Sending  through  Workflow 4) Sending  through  ENVOI_MAIL(…) From AWRKMEL Sending mail from code in Sage X3: Send vs meladx Sage X3 has two native ways for sending mails. The first way is  meladx  executable file, that you can find in  runtime\bin  directory. The seconde one is Send instruction, that was used to send mail through an application of the client station (for more information on “Send GSERMES”  go here ). The Meladx executable Meladx send messages through SMTP/POP3 protocols by means of the mail  ...
Leer más

How to Install and Manage Sage X3 Add-Ins in Microsoft Office

When you enable an add-in, it adds custom commands and new features to Microsoft Office programs that help increase your productivity. In this blog post, we’ll review how to install the Sage X3 Add-In for MS Excel and what to do if your Sage X3 Add-In is missing. Fuente original: https://www.netatwork.com/how-to-install-and-manage-sage-x3-add-ins-in-ms-office/ How to Install the Sage X3 Add-In in Microsoft Excel Go to Administration > Utilities > Installation > Install addins for Office V11 Image:   V12 Image:   It should begin downloading the exe, open the exe Next > Install   Open Excel > File > Options   Select Add–Ins > Manage: COM Add-ins > Go   Check the “Excel AddIn for Sage” > Ok   You are now ready to export Excel-based reports/grids from Sage X3. How to troubleshoot and fix a missing Sage X3 add-in in Microsoft Excel Open the Microsoft Office product where the  Sage X3  add-in is missing. Go to Options: Se...
Leer más