Code snippet per eventi Form Designer e Condizioni WorkFlow Designer
‘ questo script è da inserire all’interno della procedura postback di UploadFile ‘ si occupa di raccogliere i files caricati all’interno di uno zip, e di inserirli nei documenti collegati If ParameterAll.Size > 0 Then Dim CODDOC As String = String2Array(form.GetCodDoc(), “|”)(1) & “|” & String2Array(form.GetCodDoc(), “|”)(2) & “|” & String2Array(form.GetCodDoc(), “|”)(3) & “|” Dim…
‘ Il seguente script è un esempio di come si possono elaborare i file (Excel in questo caso) contenuti in una cartella FTP, con cancellazione dopo l’elaborazione dim ftpuser as string=<utente> dim ftppw as string=<password> dim folder as string=”ftp://xx.xx.xx.xx/cartella” ‘ Legge la directory dim ftpRequest as System.Net.FtpWebRequest = System.Net.WebRequest.Create(folder) ftpRequest.Credentials =new System.Net.NetworkCredential(ftpuser,ftppw) ftpRequest.Method = System.Net.WebRequestMethods.Ftp.ListDirectory…
‘ Action link per l’aggiunta di clienti in anagrafica ‘ Lo snippet segue questo modello di JSON di esempio ‘ ‘{ ‘ “Token”: “ec161f8b-ba19-4dac-aab0-2ee16ab94391”, ‘ “Clienti”: [ ‘ { ‘ “TipoCliente”: “Ditta”, ‘ “ID”: 1, ‘ “RagioneSociale”: “LEMMA WINE COMPANY”, ‘ “Indirizzo”: “120 SE MARKET STREET”, ‘ “Cap”: “97214”, ‘ “Citta”: “PORTLAND”, ‘ “Provincia”: “OR”,…
‘ Action link per l’aggiunta di articoli in anagrafica ‘ Lo snippet segue il seguente JSON di esempio ‘ ‘{ ‘ “Token”: “ec161f8b-ba19-4dac-aab0-2ee16ab94391”, ‘ “Articoli”: [ ‘ { ‘ “ID”: “ACITAR”, ‘ “Descrizione”: “ACIDO TARTARICO”, ‘ “Tipo”: “ENO”, ‘ “StatoFisico”: “Confezionato”, ‘ “CatMIPAAF”: “107”, ‘ “Formato”: 0, ‘ “UM”: “Kg”, ‘ “Categoria”: “”, ‘ “Vendibile”:…
‘ il seguente frammento di codice riempie la griglia Grid1 con le righe risultanti da una query dim q as new QWTable() q.database=form.GetDataBase() q.sql=”select TOP 10 CODICE,DESCRIZION from ARTIC” q.requestlive=false q.active=true q.rowset.first() while not q.Rowset.Endofset form.FindControl(“Grid1”).AddRow() form.FindControl(“Grid1”).AssignField(“CUSTOM1”,q.rowset.fields(“CODICE”).value) form.FindControl(“Grid1”).AssignField(“CUSTOM2”,q.rowset.fields(“DESCRIZION”).value) form.FindControl(“Grid1”).SaveRow() q.rowset.next() End while form.FindControl(“Grid1”).MoveFirst() q.active=false
‘ Il seguente script consente di risolvere l’errore “connessione sottostante chiusa: Errore imprevisto durante un’operazione di invio” che si può verificare in un task collegandosi ad un ad un web service esterno che supporta solo TLS 1.2 NOTA: l’errore generalmente si verifica solo con l’esecuzione tramite il servizio QualiWare Server Daemon, mentre potrebbe non verificarsi…
‘ Abilitazione/disabilitazione del pulsante ELIMINA per la categoria “PROVE” in base ad un valore del documento selezionato ‘ da inserire come “Script condizione di modifica” ‘ va ritornato False per bloccare il tasto, TRUE per sbloccarlo Dim form As document = this.page Dim TIPO As String = form.form_state.subid Select Case TIPO Case “PROVE” ‘ impedisce…
‘ Il seguente snippet può essere utilizzato in un task per creare le variabili e gli attributi del piano di controllo da utilizzare nel processo di produzione relativo ad una commessa dim form = new System.Dynamic.ExpandoObject() ‘ Oggetto dinamico usato per “riprodurre” l’oggetto form form.Session=new AssocArray form.Session(“QWSess”)= DB.QWSession ‘ Emulazione della sessione dim form_state =…
// Il seguente snippet deve essere inserito nell’EventoRenderClient e consente di applicare uno stile differente alla riga selezionata di una griglia. // N.B: utilizzabile solo se NuovoLayout=false $(‘#<Grid1>’).find(“.igg_ActiveRow[role=’row’]”).find(“[role=’gridcell’]”).css(“background-color”, “gold”)
Il seguente frammento di codice può essere inserito in una libreria per definire i campionamenti custom da usare nei Controlli Qualità. Delegate Sub tCampionamento_Custom(ByVal QWSess As QWSession, ByVal dmd_ref As Object, ByVal Alias_Variabile As QWRowset, ByVal Cod_Art As String, ByVal Cod_For As String, ByRef primaforn As Boolean, ByRef schema As DBArray, ByRef nuovotipo_stat As Integer,…