campo-sirio/m770/771400b.uml

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

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
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_TIPOQUA1 12
BEGIN
  PROMPT 90 90 ""
  ITEM "D|Dichiarante"
  FLAGS "D"
  KEY 1             
  FIELD LF_BASEBIS->TIPOQUA
//  CHECKTYPE REQUIRED
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"
  FIELD LF_BASEBIS->QCOMP[1,1]
END

BOOLEAN F_QCOMPA3
BEGIN
  PROMPT 8 RA "A3"
  FIELD LF_BASEBIS->QCOMP[25,1]
END

BOOLEAN F_QCOMPB
BEGIN
  PROMPT 14 RA "B"
  FIELD LF_BASEBIS->QCOMP[2,1]
END

BOOLEAN F_QCOMPB1
BEGIN
  PROMPT 20 RA "B1"
  FIELD LF_BASEBIS->QCOMP[3,1]
END

BOOLEAN F_QCOMPC
BEGIN
  PROMPT 26 RA "C"
  FIELD LF_BASEBIS->QCOMP[4,1]
END

BOOLEAN F_QCOMPD
BEGIN
  PROMPT 32 RA "D"
  FIELD LF_BASEBIS->QCOMP[5,1]
END

BOOLEAN F_QCOMPD1
BEGIN
  PROMPT 38 RA "D1"
  FIELD LF_BASEBIS->QCOMP[6,1]
END

BOOLEAN F_QCOMPE
BEGIN
  PROMPT 44 RA "E"
  FIELD LF_BASEBIS->QCOMP[7,1]
END

BOOLEAN F_QCOMPE1
BEGIN
  PROMPT 50 RA "E1"
  FIELD LF_BASEBIS->QCOMP[8,1]
END

BOOLEAN F_QCOMPE2
BEGIN
  PROMPT 56 RA "E2"
  FIELD LF_BASEBIS->QCOMP[9,1]
END

BOOLEAN F_QCOMPF
BEGIN
  PROMPT 62 RA "F"
  FIELD LF_BASEBIS->QCOMP[10,1]
END

BOOLEAN F_QCOMPF1
BEGIN
  PROMPT 68 RA "F1"
  FIELD LF_BASEBIS->QCOMP[11,1]
END

BOOLEAN F_QCOMPF2
BEGIN
  PROMPT 2 RB "F2"
  FIELD LF_BASEBIS->QCOMP[12,1]
END

BOOLEAN F_QCOMPG
BEGIN
  PROMPT 8 RB "G"
  FIELD LF_BASEBIS->QCOMP[13,1]
END

BOOLEAN F_QCOMPG1
BEGIN
  PROMPT 14 RB "G1"
  FIELD LF_BASEBIS->QCOMP[14,1]
END

BOOLEAN F_QCOMPH
BEGIN
  PROMPT 20 RB "H"
  FIELD LF_BASEBIS->QCOMP[15,1]
END

BOOLEAN F_QCOMPI
BEGIN
  PROMPT 26 RB "I"
  FIELD LF_BASEBIS->QCOMP[16,1]
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"
  FIELD LF_BASEBIS->QCOMP[23,1]
END

BOOLEAN F_QCOMPA2
BEGIN
  PROMPT 8 RD "A2"
  FIELD LF_BASEBIS->QCOMP[24,1]
END

BOOLEAN F_QCOMPN
BEGIN
  PROMPT 14 RD "N"
  FIELD LF_BASEBIS->QCOMP[17,1]
END

BOOLEAN F_QCOMPP
BEGIN
  PROMPT 20 RD "P"
  FIELD LF_BASEBIS->QCOMP[18,1]
END

BOOLEAN F_QCOMPQ
BEGIN
  PROMPT 26 RD "Q"
  FIELD LF_BASEBIS->QCOMP[19,1]
END

BOOLEAN F_QCOMPR
BEGIN
  PROMPT 32 RD "R"
  FIELD LF_BASEBIS->QCOMP[20,1]
END

BOOLEAN F_QCOMPS
BEGIN
  PROMPT 38 RD "S"
  FIELD LF_BASEBIS->QCOMP[21,1]
END                     

BOOLEAN F_QCOMPT
BEGIN
  PROMPT 44 RD "T"
  FIELD LF_BASEBIS->QCOMP[22,1]
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"
  FIELD LF_BASEBIS->QSUPPINV[1,1]
END

BOOLEAN F_QSUPPA1
BEGIN
  PROMPT 8 6 "A1"
  FIELD LF_BASEBIS->QSUPPINV[2,1]
END

BOOLEAN F_QSUPPA2
BEGIN
  PROMPT 14 6 "A2"
  FIELD LF_BASEBIS->QSUPPINV[3,1]
END

BOOLEAN F_QSUPPA3
BEGIN
  PROMPT 20 6 "A3"
  FIELD LF_BASEBIS->QSUPPINV[4,1]
END

BOOLEAN F_QSUPPB
BEGIN
  PROMPT 26 6 "B"
  FIELD LF_BASEBIS->QSUPPINV[5,1]
END

BOOLEAN F_QSUPPB1
BEGIN
  PROMPT 32 6 "B1"
  FIELD LF_BASEBIS->QSUPPINV[6,1]
END

BOOLEAN F_QSUPPC
BEGIN
  PROMPT 38 6 "C"
  FIELD LF_BASEBIS->QSUPPINV[7,1]
END

BOOLEAN F_QSUPPD
BEGIN
  PROMPT 44 6 "D"
  FIELD LF_BASEBIS->QSUPPINV[8,1]
END

BOOLEAN F_QSUPPD1
BEGIN
  PROMPT 50 6 "D1"
  FIELD LF_BASEBIS->QSUPPINV[9,1]
END

BOOLEAN F_QSUPPE
BEGIN
  PROMPT 56 6 "E"
  FIELD LF_BASEBIS->QSUPPINV[10,1]
END

BOOLEAN F_QSUPPE1
BEGIN
  PROMPT 62 6 "E1"
  FIELD LF_BASEBIS->QSUPPINV[11,1]
END

BOOLEAN F_QSUPPE2
BEGIN
  PROMPT 68 6 "E2"
  FIELD LF_BASEBIS->QSUPPINV[12,1]
END

BOOLEAN F_QSUPPF
BEGIN
  PROMPT 2 7 "F"
  FIELD LF_BASEBIS->QSUPPINV[13,1]
END

BOOLEAN F_QSUPPF1
BEGIN
  PROMPT 8 7 "F1"
  FIELD LF_BASEBIS->QSUPPINV[14,1]
END

BOOLEAN F_QSUPPF2
BEGIN
  PROMPT 14 7 "F2"
  FIELD LF_BASEBIS->QSUPPINV[15,1]
END

BOOLEAN F_QSUPPG
BEGIN
  PROMPT 20 7 "G"
  FIELD LF_BASEBIS->QSUPPINV[16,1]
END

BOOLEAN F_QSUPPG1
BEGIN
  PROMPT 26 7 "G1"
  FIELD LF_BASEBIS->QSUPPINV[17,1]
END

BOOLEAN F_QSUPPH
BEGIN
  PROMPT 32 7 "H"
  FIELD LF_BASEBIS->QSUPPINV[18,1]
END

BOOLEAN F_QSUPPI
BEGIN
  PROMPT 38 7 "I"
  FIELD LF_BASEBIS->QSUPPINV[19,1]
END

BOOLEAN F_QSUPPL
BEGIN
  PROMPT 44 7 "L"
  FIELD LF_BASEBIS->QSUPPINV[20,1]
END

BOOLEAN F_QSUPPN
BEGIN
  PROMPT 50 7 "N"
  FIELD LF_BASEBIS->QSUPPINV[21,1]
END

BOOLEAN F_QSUPPP
BEGIN
  PROMPT 56 7 "P"
  FIELD LF_BASEBIS->QSUPPINV[22,1]
END

BOOLEAN F_QSUPPQ
BEGIN
  PROMPT 62 7 "Q"
  FIELD LF_BASEBIS->QSUPPINV[23,1]
END

BOOLEAN F_QSUPPR
BEGIN
  PROMPT 68 7 "R"
  FIELD LF_BASEBIS->QSUPPINV[24,1]
END

BOOLEAN F_QSUPPS
BEGIN
  PROMPT 2 8 "S"
  FIELD LF_BASEBIS->QSUPPINV[25,1]
END

BOOLEAN F_QSUPPT
BEGIN
  PROMPT 8 8 "T"
  FIELD LF_BASEBIS->QSUPPINV[26,1]
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