I CodeBlock possono essere utilizzati sia nella definizione dei campi sia nella propriet\u00e0 AfterSave. Le sintassi da utilizzare sono per\u00f2 diverse.
\nNel primo caso, il CodeBlock pu\u00f2 essere scritto in due modi:<\/p>\n
.campi(\"INVOICE_MONTH\")=Function (oFlds,oFldsQ) val(oFlds(\"INVOICE_MONTH\").value)<\/pre>\noppure<\/p>\n
.campi(\"INVOICE_MONTH\")=Function (oFlds,oFldsQ) \r\n return val(oFlds(\"INVOICE_MONTH\").value)\r\n End Function<\/pre>\nLa differenza fra le due sintassi consiste nel fatto che la prima pu\u00f2 essere usata se il calcolo consiste in una sola funzione, la quale pu\u00f2 essere specificata direttamente dopo la parola chiave “Function” senza necessit\u00e0 di specificare “Return”. La seconda invece deve essere utilizzata quando il calcolo richiede pi\u00f9 istruzioni, e dovr\u00e0 essere utilizzata la parola chiave “Return” per restituire il risultato.
\nSi noti che la specifica del parametro “oFldsQ” non \u00e8 obbligatoria.<\/p>\n
Nel caso della propriet\u00e0 AfterSave, il CodeBlock non deve ritornare un valore, e la sintassi da utilizzare in quel caso sar\u00e0 come la seguente:<\/p>\n
tabella.AfterSave=Sub (oTbl)\r\n oTbl.replace(\"DESCREXT\",oTbl.rowset.fields(\"DESCRIZION\").value)\r\n oTbl.saverecord()\r\n End Sub\r\n<\/pre>\n <\/p>\n
Esempi<\/h2>\n
Di seguito sono riportati alcuni esempi di script di importazione.<\/p>\n
Importazione da una query, con AfterSave<\/h3>\ndim tabella as new QDaemonTableDef\r\ntabella.gest_sql=\"select 'Z'+CODICE as CODICE, DESCRIZION, UNMIS, TIPO, UNCAMP from ARTIC where CODICE like 'ZZZ%'\"\r\ntabella.q95_name=\"ARTIC\"\r\ntabella.keys=new dbarray(\"CODICE\")\r\n\r\nwith tabella\r\n .campi(\"CODICE\")=\"CODICE\"\r\n .campi(\"DESCRIZION\")=\"DESCRIZION\"\r\n .campi(\"UNMIS\")=\"UNMIS\"\r\n .campi(\"TIPO\")=\"TIPO\"\r\n .campi(\"UNCAMP\")=Function (oFlds) 1\r\nend with\r\n\r\ntabella.AfterSave=Sub (oTbl)\r\n oTbl.replace(\"DESCREXT\",\"AfterSave\")\r\n oTbl.saverecord()\r\n End Sub\r\n\r\nQDaemonImportTable(DB,\"ARTIC\",tabella)\r\n<\/pre>\n <\/p>\n
Importazione da file CSV delimitato da virgola, senza intestazioni e con doppi apici<\/h3>\ndim tabella as new QDaemonTableDef\r\n\r\ntabella.gest_name=\"\\\\server\\csv\\Turnover.txt\"\r\ntabella.Gest_Separator=\"Delimited(,)\"\r\ntabella.gest_ColumnNames=new dbarray(\"INVOICE_YEAR\",\"ITEM_GROUP\",\"PRODUCT_LINE\",\"INVOICE_MONTH\",\"COUNTRY_CODE\",\"CUSTOMER_CODE\",\"CUSTOMER_NAME\",\"ITEM_CODE\",\"ITEM_DESCRIPTION\",\"QUANTITY\",\"TURNOVER\",\"COST_OF_SALES\",\"MARGIN\",\"EXTERNAL_SALES_REP\",\"BUSINESS_UNIT_CODE\",\"BUSINESS_UNIT_NAME\") \r\ntabella.q95_name=\"P_TURNOVER\"\r\ntabella.gest_CharacterSet=\"ANSI\"\r\ntabella.keys=new dbarray(\"INVOICE_YEAR\",\"INVOICE_MONTH\",\"CUSTOMER_CODE\",\"ITEM_CODE\",\"PROV\")\r\n\r\nwith tabella\r\n .campi(\"INVOICE_YEAR\")= (Function (oFlds) val(oFlds(\"INVOICE_YEAR\").value)) \r\n .campi(\"ITEM_GROUP\")=\"ITEM_GROUP\"\r\n .campi(\"PRODUCT_LINE\")=\"PRODUCT_LINE\"\r\n .campi(\"INVOICE_MONTH\")=Function (oFlds,oFldsQ) val(oFlds(\"INVOICE_MONTH\").value) \r\n .campi(\"COUNTRY_CODE\")=\"COUNTRY_CODE\"\r\n .campi(\"CUSTOMER_CODE\")=Function (oFlds) \"C\"+substr2(oFlds(\"CUSTOMER_CODE\").value,4) \r\n .campi(\"CUSTOMER_NAME\")=\"CUSTOMER_NAME\"\r\n .campi(\"ITEM_CODE\")=\"ITEM_CODE\" ' Chiave\r\n .campi(\"ITEM_DESCRIPTION\")=\"ITEM_DESCRIPTION\"\r\n .campi(\"QUANTITY\")=Function (oFlds) val(oFlds(\"QUANTITY\").value)\r\n .campi(\"TURNOVER\")=Function (oFlds) val(oFlds(\"TURNOVER\").value)\r\n .campi(\"COST_OF_SALES\")=Function (oFlds) isnull(val(oFlds(\"COST_OF_SALES\").value),0)\r\n .campi(\"MARGIN\")=Function (oFlds) isnull(val(oFlds(\"MARGIN\").value),0)\r\n .campi(\"EXTERNAL_SALES_REP\")=\"EXTERNAL_SALES_REP\"\r\n .campi(\"PROV\")=Function () 0\r\nend with\r\n\r\nQDaemonImportTable(DB,\"P_TURNOVER\",tabella)\r\n<\/pre>\n <\/p>\n
Importazione da file CSV, delimitato da Tab e con intestazioni<\/h3>\ndim tabella as new QDaemonTableDef\r\ntabella.gest_name=\"\\\\server\\csv\\artic.csv\"\r\ntabella.Gest_Separator=\"TabDelimited\"\r\ntabella.q95_name=\"ARTIC\"\r\ntabella.keys=new dbarray(\"CODICE\")\r\n\r\nwith tabella\r\n .campi(\"CODICE\")=\"CODICE\"\r\n .campi(\"DESCRIZION\")=\"DESCRIZION\"\r\n .campi(\"UNMIS\")=\"UNMIS\"\r\n .campi(\"TIPO\")=Function (oFlds) val(oFlds(\"TIPO\").value)\r\n .campi(\"UNCAMP\")=Function (oFlds) val(oFlds(\"UNCAMP\").value)\r\nend with\r\n\r\nQDaemonImportTable(DB,\"ARTIC\",tabella)\r\n<\/pre>\n <\/p>\n
Importazione da file CSV delimitato da Tab e senza intestazioni<\/h3>\ndim tabella as new QDaemonTableDef\r\n\r\ntabella.gest_name=\"\\\\server\\csv\\Turnover.txt\"\r\ntabella.Gest_Separator=\"TabDelimited\"\r\ntabella.gest_ColumnNames=new dbarray(\"INVOICE_YEAR\",\"ITEM_GROUP\",\"PRODUCT_LINE\",\"INVOICE_MONTH\",\"COUNTRY_CODE\",\"CUSTOMER_CODE\",\"CUSTOMER_NAME\",\"ITEM_CODE\",\"ITEM_DESCRIPTION\",\"QUANTITY\",\"TURNOVER\",\"COST_OF_SALES\",\"MARGIN\",\"EXTERNAL_SALES_REP\",\"BUSINESS_UNIT_CODE\",\"BUSINESS_UNIT_NAME\")\r\ntabella.q95_name=\"P_TURNOVER\"\r\ntabella.keys=new dbarray(\"INVOICE_YEAR\",\"INVOICE_MONTH\",\"CUSTOMER_CODE\",\"ITEM_CODE\",\"PROV\")\r\n\r\nwith tabella\r\n .campi(\"INVOICE_YEAR\")= (Function (oFlds) val(oFlds(\"INVOICE_YEAR\").value)) ' Chiave\r\n .campi(\"ITEM_GROUP\")=\"ITEM_GROUP\"\r\n .campi(\"PRODUCT_LINE\")=\"PRODUCT_LINE\"\r\n .campi(\"INVOICE_MONTH\")=Function (oFlds,oFldsQ) val(oFlds(\"INVOICE_MONTH\").value) ' Chiave\r\n .campi(\"COUNTRY_CODE\")=\"COUNTRY_CODE\"\r\n .campi(\"CUSTOMER_CODE\")=Function (oFlds) \"C\"+substr2(oFlds(\"CUSTOMER_CODE\").value,4) ' Chiave\r\n .campi(\"CUSTOMER_NAME\")=\"CUSTOMER_NAME\"\r\n .campi(\"ITEM_CODE\")=\"ITEM_CODE\" ' Chiave\r\n .campi(\"ITEM_DESCRIPTION\")=\"ITEM_DESCRIPTION\"\r\n .campi(\"QUANTITY\")=Function (oFlds) val(oFlds(\"QUANTITY\").value)\r\n .campi(\"TURNOVER\")=Function (oFlds) val(oFlds(\"TURNOVER\").value)\r\n .campi(\"COST_OF_SALES\")=Function (oFlds) isnull(val(oFlds(\"COST_OF_SALES\").value),0)\r\n .campi(\"MARGIN\")=Function (oFlds) isnull(val(oFlds(\"MARGIN\").value),0)\r\n .campi(\"EXTERNAL_SALES_REP\")=\"EXTERNAL_SALES_REP\"\r\n .campi(\"PROV\")=Function () 0\r\nend with\r\n\r\nQDaemonImportTable(DB,\"P_TURNOVER\",tabella)<\/pre>\n <\/p>\n
Importazione di dati tramite WebService<\/h3>\n' Il seguente frammento di codice fornisce un esempio di come sia possibile acquisire informazioni da un \r\n' un servizio esterno di rilevazione dati tramite la chiamata ad un WebService utilizzando una URL che restituisce una stringa XML.\r\n' Nella fattispecie, viene utilizzato il Web Service messo a disposizione dal sistema di monitoraggio dei \r\n' pannelli fotovoltaici SolarEdge )\r\n\r\n' L'output \u00e8 il seguente:\r\n' <series>\r\n' <timeUnit>HOUR<\/timeUnit>\r\n' <unit>Wh<\/unit>\r\n' <measuredBy>INVERTER<\/measuredBy>\r\n' <values>\r\n' <dateValue>\r\n' <date>2017-05-08 00:00:00<\/date>\r\n' <value>0.0<\/value>\r\n' <\/dateValue>\r\n' ....\r\n' <\/values>\r\n' <\/series>\r\n\r\n' I dati vengono recuperati su base giornaliera (per il giorno corrente) e memorizzati nella tabella IOTLOG\r\nDim Q as new QWTable\r\nQ.Database=DB\r\nQ.sql=\"select * from IOTLOG\"\r\nQ.allowallrecords=false\r\nQ.active=true\r\n\r\nDim d as string=ltrim(dbase.str(Today.Year))+\"-\"+ltrim(dbase.str(Today.Month))+\"-\"+ltrim(dbase.str(Today.Day))\r\nDim url As String = \"https:\/\/monitoringapi.solaredge.com\/site\/349661\/energy.xml?timeUnit=HOUR&endDate=\"+d+\"&startDate=\"+d+\"&api_key=KDZ46QJYX2HQPIVPJY7KX3R9HA7ULNRG\" \r\n\r\nDim webClient As New System.Net.WebClient\r\nDim result As String = webClient.DownloadString(Url)\r\n\r\n' Recupero della risposta\r\nDim response = System.XML.Linq.XElement.Parse(result)\r\n\r\nfor each el as System.XML.Linq.Xelement in response.LastNode.Nodes ' Il LastNode \u00e8 \"Values\", e ne estrae tutti i nodi\r\n ' Il quarto nodo \u00e8 quello dei Values\r\n Dim Data As String\r\n Dim Valore as String\r\n\r\n Data=Ctype(el.FirstNode,System.Xml.Linq.Xelement).Value\r\n dim da as System.datetime=System.Datetime.parse(data)\r\n Valore=Ctype(el.LastNode,System.Xml.Linq.Xelement).Value \r\n\r\n if Valore<>\"null\"\r\n if not q.rowset.findkey(da,\"SOLAR\",\"SITE1\")\r\n q.beginappend()\r\n q.replace(\"DATA\",da)\r\n q.replace(\"DEVICENAME\",\"SOLAR\")\r\n q.replace(\"SENSORNAME\",\"SITE1\")\r\n End If\r\n\r\n q.replace(\"VALUE\",val(Valore))\r\n q.saverecord()\r\n End If \r\nnext\r\n\r\nQ.active=false<\/pre>\n","protected":false},"excerpt":{"rendered":"Il task da eseguire viene definito attraverso uno script in linguaggio Visual Basic.NET (VB.NET). Nello script \u00e8 possibile utilizzare primitive specifiche per il trasferimento dati da altri database, che nelle release precedenti alla 2015.17.2c era necessario programmare attraverso il servizio QDaemon il quale era basato sulla piattaforma client\/server, facendo uso del linguaggio dBase. Le primitive…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"ngg_post_thumbnail":0,"footnotes":""},"categories":[60],"tags":[82],"acf":[],"_links":{"self":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24779"}],"collection":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/comments?post=24779"}],"version-history":[{"count":12,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24779\/revisions"}],"predecessor-version":[{"id":37702,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24779\/revisions\/37702"}],"wp:attachment":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/media?parent=24779"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/categories?post=24779"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/tags?post=24779"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}