75329eea65
Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunta personalizzazione al tronco principale git-svn-id: svn://10.65.10.50/trunk@9257 c028cbd2-c16b-5b4b-a496-9718f37d4682
100 lines
1.7 KiB
Plaintext
Executable File
100 lines
1.7 KiB
Plaintext
Executable File
#include "vec1100.h"
|
|
|
|
PAGE "Rifatturazione COVER" -1 -1 60 15
|
|
|
|
STRING F_CODNUM 4 4
|
|
BEGIN
|
|
PROMPT 1 1 "Codice numerazione "
|
|
FLAG "UP"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Cod. Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_ANNO 4 0
|
|
BEGIN
|
|
PROMPT 48 1 "Anno "
|
|
FLAG "P"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CODCF 8
|
|
BEGIN
|
|
PROMPT 1 3 "Codice cliente "
|
|
USE LF_CLIFO KEY 1
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Cod. Cli.@6R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50 30
|
|
BEGIN
|
|
PROMPT 1 4 "Ragione Sociale "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Cod. Cli.@6R" CODCF
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTIPE REQUIRED
|
|
END
|
|
|
|
DATE F_DA_DATADOC
|
|
BEGIN
|
|
PROMPT 1 6 "Dalla data "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
DATE F_A_DATADOC
|
|
BEGIN
|
|
PROMPT 1 7 "Alla data "
|
|
VALIDATE DATE_CMP_FUNC >= F_DA_DATADOC
|
|
WARNING "Inserire una data finale non inferiore alla data iniziale"
|
|
END
|
|
|
|
NUMBER F_PERCENT 6 3
|
|
BEGIN
|
|
PROMPT 1 9 "Percentuale maggiorazione "
|
|
END
|
|
|
|
STRING F_LISTINO 3
|
|
BEGIN
|
|
PROMPT 1 10 "Listino "
|
|
USE LF_CONDV
|
|
INPUT TIPO "L"
|
|
INPUT COD F_LISTINO
|
|
DISPLAY "Codice listino@3R" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_LISTINO COD
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATADOC
|
|
BEGIN
|
|
PROMPT 1 11 "Data del documento da creare "
|
|
FLAG "A"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|