202 lines
		
	
	
		
			3.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			202 lines
		
	
	
		
			3.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
#include "sc2200.h"
 | 
						|
 | 
						|
PAGE "Stampa Scadenziario" -1 -1 70 18
 | 
						|
 | 
						|
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
 | 
						|
  ITEM "F|Fornitori" MESSAGE K_SPACE,SC_SORTCF
 | 
						|
  ITEM "P|Conti" MESSAGE K_SPACE,SC_SORTCF
 | 
						|
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
 | 
						|
 | 
						|
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
 |