145 lines
3.0 KiB
Plaintext
Executable File
145 lines
3.0 KiB
Plaintext
Executable File
#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
|