Correzioni per il modulo vendite

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

ba/bastage.uml

@@ -1,6 +1,6 @@
 #include "ba3200.h"
 
-PAGE "Stampa Agenti" -1 -1 50 8
+PAGE "Stampa Tabella Agenti" -1 -1 50 8
 STRING F_INIZIO1 5
 BEGIN
 PROMPT 2 1 "Da codice "
@@ -10,7 +10,7 @@ FIELD LF_TABCOM->CODTAB
 USE %AGE
 INPUT CODTAB F_INIZIO1
 DISPLAY "Codice" CODTAB
-DISPLAY "Descrizione@30" S0
+DISPLAY "Descrizione@50" S0
 OUTPUT F_INIZIO1 CODTAB
 GROUP 1
 END

ba/bastsua.uml

@@ -0,0 +1,75 @@
+#include "ba3200.h"
+
+PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8
+
+STRING F_INIZIO1 2
+BEGIN
+	PROMPT 2 1 "Da cod. agente   "
+	HELP "Inserire il codice d'inizio "
+	FIELD LF_TABCOM->CODTAB[1,2]
+  USE %AGE 
+  INPUT CODTAB[1,2] F_INIZIO1
+  DISPLAY "Codice Agente" CODTAB[1,2]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_INIZIO1 CODTAB[1,2]
+	GROUP 1
+END
+
+STRING F_INIZIO2 2
+BEGIN
+	PROMPT 28 1 "Da cod. subagente  "
+	HELP "Inserire il codice d'inizio "
+	FIELD LF_TABCOM->CODTAB[3,4]
+	USE %SUA
+	INPUT CODTAB[1,2] F_INIZIO1
+	INPUT CODTAB[3,4] F_INIZIO2
+	DISPLAY "Codice Agente" CODTAB[1,2]
+	DISPLAY "Codice SubAgente" CODTAB[3,4]
+	DISPLAY "Descrizione@50" S0
+	OUTPUT F_INIZIO1 CODTAB[1,2]
+	OUTPUT F_INIZIO2 CODTAB[3,4]
+	GROUP 1
+END
+
+
+STRING F_FINE1 2
+BEGIN
+	PROMPT 2 3 "A codice agente  "
+	HELP "Inserire il codice di fine  "
+  FIELD LF_TABCOM->CODTAB[1,2]
+	COPY USE F_INIZIO1
+  INPUT CODTAB[1,2] F_FINE1
+	COPY DISPLAY F_INIZIO1
+  OUTPUT F_FINE1 CODTAB[1,2]
+	GROUP 2
+END
+
+
+STRING F_FINE2 2
+BEGIN
+	PROMPT 28 3 "A codice subagente "
+	HELP "Inserire il codice di fine  "
+	FIELD LF_TABCOM->CODTAB[3,4]
+	USE %SUA
+	INPUT CODTAB[1,2] F_FINE1
+	INPUT CODTAB[3,4] F_FINE2
+	DISPLAY "Codice Agente" CODTAB[1,2]
+	DISPLAY "Codice SubAgente" CODTAB[3,4]
+	DISPLAY "Descrizione@50" S0
+	OUTPUT F_FINE1 CODTAB[1,2]
+	OUTPUT F_FINE2 CODTAB[3,4]
+	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/batbsua.h

@@ -0,0 +1,9 @@
+#define F_CODICE       101
+#define F_NUMERO       102
+#define F_DESCR        103
+#define F_PROVVFISSA   104
+#define F_PROVVVAR     105
+#define F_CODAGENTE    106
+#define F_RAGSOC       107
+#define F_LIQPROVV     108
+#define F_DESCRAGE     109

ba/batbsua.rpt

@@ -0,0 +1,21 @@
+[Headers]
+132
+Stampa Tabella Gestione Subagenti
+1|@2g%s|Agente
+1|@10g%s|Subagente
+1|@21g%s|Descrizione
+1|@73g%s|Prov. fissa
+2|@21g%s|Prov. variabile
+2|@73g%s|Cod. fornitore
+2|@90g%s|Ragione sociale
+2|@107g%s|Liquid. prov. sul pagato
+
+[Rows]
+1|CODTAB[1,2]|@2g@2s
+1|CODTAB[3,4]|@10g@2s
+1|S0|@21g@50s
+1|R0|@73g@6,rpn|####,@@
+2|R1|@21g@6,rpn|####,@@
+2|S1|@73g@6,ls
+2|S2|@90g@50,ls
+2|B0|@107g@1,ls

ba/batbsua.uml

@@ -0,0 +1,120 @@
+#include "batbsua.h"
+#define LF_CLIFOR 20
+
+TOOLBAR "" 0 20 60 2
+#include <toolbar.h>
+ENDPAGE
+
+PAGE "Gestione subagenti" 11 60 14
+
+GROUPBOX DLG_NULL 75 7
+BEGIN
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
+STRING F_CODICE 2
+BEGIN
+  PROMPT 2 2 "Agente    "
+  FIELD CODTAB[1,2]
+  KEY 1
+  FLAG "U"
+  USE %AGE
+  INPUT AGE->CODTAB  F_CODICE
+  DISPLAY "Codice " AGE->CODTAB
+  DISPLAY "Descrizione@50" AGE->S0
+  OUTPUT F_CODICE AGE->CODTAB
+  OUTPUT F_DESCRAGE  AGE->S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCRAGE 50
+BEGIN
+  PROMPT 21 2 ""
+  FLAGS "D"
+  CHECKTYPE NORMAL
+END
+
+STRING F_NUMERO 2
+BEGIN
+  PROMPT 2 4 "Subagente "
+  FIELD CODTAB[3,4]
+  FLAG "U"
+  KEY 1
+  USE %SUA
+  INPUT CODTAB[1,2]  F_CODICE
+  INPUT CODTAB[3,4]  F_NUMERO
+  DISPLAY "Agente " CODTAB[1,2]
+  DISPLAY "Subagente " CODTAB[3,4]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODICE CODTAB[1,2]
+  OUTPUT F_NUMERO CODTAB[3,4]
+  OUTPUT F_DESCR S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50
+BEGIN
+  PROMPT 21 4 ""
+  FIELD S0
+  KEY 2
+  USE %SUA KEY 2
+  INPUT S0  F_DESCR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Subagente " CODTAB[3,4]
+  DISPLAY "Agente " CODTAB[1,2]
+  OUTPUT F_CODICE CODTAB[1,2]
+  OUTPUT F_NUMERO CODTAB[3,4]
+  OUTPUT F_DESCR  S0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_PROVVFISSA 6 2
+BEGIN
+  PROMPT 2 8  "Provvigione fissa  "
+  FIELD R0
+END
+
+NUMBER F_PROVVVAR 6 2
+BEGIN
+  PROMPT 35 8  "Provvigione variabile  "
+  FIELD R1
+END
+
+STRING F_CODAGENTE 6
+BEGIN
+  PROMPT 2 10 "Codice fornitore   "
+  FIELD S1
+  FLAG "R"
+  USE LF_CLIFOR KEY 1 SELECT TIPOCF="F"
+  INPUT CODCF F_CODAGENTE
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_CODAGENTE CODCF
+  OUTPUT F_RAGSOC RAGSOC
+
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 2 12 "Ragione sociale    "
+  FIELD S2
+  USE LF_CLIFOR KEY 2 SELECT TIPOCF="F"
+  INPUT RAGSOC F_RAGSOC
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  OUTPUT F_RAGSOC RAGSOC
+  OUTPUT F_CODAGENTE CODCF
+
+END
+
+BOOLEAN F_LIQPROVV
+BEGIN
+  PROMPT 2 14 "Liquidazioni provvigioni sul pagato "
+  FIELD B0
+END
+
+ENDPAGE
+
+
+ENDMASK