145 articles QW-FD – Code Snippet Page 6 / 15

Code snippet per eventi Form Designer e Condizioni WorkFlow Designer

Apertura di un documento da app mobile

‘ Il seguente frammento di codice consente di aprire un documento da app mobile BrowserDoMobile7(form.page, “MOBILE7_DOCUMENT97.ASPX?CODDOC=” + Escape(<coddoc del documento>)) ‘ È possibile aggiungere il parametro SCRIVI=1 per richiedere l’apertura del form in modifica ‘ Inoltre, a quest’ultimo è si può aggiungere SOLOFORM=1 per fare in modo che, alla chiusura della maschera, si ritorni al…

Rimozione errori di certificato “Impossibile stabilire una relazione di trust per il canale sicuro SSL/TLS”

‘ 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,…

Modifica della risoluzione di un’immagine

‘ Il seguente snippet può essere utilizzato nell’EventoEsegui di un oggetto Procedura specificato come oggetto di ritorno del metodo UploadFile() per abbassare la risoluzione di un’immagine caricata try dim tmpBase64String as string = ImageToBase64(Parameter1) Dim Base64String As String, NEW_Base64String As String if dbdollar(“data:image”, tmpBase64String) or dbdollar(“;base64,”, tmpBase64String) Base64String = Substr(tmpBase64String, 23, Len(tmpBase64String)) else Base64String =…

Invio di un messaggio ai redattori e agli utenti coinvolti in altre fasi (BPM)

‘ Questo script invia mail di notifica ai redattori del documento (fase R), o agli utenti coinvolti in altre fasi. ‘ NB Tali fasi devono essere iniziate o concluse, non da cominciare dim tipo, tipo_cont, numero as string dim ind_rev as integer Unpackcode(“DW”,CODDOC,tipo,tipo_cont,numero,ind_rev) Dim par1 As AssocArray = New AssocArray dim q1 as qwtable Dim…

Vi è almeno una approvazione o un rifiuto

‘ Questo script restituisce true se vi è almeno una approvazione o un rifiuto sulla fase indicata Dim tipo, tipo_cont, numero As String Dim ind_rev As Integer UnPackCode(“DW”, CODDOC, tipo, tipo_cont, numero, ind_rev) Dim par As New AssocArray par(“T”) = tipo par(“TC”) = tipo_cont par(“N”) = numero par(“IR”) = ind_rev par(“FASE”) = “” ‘inserire qui…

Visualizzazione dell’orologio tramite evento RenderClient

// Il seguente frammento di codice può essere inserito nell’EventoRenderClient per visualizzare // l’orologio in un form sia desktop che mobile var clock=setInterval(function(){ if ($(‘#<Label1>’).length>0) { var today = new Date(); var time = today.getHours() + “:” + today.getMinutes() + “:” + today.getSeconds(); $(‘#<Label1>’).setLabel(time) } else clearInterval(clock) }, 100);

Assegnazione della ragione sociale di un cliente/fornitore a partire dal codice (vers. javascript)

// Il seguente frammento assegna il campo del form “RAGSOC” con la ragione sociale // del fornitore o cliente il cui codice è presente nel campo nel cui EventoCambia viene inserito il frammento stesso // ATTENZIONE: la query deve essere autorizzata con la seguente istruzione inserita nell’EventoCaricamento // form.GetSession().AllowClientQuery(“Select RAGSOC from CLIFOR”) $.QualiWare.executeQuery(“Select RAGSOC from…

Serializzazione JSON della riga corrente di una QWTable

‘ 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)

Editor di immagini

A partire dalla release 2020.06+++ è disponibile uno strumento per la modifica di immagini, completamente utilizzabile da browser e attivabile da un form realizzato con il Form Designer. L’editor di immagini consente di aggiungere note testuali, forme, firme, disegni a mano libera e timbri. Lo strumento è attivabile utilizzando la seguente primitiva: ImageEditor(<image>,<postback procedure>): attiva…

Generazione movimenti di magazzino da task

‘ 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…