campo-sirio/m770/771230la.uml

#include "771230.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Riepilogo LA" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 "Percipiente"
END

NUMBER F_CODDITTA 5
BEGIN  
  PROMPT 4 1 "Ditta  "
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DG"
  FIELD CODDITTA
  KEY 1
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 24 1 ""
  FLAGS "D"
END

LIST F_NUMPROG 1 6
BEGIN
  PROMPT 0 80 "Numero "
  FIELD NPROG
  ITEM "1|Riga 1"
  FLAGS "D"
  KEY 1
END

LIST F_TIPOA 1 17
BEGIN
  PROMPT 4 2 "Tipo percipiente    "
  FIELD TIPOA
  ITEM "F|Persona Fisica"
  ITEM "G|Persona Giuridica"
  KEY 1
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 4 3 "Codice "
  FIELD CODANAGR
  KEY 1
  USE LF_QUALA SELECT NPROG=1
  JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGR
  INPUT NPROG F_NUMPROG
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" LF_ANAG->RAGSOC
  DISPLAY "Codice Fiscale@16" LF_ANAG->COFI
  DISPLAY "Partita IVA@13" LF_ANAG->PAIV
  OUTPUT F_CODANAGR CODANAGR
  OUTPUT F_RAGSOC LF_ANAG->RAGSOC
  OUTPUT F_COFI LF_ANAG->COFI
  CHECKTYPE REQUIRED
END

STRING F_COFI 16
BEGIN
  PROMPT 53 2 "C.F. "
  USE LF_ANAG KEY 3 SELECT LF_QUALA->NPROG>0
  JOIN LF_QUALA INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR=CODANAGR
  INPUT TIPOA F_TIPOA SELECT
  INPUT COFI F_COFI
  DISPLAY "Codice Fiscale@16" LF_ANAG->COFI
  DISPLAY "Denominazione@50" LF_ANAG->RAGSOC
  DISPLAY "Partita IVA@13" LF_ANAG->PAIV
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT F_CODANAGR
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 24 3 ""    
  USE LF_ANAG KEY 2 SELECT LF_QUALA->NPROG>0
  JOIN LF_QUALA INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR=CODANAGR
  INPUT TIPOA F_TIPOA SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Codice Fiscale@16" LF_ANAG->COFI
  DISPLAY "Partita IVA@13" LF_ANAG->PAIV
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT F_CODANAGR
  CHECKTYPE SEARCH
END

NUMBER H_CODANAGR 5
BEGIN
  PROMPT 4 4 "Codice "
  FIELD CODANAGR
  KEY 1
  USE LF_ANAG
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR H_CODANAGR
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" RAGSOC
  OUTPUT H_CODANAGR CODANAGR
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE FORCED
  ADD RUN ba4 -1 F
  MESSAGE COPY,F_CODANAGR
  WARNING "Anagrafica assente"
END

BUTTON F_GENERA 24 1
BEGIN
  PROMPT 2 5 "~Generazione da schede"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 6 ""
  ITEM "Cod.\ncau.@4"
  ITEM "Aliq."
  ITEM "Cau."       
  ITEM "Anno"
  ITEM "Ammontare lordo\ncorrisposto@15"
  ITEM "Somme non sogg.\nritenute@15"
  ITEM "Somme non sogg.\nrit. reg. conv.@15"
  ITEM "Imponibile@15"
  ITEM "Ritenute\nOperate@15"
  ITEM "Ritenute\nSospese@15"
  ITEM "Addizionale\nregionale@15"
  ITEM "Addizionale\nregionale sosp.@15"
  ITEM "Imponibile anni\nprecedenti@15"
  ITEM "Ritenute operate\nanni precedenti@15"
  ITEM "Ente\nPrev.@8"
  ITEM "Categ."
  ITEM "Contributi\nerogante@15"
  ITEM "Contributi\npercipiente@15"
  ITEM "Altri contributi"
  ITEM "Contributi dovuti"
  ITEM "Contributi versati"
  ITEM "Anticip.@6C"
  ITEM "Generata\nda schede@8C"
END       

ENDPAGE

ENDMASK

PAGE "Dati fiscali" -1 -1 58 16

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Codice causale "
  USE %CA7 SELECT ((I0!="1015")&&(S1="LA")) 
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@35" S0  
  OUTPUT 101 CODTAB
  OUTPUT 102 R0    
  OUTPUT 103 S2
  CHECKTYPE NORMAL
  FLAGS "Z"    
  WARNING "Manca la causale"
  FIELD CODCAUS
  ADD RUN 773mod -3 %CA7
  FIELD CODCAUS
END

NUMBER 102 6 2
BEGIN
  PROMPT 25 1 "Aliquota applicata  "
  NUM_EXPR {(#THIS_FIELD>=0)&&(#THIS_FIELD<=100)}
  WARNING "L'aliquota deve essere compresa tra 0 e 100"
  FIELD PERC
END

STRING 103 2
BEGIN  
  PROMPT 1 2 "Causale        "
  FLAGS "U"
  SHEET "Cod.|Descrizione@256"
  INPUT 103
  ITEM "A|Prestazioni 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 <20> costituito esclusivamente dalla prestazione di lavoro"
  ITEM "D|utili spettanti ai soci promotori ed ai soci fondatori delle societ<65> di capitali"
  ITEM "E|Levata di protesti cambiari da parte dei segretari comunali"
//ITEM "F|Prestazioni rese dagli sportivi con contratto di lavoro autonomo"
  ITEM "G|Idennita' corrisposte per la cessazione di attivit<69> sportiva professionale"
  ITEM "H|Idennita' corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche"
  ITEM "I|Idennita' corrisposte per la cessazione da funzionari notarili"
  ITEM "L|Utilizzaz. economica, da parte di sogg. diverso dall'autore o dall'inventore, di opere dell'ingegno, di brevetti industiali e di processi, formule e informaz. relativi ad esperienze acquisite in campo industriale, commerciale, scientifico"
  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 nell' esercizio diretto di attivita' sportiva dilettantistiche"
  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|Prestazioni in forma di capitale e riscatti erogati dalle forme di previdenza complementare di cui al D.Lgs 21 aprile 1993,n. 124 e sucessive modificazioni a lavoratori autonomi e imprenditori individuali"
  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 o incaricato per le vendite a domicilio)"
  ITEM "V2|Redditi derivanti dalle prestazioni non esercitate abitualmente rese dagli incaricati alla vendita diretta a domicilio"
  ITEM "W|Provvigioni corrisposte a incaricato per la vendita porta a porta e per la vendita ambulante di giornali quotidiani e periodici (L. 25 febbraio 1987, n. 67)"
  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 "Z|Titolo diverso dai precedenti"
  OUTPUT 103    
  WANING "La causale deve essere compresa tra A ed Z"
  FIELD CAUSALE
END

NUMBER 104 4
BEGIN
  PROMPT 40 2 "Anno "
  FIELD ANNO
END

CURRENCY 105 15
BEGIN
  PROMPT 1 3 "Ammontare lordo                       "
  FIELD TOTALE
END

CURRENCY 106 15
BEGIN
  PROMPT 1 4 "Somme non soggette a ritenuta         "
  FIELD SOMME         
  NUM_EXPR {(#106+#107)<=#105}
  WARNING "Le somme non soggette a ritenuta superano il lordo"
END

CURRENCY 107 15
BEGIN
  PROMPT 1 5 "Somme non sogg. a rit. per reg. conv. "
  FIELD SOMREGCONV
  NUM_EXPR {(#106+#107)<=#105}
  WARNING "Le somme non soggette a ritenuta superano il lordo"
END

CURRENCY 108 15
BEGIN
  PROMPT 1 6 "Imponibile                            "
  FIELD IMPONIBILE
END

CURRENCY 109 15
BEGIN                                               
  PROMPT 1 7 "Ritenute operate                      "
  FIELD IMPORTO
END

CURRENCY 110 15
BEGIN                                               
  PROMPT 1 8 "Ritenute sospese                      "
  FIELD RITSOSPESE
END

CURRENCY 111 15
BEGIN                                               
  PROMPT 1 9 "Addizionale regionale                 "
  FIELD ADDREG
END

CURRENCY 112 15
BEGIN                                               
  PROMPT 1 10 "Addizionale regionale sospesa         "
  FIELD ADDREGSOSP
END

CURRENCY 113 15
BEGIN                                               
  PROMPT 1 11 "Imponibile anni precedenti            "
  FIELD IMPANNIPRE
END

CURRENCY 114 15
BEGIN                                               
  PROMPT 1 12 "Ritenute anni precedenti              "
  FIELD RITANNIPRE
END

BOOLEAN 122
BEGIN                                               
  PROMPT 1 13 "Anticipazione"
  FIELD ANTICIPAZ
END

BOOLEAN 123
BEGIN                                               
  PROMPT 31 13 "Riga generata da schede"
  FLAGS "D"
  FIELD GENERATA
END

ENDPAGE

PAGE "Dati previdenziali" -1 -1 58 16

STRING 115 8
BEGIN
  PROMPT 1 1 "Ente previdenziale                    "
  USE %ENT
  INPUT CODTAB 117
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice Fiscale" S5
  OUTPUT 115 CODTAB 
  FIELD ENTEPREV
END

STRING 116 2
BEGIN
  PROMPT 1 2 "Categoria                             "
  FIELD CATEGORIA
END

CURRENCY 117 15
BEGIN                                               
  PROMPT 1 3 "Contributi a carico dell'erogante     "
  FIELD CTINPSEROG
END

CURRENCY 118 15
BEGIN                                               
  PROMPT 1 4 "Contributi a carico del percipiente   "
  FIELD CTINPSPERC
END

CURRENCY 119 15
BEGIN                                               
  PROMPT 1 5 "Altri contributi                      "
  FIELD ALTRICONTR
END

CURRENCY 120 15
BEGIN                                               
  PROMPT 1 6 "Contributi dovuti                     "
  FIELD CONTRDOV
END

CURRENCY 121 15
BEGIN                                               
  PROMPT 1 7 "Contributi versati                    "
  FIELD CONTRVER
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 "~Conferma"
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 "~Elimina"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 "Annulla"
END

ENDPAGE

ENDMASK