campo-sirio/m770/776100b.uml

// Menu' manutenzione quadri
#include "776100b.h"
TOOLBAR "" 0 22 0 2
ENDPAGE

PAGE "Manutenzione dichiarazione" -1 -1 78 21

// Serve solo per rileggere i quadri compilati (nel suo handler)
NUMBER RILEGGI_QUADRI 1 
BEGIN      
  PROMPT 1 1 ""
  FLAGS "H"
END

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 3 1 "Ditta  "
    FLAGS "D"
    FIELD LF_BASE->CODDITTA
END

STRING F_RAGDITTA 50
BEGIN
    PROMPT 17 1 "Ragione "
    FLAGS "D"
END

NUMBER F_ANNODIC 4
BEGIN
    PROMPT 52 3 "Anno dichiarazione "
    FLAGS "DR"
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 5 "Manutenzione dati anagrafici"
  GROUP 1
END

// Il menu' viene richiamato nell'handler di questo bottone
BUTTON DLG_MANUTENZ 1 1
BEGIN
  PROMPT 1 5 ""
  PICTURE 123
  GROUP 1
END

// Aggancia il menu' sogg.dich.
TEXT DLG_NULL_SD
BEGIN
  PROMPT 5 6 "Soggetto dichiarante"
  FLAGS "D"
  GROUP 1                      
END

// Il menu' viene richiamato nell'handler di questo bottone
BUTTON DLG_STOPREC_SD 1 1
BEGIN
  PROMPT 1 6 ""
  PICTURE 123  
  GROUP 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 7 "Anagrafica dipendenti"
  GROUP 1  
END

BUTTON DLG_STOPREC_AD 1 1
BEGIN
  PROMPT 1 7 ""
  PICTURE 123       
  GROUP 1
  MESSAGE RUN,773mod,-1,771150a,45,"Anagrafica dipendenti"|K_TAB,RILEGGI_QUADRI
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 8 "Scheda percipienti"
  GROUP 1  
END

BUTTON DLG_STOPREC 1 1
BEGIN
  PROMPT 1 8 ""     
  GROUP 1
  MESSAGE RUN,770,-0
END

TEXT DLG_NULL_SOCI
BEGIN
  PROMPT 43 5 "Manutenzione amministratori"
  GROUP 1
END

BUTTON DLG_MANUTENZ_SOCI 1 1
BEGIN
  PROMPT 39 5 "" 
//  MESSAGE RUN,ba4,-5
  PICTURE 123
  GROUP 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 6 "Invio/Ricezione ministeriale"
  GROUP 1
END

BUTTON DLG_STOPREC_IR 1 1
BEGIN
  PROMPT 39 6 ""
  PICTURE 123
  FLAGS "D"
  GROUP 1
END

// Forza la rilettura del flag QCOMP
BUTTON DLG_STOPREC 1 1
BEGIN
  PROMPT 39 7 ""
  MESSAGE RUN,771MOD,-2,W|K_TAB,RILEGGI_QUADRI
  GROUP 1
END

TEXT DLG_NULL_DG
BEGIN
  PROMPT 43 7 "Prospetto dati generali"
  GROUP 1
END

TEXT DLG_NULL_ST
BEGIN
  PROMPT 43 8 "Stampe"
  GROUP 1  
END

// Il menu' viene richiamato nell'handler di questo bottone
BUTTON DLG_STOPREC_ST 1 1
BEGIN
  PROMPT 39 8 ""
  PICTURE 123  
  GROUP 1
END


// Prima colonna
TEXT DLG_NULL_A 
BEGIN
  PROMPT 5 10 "Quadro A"
  GROUP 1
END

BUTTON DLG_STOPREC_A 1 1
BEGIN
  PROMPT 1 10 ""
  MESSAGE RUN,771MOD,-7,A|K_TAB,RILEGGI_QUADRI
  PICTURE 123
  GROUP 1
END

TEXT DLG_NULL_A1 
BEGIN
  PROMPT 5 11 "Quadro A1"
  GROUP 1
END

BUTTON DLG_STOPREC_A1 1 1
BEGIN
  PROMPT 1 11 ""
  MESSAGE RUN,771MOD,-7,1|K_TAB,RILEGGI_QUADRI
  PICTURE 123
  GROUP 1
END

TEXT DLG_NULL_A2 
BEGIN
  PROMPT 5 12 "Quadro A2"
  GROUP 1
  FLAGS "D"
END

BUTTON DLG_STOPREC_A2 1 1
BEGIN
  PROMPT 1 12 ""
  MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI
  PICTURE 123
  GROUP 1
END

TEXT DLG_NULL_A3 
BEGIN
  PROMPT 5 13 "Quadro A3"
  GROUP 1
END

BUTTON DLG_STOPREC_A3 1 1
BEGIN
  PROMPT 1 13 ""
  MESSAGE RUN,771MOD,-7,3|K_TAB,RILEGGI_QUADRI
  PICTURE 123
  GROUP 1
END

TEXT DLG_NULL_B
BEGIN
  PROMPT 5 14 "Quadro B"
  GROUP 1  
END

BUTTON DLG_STOPREC_B 1 1
BEGIN
  PROMPT 1 14 ""
  PICTURE 123
  MESSAGE RUN,773mod,-4,77qb,59,"Quadro B","B"|K_TAB,RILEGGI_QUADRI
  GROUP 1
END

TEXT DLG_NULL_B1
BEGIN
  PROMPT 5 15 "Quadro B-1"
  GROUP 1  
END

BUTTON DLG_STOPREC_B1 1 1
BEGIN
  PROMPT 1 15 ""
  PICTURE 123  
  MESSAGE RUN,773mod,-4,77qb1,60,"Quadro B1","B1"|K_TAB,RILEGGI_QUADRI
  GROUP 1
END

TEXT DLG_NULL_C
BEGIN
  PROMPT 5 16 "Quadro C  "
  GROUP 1  
END

BUTTON DLG_STOPREC_C 1 1
BEGIN
  PROMPT 1 16 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-5,C|K_TAB,RILEGGI_QUADRI
  GROUP 1
END

// Fine prima colonna

//
// Seconda colonna
//

TEXT DLG_NULL_D
BEGIN
  PROMPT 24 10 "Quadro D  "  
  GROUP 1  
END

BUTTON DLG_STOPREC_D 1 1
BEGIN
  PROMPT 20 10 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-5,D|K_TAB,RILEGGI_QUADRI
  GROUP 1
END

TEXT DLG_NULL_D1
BEGIN
  PROMPT 24 11 "Quadro D-1  "
  GROUP 1  
END

BUTTON DLG_STOPREC_D1 1 1
BEGIN
  PROMPT 20 11 ""
  PICTURE 123  
  MESSAGE RUN,771MOD,-5,1|K_TAB,RILEGGI_QUADRI
  GROUP 1
END

TEXT DLG_NULL_E
BEGIN
  PROMPT 24 12 "Quadro E  "
  GROUP 1  
END

BUTTON DLG_STOPREC_E 1 1
BEGIN
  PROMPT 20 12 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-5,E|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_E1
BEGIN
  PROMPT 24 13 "Quadro E-1  "   
  GROUP 1  
END

BUTTON DLG_STOPREC_E1 1 1
BEGIN
  PROMPT 20 13 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-5,2|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_E2
BEGIN
  PROMPT 24 14 "Quadro E-2"
  FLAGS "D"  
  GROUP 1  
END

BUTTON DLG_STOPREC_E2 1 1
BEGIN
  PROMPT 20 14 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-5,3|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_F
BEGIN
  PROMPT 24 15 "Quadro F"  
  GROUP 1  
END

BUTTON DLG_STOPREC_F 1 1
BEGIN
  PROMPT 20 15 ""
  PICTURE 123  
  MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_F1
BEGIN
  PROMPT 24 16 "Quadro F-1"
  GROUP 1  
END

BUTTON DLG_STOPREC_F1 1 1
BEGIN
  PROMPT 20 16 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-6,1|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    
// Fine seconda colonna

// Terza colonna

TEXT DLG_NULL_F2
BEGIN
  PROMPT 43 10 "Quadro F-2" 
  GROUP 1  
END

BUTTON DLG_STOPREC_F2 1 1
BEGIN
  PROMPT 39 10 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-6,2|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_G
BEGIN
  PROMPT 43 11 "Quadro G"
  GROUP 1  
END

BUTTON DLG_STOPREC_G 1 1
BEGIN
  PROMPT 39 11 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-6,3|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_G1
BEGIN
  PROMPT 43 12 "Quadro G-1"  
  GROUP 1  
END                    

BUTTON DLG_STOPREC_G1 1 1
BEGIN
  PROMPT 39 12 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-6,5|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_H
BEGIN
  PROMPT 43 13 "Quadro H  "
  GROUP 1  
END                    

BUTTON DLG_STOPREC_H 1 1
BEGIN
  PROMPT 39 13 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
  GROUP 1  
END                    

TEXT DLG_NULL_I
BEGIN
  PROMPT 43 14 "Quadro I  "
  GROUP 1  
END                    

BUTTON DLG_STOPREC_I 1 1
BEGIN
  PROMPT 39 14 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-2,I|K_TAB,RILEGGI_QUADRI
  GROUP 1  
END                    

TEXT DLG_NULL_L
BEGIN
  PROMPT 43 15 "Quadro L  "
  GROUP 1  
END                    

// Forza l'esecuzione di leggi_quadri()
BUTTON DLG_STOPREC_L 1 1
BEGIN
  PROMPT 39 15 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-3|K_TAB,RILEGGI_QUADRI
  GROUP 1  
END                    

TEXT DLG_NULL_N
BEGIN
  PROMPT 43 16 "Quadro N"
  GROUP 1  
END                    

BUTTON DLG_STOPREC_N 1 1
BEGIN
  PROMPT 39 16 ""
  PICTURE 123
  MESSAGE RUN,773mod,-2,77qn,72,"Quadro N","N"|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    
// Fine terza colonna

// QUARTA colonna
TEXT DLG_NULL_P
BEGIN
  PROMPT 62 10 "Quadro P"
  GROUP 1  
END

BUTTON DLG_STOPREC_P 1 1
BEGIN
  PROMPT 58 10 ""
  PICTURE 123
  MESSAGE RUN,773mod,-2,77qp,73,"Quadro P","P"|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_Q
BEGIN
  PROMPT 62 11 "Quadro Q"
  GROUP 1  
END                    

BUTTON DLG_STOPREC_Q 1 1
BEGIN
  PROMPT 58 11 ""
  MESSAGE RUN,773mod,-2,77qq,74,"Quadro Q","Q"|K_TAB,RILEGGI_QUADRI  
  PICTURE 123
  GROUP 1
END                    

TEXT DLG_NULL_R
BEGIN
  PROMPT 62 12 "Quadro R"
  GROUP 1  
END                    

BUTTON DLG_STOPREC_R 1 1
BEGIN
  PROMPT 58 12 ""
  PICTURE 123
  MESSAGE RUN,773mod,-2,77qr,75,"Quadro R","R"|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_S
BEGIN
  PROMPT 62 13 "Quadro S"
  GROUP 1  
END                    

BUTTON DLG_STOPREC_S 1 1
BEGIN
  PROMPT 58 13 ""
  PICTURE 123
  MESSAGE RUN,773mod,-2,77qs,76,"Quadro S","S"|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    

TEXT DLG_NULL_T
BEGIN
  PROMPT 62 14 "Quadro T"
  GROUP 1  
END                    

BUTTON DLG_STOPREC_T 1 1
BEGIN
  PROMPT 58 14 ""
  PICTURE 123
  MESSAGE RUN,773mod,-2,77qt,77,"Quadro T","T"|K_TAB,RILEGGI_QUADRI
  GROUP 1
END                    
// Fine QUARTA colonna

//  
/////////// Colonna MENU' ANAGRAFICI ////////////////////////////
//          
TEXT DLG_NULL_DICH
BEGIN
  PROMPT 5 5 "Dichiarante"
  FLAGS "H" 
  GROUP 2
END

BUTTON DLG_STOPREC_DICH 1 1
BEGIN
  PROMPT 1 5 ""
  MESSAGE RUN,771MOD,-0,A
  PICTURE 123
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_RAPP
BEGIN
  PROMPT 5 6 "Rappresentante"
  FLAGS "H"
  GROUP 2  
END

BUTTON DLG_STOPREC_RAPP 1 1
BEGIN
  PROMPT 1 6 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-0,C 
  FLAGS "H"  
  GROUP 2
END

TEXT DLG_NULL_SCRIT
BEGIN
  PROMPT 5 7 "Scritture contabili"
  FLAGS "H"
  GROUP 2  
END

BUTTON DLG_STOPREC_SCRIT 1 1
BEGIN
  PROMPT 1 7 ""
  PICTURE 123  
  MESSAGE RUN,771MOD,-0,D
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_CAAF
BEGIN
  PROMPT 5 8 "Dati C.A.A.F."
  FLAGS "H"
  GROUP 2  
END

BUTTON DLG_STOPREC_CAAF 1 1
BEGIN
  PROMPT 1 8 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-0,E  
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_DIRET
BEGIN
  PROMPT 5 9 "Direttore / Professionista"
  FLAGS "H"
  GROUP 2  
END

BUTTON DLG_STOPREC_DIRET 1 1
BEGIN
  PROMPT 1 9 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-0,F
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_CONC
BEGIN
  PROMPT 5 10 "Concessione / UIDD"
  FLAGS "H"  
  GROUP 2  
END

BUTTON DLG_STOPREC_CONC 1 1
BEGIN
  PROMPT 1 10 ""
  PICTURE 123  
  MESSAGE RUN,771MOD,-0,G   
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_DIC0
BEGIN
  PROMPT 5 11 "Gestione dichiarante / estinti"
  FLAGS "HD"  
  GROUP 2  
END

BUTTON DLG_STOPREC_DIC0 1 1
BEGIN
  PROMPT 1 11 ""
  PICTURE 123  
  MESSAGE RUN,776MOD,-5   
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_SOCTRA
BEGIN
  PROMPT 5 12 "Manutenzione dati societa' trasformate"
  FLAGS "HD"  
  GROUP 2  
END

BUTTON DLG_STOPREC_SOCTRA 1 1
BEGIN
  PROMPT 1 12 ""
  PICTURE 123  
  MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati societa' trasformate"   
  FLAGS "H"
  GROUP 2
END

/******************************************************
NUMBER DLG_STOPREC_DIC0 5
BEGIN
  PROMPT 1 12 "Soggetto dichiarante "
  USE LF_BASE KEY 1 SELECT (CODDIC="")
  JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT DLG_STOPREC_DIC0 CODDITTA  
  FIELD LF_BASE->CODDIC
  FLAGS "H"
  GROUP 2
END

BUTTON DLG_STOPREC_DIC1 9 2
BEGIN
  PROMPT 1 13 "~Soggetti estinti"
//  MESSAGE RUN,771MOD,-0,G   
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_DIC0
BEGIN
  PROMPT 5 11 "Soggetto dichiarante"
  FLAGS "H"  
  GROUP 2  
END

BUTTON DLG_STOPREC_DIC0 1 1
BEGIN
  PROMPT 1 11 ""
  PICTURE 123  
//  MESSAGE RUN,771MOD,-0,G   
  FLAGS "H"
  GROUP 2
END

TEXT DLG_NULL_DIC1
BEGIN
  PROMPT 5 12 "Soggetti estinti"
  FLAGS "H"  
  GROUP 2  
END

BUTTON DLG_STOPREC_DIC1 1 1
BEGIN
  PROMPT 1 12 ""
  PICTURE 123  
//  MESSAGE RUN,771MOD,-0,G   
  FLAGS "H"
  GROUP 2
END
**************************/

BUTTON DLG_CANCEL_MENU 20 2
BEGIN          
  PROMPT -22 -1 "Menu' precedente"
  GROUP 2
  FLAGS "H"
END
/////////// Fine colonna MENU' ANAGRAFICI ////////////////////////////

/////////// Inizio colonna MENU' STAMPE ////////////////////////////
TEXT DLG_NULL_ST0
BEGIN
  PROMPT 5 5 "Stampa schede percipienti"
  FLAGS "H" 
  GROUP 3
END

BUTTON DLG_STOPREC_ST0 1 1
BEGIN
  PROMPT 1 5 ""
  MESSAGE RUN,772MOD,-0
  PICTURE 123
  FLAGS "H"
  GROUP 3
END

TEXT DLG_NULL_ST1
BEGIN
  PROMPT 5 6 "Stampa certificazioni"
  FLAGS "H"
  GROUP 3  
END

BUTTON DLG_STOPREC_ST1 1 1
BEGIN                                  
  PROMPT 1 6 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-1 
  FLAGS "H"  
  GROUP 3
END

TEXT DLG_NULL_ST2
BEGIN
  PROMPT 5 7 "Stampa movimenti percipienti"
  FLAGS "H"
  GROUP 3  
END

BUTTON DLG_STOPREC_ST2 1 1
BEGIN
  PROMPT 1 7 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-2 
  FLAGS "H"  
  GROUP 3
END

TEXT DLG_NULL_ST3
BEGIN
  PROMPT 5 8 "Stampa controllo versamento ritenute"
  FLAGS "H"
  GROUP 3  
END

BUTTON DLG_STOPREC_ST3 1 1
BEGIN
  PROMPT 1 8 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-3 
  FLAGS "H"  
  GROUP 3
END

#include "menustq.uml"

TEXT DLG_NULL_STQD
BEGIN
  PROMPT 5 9 "Menu' stampe dichiarazioni"
  FLAGS "H"
  GROUP 3  
END

BUTTON DLG_CANCEL_MENU_ST 20 2
BEGIN          
  PROMPT -22 -1 "Menu' precedente"
  GROUP 3
  MESSAGE HIDE,3@|SHOW,1@
  FLAGS "H"
END

BUTTON DLG_STOPREC_STQD 1 1
BEGIN
  PROMPT 1 9 ""
  PICTURE 123
  FLAGS "H"  
  MESSAGE HIDE,3@|SHOW,5@
  GROUP 3
END

/////////// Fine colonna MENU' STAMPE ////////////////////////////

/////////// Inizio colonna MENU' SOGG. DICHIARANTE ////////////////////////////
TEXT DLG_NULL_SD0
BEGIN
  PROMPT 5 5 "Quadro I"
  FLAGS "H" 
  GROUP 4
END

BUTTON DLG_STOPREC_SD0 1 1
BEGIN
  PROMPT 1 5 ""
  MESSAGE RUN,771MOD,-2,1|K_TAB,RILEGGI_QUADRI    
  PICTURE 123
  FLAGS "H"
  GROUP 4
END

TEXT DLG_NULL_SD1
BEGIN
  PROMPT 5 6 "Prospetto dati generali"
  FLAGS "H"
  GROUP 4  
END

BUTTON DLG_STOPREC_SD1 1 1
BEGIN
  PROMPT 1 6 ""
  PICTURE 123
  MESSAGE RUN,771MOD,-2,2|K_TAB,RILEGGI_QUADRI  
  FLAGS "H"  
  GROUP 4
END

TEXT DLG_NULL_SD2
BEGIN
  PROMPT 5 7 "Generazione riporti"
  FLAGS "H"
  GROUP 4 
END

BUTTON DLG_STOPREC_SD2 1 1
BEGIN
  PROMPT 1 7 ""
  PICTURE 123
  MESSAGE RUN,774,-1,D 
  FLAGS "H"  
  GROUP 4
END

BUTTON DLG_CANCEL_MENU_SD 20 2
BEGIN          
  PROMPT -22 -1 "Menu' precedente"
  GROUP 4
  FLAGS "H"
END
/////////// Fine colonna MENU' SOGG. DICHIARANTE ////////////////////////////

BUTTON DLG_CANCEL 20 2
BEGIN          
  PROMPT -22 -1 "Menu' precedente"
  GROUP 1
END

BUTTON DLG_QUIT 20 2
BEGIN
  PROMTP -12 -1 "Fine"
END

ENDPAGE

ENDMASK