Code snippet per eventi Form Designer e Condizioni WorkFlow Designer
‘ Il seguente frammento di codice consente di eliminare la colonna di una griglia ‘ deve essere inserito nell’EventoRender del form if form.FindControl(“Grid1”).layout.size=3 ‘ “3” va sostituito con il numero totale di colonne comprese quella da eliminare ‘ La colonna non è già stata rimossa form.FindControl(“Grid1”).layout.removeAt(2) ‘ “2” deve essere sostituito con il numero della…
‘ Il seguente frammento di codice consente di modificare la larghezza della colonna di una griglia ‘ deve essere inserito nell’EventoRender del form form.FindControl(“Grid1”).layout(1)(3)=400 ‘ Il primo indice dell’array Layout è il numero della colonna, che parte da 1, il secondo è fisso a “3”
‘ 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…
‘ 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 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 =…
‘ 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…
‘ 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…
// 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);
// 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…
‘ 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)