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”)…