Programmazione - Revision history

Mwadmin: /* Esempi vari */

2026-06-04T09:28:08Z

Esempi vari

217.194.179.250: /* Programmazioni specifiche */

2024-12-09T12:41:51Z

Programmazioni specifiche

94.102.143.228: /* Esempi vari */

2021-06-24T08:12:14Z

Esempi vari

94.102.143.229: /* Appunti */

2020-01-27T10:39:30Z

Appunti

217.194.179.250: /* Appunti */

2019-11-19T10:25:08Z

Appunti

Mwadmin: /* Appunti */

2019-06-17T08:27:05Z

Appunti

Mwadmin: /* Appunti */

2019-06-17T08:24:44Z

Appunti

Mwadmin at 20:51, 6 June 2019

2019-06-06T20:51:03Z

New page

== Programmazione base ==
# [[Istruzioni base|Istruzioni base]]
# [[Lettura tabelle|Lettura tabelle]]
# [[Gestione file|Gestione file e cartelle]]
# [[Gestione videate e campi|Gestione videate e campi]]
# [[Variabili globali|Variabili globali predefinite]]
# [[Choose|Choose]]
# [[Entry_Points|Entry Points]]
# [[Esempi_di_programmazione|Esempi]]

== [[Programmi_specifici|Programmazioni specifiche]] ==
# [[Programmi_specifici#Aprire_un_URL_con_il_browser_della_postazione_client|Aprire un URL con il browser della postazione client]]
# [[Programmi_specifici#Far_eseguire_un_comando_al_sistema_operativo|Far eseguire un comando al sistema operativo]]
# [[Programmi_specifici#Stampa_di_un_pdf|Stampa di un pdf]]
# [[Programmi_specifici#Conoscere_hostname_che_esegue_il_client|Conoscere hostname che esegue il client]]
# [[Istruzioni SQL|Istruzioni SQL]]
# [[Gestione tracce|Gestione tracce]]
# [[Gestione errori|Gestione errori a run time]]
# [[Finestre di dialogo|Finestre di dialogo]]
# [[Far eseguire SPV e SUB prima dello SPE|Far eseguire SPV e SUB prima dello SPE]]

== Programmazioni composte ==
Vengono elencate di seguito delle programmazioni che richiedono sia codice che parametrizzazione:

# [[Debug|Come fare debug]]
# [[ImportExport#Programmazione|Import/Export]]
# [[Testata/Dettaglio|Gestione testata/dettaglio]]
# [[Invio mail|Invio mail]]
# [[Numeratore|Numeratori]]
# [[Transazioni_tabella|Transazioni su tabella]]
# [[Traduzioni|Traduzioni]]

== Appunti ==
#AFFZO: il no-lign non è necessario, aggiorna sempre tutta la colonna di una tabella
#NBLIG è il numero di riga di visualizzazione, non è uno dei campi chiave
# all'interno di una subroutine si può fare il casting tra <code>CLBfile</code>(Clob) e <code>char</code> da metodo chiamante a metodo chiamato invece la differenza di tipo tra argomento e parametro genera errore
#E' possibile inserire delle azioni all'interno di un tipo dato: un esempio è il tipo dato YIT (con funzioni YGESTYIT, YSTRYIT, YCTRYIT)
#Per vedere in quali punti è utilizzato un tipo dato eseguire la seguente query in sql server: <code>select * from SAGEDEV.AMSKZON where CODTYP_o='YIT'</code>
#CONTOBJW è un'azione che permette di disattivare il controllo d'esistenza nella tabella, con parametro OBJET che deve essere impostato con il codice dell'oggetto (per azione di tipo oggetto - vedi YIC)
#CONTOBJN è un'azione che permette di disattivare tutti i controllo dell'oggetto (per azione di tipo oggetto)
#filpath(CARTELLA,nomefile,estensione) costruisce il path assoluto di un file:
se CARTELLA inizia per "\\" mantiene la cartella così come passata nel parametro 
se CARTELLA inizia per "\" da un percordo del tipo "C:\CARTELLA" 
se CARTELLA non inizia con la barra, da un percorso del tipo "C:\SAGE\SAGEX3\Folders\DOSSIER\CARTELLA\nomefile.estensione"
#Per recuperare il percorso base di un dossier ci sono due modi, SETPARAM o filpath:
<pre>
filpath("","","")

Local Char MACHIN(20)
Local Char IRS(2)
Local Char OS(20)
Local Integer I
Local Char YDIR(250)
Call SETPARAM(YDIR,MACHIN,IRS,OS,I) From PARFICBAN
</pre>
#Per andare a capo a metà di una riga di codice basta mettere come primo carattere della nuova riga un <code>&</code>
<pre>
[M:YI3]YFVABBR(nolign-1) = [F:YFD]YFVVALCOD + " " +func AFNC.TEXTRA("ATABDIV","SHODES","6033",[F:YFD]YFVVALCOD)
&+ " " +func AFNC.TEXTRA("ATABDIV","LNGDES","6033",[F:YFD]YFVVALCOD)
</pre>
# per compilare un sorgente da codice
<pre>LOCAL Integer MYOK
CALL VALID("TRT","SPEITM", nomap, MYOK) From VALMSKSUB
</pre>
#per recuperare nomi campi di un blocco (riporto codice per MEMO): 
<pre>
######################################################################################
# SU APERTURA FINESTRA. una sola volta
# Utilizzare abbreviazioni per tabelle NON STANDARD. cambiare AMZ in YMZ!
$OUVRE
#If GUSER='IT102' Dbgaff : Endif

# Apro le tabelle utilizzate
If !clalev ([F:YII]) : Local File YITMINF [YII] : Endif
If !clalev ([F:YII_]) : Local File YITMINF [YII_] : Endif
If !clalev ([F:YIIT]) : Local File YITMINF [YIIT] : Endif # riferimento tabella YITMINF x controllare unicità YCODARTCLI
If !clalev ([F:YITM]) : Local File ITMMASTER [YITM] : Endif

#
#Gestione di Blocchi di campi.
#Registrazione utente/data/ora inserimento/modifica/cancellazione su blocco di controlli
#

#
#Dichiarazione array con nomi campi contenuti nei riquadri da gestire
#Local Integer MAXCAMPIBLOCK : MAXCAMPIBLOCK=13
#Local Char BLKBUFFER(30)(MAXCAMPIBLOCK)

#Local Integer NRBLKYIT1
#Local Integer C
#Local Char TEST(30)
# Recuperare il numero di blocchi da gestire e loro dimensioni
#If !clalev ([F:YMZ]) : Local File AMSKZON [YMZ] : Else Filter [F:YMZ] :ENDIF
#NRBLKYIT1 = func GETNRBLOC('YIT1')
#Local Integer VIDYIT1(NRBLKYIT1)
#Local Char BLK01(30)(NRBLKYIT1)

#Local Char BLK1(30)(MAXCAMPIBLOCK)
#Local Char BLK2(30)(MAXCAMPIBLOCK)
#Local Char BLK3(30)(MAXCAMPIBLOCK)
#Local Char BLK4(30)(MAXCAMPIBLOCK)
#Local Char BLK5(30)(MAXCAMPIBLOCK)
#Local Char BLK6(30)(MAXCAMPIBLOCK)
#Local Char BLK7(30)(MAXCAMPIBLOCK)
#Local Char BLK8(30)(MAXCAMPIBLOCK)
#Local Char BLK9(30)(MAXCAMPIBLOCK)
#Local Char BLK10(30)(MAXCAMPIBLOCK)

# partire dal code by AZ
#For C=1 To NRBLKYIT1
# Call GETBLOCKNAMES('YIT1', C, BLKBUFFER) From YSS02SPEITM
# For K=0 To MAXCAMPIBLOCK-1
# #Assign 'BLK'+num$(I)+'('+num$(K)+')' With evalue('BLKBUFFER('+num$(K)+')')
# Assign 'BLK'+num$(C)+'('+num$(K)+')' With evalue('BLKBUFFER')
# Next K
#Next C
# fine inizializzazione array con nomi campi x blocco
# code by AZ

#Local Char A(30)
#MAXB = func SPEITM.GETNRBLOC('YIT1')
#Local Char BLK1(30)(10)
#Local Char BLK2(30)(10)
#Local Char BLK3(30)(10)
#Local Char BLK4(30)(10)
#Local Char BLK5(30)(10)
#Local Char BLK6(30)(10)
#Local Char BLK7(30)(10)
#Local Char BLK8(30)(10)
#Local Char BLK9(30)(10)
#Local Char BLK10(30)(10)
#Dbgaff
#For I=1 To MAXB
# A='BLK'+num$(I)
# #Call GETBLOCKNAMES('YIT1', I, evalue(A)) From SPEITM
# Call GETBLOCKNAMES('YIT1', I, BLK10) From SPEITM
# For K=0 To 9
# Assign 'BLK'+num$(I)+'('+num$(K)+')' With evalue('BLK10('+num$(K)+')')
# Next
#Next
#Infbox BLK1(0)-BLK1(1)-BLK1(2)-'#'-BLK2

#End code AZ

#Filter [F:YMZ]
#Filter [F:YMZ] Where [F:AMZ]CODMSK='YIT2' Order By [F:AMZ]NUMBLOC Desc
#Local Integer VIDYIT2(func GETNRBLOC('YIT2'))

#Filter [F:YMZ]
#Filter [F:YMZ] Where [F:AMZ]CODMSK='YIT3' Order By [F:AMZ]NUMBLOC Desc
#Local Integer VIDYIT3(func GETNRBLOC('YIT3'))

# Define variabili flag per registare se vengono fatti cambiamenti ai campi.
# IN registrazione verrà salvato il timestamp di salvataggio
Return

</pre>

@@ Line 35: / Line 35: @@
 # aprire [[mappa goggle|google maps]]
 # [[funzione replace]]
 == Appunti ==

@@ Line 34: / Line 34: @@
 == Esempi vari ==
 # aprire [[mappa goggle|google maps]]
 == Appunti ==
 #AFFZO: il no-lign non è necessario, aggiorna sempre tutta la colonna di una tabella

@@ Line 17: / Line 17: @@
 # [[Istruzioni SQL|Istruzioni SQL]]
 # [[Gestione tracce|Gestione tracce]]
-# [[Gestione errori|Gestione errori a run time]]
+# [[Gestione errori|Gestione errori a run time (eccezioni)]]
 # [[Finestre di dialogo|Finestre di dialogo]]
 # [[Far eseguire SPV e SUB prima dello SPE|Far eseguire SPV e SUB prima dello SPE]]

@@ Line 58: / Line 58: @@
 &+ " " +func AFNC.TEXTRA("ATABDIV","LNGDES","6033",[F:YFD]YFVVALCOD)
 </pre>
-# per compilare un sorgente da codice
+# per compilare un sorgente da codice (compilazione sorgente da programma)
 <pre>LOCAL Integer MYOK
 CALL VALID("TRT","SPEITM", nomap, MYOK) From VALMSKSUB
 </pre>

@@ Line 42: / Line 42: @@
 #CONTOBJW è un'azione che permette di disattivare il controllo d'esistenza nella tabella, con parametro OBJET che deve essere impostato con il codice dell'oggetto (per  azione di tipo oggetto - vedi YIC)
 #CONTOBJN è un'azione che permette di disattivare tutti i controllo dell'oggetto (per  azione di tipo oggetto)
 #Per recuperare il  percorso base di un dossier ci sono due modi, SETPARAM o filpath:
 <pre>