root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/m770/batbca7.uml
luciano 6449f498db Ho fatto troppe modifiche per poterle descrivere tutte in codesto luogo 
pertanto rimando chi fosse interessato ai dettagli, alla consultazione
del documento crono.doc sulla mia macchina.


git-svn-id: svn://10.65.10.50/trunk@4134 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-02-14 15:39:49 +00:00

336 lines
11 KiB
Plaintext
Executable File
Raw Blame History

#include "batbca7.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella causali " -1 -1 78 18
GROUPBOX DLG_NULL 77 8
BEGIN
PROMPT 0 0 ""
END
NUMBER F_CODCAUS 2
BEGIN
PROMPT 1 1 "Codice causale "
FIELD LF_TABCOM->CODTAB
HELP "Inserire il codice della causale"
USE %CA7
INPUT CODTAB F_CODCAUS
DISPLAY "Cod.caus." CODTAB
DISPLAY "Cod.trib." I0
DISPLAY "Art.bil." I3
DISPLAY "Quadro " S1
DISPLAY "Descrizione @60" S0
OUTPUT F_CODCAUS CODTAB
OUTPUT F_DESCR2 S0
OUTPUT F_CODTRIB I0
OUTPUT F_QUADRAT S1
OUTPUT F_QUADRCE2 S1
FLAGS "RZ"
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODTRIB 4
BEGIN
PROMPT 1 2 "Codice tributo "
FIELD LF_TABCOM->I0
HELP "Inserire il codice tributo"
WARNING "Manca il codice tributo"
CHECKTYPE REQUIRED
END
NUMBER F_ARTBIL 2
BEGIN
PROMPT 31 2 "Articolo di bilancio "
FIELD LF_TABCOM->I3
END
LIST F_QUADRCE2 2
BEGIN
PROMPT 1 3 "Codice quadro "
HELP "Inserire il codice quadro"
ITEM "C|C"
MESSAGE CLEAR,G_INPS@|ENABLE,F_CT|DISABLE,F_IC|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D|D"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD1|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D1|D1"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD|DISABLE,GR_CAUDD1@||ENABLE,TCF_CAUSD1|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E|E"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E1|E1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro"
FIELD LF_TABCOM->S1
END
LIST F_QUADRAT 2
BEGIN
PROMPT 1 3 "Codice quadro "
HELP "Inserire il codice quadro"
ITEM "A|A"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "A1|A1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "A2|A2"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "A3|A3"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "B|B"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "B1|B1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "C|C"
MESSAGE CLEAR,G_INPS@|ENABLE,F_CT|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|ENABLE,F_IC|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D|D"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD1|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D1|D1"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD1|DISABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E|E"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E1|E1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E2|E2"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
ITEM "F|F"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "F1|F1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "F2|F2"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
ITEM "G|G"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "G1|G1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "N|N"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "P|P"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "Q|Q"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "R|R"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "S|S"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "T|T"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE COPY,F_QUADRCE2
MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro"
FIELD LF_TABCOM->S1
END
LIST F_CODQUA 2
BEGIN
PROMPT 1 3 ""
ITEM "A|A"
ITEM "A1|A1"
ITEM "A2|A2"
ITEM "A3|A3"
ITEM "B|B"
ITEM "B1|B1"
ITEM "C|C"
ITEM "D|D"
ITEM "D1|D1"
ITEM "E|E"
ITEM "E1|E1"
ITEM "E2|E2"
ITEM "F|F"
ITEM "F1|F1"
ITEM "F2|F2"
ITEM "G|G"
ITEM "G1|G1"
ITEM "N|N"
ITEM "P|P"
ITEM "Q|Q"
ITEM "R|R"
ITEM "S|S"
ITEM "T|T"
FLAGS "H"
FIELD LF_TABCOM->S1
END
STRING F_DESCR1 60 35
BEGIN
PROMPT 1 4 "Descrizione "
HELP "Inserire la descrizione della causale"
WARNING "Manca la descrizione"
FIELD LF_TABCOM->S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_DESCR2
END
STRING F_DESCR2 60
BEGIN
PROMPT 1 4 "Descrizione "
FIELD LF_TABCOM->S0
HELP "Inserire la descrizione della causale"
WARNING "Manca la descrizione"
CHECKTYPE REQUIRED
MESSAGE COPY,F_DESCR1,1,22
END
STRING TCF_CAUSD 1
BEGIN
PROMPT 1 5 "Causale D "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD
ITEM " | "
ITEM "A|prestaz. di lav. aut. ... nell<6C>es. arti o prof. abituale"
ITEM "B|prestaz. rese da amministratori, sindaci e revisori..."
ITEM "C|prestaz. rese da collaboratori a giornali, riviste, ..."
ITEM "D|prestaz. rese da partecipanti a collegi e commissioni"
ITEM "E|prestaz. rese dagli sportivi con contratto di lav. autonomo"
ITEM "F|prestaz. ... di rapp. di coll. coord. e c. diversi dai prec"
ITEM "G|utiliz. economica, da parte dell<6C>autore o dell<6C>inventore..."
ITEM "H|utili ... da contratti di associazione in partecipazioni..."
ITEM "I|utili ... ai soci promot. e/o fond. delle soc. di capitale"
ITEM "L|per la levata di protesti cambiari da parte dei segretar..."
ITEM "M|utiliz. economica, ... di soggetto diverso dall<6C>autore o..."
ITEM "N|indennit<69> corrisp. per la cessaz. di rapporti di coll..."
ITEM "P|indennit<69> corrisp. per la cessaz. dei rapporti di agenzia"
ITEM "Q|indennit<69> corrisp. per la cessaz. da funzioni notarili"
ITEM "R|indennit<69> corrisp. per la cessaz. di attivit<69> sportiva prof"
ITEM "S|indennit<69> di trasf. o di rimborso forfettario di spese..."
ITEM "T|altro titolo diverso dai precedenti"
OUTPUT TCF_CAUSD
OUTPUT TCF_CAUSD_DESCR
FIELD LF_TABCOM->S2
FLAGS "D"
GROUP GR_CAUDD1
END
STRING TCF_CAUSD_DESCR 60
BEGIN
PROMPT 16 5 ""
FLAGS "D"
GROUP GR_CAUDD1
END
STRING TCF_CAUSD1 1
BEGIN
PROMPT 1 6 "Causale D1 "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD1
ITEM " | "
ITEM "A|Agente o rappresentante di commercio monomadatario"
ITEM "B|Agente o rappresentate plurimandatario"
ITEM "C|Commissionario"
ITEM "D|Mediatore"
ITEM "E|Procacciatore d'affari"
ITEM "F|Per somme assoggettate a ritenuta a titolo d'imposta"
OUTPUT TCF_CAUSD1
OUTPUT TCF_CAUSD1_DESCR
FIELD LF_TABCOM->S3
FLAGS "D"
GROUP GR_CAUDD1
END
STRING TCF_CAUSD1_DESCR 60
BEGIN
PROMPT 16 6 ""
FLAGS "D"
GROUP GR_CAUDD1
END
BOOLEAN F_ASSRIT
BEGIN
PROMPT 1 8 "Somme assoggettate a titolo di ritenute d'acconto"
FIELD LF_TABCOM->B0
END
BOOLEAN F_IC
BEGIN
PROMPT 58 8 "T.S. "
FIELD LF_TABCOM->B3
GROUP G_ICTS
END
BOOLEAN F_CT
BEGIN
PROMPT 66 8 "C.T. "
FIELD LF_TABCOM->B2
GROUP G_ICTS
END
NUMBER F_PERASS 6
BEGIN
PROMPT 1 9 "Percentuale assoggettamento imponibile "
FIELD LF_TABCOM->R4
PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
WARNING "Percentuale assoggettamento imponibile non valida"
END
NUMBER TCF_PERCASSPREV 6
BEGIN
PROMPT 1 10 "Percentuale cassa previdenza "
FIELD LF_TABCOM->R5
PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
WARNING "Percentuale cassa previdenza non valida"
END
NUMBER F_PERRIT 6
BEGIN
PROMPT 1 11 "Percentuale ritenute d'acconto "
FIELD LF_TABCOM->R0
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
PICTURE ".2"
WARNING "Percentuale della ritenuta d'acconto non valida"
END
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 0 13 "Contributo INPS"
END
BOOLEAN TCF_BINPS
BEGIN
PROMPT 1 14 "Contributo INPS "
FIELD LF_TABCOM->B4
GROUP G_INPS
MESSAGE TRUE ENABLE,INPS_GROUP@
MESSAGE FALSE DISABLE,INPS_GROUP@
END
NUMBER TCF_PERCINPS 6
BEGIN
PROMPT 30 14 "Percentuale "
PICTURE ".2"
FIELD LF_TABCOM->R1
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
FLAGS "D"
GROUP INPS_GROUP
WARNING "Percentuale contributo INPS non valida"
END
NUMBER TCF_ASSIMPINPS 6
BEGIN
PROMPT 1 15 "Percentuale ass.imp. "
PICTURE ".2"
FIELD LF_TABCOM->R2
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
FLAGS "D"
GROUP INPS_GROUP
WARNING "Percentuale ass.imp. contributo INPS non valida"
END
NUMBER TCF_COMMINPS 6
BEGIN
PROMPT 30 15 "Quota a carico del committente "
PICTURE ".2"
FIELD LF_TABCOM->R3
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
FLAGS "D"
WARNING "Quota contributo INPS a carico del committente non valida"
GROUP INPS_GROUP
END
ENDPAGE
ENDMASK
Reference in New Issue View Git Blame Copy Permalink