#include "cg0400.h"

PAGE "Visualizzazione progressivi IVA" -1 -1 78 19

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 3 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_RAGSOC RAGSOC 
    OUTPUT F_ATTIVITA CODATTPREV
END

STRING F_RAGSOC 50
BEGIN
    PROMPT 17 1 "Ragione "
    FLAGS "D"
END

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

RADIOBUTTON F_TIPO 18
BEGIN
    PROMPT 3 5 "Tipo progressivi "
    HELP "Tipo di riepilogo da effettuare"
    ITEM "1|Vendite"
    MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|SHOW,F_TIPOTAB
    MESSAGE COPY,F_TIPO1
    ITEM "2|Acquisti"
    MESSAGE SHOW,F_TIPOTABE|HIDE,F_TIPOTABEL|HIDE,F_TIPOTAB
    MESSAGE COPY,F_TIPO1
    KEY 1 
END

RADIOBUTTON F_TIPO1 18
BEGIN
    PROMPT 3 5 "Tipo progressivi "
    HELP "Tipo di riepilogo da effettuare"
    ITEM "1|Vendite"
    MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|HIDE,F_TIPOTAB
    MESSAGE COPY,F_TIPO
    ITEM "2|Acquisti"
    MESSAGE HIDE,F_TIPOTABE|SHOW,F_TIPOTABEL|HIDE,F_TIPOTAB
    MESSAGE COPY,F_TIPO
    KEY 1 
END

RADIOBUTTON F_LIVELLO 21
BEGIN
  PROMPT 38 5 "Livello progressivi "
  HELP "Tipo di raggruppamento dei riepiloghi"
  ITEM "1|Per aliquota"
  MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA|SHOW,F_TIPOTAB 
  MESSAGE HIDE,F_TIPO1|SHOW,F_TIPO|K_SPACE,F_TIPO
  ITEM "2|Per attivita'"
  MESSAGE SHOW,F_ATTIVITA|HIDE,F_CODIVA|HIDE,F_TIPOTAB
  MESSAGE HIDE,F_TIPO|SHOW,F_TIPO1|K_SPACE,F_TIPO1
END

STRING F_CODIVA 4
BEGIN
  PROMPT 3 10 "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"
END

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

STRING F_ATTIVITA 5
BEGIN
  PROMPT 3 10 "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"
END

NUMBER F_TIPOTABEL 1
BEGIN
  PROMPT 3 12 "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
END

NUMBER F_TIPOTABE 1
BEGIN
  PROMPT 3 12 "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
END

/*
BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
 MESSAGE EXIT,K_ENTER
END
*/

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

BUTTON DLG_QUIT 10 2
BEGIN
 PROMPT -22 -1 ""  
END

ENDPAGE

ENDMASK