campo-sirio/cg/cg3100a.uml

#include "cg3100.h"

PAGE "Lista Movimenti" -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,1@|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI
	ITEM "1|Lista movimenti di sola prima nota"
	MESSAGE HIDE,F_CONTROLLO|HIDE,1@|HIDE,F_REGISTROFIN|HIDE,F_REGISTROINI|HIDE,F_STAMPA
END


LIST F_CONTROLLO 23
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@
	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 registrazione" NUMREG
        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[1,5] ""
  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[1,5] ""
	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_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