31707a203e
Files correlati : Ricompilazione Demo : [ ] Commento :modernizzate un casino di maschere! git-svn-id: svn://10.65.10.50/trunk@18142 c028cbd2-c16b-5b4b-a496-9718f37d4682
325 lines
6.5 KiB
Plaintext
Executable File
325 lines
6.5 KiB
Plaintext
Executable File
#include "pr1200a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa % di provvigione" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 1 1 "Archivio"
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_CODPR 2
|
|
BEGIN
|
|
PROMPT 2 2 "Codice archivio "
|
|
FIELD CODPR
|
|
FLAGS "UZ"
|
|
USE APR
|
|
INPUT CODTAB F_CODPR
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODPR CODTAB
|
|
OUTPUT F_DESCR S0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Codice archivio non presente"
|
|
ADD NONE
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FROMCLIENTE 6
|
|
BEGIN
|
|
PROMPT 2 6 "Da cod. cliente "
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_CLIFO KEY 1 SELECT TIPOCF=="C"
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_FROMCLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_FROMCLIENTE CODCF
|
|
GROUP G_CLI G_ALL
|
|
END
|
|
|
|
STRING F_TOCLIENTE 6
|
|
BEGIN
|
|
PROMPT 40 6 "A cod. cliente "
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_CLIFO KEY 1 SELECT TIPOCF=="C"
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_TOCLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_TOCLIENTE CODCF
|
|
NUM_EXPR #F_TOCLIENTE>=#F_FROMCLIENTE
|
|
GROUP G_CLI G_ALL
|
|
WARNING "Range codice cliente non corretto"
|
|
END
|
|
|
|
STRING F_FROMCATVEN 2
|
|
BEGIN
|
|
PROMPT 2 7 "Da cat. vendita "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE CVE
|
|
INPUT CODTAB F_FROMCATVEN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROMCATVEN CODTAB
|
|
GROUP G_CATV G_ALL
|
|
END
|
|
|
|
STRING F_TOCATVEN 2
|
|
BEGIN
|
|
PROMPT 40 7 "A cat. vendita "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE CVE
|
|
INPUT CODTAB F_TOCATVEN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TOCATVEN CODTAB
|
|
GROUP G_CATV G_ALL
|
|
STR_EXPR #F_TOCATVEN>=#F_FROMCATVEN
|
|
WARNING "Range codice categoria vendita non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODAGE 5
|
|
BEGIN
|
|
PROMPT 2 8 "Da cod. agente "
|
|
FLAGS "UZ"
|
|
KEY 1
|
|
USE LF_AGENTI
|
|
INPUT CODAGE F_FROMCODAGE
|
|
DISPLAY "Codice" CODAGE
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_FROMCODAGE CODAGE
|
|
GROUP G_AGE G_ALL
|
|
END
|
|
|
|
STRING F_TOCODAGE 5
|
|
BEGIN
|
|
PROMPT 40 8 "A cod. agente "
|
|
FLAGS "UZ"
|
|
KEY 1
|
|
USE LF_AGENTI
|
|
INPUT CODAGE F_TOCODAGE
|
|
DISPLAY "Codice" CODAGE
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_TOCODAGE CODAGE
|
|
GROUP G_AGE G_ALL
|
|
STR_EXPR #F_TOCODAGE>=#F_FROMCODAGE
|
|
WARNING "Range codice agente non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODPAG 4
|
|
BEGIN
|
|
PROMPT 2 9 "Da cod. pagamento "
|
|
FLAGS "UZ"
|
|
KEY 1
|
|
USE %CPG
|
|
INPUT CODTAB F_FROMCODPAG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROMCODPAG CODTAB
|
|
GROUP G_PAG G_ALL
|
|
END
|
|
|
|
STRING F_TOCODPAG 4
|
|
BEGIN
|
|
PROMPT 40 9 "A cod. pagamento "
|
|
FLAGS "UZ"
|
|
KEY 1
|
|
USE %CPG
|
|
INPUT CODTAB F_TOCODPAG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TOCODPAG CODTAB
|
|
GROUP G_PAG G_ALL
|
|
STR_EXPR #F_TOCODPAG>=#F_FROMCODPAG
|
|
WARNING "Range codice pagamento non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODSCONTO 2
|
|
BEGIN
|
|
PROMPT 2 10 "Da cod. sconto "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE %SCC
|
|
INPUT CODTAB F_FROMCODSCONTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROMCODSCONTO CODTAB
|
|
GROUP G_SCONTO G_ALL
|
|
END
|
|
|
|
STRING F_TOCODSCONTO 2
|
|
BEGIN
|
|
PROMPT 40 10 "A cod. sconto "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE %SCC
|
|
INPUT CODTAB F_TOCODSCONTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TOCODSCONTO CODTAB
|
|
GROUP G_SCONTO G_ALL
|
|
STR_EXPR #F_TOCODSCONTO>=#F_FROMCODSCONTO
|
|
WARNING "Range codice sconto non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODZONA 2
|
|
BEGIN
|
|
PROMPT 2 11 "Da cod. zona "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE ZON
|
|
INPUT CODTAB F_FROMCODZONA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROMCODZONA CODTAB
|
|
GROUP G_ZONA G_ALL
|
|
END
|
|
|
|
STRING F_TOCODZONA 2
|
|
BEGIN
|
|
PROMPT 40 11 "A cod. zona "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE ZON
|
|
INPUT CODTAB F_TOCODZONA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TOCODZONA CODTAB
|
|
GROUP G_ZONA G_ALL
|
|
STR_EXPR #F_TOCODZONA>=#F_FROMCODZONA
|
|
WARNING "Range codice zona non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODART 20
|
|
BEGIN
|
|
PROMPT 2 12 "Da cod. art. "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_FROMCODART
|
|
DISPLAY "Articolo@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_FROMCODART CODART
|
|
GROUP G_ART G_ALL
|
|
END
|
|
|
|
STRING F_TOCODART 20
|
|
BEGIN
|
|
PROMPT 40 12 "A cod. art. "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_TOCODART
|
|
DISPLAY "Articolo@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_TOCODART CODART
|
|
GROUP G_ART G_ALL
|
|
STR_EXPR #F_TOCODART>=#F_FROMCODART
|
|
WARNING "Range codice articolo non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODGMC 3
|
|
BEGIN
|
|
PROMPT 2 13 "Da cat. merc. "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE GMC SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_FROMCODGMC
|
|
DISPLAY "Codice" CODTAB[1,3]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROMCODGMC CODTAB[1,3]
|
|
GROUP G_GMC G_ALL
|
|
END
|
|
|
|
STRING F_TOCODGMC 3
|
|
BEGIN
|
|
PROMPT 40 13 "A cat. merc. "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE GMC SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_TOCODGMC
|
|
DISPLAY "Codice" CODTAB[1,3]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TOCODGMC CODTAB[1,3]
|
|
GROUP G_GMC G_ALL
|
|
STR_EXPR #F_TOCODGMC>=#F_FROMCODGMC
|
|
WARNING "Range categoria merceologica non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODSMC 5
|
|
BEGIN
|
|
PROMPT 2 14 "Da sottocat. merc. "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE GMC //SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB F_FROMCODSMC
|
|
DISPLAY "Cat." CODTAB[1,3]
|
|
DISPLAY "Sotto cat." CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROMCODSMC CODTAB
|
|
GROUP G_SMC G_ALL
|
|
END
|
|
|
|
STRING F_TOCODSMC 5
|
|
BEGIN
|
|
PROMPT 40 14 "A sottocat. merc. "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE GMC //SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB F_TOCODSMC
|
|
DISPLAY "Cat." CODTAB[1,3]
|
|
DISPLAY "Sotto cat." CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TOCODSMC CODTAB
|
|
GROUP G_SMC G_ALL
|
|
STR_EXPR #F_TOCODSMC>=#F_FROMCODSMC
|
|
WARNING "Range sottocategoria merceologica non corretto"
|
|
END
|
|
|
|
STRING F_FROMCODRFA 5
|
|
BEGIN
|
|
PROMPT 2 15 "Da raggr. fiscale "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE RFA
|
|
INPUT CODTAB F_FROMCODRFA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROMCODRFA CODTAB
|
|
GROUP G_RFA G_ALL
|
|
END
|
|
|
|
STRING F_TOCODRFA 5
|
|
BEGIN
|
|
PROMPT 40 15 "A raggr. fiscale "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE RFA
|
|
INPUT CODTAB F_TOCODRFA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TOCODRFA CODTAB
|
|
GROUP G_RFA G_ALL
|
|
STR_EXPR #F_TOCODRFA>=#F_FROMCODRFA
|
|
WARNING "Range raggruppamento fiscale non corretto"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|