correzioni tabelle e stampe tabelle di Pg

git-svn-id: svn://10.65.10.50/trunk@3638 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-09-19 16:43:23 +00:00
parent 55a4ce0fe7
commit a9d8514fce
5 changed files with 27 additions and 17 deletions

View File

@ -1,13 +1,12 @@
#include "ba3200.h"
PAGE "Stampa Assoggettamento" -1 -1 50 8
STRING F_INIZIO1 4
PAGE "Stampa Classi fiscali articoli" -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 archivio"
FIELD LF_TABCOM->CODTAB
USE %ASF
USE ASF
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -15,12 +14,11 @@ OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
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

View File

@ -1,10 +1,10 @@
[Headers]
80
Tabella Assoggettamento fiscale
Tabella Classi fiscali articoli
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@4,ls
1|CODTAB|@3g@2,ls
1|S0|@14g@50,ls

View File

@ -8,14 +8,20 @@ ENDPAGE
PAGE "Codici assoggettamento fiscale" -1 -1 78 8
STRING F_CODICE 1
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice di assoggettamento fiscale"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %ASF
USE ASF
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
@ -24,13 +30,13 @@ OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione dell'assoggettamento fiscale"
FIELD LF_TABCOM->S0
FIELD S0
KEY 2
USE %ASF KEY 2
USE ASF KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0

View File

@ -1,9 +1,9 @@
[Headers]
80
Tabella Sconti incondizionati
Tabella Sconti cliente
1|@3g%s|Codice
1|@14g%s|Descrizione
1|@70g%s|Percentuale
1|@70g%s|Sconto
[Rows]
1|CODTAB|@3g@2,ls

View File

@ -8,6 +8,12 @@ ENDPAGE
PAGE "Tabella Sconti clienti" -1 -1 78 8
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
@ -15,7 +21,7 @@ HELP "Codice sconto cliente"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %SCC
USE %SCC
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
@ -39,7 +45,7 @@ END
STRING F_PERC 20
BEGIN
PROMPT 4 6 "Percentuale "
PROMPT 4 8 "Percentuale "
HELP "Percentuale sconto incondizionato"
FIELD S1
END