Correzioni alle tabelle per la gestione vendite

git-svn-id: svn://10.65.10.50/trunk@1717 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-08-21 15:57:47 +00:00
parent d6047bf5b8
commit caa9881850
16 changed files with 601 additions and 540 deletions

View File

@ -8,7 +8,7 @@ ENDPAGE
PAGE "Codici assoggettamento fiscale" -1 -1 78 8
NUMBER F_CODICE 4
STRING F_CODICE 1
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice di assoggettamento fiscale"
@ -24,7 +24,7 @@ OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione dell'assoggettamento fiscale"

View File

@ -7,6 +7,7 @@
#define F_PROVV 103
#define F_GRUPPO 104
#define F_CONTO 105
#define F_DESCONTO 106

View File

@ -8,6 +8,12 @@ ENDPAGE
PAGE "Categorie di vendita " -1 -1 78 8
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
@ -19,14 +25,14 @@ BEGIN
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
END
@ -41,36 +47,54 @@ BEGIN
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
END
NUMBER F_PROVV 5 2
NUMBER F_PROVV 6 2
BEGIN
PROMPT 4 6 "Provvigione "
PROMPT 4 6 "Provvigione "
HELP "Percentuale di provvigione della categoria"
FIELD LF_TABCOM->R0
END
NUMBER F_GRUPPO 2
NUMBER F_GRUPPO 3
BEGIN
PROMPT 30 6 "Gruppo "
HELP "Gurppo del piano dei conti della categoria"
FIELD LF_TABCOM->I1
PROMPT 4 8 "Gruppo "
HELP "Gruppo del piano dei conti della categoria"
FIELD I1
END
NUMBER F_CONTO 2
NUMBER F_CONTO 3
BEGIN
PROMPT 43 6 "Conto "
PROMPT 25 8 "Conto "
HELP "Conto del piano dei conti della categoria"
FIELD LF_TABCOM->I2
FIELD I2
USE LF_PCON SELECT TMCF="C"
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCONTO DESCR
ADD RUN CG0 -0
CHECKTYPE NORMAL
END
STRING F_DESCONTO 50
BEGIN
PROMPT 16 10 ""
FLAGS "D"
CHECKTYPE NORMAL
END
ENDPAGE

View File

@ -8,7 +8,13 @@ ENDPAGE
PAGE "Tabella Codici Legali" -1 -1 78 8
STRING F_CODICE 2
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice di riconoscimento codici legali"

View File

@ -8,7 +8,7 @@ ENDPAGE
PAGE "Tabella Codici Listino" -1 -1 78 8
STRING F_CODICE 5
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
Help "Codice listino"
@ -24,7 +24,7 @@ OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione listino"

View File

@ -39,10 +39,10 @@ END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 5 "@bFormato data"
PROMPT 1 5 "Formato data"
END
LIST F_DATA 3 18
LIST F_DATA 3 20
BEGIN
PROMPT 2 6 "Ordine data "
ITEM "GMA|Giorno-Mese-Anno"
@ -53,14 +53,14 @@ END
STRING F_DATASEP 1
BEGIN
PROMPT 42 6 "Separatore data "
PROMPT 44 6 "Separatore data "
FIELD S7[4,4]
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 9 "@bFormato valuta"
PROMPT 1 9 "Formato valuta"
END
LIST F_MIGLIAIA 1 14
@ -73,7 +73,7 @@ END
LIST F_DECIMALI 1 14
BEGIN
PROMPT 42 10 "Separatore decimali "
PROMPT 44 10 "Separatore decimali "
ITEM "I|Virgola (,)"
ITEM "E|Punto (.)"
FLAGS "D"

View File

@ -8,7 +8,13 @@ ENDPAGE
PAGE "Modalita' di Spedizione" -1 -1 78 8
STRING F_CODICE 2
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della modalit… di spedizione"

View File

@ -8,7 +8,13 @@ ENDPAGE
PAGE "Tabella Note Documento" -1 -1 78 8
STRING F_CODICE 2
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice note documento"

View File

@ -8,9 +8,15 @@ ENDPAGE
PAGE "Tabella Codici Note Cliente" -1 -1 78 8
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
PROMPT 4 2 "Codice "
HELP "Codice note del cliente"
FIELD CODTAB
FLAGS "U"
@ -33,6 +39,18 @@ BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della nota del cliente"
FIELD LF_TABCOM->S0
USE %NOT KEY 2
INPUT S0 F_DEST
DISPLAY "Destinazione@30" S0
DISPLAY "Codice" CODTAB
DISPLAY "Blocca immobili" B0
DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM B1
CHECKTYPE REQUIRED
KEY 2
END
BOOLEAN F_BLOCCA