campo-sirio/m770/771230e.uml

#include "771230.h"

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

PAGE "Riepilogo SF" -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_TIPOA 1 17
BEGIN
  PROMPT 4 3 "Tipo percipiente    "
  FIELD TIPOA
  ITEM "F|Persona Fisica"
  ITEM "G|Persona Giuridica"
  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 4 "Codice "
  FIELD CODANAGR
  KEY 1
  USE LF_QUAE 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
  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
  WARNING "Anagrafica assente"
  ADD RUN ba4 -1 F
  MESSAGE COPY,F_CODANAGR
END

SPREADSHEET F_RIGHE 0 14
BEGIN
  PROMPT 0 6 ""
  ITEM "Cod.\ncau.@4"
  ITEM "Cau."
  ITEM "Imponibile\ncorrisposto@15"
  ITEM "Aliquota"
  ITEM "Ritenute\nOperate@15"
  ITEM "Somme al netto\nritenute@15"
  ITEM "Somme non\nsogg. riten.@15"
  ITEM "Generata\nda schede"
//  FLAGS "A"
//  USE LF_QUAE KEY NPROG
//  INPUT CODDITTA F_CODDITTA
//  INPUT TIPOA    F_TIPOA
//  INPUT CODANAGR F_CODANAGR
END       

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

ENDPAGE

ENDMASK

PAGE "RIGA 1" -1 -1 60 10

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

STRING 102 1
BEGIN  
  PROMPT 1 3 "Causale quadro      "
  FLAGS "U"
  SHEET "Cod.|Descrizione@256"
  INPUT 102
  ITEM "A|redditi di capitale corrisposti a soggetti residenti non esercenti attivit<69> d'impresa comerciale, assoggettati alla ritenuta a titolo d'acconto di cui all'art.26, ultimo comma del D.P.R. n.600 del 1973"
  ITEM "B|proventi corrisposti a stabili organizzazioni estere di imprese residenti, non appartenenti all'impresa erogante, assoggettabili alla ritenuta d'acconto nella misura del 12,50 o del 27 per cento (art.26,ultimo comma,del D.P.R.600 del 1973)"
  ITEM "C|compensi per avviamento commerciale assoggettati alla ritenuta a titolo di acconto di cui all'art.28, primo comma, del D.P.R. n.600 del 1973"
  ITEM "D|contributi degli enti pubblici e privati e premi corrisposti dall'Unione nazionale incremento razze equine (UNIRE) e dalla Federazione italiana sport equestri (FISE), assoggettati alla rit. d'acc. di cui all'art.28,secondo comma,DPR600 del 1973"
  ITEM "E|proventi di cui all'art.41, comma 1, lettere g-bis e g-ter, del Tuir, assoggettati a ritenuta a titolo d'acconto o non assoggetati a ritenuta, percepiti da soggetti non esercenti attivit<69> d'impresa, ai sensi dell'art.26,comma3-bis,DPR600 del 1973"
  ITEM "F|proventi di cui all'art.41, comma 1, lett. g-bis, del Tuir, divenuti esigibili dal 1 gennaio al 18 agosto 1999, per i quali non <20> stata resa l'opzione di cui all'art.2, comma 5, del D.Lgs. n.259 del 1999"          
  ITEM "G|proventi derivanti da mutui, depositi e conti correnti diversi da quelli bancari e postali, ad eccezione dei proventi derivanti da prestiti di denaro"          
  ITEM "H|interessi ed altri proventi derivanti da depositi e conti correnti bancari e postali"          
  ITEM "I|rendite perpetue e prestazioni annuali perpetue"          
  ITEM "L|prestazioni di fideiussioni e di ogni altra garanzia"          
  ITEM "M|proventi derivanti da operazioni di pronti contro termine e di riporto su titoli e valute"                  
  ITEM "N|proventi derivanti da operazioni di mutuo di titoli garantito"
  ITEM "P|certificati di deposito emessi da banche a decorrere dal 1 luglio 1998"
  ITEM "Q|certificati di deposito e buoni fruttiferi emessi da banche fino al 30 giugno 1998 (art.6 della L. 26 aprile 1982, n.181; art.4 del D.M. 5 dicembre 1997, n.494"
  ITEM "R|altri redditi di capitale, diversi da quelli individuati nei codici da G a Q, per i quali <20> stata applicata una aliquota ridotta o pari a zero in applicazione di accordi internazionali e di convenzioni bilaterali per evitare la doppia imposizione"
  ITEM "S|somme corrisposte a soggetti residenti negli Stati esteri indicati nei D.M. del 04/09/1996, del 25/03/1998, del 16/12/1998 e del 10/06/1999, per i quali hanno trovato applicazioni le disposizioni dell'art.9, commi 1 e 4, del D.Lgs. n.461 del 1997"
  ITEM "T|interessi ed altri proventi derivanti da finanziamenti effettuati da soggetti non residenti e raccolti dalla societ<65> costituita ai sensi del'art.13 della L. 23 dicembre 1998, n.448, per la cartolarizzazione dei crediti INPS"
  OUTPUT 102    
  WANING "La causale deve essere compresa tra A ed E"
  FIELD CAUSALE
END

CURRENCY 103 15
BEGIN
  PROMPT 1 4 "Imponibile corrisposto                    "
  FIELD IMPONIBILE
END

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

CURRENCY 105 15
BEGIN
  PROMPT 1 5 "Ritenute operate                          "
  FIELD IMPORTO
END

CURRENCY 106 15
BEGIN
  PROMPT 1 6 "Somme corrisposte al netto delle ritenute "
  FIELD NETTO
END

CURRENCY 107 15
BEGIN
  PROMPT 1 7 "Somme non soggette a ritenuta             "
  FIELD SOMME
END

BOOLEAN 108
BEGIN
  PROMPT 1 8 "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