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") = "Reparto: "+form.findcontrol("Notebook1").findcontrol("Rep").value+chr(13)+"Attività: "+form.findcontrol("Notebook1").findcontrol("Att").value+chr(13)+form.findcontrol("Notebook1").findcontrol("DescInc").value
params("pOggetto") = "Analisi Infortunio - "+form.findcontrol("titolo").value
params("pDescart") = ""

formid = CType(form.Page, qwWebControls.QWWebPage)._uniqueID
form.Session(formid + "_AQ_PARAMS") = params
url = "AZIONISQ.ASPX?FORMID=" + formid
BrowserDo(form.Page, url)