Programmi specifici - Revision history

217.194.179.250: /* Chiamata a sistema */

2019-06-17T11:20:09Z

Chiamata a sistema

217.194.179.250: /* Aprire un URL con il browser della postazione client */

2019-06-17T10:57:22Z

Aprire un URL con il browser della postazione client

217.194.179.250: /* Aprire un URL con il browser della postazione client */

2019-06-17T10:45:23Z

Aprire un URL con il browser della postazione client

Mwadmin: Created page with "== Aprire un URL con il browser della postazione client==

 Local Char URL(250) URL="intranet.sagedev.it/bax/rdi3/check.asp?cod=wert" # usare apici singoli con dentro i d..."

2019-05-31T07:48:33Z

Created page with "== Aprire un URL con il browser della postazione client== <pre> Local Char URL(250) URL="intranet.sagedev.it/bax/rdi3/check.asp?cod=wert" # usare apici singoli con dentro i d..."

New page

== Aprire un URL con il browser della postazione client==

<pre>
Local Char URL(250)
URL="intranet.sagedev.it/bax/rdi3/check.asp?cod=wert" # usare apici singoli con dentro i doppi apici se necessario

Callui RETOUR="" With "UIAction="+chr$(1)+"OpenFile",
& "UILocalDir="+chr$(1) + "HTTP",
& "UILocalFile="+chr$(1) + URL
& ,
& "UIAdxPubSubFile=" + chr$(1) + "1"
</pre>

== Aprire un documento word==
Dalla documentazione di Sage alla voce SYSTEM
<pre>
Char FICHIERS(100)(50)
System FICHIERS = '#@'C:\Program Files\Microsoft Office\Office\WINWORD.EXE'
'E:\tmp\document.doc''
</pre>

== Aprire un pdf ==

<pre>
Local integer NBPAR_MAX: NBPAR_MAX =10
Local char TBPAR(20)(1..NBPAR_MAX)
Local char TBVAL(250)(1..NBPAR_MAX)

YFILE = "\\sagedev.it\PDF\dex\leg.pdf" #Il percorso del file deve essere in formato \\server\... e accessibile all'utente di sage

TBPAR(1) = "docjoin"
TBVAL(1) = YFILE

#mettere 0 per non avere il messaggio; 1 per visualizzarlo
Call ETAT("ADOC","","",0,"",TBPAR,TBVAL) From AIMP3
</pre>

Su questo modo vedi anche alla pagina [[Stampe|Stampe]].

<pre>
Local Char V2(250)
YFILE = "C:\USERS\ZAM\DOCUMENTS\CLIENTI\A.pdf"
Call URL(YFILE,V2) From PRDINFLIB
</pre>

== Far eseguire un comando al sistema operativo ==

<pre>
Local Integer YSTAT
YSTAT = 0
Call SYSTEME ("","C:\TMP\test.cmd","b",YSTAT) From ORDSYS
Infbox num$(YSTAT)
</pre>
Per stampare un'etichetta su una stampante di rete tramite il sistema operativo:
Call SYSTEME("","type"-YFILE-"> \\serverX3\PM43c001","",YSTAT) From ORDSYS
Per aprire il browser con una certa pagina web:
Call SYSTEME("",'"C:\Program Files\Internet Explorer\iexplore.exe" "www.google.it"',"",YSTAT) From ORDSYS

Un altro modo (da verificare) di far eseguire un batch è:

<code>System CHAINE="C:\test.bat"</code> ([http://www.greytrix.com/blogs/sagex3/2017/03/08/how-to-execute-a-bat-file-from-sage-x3/ fonte])

== Stampa etichette ==
=== Chiamata a sistema ===
La stampa di un'etichetta da dos si effettua in uno di questi modi (porta 9100):

* <code>type file.eti > indirizzo_stampante</code> (per es: type file.eti > \\serverX3\PM43C001)
* <code>echo "testo" > indirizzo_stampante</code>

Per stampare un'etichetta su una stampante di rete tramite il sistema operativo:

<code>Call SYSTEME("","type"-YFILE-"> \\serverX3\PM43c001","",YSTAT) From ORDSYS</code>

Questa riga

<code>echo %1 > %2</code>

può essere messa dentro un file <code>.bat</code> e richiamarla da programma:

<code>Call SYSTEME("","file.bat nomefile.eti indirizzo_stampante","",YSTAT) From ORDSYS</code>

=== Action ===
E' possibile creare un ACTION ('''GESACT'''), per esempio YPRINT, con modello "Programma" e si indica il file sorgente YAAA che contiene il codice da richiamare.

E' possibile anche creare un ACTION ('''GESACT''') con modello "Fuori modello"; si indica il file sorgente YAAA che contiene il codice da richiamare e in "[[Istruzioni_base#Sottoprogrammi|Sotto-programma]]" si indica il <code>SubprogAAA</code> da richiamare.

In pratica il sistema farà una <code>Call SubprogAAA(...) from YAAA</code>. I parametri andranno specificati nella scheda "Parametri" dell'azione.

== Ottenere info server/client ==

=== Conoscere hostname che esegue il client ===
Per esempio, può essere utile per sapere quale server citrix esegue il client

<pre>
Getui RETOUR = "" With "ComputerName"
K = instr(1,RETOUR,"=")
Infbox "Hostname = " + right$(RETOUR,K+1)
</pre>

=== Uso di '''adxmac''' e '''nomap''' ===

Il comando <code>adxmac(NUMERO)</code> restituisce il nome del server in cui si trova un'applicazione (indicata dal parametro da -2 a 8):
* NUMERO= -2 indirizzo di rete della postazione client (esempio con citrix: "serverCitrix.sagedev.dmn")
* NUMERO= -1 macchina sulla quale gira il runtime Adonix
* NUMERO= 0 nome del server sul quale è installata l'applicazione corrente
* NUMERO= 1-8 nome del server sul quale è installata la prima, seconda... ottava applicazione
Restituisce un Char; i valori restituiti da adxmac dipendono dai valori della variabile [S]adxmother (vedi in help .chm).

<code>nomap(NUMERO)</code> da il dossier corrente, figlio ecc...
* nomap(0) da dossier corrente (esempio "SAGEDEV")
* nomap(1) da dossier padre (esempio "DX")
* nomap(2) da dossier corrente (esempio "X3")

Vi è perfetta corrispondenza tra adxmother(I) e nomap(I+1).

=== Sistema operativo ===

<pre>
Local Char MACHINE(30) , OS(10)
MACHINE = adxmac(0)
Call GET_OS (MACHINE,OS) From ORDSYS
</pre>

Restituisce “unix”, “DOS” or "Windows"..

@@ Line 19: / Line 19: @@
 SREQUETE='kb.sagedev.it/index.php?title=Parametrizzazione'
 PROTOCOL='HTTPS'  # l'altro valore possibile è 'HTTP'
 Callui RETVALUE="" With     "UIAction=" + chr$(1) + "OpenFile",
 &                           "UILocalDir=" + chr$(1) + PROTOCOL,

@@ Line 76: / Line 76: @@
 La stampa di un'etichetta da dos si effettua in uno di questi modi (porta 9100):
-* <code>type file.eti > indirizzo_stampante</code>  (per es: type file.eti > \\serverX3\PM43C001)
+* <code>type file.eti > indirizzo_stampante</code>  (per es: type file.eti > \\serverX3\StampanteTermica)
 * <code>echo "testo" > indirizzo_stampante</code>
 Per stampare un'etichetta su una stampante di rete tramite il sistema operativo:
-<code>Call SYSTEME("","type"-YFILE-"> \\serverX3\PM43c001","",YSTAT) From ORDSYS</code>
+<code>Call SYSTEME("","type"-YFILE-"> \\serverX3\StampanteTermica","",YSTAT) From ORDSYS</code>
 Questa riga

@@ Line 11: / Line 11: @@
 & "UIAdxPubSubFile=" + chr$(1) + "1"
 </pre>
 == Aprire un documento word==