From 3d9ba10ce5a66f19701bf54725135698cff4fd71 Mon Sep 17 00:00:00 2001 From: pirro Date: Tue, 29 Aug 1995 14:06:40 +0000 Subject: [PATCH] Correzioni per il modulo vendite git-svn-id: svn://10.65.10.50/trunk@1750 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/bastage.uml | 4 +- ba/bastsua.uml | 75 +++++++++++++++++++++++++++++++ ba/batbsua.h | 9 ++++ ba/batbsua.rpt | 21 +++++++++ ba/batbsua.uml | 120 +++++++++++++++++++++++++++++++++++++++++++++++++ 5 files changed, 227 insertions(+), 2 deletions(-) create mode 100755 ba/bastsua.uml create mode 100755 ba/batbsua.h create mode 100755 ba/batbsua.rpt create mode 100755 ba/batbsua.uml diff --git a/ba/bastage.uml b/ba/bastage.uml index fdf299ca0..9d2b1b69f 100755 --- a/ba/bastage.uml +++ b/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 diff --git a/ba/bastsua.uml b/ba/bastsua.uml new file mode 100755 index 000000000..720ea739a --- /dev/null +++ b/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 diff --git a/ba/batbsua.h b/ba/batbsua.h new file mode 100755 index 000000000..dea61ed8c --- /dev/null +++ b/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 diff --git a/ba/batbsua.rpt b/ba/batbsua.rpt new file mode 100755 index 000000000..06b8fb0d4 --- /dev/null +++ b/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 diff --git a/ba/batbsua.uml b/ba/batbsua.uml new file mode 100755 index 000000000..01699f8f0 --- /dev/null +++ b/ba/batbsua.uml @@ -0,0 +1,120 @@ +#include "batbsua.h" +#define LF_CLIFOR 20 + +TOOLBAR "" 0 20 60 2 +#include +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