campo-sirio/sc/sc2300a.uml

#include "sc2300.h"

PAGE "Stampa Scaduto" -1 -1 68 18

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

GROUPBOX DLG_NULL 68 7
BEGIN
   PROMPT 0 2 ""
END

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

DATE F_DATAOPERAZIONE
BEGIN
  PROMPT 1 4 "Data limite operazione     "
  HELP "Data limite operazione" 
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATASCADUTO
  WARNING "La data di limite della operazione deve essere superiore alla data limite scaduto."
  FLAGS "A"
END

DATE F_DATASCADUTO
BEGIN
  PROMPT 1 5 "Data limite scaduto        "
  HELP "Data limite scaduto"
  CHECKTYPE REQUIRED
  WARNING "Data limite scaduto non valida"
END

NUMBER F_GIORNI 3
BEGIN
  PROMPT 1 6 "Giorni per calcolo rischio "
  HELP "Inserire il numero di giorni per il calcolo del rischio"
END

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

RADIOBUTTON SC_CLIFO 20
BEGIN 
  PROMPT 0 9 "Selezione"   
  ITEM "C|Clienti" MESSAGE ENABLE, F_GIORNI|HIDE,2@|HIDE,5@|HIDE,6@|SHOW,1@|RESET,SC_SORTCF|SHOW,3@|HIDE,4@
  ITEM "F|Fornitori" MESSAGE DISABLE, F_GIORNI|HIDE,2@|HIDE,5@|HIDE,6@|SHOW,1@|RESET,SC_SORTCF|SHOW,3@|HIDE,4@
  ITEM "P|Conti" MESSAGE DISABLE, F_GIORNI|HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@|RESET,SC_SORTCFPCON|SHOW,5@|HIDE,6@
END

RADIOBUTTON SC_SORTCF 20
BEGIN
  GROUP 1 
  PROMPT 25 9 "Ordinamento" 
  ITEM "1|Per codice" MESSAGE HIDE,4@|SHOW,3@
  ITEM "2|Per ragione sociale" MESSAGE HIDE,3@|SHOW,4@
END

RADIOBUTTON SC_SORTCFPCON 20
BEGIN 
  GROUP 2
  PROMPT 25 9 "Ordinamento" 
  ITEM "1|Per conto" MESSAGE HIDE,6@|SHOW,5@
  ITEM "2|Per descrizione" MESSAGE HIDE,5@|SHOW,6@
END

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

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

NUMBER SC_CFCODFR 5
BEGIN 
  PROMPT 1 14 "Da codice               "
  GROUP 3
END

BUTTON SC_CFBUTFR 2 1
BEGIN  
  PROMPT 31 14 ""
  PICTURE 109
  GROUP 3
END

NUMBER SC_CFCODTO 5
BEGIN 
  PROMPT 36 14  "a codice "
  GROUP 3
END
 
BUTTON SC_CFBUTTO 2 1
BEGIN 
  PROMPT 51 14 ""
  PICTURE 109
  GROUP 3
END

STRING SC_CFDESFR  50 30
BEGIN 
  PROMPT 1 14 "Da ragione sociale "
  GROUP 4
  FLAGS "H"
END

BUTTON SC_CFDESBUTFR 2 1
BEGIN  
  PROMPT 51 14 ""
  PICTURE 109
  GROUP 4
  FLAGS "H"
END

STRING SC_CFDESTO 50 30
BEGIN 
  PROMPT 1 15 "A ragione sociale  "
  GROUP 4
  FLAGS "H"
END
 
BUTTON SC_CFDESBUTTO 2 1
BEGIN 
  PROMPT 51 15 ""
  PICTURE 109
  GROUP 4   
  FLAGS "H"
END

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

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

NUMBER SC_PCONCODFR3 6
BEGIN 
  PROMPT 20 14 ""
  GROUP 5
END

BUTTON SC_PCONBUTFR 2 1
BEGIN  
  PROMPT 26 14 ""
  PICTURE 109
  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  ""
  GROUP 5
END

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

STRING SC_PCONDESFR  50 30
BEGIN 
  PROMPT 1 14 "Da descrizione     "
  GROUP 6
  FLAGS "H"
END

BUTTON SC_PCONDESBUTFR 2 1
BEGIN  
  PROMPT 51 14 ""
  PICTURE 109
  GROUP 6
  FLAGS "H"
END

STRING SC_PCONDESTO 50 30
BEGIN 
  PROMPT 1 15 "A descrizione      "
  GROUP 6
  FLAGS "H"
END
 
BUTTON SC_PCONDESBUTTO 2 1
BEGIN 
  PROMPT 51 15 ""
  PICTURE 109
  GROUP 6   
  FLAGS "H"
END

NUMBER SC_NSEL 3
BEGIN
  PROMPT 60 14 "N. "
  FLAGS "D"
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