834bc1e30d
Files correlati : Ricompilazione Demo : [ ] Commento : Correzzione relaitive al riporto precedente git-svn-id: svn://10.65.10.50/trunk@9672 c028cbd2-c16b-5b4b-a496-9718f37d4682
84 lines
1.7 KiB
Plaintext
Executable File
84 lines
1.7 KiB
Plaintext
Executable File
#include "ba3600.h"
|
|
|
|
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
|
|
|
|
BUTTON DLG_PRINT 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|