Griglia e VistaDati: applicazione di uno stile differente ad una cella in base al valore (vecchio layout)

‘ Il seguente snippet deve essere inserito nell’EventoRender e consente di applicare uno stile differente ad una cella di una riga di una griglia in base al valore. ‘ In particolare, viene inserito il colore di sfondo rosso per tutte le celle della colonna corrispondente al campo “NUMBER1” che hanno valore maggiore di 10 ‘…

Griglia e VistaDati: applicazione di uno stile differente ad una riga (vecchio layout)

‘ Il seguente snippet deve essere inserito nell’EventoRender e consente di applicare uno stile differente ad una riga di una griglia ‘ In particolare, viene inserito il colore di testo rosso per tutte le celle di una riga nella quale i valori di due celle superano due valori di riferimento ‘ Lo snippet può essere…

Griglia e VistaDati: modifica font e altezza intestazione e righe (vecchio layout)

‘ Il seguente snippet deve essere inserito nell’EventoRender e consente di applicare uno stile specifico all’intestazione e alle righe di una griglia, variandone anche l’altezza ‘ N.B. utilizzabile solo con NuovoLayout=false form.AddStyle(“.stile_header”,”background-color:red !important;font-size:11pt !important”) form.AddStyle(“.stile_riga”,”font-size:11pt !important;height:25px !important”) form.FindControl(“Grid1”).SetHeaderStyle(“stile_header”) dim i as integer for i=1 to form.FindControl(“Grid1”).RowCount() form.FindControl(“Grid1″).SetRowStyle(i,”stile_riga”) Next ‘ ***** Versione utilizzabile con release precedenti…

Scaricamento file da SFTP

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

Eliminazione di una colonna di una griglia in un form mobile

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

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

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)