campo-sirio/cg/cg0400a.uml

#include "cg0400.h"

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

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta "
  FLAGS "ZFR"
  USE LF_NDITTE KEY 1
  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
BEGIN
    PROMPT 17 1 "Rag.Soc."
    USE LF_NDITTE KEY 2
    INPUT RAGSOC F_RAGSOC
    DISPLAY "Ragione Sociale@50" 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_TIPO 18
BEGIN
    PROMPT 2 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 2 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 37 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 2 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 2 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 2 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 2 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 2 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