Utilizzato per gli eventi nel Form Designer
‘ L’utilizzo di thread è consigliato nei form quando l’elaborazione da compiere ha una durata superiore ai 30 secondi. ‘ E’ necessario adottare alcuni accorgimenti per ottenere un buon risultato. ‘ 1) Il thread può essere avviato da un pulsante e lo stato deve essere controllato periodicamente tramite un oggetto “timer” inserito all’interno di un…
‘ Il seguente codice invia dati ad un Web Service REST con utilizzo di un certificato P12 con codifica ECDH o ECDSA. ‘ Da notare che questo tipo di codifica è la più recente e più sicura e che il codice può essere adattato anche per codifica RSA. ‘ Questo codice funziona con QualiWare 2023.02.14…
‘ Il seguente codice analizza un’immagine o un documento utilizzando GPT dim path as string ‘ assegnare a questa variabile il percorso del file dim domanda as string ‘ assegnare a questa variabile la specifica del tipo di analisi da fare sul documento. Se si desidera che venga ritornato un JSON, inserire “JSON” nella domanda…
‘ Il codice seguente estrae numero documento, ragione sociale e partita IVA del cedente da un file XML relativo ad una fattura elettronica il cui percorso è contenuto nella variabile “Parameter1”. ‘ Può essere inserito in un oggetto Procedura da eseguire col metodo Execute specificando nel primo parametro il percorso del file da analizzare. Dim…
‘ Il seguente snippet deve essere inserito nell’EventoRender e consente di applicare uno stile differente ad una riga di una griglia ‘ N.B. può essere utilizzato solo se NuovoLayout=true dim i as integer for i=1 to form.FindControl(“Dataview1”).RowCount() if i mod 2=1 form.FindControl(“Dataview1″).SetRowStyle(i,”background-color:orange !important”) Else form.FindControl(“Dataview1″).SetRowStyle(i,”background-color:yellow !important”) End If Next
‘ Il seguente snippet deve essere inserito nell’evento DatiCaricatiClient consente di applicare uno stile differente ad una cella di una riga di una griglia in base al valore. ‘ N.B. può essere utilizzato solo se NuovoLayout=true dim i as integer for i=1 to form.FindControl(“Dataview1”).RowCount() if form.FindControl(“DataView1″).GetCellValue(i,”UNMIS”)=”pz” form.FindControl(“DataView1″).SetCellStyle(i,”UNMIS”,”background-color:brown !important;color: white !important”) Else form.FindControl(“DataView1″).SetCellStyle(i,”UNMIS”,”background-color:none;color: none”) End If…
‘ Il seguente snippet deve essere inserito nell’EventoRender e consente di applicare uno stile differente alle righe selezionate ‘ N.B. si può utilizzare solo se NuovoLayout=true form.FindControl(“DataView1”).SetSelectedRowStyle(“background-color: yellow !important;color: black !important”)
‘ Il seguente snippet deve essere inserito nell’EventoRender e consente di applicare uno stile specifico all’intestazione e alle righe di una griglia ‘ N.B. utilizzabile solo con NuovoLayout=true form.FindControl(“Dataview1”).SetHeaderStyle(“text-align:center !important;background-color:red !important;font-size:11pt !important”) ‘ Notare l’attributo “important”, da inserire per forzare l’utilizzo dell’attributo dim i as integer for i=1 to form.FindControl(“Dataview1”).RowCount() if i mod 2=1 form.FindControl(“Dataview1”).SetRowStyle(i,”background-color:orange…
‘ Il seguente snippet deve essere inserito nell’EventoRender e consente di applicare uno stile differente all’intestazione di una specifica colonna, o di tutte le colonne ‘ N.B. si può utilizzare solo se NuovoLayout=true form.FindControl(“DataView1”).SetHeaderStyle(“CODICE”,”background-color: blue !important;color: white !important”) ‘form.FindControl(“DataView1”).SetHeaderStyle(“background-color: blue !important;color: white !important”) ‘ Se si desidera attribuire a tutte le colonne lo stesso stile,…
‘ Il seguente frammento di codice genera un messaggio che contiene un file Excel creato partendo da un template e aggiornandolo con alcuni dati provenienti dal form. ‘ Può essere facilmente riadattato per ogni esigenza Dim x As qwexcel Dim i As Integer Dim msg as string Dim nf as string nf=form.GetSession().GetLocalTempFileName(“.XLSX”) CopyFile(form.GetSession().Q95_NOME_DIR_DOCUM+”\rpt\custom\<nome template>.xlsx”,nf,false) x…