d0ab8cc457
Files correlati : Ricompilazione Demo : [ ] Commento : riportata la versione 98.01.05 patch 34 git-svn-id: svn://10.65.10.50/trunk@7409 c028cbd2-c16b-5b4b-a496-9718f37d4682
126 lines
2.3 KiB
Plaintext
Executable File
126 lines
2.3 KiB
Plaintext
Executable File
#include "ve3300.h"
|
|
|
|
PAGE "Stampa condizioni di vendita" -1 -1 64 10
|
|
|
|
GROUPBOX DLG_NULL 62 5 // groupbox attorno agli elementi di selezione della chiave
|
|
BEGIN
|
|
PROMPT 1 0 "Selezione"
|
|
END
|
|
|
|
STRING F_TIPO 1 // tipo di archivio
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
FLAG "DU"
|
|
END
|
|
|
|
STRING F_L_CATVEN 2 // categoria di vendita, solo listini
|
|
BEGIN
|
|
PROMPT 2 1 "Cat. vendita "
|
|
FLAG "U"
|
|
USE CVE
|
|
INPUT CODTAB F_L_CATVEN
|
|
DISPLAY "Cat." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_L_CATVEN CODTAB
|
|
END
|
|
|
|
LIST F_C_TIPOCF 9 // tipo cliente/fornitore, solo contratti
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo "
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
NUMBER F_C_CODCF 6 // codice cliente/fornitore, solo contratti
|
|
BEGIN
|
|
PROMPT 30 1 "Codice "
|
|
FLAG "U"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_C_TIPOCF
|
|
INPUT CODCF F_C_CODCF
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_C_TIPOCF TIPOCF
|
|
OUTPUT F_C_CODCF CODCF
|
|
END
|
|
|
|
STRING F_L_COD 3 // codice listino, solo listini
|
|
BEGIN
|
|
PROMPT 2 2 "Codice listino "
|
|
FLAG "U"
|
|
USE LF_CONDV
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT CATVEN F_L_CATVEN SELECT
|
|
INPUT COD F_L_COD
|
|
DISPLAY "C.V." CATVEN
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_TIPO TIPO
|
|
OUTPUT F_L_CATVEN CATVEN
|
|
OUTPUT F_L_COD COD
|
|
OUTPUT F_DESCR DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_C_COD 3 // codice contratto, solo contratti
|
|
BEGIN
|
|
PROMPT 2 2 "Nr. contratto "
|
|
USE LF_CONDV
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT TIPOCF F_C_TIPOCF
|
|
INPUT CODCF F_C_CODCF
|
|
INPUT COD F_C_COD
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Numero" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_TIPO TIPO
|
|
OUTPUT F_C_TIPOCF TIPOCF
|
|
OUTPUT F_C_CODCF CODCF
|
|
OUTPUT F_C_COD COD
|
|
OUTPUT F_DESCR DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_O_COD 3 // codice offerta, solo offerte
|
|
BEGIN
|
|
PROMPT 2 2 "Codice offerta "
|
|
FLAG "U"
|
|
USE LF_CONDV
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT COD F_O_COD
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_TIPO TIPO
|
|
OUTPUT F_O_COD COD
|
|
OUTPUT F_DESCR DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCR 40
|
|
BEGIN
|
|
PROMTP 2 3 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_EXTENDED
|
|
BEGIN
|
|
PROMPT 2 6 "Stampa estesa"
|
|
END
|
|
|
|
BUTTON DLG_PRINT 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|