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 "Anno d'esercizio di cui si vuole la stampa"
  USE ESC
  CHECKTYPE NORMAL
  INPUT CODTAB F_ANNO
  DISPLAY "Anno" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  FLAGS "RZ"
END

DATE F_DATASTAMPA 
BEGIN
  PROMPT 2 6 "Data stampa       "
  HELP "Data in cui viene effettuata la stampa"
  FLAGS "A"
END

RADIOBUTTON F_DECIDI 10
BEGIN
  PROMPT 2 8 "Stampa "
  HELP "Criteri di selezione dei movimenti"
  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 "
   HELP "Data da cui iniziare la stampa dei movimenti"
   GROUP 1
END

DATE F_DATAFIN
BEGIN
  PROMPT 55 9 "alla data "
   HELP "Data a cui terminare la stampa dei movimenti"
  GROUP 1
END   

NUMBER F_NUMEROINI 7
BEGIN
  PROMPT 19 10 "Stampa mov. dal numero "
   HELP "Numero da cui iniziare la stampa dei movimenti"
  FLAGS "R"
  GROUP 2
END

NUMBER F_NUMEROFIN 7
BEGIN
  PROMPT 55 10 "al numero "
   HELP "Numero a cui terminare la stampa dei movimenti"
  FLAGS "R"
  GROUP 2
END

BOOLEAN F_STAMPAMOVP
BEGIN
   PROMPT 2 12 "Stampa movimenti provvisori "
   HELP "Indicare se stampare i 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_PRINT 9 2
BEGIN
 PROMPT -12 -1 "~Stampa"
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
 PROMPT -22 -1 ""
END
  
ENDPAGE

ENDMASK