campo-sirio/cg/cg0400a.uml

#include "cg0400.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Riepilogo progressivi IVA" -1 -1 76 19

GROUPBOX DLG_NULL 74 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta "
  FLAGS "ZFR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_ATTIVITA CODATTPREV
  CHECKTYPE REQUIRED
  WARNING "Ditta assente"
END

STRING F_RAGSOC 50 46
BEGIN
    PROMPT 17 1 "Rag.Soc."
    USE LF_NDITTE KEY 2
    INPUT RAGSOC F_RAGSOC
    DISPLAY "Ragione Sociale@60" RAGSOC
    DISPLAY "Codice" CODDITTA
    COPY OUTPUT F_CODDITTA
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Anno liquidazione "
  HELP "Anno di cui si effettua la liquidazione"
  FLAGS "A"
  VALIDATE FIXLEN_FUNC 4
  CHECKTYPE REQUIRED
END

RADIOBUTTON F_SELECTION 40
BEGIN
  PROMPT 2 5 "Tipo di stampa     "
  ITEM "1|Riepilogo progressivi per aliquota"
  MESSAGE HIDE,2@|SHOW,3@
  ITEM "2|Riepilogo progressivi per periodo"
  MESSAGE HIDE,1@
END

RADIOBUTTON F_LIVELLO 24
BEGIN
  PROMPT 2 9 "Livello progressivi"
  HELP "Tipo di raggruppamento dei riepiloghi"
  ITEM "1|Per aliquota"
  MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA|K_SPACE,F_TIPO
  ITEM "2|Per attivita'"
  MESSAGE SHOW,F_ATTIVITA|HIDE,F_CODIVA|K_SPACE,F_TIPO
  GROUP 1 3
END

RADIOBUTTON F_TIPO 24
BEGIN
  PROMPT 40 9 "Tipo progressivi "
  HELP "Tipo di riepilogo da effettuare"
  ITEM "1|Vendite"
  ITEM "2|Acquisti"
  GROUP 1 3
END

STRING F_CODIVA 4
BEGIN
  PROMPT 2 13 "Codice IVA       "
  HELP "Aliquota IVA da riepilogare"
  FLAGS "U"
  USE %IVA
  INPUT CODTAB F_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "%@6" R0
  DISPLAY "Tipo" S1
  OUTPUT F_CODIVA CODTAB
  CHECKTYPE REQUIRED
  VALIDATE ZEROFILL_FUNC 2
  WARNING "Codice IVA assente"
  GROUP 1
END

RADIOBUTTON F_TIPOTAB 38
BEGIN
  PROMPT 2 14 "Tipo tabella "
  HELP "Tipo di tabella da visualizzare"
  ITEM "1|Vendite in genere"
  ITEM "2|Vendite in sospensione d'imposta"
  GROUP 1
END

STRING F_ATTIVITA 5
BEGIN
  PROMPT 2 13 "Codice attivita' "
  HELP "Codice dell'attivita' di cui si vuole il riepilogo"
  USE LF_ATTIV
  JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODATT F_ATTIVITA
  DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
  DISPLAY "Descrizione@50" LF_TABCOM->S0
  OUTPUT F_ATTIVITA CODATT
  WARNING "Codice attivita' non presente"
  GROUP 1
END

NUMBER F_TIPOTABEL 1
BEGIN
  PROMPT 2 14 "Tipo tabella     "
  HELP "Tipo di tabella da visualizzare"
  SHEET "Tipo|Descrizione@50"
  ITEM "1|Acquisti beni per rivendita"
  ITEM "2|Acquisti beni da ammortizzare detraibili"
  ITEM "3|Acquisti beni da ammortizzare non detraibili"
  ITEM "4|Altri beni strumentali acquisiti in leasing"
  ITEM "5|Acquisti beni da ammortizzare ult.detr. 6%"
  INPUT F_TIPOTABEL
  OUTPUT F_TIPOTABEL
  GROUP 1
END

NUMBER F_TIPOTABE 1
BEGIN
  PROMPT 2 14 "Tipo tabella     "
  HELP "Tipo di tabella da visualizzare"
  SHEET "Tipo|Descrizione@50"
  ITEM "1|Acquisti in genere"
  ITEM "2|Acquisti indetraibili su operazioni esenti"
  ITEM "3|Acquisti indetraibili passaggi interni"
  ITEM "4|Acquisti indetraibili art. 19"
  ITEM "5|Acquisti base di calcolo per la ventilazione"
  ITEM "6|Bolle doganali"
  ITEM "7|Acquisti in sospensione d'imposta"
  INPUT F_TIPOTABE
  OUTPUT F_TIPOTABE
  GROUP 1
END

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

LISTBOX F_MESE 12
BEGIN
  PROMPT 2 11 "Periodo riepilogo "
  ITEM "1|Gennaio" MESSAGE ENABLE,F_STAMPA
  ITEM "2|Febbraio" MESSAGE ENABLE,F_STAMPA
  ITEM "3|Marzo" MESSAGE ENABLE,F_STAMPA
  ITEM "4|Aprile" MESSAGE ENABLE,F_STAMPA
  ITEM "5|Maggio" MESSAGE ENABLE,F_STAMPA
  ITEM "6|Giugno" MESSAGE ENABLE,F_STAMPA
  ITEM "7|Luglio" MESSAGE ENABLE,F_STAMPA
  ITEM "8|Agosto" MESSAGE ENABLE,F_STAMPA
  ITEM "9|Settembre" MESSAGE ENABLE,F_STAMPA
  ITEM "10|Ottobre" MESSAGE ENABLE,F_STAMPA
  ITEM "11|Novembre" MESSAGE ENABLE,F_STAMPA
  ITEM "12|Dicembre" MESSAGE ENABLE,F_STAMPA
  ITEM "13|Annuale" MESSAGE "X", F_STAMPA|DISABLE,F_STAMPA
  GROUP 2
END

LISTBOX F_TRIMESTRE 12
BEGIN
  PROMPT 2 11 "Periodo riepilogo "
  ITEM "3|1 Trimestre" MESSAGE ENABLE,F_STAMPA
  ITEM "6|2 Trimestre" MESSAGE ENABLE,F_STAMPA
  ITEM "9|3 Trimestre" MESSAGE ENABLE,F_STAMPA
  ITEM "12|4 Trimestre" MESSAGE ENABLE,F_STAMPA
  ITEM "13|Annuale" MESSAGE "X", F_STAMPA|DISABLE,F_STAMPA
  GROUP 2
END

LISTBOX F_TIPOPROGREG 18
BEGIN
  PROMPT 35 11 "Tipo progressivi "
  ITEM "L|Solo Liquidazione"
  ITEM "V|Solo Volume Affari"
  GROUP 2
END

BOOLEAN F_STAMPA
BEGIN
  PROMPT 2 13 "Stampa progressivi da inizio anno "
  GROUP 2
END

ENDPAGE

ENDMASK