baa1e34d5c
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.2 patch 1262 git-svn-id: svn://10.65.10.50/trunk@17631 c028cbd2-c16b-5b4b-a496-9718f37d4682
102 lines
1.5 KiB
Plaintext
Executable File
102 lines
1.5 KiB
Plaintext
Executable File
#include "ps0920100a.h"
|
|
|
|
PAGE "Stampa ordini di produzione" -1 -1 80 11
|
|
|
|
GROUPBOX -1 78 5
|
|
BEGIN
|
|
PROMPT 2 1 "Selezione Documenti"
|
|
FLAGS ""
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 4 2 "Anno "
|
|
FIELD S_ANNO
|
|
KEY 1
|
|
USE ESC
|
|
CHECKTYPE NORMAL
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio" D1
|
|
OUTPUT F_ANNO CODTAB
|
|
FLAGS "RZ"
|
|
END
|
|
|
|
STRING F_NUM 4
|
|
BEGIN
|
|
PROMPT 21 2 "Num. "
|
|
FIELDS S_NUM
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_NUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NUM CODTAB
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_CODCLI 3
|
|
BEGIN
|
|
PROMPT 4 4 "Cliente "
|
|
WARNING "Cliente assente"
|
|
FLAGS "R"
|
|
FIELD CODCLI
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCLI
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CODCLI CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
WARNING "Cliente assente"
|
|
PROMPT 26 4 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@12" PAIV
|
|
DISPLAY "Codice" CODCF
|
|
OUTPUT F_CODCLI CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN F_PAGEBREAK
|
|
BEGIN
|
|
PROMPT 4 6 "Salto pagina per ogni scheda"
|
|
END
|
|
|
|
STRING F_PROFILO 70 50
|
|
BEGIN
|
|
PROMPT 8 -4 "Profilo "
|
|
PSELECT
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_SELECT 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 "~Seleziona"
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|