campo-sirio/cg/cg3100a.uml

#include "cg3100.h"

PAGE "" -1 -1 76 20

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 "
    FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
    GROUP 3
    PROMPT 2 3 "Anno esercizio    "
    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

RADIOBUTTON F_MOVIMENTI 38
BEGIN
    PROMPT 30 3 "Scelta stampa     "
    HELP "Indicare il tipo di stampa"
    ITEM "0|Lista movimenti"
    MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|HIDE,1@|RESET,1@
    ITEM "1|Lista movimenti di sola prima nota"
    MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI
END


LIST F_CONTROLLO 21
BEGIN
    PROMPT 2 7 "Controllo movimenti errati "
    HELP "La scelta 1 stampa solo le registrazioni non errate; la scelta 2 permette di listare tutte le registrazioni inserite, segnalando quelle errate; la scelta 3 stampa solo le registrazioni errate"
    ITEM "3|No"                      MESSAGE HIDE,1@|RESET,1@
    ITEM "2|Si"                      MESSAGE SHOW,1@
    ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
END

TEXT DLG_NULL
BEGIN
    GROUP 1
    PROMPT 2 8 "Stampa messaggi : "
END

BOOLEAN F_ANNOC
BEGIN
    GROUP 1
    PROMPT 20 8 "anno di competenza "
END

BOOLEAN F_ALLEGATO
BEGIN
    GROUP 1
    PROMPT 20 9 "allegato iva       "
    MESSAGE TRUE  DISABLE,F_STAMPA|COPY,F_STAMPA
    MESSAGE FALSE ENABLE,F_STAMPA
END

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

DATE F_DATAINI
BEGIN
     PROMPT 19 11 "Stampa mov. dalla data "
     //HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
     GROUP 3
END

DATE F_DATAFIN
BEGIN
    PROMPT 55 11 "alla data "
    GROUP 3
END

NUMBER F_NUMEROINI 7
BEGIN
    PROMPT 19 12 "Stampa mov. dal numero "
    USE LF_MOV KEY 1
    INPUT NUMREG F_NUMEROINI
    DISPLAY "Numero@6" NUMREG 
    DISPLAY "Data@10" DATAREG
    DISPLAY "Causale" CODCAUS
    DISPLAY "Documento" NUMDOC
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_NUMEROINI NUMREG
    CHECKTYPE NORMAL 
    FLAGS "R"
    GROUP 2
END

NUMBER F_NUMEROFIN 7
BEGIN
    PROMPT 55 12 "al numero "
    COPY USE F_NUMEROINI
    INPUT NUMREG F_NUMEROFIN
    COPY DISPLAY F_NUMEROINI
    OUTPUT F_NUMEROFIN NUMREG
    CHECKTYPE NORMAL
    FLAGS "R"
    GROUP 2
END

STRING F_CAUSALEINI 3
BEGIN
    PROMPT 2 14 "Stampa dalla causale    "
    USE LF_CAUSALI KEY 1
    INPUT CODCAUS F_CAUSALEINI
    DISPLAY "Codice causale" CODCAUS
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CAUSALEINI CODCAUS
    FLAGS "UR"
    HELP "Introdurre codice causale di inizio stampa: vuoto = inizio archivio"
END

STRING F_CAUSALEFIN 3
BEGIN
    PROMPT 40 14 "alla causale "
    COPY USE F_CAUSALEINI
    INPUT CODCAUS F_CAUSALEFIN
    DISPLAY "Codice causale" CODCAUS
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CAUSALEFIN CODCAUS
    FLAGS "UR"
    HELP "Introdurre codice causale di fine stampa: vuoto = fine archivio"
END

STRING F_REGISTROINI 3
BEGIN
  PROMPT 2 15 "Stampa dal registro iva "
  USE REG SELECT I0<"3" 
  //INPUT CODTAB[1,5] F_ANNO SELECT
  INPUT CODTAB[5,7] F_REGISTROINI
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Cod. registro iva" CODTAB[5,7]
  DISPLAY "Descrizione@40" S0
  OUTPUT F_REGISTROINI CODTAB[5,7]
  FLAGS "UR"
  //CHECKTYPE NORMAL
  HELP "Introdurre cod. registro iva di inizio stampa: vuoto = inizio archivio"
END

STRING F_REGISTROFIN 3
BEGIN
    PROMPT 40 15 "al reg. iva  "
    COPY USE F_REGISTROINI
    //INPUT CODTAB[1,5] F_ANNO SELECT
    INPUT CODTAB[5,7] F_REGISTROFIN
        DISPLAY "Anno" CODTAB[1,4]
    DISPLAY "Cod. registro iva" CODTAB[5,7]
    DISPLAY "Descrizione@40" S0
    OUTPUT F_REGISTROFIN CODTAB[5,7]
    FLAGS "UR"
    //CHECKTYPE NORMAL
    HELP "Introdurre cod. registro iva di fine stampa: vuoto = fine archivio"
END

BOOLEAN F_STAMPA
BEGIN
    PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
END

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

/*
TEXT DLG_NULL
BEGIN
    PROMPT 2 17 "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