campo-sirio/m770/771230c.uml

#include "771230.h"
TOOLBAR "" 0 19 0 3
#include <toolbar.h>
ENDPAGE

PAGE "Quadro C" -1 -1 78 18

GROUPBOX DLG_NULL 78 4
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_TIPOA 1 6
BEGIN
  PROMPT 0 80 "Tipo "
  FIELD TIPOA
  ITEM "F|Fisica"
  FLAGS "D"
  KEY 1
END

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


NUMBER F_CODANAGR 5
BEGIN
  PROMPT 4 3 "Codice "
  FIELD CODANAGR
  USE LF_ANAG
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGR
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" RAGSOC
  OUTPUT F_CODANAGR CODANAGR
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN ba4 -1 F
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 24 3 ""    
  FLAGS "D"
  USE LF_ANAG KEY 2
  INPUT TIPOA F_TIPOA SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT F_CODANAGR
  CHECKTYPE NORMAL
  ADD RUN ba4 -1 F
END

SPREADSHEET F_RIGHE 0 14
BEGIN
  PROMPT 0 6 ""
  ITEM "Cod.\ncau.@4"
  ITEM "Aliq."
  ITEM "Cau."
  ITEM "Tassazione\nseparata@10"
  ITEM "Ammotare lordo\ncorrisposto@15"
  ITEM "Contributi\nobbligatori@15"
  ITEM "Somme non sogg.\nritenute@15"
  ITEM "Imponibile@15"
  ITEM "Imposta@15"
  ITEM "Detrazioni\ncar. fam.@15"
  ITEM "N. gg. det.\nlavoro dip.@11"
  ITEM "Detrazioni\nlavoro dip.@15"
  ITEM "Totale\ndetrazioni@15"
  ITEM "Ritenute\nOperate@15"
  ITEM "Generata\nda schede@10"
  FLAGS "A"
  USE LF_QUAC KEY NPROG
  INPUT CODDITTA F_CODDITTA
  INPUT TIPOA    F_TIPOA
  INPUT CODANAGR F_CODANAGR
END       

ENDPAGE

ENDMASK

PAGE "RIGA 1" -1 -1 54 15

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Codice causale "
  USE %CA7 SELECT ((I0!="1015")&&(S1="C")) 
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@35" S0  
  OUTPUT 101 CODTAB
  OUTPUT 102 R0
  OUTPUT 104 S4
  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 {(#102>=0)&&(#102<=100)}
  WARNING "L'aliquota deve essere compresa tra 0 e 100"
  FIELD ALIQUOTA
END

STRING 103 1
BEGIN  
  PROMPT 1 2 "Causale        "
  FLAGS "U"
  SHEET "Cod.|Descrizione@256"
  INPUT 103
  ITEM "A|Indennita' e compensi erogati ai prestatori di lavoro dipendente per incrichi svolti in relazione a tale qualita' e comunicati al datore di lavoro del percettore ai fini del conguaglio di fine anno"
  ITEM "B|Somme corrisposte a titolo di borsa di studio o di assegno, premio o sussidio per fini di studio o di addestramento professionale, se il beneficiario non e' legato da rapporti di lavoro dipendenti nei confronti del soggetto erogante"
  ITEM "C|Indennita', gettoni di presenza ed altri compensi corrisposti dallo Stato, dalle regioni, dalle province e dai comuni per l'esercizio di pubbliche funzioni"
  ITEM "D|Indennita', comunque denominate, percepite per le cariche elettive di cui all'art.114 della Costituzione e alla L. 27 dicembre 1985, n. 186"
  ITEM "E|Rendite vitalizie e rendite a tempo determinato, costituite a titolo oneroso"
  ITEM "F|Prestazioni comunque erogate in forma di trattamento periodico ai sensi del decreto legislativo 21 aprile 1993, n. 124"
  ITEM "G|assegni periodici, comunque denominati, al cui produzione non concorrono ne' capitale ne' lavoro"
  ITEM "H|compensi corrisposti ai lavoratori impegnati in lavori socialmente utili anteriormente all'entrata in vigore dell'art.9, comma 20, del D.L. 1 ottobre 1996, n.510, convertito dalla L. 98 novembre 1996, n. 608"
  OUTPUT 103    
  WANING "La causale e' compresa tra A ed H"
  FIELD CAUSALE
END

NUMBER 104 1
BEGIN
  PROMPT 25 2 "Tassazione separata      "
  SHEET "Codice|Descrizione@60"
  INPUT 104
  ITEM " | "
  ITEM "1|Legge"
  ITEM "2|Contratti collettivi"
  ITEM "3|Sentenze"
  ITEM "4|Atti amministrativi"
  ITEM "5|Altre cause non dipendenti dalla volont<6E> delle parti"
  ITEM "6|Se concorrono due o pi<70> dei codici precedenti"
  OUTPUT 104
  FIELD TASSAZIONE
END

NUMBER 105 15
BEGIN
  PROMPT 1 3 "Ammontare lordo                    "
  PICTURE "."     
  FIELD AMMLORDO
END

NUMBER 106 15
BEGIN
  PROMPT 1 4 "Contributi obbligatori             "
  PICTURE "."
  FIELD CONTROBB
END

NUMBER 107 15
BEGIN
  PROMPT 1 5 "Somme non soggette a ritenuta      "
  PICTURE "."
  FIELD SOMNONSOGG
END

NUMBER 108 15
BEGIN
  PROMPT 1 6 "Imponibile                         "
  PICTURE "."            
  FIELD IMPONIBILE
END

NUMBER 109 15
BEGIN
  PROMPT 1 7 "Imposta                            "
  PICTURE "."        
  FIELD IMPOSTA
  MESSAGE CHECK,113
END

NUMBER 110 15
BEGIN
  PROMPT 1 8 "Detrazioni per carichi di famiglia "
  PICTURE "."                                   
  FIELD DETCARFAM
  MESSAGE CHECK,113
END

NUMBER 111 3
BEGIN  
  PROMPT 1 9 "N. gg. detraz. lavoro dipendente   "
  NUM_EXPR {(#111>=0)&&(#111<=366)}
  WARNINIG "Inserire un valore compreso tra 0 e 366"
  FIELD GGLAVDIP
END

NUMBER 112 15
BEGIN
  PROMPT 1 10 "Detrazioni da lavoro dipendente    "
  PICTURE "."
  FIELD DETLAVDIP
  MESSAGE CHECK,113
END

NUMBER 113 15
BEGIN
  PROMPT 1 11 "Totale detrazioni                  "
  PICTURE "."   
  FLAGS "DG"
  NUM_CALC {min(#109,(#110+#112))}
  MESSAGE CHECK,114
  FIELD TOTDET
END

NUMBER 114 15
BEGIN
  PROMPT 1 12 "Ritenute operate                   "
  NUM_CALC {#109-#113}
  PICTURE "."
  FLAGS "D"
  FIELD RITENUTE
END

BOOLEAN 115
BEGIN
  PROMPT 1 13 "Riga generata dalle schede"
  FLAGS "D"
  FIELD GENERATA
END

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