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

Code snippet per eventi Form Designer e Condizioni WorkFlow Designer

Creazione di un’azione sul Sistema Qualità

‘ Il seguente frammento crea un’azione sul sistema qualità, collegandola al documento corrente ‘ e la apre Dim url As String Dim params As AssocArray Dim formid As String params = New AssocArray ‘Parameter : PTipo,pNumMod,pCodart,pCodRep,pPar1,pPar2,pPar3,pPar4,pPar5,pPar6,pPar7,pPar8,pPar9,pPar10,pTipoArea,pDescr,pOggetto,pDescArt params(“PTipo”) = “C” params(“pIddoc”) = “DW” params(“pCoddoc”) = PackCode(“DW”,form.form_state.dmd_ref.TIPI_DOC.rowset.fields(“TIPO”).value,form.FindControl(“TIPO_CONT”).value,form.FindControl(“NUMERO”).value) params(“PCodart”) = “” params(“PCodRep”) = “SPP” params(“pTipoArea”) = “E” params(“pDescr”)…

Download di un file da un pulsante in un form Mobile

‘ Il seguente frammento di codice consente di effettuare lo scaricamento di un file ‘ specifico da un evento collegato ad un pulsante in un form Mobile. Dim nome_file as string=<assegnare il percorso del file> Dim url as string= CreateDownloadRequestMobile2(form.page, nome_file) Dim script as string = “QWFileDownload(localStorage[‘QWS_URL’]+’/” + url + “‘,'” + EscapeJavaScript(System.IO.Path.GetFileName(nome_file)) + “‘)”…

WebService: acquisizione di dati da un servizio esterno di rilevazione dati tramite URL

‘ Il seguente frammento di codice fornisce un esempio di come sia possibile acquisire informazioni da un ‘ un servizio esterno di rilevazione dati tramite la chiamata ad un WebService utilizzando una URL che restituisce una stringa XML. ‘ Nella fattispecie, viene utilizzato il Web Service messo a disposizione dal sistema di monitoraggio dei ‘…

Merge di documenti Word

‘ Grazie alla libreria OpenXml SDK di Microsoft, inclusa dalla release 2015.05b della piattaforma ‘ web QWay/QualiWare, è possibile con poche righe di codice aggiungere il contenuto di uno o più documenti Word all’interno di un altro documento Word esistente. ‘ Il seguente frammento di codice inserisce in un documento Word diversi documenti presenti in…

Almeno un rifiuto

‘ Questo script restituisce true se c’è stato almeno 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 codice…