campo-sirio/sc/sc2400a.uml

#include "scselmsk.h"
#include "sc2400a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_PRINT 2 2
BEGIN
  PROMPT 1 1 "Stampa"
  PICTURE TOOL_PRINT
END

BUTTON DLG_SETPRINT 2 2
BEGIN
  PROMPT 2 1 "Imposta"
  PICTURE TOOL_SETPRINT
END

BUTTON DLG_EMAIL 2 2
BEGIN
  PROMPT 1 1 "Mail"
  PICTURE TOOL_EMAIL
  MESSAGE EXIT,77
END

#include <helpbar.h>

ENDPAGE

PAGE "Stampa solleciti"  0 0 0 0

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Cod. "
  FLAGS "DFR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50 46
BEGIN
  PROMPT 16 1 "R.S. "
  FLAGS "DP"
END

GROUPBOX DLG_NULL 68 8
BEGIN
   PROMPT 1 2 ""
END

NUMBER F_CODPROF 4
BEGIN
  PROMPT 2 3 "Profilo "
  FLAGS "Z"
  USE LF_FORM
  INPUT TIPOPROF BASE_EC_PROFILE
  INPUT CODPROF[1,4] F_CODPROF
  INPUT CODPROF[5,5] F_LINPROF
  DISPLAY "Codice" CODPROF[1,4]
  DISPLAY "Lingua" CODPROF[5,5]
  DISPLAY "Descrizione@50" DESC
  OUTPUT F_CODPROF CODPROF[1,4]
  OUTPUT F_LINPROF CODPROF[5,5]
  OUTPUT F_DESPROF DESC
  FIELD ANTICLEAR
  WARNING "Codice profilo o lingua errato"
  ADD RUN sc3 -0
END

STRING F_LINPROF 1
BEGIN
  PROMPT 19 3 ""
  FLAGS "U"
  USE LF_FORM
  INPUT TIPOPROF BASE_EC_PROFILE
  INPUT CODPROF[1,4] F_CODPROF
  INPUT CODPROF[5,5] F_LINPROF
  DISPLAY "Codice" CODPROF[1,4]
  DISPLAY "Lingua" CODPROF[5,5]
  DISPLAY "Descrizione@50" DESC
  OUTPUT F_CODPROF CODPROF[1,4]
  OUTPUT F_LINPROF CODPROF[5,5]
  OUTPUT F_DESPROF DESC
  CHECKTYPE NORMAL
  WARNING "Codice profilo o lingua errato"
END

STRING F_DESPROF 50 40
BEGIN
  PROMPT 26 3 ""
  FLAGS "D"
END

DATE F_DATALIMOP
BEGIN
  PROMPT 2 4 "Data limite operazione  "
END

NUMBER F_GGRISCHIO 3
BEGIN
  PROMPT 41 4 "Giorni calcolo rischio "
  HELP "Inserire il numero di giorni per il calcolo del rischio"
  FLAGS "DU"
END

DATE F_DATALIMSOL
BEGIN
  PROMPT 2 5 "Data limite solleciti   "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

DATE F_DATAINISCAD
BEGIN
  PROMPT 41 5 "Dal     "
  VALIDATE DATE_CMP_FUNC <= F_DATALIMSOL
  WARNING "Inserire una data precedente a quella limite"
END

CURRENCY F_IMPORMIN 18
BEGIN
  PROMPT 2 6 "Importo minimo          "
END

RADIOBUTTON F_RIFIMPMIN 14
BEGIN
  PROMPT 50 5 ""
  ITEM "P|Partita"
  ITEM "C|Cliente"
END

BOOLEAN F_STAMPESP
BEGIN
  PROMPT 2 7 "Stampa esposizione"
  MESSAGE FALSE CLEAR,F_GGRISCHIO
  MESSAGE TRUE ENABLE,F_GGRISCHIO
END

BOOLEAN F_STAMPSALDO
BEGIN
  PROMPT 26 7 "Stampa saldo partita"
END

STRING F_LUOGOSEND 50 32
BEGIN
  PROMPT 2 8 "Luogo d'invio "
END

DATE F_DATASEND
BEGIN
  PROMPT 51 8 "Data "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

RADIOBUTTON SC_SORTCF 25
BEGIN
  PROMPT 1 10 "Ordinamento"
  ITEM "1|Per codice"    MESSAGE HIDE,2@|SHOW,1@
  ITEM "2|Per ragione sociale" MESSAGE HIDE,1@|SHOW,2@
END

BUTTON SC_SELECT 10 1
BEGIN
  PROMPT 51 11 "S~elezione"
END

BUTTON SC_RESET 10 1
BEGIN
  PROMPT 51 12 "A~zzera"
END

NUMBER SC_CFCODFR 6
BEGIN
  PROMPT 2 14 "Da codice               "
  FLAGS "B"
  GROUP 1
END

NUMBER SC_CFCODTO 6
BEGIN
  PROMPT 37 14 "a codice "
  FLAGS "B"
  GROUP 1
END

STRING SC_CFDESFR  50 40
BEGIN
  PROMPT 2 14 "Da ragione sociale "
  GROUP 2
  FLAGS "HB"
END

STRING SC_CFDESTO 50 40
BEGIN
  PROMPT 3 15 "A ragione sociale "
  GROUP 2
  FLAGS "HB"
END

NUMBER SC_NSEL 3
BEGIN
  PROMPT 60 13 "N. "
  FLAGS "D"
END

ENDPAGE
ENDMASK