e82c0ef7b3
Files correlati : cg1.exe cg3.exe Ricompilazione Demo : [ ] Commento : Aggiunto supporto per le lingue a cg1.exe e cg3.exe git-svn-id: svn://10.65.10.50/trunk@10914 c028cbd2-c16b-5b4b-a496-9718f37d4682
153 lines
2.6 KiB
Plaintext
Executable File
153 lines
2.6 KiB
Plaintext
Executable File
#include "cg3400a.h"
|
|
|
|
PAGE "Stampa Libro Giornale" -1 -1 76 14
|
|
|
|
GROUPBOX DLG_NULL 74 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 15 1 "Ragione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE DATA_DA
|
|
BEGIN
|
|
PROMPT 1 3 "Dalla data "
|
|
HELP "Stampa i movimenti a partire dalla data specificata"
|
|
END
|
|
|
|
DATE DATA_A
|
|
BEGIN
|
|
PROMPT 40 3 "Alla data "
|
|
HELP "Stampa i movimenti fino alla data specificata"
|
|
// VALIDATE DATE_CMP_FUNC >= DATA_DA
|
|
WARNING "Specificare la data di fine stampa"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER ANNO_ESER 4
|
|
BEGIN
|
|
PROMPT 1 5 "Anno "
|
|
FLAGS "DZ"
|
|
END
|
|
|
|
STRING CODREG 3
|
|
BEGIN
|
|
PROMPT 1 6 "Codice registro "
|
|
HELP "Codice del libro giornale da stampare"
|
|
USE REG SELECT (I0=5)||(I0=4)
|
|
INPUT CODTAB[1,4] ANNO_ESER
|
|
INPUT CODTAB[5,7] CODREG
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" I0
|
|
OUTPUT ANNO_ESER CODTAB[1,4]
|
|
OUTPUT CODREG CODTAB[5,7]
|
|
OUTPUT REG_DESC S0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Registro assente"
|
|
// VALIDATE ZEROFILL_FUNC 3
|
|
FLAGS "UZ"
|
|
END
|
|
|
|
STRING REG_DESC 50
|
|
BEGIN
|
|
PROMPT 24 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
/*
|
|
GROUPBOX DLG_NULL 30 4
|
|
BEGIN
|
|
PROMPT 1 8 "Intervallo"
|
|
END
|
|
|
|
RADIOBUTTON DLG_NULL 12
|
|
BEGIN
|
|
PROMPT 1 8 ""
|
|
HELP "Indicare l'intervallo di pagine da stampare"
|
|
ITEM "1|Tutto" MESSAGE CLEAR,PAGINA_DA|DISABLE,PAGINA_DA
|
|
ITEM "2|Da pagina " MESSAGE ENABLE,PAGINA_DA
|
|
END
|
|
|
|
NUMBER PAGINA_DA 5
|
|
BEGIN
|
|
PROMPT 18 10 ""
|
|
HELP "Numero di pagina da cui iniziare la stampa"
|
|
END
|
|
|
|
*/
|
|
|
|
GROUPBOX DLG_NULL 35 4
|
|
BEGIN
|
|
PROMPT 40 8 "Formato pagina"
|
|
// PROMPT 1 8 "Formato pagina"
|
|
END
|
|
|
|
LISTBOX STAMPA_WIDTH 4
|
|
BEGIN
|
|
PROMPT 41 9 "Numero di colonne "
|
|
HELP "Numero di colonne per pagina del modulo di stampa."
|
|
ITEM "1|132"
|
|
ITEM "2|198"
|
|
END
|
|
|
|
NUMBER STAMPA_LEN 3
|
|
BEGIN
|
|
PROMPT 41 10 "Numero di righe "
|
|
HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe"
|
|
END
|
|
|
|
BOOLEAN STAMPA_DEF
|
|
BEGIN
|
|
PROMPT 1 9 "Stampa definitiva su bollato"
|
|
HELP "Seleziona la stampa su bollato oppure, se vuoto, la stampa di prova"
|
|
MESSAGE TRUE CLEAR,DATA_DA
|
|
MESSAGE FALSE ENABLE,DATA_DA
|
|
END
|
|
|
|
/*
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 1 10 "Valuta "
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
CHECKTYPE NORMAL
|
|
// Per ora non visibile
|
|
FLAGS "HU"
|
|
END
|
|
*/
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|