campo-sirio/sc/sc2200a.uml

#include "sc2200.h"

PAGE "Stampa Scadenzario" -1 -1 70 19

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 14 1 "R.S. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 68 7
BEGIN
   PROMPT 1 2 ""
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 2 3 "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 2 4 "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 40 4 "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 2 5 "Stampa rate saldate"
  HELP "Include le rate saldate nella stampa"
END

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

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

BOOLEAN F_RIEPILOGO
BEGIN
  PROMPT 33 6 "Stampa prospetto per pagamento"
  HELP "Selezionare se e' necessaria la stampa del prospetto mensile per pagamento"
END

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

RADIOBUTTON SC_SORTCF 1 29
BEGIN
  GROUP 1
  PROMPT 23 9 "Ordinamento"
  ITEM "1|Per codice/conto"
  ITEM "2|Per rag.soc./descrizione"
END

BUTTON SC_SELECT 10 1
BEGIN
  PROMPT 55 10 "S~elezione"
END

BUTTON SC_RESET 10 1
BEGIN
  PROMPT 55 11 "A~zzera"
END

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

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

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

STRING SC_CFDESTO 50 30
BEGIN
  PROMPT 2 15 "A ragione sociale  "
  GROUP 4
  FLAGS "HB"
END

NUMBER SC_PCONCODFR1 3
BEGIN
  PROMPT 2 14 "Da conto "
  GROUP 5
END

NUMBER SC_PCONCODFR2 3
BEGIN
  PROMPT 15 14 ""
  GROUP 5
END

NUMBER SC_PCONCODFR3 6
BEGIN
  PROMPT 19 14 ""
  FLAGS "B"
  GROUP 5
END

NUMBER SC_PCONCODTO1 3
BEGIN
  PROMPT 31 14  "a conto "
  GROUP 5
END

NUMBER SC_PCONCODTO2 3
BEGIN
  PROMPT 43 14  ""
  GROUP 5
END

NUMBER SC_PCONCODTO3 6
BEGIN
  PROMPT 47 14  ""
  FLAGS "B"
  GROUP 5
END

STRING SC_PCONDESFR  50 30
BEGIN
  PROMPT 2 14 "Da descrizione     "
  GROUP 6
  FLAGS "HB"
END

STRING SC_PCONDESTO 50 30
BEGIN
  PROMPT 2 15 "A descrizione      "
  GROUP 6
  FLAGS "HB"
END

NUMBER SC_NSEL 3
BEGIN
  PROMPT 61 14 "N. "
  FLAGS "D"
END

NUMBER F_DA_ABI 5
BEGIN
  PROMPT 2 16 "Banca di presentazione: ABI "
  FLAGS "Z" 
  USE %BAN
  INPUT CODTAB[1,5] F_DA_ABI
  INPUT CODTAB[6,10] F_DA_CAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_DA_ABI CODTAB[1,5] 
  OUTPUT F_DA_CAB CODTAB[6,10] 
  OUTPUT F_DA_BAN S0
  CHECKTYPE NORMAL
  GROUP 9
END

NUMBER F_DA_CAB 5
BEGIN
  PROMPT 50 16 "CAB "
  FLAGS "Z"       
  COPY ALL F_DA_ABI
  CHECKTYPE NORMAL
  GROUP 9
END

STRING F_DA_BAN 50
BEGIN
  PROMPT 11 17 ""
  FLAGS "D"
  GROUP 9
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
ENDMASK