diff --git a/m770/771230la.uml b/m770/771230la.uml index a5239e64a..da6da56cd 100755 --- a/m770/771230la.uml +++ b/m770/771230la.uml @@ -1,304 +1,304 @@ -#include "771230.h" - -TOOLBAR "" 0 0 0 2 -#include -ENDPAGE - -PAGE "Riepilogo LA" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 1 1 "Percipiente" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 4 2 "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 2 "" - 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 3 "Tipo percipiente " - FIELD TIPOA - ITEM "F|Persona Fisica" - ITEM "G|Persona Giuridica" - KEY 1 -END - -NUMBER F_CODANAGR 5 -BEGIN - PROMPT 4 4 "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 - CHECKTYPE REQUIRED -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 24 4 "" - FLAGS "D" -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 6 "~Generazione da schede" -END - -SPREADSHEET F_RIGHE -BEGIN - PROMPT 0 7 "" - 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 "Contributi\nerogante@15" - ITEM "Contributi\npercipiente@15" - ITEM "Anticip." - ITEM "Generata\nda schede@9" -END - -ENDPAGE - -ENDMASK - -PAGE "RIGA LA" -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 1 -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 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|Prestazioni rese dagli sportivi con contratto di lavoro autonomo" - ITEM "G|Idennita' corrisposte per la cessazione di attivita' 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 "M|Prestazioni di lavoro autonomo non esercitate abitualmente" - ITEM "N|Idennita' di trasferta, rinborso forfetario di spese, premi e compensi erogati nell' esercizio diretto di attivita' sportiva dilettantistiche" - 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 "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 "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 - -CURRENCY 115 15 -BEGIN - PROMPT 1 13 "Contributi a carido dell'erogante " - FIELD CTINPSEROG -END - -CURRENCY 116 15 -BEGIN - PROMPT 1 14 "Contributi a carido del percipiente " - FIELD CTINPSPERC -END - - -BOOLEAN 117 -BEGIN - PROMPT 1 15 "Anticipazione" - FIELD ANTICIPAZ -END - -BOOLEAN 118 -BEGIN - PROMPT 31 15 "Riga generata da schede" - FLAGS "D" - FIELD GENERATA -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 - - +#include "771230.h" + +TOOLBAR "" 0 0 0 2 +#include +ENDPAGE + +PAGE "Riepilogo LA" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 1 "Percipiente" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 4 2 "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 2 "" + 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 3 "Tipo percipiente " + FIELD TIPOA + ITEM "F|Persona Fisica" + ITEM "G|Persona Giuridica" + KEY 1 +END + +NUMBER F_CODANAGR 5 +BEGIN + PROMPT 4 4 "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 + CHECKTYPE REQUIRED +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 24 4 "" + FLAGS "D" +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 6 "~Generazione da schede" +END + +SPREADSHEET F_RIGHE +BEGIN + PROMPT 0 7 "" + 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 "Contributi\nerogante@15" + ITEM "Contributi\npercipiente@15" + ITEM "Anticip." + ITEM "Generata\nda schede@9" +END + +ENDPAGE + +ENDMASK + +PAGE "RIGA LA" -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 1 +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 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|Prestazioni rese dagli sportivi con contratto di lavoro autonomo" + ITEM "G|Idennita' corrisposte per la cessazione di attivita' 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 "M|Prestazioni di lavoro autonomo non esercitate abitualmente" + ITEM "N|Idennita' di trasferta, rinborso forfetario di spese, premi e compensi erogati nell' esercizio diretto di attivita' sportiva dilettantistiche" + 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 "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 "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 + +CURRENCY 115 15 +BEGIN + PROMPT 1 13 "Contributi a carico dell'erogante " + FIELD CTINPSEROG +END + +CURRENCY 116 15 +BEGIN + PROMPT 1 14 "Contributi a carico del percipiente " + FIELD CTINPSPERC +END + + +BOOLEAN 117 +BEGIN + PROMPT 1 15 "Anticipazione" + FIELD ANTICIPAZ +END + +BOOLEAN 118 +BEGIN + PROMPT 31 15 "Riga generata da schede" + FLAGS "D" + FIELD GENERATA +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 + +