b3cd9c64a9
Files correlati : no patch Ricompilazione Demo : [ ] Commento : Riportata la versione 01.05 patch 888 sul main trunk git-svn-id: svn://10.65.10.50/trunk@9217 c028cbd2-c16b-5b4b-a496-9718f37d4682
98 lines
1.3 KiB
Plaintext
Executable File
98 lines
1.3 KiB
Plaintext
Executable File
#include "cg1300.h"
|
|
|
|
PAGE "Rinumerazione numero protocollo" -1 -1 62 12
|
|
|
|
GROUPBOX DLG_NULL 60 3
|
|
BEGIN
|
|
PROMPT 1 0 "@bDitta"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 ""
|
|
FLAGS "FD"
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 9 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 60 3
|
|
BEGIN
|
|
PROMPT 1 3 "@bRegistro IVA"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 4 "Anno "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_REG 3
|
|
BEGIN
|
|
PROMPT 31 4 "Codice "
|
|
USE REG SELECT (I0<"3") && (CODTAB[1,4]==#F_ANNO)
|
|
INPUT CODTAB[1,4] F_ANNO SELECT
|
|
INPUT CODTAB[5,7] F_REG
|
|
DISPLAY "Anno " CODTAB[1,4]
|
|
DISPLAY "Codice " CODTAB[5,7]
|
|
DISPLAY "Descrizione @40" S0
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
OUTPUT F_REG CODTAB[5,7]
|
|
OUTPUT F_DA D3
|
|
FLAGS "U"
|
|
VALIDATE ZEROFILL_FUNC 3
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
RADIOBUTTON F_MODE 1 24
|
|
BEGIN
|
|
PROMPT 1 6 "@bRiparti da "
|
|
ITEM "U|Ultima stampa"
|
|
MESSAGE CLEAR,F_PROT
|
|
ITEM "N|Numero specificato"
|
|
MESSAGE ENABLE,F_PROT
|
|
ITEM "A|Inizio anno"
|
|
MESSAGE CLEAR,F_PROT
|
|
END
|
|
|
|
DATE F_DA
|
|
BEGIN
|
|
PROMPT 31 7 "Data "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_PROT 5
|
|
BEGIN
|
|
PROMPT 31 8 "Numero "
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|