From 2aeb6ef30a29cc5d30f115759a6a5c0c5ba62f5a Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 20 Feb 1995 17:23:48 +0000
Subject: [PATCH] Aggiunta tabella codici di spedizione.

git-svn-id: svn://10.65.10.50/trunk@1018 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/bastcsp.uml | 42 ++++++++++++++++++++++++++++++++++++++++++
 ba/batbcsp.h   |  8 ++++++++
 ba/batbcsp.rpt | 10 ++++++++++
 ba/batbcsp.uml | 44 ++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 104 insertions(+)
 create mode 100755 ba/bastcsp.uml
 create mode 100755 ba/batbcsp.h
 create mode 100755 ba/batbcsp.rpt
 create mode 100755 ba/batbcsp.uml

diff --git a/ba/bastcsp.uml b/ba/bastcsp.uml
new file mode 100755
index 000000000..9e2faf2f7
--- /dev/null
+++ b/ba/bastcsp.uml
@@ -0,0 +1,42 @@
+#include "ba3200.h"
+
+PAGE "Stampa Spedizionieri" -1 -1 50 8
+STRING F_INIZIO1 5
+BEGIN
+PROMPT 2 1 "Da codice "
+FLAGS "U"
+HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
+FIELD LF_TABCOM->CODTAB
+USE %CSP
+INPUT CODTAB F_INIZIO1
+DISPLAY "Codice" CODTAB
+DISPLAY "Descrizione@30" S0
+OUTPUT F_INIZIO1 CODTAB
+GROUP 1
+END
+
+STRING F_FINE1 5
+BEGIN
+PROMPT 2 3 "A codice  "
+FLAGS "U"
+HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
+FIELD LF_TABCOM->CODTAB
+COPY USE F_INIZIO1
+INPUT CODTAB F_FINE1
+COPY DISPLAY F_INIZIO1
+OUTPUT F_FINE1 CODTAB
+GROUP 2
+END
+
+BUTTON DLG_OK 8 2
+BEGIN
+PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 8 2
+BEGIN
+PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK
diff --git a/ba/batbcsp.h b/ba/batbcsp.h
new file mode 100755
index 000000000..d104062c0
--- /dev/null
+++ b/ba/batbcsp.h
@@ -0,0 +1,8 @@
+
+//      campi maschera batb%csp.msk
+
+#define F_CODICE                            101
+#define F_DESCR                             102
+
+
+
diff --git a/ba/batbcsp.rpt b/ba/batbcsp.rpt
new file mode 100755
index 000000000..c02f9279d
--- /dev/null
+++ b/ba/batbcsp.rpt
@@ -0,0 +1,10 @@
+[Headers]
+80
+Tabella Spedizionieri
+1|@3g%s|Codice
+1|@14g%s|Descrizione
+
+[Rows]
+1|CODTAB|@3g@5,ls
+1|S0|@14g@30,ls
+
diff --git a/ba/batbcsp.uml b/ba/batbcsp.uml
new file mode 100755
index 000000000..d62d17aa3
--- /dev/null
+++ b/ba/batbcsp.uml
@@ -0,0 +1,44 @@
+#include <batb%csp.h>
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Tabella Spedizionieri" -1 -1 78 8
+
+STRING F_CODICE 5
+BEGIN
+PROMPT 4 2 "Codice      "
+FIELD CODTAB
+FLAGS "U"
+KEY 1
+USE %CSP
+INPUT CODTAB F_CODICE
+DISPLAY "Codice" CODTAB
+DISPLAY "Descrizione @30" S0
+OUTPUT F_CODICE CODTAB
+OUTPUT F_DESCR S0
+CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 30
+BEGIN
+PROMPT 4 4 "Descrizione "
+FIELD LF_TABCOM->S0
+KEY 2
+USE %CSP KEY 2
+INPUT CODTAB F_CODICE
+INPUT S0 F_DESCR
+DISPLAY "Descrizione @30" S0
+DISPLAY "Codice" CODTAB
+OUTPUT F_CODICE CODTAB
+OUTPUT F_DESCR S0
+CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+ENDMASK
+
+