2c4c2469c6
Files correlati : ba7.exe Ricompilazione Demo : [ ] Commento : Aggiormaneto maschere all 10.0 ( nuove toolbar modulo base git-svn-id: svn://10.65.10.50/trunk@16496 c028cbd2-c16b-5b4b-a496-9718f37d4682
88 lines
1.7 KiB
Plaintext
Executable File
88 lines
1.7 KiB
Plaintext
Executable File
#include "ba3600.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa indici libro unico per ditta" -1 -1 76 10
|
|
|
|
DATE F_DATA_STAMPA
|
|
BEGIN
|
|
PROMPT 3 1 "Data stampa "
|
|
HELP "Data in cui viene stampato il libro unico"
|
|
FLAGS "A"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 3 3 "Anno "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_LIBRO_UNICO1 3
|
|
BEGIN
|
|
PROMPT 28 3 "Codice libro unico "
|
|
HELP "Codice del libro da stampare"
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
INPUT CODTAB[5,7] F_LIBRO_UNICO1
|
|
DISPLAY "Anno@20" CODTAB[1,4]
|
|
DISPLAY "Libro unico@22" CODTAB[5,7]
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
OUTPUT F_LIBRO_UNICO1 CODTAB[5,7]
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Libro unico assente per l'anno specificato"
|
|
FLAGS "UZ"
|
|
END
|
|
|
|
NUMBER F_MESEDA 2
|
|
BEGIN
|
|
PROMPT 3 4 "Dal mese "
|
|
HELP "Primo mese di cui stampare i movimenti"
|
|
NUM_EXPR ((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12))
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Il valore deve essere compreso tra 1 e 12"
|
|
END
|
|
|
|
NUMBER F_MESEA 2
|
|
BEGIN
|
|
PROMPT 28 4 "Al mese "
|
|
HELP "Ultimo mese di cui stampare i movimenti"
|
|
NUM_EXPR ((((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12))&&(#THIS_FIELD >= #F_MESEDA)))
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Il valore deve essere compreso tra 1 e 12 ed essere maggiore o uguale al mese di partenza"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 6 "Ditta "
|
|
FLAGS "R"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 25 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|