campo-sirio/m770/771400a.uml

// Versione senza FIELD
#include "771300.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Prospetto dati generali" -1 -1 78 18

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta             "
  FLAGS "DGR"
  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 2 2 "Ragione sociale   "
  FLAGS "D"      
  MESSAGE COPY,2@
END

LISTBOX F_TIPOQUA 2
BEGIN
  PROMPT 90 90 ""
  ITEM " |Normale"
  ITEM "D|Dichiarante"
  FLAGS "D"
  KEY 1             
  FIELD LF_BASEBIS->TIPOQUA
//  CHECKTYPE REQUIRED
END


GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 4 "Dati relativi al conguaglio di fine anno effettuato dai datori di lavoro"
END

NUMBER F_M1 15
BEGIN
  PROMPT 1 5 "M1 Eccedenza di ritenute di fine 1994 compensata nel 1995  "
  FIELD LF_BASEBIS->ECCRIT12
  PICTURE "."
  FLAGS "R"
END

NUMBER F_M2 15
BEGIN
  PROMPT 1 6 "M2 Eccedenza di ritenute fine 1995 da compensare nel 1996  "
  FIELD LF_BASEBIS->ECCRIT23
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 8 "Prospetto riservato ai sostituti non tenuti a presentare la dichiarazione"
END

NUMBER F_M3 15
BEGIN
  PROMPT 1 9 "M3 Credito di imposta ex D.L.357/94 spettante         "
  FIELD LF_BASEBIS->CRIMPDL
  PICTURE "."
  FLAGS "R"
//  MESSAGE K_TAB,F_M6
END

NUMBER F_M4 15
BEGIN
  PROMPT 1 10 "M4 Credito di imposta utilizzato ai fini IVA          "
  FIELD LF_BASEBIS->CRIMPIVA
  PICTURE "."
  FLAGS "R"         
//  MESSAGE K_TAB,F_M6  
END

NUMBER F_M5 15
BEGIN
  PROMPT 1 11 "M5 Credito imposta utilizzato per versamento ritenute "
  FIELD LF_BASEBIS->CRIMPRIT
  PICTURE "."
  FLAGS "R"         
//  MESSAGE K_TAB,F_M6  
END

NUMBER F_M6 15
BEGIN
  PROMPT 1 12 "M6 Credito di imposta residuo                         "
  FIELD LF_BASEBIS->CRIMPRES
  PICTURE "."
  FLAGS "D"  
//  NUM_CALC {#F_M3-#F_M4-#F_M5}
END

ENDPAGE

PAGE "Prospetto dati generali" -1 -1 78 18

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Ditta             "
  FLAGS "RDG"
  GROUP 1
END

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale   "
  FLAGS "D"
  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 corrisposto a dipendenti e terzi nell'anno"
END

NUMBER F_ANNODIC 4
BEGIN
  PROMPT 1 5 ""
  FLAGS "RD"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 7 5 "le somme e i valori e di aver effettuato le ritenute indicate"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 7 6 "nei quadri:"
END
                 
#define RA	8
#define RB	9
#define RC0	11
#define RC1	12
#define RD	13
                 
BOOLEAN F_QCOMPA
BEGIN
  PROMPT 2 RA "A"
END

BOOLEAN F_QCOMPA3
BEGIN
  PROMPT 8 RA "A3"
END

BOOLEAN F_QCOMPB
BEGIN
  PROMPT 14 RA "B"
END

BOOLEAN F_QCOMPB1
BEGIN
  PROMPT 20 RA "B1"
END

BOOLEAN F_QCOMPC
BEGIN
  PROMPT 26 RA "C"
END

BOOLEAN F_QCOMPD
BEGIN
  PROMPT 32 RA "D"
END

BOOLEAN F_QCOMPD1
BEGIN
  PROMPT 38 RA "D1"
END

BOOLEAN F_QCOMPE
BEGIN
  PROMPT 44 RA "E"
END

BOOLEAN F_QCOMPE1
BEGIN
  PROMPT 50 RA "E1"
END

BOOLEAN F_QCOMPE2
BEGIN
  PROMPT 56 RA "E2"
END

BOOLEAN F_QCOMPF
BEGIN
  PROMPT 62 RA "F"
END

BOOLEAN F_QCOMPF1
BEGIN
  PROMPT 68 RA "F1"
END

BOOLEAN F_QCOMPF2
BEGIN
  PROMPT 2 RB "F2"
END

BOOLEAN F_QCOMPG
BEGIN
  PROMPT 8 RB "G"
END

BOOLEAN F_QCOMPG1
BEGIN
  PROMPT 14 RB "G1"
END

BOOLEAN F_QCOMPH
BEGIN
  PROMPT 20 RB "H"
END

BOOLEAN F_QCOMPI
BEGIN
  PROMPT 26 RB "I"
END
                           
TEXT DLG_NULL
BEGIN
  PROMPT 1 RC0 "Inoltre dichiara di aver effettuato i conguagli conseguenti all'assistenza"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 RC1 "fiscale indicati nel quadro A e nei quadri"
END

BOOLEAN F_QCOMPA1
BEGIN
  PROMPT 2 RD "A1"
END

BOOLEAN F_QCOMPA2
BEGIN
  PROMPT 8 RD "A2"
END

BOOLEAN F_QCOMPN
BEGIN
  PROMPT 14 RD "N"
END

BOOLEAN F_QCOMPP
BEGIN
  PROMPT 20 RD "P"
END

BOOLEAN F_QCOMPQ
BEGIN
  PROMPT 26 RD "Q"
END

BOOLEAN F_QCOMPR
BEGIN
  PROMPT 32 RD "R"
END

BOOLEAN F_QCOMPS
BEGIN
  PROMPT 38 RD "S"
END                     

BOOLEAN F_QCOMPT
BEGIN
  PROMPT 44 RD "T"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 15 "Dichiara altres<65> di aver eseguito i versamenti risultanti dai quadri L,P,Q,"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 16 "S,T e da n. "
END

NUMBER F_H0NQLAGG 4
BEGIN
  PROMPT 13 16 ""
  FIELD LF_BASEBIS->H0NQLAGG
  FLAGS "R"
  //FLAGS "D"
END        

TEXT DLG_NULL
BEGIN
  PROMPT 19 16 "quadri aggiuntivi."
END

ENDPAGE

PAGE "Prospetto dati generali" -1 -1 78 18
                 
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 "" 
  FLAGS "R"
END 

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Ditta             "
  FLAGS "RDG"
  GROUP 1
END

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Ragione sociale   "
  FLAGS "D"
  GROUP 2
END

GROUPBOX DLG_NULL 78 10
BEGIN 
  PROMPT 0 3 ""
END
                       
TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "Il sottoscritto dichiara di aver presentato i quadri"
END

BOOLEAN F_QSUPPA
BEGIN
  PROMPT 2 6 "A"
END

BOOLEAN F_QSUPPA1
BEGIN
  PROMPT 8 6 "A1"
END

BOOLEAN F_QSUPPA2
BEGIN
  PROMPT 14 6 "A2"
END

BOOLEAN F_QSUPPA3
BEGIN
  PROMPT 20 6 "A3"
END

BOOLEAN F_QSUPPB
BEGIN
  PROMPT 26 6 "B"
END

BOOLEAN F_QSUPPB1
BEGIN
  PROMPT 32 6 "B1"
END

BOOLEAN F_QSUPPC
BEGIN
  PROMPT 38 6 "C"
END

BOOLEAN F_QSUPPD
BEGIN
  PROMPT 44 6 "D"
END

BOOLEAN F_QSUPPD1
BEGIN
  PROMPT 50 6 "D1"
END

BOOLEAN F_QSUPPE
BEGIN
  PROMPT 56 6 "E"
END

BOOLEAN F_QSUPPE1
BEGIN
  PROMPT 62 6 "E1"
END

BOOLEAN F_QSUPPE2
BEGIN
  PROMPT 68 6 "E2"
END

BOOLEAN F_QSUPPF
BEGIN
  PROMPT 2 7 "F"
END

BOOLEAN F_QSUPPF1
BEGIN
  PROMPT 8 7 "F1"
END

BOOLEAN F_QSUPPF2
BEGIN
  PROMPT 14 7 "F2"
END

BOOLEAN F_QSUPPG
BEGIN
  PROMPT 20 7 "G"
END

BOOLEAN F_QSUPPG1
BEGIN
  PROMPT 26 7 "G1"
END

BOOLEAN F_QSUPPH
BEGIN
  PROMPT 32 7 "H"
END

BOOLEAN F_QSUPPI
BEGIN
  PROMPT 38 7 "I"
END

BOOLEAN F_QSUPPL
BEGIN
  PROMPT 44 7 "L"
END

BOOLEAN F_QSUPPN
BEGIN
  PROMPT 50 7 "N"
END

BOOLEAN F_QSUPPP
BEGIN
  PROMPT 56 7 "P"
END

BOOLEAN F_QSUPPQ
BEGIN
  PROMPT 62 7 "Q"
END

BOOLEAN F_QSUPPR
BEGIN
  PROMPT 68 7 "R"
END

BOOLEAN F_QSUPPS
BEGIN
  PROMPT 2 8 "S"
END

BOOLEAN F_QSUPPT
BEGIN
  PROMPT 8 8 "T"
END
           
TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "mediante n. "
END

NUMBER F_NSUPPM 4
BEGIN
  PROMPT 13 10 ""
  FIELD LF_BASEBIS->NSUPPM
END

TEXT DLG_NULL
BEGIN
  PROMPT 19 10 "supporti magnetici."
END
           
ENDPAGE

ENDMASK