campo-sirio/m770/771400b.uml

// Prospetto dati generali - soggetto dichiarante
#include "771300.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Quadri compilati" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "DGRP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_RAGSOC RAGSOC    
  MESSAGE COPY,1@    
  FIELD LF_BASEBIS->CODDITTA
  CHECKTYPE REQUIRED        
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"      
  MESSAGE COPY,2@
END

LISTBOX F_TIPOQUA1 12
BEGIN
  PROMPT 90 90 ""
  ITEM "D|Dichiarante"
  FLAGS "D"
  KEY 1             
  FIELD LF_BASEBIS->TIPOQUA
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "RDGP"
  GROUP 1
END

STRING DLG_NULL 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"
  GROUP 2
END

GROUPBOX DLG_NULL 78 15
BEGIN
  PROMPT 0 3 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "Il sottoscritto dichiara di aver compilato i seguenti quadri"
END
                 
#define RA	6
#define RB	7 
#define RC	8
                 
BOOLEAN F_QCOMPA
BEGIN
  PROMPT 2 RA "A"
END
                
BOOLEAN F_QCOMPAB
BEGIN
  PROMPT 8 RA "Ab"
END                
                
BOOLEAN F_QCOMPA1
BEGIN
  PROMPT 14 RA "A1"
END

BOOLEAN F_QCOMPA2
BEGIN
  PROMPT 20 RA "A2"
END

BOOLEAN F_QCOMPA3
BEGIN
  PROMPT 26 RA "A3"
END

BOOLEAN F_QCOMPB
BEGIN
  PROMPT 32 RA "B"
END

BOOLEAN F_QCOMPB1
BEGIN
  PROMPT 38 RA "B1"
END

BOOLEAN F_QCOMPC
BEGIN
  PROMPT 44 RA "C"
END

BOOLEAN F_QCOMPD
BEGIN
  PROMPT 50 RA "D"
END              

BOOLEAN F_QCOMPDB
BEGIN
  PROMPT 56 RA "Db"
END

BOOLEAN F_QCOMPD1
BEGIN
  PROMPT 62 RA "D1"
END

BOOLEAN F_QCOMPE
BEGIN
  PROMPT 68 RA "E"
END

BOOLEAN F_QCOMPE1
BEGIN
  PROMPT 2 RB "E1"
END

BOOLEAN F_QCOMPE2
BEGIN
  PROMPT 8 RB "E2"
END

BOOLEAN F_QCOMPF
BEGIN
  PROMPT 14 RB "F"
END

BOOLEAN F_QCOMPF1
BEGIN
  PROMPT 20 RB "F1"
END

BOOLEAN F_QCOMPF2
BEGIN
  PROMPT 26 RB "F2"
END

BOOLEAN F_QCOMPG
BEGIN
  PROMPT 32 RB "G"
END

BOOLEAN F_QCOMPG1
BEGIN
  PROMPT 38 RB "G1"
END

BOOLEAN F_QCOMPH
BEGIN
  PROMPT 44 RB "H"
END

BOOLEAN F_QCOMPI
BEGIN
  PROMPT 50 RB "I"
END             

BOOLEAN F_QCOMPL
BEGIN
  PROMPT 56 RB "L"
END
                           
BOOLEAN F_QCOMPN
BEGIN
  PROMPT 62 RB "N"
END

BOOLEAN F_QCOMPP
BEGIN
  PROMPT 68 RB "P"
END

BOOLEAN F_QCOMPQ
BEGIN
  PROMPT 2 RC "Q"
END

BOOLEAN F_QCOMPR
BEGIN
  PROMPT 8 RC "R"
END

BOOLEAN F_QCOMPS
BEGIN
  PROMPT 14 RC "S"
END                     

BOOLEAN F_QCOMPT
BEGIN
  PROMPT 20 RC "T"
END              

BOOLEAN F_QCOMPU
BEGIN
  PROMPT 26 RC "U"
END          
                  
NUMBER F_QLAGG 4
BEGIN
  PROMPT 1 10 "nonch<63> n."
  FLAGS "RDP"
END             

NUMBER F_QNAGG 4
BEGIN
  PROMPT 16 10 "quadri L aggiuntivi e n."
  FLAGS "RDP"
END             

TEXT DLG_NULL 
BEGIN
  PROMPT 46 10 "quadri N,P,Q,R,S,T aggiuntivi."
END

NUMBER F_NSUPPM 4
BEGIN
  PROMPT 1 12 "Dichiara di aver presentato la dichiarazione mediante n."
  FIELD LF_BASEBIS->NSUPPM
END

TEXT DLG_NULL
BEGIN
  PROMPT 62 12 "supp.magnetici."
END

NUMBER F_ANNODIC 4
BEGIN
  PROMPT 1 14 "Dichiara altres<65> che le ritenute effettuate nel "
  FLAGS "RD"
END

NUMBER F_DICRITCER 15
BEGIN
  PROMPT 1 15 "sono state certificate per il seguente importo  "
  FIELD LF_BASE->DICRITCER
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "Quadri inviati" -1 -1 78 18
                 
GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END 

NUMBER DLG_NULL 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "RDGP"
  GROUP 1
END

STRING DLG_NULL 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"
  GROUP 2
END

GROUPBOX DLG_NULL 78 8
BEGIN 
  PROMPT 0 3 ""
END
                       
TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "Il sottoscritto dichiara di aver inviato i seguenti quadri"
END

BOOLEAN F_QSUPPA
BEGIN
  PROMPT 2 6 "A"
END             

BOOLEAN F_QSUPPAB
BEGIN
  PROMPT 8 6 "Ab"
END

BOOLEAN F_QSUPPA1
BEGIN
  PROMPT 14 6 "A1"
END

BOOLEAN F_QSUPPA2
BEGIN
  PROMPT 20 6 "A2"
END

BOOLEAN F_QSUPPA3
BEGIN
  PROMPT 26 6 "A3"
END

BOOLEAN F_QSUPPB
BEGIN
  PROMPT 32 6 "B"
END

BOOLEAN F_QSUPPB1
BEGIN
  PROMPT 38 6 "B1"
END

BOOLEAN F_QSUPPC
BEGIN
  PROMPT 44 6 "C"
END

BOOLEAN F_QSUPPD
BEGIN
  PROMPT 50 6 "D"
END

BOOLEAN F_QSUPPDB
BEGIN
  PROMPT 56 6 "Db"
END              

BOOLEAN F_QSUPPD1
BEGIN
  PROMPT 62 6 "D1"
END

BOOLEAN F_QSUPPE
BEGIN
  PROMPT 68 6 "E"
END

BOOLEAN F_QSUPPE1
BEGIN
  PROMPT 2 7 "E1"
END

BOOLEAN F_QSUPPE2
BEGIN
  PROMPT 8 7 "E2"
END

BOOLEAN F_QSUPPF
BEGIN
  PROMPT 14 7 "F"
END

BOOLEAN F_QSUPPF1
BEGIN
  PROMPT 20 7 "F1"
END

BOOLEAN F_QSUPPF2
BEGIN
  PROMPT 26 7 "F2"
END

BOOLEAN F_QSUPPG
BEGIN
  PROMPT 32 7 "G"
END

BOOLEAN F_QSUPPG1
BEGIN
  PROMPT 38 7 "G1"
END

BOOLEAN F_QSUPPH
BEGIN
  PROMPT 44 7 "H"
END

BOOLEAN F_QSUPPI
BEGIN
  PROMPT 50 7 "I"
END

BOOLEAN F_QSUPPL
BEGIN
  PROMPT 56 7 "L"
END

BOOLEAN F_QSUPPN
BEGIN
  PROMPT 62 7 "N"
END

BOOLEAN F_QSUPPP
BEGIN
  PROMPT 68 7 "P"
END

BOOLEAN F_QSUPPQ
BEGIN
  PROMPT 2 8 "Q"
END

BOOLEAN F_QSUPPR
BEGIN
  PROMPT 8 8 "R"
END

BOOLEAN F_QSUPPS
BEGIN
  PROMPT 14 8 "S"
END

BOOLEAN F_QSUPPT
BEGIN
  PROMPT 20 8 "T"
END
                
BOOLEAN F_QSUPPU
BEGIN
  PROMPT 26 8 "U"
END                
                
ENDPAGE

ENDMASK