Editing Istruzioni base



== Dichiarazione variabili ==
* Dichiarazione di una stringa locale (di default è lunga 30 caratteri): <code>Local Char CAR</code><br />
* Dichiarazione di una stringa locale lunga 50: <code>Local Char STRINGA(50)</code><br />
* Dichiarazione di una stringa passata per valore (in una funzione): <code>Value Char STR()</code><br />
* Dichiarazione di un intero locale: <code>Local Integer INDEX</code><br />
* Dichiarazione di un decimale locale subito inizializzato a 0: <code>Local Decimal DEC : DEC = 0</code><br />
* Dichiarazione di un intero passato per valore: <code>Value Integer LENGTH</code><br />
* Dichiarazione di un clob locale: <code>Local Clbfile YETI(4)</code><br />

Per sapere se una variabile esiste utilizzare <code>dim</code>; restituisce -1 se non esiste, 1 se è dichiarata:
<pre>If Dim(NOMEVAR)>0 
  #uso la variabile
Endif
</pre>

=== Dichiarare un array ===
Stringa di 250 caratteri (il massimo è 255): <code>Local Char STRINGA(250)</code><br />
Array di 1000 stringhe da 30 caratteri: <code>Local Char    LISTAFILE(30)(1..1000)</code>; <code>LISTAFILE(1)</code> è la prima stringa di 30 caratteri<br />
Array di interi con indice che va da 5 a 10: <code>Local Integer intarray(5..10)</code><br />
Array di 20 interi con indice che parte da 0: <code>Local Integer intarray(20)</code><br />
Matrice di interi: <code>Local Integer intarray(20)(1..3)</code><br />


Per sapere la dimensione di un array utilizzare <code>dim</code>; nell'esempio seguente <code>I</code> avrà valore 250.

<pre>
Local Char STRINGA(250)
Local integer I
I=dim(STRINGA)
Infbox num$(I)
</pre>

==== Dichiarare un array in subroutine ====
 
Per dichiarare un array presente come argomento di una subroutine all'interno della stessa basta dichiarare un array senza dimensione: <code>Value char Array()</code> .
In questo modo recupera la definizione dal metodo chiamante.

Nel seguente esempio STR nel metodo chiamante sarà una stringa lunga 250.

''Subroutine:''
<pre>
Funprog INSERT(STR, INDEX, INS)
    Value Char STR()
    Value Integer INDEX
    Value Char INS()
  ...
End RET
</pre>

''Metodo chiamante:''
<pre>
...
Local Char STRINGA(250)
RIS= func INSERT(STRINGA, INDEX, INS)
...
</pre>

Nell'help in linea di Sage: andare su riquadro Sviluppo:
* 4GL, Funzioni
* Sotto-programma per il programma AFNC (TEXTRA, TEXTE, STAT, MES1, MES2...)

== Stringhe ==
# Concatenazione di stringhe: si fa con gli operatori <code>+</code> e <code>-</code> (il secondo aggiunge uno spazio tra le due stringhe): <code>RET=STRING1+STRING2-"ciao"</code>
# Lunghezza di una stringa: <code>LENGTH = len(STRINGA)</code><br />
# Conversione di un numero in stringa: <code>STRINGA = num$(LENGTH)</code><br />
# Conversione di una data in stringa: <code>func AFNC.FDH(date$,"121531")</code> restituisce "01/06/18 12:15:31"<br />
# Parte sinistra di una stringa lunga LENGTH: <code>STRINGA = left$(STRINGA, LENGTH)</code><br />
# Parte destra di una stringa lunga LENGTH: <code>STRINGA = right$(STRINGA, LENGTH)</code><br />
# Cercare una sottostringa a partire da una certa posizione: <code>INDEX=instr(1,STR,OLD)</code><br />
# Togliere gli spazi all'inizio e alla fine: <code>STRINGA = vireblc(STRINGA,2)</code><br />
# Togliere gli spazi multipli: <code>STRINGA = vireblc(STRINGA,5)</code><br />
# Togliere gli spazi multipli, gli spazi all'inizio e alla fine: <code>STRINGA = vireblc(vireblc(STRINGA,2),5)</code><br />Argomenti per il comando vireblc (=modifica spazi)
#* 0 = elimina spazi all'inizio
#* 1 = elimina spazi alla fine
#* 2 = elimina spazi all'inizio e alla fine
#* 3 = elimina spazi all'inizio e taglia la stringa al primo spazio successivo (estrae la prima parola)
#* 4 = elimina tutti gli spazi
#* 5 = elimina tutti gli spazi consecutivi sostituendoli tutti con spazi singoli
# Riempimento con spazi a destra (padding): <code>format$("Kb:5X",[M:YCE0]YCODMAR)</code>   "IMQ" -> "IMQ  "
# Padding sinistro:
<pre>MY_STRING="This is a string"
   If len(MY_STRING)<=35
     LEFT_ALIGNED=MY_STRING+space$(35-len(MY_STRING))
     RIGHT_ALIGNED=space$(35-len(MY_STRING))+MY_STRING
   Endif
</pre>
<pre>space$(EXP_NB) returns a space containing EXP_NB spaces. 
This function is equivalent to 
string$(EXP_NB,32) 
or 
string$(EXP_NB," ").
</pre>
# Verificare pattern di una stringa:
#* <code>If pat(CH1, '*ADONIX*')  :  Infbox 'La stringa CH1 contiene ADONIX!'  : Endif</code>
#*Verificare che CH1 contenga una '''lettera''' all'inizio, una '''cifra''' alla fine della stringa ed esattamente 3 caratteri tra i due<br /><code>If pat(CH1, '!???#')  :  Infbox "Test verificato"  : Endif</code>

=== Clob ===
Si può passare tra vettore di stringhe a clob e viceversa:

<pre>Local Char TESTO(250)(1..80)
Setlob TESTO With CLOB</pre>

<pre>Local Char TESTO(250)(1..85)
Setlob CLOB With TESTO(1..85)</pre>

== Numeri ==
# Conversione di una stringa in numero: <code>NUMERO = val("23")</code><br />
# Conversione di un numero in stringa: <code>STRINGA = num$(23)</code><br />
# Riempimento con spazi a sinistra (padding): <code>format$("N:7",PAR(IP))</code>   "12" -> "     12"
# mettere zero dopo i decimali: 
# * <code>format$("N:7.4",PAR(IP))</code>   "12" -> "     12.0000"
# * <code>format$("NZ:7.4",PAR(IP))</code>  "12" -> "     12.0000"
# Riempimento con zeri a sinistra (padding): <code>format$("N0:7",PAR(IP))</code>   "12" -> "0000012"
# Riempimento con zeri a sinistra (padding): <code>format$("N0:7.2",PAR(IP))</code> "12" -> "0000012.00"
# Riempimento con massimo 5 zeri a sinistra, taglia i decimali: <code>format$("N0:#####",VALEUR)</code>  77.9 -> "00077"
# Riempimento con massimo 5 spazi a sinistra, taglia i decimali: <code>format$("N:5",VALEUR)</code>  77.9 -> "   77"

=== gestione Bit ===
Ci sono due istruzioni per impostare o recuperare un bi di un valore intero:

<pre>setbit( Valore, Bit_da_impostare, Valore_da_impostare)
getBit( Valore, Bit_da_recuperare)</pre>

* Bit_da_impostare: indice del bit partendo da 1
* Valore_da_impostare: 1 o 0
* Bit_da_recuperare: indice del bit partendo da 1

per esempio: 

<pre>A=setbit( 0, 3, 1)  #restituisce 4 ( 0000100 )</pre>

== Date e ora ==
Vai qui [[Data_ora|Gestione data e ora]]

== Cicli e condizioni==
=== Condizione ===
Le seguenti forme sono equivalenti:
<pre>If I=1 Then J=2 Else J=3 : Endif</pre>

<pre>If I=1 : J=2 Else J=3 : Endif</pre>

<pre>
If I=1
  J=2
Else J=3
Endif
</pre>

Nel caso di più condizioni poste in and, le valutazioni vengono fatte nell'ordine scritto, e il programma si ferma alla prima condizione falsa trovata;
nel caso qui sotto se CondizioneA è falso le altre due condizioni non vengono valutate (quindi in caso di istruzioni non vengono eseguite):

<code>If CondizioneA & CondizioneB and CondizioneC</code>


Esempi:

Controllo che una stringa non sia vuota: 
<pre>If [M:YCE1]YSEZFIL <> ""
Endif</pre>

Questa riga 
<code> If !clalev([F:YADI]) : Local File ATABDIV [F:YADI] : Endif</code>  corrisponde al seguente codice
<pre>
If !clalev([F:YADI]) 
  Local File ATABDIV [F:YADI] 
Endif
</pre>

=== Cicli ===
Ciclo su variabile (lo step predefinito è 1):

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

For  CHN='A','EF','X','ZZZ' : Infbox CHN : Next CHN : Infbox 'FIN='-CHN    # visualizza: A EF X ZZZ FIN=ZZZ
</pre>

Ciclo su file:

<pre>
For [F:YCE] Where VALORE = X
  ...
Next
</pre>

<pre>While INDEX>0
 ...
Wend</pre>


E' possibile utilizzare la parola chiave <code>break</code> per interrompere il ciclo: 
<pre>
For [F:YCE]  
    VALEUR = [F:YCE]YSEQMAR + 1
    Break
Next
</pre>

=== Condizioni multiple ===
<pre>
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

</pre>

== Ordinamento ==
Per ordinare un array usare <code>Sorta</code> con la seguente sintassi :

<code>SORTA NUMVALORI_DAORDINARE ARRAY [Desc]</code>

<code>SORTA NUMVALORI_DAORDINARE ARRAY1, array2 [Desc]</code>    (array2 ordinato seguendo l'ordine di ARRAY1)

Esempio: 

<pre>
Local Char STR(255)(0..4)
Local Integer NUMBER(0..4)
Local Integer D

NUMBER(0) = 3
NUMBER(1) = 4
NUMBER(2) = 9
NUMBER(3) = 5
NUMBER(4) = 8

STR(0) = "B"
STR(1) = "E"
STR(2) = "C"
STR(3) = "M"
STR(4) = "A"

D= dim(NUMBER)
#per ordinare NUMBER in ordine crescente, e le stringhe in base ai numeri di NUMBER
Sorta D NUMBER,STR

#per ordinare le stringhe in ordine alfabetico
Sorta 4 STR
#per ordinare le stringhe in ordine alfabetico, e i numeri in base all'ordine delle stringhe
Sorta 5 STR,NUMBER

# To sort in descending order
Sorta 4 STR, NUMBER  Desc     
</pre>

== Funzioni Funprog ==

Le funzioni sono delle parti di codice richiamabili anche da programmi esterni; hanno la visibilità dei parametri e delle variabili globali, ma non delle variabili del programma chiamante.
* Ritornano sempre un valore; 
* L'istruzione <code>End</code> termina il flusso di esecuzione della funzione; il valore che la segue sarà il risultato della funzione.
* Possono avere dei parametri.
* I parametri possono solo essere passati per valore (<code>Value</code> indica che il parametro è passato per valore)
* si chiamano con <code>func NOMEFILE.NOMEFUNZIONE(...)</code>


Dichiarazione dentro il file YESEMPIO:
<pre>
Funprog FUNZIONEDIPROVA(PARAM1)
 Value Integer PARAM1
 If PARAM1 >= 0
   End 1
 Else
   End 0
 Endif
End 0
</pre>

Utilizzo:
<pre>
If func YESEMPIO.FUNZIONEDIPROVA(VALORE1)=1
 Infbox "Valore positivo"
Else
 Infbox "Valore negativo"
Endif
</pre>

Altro esempio:
<pre>
Funprog PROVA2(PAR1,PAR2)
 Value Integer PAR1
 Value Integer PAR2
 Local Integer RES

 RES=PAR1*PAR2

End RES
</pre>

Utilizzo:

<pre>
Infbox "il prodotto tra"-num$(VAL1)-"e"-num$(VAL2)-"è:"-num$(func PROVA2(VAL1,VAL2))
</pre>

== Sottoprogrammi Subprog ==
Sono metodi che 
* non restituiscono un valore
* possono modificare il valore dei parametri passati
* si chiamano con <code>call NOMESUBPROG(...)</code> all'interno dello stesso file
* si chiamano con <code>call NOMESUBPROG(...) From NOMEFILE</code> da qualsiasi punto


Qui un esempio, che tra l'altro richiama a sua volta un sotto programma dello stesso file sorgente

<pre>Subprog C_ITMREF(VALEUR)
 Variable Char    VALEUR()
 Local Integer YERR
 ...
 Call YCHK_ART(VALEUR,[M:YPR0]X_NAT,[M:YPR0]YDATAI,[M:YPR0]YDATAF,YERR)
 ...
End</pre>

== Varie ==
* Messaggio a video: <code>Infbox "messaggio: "+ "ciao!"</code><br />
* Per porre una condizione "inline", per esempio nei campi selezione di un oggetto si può usare ''string$'': 
per esempio per far comparire un valore solo per una certa transazione:
<code>string$(GFLAG='YOFQ',[F:POH]YPOHORE)</code>