Corretta Tabella scc in sco

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

ba/bastscc.uml

@@ -0,0 +1,42 @@
+#include "ba3200.h"
+
+PAGE "Stampa sconti incondizionati" -1 -1 50 8
+STRING F_INIZIO1 2
+BEGIN
+	PROMPT 2 1 "Da codice "
+	FLAGS "U"
+        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
+        FIELD LF_TABCOM->CODTAB
+	USE %SCO
+	INPUT CODTAB F_INIZIO1
+	DISPLAY "Codice" CODTAB
+	DISPLAY "Descrizione@50" S0
+	OUTPUT F_INIZIO1 CODTAB
+	GROUP 1
+END
+
+STRING F_FINE1 2
+BEGIN
+	PROMPT 2 3 "A codice  "
+	FLAGS "U"
+        HELP "Codice di fine. Vuoto = fine archivio"
+        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

ba/batbscc.h

@@ -0,0 +1,21 @@
+
+
+//      campi maschera batb%sco.msk
+
+#define F_CODICE                            101
+#define F_DESCR                             102
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

ba/batbscc.rpt

@@ -0,0 +1,9 @@
+[Headers]
+80
+Tabella Sconti incondizionati
+1|@3g%s|Codice
+1|@14g%s|Descrizione
+
+[Rows]
+1|CODTAB|@3g@2,ls
+1|S0|@14g@50,ls

ba/batbscc.uml

@@ -0,0 +1,41 @@
+#include "batbscc.h"
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Tabella Sconti clienti" -1 -1 78 8
+
+STRING F_CODICE 2
+BEGIN
+PROMPT 4 2 "Codice      "
+HELP "Codice sconto cliente"
+FIELD CODTAB
+FLAGS "U"
+KEY 1
+USE %SCC 
+INPUT CODTAB F_CODICE
+DISPLAY "Codice" CODTAB
+DISPLAY "Descrizione @50" S0
+OUTPUT F_CODICE CODTAB
+CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50
+BEGIN
+PROMPT 4 4 "Descrizione "
+HELP "Descrizione sconto incondizionato"
+FIELD S0
+KEY 2
+USE %SCC KEY 2
+INPUT CODTAB F_DESCR
+DISPLAY "Descrizione @50" S0
+DISPLAY "Codice" CODTAB
+OUTPUT F_CODICE CODTAB
+CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+ENDMASK