8700805497
Files correlati : Ricompilazione Demo : [ ] Commento : Rportata la versione 3.2 patch 1314 git-svn-id: svn://10.65.10.50/trunk@18269 c028cbd2-c16b-5b4b-a496-9718f37d4682
94 lines
1.3 KiB
Plaintext
Executable File
94 lines
1.3 KiB
Plaintext
Executable File
PAGE "Stampa elenco versamenti da effettuare" -1 -1 80 10
|
|
|
|
NUMBER 251 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE 9 KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA 251
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT 251 CODDITTA
|
|
OUTPUT 252 RAGSOC
|
|
END
|
|
|
|
STRING 252 50
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX -1 78 5
|
|
BEGIN
|
|
PROMPT 1 3 "@bParametri documenti di vendita"
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING 253 4
|
|
BEGIN
|
|
PROMPT 2 4 "Numerazione "
|
|
USE %NUM
|
|
INPUT CODTAB 253
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT 253 CODTAB
|
|
OUTPUT 254 S0
|
|
CHECKTYPE FORCED
|
|
FLAGS "UPA"
|
|
FIELD CODNUM
|
|
END
|
|
|
|
STRING 254 50
|
|
BEGIN
|
|
PROMPT 22 4 ""
|
|
USE %NUM KEY 2
|
|
INPUT S0 254
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT 253
|
|
END
|
|
|
|
NUMBER 255 4
|
|
BEGIN
|
|
PROMPT 2 5 "Anno "
|
|
USE ESC
|
|
INPUT CODTAB 255
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio " D1
|
|
CHECKTYPE REQUIRED
|
|
OUTPUT 255 CODTAB
|
|
OUTPUT 256 D0
|
|
OUTPUT 257 D1
|
|
NUM_EXPR #F_ANNO>0
|
|
FLAGS "AP"
|
|
FIELD ANNO
|
|
END
|
|
|
|
DATE 256
|
|
BEGIN
|
|
PROMPT 2 6 "Da data "
|
|
FIELD DADATA
|
|
END
|
|
|
|
DATE 257
|
|
BEGIN
|
|
PROMPT 30 6 "A data "
|
|
FIELD ADATA
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|