campo-sirio/src/ve/vetbspp.uml

#include "vetbspp.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Spese" 0 0 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING SPP_CODICE 8
BEGIN
  PROMPT 2 1 "Codice      " 
  FIELD CODTAB
  KEY 1
  USE SPP
  FLAGS "U"
  INPUT CODTAB  SPP_CODICE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SPP_CODICE CODTAB
  OUTPUT SPP_DESCR  S0
  CHECKTYPE REQUIRED
	MESSAGE COPY,10@
END

STRING SPP_DESCR 50
BEGIN
  PROMPT 2 2 "Descrizione "
  FIELD S0
  KEY 2
  USE SPP KEY 2
  INPUT S0  SPP_DESCR
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT SPP_CODICE
  CHECKTYPE REQUIRED
	MESSAGE COPY,20@
END

STRING SPP_CODASSFIS 4
BEGIN
  PROMPT 2 4  "Codice IVA     "
  FIELD S3[1,4]
  FLAG "U"
  USE %IVA
  INPUT CODTAB  SPP_CODASSFIS
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SPP_CODASSFIS CODTAB
  OUTPUT SPP_CODASSFIS1 S0
  CHECKTYPE NORMAL
END

STRING SPP_CODASSFIS1 50
BEGIN
  PROMPT 25 4 ""
  USE %IVA KEY 2
  INPUT S0  SPP_CODASSFIS1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT SPP_CODASSFIS CODTAB
  OUTPUT SPP_CODASSFIS1 S0
  CHECKTYPE NORMAL
END

STRING SPP_CODDIV 4
BEGIN
  PROMPT 2 5 "Codice valuta  "
  FIELD S4
  FLAG "U"
  USE %VAL
  INPUT CODTAB  SPP_CODDIV
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SPP_CODDIV CODTAB
  OUTPUT SPP_CODDIV1 S0
  CHECKTYPE NORMAL
END

STRING SPP_CODDIV1 50
BEGIN
  PROMPT 25 5 ""
  USE %VAL KEY 2
  INPUT S0  SPP_CODDIV1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT SPP_CODDIV CODTAB
  OUTPUT SPP_CODDIV1 S0
  CHECKTYPE NORMAL
END

LISTBOX SPP_CAMPI 15
BEGIN
  PROMPT 2 6 "Campo default  "
  FIELD S6
  ITEM "Q|Qta prezzo "
  MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@|DISABLE,4@
  ITEM "V|Valore "
  MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@|DISABLE,4@
  ITEM "P|Percentuale "
  MESSAGE SHOW,3@|HIDE,1@|RESET,1@|ENABLE,4@
END

LISTBOX SPP_TIPORIT 17
BEGIN
  PROMPT 43 6 "Tipo ritenuta  "
  FIELD S9
  ITEM " |Spesa normale"
  ITEM "F|Ritenuta fiscale"
  ITEM "S|Ritenuta Sociale"
END

CURRENCY SPP_PREZZO 15
BEGIN
  PROMPT 2 7 "Prezzo         "
  FIELD R10           
  FLAGS "U"
  GROUP 1
END

NUMBER SPP_QTA 15 5
BEGIN
  PROMPT 37 7 "Quantita' "
  FIELD R1
  GROUP 1 2
END

STRING SPP_UM 2
BEGIN
  PROMPT 68 7 "U.M. "
  FIELD S7
  FLAGS "U"
  USE %UMS
  INPUT CODTAB SPP_UM
  DISPLAY "U.M." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SPP_UM CODTAB
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER SPP_PERCENTUALE 5 2
BEGIN
  PROMPT 2 7 "Percentuale    "
  FIELD R2
  GROUP 3
END

STRING SPP_NCAMPOCAL 10
BEGIN
  PROMPT 2 8 "Formula Docum. "
  FIELD S5
  FLAG "U"
  USE %FRD
  INPUT CODTAB  SPP_NCAMPOCAL
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SPP_NCAMPOCAL CODTAB
  OUTPUT SPP_NCAMPOCAL1 S0
  CHECKTYPE NORMAL
  GROUP 3
END

STRING SPP_NCAMPOCAL1 50 45
BEGIN
  PROMPT 32 8 ""
  USE %FRD KEY 2
  INPUT S0  SPP_NCAMPOCAL1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT SPP_NCAMPOCAL CODTAB
  OUTPUT SPP_NCAMPOCAL1 S0
  CHECKTYPE NORMAL
  GROUP 3
END

STRING SPP_TIPORIGA 4
BEGIN
  PROMPT 2 9 "Tipo riga      "
  FIELD S8
  FLAGS "U"
  USE %TRI SELECT S7=="S"
  INPUT CODTAB SPP_TIPORIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SPP_TIPORIGA CODTAB
  OUTPUT SPP_DESCRRIGA S0
  CHECKTYPE REQUIRED
END

STRING SPP_DESCRRIGA 50 47
BEGIN
  PROMPT 28 9 ""
  USE %TRI KEY 2 SELECT S7=="S"
  INPUT S0 SPP_DESCRRIGA
  COPY DISPLAY SPP_TIPORIGA
  COPY OUTPUT SPP_TIPORIGA
END

NUMBER SPP_GRUPPOV 3
BEGIN
  PROMPT 2 10 "Conto vendita  "
  FIELD I0
  CHECKTYPE NORMAL
 END

NUMBER SPP_CONTOV 3
BEGIN
  PROMPT 22 10 ""
  FIELD I1
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
  INPUT GRUPPO      SPP_GRUPPOV
  INPUT CONTO       SPP_CONTOV
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT SPP_GRUPPOV  GRUPPO
  OUTPUT SPP_CONTOV  CONTO
  CHECKTYPE NORMAL
  ADD RUN CG0 -0
  WARNING "Il conto deve essere un ricavo"
 END

NUMBER SPP_SOTTOV 6
BEGIN
  PROMPT 29 10 ""
  FIELD I2
  USE LF_PCON SELECT SOTTOCONTO!=""
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO      SPP_GRUPPOV
  INPUT CONTO       SPP_CONTOV
  INPUT SOTTOCONTO  SPP_SOTTOV
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT SPP_GRUPPOV  GRUPPO
  OUTPUT SPP_CONTOV  CONTO
  OUTPUT SPP_SOTTOV  SOTTOCONTO
  OUTPUT SPP_DESCRCONTOV  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING SPP_DESCRCONTOV 50 35
BEGIN
 PROMPT 40 10 ""
  FLAG "U"
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT DESCR SPP_DESCRCONTOV
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT SPP_SOTTOV
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

NUMBER SPP_GRUPPOA 3
BEGIN
  PROMPT 2 15 "Conto acquisti "
  FIELD I3
  CHECKTYPE NORMAL
 END

NUMBER SPP_CONTOA 3
BEGIN
  PROMPT 22 15 ""
  FIELD I4
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
  INPUT GRUPPO      SPP_GRUPPOA
  INPUT CONTO       SPP_CONTOA
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT SPP_GRUPPOA  GRUPPO
  OUTPUT SPP_CONTOA  CONTO
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un costo"
  ADD RUN CG0 -0
 END

NUMBER SPP_SOTTOA 6
BEGIN
  PROMPT 29 15 ""
  FIELD I5
  USE LF_PCON SELECT SOTTOCONTO!=""
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO      SPP_GRUPPOA
  INPUT CONTO       SPP_CONTOA
  INPUT SOTTOCONTO  SPP_SOTTOA
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT SPP_GRUPPOA  GRUPPO
  OUTPUT SPP_CONTOA  CONTO
  OUTPUT SPP_SOTTOA  SOTTOCONTO
  OUTPUT SPP_DESCRCONTOA  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING SPP_DESCRCONTOA 50 35
BEGIN
  PROMPT 40 15 ""
  FLAG "U"
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT DESCR SPP_DESCRCONTOA
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT SPP_SOTTOA
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

LIST SPP_TIPOSP 1 20
BEGIN
  PROMPT 2 20 "Tipologia di spesa/prestazione "
  FIELD S11[1,1]
  ITEM " |Altro"
  ITEM "I|Incasso"
  ITEM "R|Rimborso" 
  ITEM "T|Trasporto" 
END

STRING SPP_CODTRB 4
BEGIN
  PROMPT 2 21  "Cod. tributo   "
  FIELD S10
  FLAG "U"
  USE %TRB
  INPUT CODTAB  SPP_CODTRB
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SPP_CODTRB CODTAB
  OUTPUT SPP_CODTRB1 S0
  CHECKTYPE NORMAL
END

STRING SPP_CODTRB1 50 22
BEGIN
  PROMPT 25 21 ""
  USE %TRB KEY 2
  INPUT S0  SPP_CODTRB1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT SPP_CODTRB CODTAB
  OUTPUT SPP_CODTRB1 S0
  CHECKTYPE NORMAL
END

NUMBER SPP_CODCAUS770 2
BEGIN
  PROMPT 2 22 "Caus. 770 "
  USE %CA7 SELECT I0==#SPP_CODTRB
  INPUT CODTAB SPP_CODCAUS770
  DISPLAY "Cod.caus." CODTAB
  DISPLAY "Cod.trib." I0
  DISPLAY "Art.bil." I3
  DISPLAY "Quadro "  S1
  DISPLAY "Descrizione @60" S0
  OUTPUT SPP_CODCAUS770  CODTAB
  FIELD I6
  FLAGS "Z"
	MODULE 77
  CHECKTYPE NORMAL
END

LISTBOX SPP_CODQUA 2 10
BEGIN
  PROMPT 20 22 "Quadro    "
  HELP "Inserire il codice quadro"
  ITEM "|" MESSAGE CLEAR,SPP_CAUSD
  ITEM "LA|Quadro LA" MESSAGE ENABLE,SPP_CAUSD
  ITEM "SF|Quadro SF" MESSAGE CLEAR,SPP_CAUSD
  ITEM "SG|Quadro SG" MESSAGE CLEAR,SPP_CAUSD
  WARNING "Manca il codice quadro"
	FIELD S12
END

STRING SPP_CAUSD 2
BEGIN             
  PROMPT 50 22 "Causale LA "
  FLAGS "U"
  SHEET "Codice|Descrizione@320"
  INPUT SPP_CAUSD
  ITEM " | "
  ITEM "A|Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
  ITEM "B|Utilizzazione economica, da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienzeacquisite in campo industriale, commerciale o scientifico"
  ITEM "C|Utili derivanti da contratti di associazione in partecipazione e da contratti di cointeressenza quando l' apporto e' costituito esclusivamente dalla prestazione di lavoro"
  ITEM "D|utili spettanti ai soci promotori ed ai soci fondatori delle societa' di capitali"
  ITEM "E|Levata di protesti cambiari da parte dei segretari comunali"
  ITEM "F|Indennit<69> corrisposte ai giudici onorari di pace e ai vice procuratori onorari"
  ITEM "G|Indennit<69> corrisposte per la cessazione di attivit<69> sportiva professionale"
  ITEM "H|Indennit<69> corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche e delle societ<65> di persone con esclusione delle somme maturate entro il 31 dicembre 2003, ..."
  ITEM "I|Indennit<69> corrisposte per la cessazione da funzioni notarili"
  ITEM "J|Compensi corrisposi ai raccoglitori occasionali di tartufi..."
  ITEM "K|Assegni di servizio civile di cui all'art.16 del D.lgs. n. 40 del 6 marzo 2017"
  ITEM "L|Redditi derivanti dall<6C>utilizzazione economica di opere dell<6C>ingegno, di brevetti industriali e di processi, formule e informazioni relativi a esperienze acquisite in campo industriale, commerciale o scientifico, che sono percepiti dagli aventi causa a titolo gratuito (ad es. eredi e legatari dell'autore e inventore)"
  ITEM "L1|Redditi derivanti dall<6C>utilizzazione economica di opere dell<6C>ingegno, di brevetti industriali e di processi, formule e informazioni relativi a esperienze acquisite in campo industriale, commerciale o scientifico, che sono percepiti da soggetti che abbiano acquistato a titolo oneroso i diritti alla loro utilizzazione"
  ITEM "M|Prestazioni di lavoro autonomo non esercitate abitualmente"
  ITEM "M1|Redditi derivanti dall<6C>assunzione di obblighi di fare, di non fare o permettere"
  ITEM "M2|Prestazioni di lavoro autonomo non esercitate abitualmente per le quali sussiste l'obbligo di iscrizione alla Gestione Separata ENPAPI"
  ITEM "N|Idennita' di trasferta, rinborso forfetario di spese, premi e compensi erogati: \n- nell' esercizio diretto di attivita' sportiva dilettantistiche\n- in relazione a rapporti di collaborazione coordinata e continuativa i carattere amministrativo-gestionale di natura non professionale resi a favore di societ<65> e associazioni sportive dilettantistiche e di cori, bande e filodrammatiche da parte del direttore e dei collaboratori tecnici"
  ITEM "O|Prestazioni di lavoro autonomo non esercitate abitualmente, per le quali non sussiste l<>obbligo di iscrizione alla gestione separata"
  ITEM "O1|Redditi derivanti dall<6C>assunzione di obblighi di fare, di non fare o permettere, per le quali non sussiste l<>obbligo di iscrizione alla gestione separata (Circ. INPS n. 104/2001)"
  ITEM "P|Compensi corrisposti a soggetti non residenti privi di stabile organizzazione per l'uso o la concessione in uso di attrezzature industriali, commerciali o scientifiche che si trovano nel territorio dello Stato ovvero a societ<65> svizzere o stabili organizzazioni di societ<65> svizzere..."
  ITEM "Q|Provvigioni corrisposte ad agente o rappresentante di commercio monomandatario"
  ITEM "R|Provvigioni corrisposte ad agente o rappresentante plurimandatario"
  ITEM "S|Provvigioni corrisposte a commissionario"
  ITEM "T|Provvigioni corrisposte a mediatore"
  ITEM "U|Provvigioni corrisposte a procacciatore di affari"
  ITEM "V|Provvigioni corrisposte a incaricato per le vendite a domicilio"
  ITEM "V1|Redditi derivanti da attivit<69> commerciali non esercitate abitualmente (ad esempio, provvigioni corrisposte per prestazioni occasionali ad agente o rappresentante di commercio, mediatore, procacciatore d'affari)"
  ITEM "V2|redditi derivanti da attivit<69> commerciali non esercitate abitualmente rese dagli incaricati alla vendita diretta a domicilio"
  ITEM "W|Corrispettivi erogati nel 2017 per prestazioni relative a contratti d'appalto cui si sono resi applicabili le diposizioni contenute nell'art. 25-ter del D.P.R. n. 600 del 29 settembre 1973"
  ITEM "X|Canoni corrisposti nel 2004 da societ<65> o enti residenti ovvero da stabili organizzazioni di societ<65> estere"
  ITEM "Y|Canoni corrisposti dal 1<> gennaio 2005 al 26 luglio 2005 da societ<65> o enti residenti ovvero da stabili organizzazioni di societ<65> estere"
  ITEM "Z0|Titolo diverso dai precedenti"
  OUTPUT SPP_CAUSD
  FIELD S14
  FLAGS "D"
END

LISTBOX SPP_SEZIONE 6
BEGIN
  PROMPT 2 23 "Sezione per cooperative "
  FIELD S11[5,5]
  ITEM "D|Dare"
  ITEM "A|Avere" 
END

STRING SPP_TIPOCAS 4
BEGIN             
  PROMPT 2 24 "Tipo Cassa Previdenziale "
  FLAGS "U"
  SHEET "Codice|Descrizione@320"
  INPUT SPP_TIPOCAS
  ITEM " | "
	ITEM "TC01|Cassa nazionale previdenza e assistenza avvocati e procuratori legali"
	ITEM "TC02|Cassa previdenza dottori commercialisti"
	ITEM "TC03|Cassa previdenza e assistenza geometri"
	ITEM "TC04|Cassa nazionale previdenza e assistenza ingegneri e architetti liberi professionisti"
	ITEM "TC05|Cassa nazionale del notariato"
	ITEM "TC06|Cassa nazionale previdenza e assistenza ragionieri e periti commerciali"
	ITEM "TC07|Ente nazionale assistenza agenti e rappresentanti di commercio (ENASARCO)"
	ITEM "TC08|Ente nazionale previdenza e assistenza consulenti del lavoro (ENPACL)"
	ITEM "TC09|Ente nazionale previdenza e assistenza medici (ENPAM)"
	ITEM "TC10|Ente nazionale previdenza e assistenza farmacisti (ENPAF)"
	ITEM "TC11|Ente nazionale previdenza e assistenza veterinari (ENPAV)"
	ITEM "TC12|Ente nazionale previdenza e assistenza impiegati dell'agricoltura (ENPAIA)"
	ITEM "TC13|Fondo previdenza impiegati imprese di spedizione e agenzie marittime"
	ITEM "TC14|Istituto nazionale previdenza giornalisti italiani (INPGI)"
	ITEM "TC15|Opera nazionale assistenza orfani sanitari italiani (ONAOSI)"
	ITEM "TC16|Cassa autonoma assistenza integrativa giornalisti italiani (CASAGIT)"
	ITEM "TC17|Ente previdenza periti industriali e periti industriali laureati (EPPI)"
	ITEM "TC18|Ente previdenza e assistenza pluricategoriale (EPAP)"
	ITEM "TC19|Ente nazionale previdenza e assistenza biologi (ENPAB)"
	ITEM "TC20|Ente nazionale previdenza e assistenza professione infermieristica (ENPAPI)"
	ITEM "TC21|Ente nazionale previdenza e assistenza psicologi (ENPAP)"
	ITEM "TC22|INPS"
	OUTPUT SPP_TIPOCAS
  FIELD S13[0,4]
  FLAGS "D"
	GROUP 4
END

BOOLEAN SPP_SOGGRIT
BEGIN
	PROMPT 40 24 "Soggetto a ritenuta"
	FLAGS "D"
	FIELD B0
	GROUP 4
END

BOOLEAN SPP_CALCRIT
BEGIN
	PROMPT 60 24 "Soggetto al calcolo rit."
	FLAGS "D"
	FIELD B1
	GROUP 4
END

ENDPAGE
PAGE "Analitica" 11 60 14

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING DLG_NULL 8
BEGIN
  PROMPT 2 1 "Codice      "
  GROUP 10
  FLAGS "D"
END

STRING DLG_NULL 50
BEGIN
	PROMPT 2 2 "Descrizione "
  GROUP 20
  FLAGS "D"
END

ENDPAGE
ENDMASK