campo-sirio/sc/sc2200a.uml

#include "sc2200.h"

PAGE "Stampa Scadenziario" -1 -1 68 17

NUMBER F_CODDITTA 5
BEGIN 
  PROMPT 1 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 13 1 "R.S. "
  FLAGS "D"
END

BUTTON SC_SELECT 10 1
BEGIN 
  PROMPT 51 3 "~Selezione"
END

BUTTON SC_RESET 10 1
BEGIN 
  PROMPT 51 4 "~Azzera"
END

RADIOBUTTON SC_CLIFO 20
BEGIN 
  PROMPT 1 2 "Selezione"   
  ITEM "C|Clienti" MESSAGE HIDE,2@|SHOW,1@
  ITEM "F|Fornitori" MESSAGE HIDE,2@|SHOW,1@
  ITEM "P|Conti" MESSAGE HIDE,1@|SHOW,2@
END

RADIOBUTTON SC_SORTCF 20
BEGIN 
  GROUP 1
  PROMPT 25 2 "Ordinamento" 
  ITEM "1|Per codice"
  ITEM "2|Per ragione sociale"
END

RADIOBUTTON SC_SORTCFPCON 20
BEGIN 
  GROUP 2
  PROMPT 25 2 "Ordinamento" 
  ITEM "1|Per conto"
  ITEM "2|Per descrizione"
END

NUMBER SC_CFCODFR 5
BEGIN 
  PROMPT 1 7 "Da codice               "
  GROUP 1
END

NUMBER SC_CFCODTO 5
BEGIN 
  PROMPT 36 7  "a codice "
  GROUP 1
END

NUMBER SC_PCONCODFR1 3
BEGIN 
  PROMPT 1 7 "Da conto   "
  GROUP 2
END

NUMBER SC_PCONCODFR2 3
BEGIN 
  PROMPT 16 7 ""
  GROUP 2
END

NUMBER SC_PCONCODFR3 6
BEGIN 
  PROMPT 20 7 ""
  GROUP 2
END

NUMBER SC_PCONCODTO1 3
BEGIN 
  PROMPT 31 7  "a conto "
  GROUP 2
END
 
NUMBER SC_PCONCODTO2 3
BEGIN 
  PROMPT 43 7  ""
  GROUP 2
END
 
NUMBER SC_PCONCODTO3 6
BEGIN 
  PROMPT 47 7  ""
  GROUP 2
END
 
NUMBER SC_NSEL 3
BEGIN
  PROMPT 60 7 "N. "
  FLAGS "D"
END          
          
BUTTON SC_CFBUTFR 2 1
BEGIN  
  PROMPT 31 7 ""
  PICTURE 109
  GROUP 1
END

BUTTON SC_CFBUTTO 2 1
BEGIN 
  PROMPT 51 7 ""
  PICTURE 109
  GROUP 1
END

BUTTON SC_PCONBUTFR 2 1
BEGIN  
  PROMPT 26 7 ""
  PICTURE 109
  GROUP 2
END

BUTTON SC_PCONBUTTO 2 1
BEGIN 
  PROMPT 53 7 ""
  PICTURE 109
  GROUP 2
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 1 9 "Data di stampa          "
  HELP "Data di stampa dello scadenziario" 
  CHECKTYPE REQUIRED
  WARNING "Si deve specificare la data di stampa dello scadenziario"
  FLAGS "A"
END

DATE F_DATASCADENZAI
BEGIN
  PROMPT 1 10 "Data di scadenza dal    "
  HELP "Data di inizio scadenza"
  CHECKTYPE REQUIRED
  WARNING "Data di inizio scadenza non valida"
  FLAGS "A"
END

DATE F_DATASCADENZAF
BEGIN
  PROMPT 39 10 "al    "
  HELP "Data di fine scadenza"
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATASCADENZAI
  WARNING "Data di fine scadenza non valida"
END

BOOLEAN F_RATESALDATE
BEGIN
  PROMPT 1 11 "Stampa rate saldate"
  HELP "Include le rate saldate nella stampa"
END

BOOLEAN F_ORDDATA 
BEGIN
  PROMPT 1 12 "Ordina per data"
  HELP "Selezionare se l'ordinamento primario deve essere secondo la data"
END

BOOLEAN F_VALUTA
BEGIN
  PROMPT 1 13 "Stampa in valuta"
  HELP "Selezionare se si vuole la stampa in valuta"
END

GROUPBOX DLG_NULL 68 7
BEGIN
   PROMPT 0 8 ""
END

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

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

ENDPAGE