campo-sirio/pr/pr1200a.uml

#include "pr1200a.h"

PAGE "Stampa % di provvigione" -1 -1 78 18

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

BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK