76 lines
1.3 KiB
Plaintext
Executable File
76 lines
1.3 KiB
Plaintext
Executable File
#include "cg1300.h"
|
|
|
|
PAGE "Rinumerazione numero protocollo" -1 -1 72 12
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "FRD"
|
|
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 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 4 "Anno "
|
|
HELP "Anno di riferimento"
|
|
VALIDATE FIXLEN_FUNC 4
|
|
CHECKTYPE REQUIRED
|
|
//WARNING "Indicare l'anno"
|
|
END
|
|
|
|
STRING F_REG 3
|
|
BEGIN
|
|
PROMPT 1 5 "Codice registro "
|
|
USE REG SELECT (I0<"3") && (CODTAB[1,4]==#103)
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
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]
|
|
FLAGS "U"
|
|
VALIDATE ZEROFILL_FUNC 3
|
|
CHECKTYPE REQUIRED
|
|
//WARNING "Indicare il codice registro"
|
|
END
|
|
|
|
NUMBER F_PROT 5
|
|
BEGIN
|
|
PROMPT 1 6 "Numero di protocollo "
|
|
HELP "Numero progressivo di protocollo IVA"
|
|
NUM_EXPR (#F_PROT>0)
|
|
WARNING "Inserire un numero maggiore di zero"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|