#include "cg3100.h"

PAGE "" -1 -1 73 16


NUMBER F_CODDITTA 5
BEGIN
    PROMPT 2 1 "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 2 "Ragione sociale   "
  FLAGS "D"
END

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

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 4 "Anno esercizio    "
  HELP "Anno d'esercizio di cui si vuole la stampa"
  USE ESC KEY 1
  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_DATAINI
BEGIN
  PROMPT 2 6 "Stampa movimenti dalla data "
  HELP "Data da cui iniziare la stampa"
END

DATE F_DATAFIN
BEGIN
  PROMPT 45 6 "alla data "
  HELP "Data fino a cui eseguire la stampa"
END
   

LIST F_TIPOELENCO 8
BEGIN
  PROMPT 2 7 "Tipo elenco                 "
  HELP "Indicare cosa includere nella stampa"
  ITEM "C|Clienti"
  MESSAGE HIDE,2@|SHOW,1@|RESET,1@
  ITEM "F|Fornitori"
  MESSAGE HIDE,2@|SHOW,1@|RESET,1@
  ITEM "E|Entrambi"
  MESSAGE HIDE,1@|SHOW,2@|RESET,2@
END

NUMBER F_CODICEINI 6
BEGIN
  PROMPT 2 8 "Stampa dal codice           "
  HELP "Indicare il codice da cui iniziare la stampa"
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOELENCO SELECT
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEINI CODCF
  FLAGS "R"
END

NUMBER F_CODICEFIN 6
BEGIN
  PROMPT 45 8 "al codice "
  HELP "Indicare il codice a cui terminare la stampa"
  GROUP 1
  COPY USE F_CODICEINI
  INPUT TIPOCF F_TIPOELENCO SELECT
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEFIN CODCF
  FLAGS "R"
END  

NUMBER F_CODICEINI1 6
BEGIN
  PROMPT 2 8 "Stampa dal codice           "
  HELP "Indicare il codice da cui iniziare la stampa"
  GROUP 2
  COPY USE F_CODICEINI
  INPUT TIPOCF F_CODICEINI1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEINI1 CODCF
  FLAGS "R"
END

NUMBER F_CODICEFIN1 6
BEGIN
  PROMPT 45 8 "al codice "
  HELP "Indicare il codice a cui terminare la stampa"
  GROUP 2
  COPY USE F_CODICEINI
  INPUT TIPOCF F_CODICEFIN1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEFIN1 CODCF
  FLAGS "R"
END  

BOOLEAN F_CAMBIO
BEGIN
  //GROUP 2
  PROMPT 2 10 "Cambio pagina per cliente/fornitore "
  HELP "Indicare se cambiare pagina nel passaggio da clienti a fornitori"
END

BOOLEAN F_STAMPAMOVP
BEGIN
  PROMPT 2 11 "Stampa movimenti provvisori "
  HELP "Indicare se stampare i movimenti provvisori"
END

/*
TEXT DLG_NULL
BEGIN
  PROMPT 3 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_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK
