campo-sirio/cg/cg3100c.uml

#include "cg3100.h"

PAGE "" -1 -1 76 19


NUMBER F_CODDITTA 5
BEGIN
	PROMPT 2 2 "Ditta             "
        FLAGS "FRD"
        USE LF_NDITTE KEY 1  
        CHECKTYPE REQUIRED
        INPUT CODDITTA F_CODDITTA
        DISPLAY "Codice" CODDITTA
	DISPLAY "Ragione sociale @50" RAGSOC
	OUTPUT F_CODDITTA CODDITTA 
        OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 3 "Ragione sociale   "
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 5 "Anno esercizio    "
  HELP "Se non indicato nessun anno esercizio significa che si richiede la stampa come specificato nei campi: dalla data, alla data"
  USE ESC KEY 1
  CHECKTYPE NORMAL
  INPUT CODTAB F_ANNO
  DISPLAY "Anno esercizio@50" CODTAB
  OUTPUT F_ANNO CODTAB
END

DATE F_DATASTAMPA 
BEGIN
  PROMPT 2 6 "Data stampa       "
  FLAGS "A"
END

RADIOBUTTON F_DECIDI 10
BEGIN
  PROMPT 2 8 "Stampa " 
  ITEM "2|data"
  MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
  ITEM "1|numero"
  MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@
END     

DATE F_DATAINI
BEGIN
   PROMPT 19 9 "Stampa mov. dalla data "
   GROUP 1
END

DATE F_DATAFIN
BEGIN
  PROMPT 55 9 "alla data "
  GROUP 1
END   

NUMBER F_NUMEROINI 7
BEGIN
  PROMPT 19 10 "Stampa mov. dal numero "
  FLAGS "R"
  GROUP 2
END

NUMBER F_NUMEROFIN 7
BEGIN
  PROMPT 55 10 "al numero "
  FLAGS "R"
  GROUP 2
END

BOOLEAN F_STAMPAMOVP
BEGIN
   PROMPT 2 12 "Stampa movimenti provvisori "
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
END
  
BUTTON DLG_OK 9 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK