campo-sirio/pr/pr0600a.uml

#include "pr0600a.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Percentuali provvigione" -1 -1 78 8

GROUPBOX DLG_NULL 80 4
BEGIN
 PROMPT 1 1 "Archivio"
 FLAGS "R"
END

STRING F_CODPR_QUERY 2
BEGIN
  PROMPT 2 2 "Codice archivio  "
  FIELD CODPR
  FLAGS "UZ"
  KEY 1
  USE LF_PERCPROV KEY 1 //SELECT CODPR==#F_CODPR_QUERY
  INPUT CODPR F_CODPR_QUERY
  INPUT KEYORD F_KEYORD
  DISPLAY "Archivio" CODPR
  DISPLAY "Ordinamento@40" KEYORD
  OUTPUT F_CODPR_QUERY CODPR
  OUTPUT F_KEYORD KEYORD
  CHECKTYPE REQUIRED
END

STRING F_CODPR_NEW 2
BEGIN
  PROMPT 2 2 "Codice archivio  "
  FIELD CODPR
  FLAGS "HUZ"
  KEY 1
  USE APR
  INPUT CODTAB F_CODPR_NEW
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPR_NEW CODTAB
  CHECKTYPE FORCED
  WARNING "Codice archivio non presente"
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 3 "Descrizione      "
  FLAGS "D"
END

STRING F_KEYORD 40
BEGIN
  PROMPT 100 100 "Ordinamento "
  FLAGS "D_"
  FIELD KEYORD
  KEY 1
  USE LF_PERCPROV 
  INPUT CODPR F_CODPR_QUERY SELECT
  INPUT KEYORD F_KEYORD
  DISPLAY "Archivio" CODPR
  DISPLAY "Ordinamento@40" KEYORD
  OUTPUT F_CODPR_QUERY CODPR
  OUTPUT F_KEYORD KEYORD
  CHECKTYPE REQUIRED
END

STRING F_CLIENTE 6
BEGIN
  PROMPT 2 6 "Cod. cliente                "
  FLAGS "R"
  KEY 1
  USE LF_CLIFO KEY 1 SELECT TIPOCF=="C"
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_DESCR1 RAGSOC
  CHECKTYPE FORCED
  GROUP 1 5
END

STRING F_DESCR1 50 39
BEGIN
  PROMPT 41 6 ""
  FLAGS "D"
  GROUP 1 5
END

STRING F_CATVEN 2
BEGIN
  PROMPT 2 7 "Cat. vendita                    "
  FLAGS "U"
  KEY 1
  USE CVE
  INPUT CODTAB F_CATVEN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATVEN CODTAB
  OUTPUT F_DESCR2 S0
  CHECKTYPE FORCED
  GROUP 1 6
END

STRING F_DESCR2 50 39
BEGIN
  PROMPT 41 7 ""
  FLAGS "D"
  GROUP 1 6
END

STRING F_CODAGE 5
BEGIN
  PROMPT 2 8 "Cod. agente                  "
  FLAGS "UZ"
  KEY 1
  USE LF_AGENTI
  INPUT CODAGE F_CODAGE
  DISPLAY "Codice" CODAGE
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODAGE CODAGE
  OUTPUT F_DESCR3 RAGSOC
  CHECKTYPE FORCED
  GROUP 1 7
END

STRING F_DESCR3 50 39
BEGIN
  PROMPT 41 8 ""
  FLAGS "D"
  GROUP 1 7
END

STRING F_CODPAG 4
BEGIN
  PROMPT 2 9 "Cod. pagamento                "
  FLAGS "UZ"
  KEY 1
  USE %CPG
  INPUT CODTAB F_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  OUTPUT F_DESCR4 S0
  CHECKTYPE FORCED
  GROUP 1 8
END

STRING F_DESCR4 50 39
BEGIN
  PROMPT 41 9 ""
  FLAGS "D"
  GROUP 1 8
END

STRING F_CODSCONTO 2
BEGIN
  PROMPT 2 10 "Cod. sconto                     "
  FLAGS "U"
  KEY 1
  USE %SCC
  INPUT CODTAB F_CODSCONTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODSCONTO CODTAB
  OUTPUT F_DESCR5 S0
  CHECKTYPE FORCED
  GROUP 1 9
END

STRING F_DESCR5 50 39
BEGIN
  PROMPT 41 10 ""
  FLAGS "D"
  GROUP 1 9
END

STRING F_CODZONA 2
BEGIN
  PROMPT 2 11 "Cod. zona                       "
  FLAGS "U"
  KEY 1
  USE ZON
  INPUT CODTAB F_CODZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODZONA CODTAB
  OUTPUT F_DESCR6 S0
  CHECKTYPE FORCED
  GROUP 1 10
END

STRING F_DESCR6 50 39
BEGIN
  PROMPT 41 11 ""
  FLAGS "D"
  GROUP 1 10
END

STRING F_CODART 20
BEGIN
  PROMPT 2 12 "Cod. articolo "
  FLAGS "U"
  KEY 1
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESCR7 DESCR
  CHECKTYPE FORCED
  GROUP 1 11
END

STRING F_DESCR7 50 39
BEGIN
  PROMPT 41 12 ""
  FLAGS "D"
  GROUP 1 11
END

STRING F_CODGMC 3
BEGIN
  PROMPT 2 13 "Cat. merc.                     "
  FLAGS "U"
  KEY 1
  USE GMC SELECT CODTAB[4,5]==""
  INPUT CODTAB F_CODGMC
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODGMC CODTAB[1,3]
  OUTPUT F_DESCR8 S0
  CHECKTYPE FORCED
  GROUP 1 12
END

STRING F_DESCR8 50 39
BEGIN
  PROMPT 41 13 ""
  FLAGS "D"
  GROUP 1 12
END

STRING F_CODSMC 5
BEGIN
  PROMPT 2 14 "Sottocat. merc.              "
  FLAGS "U"
  KEY 1
  USE GMC
  INPUT CODTAB F_CODSMC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODSMC CODTAB
  OUTPUT F_DESCR9 S0
  CHECKTYPE FORCED
  GROUP 1 13
END

STRING F_DESCR9 50 39
BEGIN
  PROMPT 41 14 ""
  FLAGS "D"
  GROUP 1 13
END

STRING F_CODRFA 5
BEGIN
  PROMPT 2 15 "Raggr. fiscale               "
  FLAGS "U"
  KEY 1
  USE RFA SELECT CODTAB
  INPUT CODTAB F_CODRFA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRFA CODTAB
  OUTPUT F_DESCR10 S0
  CHECKTYPE FORCED
  GROUP 1 14
END

STRING F_DESCR10 50 39
BEGIN
  PROMPT 41 15 ""
  FLAGS "D"
  GROUP 1 14
END

LISTBOX F_TIPO 20
BEGIN
  PROMPT 2 18 "Tipo provvigione                "
  FIELD TIPO
  ITEM "P|Percentuale"
  MESSAGE SHOW,F_PERCPROVV|HIDE,2@
  ITEM "I|Importo unitario"
  MESSAGE HIDE,F_PERCPROVV|SHOW,F_IMPORTO|SHOW,F_TIMPORTO|HIDE,F_TVALORE
  ITEM "V|Valore complessivo"
  MESSAGE HIDE,F_PERCPROVV|SHOW,F_IMPORTO|HIDE,F_TIMPORTO|SHOW,F_TVALORE
END

NUMBER F_PERCPROVV 5 2
BEGIN
  PROMPT 2 19 "% provvigione                                    "
  FIELD PERCPROVV
  NUM_EXPR {(#F_PERCPROVV>=0.0)&&(#F_PERCPROVV<100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

TEXT F_TIMPORTO
BEGIN
  PROMPT 2 19 "Importo unitario"
  GROUP 2
END

TEXT F_TVALORE
BEGIN
  PROMPT 2 19 "Valore complessivo "
  GROUP 2
END

NUMBER F_IMPORTO 18 2
BEGIN
  PROMPT 38 19 ""
  FIELD IMPORTO
  PICTURE "###.###.###.###"
  GROUP 2
END

ENDPAGE

ENDMASK