Patch level : 12.00 1392

Files correlati     : vetbcnt.msk

Commento             :
Causali per numerazione

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

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