‘ Il seguente script è un esempio di come si possono scaricare i file contenuti in una cartella da un server SFTP. ‘ Utilizza la libreria SSH.NET, installata con la release 2021.06+4. ‘ Al seguente link: https://ourcodeworld.com/articles/read/369/how-to-access-a-sftp-server-using-ssh-net-sync-and-async-with-c-in-winforms ‘ è possibile trovare altri esempi di utilizzo Dim host As String = “<host>” ‘ es. ftp.qualiware.it Dim…
‘ Il seguente script consente di rimuovere il controllo sui certificati SSL consentendo di risolvere l’errore “Impossibile stabilire una relazione di trust per il canale sicuro SSL/TLS” che si può ‘ verificare quando il certificato non è valido o sul server non è aggiornato il database delle Certification Authorities System.Net.ServicePointManager.ServerCertificateValidationCallback = _ Function(se As Object,…
‘ Il seguente frammento di codice assegna alla variabile “json” la serializzaione della riga corrente della QWTable contenuta nella variabile “d” dim json as string dim i as integer Dim row As new system.collections.generic.Dictionary(Of String, Object) for i=1 to d.rowset.fields.count() row.add(d.rowset.fields(i).fieldname,d.rowset.fields(i).value) next json=Newtonsoft.Json.JsonConvert.SerializeObject(row)
‘ Il seguente snippet mostra come sia possibile generare movimenti di magazzino tramite un task ‘ L’esempio specifico preleva i dati da una tabella di frontiera alimentata dal sistema WMS Modula ‘ dim QWSess as QWSession QWSess=DB.QWSession MovMag_Apertura_Archivi(QWSess) dim q as new QWTable q.database=DB q.sql=” select STO_ID as ID,convert(varchar(18),STO_ARTICOLO) as CODICE,STO_GIAC as QTA,STO_TIME as DATA…
‘ Il seguente snippet può essere inserito in un task per aggiornare le coordinate GPS di clienti e fornitori ‘ dim key as string = “xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx” ‘ Inserire qui l’api key che si ottiene registrandosi gratuitamente al sito https://developer.mapquest.com/ (free fino a 15000 richieste/mese) dim via,citta,prov,cap,nazione,CODICE as string dim x as integer Dim Q as…
‘ In questo esempio viene effettuata la stima di due valori di livello idrometrico utilizzando la primitiva QWml.Prediction e partendo da due differenti modelli di Machine Learning, ‘ aventi codice “0002” e “0003”. ‘ La stima viene memorizzata nella tabella IOTLOG, e i valori delle variabili indipendenti vengono acquisiti sempre dalla tabella IOTLOG, e corrispondono…
‘ In questo esempio viene effettuata la chiamata ad un servizio WebApi REST messo a disposizione dal servizio “Allerta Meteo” della regione Emilia-Romagna che restituisce i livelli idrometrici del fiume Reno in 3 località diverse. ‘ Il codice può essere inserito in un task per la lettura periodica. Dim Q as new QWTable Q.Database=DB Q.sql=”select…
‘ Il seguente snippet può essere usato per resettare il workflow e rigenerarlo Dim QWSess As QWSession = DB.QWSession Dim ok as boolean Dim ss as string, msg as string Dim TIPO, TIPO_CONT, NUMERO as string Dim IND_REV as integer unpackcode(“DW”,CODDOC,TIPO,TIPO_CONT,NUMERO,IND_REV) ‘DOC_REVE ss = “delete from DOC_REVE where TIPO = ‘” + TIPO + “‘…
‘ Il seguente script è un esempio di come si può scaricare un file da un server FTP. Può essere utilizzato semplicemente cambiando i percorsi dei files. Dopo che il file è stato scaricato, questo viene anche rielaborato per trasformarlo da file in lunghezza fissa ad un CSV. Si riporta anche questa parte in quanto…
‘ Il seguente script è un esempio di task estrae i files contenuti in allegati ai rapporti di accettazione e li archivia in una categoria documentale avente codice “CERFOR” dim q as new qwtable() q.database=DB q.sql=”select l1.*,r.*,c.RAGSOC from LINKDOC l1 join RIDOCACC r on r.[_IDDOC]=l1.IDDOC1 and r.[_CODDOC]=l1.CODDOC1 join CLIFOR C on c.CODICE=r.CODFOR where IDDOC1=’A’ and…