root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni per il modulo vendite

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1750 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-08-29 14:06:40 +00:00
parent 1ed9dd56cb
commit 3d9ba10ce5
5 changed files with 227 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/bastage.uml
View File

@ -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

75
ba/bastsua.uml Executable file
View File

@ -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

9
ba/batbsua.h Executable file
View File

@ -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

21
ba/batbsua.rpt Executable file
View File

@ -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

120
ba/batbsua.uml Executable file
View File

@ -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