campo-sirio/m770/771234a.uml

#include "771234a.h"
TOOLBAR "" 0 20 0 2

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

BUTTON DLG_DISTINTA 8 2
BEGIN
  PROMPT -26 -1 "~Distinta"
//  MESSAGE EXIT,K_SAVE
END

BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL
FLAGS "D"
END

BUTTON DLG_FINDREC 8 2
BEGIN
PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
FLAGS "D"
END

BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -56 -1 ""
MESSAGE EXIT,K_ESC
FLAGS "D"
END

BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -66 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Modello 770 - Quadro G" -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 "GR"
  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 "@bPROSPETTO N. 1  DETERMINAZIONE DELL'AMMONTARE DEGLI UTILI     "
END

TEXT DLG_NULL
BEGIN        
  PROMPT 1 4 "I - UTILI IN DENARO"
END

SPREADSHEET F_P1 0 6
BEGIN
  PROMPT 0 5 ""
  ITEM "Data delib."
  ITEM "Titolo distribuzione"
  ITEM "Data pagam."
  ITEM "Ammontare azione"
  ITEM "Numero azioni"
  ITEM "Ammontare comp."
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

DATE F_DATADISTR
BEGIN
  PROMPT 30 12 "Data distribuzione "
  FIELD LF_QUAG->P2DATADI
END

//SPREADSHEET F_PII 0 6
SPREADSHEET F_PII 78 5
BEGIN
  PROMPT 0 13 ""     
  ITEM "Descrizione dei beni distribuiti@35"
  ITEM "Data@10"
  ITEM "Valore ultimo bilancio@15"
END

NUMBER F_P1II_35 15
BEGIN
  PROMPT 12 18 "IMPORTO IMPUTABILE A CIASCUNA AZIONE O QUOTA  "
  PICTURE "."          
  FIELD LF_QUAG->P2IMPQ  
END

ENDPAGE

PAGE "Modello 770 - Quadro G" -1 -1 78 18

#define	COL1	0
#define	COL2	16
#define	COL3	32
#define	COL4	48
#define	COL5	63

TEXT DLG_NULL
BEGIN        
  PROMPT COL1 1 "@bPROSPETTO N. 2  PROSPETTO UTILI PAGATI    "
END
                                                                  
SPREADSHEET F_P2 0 8
BEGIN               
  PROMPT 0 3 ""
  ITEM "Delibera@20"
  ITEM "Importo@15"
  ITEM "Utili corrisp. 31-12-94"
  ITEM "Utili da corr. 31-12-94"
  ITEM "Utili corrisp. 31-12-95"   
  ITEM "Utili da corr. 31-12-95"  
END
                                                                  
ENDPAGE

PAGE "Modello 770 - Quadro G" -1 -1 78 18

TEXT DLG_NULL
BEGIN        
  PROMPT 1 1 "@bPROSPETTO N. 3  PROSPETTO DELLE RITENUTE    "
END

SPREADSHEET F_PIII 0 15
BEGIN
  PROMPT 0 3 ""
  ITEM "Delibera@21"
  ITEM "Utili corr. nel 1995"
  ITEM "Importo"
  ITEM "Aliquota"
  ITEM "Rit.acconto"
  ITEM "Rit.imposta"
  ITEM "Utili non assog.a ritenuta"
END

ENDPAGE

#define CP31	1
#define	CP32	12
#define CP33	29
#define CP34	36
#define CP35	53

PAGE "Modello 770 - Quadro G" -1 -1 78 18

TEXT DLG_NULL
BEGIN        
  PROMPT 1 1 "@bPROSPETTO N. 4  PROSPETTO DEI VERSAMENTI DELLE RITENUTE       "
END

TEXT DLG_NULL
BEGIN
  PROMPT CP31 2 "Causale dei versamenti                              Importo versato "
END

NUMBER F_P411 15
BEGIN
  PROMPT CP35 4 ""
  PICTURE "." 
  FIELD LF_QUAG->P421
  MESSAGE K_TAB,F_P41TOT
END

NUMBER F_P412 15
BEGIN
  PROMPT CP35 7 ""      
  PICTURE "."        
  FIELD LF_QUAG->P422   
  MESSAGE K_TAB,F_P41TOT  
END

NUMBER F_P413 15
BEGIN
  PROMPT CP35 8 ""
  PICTURE "."        
  FIELD LF_QUAG->P423     
  MESSAGE K_TAB,F_P41TOT
END

NUMBER F_P414 15
BEGIN
  PROMPT CP35 10 ""
  PICTURE "."        
  FIELD LF_QUAG->P424   
  MESSAGE K_TAB,F_P41TOT    
END

NUMBER F_P415 15
BEGIN
  PROMPT CP35 11 ""
  PICTURE "."        
  FIELD LF_QUAG->P425   
  MESSAGE K_TAB,F_P41TOT  
END                     

NUMBER F_P416 15
BEGIN
  PROMPT CP35 12 ""
  PICTURE "."        
  FIELD LF_QUAG->P426   
  MESSAGE K_TAB,F_P41TOT    
END

NUMBER F_P417 15
BEGIN
  PROMPT CP35 13 ""
  PICTURE "."        
  FIELD LF_QUAG->P427   
  MESSAGE K_TAB,F_P41TOT    
END

NUMBER F_P418 15
BEGIN
  PROMPT CP35 16 ""
  PICTURE "."        
  FIELD LF_QUAG->P428   
  MESSAGE K_TAB,F_P41TOT    
END

NUMBER F_P419 15
BEGIN
  PROMPT CP35 17 ""
  PICTURE "."        
  FIELD LF_QUAG->P429   
  MESSAGE K_TAB,F_P41TOT    
END

NUMBER F_P41TOT 15
BEGIN
  PROMPT CP35 18 ""
  PICTURE "."
  FLAGS "D"          
  FIELD LF_QUAG->P42TOT  
  NUM_CALC {#F_P411+#F_P412+#F_P413+#F_P414-#F_P415+#F_P416-#F_P417+#F_P418+#F_P419}
END

TEXT DLG_NULL 
BEGIN
  PROMPT CP31 3 "1) Ritenute 10% sugli utili di cui e' stata "
END

TEXT DLG_NULL 
BEGIN
  PROMPT CP31 4 "   deliberata la distribuzione nel 1995"
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 5 "2) Ritenute 10%,12,50,15%,30%,32,4% o 50% sugli utili in denaro "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 6 "  o in natura, su azioni di risparmio ..."
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31  7 "  a) effettuate nel primo semestre 1995      "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 8 "  b) effettuate nel secondo semestre 1995    "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 9 "3) Versamento di conguaglio su utili in denaro "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 10 "  a) effettuate nel primo semestre 1995      "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 11 "     meno recuperi                           "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 12 "  b) effettuate nel secondo semestre 1995    "
END

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 13 "     meno recuperi                           "
END

TEXT DLG_NULL 
BEGIN
  PROMPT CP31 14 "4) Ritenuta 10% sugli utili corrisposti da societ<65>"
END

TEXT DLG_NULL 
BEGIN
  PROMPT CP31 15 "  cooperative ai soci persone fisiche "
END

TEXT DLG_NULL 
BEGIN
  PROMPT CP31 16 "  a) effettuate nel primo semestre 1995 "
END

TEXT DLG_NULL 
BEGIN
  PROMPT CP31 17 "  b) effettuate nel secondo semestre 1995 "
END

TEXT DLG_NULL
BEGIN
  PROMPT CP34 18 "@bTOTALE      "
END

ENDPAGE
ENDMASK

#include "771234b.uml"
#include "77_g_p2.uml"
#include "771234c.uml"
#include "77_g_p3.uml"