From d6cbaf3e5a349f296777bb24a7be72c79133a355 Mon Sep 17 00:00:00 2001
From: Alex <alexbonazzi5652@gmail.com>
Date: Fri, 9 May 2025 01:39:55 +0200
Subject: [PATCH] Patch level         : 12.00 1392 Files correlati     :
 vetbcnt.msk

Commento             :
Causali per numerazione
---
 src/ve/vetbcnt.h   |   8 +++
 src/ve/vetbcnt.uml | 138 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 146 insertions(+)
 create mode 100644 src/ve/vetbcnt.h
 create mode 100644 src/ve/vetbcnt.uml

diff --git a/src/ve/vetbcnt.h b/src/ve/vetbcnt.h
new file mode 100644
index 000000000..3f09b0a51
--- /dev/null
+++ b/src/ve/vetbcnt.h
@@ -0,0 +1,8 @@
+#define FC_CODNUM				101
+#define FC_DESNUM				102
+#define FC_TIPODOC			103
+#define FC_DESTIPODOC		104
+#define FC_CAUS		   		105
+#define FC_DESCAUS		  106
+#define FC_CAUSANT			107
+#define FC_DESCAUSANT		108
diff --git a/src/ve/vetbcnt.uml b/src/ve/vetbcnt.uml
new file mode 100644
index 000000000..035c442dc
--- /dev/null
+++ b/src/ve/vetbcnt.uml
@@ -0,0 +1,138 @@
+#include "vetbcnt.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <filebar.h>
+
+BUTTON DLG_NULL 2 2
+BEGIN
+END
+
+#include <cancelbar.h>
+
+ENDPAGE
+
+PAGE "Causali per numerazione" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 1 ""
+  FLAGS "R"
+END
+
+STRING FC_CODNUM 4
+BEGIN
+  PROMPT 2 2 "Numerazione  "
+  FIELD CODTAB[1,4]
+  HELP "Codice numerazione"
+  USE %NUM
+  INPUT CODTAB FC_CODNUM
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FC_CODNUM CODTAB
+  OUTPUT FC_DESNUM S0
+  CHECKTYPE FORCED
+  FLAG "UPA"
+  KEY 1
+  WARNING Numerazione #F_CODNUM assente
+END
+
+STRING FC_DESNUM 50
+BEGIN
+  PROMPT 24 2 ""
+  HELP "Descrizione numerazione"
+  USE %NUM KEY 2
+  INPUT S0 FC_DESNUM
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT FC_CODNUM
+  KEY 1
+  GROUP 1
+END
+
+STRING FC_TIPODOC 4
+BEGIN
+  PROMPT 2 3 "Tipo         "
+  FIELD CODTAB[5,8]
+  HELP "Codice tipo documento"
+  USE %TIP
+  INPUT CODTAB FC_TIPODOC
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FC_TIPODOC CODTAB
+  OUTPUT FC_DESTIPODOC S0
+  CHECKTYPE FORCED
+  FLAG "UP"
+  KEY 1
+  WARNING Tipo documento #F_TIPODOC assente
+END
+
+STRING FC_DESTIPODOC 50
+BEGIN
+  PROMPT 24 3 ""
+  HELP "Descrizione tipo documento"
+  USE %TIP KEY 2
+  INPUT S0 FC_DESTIPODOC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT FC_TIPODOC
+  KEY 1
+END
+
+STRING FC_CAUS 3
+BEGIN
+  PROMPT 2 6 "Causale      "
+  FIELD S5
+  USE LF_CAUSALI
+  INPUT CODCAUS FC_CAUS
+  DISPLAY "Codice" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT FC_CAUS CODCAUS
+  OUTPUT FC_DESCAUS DESCR
+  CHECKTYPE NORMAL
+  FLAG "U"
+  GROUP 2
+  ADD RUN CG0 -4
+END
+
+STRING FC_DESCAUS 50
+BEGIN
+  PROMPT 24 6 ""
+  USE LF_CAUSALI KEY 2
+  INPUT DESCR FC_DESCAUS
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Codice" CODCAUS
+  COPY OUTPUT FC_CAUS
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+STRING FC_CAUSANT 3
+BEGIN
+  PROMPT 2 7 "Causale ant. "
+  FIELD S6
+  USE LF_CAUSALI SELECT REG ==""
+  INPUT CODCAUS FC_CAUSANT
+  DISPLAY "Codice" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT FC_CAUSANT CODCAUS
+  OUTPUT FC_DESCAUSANT DESCR
+  CHECKTYPE NORMAL
+  FLAG "U"
+  GROUP 2
+END
+
+STRING FC_DESCAUSANT 50
+BEGIN
+  PROMPT 24 7 ""
+  USE LF_CAUSALI KEY 2
+  INPUT DESCR FC_DESCAUSANT
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Codice" CODCAUS
+  COPY OUTPUT FC_CAUSANT
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+ENDPAGE
+ENDMASK