{"id":24954,"date":"2021-01-05T11:48:27","date_gmt":"2021-01-05T10:48:27","guid":{"rendered":"http:\/\/help.qualiware.it\/qw-help\/?p=24954"},"modified":"2023-05-05T11:50:22","modified_gmt":"2023-05-05T09:50:22","slug":"vi-e-almeno-una-approvazione-o-un-rifiuto","status":"publish","type":"post","link":"https:\/\/help.qualiware.it\/qw-help\/vi-e-almeno-una-approvazione-o-un-rifiuto\/","title":{"rendered":"Vi \u00e8 almeno una approvazione o un rifiuto"},"content":{"rendered":"<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\">' Questo script restituisce true se vi \u00e8 almeno una approvazione o un rifiuto sulla fase indicata\r\n\r\nDim tipo, tipo_cont, numero As String\r\nDim ind_rev As Integer\r\n\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\n\r\nDim result As Boolean\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 or VERIFICATO=1) and TIPO_P=:FASE\", par, False, False, msg)\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 vi \u00e8 almeno una approvazione o 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&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":[67],"acf":[],"_links":{"self":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24954"}],"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=24954"}],"version-history":[{"count":2,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24954\/revisions"}],"predecessor-version":[{"id":30580,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/24954\/revisions\/30580"}],"wp:attachment":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/media?parent=24954"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/categories?post=24954"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/tags?post=24954"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}