{"id":24361,"date":"2016-11-29T22:12:31","date_gmt":"2016-11-29T21:12:31","guid":{"rendered":"http:\/\/help.qualiware.it\/qw-help\/?p=24361"},"modified":"2024-03-04T09:57:27","modified_gmt":"2024-03-04T08:57:27","slug":"almeno-un-rifiuto","status":"publish","type":"post","link":"https:\/\/help.qualiware.it\/qw-help\/almeno-un-rifiuto\/","title":{"rendered":"Almeno un rifiuto"},"content":{"rendered":"<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\">' Questo script restituisce true se c'\u00e8 stato almeno un rifiuto sulla fase indicata\r\n\r\nDim tipo, tipo_cont, numero As String\r\nDim ind_rev As Integer\r\n\r\nUnPackCode(\"DW\", CODDOC, tipo, tipo_cont, numero, ind_rev)\r\n\r\nDim par As New AssocArray\r\npar(\"T\") = tipo\r\npar(\"TC\") = tipo_cont\r\npar(\"N\") = numero\r\npar(\"IR\") = ind_rev\r\npar(\"FASE\") = \"\" ' inserire qui il codice della fase\r\n\r\nDim q1 As QWTable\r\nDim msg As String\r\n\r\nq1 = OpenTable(DB, \"select * from DOC_REVE where TIPO=:T and TIPO_CONT=:TC and NUMERO=:N and IND_REV=:IR and RIFIUTATO= 1 and TIPO_P=:FASE\", par, False, False, msg)\r\n\r\nDim result As Boolean\r\n\r\nIf String.IsNullOrEmpty(msg) Then\r\n    If q1.RowSet.Count() &gt; 0 Then\r\n        result = True\r\n    Else\r\n        result = False\r\n    End If\r\nElse\r\n    result = False\r\nEnd If\r\n\r\nCloseTable(q1)\r\n\r\nReturn result<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>&#8216; Questo script restituisce true se c&#8217;\u00e8 stato almeno un rifiuto sulla fase indicata Dim tipo, tipo_cont, numero As String Dim ind_rev As Integer UnPackCode(&#8220;DW&#8221;, CODDOC, tipo, tipo_cont, numero, ind_rev) Dim par As New AssocArray par(&#8220;T&#8221;) = tipo par(&#8220;TC&#8221;) = tipo_cont par(&#8220;N&#8221;) = numero par(&#8220;IR&#8221;) = ind_rev par(&#8220;FASE&#8221;) = &#8220;&#8221; &#8216; inserire qui il codice&hellip;<\/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":[65],"tags":[66],"acf":[],"_links":{"self":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24361"}],"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=24361"}],"version-history":[{"count":3,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24361\/revisions"}],"predecessor-version":[{"id":36116,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24361\/revisions\/36116"}],"wp:attachment":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/media?parent=24361"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/categories?post=24361"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/tags?post=24361"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}