Correzioni alla stampa tabella IV direttiva

git-svn-id: svn://10.65.10.50/trunk@539 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba3800.h

@@ -1,5 +1,7 @@
-// Campi maschera Stampa Tabella IV Direttiva CEE
+// Campi maschera Stampa Tabella IV Direttiva CEE
-
+
-#define TAB_IVD "%IVD"
+#define TAB_IVD "%IVD"
-
+
-#define F_DATASTAMPA 101
+#define F_DATASTAMPA 101  
+#define F_CODDITTA   102
+#define F_RAGSOC     103

ba/ba3800a.uml

@@ -1,25 +1,25 @@
-#include "ba3800.h" 
+#include "ba3800.h" 
- 
+ 
-PAGE "Stampa Tabella IV Direttiva CEE" -1 -1 40 5
+PAGE "Stampa Tabella IV Direttiva CEE" -1 -1 40 5
-
+
-DATE F_DATASTAMPA
+DATE F_DATASTAMPA
-BEGIN
+BEGIN
-  PROMPT 5 1 "Data di stampa    "
+  PROMPT 5 1 "Data di stampa    "
-  FLAGS "A"
+  FLAGS "A"
-END
+END
-
+
-BUTTON DLG_PRINT 10 2
+BUTTON DLG_PRINT 10 2
-BEGIN 
+BEGIN 
-  PROMPT -12 -1 "~Stampa"
+  PROMPT -12 -1 "~Stampa"
-  MESSAGE EXIT,K_ENTER
+  MESSAGE EXIT,K_ENTER
-END
+END
-
+
-BUTTON DLG_QUIT 10 2
+BUTTON DLG_QUIT 10 2
-BEGIN
+BEGIN
-  PROMPT -22 -1 ""
+  PROMPT -22 -1 ""
-END
+END
-
+
-ENDPAGE
+ENDPAGE
-
+
-ENDMASK
+ENDMASK
-
+

ba/ba3800b.uml

@@ -0,0 +1,43 @@
+#include "ba3800.h" 
+ 
+PAGE "Stampa Tabella IV Direttiva CEE" -1 -1 70 6
+
+NUMBER F_CODDITTA 5
+BEGIN
+  PROMPT 2 1 "Ditta           "
+  FLAGS "FRD"
+  USE LF_NDITTE KEY 1
+  CHECKTYPE REQUIRED
+  INPUT CODDITTA F_CODDITTA
+  DISPLAY "Codice" CODDITTA
+  DISPLAY "Ragione sociale @50" RAGSOC
+  OUTPUT F_CODDITTA CODDITTA
+  OUTPUT F_RAGSOC RAGSOC
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 2 2 "Ragione sociale "
+  FLAGS "D"
+END
+
+DATE F_DATASTAMPA
+BEGIN
+  PROMPT 40 1 "Data di stampa    "
+  FLAGS "A"
+END
+
+BUTTON DLG_PRINT 10 2
+BEGIN 
+  PROMPT -12 -1 "~Stampa"
+  MESSAGE EXIT,K_ENTER
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK