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 "@bDeterminazione dell'ammontare degli utili"
END           

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

SPREADSHEET F_P1 78 5
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 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 1 20 "Importo imputabile a ciascuna quota o azione "
  PICTURE "."          
  FIELD LF_QUAG->P2IMPQ  
END

ENDPAGE

PAGE "Prospetto 2" -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 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 "Prospetto 3" -1 -1 78 18

TEXT DLG_NULL
BEGIN        
  PROMPT 1 1 "@bProspetto 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	52
#define CP35	63

PAGE "Prospetto 4" -1 -1 78 18

TEXT DLG_NULL
BEGIN        
  PROMPT 1 1 "@bProspetto dei versamenti delle ritenute"
END

TEXT DLG_NULL
BEGIN
  PROMPT CP31 3 "Causale dei versamenti"
END
     
TEXT DLG_NULL
BEGIN
  PROMPT CP35 3 "Importo versato"
END
     
NUMBER F_P411 15
BEGIN
  PROMPT CP35 5 ""
  PICTURE "." 
  FIELD LF_QUAG->P421
  MESSAGE K_TAB,F_P41TOT
END

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

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

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

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

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

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

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

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

NUMBER F_P41TOT 15
BEGIN
  PROMPT CP35 19 ""
  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 4 "1) Ritenute 10% sugli utili di cui e' stata "
END

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

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

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

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

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

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

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

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 12 "   meno recuperi                           "
END

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

TEXT DLG_NULL 
BEGIN                                                        
  PROMPT CP31 14 "   meno recuperi                           "
END

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

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

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

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

TEXT DLG_NULL
BEGIN
  PROMPT CP34 19 "@bTotale"
END

ENDPAGE
ENDMASK

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