campo-sirio/m770/771234a.uml

#include "771234a.h"  

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 8 2
BEGIN
  PROMPT -17 -1 "~Registra"
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_NEWREC 8 2
BEGIN
  PROMPT -27 -1 "~Nuovo"
  MESSAGE EXIT,K_INS
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
END

BUTTON DLG_DELREC 8 2
BEGIN
  PROMPT -37 -1 "~Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
END

BUTTON DLG_FINDREC 8 2
BEGIN
  PROMPT -47 -1 "Ri~cerca"
  MESSAGE EXIT,K_F9
  PICTURE 126
END

BUTTON DLG_CANCEL 8 2
BEGIN
  PROMPT -57 -1 "~Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE 102
END

BUTTON DLG_QUIT 8 2
BEGIN
  PROMPT -67 -1 "~Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

BUTTON DLG_DISTINTA 8 2
BEGIN
  PROMPT -77 -1 "~Distinta"
END

ENDPAGE

PAGE "Prospetto 1" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  FIELD LF_QUAG->CODDITTA
  KEY 1
  CHECKTYPE REQUIRED             
  FLAGS "GRD"
  MESSAGE COPY,1@
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"      
  MESSAGE COPY,2@
END
                     
TEXT DLG_NULL
BEGIN        
  PROMPT 1 3 "@bUtili dei quali e' stata deliberata la distribuzione nell'anno 1996"
END           

TEXT DLG_NULL
BEGIN        
  PROMPT 1 4 "I - Utili in denaro"
END

SPREADSHEET F_P1_I 78 4
BEGIN
  PROMPT 0 5 ""
  ITEM "Data delibera"
  ITEM "Ammontare azione"
  ITEM "Numero azioni"
  ITEM "Ammontare complessivo"
END

NUMBER F_P1_I_TOT1 11
BEGIN
  PROMPT 29 10 "Totali    "
  FLAGS "D"
END

NUMBER F_P1_I_TOT2 17
BEGIN
  PROMPT 54 10 ""
  PICTURE "."          
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN        
  PROMPT 1 11 "II - Utili in natura"
END

DATE F_DATADELIB
BEGIN
  PROMPT 1 12 "Data delibera "
  FIELD LF_QUAG->P2DATADE
END

SPREADSHEET F_P1_II 78 5
BEGIN
  PROMPT 0 13 ""     
  ITEM "Descrizione dei beni distribuiti@35"
  ITEM "Valore ultimo bilancio@15"
END

NUMBER F_P1_II_TOT 15
BEGIN
  PROMPT 1 19 "Totale utili in natura                          "
  PICTURE "."
  FLAGS "D"
END

NUMBER F_P2IMPQ 15
BEGIN
  PROMPT 1 20 "Importo imputabile a ciascuna quota o azione    "
  PICTURE "."          
  FIELD LF_QUAG->P2IMPQ  
END

ENDPAGE

PAGE "Prospetto 2 - I" -1 -1 78 18

TEXT DLG_NULL
BEGIN        
  PROMPT 1 1 "@bUtili pagati e ritenute effettuate"
END

TEXT DLG_NULL
BEGIN        
  PROMPT 1 2 "I - Utili in denaro"
END

NUMBER F_UTILIAP21 15
BEGIN
  PROMPT 1 4 "Col. 1 - Utili anno precedente           "
  PICTURE "."          
  FIELD LF_QUAG->UTILIAP21
END

NUMBER F_UTILI21 15
BEGIN
  PROMPT 1 5 "Col. 2 - Utili deliberati anno in corso  "
  PICTURE "."          
  FIELD LF_QUAG->UTILI21
END

NUMBER F_UTILIAC21 15
BEGIN
  PROMPT 1 6 "Col. 8 - Utili anno in corso             "
  PICTURE "."          
  FIELD LF_QUAG->UTILIAC21
END

SPREADSHEET F_P2_I 78 12
BEGIN
  PROMPT 0 7 ""
  ITEM "Utili\nI semestre 1996@16"
  ITEM "Utili\nII semestre 1996@16"
  ITEM "Aliquota"
  ITEM "Titolo\nritenuta@8"
  ITEM "Ritenute\neffettuate@15"
END

ENDPAGE

PAGE "Prospetto 2 - II" -1 -1 78 18

TEXT DLG_NULL
BEGIN        
  PROMPT 1 1 "@bUtili pagati e ritenute effettuate"
END

TEXT DLG_NULL
BEGIN        
  PROMPT 1 2 "II - Utili in natura"
END

NUMBER F_UTILIAP22 15
BEGIN
  PROMPT 1 4 "Col. 1 - Utili anno precedente           "
  PICTURE "."          
  FIELD LF_QUAG->UTILIAP22
END

NUMBER F_UTILI22 15
BEGIN
  PROMPT 1 5 "Col. 2 - Utili deliberati anno in corso  "
  PICTURE "."          
  FIELD LF_QUAG->UTILI22
END

NUMBER F_UTILIAC22 15
BEGIN
  PROMPT 1 6 "Col. 8 - Utili anno in corso             "
  PICTURE "."          
  FIELD LF_QUAG->UTILIAC22
END

SPREADSHEET F_P2_II 78 12
BEGIN
  PROMPT 0 7 ""
  ITEM "Utili\nI semestre 1996@16"
  ITEM "Utili\nII semestre 1996@16"
  ITEM "Aliquota"
  ITEM "Titolo\nritenuta@8"
  ITEM "Ritenute\neffettuate@15"
END

ENDPAGE

PAGE "Prospetto 3" -1 -1 78 18

TEXT DLG_NULL
BEGIN        
  PROMPT 1 1 "@bRitenute versate"
END

TEXT DLG_NULL
BEGIN
  PROMPT 31 3 "Causale dei versamenti"
END
     
TEXT DLG_NULL
BEGIN
  PROMPT 63 3 "Importo versato"
END
     
NUMBER F_P31 15
BEGIN
  PROMPT 63 5 ""
  PICTURE "." 
  FIELD LF_QUAG->P31
  MESSAGE K_TAB,F_P3TOT
END

NUMBER F_P32AT 15
BEGIN
  PROMPT 63 7 ""
  PICTURE "."        
  FIELD LF_QUAG->P32AT   
  MESSAGE K_TAB,F_P3TOT    
END

NUMBER F_P32AR 15
BEGIN
  PROMPT 63 8 ""
  PICTURE "."        
  FIELD LF_QUAG->P32AR   
  MESSAGE K_TAB,F_P3TOT
  NUM_EXPR {#THIS <= #F_P32AT}
  WARNING "I recuperi debbono essere minori o uguali agli utili"
END                     

NUMBER F_P32BT 15
BEGIN
  PROMPT 63 9 ""
  PICTURE "."        
  FIELD LF_QUAG->P32BT   
  MESSAGE K_TAB,F_P3TOT    
END

NUMBER F_P32BR 15
BEGIN
  PROMPT 63 10 ""
  PICTURE "."        
  FIELD LF_QUAG->P32BR
  NUM_EXPR {#THIS <= #F_P32BT}
  WARNING "I recuperi debbono essere minori o uguali agli utili"
  MESSAGE K_TAB,F_P3TOT    
END

NUMBER F_P33A 15
BEGIN
  PROMPT 63 13 ""      
  PICTURE "."        
  FIELD LF_QUAG->P33A   
  MESSAGE K_TAB,F_P3TOT  
END

NUMBER F_P33B 15
BEGIN
  PROMPT 63 14 ""
  PICTURE "."        
  FIELD LF_QUAG->P33B     
  MESSAGE K_TAB,F_P3TOT
END

NUMBER F_P34A 15
BEGIN
  PROMPT 63 16 ""
  PICTURE "."        
  FIELD LF_QUAG->P34A   
  MESSAGE K_TAB,F_P3TOT    
END

NUMBER F_P34B 15
BEGIN
  PROMPT 63 17 ""
  PICTURE "."        
  FIELD LF_QUAG->P34B
  MESSAGE K_TAB,F_P3TOT    
END

NUMBER F_P3TOT 15
BEGIN
  PROMPT 63 19 ""
  PICTURE "."
  FLAGS "D"          
  NUM_CALC {#F_P31+#F_P32AT-#F_P32AR+#F_P32BT-#F_P32BR+#F_P33A+#F_P33B+#F_P34A+#F_P34B}
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 4 "Sez. 1) Ritenute 10% sugli utili in denaro di cui e' stata "
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 5 "        deliberata la distribuzione nell'anno 1996."
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 6 "Sez. 2) Maggiori ritenute sugli utili in denaro corrisposti:"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 7 "        a) nel primo semestre 1996"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 8 "           meno recuperi "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 9 "        b) nel secondo semestre 1996"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 10 "           meno recuperi"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 11 "Sez. 3) Ritenute, d'acconto o d'imposta sugli utili"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 12 "        in natura corrisposti:"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 13 "        a) effettuate nel primo semestre 1996"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT 1 14 "        b) effettuate nel secondo semestre 1996"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 15 "Sez. 4) Ritenuta d'imposta del 10% sugli utili corrisposti"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 16 "        da societa' cooperative ai soci persone fisiche "
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 17 "        a) effettuate nel primo semestre 1996"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 18 "        b) effettuate nel secondo semestre 1996"
END

TEXT DLG_NULL
BEGIN
  PROMPT 52 19 "@bTotale"
END

ENDPAGE
ENDMASK

#include "771234b.uml"  // Maschera spreadsheet prospetto 1 - I
#include "771234c.uml"  // Maschera spreadsheet prospetto 1 - II
#include "771234d.uml"  // Maschera spreadsheet prospetto 2 - I
#include "771234e.uml"  // Maschera spreadsheet prospetto 2 - II