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

Code snippet per eventi Form Designer e Condizioni WorkFlow Designer

Creazione variabili di processo in un form

‘ Il seguente snippet può essere utilizzato per creare le variabili e gli attributi del piano di controllo da utilizzare nel processo di produzione relativo ad una commessa dim form_state = new System.Dynamic.ExpandoObject() ‘ Oggetto dinamico usato per “riprodurre” l’oggetto form_state di processi_controlli.aspx.vb form_state.dmd_ref=New processo_controlliDataModule(form.GetDataBase()) ‘ Questa classe è definita in processi_controlli.aspx.vb dim ncomm as…

Apposizione di una firma nel BPM e chiusura del form

‘ Il seguente frammento di codice può essere collegato ad un pulsante di un form per apporre la firma dell’utente su una fase (in questo caso la redazione) e chiudere conseguentemente il form form.save() if not form.IsNew() dim tipo, tipo_cont, numero as string dim ind_rev as integer UnPackCode(“DW”,form.form_state.dmd_ref.DOCUMENT.rowset.fields(“_CODDOC”).value,tipo,tipo_cont,numero,ind_rev) BPMWorkflowSign(form.GetDataBase(),tipo,tipo_cont,numero,ind_rev,1,form.GetUserCode(),today(),true,false,””) ‘ 1 è l’attività di redazione…

Creazione di un messaggio con report PDF allegato

  ‘ Il seguente frammento di codice mostra come creare un messaggio e-mail con allegato un PDF generato dalla stampa di un report generato a partire dai dati del form corrente ‘ Il messaggio viene visualizzato e deve essere inviato dall’utente dim CODDOC as string = form.form_state.dmd_ref.DOCUMENT.rowset.fields(“_CODDOC”).value dim ADEST as dbarray = new dbarray() dim…

Scrittura dei valori dei campi di un form PDF

‘ Il seguente snippet può essere utilizzato come esempio per assegnare i valori ai campi testo e caselle contenuti in un form PDF ‘ Nell’esempio ai campi testo viene assegnato il nome, mentre le caselle vengono spuntate ‘ Per ulteriori info vedere qui: https://help.syncfusion.com/file-formats/pdf/working-with-forms dim path as string=form.GetDocumentPath() Dim loadedDocument As New Syncfusion.Pdf.Parsing.PdfLoadedDocument(path) ‘ Load…

Lettura dei valori dei campi di un form PDF

‘ Il seguente snippet può essere utilizzato per leggere i valori dei campi testo e caselle contenuti in un form PDF ‘ Nell’esempio i valori vengono accodati in un oggetto chiamato “NOTE” ‘ Per ulteriori info vedere qui: https://help.syncfusion.com/file-formats/pdf/working-with-forms form.findcontrol(“NOTE”).value=”” dim path as string=form.GetDocumentPath() Dim loadedDocument As New Syncfusion.Pdf.Parsing.PdfLoadedDocument(path) ‘ Load the form from the…

Aggiornamento delle coordinate GPS di clienti e fornitori

‘ Il seguente snippet può essere inserito in un task per aggiornare le coordinate GPS di clienti e fornitori ‘ dim key as string = “xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx” ‘ Inserire qui l’api key che si ottiene registrandosi gratuitamente al sito https://developer.mapquest.com/ (free fino a 15000 richieste/mese) dim via,citta,prov,cap,nazione,CODICE as string dim x as integer Dim Q as…

Traduzione di un testo

‘ Il seguente snippet può essere utilizzato per tradurre il testo contenuto in una casella di testo, secondo una lingua che può essere scelta a partire da una tendina che potrà contenere la lista delle lingue nel seguente formato: ‘ <codice lingua> – <descrizione lingua> ‘ esempio: ‘ en – Inglese ‘ it – Italiano…

Lettura del numero di pagine di un file PDF

  ‘ Il seguente frammento di codice mostra come si possono leggere il numero di pagine di un file PDF ‘Load the existing PDF document. Dim filename As String=”<mettere qui il percorso del file>” Dim loadedDocument As New Syncfusion.Pdf.Parsing.PdfLoadedDocument(fileName) dim npages as integer=loadedDocument.Pages.count() loadedDocument.Close(True)

Aggiunta di un range colorato ad un tachimetro in un report

Il seguente evento collegato ad un tachimetro consente di creare range colorati, come nella figura seguente: Private Sub gauge1_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) ‘ Aggiunta dei range colorati dim gauge as XRGauge = CType(sender, XRGauge) Dim gaugeControl As DevExpress.XtraGauges.Core.Customization.DashboardGauge = gauge.Gauge dim scale As DevExpress.XtraGauges.Core.Model.ArcScale=gaugeControl.Elements(0) scale.BeginUpdate() Dim range1 As DevExpress.XtraGauges.Core.Model.ArcScaleRange = New…