campo-sirio/cg/cg0400a.uml

#include "cg0400.h"

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

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
	OUTPUT F_ATTIVITA CODATTPREV
	KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 4 2 "Ragione sociale   "
  FLAGS "D"
  KEY 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 3 "Anno liquidazione "
  FLAGS "A"
  KEY 1
END


RADIOBUTTON F_LIVELLO 21
BEGIN
  PROMPT 4 5 "Livello progressivi "
  ITEM "1|Per aliquota"
  MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA 
  MESSAGE HIDE,F_TIPO1|SHOW,F_TIPO|K_SPACE,F_TIPO
  ITEM "2|Per attivita'"
  MESSAGE SHOW,F_ATTIVITA|HIDE,F_CODIVA
  MESSAGE HIDE,F_TIPO|SHOW,F_TIPO1|K_SPACE,F_TIPO1
END

RADIOBUTTON F_TIPO 18
BEGIN
	PROMPT 38 5 "Tipo progressivi  "
	ITEM "1|Vendite"
	MESSAGE HIDE,F_TIPOTABE|SHOW,F_TIPOTAB|HIDE,F_TIPOTABEL
	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 38 5 "Tipo progressivi  "
	ITEM "1|Vendite"
	MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|SHOW,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


STRING F_CODIVA 3
BEGIN
  PROMPT 4 10 "Codice IVA "
  FLAGS "R"
END

RADIOBUTTON F_TIPOTAB 38
BEGIN
  PROMPT 4 12 "Tipo tabella "
  ITEM "1|Vendite in genere"
  ITEM "2|Vendite in sospensione d'imposta"
END

STRING F_ATTIVITA 5
BEGIN
  PROMPT 4 10 "Codice attivita' "
  USE LF_ATTIV
	FLAGS "H"
  JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
  CHECKTYPE NORMAL
  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 4 12 "Tipo tabella "
  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|Altri beni strumentali ult. detr. 6%"
  INPUT F_TIPOTABEL
  OUTPUT F_TIPOTABEL
END

NUMBER F_TIPOTABE 1
BEGIN
  PROMPT 4 12 "Tipo tabella "
  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 indetraibili per cambio regime"
  INPUT F_TIPOTABE
  OUTPUT F_TIPOTABE
END

BOOLEAN F_VUOILORDI 
BEGIN
  PROMPT 4 16 "Visualizzazione importi lordi "
  HELP "Vuoi visualizzare gli importi lordi ? ([+]=si, [ ]=no)"
END  

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

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

ENDPAGE
ENDMASK