campo-sirio/cg/cg1500a.uml

#include "cg1500.h"

PAGE "Pag. 1" -1 -1 76 18

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

DATE F_DATASTAMPA 
BEGIN
  PROMPT 50 1 "Data stampa "
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 3 "Anno esercizio    "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Anno" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE REQUIRED
  WARNING "L'anno di esercizio deve essere presente nella tabella degli esercizi"
END

RADIOBUTTON F_BILANCIO 34
BEGIN
  PROMPT 4 5 "Tipo bilancio     "
  HELP "Indicare il tipo di bilancio"
  ITEM "1|Bilancio a sezioni contrapposte"
  MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
  MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
  MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
  MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
  MESSAGE HIDE,F_MODULO|RESET,F_MODULO
  MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
  ITEM "2|Bilancio di verifica"
  MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
  MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
  MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_COMPETENZA|RESET,F_COMPETENZA
  MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
  MESSAGE SHOW,F_MODULO|K_SPACE,F_MODULO
END  

RADIOBUTTON F_STAMPA 40
BEGIN
  PROMPT 4 9 "Tipo stampa      "
  HELP "Indicare il tipo di stampa"
  ITEM "1|Per date limite"
  MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO|SHOW,F_COMPETENZA|SHOW,F_STAMPAMPROV
  ITEM "2|All' ultima immissione es. in corso"
  MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_COMPETENZA|RESET,F_STAMPAMPROV
  MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
  ITEM "3|All' ultima immissione es. precedente"
  MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_COMPETENZA|RESET,F_STAMPAMPROV
  MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
END

RADIOBUTTON F_STAMPA1 40
BEGIN
  PROMPT 4 9 "Tipo stampa      "
  //FLAGS "G"
  HELP "Indicare il tipo di stampa"
  ITEM "1|Per date limite"
  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
  ITEM "2|All' ultima immissione es. in corso"
  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
  ITEM "3|All' ultima immissione es. precedente"
  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
  MESSAGE COPY,F_STAMPA
END

/*
BUTTON DLG_OK 9 2
BEGIN 
  PROMPT -12 -1 ""
END

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

BUTTON DLG_OK 9 2
BEGIN 
  PROMPT 20 16 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT 41 16 ""
END

BUTTON DLG_PGDN 9 2
BEGIN
  PROMPT 58 16 ""
END

ENDPAGE

PAGE "Pag. 2" -1 -1 74 20

DATE F_DATALIM
BEGIN
  PROMPT 2 1 "Data limite      "
  WARNING "Inserire la data limite"
  VALIDATE NOT_EMPTY_FUNC
END 

BOOLEAN F_TOTALI 
BEGIN
  PROMPT 33 1 "Non stampare totali per gruppo "
END

BOOLEAN F_CODICI 
BEGIN
  PROMPT 2 2 "Non stampare codici conti "
END

BOOLEAN F_SALDO 
BEGIN
  PROMPT 33 2 "Non stampare movimenti con saldo a zero "
END

RADIOBUTTON F_VERIFICA 27
BEGIN
  PROMPT 2 1 "Stampa bilancio di verifica "
  ITEM "1|Bilancio"
  ITEM "2|Saldi di mastro"
  ITEM "3|Situazione C/F"
END  

RADIOBUTTON F_STAMPAV 35
BEGIN
  PROMPT 35 1 "Tipo stampa "
  ITEM "1|Conti movimentati"
  ITEM "2|Conti con saldo diverso da zero"
  ITEM "3|Tutti i conti"
END

LIST F_MODULO 10
BEGIN
  PROMPT 2 8 "Stampa su modulo stretto "
  ITEM "1|132 crt."
  ITEM "2|198 crt."
END

DATE F_DATADA
BEGIN
  PROMPT 2 9 "Dalla data "
  WARNING "Inserire la data limite inferiore"
  VALIDATE NOT_EMPTY_FUNC
END

DATE F_DATAA
BEGIN
  PROMPT 27 9 "alla data "
  WARNING "Inserire la data limite superiore"
  VALIDATE NOT_EMPTY_FUNC
END
   
BOOLEAN F_COMPETENZA 
BEGIN
  PROMPT 2 10 "Controllo anno di competenza "
END

BOOLEAN F_STAMPAMPROV
BEGIN
  PROMPT 37 10 "Stampa movimenti provvisori "
END   

LIST F_SITUAZIONE 11
BEGIN
  PROMPT 2 12 "Tipo situazione  "
  ITEM " |Entrambi"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

RADIOBUTTON F_STAMPAC 35
BEGIN
  PROMPT 37 11 "Tipo stampa "
  ITEM "1|Conti movimentati"
  ITEM "2|Conti con saldo diverso da zero"
END

LIST F_ORDINAMENTO 12
BEGIN
  PROMPT 2 13 "Tipo ordinamento "
  ITEM "1|Per codice"
  ITEM "2|Alfabetico"
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -12 -1 ""
END

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

/*
BUTTON DLG_PGUP
BEGIN
  PROMPT 65 17 ""
END   
*/

ENDPAGE

ENDMASK