campo-sirio/m770/771230d.uml

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

BUTTON F_GENERA 24 1
BEGIN
  PROMPT -11 0 "~Generazione da schede"
END

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_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_QUAD 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
  ADD RUN ba4 -1 F
  MESSAGE COPY,F_CODANAGR
  WARNING "Anagrafica assente"
END

SPREADSHEET F_RIGHE 0 14
BEGIN
  PROMPT 0 6 ""
  ITEM "Cod.\ncau.@4"
  ITEM "Aliq."
  ITEM "Cau."
  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 "Generata\nda schede@9"
//  FLAGS "A"
//  USE LF_QUAD KEY NPROG
//  INPUT CODDITTA F_CODDITTA
//  INPUT TIPOA    F_TIPOA
//  INPUT CODANAGR F_CODANAGR
END       

ENDPAGE

ENDMASK

PAGE "RIGA 1" -1 -1 58 12

NUMBER 101 2
BEGIN
  PROMPT 1 1 "Codice causale "
  USE %CA7 SELECT ((I0!="1015")&&(S1="D")) 
  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|per prestazioni di lavoro autonomo rientranti nell'esercizio di arti o professione abituale"
  ITEM "B|per l'utilizzazione economica, da parte dell'autore o inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienze acquisite in campo industriale, commerciale o scientifico"
  ITEM "C|a titolo di utili derivanti da contratti di associazioni in partecipazione e da contratti di cointeressenza, quando l'apporto e' costituito esclusivamente dalla prestazione di lavoro"
  ITEM "D|a titolo di utili spettanti ai soci promotori ed ai soci fondatori delle societa' di capitali"
  ITEM "E|per la levata di protesti cambiari da parte di segretari comunali"
  ITEM "F|per l'utilizzazione economica da parte di sogg. diverso dall'autore o dall'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienze acquisite in campo ind., comm, scient."
  ITEM "G|a titolo di indennita' corrisposte per la cessazione di rapporti di agenzia delle persone fisiche"
  ITEM "H|a titolo di indennita' corrisposte per la cessazione da funzioni notarili"
  ITEM "I|a titolo di indennita' di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attivita' sportiva dilettantistica di cui alla legge 25 marzo 1986, n. 80"
  ITEM "L|per prestazioni di lavoro autonomo non esercitate abitualmente"
  ITEM "M|per prestazioni rese dagli sportivi con contratto di lavoro autonomo"
  ITEM "N|a titolo di indennita' corrisposte per la cessazione di attivita' sportiva professionale"
  ITEM "T|altro titolo diverso dai precedenti"
  OUTPUT 103    
  WANING "La causale deve essere compresa tra A ed T"
  FIELD CAUSALE
END

NUMBER 104 15
BEGIN
  PROMPT 1 3 "Ammontare lordo                       "
  PICTURE "."     
  FIELD TOTALE
END

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

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

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

NUMBER 108 15
BEGIN                                               
  PROMPT 1 7 "Ritenute operate                      "
  PICTURE "."        
  FIELD IMPORTO
END

BOOLEAN 109 
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