217.194.179.250: /* Caricamento */

2022-03-21T09:27:14Z

Caricamento

94.102.143.229: /* Elenco file di una cartella */

2020-01-31T13:15:55Z

Elenco file di una cartella

217.194.179.250: /* Altri comandi */

2019-11-19T10:29:26Z

Altri comandi

217.194.179.250: /* Altri comandi */

2019-11-19T10:26:57Z

Altri comandi

217.194.179.250 at 09:52, 4 June 2019

2019-06-04T09:52:53Z

New page

== Dimensione dei file ==

Per sapere la dimensione di un file:

<code>filinfo(YFILEI,7)</code>

è anche un modo per sapere se il file esiste:
<pre>
If filinfo(YFILEI,7)<0
Infbox "File non trovato"
End
Endif
</pre>

== Scrittura/Lettura ==

Codice di esempio per la lettura/scrittura di file:

<pre>

Local Char YFILEI(250),YFILEO(250)
Local Clbfile YETI(4)

YFILEI = filpath("TMP\ETICHETTE",'Eti_Standard',"eti")

If filinfo(YFILEI,7)<0
Infbox "File di input non trovato"
End
Endif

YFILEO = filpath("TMP\ETICHETTE",'Etichetta', "txt")

adxirs = ''

# apro il file YFILEI in lettura
Openi YFILEI,0 Using [YIN]
# leggo il file e metto in YETI
Rdseq YETI Using [YIN]
# chiudo il file
Openi Using [YIN]

...

# apro il file in scrittura
Openo YFILEO,0 Using [YOUT]
#scrivo sul file
Wrseq YETI Using [YOUT]
# chiudo il file
Openo Using [YOUT]
</pre>

Per leggere i dati caricandoli su un '''clob''':

<pre>
Local Char YFILEI(250), YFILEO(250)
Local Clbfile YETI(4)

YFILEI = filpath("TMP\ETICHETTE",'Eti_Standard',"eti")
YFILEO = filpath("TMP\ETICHETTE",'Eti_OUTPUT',"txt")

Openi YFILEI,0 Using [YIN] # apro il file YFILEI in lettura
Iomode adxirs '' Using [YIN] #dopo l'apertura del file, contiene il separatore di record usato da Rdseq e Wrseq. Per leggere tutto in un'unica volta impostare come vuota
Iomode adxifs '' Using [YIN] #dopo l'apertura del file, contiene il separatore di campo
Iomode adxium 50 Using [YIN] #dopo l'apertura del file, codifica ASCII, necessaria per clob

Rdseq YETI Using [YIN] # leggo il file e metto in YETI
Openi YFILEI Using [YIN] # chiudo il file

Openo YFILEO,0 Using [YOUT]
Wrseq YETI Using [YOUT]
Openo YFILEO Using [YOUT]
</pre>

== Cancellare ==

<code> Call SYSTEME(adxmac(1),'ae_rm '+PATHFILE,"",STAT) From ORDSYS</code>

(per maggiori info vedi [[SYSTEME_From_ORDSYS|SYSTEME From ORDSYS]])

<code> Call EFFACE(PATHFILE,"",STAT) From ORDSYS</code>

in V7: <code>RETURN_STATUS=delFile(Path)</code>

== Creare cartella ==

<code> Call SYSTEME(adxmac(0),'ae_mkdir '+PATHFILE,"",STAT) From ORDSYS</code>
<code> Call SYSTEME(adxmac(0),'ae_mkdir'-'"'+PATHFILE+'"',"",STAT) From ORDSYS</code>

== Spostare ==

Questo comando è stato usato da server X3 a percorso di rete.

<code>Call MOVE (FILE_SRC, CARTELLA_DEST, YSTAT) From ORDSYS</code>

== Copiare file esterni ==

Per copiare un file da client (scelto interattivamente dal'utente) in un file su server X3

<pre>
Local Integer STAT
Local Char FICCLI(250)
Local Char FICSRV(250)
FICSRV= "c:\SAGE\SAGEX3V6\X3V6\Folders\"+nomap(0)+"\TMP\nomefile.txt"
FICCLI = GDIREXP+"\*.pdf" #GDIREXP contiene al cartella di default per utente da dove selezionare i file
Call COPSRV(FICCLI,FICSRV,STAT) From ORDSYS
</pre>

COPCLI serve invece per la direzione opposta, da server X3 a client

<code>Call COPCLI(FICSRV,FICCLI,STAT) From ORDSYS</code>

Per copiare un file da una cartella ad un'altra entrambe in '''percorsi di rete''' utilizzare la chiamata <code>COPIE</code> (attenzione al maiuscolo/minuscolo!)
Se il file di destinazione esiste già viene sovrascritto.

<pre>
Local Char SRC(250)
Local Char DES(250)
Local Integer STAT
DES="\\sagedev\sage\Dossier\SAGEDEV\TMP\DP\test.pdf"
SRC="\\srvdev\TMP\xxx\esempio.pdf"
Call COPIE(SRC,DES,STAT) From ORDSYS
</pre>

== Verifica presenza file e cartelle==

<code>Call EXISTE(PATH,EXIST) From ORDSYS</code> restituisce:
* 0 se non esiste
* 1 se è un file
* 2 se è una cartella

<pre> Local Integer EXIST
Call EXISTE(PATH,EXIST) From ORDSYS
If EXIST <> 1
Errbox "file non presente"
Endif
</pre>

Il modo diretto è il seguente (maggiori info nell'help in linea di '''filinfo'''):
<pre>
Local Integer RETDIR
RETDIR = filinfo(PATH,0)

If RETDIR<0 or int(mod(RETDIR/4096, 16)) <> 4
Errbox "directory non presente"
Endif
</pre>

Più semplicemente se è un file si può fare così:

<pre>
If filinfo(YFILEI,7)<0
Infbox "File di input non trovato"
Endif
</pre>

Per verificare la presenza di un file in un client usare

<code>call EXICLI(FICCLI,STAT) from ORDSYS</code>

Recuperare la lista dei file presenti in una cartella (attenzione a maiuscolo/minuscolo: *.txt è diverso da *.TXT)
<pre>
Local Char PATH(250)
Local Char LISTAFILE(100)(1..1000)
Local Integer NUMFILE
PATH ="\\SAGEDEV\car1\A*"
Call SYSTEME2(adxmac(0),"lsadx"-PATH,"",NUMFILE,LISTAFILE) From ORDSYS
NUMFILE = min(NUMFILE,dim(LISTAFILE)) #nel caso in file siano più di quelli contenuti nell'array
</pre>

== Elenco file di una cartella ==

Il comando da utilizzare è

<code>Call SYSTEME2 (adxmac(0),”lsadx”-DIR,””,LENGTH,FILELIST) From ORDSYS</code>

Questa chiamata recupera il risultato del comando eseguito. Se non serve recuperare il comando basta usare SYSTEME (senza l'ultimo parametro di output).

Parametri:
* DIR: Nome directory (non deve contenere spazi)
* LENGTH: numero di file presente nella directory.
* FILELIST: Lista dei nomi dei file presenti nella directory (non devono contenere spazi). Deve essere una matrice di Char

<pre>
Local Char DIR(GDIMFIC), FILELIST(GDIMFIC)(1..100)
Local Integer LENG
DIR="C:\test"
Call SYSTEME2 (adxmac(0),"lsadx"-DIR,"",LENG,FILELIST) From ORDSYS
For I=3 To LENG #I=3 per saltare le due cartelle . e ..
InfBox FILELIST(I)
Next
</pre>

Oppure, con caratteri jolly, per recuperare tutti i file <code>ODA*</code>:

<pre>
Local Integer NUMFILE
Local Char LISTAFILE(100)(1..1000)
Local Char PATH(100), FICBAS(100)
PATH = ...
FICBAS='"' + "ODA*" + '"'
Call SYSTEME2(adxmac(0),"lsadx"-PATH-FICBAS,"",NUMFILE,LISTAFILE) From ORDSYS

For I=1 To LENG
InfBox FILELIST(I)
Next
</pre>

Il comando deve essere scritto così: <code>lsadx \\srvint1\IntranetPDF\hlp "*.pdf"</code>

In realtà è possibile lanciare qualsiasi comando dos, e recuperarne lo standard output:
<pre>
Local Char DIR(GDIMFIC), FILELIST(GDIMFIC)(1..100)
Local Integer LENG
DIR="C:\temp"
Call SYSTEME2 (adxmac(0),"dir /b "-DIR,"",LENG,FILELIST) From ORDSYS
For I=3 To LENG #I=3 per saltare le due cartelle . e ..
InfBox FILELIST(I)
Next
</pre>

== Altri comandi ==

<code>filpath(..)</code>

<code>filinfo(..)</code>

<code>dir$</code>

Esempio: costruzione di un percorso qualsiasi

<code>[L]PATH = filpath([L]DIR, [L]NOMEFILE, [L]ESTENSIONE, [L]DOSSIER, [L]VOLUME, [L]SERVER)</code>

<pre>
filpath("DIR","NOMEFILE","ESTENSIONE","SAGEDEV") # => "C:\SAGE\SAGEX3V6\X3V6\Folders\SAGEDEV\DIR\NOMEFILE.ESTENSIONE"
filpath("DIR","NOMEFILE","ESTENSIONE","SAGEDEV","A") # => "C:\SAGE\SAGEX3V6\X3V6\Folders\SAGEDEV\DIR\NOMEFILE.ESTENSIONE"
filpath("DIR","NOMEFILE","ESTENSIONE","SAGEDEV","A","srvx3") # => "srvx3@C:\SAGE\SAGEX3V6\X3V6\Folders\SAGEDEV\DIR\NOMEFILE.ESTENSIONE"
</pre>

Tra le altre cose permettono un test dell'esistenza di una tabella; esempio
<pre>
# Test dell'esistenza della tabella 'CLIENT' nell'applicazione corrente
If filinfo(filpath('FIL','CLIENT','fde',-1),1) <0 : Goto INEX : Endif
</pre>

== Caricamento ==
Carico di un file da client verso file su server

<pre>
Local Integer STAT
Local Char FICCLI(250)
Local Char FICSRV(250)
FICSRV= "c:\SAGE\SAGEX3V6\X3V6\Folders\"+nomap(0)+"\TMP\YDOC_"+format$("D:YYYYMMDD[_]hhmmss",date$)+"_"+GUSER+".pdf"
FICCLI = GDIREXP+"\*.pdf"

Call COPSRV(FICCLI,FICSRV,STAT) From ORDSYS
</pre>

== ''adxirs'' e ''adxifs'' ==
'''adxirs''' è una variabile stringa di massimo 2 caratteri che contiene il record separatore usato dalle istruzioni Rdseq e Wrseq per la lettura/scrittura sequenziale dei file.
Ogni elemento in una lista data come argomento in Rdseq o Wrseq è separata da questo valore.
Per leggere tutto il file in un'unica volta bisogna impostare come vuota questa variabile.

Alla fine del file invece, sia in scrittura che in lettura viene considerato il separatore di linea inidicato da '''adxifs'''.
Va notato che è una variabile globale valida per tutti i file aperti.

Per avere un controllo per ogni singolo file aperto bisogna usare l'istruzione '''''Iomode''''' (consigliato).

← Older revision		Revision as of 09:27, 21 March 2022
Line 300:		Line 300:

	Call COPSRV(FICCLI,FICSRV,STAT) From ORDSYS		Call COPSRV(FICCLI,FICSRV,STAT) From ORDSYS
		+	</pre>
		+
		+	Per modificare la dimensine massima dle file caricabile, modificare il file di configurazione nodelocal.js di Syracuse:
		+	<pre>
		+	upload: {
		+	fileMaxSize:
		+
		+	{ default: 20, //default max size in MB
		+
		+	patchUpdate: 500 //max size of patchFile in MB }
		+	},
	</pre>		</pre>

@@ Line 223: / Line 223: @@
       InfBox FILELIST(I)
 Next
 </pre>

@@ Line 224: / Line 224: @@
 Next
 </pre>
 == Altri comandi ==

@@ Line 242: / Line 242: @@
 filpath("DIR","NOMEFILE","ESTENSIONE","SAGEDEV","A","srvx3") # =>  "srvx3@C:\SAGE\SAGEX3V6\X3V6\Folders\SAGEDEV\DIR\NOMEFILE.ESTENSIONE"
 </pre>
 Tra le altre cose permettono un test dell'esistenza di una tabella; esempio

Gestione file - Revision history

217.194.179.250: /* Caricamento */

94.102.143.229: /* Elenco file di una cartella */

217.194.179.250: /* Altri comandi */

217.194.179.250: /* Altri comandi */

217.194.179.250 at 09:52, 4 June 2019