root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tolti i bastardi ControlM

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4029 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1996-12-20 16:15:08 +00:00
parent f64ed5162b
commit 9d6307bb7e
34 changed files with 11991 additions and 11991 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

332
m770/770100a.uml
View File

@ -1,166 +1,166 @@
#include "770100a.h" #include "770100a.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
BUTTON F_GESTPERC 22 2 BUTTON F_GESTPERC 22 2
BEGIN BEGIN
PROMPT -13 -3 "~Percipienti" PROMPT -13 -3 "~Percipienti"
MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR
END END
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Scheda percipienti" -1 -1 78 21 PAGE "Scheda percipienti" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "RDG" FLAGS "RDG"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGDITTA RAGSOC OUTPUT F_RAGDITTA RAGSOC
FIELD LF_SCPERC->CODDITTA FIELD LF_SCPERC->CODDITTA
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 52 4 "Anno dichiarazione " PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati percipiente" PROMPT 1 7 "@bDati percipiente"
END END
LIST F_TIPOA 1 9 LIST F_TIPOA 1 9
BEGIN BEGIN
PROMPT 1 8 "" PROMPT 1 8 ""
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
KEY 1 KEY 1
FIELD LF_SCPERC->TIPOA FIELD LF_SCPERC->TIPOA
END END
NUMBER F_CODANAGR 5 NUMBER F_CODANAGR 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_SCPERC->CODANAGR FIELD LF_SCPERC->CODANAGR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER F_CODANAGRPERC 5 NUMBER F_CODANAGRPERC 5
BEGIN BEGIN
PROMPT 15 8 "" PROMPT 15 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (TIPOA=#F_TIPOA)) USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (TIPOA=#F_TIPOA))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGRPERC INPUT CODANAGR F_CODANAGRPERC
DISPLAY "Tipo " TIPOA DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR DISPLAY "Codice " CODANAGR
DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGRPERC CODANAGR OUTPUT F_CODANAGRPERC CODANAGR
OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
MESSAGE COPY, F_CODANAGR MESSAGE COPY, F_CODANAGR
ADD RUN 775 -0 ADD RUN 775 -0
GROUP 2 GROUP 2
END END
NUMBER F_CODANAGRCOM 5 NUMBER F_CODANAGRCOM 5
BEGIN BEGIN
PROMPT 15 8 "" PROMPT 15 8 ""
USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA) USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA)
INPUT TIPOA F_TIPOA INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGRCOM INPUT CODANAGR F_CODANAGRCOM
DISPLAY "Tipo " TIPOA DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR DISPLAY "Codice " CODANAGR
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGRCOM CODANAGR OUTPUT F_CODANAGRCOM CODANAGR
OUTPUT F_RAGSOCCOM RAGSOC OUTPUT F_RAGSOCCOM RAGSOC
MESSAGE COPY, F_CODANAGR MESSAGE COPY, F_CODANAGR
MESSAGE COPY, F_CODANAGRPERC MESSAGE COPY, F_CODANAGRPERC
ADD RUN BA4 -1 ADD RUN BA4 -1
FLAGS "H" FLAGS "H"
GROUP 1 GROUP 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "H" FLAGS "H"
END END
STRING F_RAGSOCCOM 50 STRING F_RAGSOCCOM 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
USE LF_ANAG KEY 2 USE LF_ANAG KEY 2
INPUT RAGSOC F_RAGSOCCOM INPUT RAGSOC F_RAGSOCCOM
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
DISPLAY "Tipo" TIPOA DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
OUTPUT F_RAGSOCCOM RAGSOC OUTPUT F_RAGSOCCOM RAGSOC
OUTPUT F_CODANAGRCOM CODANAGR OUTPUT F_CODANAGRCOM CODANAGR
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
ADD RUN BA4 -1 ADD RUN BA4 -1
MESSAGE COPY, F_RAGSOC MESSAGE COPY, F_RAGSOC
MESSAGE COPY, F_RAGSOCPER MESSAGE COPY, F_RAGSOCPER
GROUP 1 GROUP 1
END END
STRING F_RAGSOCPER 50 STRING F_RAGSOCPER 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
GROUP 2 GROUP 2
MESSAGE COPY, F_RAGSOC MESSAGE COPY, F_RAGSOC
END END
NUMBER F_NPROG 6 NUMBER F_NPROG 6
BEGIN BEGIN
PROMPT 1 10 "@bScheda numero " PROMPT 1 10 "@bScheda numero "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
FIELD LF_SCPERC->NPROG FIELD LF_SCPERC->NPROG
USE LF_SCPERC USE LF_SCPERC
INPUT CODDITTA F_CODDITTA SELECT INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGR SELECT INPUT CODANAGR F_CODANAGR SELECT
INPUT NPROG F_NPROG INPUT NPROG F_NPROG
DISPLAY "N°" NPROG DISPLAY "N°" NPROG
DISPLAY "Data doc.@10" DATADOC DISPLAY "Data doc.@10" DATADOC
DISPLAY "Num.@8" NUMDOC DISPLAY "Num.@8" NUMDOC
DISPLAY "Cau." CODCAUS DISPLAY "Cau." CODCAUS
DISPLAY "Tot. doc.@15" TOTALE DISPLAY "Tot. doc.@15" TOTALE
DISPLAY "Compenso@15" COMPENSO DISPLAY "Compenso@15" COMPENSO
DISPLAY "Spese@15" SPESE DISPLAY "Spese@15" SPESE
DISPLAY "Iva@15" IVA DISPLAY "Iva@15" IVA
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGR CODANAGR OUTPUT F_CODANAGR CODANAGR
OUTPUT F_NPROG NPROG OUTPUT F_NPROG NPROG
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

1578
m770/771100.cpp
View File

File diff suppressed because it is too large Load Diff

242
m770/771100.h
View File

@ -1,121 +1,121 @@
// Campi maschera persone fisiche 771100a.uml // Campi maschera persone fisiche 771100a.uml
#ifndef _771100_H #ifndef _771100_H
#define _771100_H #define _771100_H
#define F_CODDITTA 500 #define F_CODDITTA 500
#define F_RAGSOC 501 #define F_RAGSOC 501
#define APF_CODDITTA 101 #define APF_CODDITTA 101
#define APF_RAGSOC 102 #define APF_RAGSOC 102
#define F_COFI 103 #define F_COFI 103
#define F_COGNOME 104 #define F_COGNOME 104
#define F_NOME 105 #define F_NOME 105
#define F_SESSO 106 #define F_SESSO 106
#define F_DATANASC 107 #define F_DATANASC 107
#define F_COMNASC 108 #define F_COMNASC 108
#define F_PROVNASC 109 #define F_PROVNASC 109
#define F_ATTIV 110 #define F_ATTIV 110
#define F_DESCRATT 111 #define F_DESCRATT 111
#define F_RSS 112 #define F_RSS 112
#define F_INDRES 113 #define F_INDRES 113
#define F_CIVRES 114 #define F_CIVRES 114
#define F_CAPRES 115 #define F_CAPRES 115
#define F_COMRES 116 #define F_COMRES 116
#define F_PROVRES 117 #define F_PROVRES 117
#define F_INDRF 118 #define F_INDRF 118
#define F_CIVRF 119 #define F_CIVRF 119
#define F_CAPRF 120 #define F_CAPRF 120
#define F_COMRF 121 #define F_COMRF 121
#define F_PROVRF 122 #define F_PROVRF 122
#define F_DOMFISC 123 #define F_DOMFISC 123
#define F_EVECC 124 #define F_EVECC 124
#define F_GIURIDICA 125 #define F_GIURIDICA 125
#define F_ANAGR 126 #define F_ANAGR 126
// Campi maschera persone giuridiche 771100b.uml // Campi maschera persone giuridiche 771100b.uml
#define F_RAGIONE 150 #define F_RAGIONE 150
#define F_SEDELEG 151 #define F_SEDELEG 151
#define F_PTELRF 152 #define F_PTELRF 152
#define F_TELRF 153 #define F_TELRF 153
#define F_DATAAPPBIL 154 #define F_DATAAPPBIL 154
#define F_DATATAPPBI 155 #define F_DATATAPPBI 155
#define F_STATOSOC 156 #define F_STATOSOC 156
#define F_SITSOC 157 #define F_SITSOC 157
#define F_NATGIU 158 #define F_NATGIU 158
#define F_FISICA 159 #define F_FISICA 159
// Campi maschera rappresentanti 771100c.uml // Campi maschera rappresentanti 771100c.uml
#define F_CARRAP 201 #define F_CARRAP 201
// Campi maschera Luogo di conservazione delle scritture contabili 771100d.uml // Campi maschera Luogo di conservazione delle scritture contabili 771100d.uml
#define ASCF_TIPOA 250 #define ASCF_TIPOA 250
#define F_CODDEP 251 #define F_CODDEP 251
#define F_IND 252 #define F_IND 252
#define F_CIV 253 #define F_CIV 253
#define F_CAP 254 #define F_CAP 254
#define F_COM 255 #define F_COM 255
#define F_PROV 256 #define F_PROV 256
#define F_INDCS 257 #define F_INDCS 257
#define F_CIVCS 258 #define F_CIVCS 258
#define F_CAPCS 259 #define F_CAPCS 259
#define F_COMCS 260 #define F_COMCS 260
#define F_PROVCS 261 #define F_PROVCS 261
#define F_PTELCS 262 #define F_PTELCS 262
#define F_TELCS 263 #define F_TELCS 263
#define F_ATTIVITA 264 #define F_ATTIVITA 264
#define F_ANAGRAFICA 265 #define F_ANAGRAFICA 265
// Campi maschera dati CAAF 771100e.uml // Campi maschera dati CAAF 771100e.uml
#define F_NISCRAA 301 #define F_NISCRAA 301
#define F_DITTACAAF 302 #define F_DITTACAAF 302
// Campi maschera direttore/professionista 771100f.uml // Campi maschera direttore/professionista 771100f.uml
#define F_CONTROLLI 325 #define F_CONTROLLI 325
// Campi maschera Dati Vari 771100g.uml // Campi maschera Dati Vari 771100g.uml
#define F_TIPOA 503 #define F_TIPOA 503
#define F_CODCONC1 350 #define F_CODCONC1 350
#define F_CODCONC2 351 #define F_CODCONC2 351
#define F_CODCONC3 352 #define F_CODCONC3 352
#define F_CODTES1 353 #define F_CODTES1 353
#define F_CODTES2 354 #define F_CODTES2 354
#define F_CODTES3 355 #define F_CODTES3 355
#define F_INDUI 356 #define F_INDUI 356
#define F_CIVUI 357 #define F_CIVUI 357
#define F_CAPUI 358 #define F_CAPUI 358
#define F_COMUI 359 #define F_COMUI 359
#define F_PROVUI 360 #define F_PROVUI 360
#define F_CODUI 362 #define F_CODUI 362
#define F_CODCS 363 #define F_CODCS 363
#define F_DESCRUI 364 #define F_DESCRUI 364
#define F_DESCRCS 375 #define F_DESCRCS 375
#define F_BTN_GIURIDICA 376 #define F_BTN_GIURIDICA 376
#define F_BTN_FISICA 377 #define F_BTN_FISICA 377
#define F_TIPOA2BTN 378 #define F_TIPOA2BTN 378
// Campi maschera Societa' trasformate 771100h.uml // Campi maschera Societa' trasformate 771100h.uml
#define MDSTF_CODDITTA 181 #define MDSTF_CODDITTA 181
#define MDSTF_RAGSOC 415 #define MDSTF_RAGSOC 415
#define F_SOC_COFI 400 #define F_SOC_COFI 400
#define F_SOC_COGNOME 401 #define F_SOC_COGNOME 401
#define F_SOC_NOME 402 #define F_SOC_NOME 402
#define F_SOC_SESSO 403 #define F_SOC_SESSO 403
#define F_SOC_DATANAS 404 #define F_SOC_DATANAS 404
#define F_SOC_COMUNE 405 #define F_SOC_COMUNE 405
#define F_SOC_PROVNAS 406 #define F_SOC_PROVNAS 406
#define F_SOC_DENOMIN 407 #define F_SOC_DENOMIN 407
#define F_SOC_COMRES 408 #define F_SOC_COMRES 408
#define F_SOC_PROVRES 409 #define F_SOC_PROVRES 409
#define F_SOC_INDRES 410 #define F_SOC_INDRES 410
#define F_SOC_CONSBOCC 411 #define F_SOC_CONSBOCC 411
#define F_SOC_LAVDIPCIN 412 #define F_SOC_LAVDIPCIN 412
#define F_SOC_DATAINPI 413 #define F_SOC_DATAINPI 413
#define F_SOC_DATAFINPI 414 #define F_SOC_DATAFINPI 414
#define DCF_DITTA 415 #define DCF_DITTA 415
#endif #endif

528
m770/771100a.uml
View File

@ -1,264 +1,264 @@
#include "771100.h" #include "771100.h"
// //
// Lista modifiche // Lista modifiche
// //
// 1.4.96 Aggiunti campi prefisso/telefono // 1.4.96 Aggiunti campi prefisso/telefono
// //
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2 BUTTON F_FISICA 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Fisiche" PROMPT -15 -1 "~Fisiche"
END END
BUTTON F_ATTIVITA 10 2 BUTTON F_ATTIVITA 10 2
BEGIN BEGIN
PROMPT -25 -1 "~Attivita'" PROMPT -25 -1 "~Attivita'"
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -35 -1 "" PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Dati relativi alle persone fisiche" -1 -1 78 18 PAGE "Dati relativi alle persone fisiche" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "RDG" FLAGS "RDG"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
OUTPUT APF_RAGSOC LF_NDITTE->RAGSOC OUTPUT APF_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_NDITTE->CODATTPREV OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
OUTPUT F_ANAGR LF_ANAG->CODANAGR OUTPUT F_ANAGR LF_ANAG->CODANAGR
OUTPUT F_COFI LF_ANAG->COFI OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
OUTPUT F_INDRES LF_ANAG->INDRES OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_INDRF LF_ANAG->INDRF OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_EVECC LF_ANAG->EVECC OUTPUT F_EVECC LF_ANAG->EVECC
OUTPUT F_SESSO LF_ANAGFIS->SESSO OUTPUT F_SESSO LF_ANAGFIS->SESSO
OUTPUT F_DATANASC LF_ANAGFIS->DATANASC OUTPUT F_DATANASC LF_ANAGFIS->DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_COMRES 1@->DENCOM OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_PTELRF LF_ANAG->PTELRF OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF OUTPUT F_TELRF LF_ANAG->TELRF
OUTPUT F_DOMFISC LF_ANAG->VARSLORES OUTPUT F_DOMFISC LF_ANAG->VARSLORES
KEY 1 KEY 1
END END
STRING APF_RAGSOC 50 STRING APF_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT -1 -1 "" PROMPT -1 -1 ""
FLAGS "H" FLAGS "H"
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 1 4 "Codice fiscale " PROMPT 1 4 "Codice fiscale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_EVECC 1 NUMBER F_EVECC 1
BEGIN BEGIN
PROMPT 46 4 "Eventi naturali eccezionali " PROMPT 46 4 "Eventi naturali eccezionali "
FLAGS "D" FLAGS "D"
END END
STRING F_COGNOME 30 STRING F_COGNOME 30
BEGIN BEGIN
PROMPT 1 5 "Cognome " PROMPT 1 5 "Cognome "
FLAGS "D" FLAGS "D"
END END
LIST F_RSS 7 LIST F_RSS 7
BEGIN BEGIN
PROMPT 58 5 "R.S.S. " PROMPT 58 5 "R.S.S. "
ITEM " |Nessuna" ITEM " |Nessuna"
ITEM "1|VA" ITEM "1|VA"
ITEM "2|SA" ITEM "2|SA"
ITEM "3|SI" ITEM "3|SI"
FIELD LF_BASE->RSS FIELD LF_BASE->RSS
END END
STRING F_NOME 20 STRING F_NOME 20
BEGIN BEGIN
PROMPT 1 6 "Nome " PROMPT 1 6 "Nome "
FLAGS "D" FLAGS "D"
END END
STRING F_SESSO 1 STRING F_SESSO 1
BEGIN BEGIN
PROMPT 39 6 "Sesso " PROMPT 39 6 "Sesso "
FLAGS "D" FLAGS "D"
END END
DATE F_DATANASC DATE F_DATANASC
BEGIN BEGIN
PROMPT 49 6 "Data di nascita " PROMPT 49 6 "Data di nascita "
FLAGS "D" FLAGS "D"
END END
STRING F_COMNASC 50 STRING F_COMNASC 50
BEGIN BEGIN
PROMPT 1 7 "Comune nascita " PROMPT 1 7 "Comune nascita "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVNASC 5 STRING F_PROVNASC 5
BEGIN BEGIN
PROMPT 70 7 "" PROMPT 70 7 ""
FLAGS "D" FLAGS "D"
END END
STRING F_ATTIV 5 STRING F_ATTIV 5
BEGIN BEGIN
PROMPT 1 8 "Attivita' " PROMPT 1 8 "Attivita' "
USE %AIS USE %AIS
INPUT CODTAB F_ATTIV INPUT CODTAB F_ATTIV
OUTPUT F_DESCRATT S0 OUTPUT F_DESCRATT S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "D" FLAGS "D"
END END
STRING F_DESCRATT 50 STRING F_DESCRATT 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_DOMFISC BOOLEAN F_DOMFISC
BEGIN BEGIN
PROMPT 1 9 "Dom.fiscale o residenza variati rispetto all'anno precedente " PROMPT 1 9 "Dom.fiscale o residenza variati rispetto all'anno precedente "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 10 "Residenza" PROMPT 0 10 "Residenza"
END END
STRING F_INDRES 35 STRING F_INDRES 35
BEGIN BEGIN
PROMPT 1 11 "Indirizzo " PROMPT 1 11 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRES 10 STRING F_CIVRES 10
BEGIN BEGIN
PROMPT 47 11 "" PROMPT 47 11 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRES 5 STRING F_CAPRES 5
BEGIN BEGIN
PROMPT 63 11 "C.A.P. " PROMPT 63 11 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMRES 50 STRING F_COMRES 50
BEGIN BEGIN
PROMPT 1 12 "Comune " PROMPT 1 12 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRES 5 STRING F_PROVRES 5
BEGIN BEGIN
PROMPT 63 12 "Prov. " PROMPT 63 12 "Prov. "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 14 "Domicilio fiscale " PROMPT 0 14 "Domicilio fiscale "
END END
STRING F_PTELRF 10 STRING F_PTELRF 10
BEGIN BEGIN
PROMPT 1 15 "Telefono " PROMPT 1 15 "Telefono "
FLAGS "D" FLAGS "D"
END END
STRING F_TELRF 30 STRING F_TELRF 30
BEGIN BEGIN
PROMPT 20 15 "" PROMPT 20 15 ""
FLAGS "D" FLAGS "D"
END END
STRING F_INDRF 35 STRING F_INDRF 35
BEGIN BEGIN
PROMPT 1 16 "Indirizzo " PROMPT 1 16 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRF 10 STRING F_CIVRF 10
BEGIN BEGIN
PROMPT 47 16 "" PROMPT 47 16 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRF 5 STRING F_CAPRF 5
BEGIN BEGIN
PROMPT 63 16 "C.A.P. " PROMPT 63 16 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMRF 50 STRING F_COMRF 50
BEGIN BEGIN
PROMPT 1 17 "Comune " PROMPT 1 17 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRF 5 STRING F_PROVRF 5
BEGIN BEGIN
PROMPT 63 17 "Prov. " PROMPT 63 17 "Prov. "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

654
m770/771100b.uml
View File

@ -1,327 +1,327 @@
#include "771100.h" #include "771100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_GIURIDICA 10 2 BUTTON F_GIURIDICA 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Giuridiche" PROMPT -15 -1 "~Giuridiche"
END END
BUTTON F_ATTIVITA 10 2 BUTTON F_ATTIVITA 10 2
BEGIN BEGIN
PROMPT -25 -1 "~Attività" PROMPT -25 -1 "~Attività"
MESSAGE K_TAB,F_ATTIV MESSAGE K_TAB,F_ATTIV
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -35 -1 "" PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Dichiarante" -1 -1 78 18 PAGE "Dichiarante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_NDITTE->CODATTPREV OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
OUTPUT F_ANAGR LF_ANAG->CODANAGR OUTPUT F_ANAGR LF_ANAG->CODANAGR
OUTPUT F_COFI LF_ANAG->COFI OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_RAGIONE LF_ANAG->RAGSOC OUTPUT F_RAGIONE LF_ANAG->RAGSOC
OUTPUT F_COMRES 1@->DENCOM OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_INDRES LF_ANAG->INDRES OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_EVECC LF_ANAG->EVECC OUTPUT F_EVECC LF_ANAG->EVECC
OUTPUT F_COMRF 2@->DENCOM OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_INDRF LF_ANAG->INDRF OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_PTELRF LF_ANAG->PTELRF OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF OUTPUT F_TELRF LF_ANAG->TELRF
OUTPUT F_DATAAPPBIL LF_ANAGGIU->DATAAPPBIL OUTPUT F_DATAAPPBIL LF_ANAGGIU->DATAAPPBIL
OUTPUT F_DATATAPPBI LF_ANAGGIU->DATATAPPBI OUTPUT F_DATATAPPBI LF_ANAGGIU->DATATAPPBI
OUTPUT F_STATOSOC LF_ANAGGIU->STATOSOC OUTPUT F_STATOSOC LF_ANAGGIU->STATOSOC
OUTPUT F_NATGIU LF_ANAGGIU->NATGIU OUTPUT F_NATGIU LF_ANAGGIU->NATGIU
OUTPUT F_SITSOC LF_ANAGGIU->SITSOC OUTPUT F_SITSOC LF_ANAGGIU->SITSOC
OUTPUT F_SEDELEG LF_ANAG->VARSLORES OUTPUT F_SEDELEG LF_ANAG->VARSLORES
OUTPUT F_DOMFISC LF_ANAG->VARDF OUTPUT F_DOMFISC LF_ANAG->VARDF
MESSAGE COPY,1@ MESSAGE COPY,1@
MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
MESSAGE COPY,2@ MESSAGE COPY,2@
END END
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT -1 -1 "" PROMPT -1 -1 ""
FLAGS "H" FLAGS "H"
END END
/* /*
STRING F_ATTIV 5 STRING F_ATTIV 5
BEGIN BEGIN
PROMPT 1 4 "Attività " PROMPT 1 4 "Attività "
USE %AIS USE %AIS
INPUT CODTAB F_ATTIV INPUT CODTAB F_ATTIV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_DESCRATT S0 OUTPUT F_DESCRATT S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "D" FLAGS "D"
END END
*/ */
STRING F_ATTIV 5 STRING F_ATTIV 5
BEGIN BEGIN
PROMPT 1 4 "Attività " PROMPT 1 4 "Attività "
USE LF_ATTIV USE LF_ATTIV
INPUT CODDITTA F_CODDITTA SELECT INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_ATTIV INPUT CODATT F_ATTIV
DISPLAY "Attivita'" CODATT DISPLAY "Attivita'" CODATT
DISPLAY "Prevalente" ATTPREV DISPLAY "Prevalente" ATTPREV
DISPLAY " @50" DESCR DISPLAY " @50" DESCR
OUTPUT F_DESCRATT DESCR OUTPUT F_DESCRATT DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "D" FLAGS "D"
END END
STRING F_DESCRATT 50 STRING F_DESCRATT 50
BEGIN BEGIN
PROMPT 26 4 "" PROMPT 26 4 ""
FLAGS "D" FLAGS "D"
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 1 6 "Codice fiscale " PROMPT 1 6 "Codice fiscale "
FLAGS "D" FLAGS "D"
END END
STRING F_RAGIONE 50 STRING F_RAGIONE 50
BEGIN BEGIN
PROMPT 1 7 "Denominazione " PROMPT 1 7 "Denominazione "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 8 "" PROMPT 0 8 ""
END END
BOOLEAN F_SEDELEG BOOLEAN F_SEDELEG
BEGIN BEGIN
PROMPT 1 9 "Sede legale" PROMPT 1 9 "Sede legale"
//FLAGS "D" //FLAGS "D"
END END
STRING F_COMRES 50 STRING F_COMRES 50
BEGIN BEGIN
PROMPT 1 10 "Comune " PROMPT 1 10 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRES 5 STRING F_PROVRES 5
BEGIN BEGIN
PROMPT 63 10 "Prov. " PROMPT 63 10 "Prov. "
FLAGS "D" FLAGS "D"
END END
STRING F_INDRES 35 STRING F_INDRES 35
BEGIN BEGIN
PROMPT 1 11 "Indirizzo " PROMPT 1 11 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRES 10 STRING F_CIVRES 10
BEGIN BEGIN
PROMPT 47 11 "" PROMPT 47 11 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRES 5 STRING F_CAPRES 5
BEGIN BEGIN
PROMPT 63 11 "C.A.P. " PROMPT 63 11 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 13 "" PROMPT 0 13 ""
END END
BOOLEAN F_DOMFISC BOOLEAN F_DOMFISC
BEGIN BEGIN
PROMPT 1 14 "Domicilio fiscale" PROMPT 1 14 "Domicilio fiscale"
//FLAGS "D" //FLAGS "D"
END END
STRING F_PTELRF 10 STRING F_PTELRF 10
BEGIN BEGIN
PROMPT 25 14 "Telefono " PROMPT 25 14 "Telefono "
FLAGS "D" FLAGS "D"
END END
STRING F_TELRF 30 STRING F_TELRF 30
BEGIN BEGIN
PROMPT 45 14 "" PROMPT 45 14 ""
FLAGS "D" FLAGS "D"
END END
STRING F_COMRF 50 STRING F_COMRF 50
BEGIN BEGIN
PROMPT 1 15 "Comune " PROMPT 1 15 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRF 5 STRING F_PROVRF 5
BEGIN BEGIN
PROMPT 63 15 "Prov. " PROMPT 63 15 "Prov. "
FLAGS "D" FLAGS "D"
END END
STRING F_INDRF 35 STRING F_INDRF 35
BEGIN BEGIN
PROMPT 1 16 "Indirizzo " PROMPT 1 16 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRF 10 STRING F_CIVRF 10
BEGIN BEGIN
PROMPT 47 16 "" PROMPT 47 16 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRF 5 STRING F_CAPRF 5
BEGIN BEGIN
PROMPT 63 16 "C.A.P. " PROMPT 63 16 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
PAGE "Dichiarante pagina 2" -1 -1 78 18 PAGE "Dichiarante pagina 2" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER DLG_NULL 5 NUMBER DLG_NULL 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
GROUP 1 GROUP 1
END END
STRING DLG_NULL 50 STRING DLG_NULL 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
GROUP 2 GROUP 2
END END
DATE F_DATAAPPBIL DATE F_DATAAPPBIL
BEGIN BEGIN
PROMPT 1 5 "Data approvazione del bilancio " PROMPT 1 5 "Data approvazione del bilancio "
FLAGS "D" FLAGS "D"
END END
DATE F_DATATAPPBI DATE F_DATATAPPBI
BEGIN BEGIN
PROMPT 1 6 "Data termine del bilancio " PROMPT 1 6 "Data termine del bilancio "
FLAGS "D" FLAGS "D"
END END
NUMBER F_STATOSOC 1 NUMBER F_STATOSOC 1
BEGIN BEGIN
PROMPT 1 8 "Stato " PROMPT 1 8 "Stato "
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 15 8 "(Tab.A)" PROMPT 15 8 "(Tab.A)"
END END
NUMBER F_NATGIU 2 NUMBER F_NATGIU 2
BEGIN BEGIN
PROMPT 48 8 "Natura giuridica " PROMPT 48 8 "Natura giuridica "
FLAGS "RD" FLAGS "RD"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 69 8 "(Tab.B)" PROMPT 69 8 "(Tab.B)"
END END
NUMBER F_SITSOC 1 NUMBER F_SITSOC 1
BEGIN BEGIN
PROMPT 1 9 "Situazione " PROMPT 1 9 "Situazione "
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 15 9 "(Tab.E)" PROMPT 15 9 "(Tab.E)"
END END
LIST F_RSS 7 LIST F_RSS 7
BEGIN BEGIN
PROMPT 48 9 "R.S.S. " PROMPT 48 9 "R.S.S. "
ITEM " |Nessuna" ITEM " |Nessuna"
ITEM "1|VA" ITEM "1|VA"
ITEM "2|SA" ITEM "2|SA"
ITEM "3|SI" ITEM "3|SI"
FIELD LF_BASE->RSS FIELD LF_BASE->RSS
END END
NUMBER F_EVECC 1 NUMBER F_EVECC 1
BEGIN BEGIN
PROMPT 1 11 "Eventi naturali eccezionali " PROMPT 1 11 "Eventi naturali eccezionali "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

568
m770/771100c.uml
View File

@ -1,284 +1,284 @@
// 771100c.uml - Dati rappresentante // 771100c.uml - Dati rappresentante
#include "771100.h" #include "771100.h"
// //
// Lista modifiche // Lista modifiche
// //
// 2.4.96 Aggiunto numero di telefono // 2.4.96 Aggiunto numero di telefono
// //
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2 BUTTON F_FISICA 10 2
BEGIN BEGIN
PROMPT -14 -1 "~Fisiche" PROMPT -14 -1 "~Fisiche"
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -24 -1 "" PROMPT -24 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -34 -1 "" PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -44 -1 "" PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Dati relativi al rappresentante" -1 -1 78 18 PAGE "Dati relativi al rappresentante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT 1 4 "Codice rappresentante " PROMPT 1 4 "Codice rappresentante "
FLAGS "D" FLAGS "D"
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
FIELD LF_NDITTE->RAPPR FIELD LF_NDITTE->RAPPR
CHECKTYPE NORMAL CHECKTYPE NORMAL
JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F" JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F"
JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
OUTPUT F_COFI LF_ANAG->COFI OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
OUTPUT F_SESSO LF_ANAGFIS->SESSO OUTPUT F_SESSO LF_ANAGFIS->SESSO
OUTPUT F_DATANASC LF_ANAGFIS->DATANASC OUTPUT F_DATANASC LF_ANAGFIS->DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_INDRES LF_ANAG->INDRES OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_INDRF LF_ANAG->INDRF OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_COMRES 1@->DENCOM OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_DOMFISC LF_ANAG->VARSLORES OUTPUT F_DOMFISC LF_ANAG->VARSLORES
OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR
OUTPUT F_PTELRF LF_ANAG->PTELRF OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF OUTPUT F_TELRF LF_ANAG->TELRF
END END
/* /*
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT 1 4 "Codice rappresentante " PROMPT 1 4 "Codice rappresentante "
USE LF_ANAGFIS KEY 1 USE LF_ANAGFIS KEY 1
INPUT CODANAGR F_ANAGR INPUT CODANAGR F_ANAGR
JOIN LF_ANAG TO LF_ANAGFIS INTO CODANAGR=CODANAGR TIPOA="F" JOIN LF_ANAG TO LF_ANAGFIS INTO CODANAGR=CODANAGR TIPOA="F"
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
OUTPUT F_COFI LF_ANAG->COFI OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
OUTPUT F_SESSO SESSO OUTPUT F_SESSO SESSO
OUTPUT F_DATANASC DATANASC OUTPUT F_DATANASC DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_INDRES LF_ANAG->INDRES OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_INDRF LF_ANAG->INDRF OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_COMRES 1@->DENCOM OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_DOMFISC LF_ANAG->VARSLORES OUTPUT F_DOMFISC LF_ANAG->VARSLORES
OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR
OUTPUT F_PTELRF LF_ANAG->PTELRF OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF OUTPUT F_TELRF LF_ANAG->TELRF
FIELD LF_BASE->RAPPR FIELD LF_BASE->RAPPR
CHECKTYPE NORMAL CHECKTYPE NORMAL
FLAGS "R" FLAGS "R"
END END
*/ */
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 1 5 "Codice fiscale " PROMPT 1 5 "Codice fiscale "
FLAGS "D" FLAGS "D"
END END
STRING F_COGNOME 30 STRING F_COGNOME 30
BEGIN BEGIN
PROMPT 1 6 "Cognome " PROMPT 1 6 "Cognome "
FLAGS "D" FLAGS "D"
END END
STRING F_NOME 20 STRING F_NOME 20
BEGIN BEGIN
PROMPT 1 7 "Nome " PROMPT 1 7 "Nome "
FLAGS "D" FLAGS "D"
END END
STRING F_SESSO 1 STRING F_SESSO 1
BEGIN BEGIN
PROMPT 39 7 "Sesso " PROMPT 39 7 "Sesso "
FLAGS "D" FLAGS "D"
END END
DATE F_DATANASC DATE F_DATANASC
BEGIN BEGIN
PROMPT 49 7 "Data di nascita " PROMPT 49 7 "Data di nascita "
FLAGS "D" FLAGS "D"
END END
STRING F_COMNASC 50 STRING F_COMNASC 50
BEGIN BEGIN
PROMPT 1 8 "Comune nascita " PROMPT 1 8 "Comune nascita "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVNASC 5 STRING F_PROVNASC 5
BEGIN BEGIN
PROMPT 70 8 "" PROMPT 70 8 ""
FLAGS "D" FLAGS "D"
END END
LIST F_CARRAP 51 LIST F_CARRAP 51
BEGIN BEGIN
PROMPT 1 9 "Carica " PROMPT 1 9 "Carica "
HELP "Codice della carica del rappresentante legale" HELP "Codice della carica del rappresentante legale"
ITEM " |Nessun rappresentante" ITEM " |Nessun rappresentante"
ITEM "1|Rappresentante legale o di fatto" ITEM "1|Rappresentante legale o di fatto"
ITEM "2|Curatore fallimentare" ITEM "2|Curatore fallimentare"
ITEM "3|Liquidatore" ITEM "3|Liquidatore"
ITEM "4|Nominato in Italia per società con sede all'estero" ITEM "4|Nominato in Italia per società con sede all'estero"
ITEM "5|Erede" ITEM "5|Erede"
ITEM "6|Curatore di eredità giacente" ITEM "6|Curatore di eredità giacente"
FIELD LF_BASE->CARRAPP FIELD LF_BASE->CARRAPP
END END
BOOLEAN F_DOMFISC BOOLEAN F_DOMFISC
BEGIN BEGIN
PROMPT 15 10 "Dom.fiscale o residenza variati rispetto all'anno precedente " PROMPT 15 10 "Dom.fiscale o residenza variati rispetto all'anno precedente "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 10 "Residenza" PROMPT 0 10 "Residenza"
END END
STRING F_INDRES 35 STRING F_INDRES 35
BEGIN BEGIN
PROMPT 1 11 "Indirizzo " PROMPT 1 11 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRES 10 STRING F_CIVRES 10
BEGIN BEGIN
PROMPT 47 11 "" PROMPT 47 11 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRES 5 STRING F_CAPRES 5
BEGIN BEGIN
PROMPT 63 11 "C.A.P. " PROMPT 63 11 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMRES 50 STRING F_COMRES 50
BEGIN BEGIN
PROMPT 1 12 "Comune " PROMPT 1 12 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRES 5 STRING F_PROVRES 5
BEGIN BEGIN
PROMPT 63 12 "Prov. " PROMPT 63 12 "Prov. "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 14 "Domicilio fiscale " PROMPT 0 14 "Domicilio fiscale "
END END
STRING F_PTELRF 10 STRING F_PTELRF 10
BEGIN BEGIN
PROMPT 1 15 "Telefono " PROMPT 1 15 "Telefono "
FLAGS "D" FLAGS "D"
END END
STRING F_TELRF 30 STRING F_TELRF 30
BEGIN BEGIN
PROMPT 20 15 "" PROMPT 20 15 ""
FLAGS "D" FLAGS "D"
END END
STRING F_INDRF 35 STRING F_INDRF 35
BEGIN BEGIN
PROMPT 1 16 "Indirizzo " PROMPT 1 16 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRF 10 STRING F_CIVRF 10
BEGIN BEGIN
PROMPT 47 16 "" PROMPT 47 16 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRF 5 STRING F_CAPRF 5
BEGIN BEGIN
PROMPT 63 16 "C.A.P. " PROMPT 63 16 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMRF 50 STRING F_COMRF 50
BEGIN BEGIN
PROMPT 1 17 "Comune " PROMPT 1 17 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRF 5 STRING F_PROVRF 5
BEGIN BEGIN
PROMPT 63 17 "Prov. " PROMPT 63 17 "Prov. "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

382
m770/771100d.uml
View File

@ -1,191 +1,191 @@
#include "771100.h" #include "771100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_ANAGRAFICA 10 2 BUTTON F_ANAGRAFICA 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Anagrafica" PROMPT -15 -1 "~Anagrafica"
END END
BUTTON F_ATTIVITA 10 2 BUTTON F_ATTIVITA 10 2
BEGIN BEGIN
PROMPT -25 -1 "~Attività" PROMPT -25 -1 "~Attività"
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -35 -1 "" PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Scritture contabili" -1 -1 78 18 PAGE "Scritture contabili" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
JOIN LF_ATTIV TO LF_NDITTE INTO CODDITTA=CODDITTA CODATT=CODATTPREV JOIN LF_ATTIV TO LF_NDITTE INTO CODDITTA=CODDITTA CODATT=CODATTPREV
JOIN LF_COMUNI TO LF_ATTIV INTO COM==COMCS JOIN LF_COMUNI TO LF_ATTIV INTO COM==COMCS
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_ATTIV->CODATT OUTPUT F_ATTIV LF_ATTIV->CODATT
OUTPUT ASCF_TIPOA LF_ATTIV->TIPOADS OUTPUT ASCF_TIPOA LF_ATTIV->TIPOADS
OUTPUT F_ANAGR LF_ATTIV->CODANGRDS OUTPUT F_ANAGR LF_ATTIV->CODANGRDS
OUTPUT F_INDCS LF_ATTIV->INDCS OUTPUT F_INDCS LF_ATTIV->INDCS
OUTPUT F_CIVCS LF_ATTIV->CIVCS OUTPUT F_CIVCS LF_ATTIV->CIVCS
OUTPUT F_CAPCS LF_ATTIV->CAPCS OUTPUT F_CAPCS LF_ATTIV->CAPCS
OUTPUT F_COMCS LF_COMUNI->DENCOM OUTPUT F_COMCS LF_COMUNI->DENCOM
OUTPUT F_PROVCS LF_COMUNI->PROVCOM OUTPUT F_PROVCS LF_COMUNI->PROVCOM
OUTPUT F_PTELCS LF_ATTIV->PTELCS OUTPUT F_PTELCS LF_ATTIV->PTELCS
OUTPUT F_TELCS LF_ATTIV->TELCS OUTPUT F_TELCS LF_ATTIV->TELCS
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
STRING F_ATTIV 5 STRING F_ATTIV 5
BEGIN BEGIN
PROMPT -1 -1 "" PROMPT -1 -1 ""
FLAGS "H" FLAGS "H"
END END
LIST ASCF_TIPOA 9 LIST ASCF_TIPOA 9
BEGIN BEGIN
PROMPT 1 5 "Tipo persona " PROMPT 1 5 "Tipo persona "
ITEMS "G|Societa'" ITEMS "G|Societa'"
ITEMS "F|Fisica" ITEMS "F|Fisica"
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT 52 5 "Codice depositario " PROMPT 52 5 "Codice depositario "
FLAGS "RD" FLAGS "RD"
END END
STRING F_COGNOME 30 STRING F_COGNOME 30
BEGIN BEGIN
PROMPT 1 7 "Cognome/Nome " PROMPT 1 7 "Cognome/Nome "
FLAGS "D" FLAGS "D"
END END
STRING F_NOME 20 STRING F_NOME 20
BEGIN BEGIN
PROMPT 45 7 "" PROMPT 45 7 ""
FLAGS "D" FLAGS "D"
END END
STRING F_RAGIONE 50 STRING F_RAGIONE 50
BEGIN BEGIN
PROMPT 1 7 "Ragione soc. " PROMPT 1 7 "Ragione soc. "
FLAGS "D" FLAGS "D"
END END
STRING F_IND 35 STRING F_IND 35
BEGIN BEGIN
PROMPT 1 8 "Indirizzo " PROMPT 1 8 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIV 10 STRING F_CIV 10
BEGIN BEGIN
PROMPT 50 8 "" PROMPT 50 8 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAP 5 STRING F_CAP 5
BEGIN BEGIN
PROMPT 64 8 "C.A.P. " PROMPT 64 8 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COM 50 STRING F_COM 50
BEGIN BEGIN
PROMPT 1 9 "Comune " PROMPT 1 9 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROV 5 STRING F_PROV 5
BEGIN BEGIN
PROMPT 66 9 "Prov." PROMPT 66 9 "Prov."
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 11 "Luogo di conservazione delle scritture contabili (solo se diverso)" PROMPT 0 11 "Luogo di conservazione delle scritture contabili (solo se diverso)"
END END
STRING F_INDCS 35 STRING F_INDCS 35
BEGIN BEGIN
PROMPT 1 12 "Indirizzo " PROMPT 1 12 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVCS 10 STRING F_CIVCS 10
BEGIN BEGIN
PROMPT 47 12 "" PROMPT 47 12 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPCS 5 STRING F_CAPCS 5
BEGIN BEGIN
PROMPT 63 12 "C.A.P. " PROMPT 63 12 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMCS 50 STRING F_COMCS 50
BEGIN BEGIN
PROMPT 1 13 "Comune " PROMPT 1 13 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVCS 5 STRING F_PROVCS 5
BEGIN BEGIN
PROMPT 63 13 "Prov. " PROMPT 63 13 "Prov. "
FLAGS "D" FLAGS "D"
END END
STRING F_PTELCS 10 STRING F_PTELCS 10
BEGIN BEGIN
PROMPT 1 14 "Telefono " PROMPT 1 14 "Telefono "
FLAGS "D" FLAGS "D"
END END
STRING F_TELCS 30 STRING F_TELCS 30
BEGIN BEGIN
PROMPT 22 14 "" PROMPT 22 14 ""
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

412
m770/771100e.uml
View File

@ -1,206 +1,206 @@
#include "771100.h" #include "771100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_GIURIDICA 10 2 BUTTON F_GIURIDICA 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Giuridiche" PROMPT -15 -1 "~Giuridiche"
END END
BUTTON DCF_DITTA 10 2 BUTTON DCF_DITTA 10 2
BEGIN BEGIN
PROMPT -25 -1 "~Ditte" PROMPT -25 -1 "~Ditte"
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -35 -1 "" PROMPT -35 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Dati C.A.A." -1 -1 78 18 PAGE "Dati C.A.A." -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
JOIN LF_BASE TO LF_NDITTE INTO CODDITTA=CODDITTA JOIN LF_BASE TO LF_NDITTE INTO CODDITTA=CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ANAGR LF_BASE->CODCAAF OUTPUT F_ANAGR LF_BASE->CODCAAF
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 4 "Dati anagrafici" PROMPT 0 4 "Dati anagrafici"
END END
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT 1 5 "Codice " PROMPT 1 5 "Codice "
USE LF_ANAGGIU KEY 1 USE LF_ANAGGIU KEY 1
INPUT CODANAGR F_ANAGR INPUT CODANAGR F_ANAGR
JOIN LF_ANAG TO LF_ANAGGIU INTO CODANAGR=CODANAGR TIPOA="G" JOIN LF_ANAG TO LF_ANAGGIU INTO CODANAGR=CODANAGR TIPOA="G"
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
OUTPUT F_COFI LF_ANAG->COFI OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_RAGIONE LF_ANAG->RAGSOC OUTPUT F_RAGIONE LF_ANAG->RAGSOC
OUTPUT F_INDRES LF_ANAG->INDRES OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_INDRF LF_ANAG->INDRF OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_COMRES 1@->DENCOM OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_ANAGR CODANAGR OUTPUT F_ANAGR CODANAGR
CHECKTYPE NORMAL CHECKTYPE NORMAL
FLAGS "R" FLAGS "R"
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 43 5 "Codice fiscale " PROMPT 43 5 "Codice fiscale "
FLAGS "D" FLAGS "D"
END END
STRING F_RAGIONE 50 STRING F_RAGIONE 50
BEGIN BEGIN
PROMPT 1 6 "Ragione sociale " PROMPT 1 6 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_DITTACAAF 5 NUMBER F_DITTACAAF 5
BEGIN BEGIN
PROMPT 1 9 "Ditta CAA " PROMPT 1 9 "Ditta CAA "
FLAGS "RZ" FLAGS "RZ"
USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR
INPUT TIPOA "G" INPUT TIPOA "G"
INPUT CODANAGR F_ANAGR INPUT CODANAGR F_ANAGR
INPUT CODDITTA F_DITTACAAF INPUT CODDITTA F_DITTACAAF
DISPLAY "Ditta" CODDITTA DISPLAY "Ditta" CODDITTA
DISPLAY "Tipo" TIPOA DISPLAY "Tipo" TIPOA
DISPLAY "Cod.Anagrafico" CODANAGR DISPLAY "Cod.Anagrafico" CODANAGR
DISPLAY "Num.Iscr.Albo" NISCRAA DISPLAY "Num.Iscr.Albo" NISCRAA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_NISCRAA NISCRAA OUTPUT F_NISCRAA NISCRAA
OUTPUT F_DITTACAAF CODDITTA OUTPUT F_DITTACAAF CODDITTA
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD LF_BASE->DITTACAAF FIELD LF_BASE->DITTACAAF
END END
STRING F_NISCRAA 10 STRING F_NISCRAA 10
BEGIN BEGIN
PROMPT 30 9 "Numero di iscrizione all'albo " PROMPT 30 9 "Numero di iscrizione all'albo "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "DG" FLAGS "DG"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 11 "Sede legale" PROMPT 0 11 "Sede legale"
END END
STRING F_INDRES 35 STRING F_INDRES 35
BEGIN BEGIN
PROMPT 1 12 "Indirizzo " PROMPT 1 12 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRES 10 STRING F_CIVRES 10
BEGIN BEGIN
PROMPT 47 12 "" PROMPT 47 12 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRES 5 STRING F_CAPRES 5
BEGIN BEGIN
PROMPT 63 12 "C.A.P. " PROMPT 63 12 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMRES 50 STRING F_COMRES 50
BEGIN BEGIN
PROMPT 1 13 "Comune " PROMPT 1 13 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRES 5 STRING F_PROVRES 5
BEGIN BEGIN
PROMPT 63 13 "Prov. " PROMPT 63 13 "Prov. "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 15 "Domicilio fiscale " PROMPT 0 15 "Domicilio fiscale "
END END
STRING F_INDRF 35 STRING F_INDRF 35
BEGIN BEGIN
PROMPT 1 16 "Indirizzo " PROMPT 1 16 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVRF 10 STRING F_CIVRF 10
BEGIN BEGIN
PROMPT 47 16 "" PROMPT 47 16 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPRF 5 STRING F_CAPRF 5
BEGIN BEGIN
PROMPT 63 16 "C.A.P. " PROMPT 63 16 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMRF 50 STRING F_COMRF 50
BEGIN BEGIN
PROMPT 1 17 "Comune " PROMPT 1 17 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVRF 5 STRING F_PROVRF 5
BEGIN BEGIN
PROMPT 63 17 "Prov. " PROMPT 63 17 "Prov. "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

270
m770/771100f.uml
View File

@ -1,135 +1,135 @@
#include "771100.h" #include "771100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2 BUTTON F_FISICA 10 2
BEGIN BEGIN
PROMPT -14 -1 "~Fisiche" PROMPT -14 -1 "~Fisiche"
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -24 -1 "" PROMPT -24 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -34 -1 "" PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -44 -1 "" PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Direttore / Professionista" -1 -1 78 18 PAGE "Direttore / Professionista" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 7 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 0 5 "Dati anagrafici" PROMPT 0 5 "Dati anagrafici"
END END
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT 1 6 "Codice " PROMPT 1 6 "Codice "
USE LF_ANAGFIS KEY 1 USE LF_ANAGFIS KEY 1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODANAGR F_ANAGR INPUT CODANAGR F_ANAGR
JOIN LF_ANAG TO LF_ANAGFIS INTO TIPOA="F" CODANAGR=CODANAGR JOIN LF_ANAG TO LF_ANAGFIS INTO TIPOA="F" CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
OUTPUT F_COFI LF_ANAG->COFI OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
OUTPUT F_SESSO SESSO OUTPUT F_SESSO SESSO
OUTPUT F_DATANASC DATANASC OUTPUT F_DATANASC DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_ANAGR CODANAGR OUTPUT F_ANAGR CODANAGR
FIELD LF_BASE->CODPRO FIELD LF_BASE->CODPRO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 1 7 "Codice fiscale " PROMPT 1 7 "Codice fiscale "
FLAGS "D" FLAGS "D"
END END
STRING F_COGNOME 30 STRING F_COGNOME 30
BEGIN BEGIN
PROMPT 1 8 "Cognome " PROMPT 1 8 "Cognome "
FLAGS "D" FLAGS "D"
END END
STRING F_NOME 20 STRING F_NOME 20
BEGIN BEGIN
PROMPT 1 9 "Nome " PROMPT 1 9 "Nome "
FLAGS "D" FLAGS "D"
END END
STRING F_SESSO 1 STRING F_SESSO 1
BEGIN BEGIN
PROMPT 39 9 "Sesso " PROMPT 39 9 "Sesso "
FLAGS "D" FLAGS "D"
END END
DATE F_DATANASC DATE F_DATANASC
BEGIN BEGIN
PROMPT 49 9 "Data di nascita " PROMPT 49 9 "Data di nascita "
FLAGS "D" FLAGS "D"
END END
STRING F_COMNASC 50 STRING F_COMNASC 50
BEGIN BEGIN
PROMPT 1 10 "Comune nascita " PROMPT 1 10 "Comune nascita "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVNASC 5 STRING F_PROVNASC 5
BEGIN BEGIN
PROMPT 70 10 "" PROMPT 70 10 ""
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_CONTROLLI BOOLEAN F_CONTROLLI
BEGIN BEGIN
PROMPT 1 13 "Si attesta che sono stati eseguiti i controlli di cui art.4" PROMPT 1 13 "Si attesta che sono stati eseguiti i controlli di cui art.4"
FIELD LF_BASE->FLART4 FIELD LF_BASE->FLART4
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

520
m770/771100g.uml
View File

@ -1,260 +1,260 @@
#include "771100.h" #include "771100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
/* questi button vengono abilitati alternativamente /* questi button vengono abilitati alternativamente
dal listbox ghost F_TIPOA2BTN */ dal listbox ghost F_TIPOA2BTN */
BUTTON F_BTN_GIURIDICA 10 2 BUTTON F_BTN_GIURIDICA 10 2
BEGIN BEGIN
PROMPT -14 -1 "~Giuridiche" PROMPT -14 -1 "~Giuridiche"
END END
BUTTON F_BTN_FISICA 10 2 BUTTON F_BTN_FISICA 10 2
BEGIN BEGIN
PROMPT -14 -1 "~Fisiche" PROMPT -14 -1 "~Fisiche"
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -24 -1 "" PROMPT -24 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -34 -1 "" PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -44 -1 "" PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Concessione / UIDD" -1 -1 78 18 PAGE "Concessione / UIDD" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_ANAGR CODANAGR OUTPUT F_ANAGR CODANAGR
OUTPUT F_TIPOA2BTN TIPOA OUTPUT F_TIPOA2BTN TIPOA
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
STRING F_TIPOA 1 STRING F_TIPOA 1
BEGIN BEGIN
PROMPT -1 -1 "" PROMPT -1 -1 ""
FLAGS "H" FLAGS "H"
END END
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT -1 -1 "" PROMPT -1 -1 ""
FLAGS "H" FLAGS "H"
END END
NUMBER F_CODCONC1 3 NUMBER F_CODCONC1 3
BEGIN BEGIN
PROMPT 1 5 "Cod.Concessione " PROMPT 1 5 "Cod.Concessione "
FLAGS "DRZ" FLAGS "DRZ"
FIELD LF_BASEBIS->L0CCONC1 FIELD LF_BASEBIS->L0CCONC1
END END
NUMBER F_CODCONC2 3 NUMBER F_CODCONC2 3
BEGIN BEGIN
PROMPT 23 5 "Cod.Concessione " PROMPT 23 5 "Cod.Concessione "
FLAGS "RZ" FLAGS "RZ"
USE %UCC USE %UCC
INPUT CODTAB F_CODCONC2 INPUT CODTAB F_CODCONC2
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Ufficio@35" S0 DISPLAY "Ufficio@35" S0
OUTPUT F_CODCONC2 CODTAB OUTPUT F_CODCONC2 CODTAB
HELP "Codice dell'ufficio concessioni" HELP "Codice dell'ufficio concessioni"
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD LF_BASEBIS->L0CCONC2 FIELD LF_BASEBIS->L0CCONC2
END END
NUMBER F_CODCONC3 3 NUMBER F_CODCONC3 3
BEGIN BEGIN
PROMPT 47 5 "Cod.Concessione " PROMPT 47 5 "Cod.Concessione "
FLAGS "RZ" FLAGS "RZ"
COPY USE F_CODCONC2 COPY USE F_CODCONC2
INPUT CODTAB F_CODCONC3 INPUT CODTAB F_CODCONC3
COPY DISPLAY F_CODCONC2 COPY DISPLAY F_CODCONC2
OUTPUT F_CODCONC3 CODTAB OUTPUT F_CODCONC3 CODTAB
HELP "Codice dell'ufficio concessioni" HELP "Codice dell'ufficio concessioni"
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD LF_BASEBIS->L0CCONC3 FIELD LF_BASEBIS->L0CCONC3
END END
NUMBER F_CODTES1 3 NUMBER F_CODTES1 3
BEGIN BEGIN
PROMPT 1 6 "Cod.Tesoreria " PROMPT 1 6 "Cod.Tesoreria "
FLAGS "RZ" FLAGS "RZ"
FIELD LF_BASEBIS->L0CTES1 FIELD LF_BASEBIS->L0CTES1
END END
NUMBER F_CODTES2 3 NUMBER F_CODTES2 3
BEGIN BEGIN
PROMPT 23 6 "Cod.Tesoreria " PROMPT 23 6 "Cod.Tesoreria "
FLAGS "RZ" FLAGS "RZ"
FIELD LF_BASEBIS->L0CTES2 FIELD LF_BASEBIS->L0CTES2
END END
NUMBER F_CODTES3 3 NUMBER F_CODTES3 3
BEGIN BEGIN
PROMPT 47 6 "Cod.Tesoreria " PROMPT 47 6 "Cod.Tesoreria "
FLAGS "RZ" FLAGS "RZ"
FIELD LF_BASEBIS->L0CTES3 FIELD LF_BASEBIS->L0CTES3
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 8 "" PROMPT 0 8 ""
END END
NUMBER F_CODUI 3 NUMBER F_CODUI 3
BEGIN BEGIN
PROMPT 1 9 "Ufficio imposte " PROMPT 1 9 "Ufficio imposte "
FLAGS "RZD" FLAGS "RZD"
USE %UID USE %UID
JOIN LF_COMUNI TO %UID INTO COM==S6 JOIN LF_COMUNI TO %UID INTO COM==S6
INPUT CODTAB F_CODUI INPUT CODTAB F_CODUI
OUTPUT F_DESCRUI S0 OUTPUT F_DESCRUI S0
OUTPUT F_INDUI S1 OUTPUT F_INDUI S1
OUTPUT F_CIVUI S3 OUTPUT F_CIVUI S3
OUTPUT F_CAPUI S7 OUTPUT F_CAPUI S7
OUTPUT F_COMUI LF_COMUNI->DENCOM OUTPUT F_COMUI LF_COMUNI->DENCOM
OUTPUT F_PROVUI LF_COMUNI->PROVCOM OUTPUT F_PROVUI LF_COMUNI->PROVCOM
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESCRUI 50 STRING F_DESCRUI 50
BEGIN BEGIN
PROMPT 25 9 "" PROMPT 25 9 ""
FLAGS "D" FLAGS "D"
END END
STRING F_INDUI 35 STRING F_INDUI 35
BEGIN BEGIN
PROMPT 1 10 "Indirizzo " PROMPT 1 10 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVUI 10 STRING F_CIVUI 10
BEGIN BEGIN
PROMPT 47 10 "" PROMPT 47 10 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPUI 5 STRING F_CAPUI 5
BEGIN BEGIN
PROMPT 63 10 "C.A.P. " PROMPT 63 10 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMUI 50 STRING F_COMUI 50
BEGIN BEGIN
PROMPT 1 11 "Comune " PROMPT 1 11 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVUI 5 STRING F_PROVUI 5
BEGIN BEGIN
PROMPT 63 11 "Prov. " PROMPT 63 11 "Prov. "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 14 "" PROMPT 0 14 ""
END END
NUMBER F_CODCS 3 NUMBER F_CODCS 3
BEGIN BEGIN
PROMPT 1 15 "Centro servizi " PROMPT 1 15 "Centro servizi "
FLAGS "RZD" FLAGS "RZD"
USE %UCS USE %UCS
JOIN LF_COMUNI TO %UCS INTO COM==S6 JOIN LF_COMUNI TO %UCS INTO COM==S6
INPUT CODTAB F_CODCS INPUT CODTAB F_CODCS
OUTPUT F_DESCRCS S0 OUTPUT F_DESCRCS S0
OUTPUT F_INDCS S1 OUTPUT F_INDCS S1
OUTPUT F_CIVCS S3 OUTPUT F_CIVCS S3
OUTPUT F_CAPCS S7 OUTPUT F_CAPCS S7
OUTPUT F_COMCS LF_COMUNI->DENCOM OUTPUT F_COMCS LF_COMUNI->DENCOM
OUTPUT F_PROVCS LF_COMUNI->PROVCOM OUTPUT F_PROVCS LF_COMUNI->PROVCOM
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESCRCS 50 STRING F_DESCRCS 50
BEGIN BEGIN
PROMPT 25 15 "" PROMPT 25 15 ""
FLAGS "D" FLAGS "D"
END END
STRING F_INDCS 35 STRING F_INDCS 35
BEGIN BEGIN
PROMPT 1 16 "Indirizzo " PROMPT 1 16 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_CIVCS 10 STRING F_CIVCS 10
BEGIN BEGIN
PROMPT 47 16 "" PROMPT 47 16 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CAPCS 5 STRING F_CAPCS 5
BEGIN BEGIN
PROMPT 63 16 "C.A.P. " PROMPT 63 16 "C.A.P. "
FLAGS "D" FLAGS "D"
END END
STRING F_COMCS 50 STRING F_COMCS 50
BEGIN BEGIN
PROMPT 1 17 "Comune " PROMPT 1 17 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROVCS 5 STRING F_PROVCS 5
BEGIN BEGIN
PROMPT 63 17 "Prov. " PROMPT 63 17 "Prov. "
FLAGS "D" FLAGS "D"
END END
LISTBOX F_TIPOA2BTN 1 LISTBOX F_TIPOA2BTN 1
BEGIN BEGIN
PROMPT -1 -1 "" PROMPT -1 -1 ""
FLAGS "GH" FLAGS "GH"
ITEM "F|F" ITEM "F|F"
MESSAGE HIDE,F_BTN_GIURIDICA|SHOW,F_BTN_FISICA MESSAGE HIDE,F_BTN_GIURIDICA|SHOW,F_BTN_FISICA
ITEM "G|G" ITEM "G|G"
MESSAGE SHOW,F_BTN_GIURIDICA|HIDE,F_BTN_FISICA MESSAGE SHOW,F_BTN_GIURIDICA|HIDE,F_BTN_FISICA
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

428
m770/771100h.uml
View File

@ -1,214 +1,214 @@
#include "771100.h" #include "771100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2 BUTTON DLG_SAVEREC 8 2
BEGIN BEGIN
PROMPT -16 -1 "" PROMPT -16 -1 ""
FLAGS "D" FLAGS "D"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_NEWREC 8 2 BUTTON DLG_NEWREC 8 2
BEGIN BEGIN
PROMPT -26 -1 "~Nuovo" PROMPT -26 -1 "~Nuovo"
MESSAGE EXIT,K_INS MESSAGE EXIT,K_INS
FLAGS "D" FLAGS "D"
PICTURE BMP_NEWREC PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN PICTURE BMP_NEWRECDN
END END
BUTTON DLG_DELREC 8 2 BUTTON DLG_DELREC 8 2
BEGIN BEGIN
PROMPT -36 -1 "~Elimina" PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_FINDREC 8 2 BUTTON DLG_FINDREC 8 2
BEGIN BEGIN
PROMPT -46 -1 "Ri~cerca" PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9 MESSAGE EXIT,K_F9
FLAGS "D" FLAGS "D"
PICTURE BMP_FINDREC PICTURE BMP_FINDREC
END END
BUTTON DLG_CANCEL 8 2 BUTTON DLG_CANCEL 8 2
BEGIN BEGIN
PROMPT -56 -1 "" PROMPT -56 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -66 -1 "" PROMPT -66 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE " Manutenzione dati societa' trasformate " -1 -1 78 18 PAGE " Manutenzione dati societa' trasformate " -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER MDSTF_CODDITTA 5 NUMBER MDSTF_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA MDSTF_CODDITTA INPUT CODDITTA MDSTF_CODDITTA
OUTPUT MDSTF_RAGSOC RAGSOC OUTPUT MDSTF_RAGSOC RAGSOC
FIELD LF_SOCTRASF->CODDITTA FIELD LF_SOCTRASF->CODDITTA
END END
STRING MDSTF_RAGSOC 50 STRING MDSTF_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 0 4 "Persone fisiche: imprese individuali e soggetti esercenti arti e professioni" PROMPT 0 4 "Persone fisiche: imprese individuali e soggetti esercenti arti e professioni"
GROUP 1 GROUP 1
END END
STRING F_SOC_COFI 16 STRING F_SOC_COFI 16
BEGIN BEGIN
PROMPT 1 5 "Codice fiscale " PROMPT 1 5 "Codice fiscale "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD LF_SOCTRASF->CODFISC FIELD LF_SOCTRASF->CODFISC
GROUP 1 GROUP 1
END END
STRING F_SOC_COGNOME 30 STRING F_SOC_COGNOME 30
BEGIN BEGIN
PROMPT 1 6 "Cognome " PROMPT 1 6 "Cognome "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD LF_SOCTRASF->DENOMIN[1,30] FIELD LF_SOCTRASF->DENOMIN[1,30]
GROUP 1 GROUP 1
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 48 6 "(Per donne quello da nubile)" PROMPT 48 6 "(Per donne quello da nubile)"
GROUP 1 GROUP 1
END END
STRING F_SOC_NOME 20 STRING F_SOC_NOME 20
BEGIN BEGIN
PROMPT 1 7 "Nome " PROMPT 1 7 "Nome "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD LF_SOCTRASF->NOME FIELD LF_SOCTRASF->NOME
GROUP 1 GROUP 1
END END
STRING F_SOC_SESSO 1 STRING F_SOC_SESSO 1
BEGIN BEGIN
PROMPT 39 7 "Sesso " PROMPT 39 7 "Sesso "
FIELD LF_SOCTRASF->SESSO FIELD LF_SOCTRASF->SESSO
GROUP 1 GROUP 1
END END
DATE F_SOC_DATANAS DATE F_SOC_DATANAS
BEGIN BEGIN
PROMPT 48 7 "Data di nascita " PROMPT 48 7 "Data di nascita "
FIELD LF_SOCTRASF->DATANAS FIELD LF_SOCTRASF->DATANAS
GROUP 1 GROUP 1
END END
STRING F_SOC_COMUNE 20 STRING F_SOC_COMUNE 20
BEGIN BEGIN
PROMPT 1 8 "Comune " PROMPT 1 8 "Comune "
FIELD LF_SOCTRASF->COMNAS FIELD LF_SOCTRASF->COMNAS
GROUP 1 GROUP 1
END END
STRING F_SOC_PROVNAS 2 STRING F_SOC_PROVNAS 2
BEGIN BEGIN
PROMPT 48 8 "Provincia " PROMPT 48 8 "Provincia "
FIELD LF_SOCTRASF->PROVNAS FIELD LF_SOCTRASF->PROVNAS
GROUP 1 GROUP 1
FLAGS "U" FLAGS "U"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 4 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917" PROMPT 0 4 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917"
GROUP 2 GROUP 2
END END
STRING F_SOC_COFI 16 STRING F_SOC_COFI 16
BEGIN BEGIN
PROMPT 1 5 "Codice fiscale " PROMPT 1 5 "Codice fiscale "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD LF_SOCTRASF->CODFISC FIELD LF_SOCTRASF->CODFISC
GROUP 2 GROUP 2
END END
STRING F_SOC_DENOMIN 40 STRING F_SOC_DENOMIN 40
BEGIN BEGIN
PROMPT 1 6 "Denominazione " PROMPT 1 6 "Denominazione "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD LF_SOCTRASF->DENOMIN FIELD LF_SOCTRASF->DENOMIN
GROUP 2 GROUP 2
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 10 "Domicilio" PROMPT 0 10 "Domicilio"
END END
STRING F_SOC_COMRES 20 STRING F_SOC_COMRES 20
BEGIN BEGIN
PROMPT 1 11 "Comune " PROMPT 1 11 "Comune "
FIELD LF_SOCTRASF->COMDOM FIELD LF_SOCTRASF->COMDOM
END END
STRING F_SOC_PROVRES 2 STRING F_SOC_PROVRES 2
BEGIN BEGIN
PROMPT 48 11 "Provincia " PROMPT 48 11 "Provincia "
FIELD LF_SOCTRASF->PROVDOM FIELD LF_SOCTRASF->PROVDOM
FLAGS "U" FLAGS "U"
END END
STRING F_SOC_INDRES 35 STRING F_SOC_INDRES 35
BEGIN BEGIN
PROMPT 1 12 "Indirizzo " PROMPT 1 12 "Indirizzo "
FIELD LF_SOCTRASF->INDDOM FIELD LF_SOCTRASF->INDDOM
END END
NUMBER F_SOC_CONSBOCC 5 NUMBER F_SOC_CONSBOCC 5
BEGIN BEGIN
PROMPT 1 14 "Consistenza base occupazionale al 12/06/94 " PROMPT 1 14 "Consistenza base occupazionale al 12/06/94 "
FIELD LF_SOCTRASF->CONSBOCC FIELD LF_SOCTRASF->CONSBOCC
END END
NUMBER F_SOC_LAVDIPCIN 5 NUMBER F_SOC_LAVDIPCIN 5
BEGIN BEGIN
PROMPT 1 15 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 " PROMPT 1 15 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 "
FIELD LF_SOCTRASF->LAVDIPCIN FIELD LF_SOCTRASF->LAVDIPCIN
END END
DATE F_SOC_DATAINPI DATE F_SOC_DATAINPI
BEGIN BEGIN
PROMPT 1 16 "Periodo d'imposta dal " PROMPT 1 16 "Periodo d'imposta dal "
FIELD LF_SOCTRASF->DATAINPI FIELD LF_SOCTRASF->DATAINPI
END END
DATE F_SOC_DATAFINPI DATE F_SOC_DATAFINPI
BEGIN BEGIN
PROMPT 34 16 " al " PROMPT 34 16 " al "
FIELD LF_SOCTRASF->DATAFINPI FIELD LF_SOCTRASF->DATAFINPI
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

1020
m770/771150a.uml
View File

File diff suppressed because it is too large Load Diff

2034
m770/771200.cpp
View File

File diff suppressed because it is too large Load Diff

378
m770/771200.h
View File

@ -1,189 +1,189 @@
// Campi maschere manutenzione quadro A // Campi maschere manutenzione quadro A
// 771200a.uml // 771200a.uml
#define QAF_CODDITTA 181 #define QAF_CODDITTA 181
#define QAF_RAGDITTA 102 #define QAF_RAGDITTA 102
#define QAF_ANNODIC 103 #define QAF_ANNODIC 103
#define F_CODIP 104 #define F_CODIP 104
#define F_CODANAGDIP 105 #define F_CODANAGDIP 105
#define QAF_COGNOME 106 #define QAF_COGNOME 106
#define QAF_NOME 107 #define QAF_NOME 107
#define F_COGNOMEDIP 182 #define F_COGNOMEDIP 182
#define F_NOMEDIP 183 #define F_NOMEDIP 183
#define QAF_NPROG 108 #define QAF_NPROG 108
// 771200b.uml // 771200b.uml
//#define F_BASEOCC 109 //#define F_BASEOCC 109
#define F_DATAIR 110 #define F_DATAIR 110
#define F_DATAFR 111 #define F_DATAFR 111
#define F_CAUSA 112 #define F_CAUSA 112
#define F_DENARO 113 #define F_DENARO 113
#define F_NATURA 114 #define F_NATURA 114
#define F_COBBDIP21 116 #define F_COBBDIP21 116
#define F_COMPNETTI 117 #define F_COMPNETTI 117
#define F_AIEREP23 118 #define F_AIEREP23 118
#define F_AMMLORDO24 119 #define F_AMMLORDO24 119
#define F_IACOBBCD25 120 #define F_IACOBBCD25 120
#define F_TOTIMP26 121 #define F_TOTIMP26 121
#define F_CCTAMMCONT 122 #define F_CCTAMMCONT 122
#define F_CCTAMNACON 123 #define F_CCTAMNACON 123
#define F_TOTIMP29 124 #define F_TOTIMP29 124
#define F_ICTOTIMP30 125 #define F_ICTOTIMP30 125
#define F_DETCC 126 #define F_DETCC 126
#define F_DETFC 127 #define F_DETFC 127
#define F_DETAF 128 #define F_DETAF 128
#define F_DETLD 129 #define F_DETLD 129
#define F_DETO 130 #define F_DETO 130
#define F_TOTDET36 131 #define F_TOTDET36 131
#define F_AMRIOT37 132 #define F_AMRIOT37 132
#define F_AMRIODL38 133 #define F_AMRIODL38 133
#define F_ECCRITRIMB 134 #define F_ECCRITRIMB 134
#define F_AMMRITDOV 135 #define F_AMMRITDOV 135
#define F_ERSPSAN41 136 #define F_ERSPSAN41 136
#define F_PRASSVI42 137 #define F_PRASSVI42 137
#define F_CONPRECO43 138 #define F_CONPRECO43 138
#define F_COBBDIP44 139 #define F_COBBDIP44 139
#define F_AMMIMP45 140 #define F_AMMIMP45 140
#define F_DETIMPOS46 141 #define F_DETIMPOS46 141
#define F_RITESEG47 142 #define F_RITESEG47 142
#define F_SVNASSRI48 143 #define F_SVNASSRI48 143
#define F_AIFCSSN49 144 #define F_AIFCSSN49 144
#define F_CFCONINPS 145 #define F_CFCONINPS 145
#define F_SASS95 146 #define F_SASS95 146
#define F_CONEFF50 147 #define F_CONEFF50 147
#define F_IMPVERS51 148 #define F_IMPVERS51 148
#define F_ISOPTAS52 149 #define F_ISOPTAS52 149
#define F_CONTRVER53 150 #define F_CONTRVER53 150
#define F_ISOPTAS54 151 #define F_ISOPTAS54 151
#define F_CNEFF55 152 #define F_CNEFF55 152
#define F_RETCON56 153 #define F_RETCON56 153
#define F_IMPRIMB57 154 #define F_IMPRIMB57 154
#define F_IMPVER58 155 #define F_IMPVER58 155
#define F_INTIRPEF59 156 #define F_INTIRPEF59 156
#define F_IMPVER60 157 #define F_IMPVER60 157
#define F_INTER61 158 #define F_INTER61 158
#define F_STSIRPEF62 159 #define F_STSIRPEF62 159
#define F_CONRIMB63 160 #define F_CONRIMB63 160
#define F_CONVER64 161 #define F_CONVER64 161
#define F_INTER65 162 #define F_INTER65 162
#define F_CONVER66 163 #define F_CONVER66 163
#define F_INTER67 164 #define F_INTER67 164
#define F_STSCSSN68 165 #define F_STSCSSN68 165
#define F_SEGDICNL69 166 #define F_SEGDICNL69 166
#define F_CIIAT 167 #define F_CIIAT 167
#define F_CIPA 168 #define F_CIPA 168
#define F_CODCAAF 169 #define F_CODCAAF 169
#define F_NUMGIORNI 170 #define F_NUMGIORNI 170
#define F_CODFISDL 171 #define F_CODFISDL 171
#define F_DENCAAF 173 #define F_DENCAAF 173
#define F_CODFISCAAF 174 #define F_CODFISCAAF 174
#define F_NISCRA 175 #define F_NISCRA 175
#define F_CODIP2 190 #define F_CODIP2 190
#define QA_RAGSOC2 191 #define QA_RAGSOC2 191
// 771200d.uml // 771200d.uml
#define F_MESEANNO 200 #define F_MESEANNO 200
#define F_IMPRIMB9 201 #define F_IMPRIMB9 201
#define F_IMPVERS10 202 #define F_IMPVERS10 202
#define F_INTER11 203 #define F_INTER11 203
#define F_IMPVERS12 204 #define F_IMPVERS12 204
#define F_INTER13 205 #define F_INTER13 205
#define F_STASSA14 206 #define F_STASSA14 206
#define F_CONTRIMB15 207 #define F_CONTRIMB15 207
#define F_CONTVERS16 208 #define F_CONTVERS16 208
#define F_INTER17 209 #define F_INTER17 209
#define F_CONTVER18 210 #define F_CONTVER18 210
#define F_INTER19 211 #define F_INTER19 211
#define F_STASSA20 212 #define F_STASSA20 212
#define F_CONNEFF21 213 #define F_CONNEFF21 213
#define F_TIPOCONG22 214 #define F_TIPOCONG22 214
#define F_DATARIC29 215 #define F_DATARIC29 215
// 771200f.uml // 771200f.uml
#define F_IIRPEFVER8 250 #define F_IIRPEFVER8 250
#define F_IIRPEFRI9 251 #define F_IIRPEFRI9 251
#define F_PRIRPEF10 252 #define F_PRIRPEF10 252
#define F_STASSA12 254 #define F_STASSA12 254
#define F_CONTR13 255 #define F_CONTR13 255
#define F_CONTR14 256 #define F_CONTR14 256
#define F_PRCSSN15 257 #define F_PRCSSN15 257
#define F_INTER16 258 #define F_INTER16 258
#define F_STASSA17 259 #define F_STASSA17 259
#define F_VEFFCON18 260 #define F_VEFFCON18 260
#define F_SDNLIQ19 261 #define F_SDNLIQ19 261
#define F_RETCON20 262 #define F_RETCON20 262
// Campi maschera 771200g.uml // Campi maschera 771200g.uml
#define F_CODIPQUADRO 300 #define F_CODIPQUADRO 300
#define F_BASEOCCUPA 301 #define F_BASEOCCUPA 301
// Campi maschera 771200h.uml // Campi maschera 771200h.uml
#define F_DIRAPTI 350 #define F_DIRAPTI 350
#define F_NGINC15 351 #define F_NGINC15 351
#define F_REDCOR16 352 #define F_REDCOR16 352
#define F_NGINC17 353 #define F_NGINC17 353
#define F_REDCOR18 354 #define F_REDCOR18 354
#define F_DIRAPTI_2 355 #define F_DIRAPTI_2 355
#define F_NGINC15_2 356 #define F_NGINC15_2 356
#define F_REDCOR16_2 357 #define F_REDCOR16_2 357
#define F_NGINC17_2 358 #define F_NGINC17_2 358
#define F_REDCOR18_2 359 #define F_REDCOR18_2 359
#define F_CODDITTA_2 360 #define F_CODDITTA_2 360
#define F_CODIP_2 361 #define F_CODIP_2 361
#define F_CODIP2_2 362 #define F_CODIP2_2 362
#define F_COGNOME_2 363 #define F_COGNOME_2 363
#define F_NOME_2 364 #define F_NOME_2 364
#define F_NPROG_2 365 #define F_NPROG_2 365
#define F_DENTRASF 366 #define F_DENTRASF 366
#define F_COGNTRASF 367 #define F_COGNTRASF 367
#define F_NOMETRASF 368 #define F_NOMETRASF 368
// Campi maschera 771200i.uml // Campi maschera 771200i.uml
#define F_BSE_CONSBASOCC 400 #define F_BSE_CONSBASOCC 400
#define F_BSE_LAVDIPCIN 401 #define F_BSE_LAVDIPCIN 401
#define F_BSE_DATAINPI 402 #define F_BSE_DATAINPI 402
#define F_BSE_DATAFINPI 403 #define F_BSE_DATAFINPI 403
// //
// Modifiche 95->96 // Modifiche 95->96
// //
// Quadro A // Quadro A
#define QAF_AREAATT 405 #define QAF_AREAATT 405
#define QAF_TIPOATT 406 #define QAF_TIPOATT 406
#define QAF_SVNSOGRIT 407 #define QAF_SVNSOGRIT 407
#define QAF_INCDETFC 408 #define QAF_INCDETFC 408
#define QAF_GIODET 409 #define QAF_GIODET 409
// Quadro A1 // Quadro A1
#define QA1F_ANNORIF 410 #define QA1F_ANNORIF 410
// Quadro A2 // Quadro A2
#define QA2F_CNEFF 411 #define QA2F_CNEFF 411
#define QA2F_RETCON 412 #define QA2F_RETCON 412
#define QA2F_CSSNCRIMB 413 #define QA2F_CSSNCRIMB 413
#define QA2F_CSSNCVER 414 #define QA2F_CSSNCVER 414
#define QA2F_CSSNINT 415 #define QA2F_CSSNINT 415
#define QA2F_CSSNAIV 416 #define QA2F_CSSNAIV 416
#define QA2F_CSSNAINT 417 #define QA2F_CSSNAINT 417
#define QA2F_STCSSN 418 #define QA2F_STCSSN 418
#define QA2F_730NLIQ 419 #define QA2F_730NLIQ 419
#define F_CODANAGDIPQA 420 #define F_CODANAGDIPQA 420
#define G_ALL 12 #define G_ALL 12
#define G_730 9 #define G_730 9
#define G_770 7 #define G_770 7
#define G_2342 6 #define G_2342 6
#define QAF_ALLEG_A 421 #define QAF_ALLEG_A 421
#define QA2F_ALLEG_A2 422 #define QA2F_ALLEG_A2 422

264
m770/771200a.uml
View File

@ -1,132 +1,132 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
#include <toolbar.h> #include <toolbar.h>
BUTTON QAF_ALLEG_A 24 2 BUTTON QAF_ALLEG_A 24 2
BEGIN BEGIN
PROMPT -13 -3 "~Allegati 730/96" PROMPT -13 -3 "~Allegati 730/96"
END END
ENDPAGE ENDPAGE
#define G_DIPEND 1 #define G_DIPEND 1
#define G_QUADROA 2 #define G_QUADROA 2
PAGE "Quadro A" -1 -1 78 21 PAGE "Quadro A" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA->CODDITTA FIELD LF_QUAA->CODDITTA
END END
STRING QAF_RAGDITTA 50 STRING QAF_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_ANNODIC 4 NUMBER QAF_ANNODIC 4
BEGIN BEGIN
PROMPT 52 3 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati dipendente" PROMPT 1 7 "@bDati dipendente"
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA->CODDIP FIELD LF_QUAA->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER F_CODANAGDIP 6 NUMBER F_CODANAGDIP 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT (CODDITTA==#QAF_CODDITTA) USE LF_DIPEND KEY 1 SELECT (CODDITTA==#QAF_CODDITTA)
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
FLAGS "H" FLAGS "H"
GROUP G_DIPEND GROUP G_DIPEND
KEY 1 KEY 1
END END
NUMBER F_CODANAGDIPQA 6 NUMBER F_CODANAGDIPQA 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_QUAA KEY 1 SELECT (CODDITTA==#QAF_CODDITTA) USE LF_QUAA KEY 1 SELECT (CODDITTA==#QAF_CODDITTA)
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIPQA CODDIP OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
GROUP G_QUADROA GROUP G_QUADROA
KEY 1 KEY 1
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 8 "" PROMPT 49 8 ""
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 1 10 "@bNumero " PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_QUAA KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
INPUT NPROG QAF_NPROG INPUT NPROG QAF_NPROG
DISPLAY "Codice@10" CODDIP DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODIP CODDIP OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA->NPROG FIELD LF_QUAA->NPROG
KEY 1 KEY 1
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2000
m770/771200b.uml
View File

File diff suppressed because it is too large Load Diff

246
m770/771200c.uml
View File

@ -1,124 +1,124 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
#define G_DIPEND 1 #define G_DIPEND 1
#define G_QUADROA 2 #define G_QUADROA 2
PAGE "Quadro A1" -1 -1 78 21 PAGE "Quadro A1" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA1->CODDITTA FIELD LF_QUAA1->CODDITTA
END END
STRING QAF_RAGDITTA 50 STRING QAF_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_ANNODIC 4 NUMBER QAF_ANNODIC 4
BEGIN BEGIN
PROMPT 52 3 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati dipendente" PROMPT 1 7 "@bDati dipendente"
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA1->CODDIP FIELD LF_QUAA1->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER F_CODANAGDIP 6 NUMBER F_CODANAGDIP 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
GROUP G_DIPEND GROUP G_DIPEND
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
FLAGS "H" FLAGS "H"
END END
NUMBER F_CODANAGDIPQA 6 NUMBER F_CODANAGDIPQA 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIPQA CODDIP OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
GROUP G_QUADROA GROUP G_QUADROA
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 8 "" PROMPT 49 8 ""
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 1 10 "@bNumero " PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
FIELD LF_QUAA1->NPROG FIELD LF_QUAA1->NPROG
USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
INPUT NPROG QAF_NPROG INPUT NPROG QAF_NPROG
DISPLAY "Codice@10" CODDIP DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODIP CODDIP OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG OUTPUT QAF_NPROG NPROG
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

612
m770/771200d.uml
View File

@ -1,307 +1,307 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "1" -1 -1 78 21 PAGE "1" -1 -1 78 21
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA1->CODDITTA FIELD LF_QUAA1->CODDITTA
KEY 1 KEY 1
MESSAGE COPY,1@ MESSAGE COPY,1@
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
USE LF_DIPEND KEY 1 USE LF_DIPEND KEY 1
FIELD LF_QUAA1->CODDIP FIELD LF_QUAA1->CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,2@ MESSAGE COPY,2@
KEY 1 KEY 1
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,3@ MESSAGE COPY,3@
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,4@ MESSAGE COPY,4@
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FIELD LF_QUAA1->NPROG FIELD LF_QUAA1->NPROG
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
MESSAGE COPY,5@ MESSAGE COPY,5@
END END
LISTBOX F_MESEANNO 9 LISTBOX F_MESEANNO 9
BEGIN BEGIN
PROMPT 2 3 "8 Periodo di riferimento " PROMPT 2 3 "8 Periodo di riferimento "
FLAGS "M" FLAGS "M"
FIELD LF_QUAA1->MESERIF FIELD LF_QUAA1->MESERIF
END END
NUMBER QA1F_ANNORIF 4 NUMBER QA1F_ANNORIF 4
BEGIN BEGIN
PROMPT 44 3 "" PROMPT 44 3 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA1->ANNORIF FIELD LF_QUAA1->ANNORIF
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 4 "@bSaldo IRPEF per il 1994" PROMPT 1 4 "@bSaldo IRPEF per il 1994"
END END
NUMBER F_IMPRIMB9 15 NUMBER F_IMPRIMB9 15
BEGIN BEGIN
PROMPT 2 5 "9 Imposta rimbors. " PROMPT 2 5 "9 Imposta rimbors. "
FIELD LF_QUAA1->IMPRIMB9 FIELD LF_QUAA1->IMPRIMB9
PICTURE "." PICTURE "."
END END
NUMBER F_IMPVERS10 15 NUMBER F_IMPVERS10 15
BEGIN BEGIN
PROMPT 45 5 "10 Imposta ver. " PROMPT 45 5 "10 Imposta ver. "
FIELD LF_QUAA1->IMPVERS10 FIELD LF_QUAA1->IMPVERS10
PICTURE "." PICTURE "."
END END
NUMBER F_INTER11 15 NUMBER F_INTER11 15
BEGIN BEGIN
PROMPT 2 6 "11 Interessi " PROMPT 2 6 "11 Interessi "
FIELD LF_QUAA1->INTER11 FIELD LF_QUAA1->INTER11
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 8 "@bPrima rata acconto IRPEF per il 1995" PROMPT 1 8 "@bPrima rata acconto IRPEF per il 1995"
END END
NUMBER F_IMPVERS12 15 NUMBER F_IMPVERS12 15
BEGIN BEGIN
PROMPT 2 9 "12 Imposta versata " PROMPT 2 9 "12 Imposta versata "
FIELD LF_QUAA1->IMPVERS12 FIELD LF_QUAA1->IMPVERS12
PICTURE "." PICTURE "."
END END
NUMBER F_INTER13 15 NUMBER F_INTER13 15
BEGIN BEGIN
PROMPT 45 9 "13 Interessi " PROMPT 45 9 "13 Interessi "
FIELD LF_QUAA1->INTER13 FIELD LF_QUAA1->INTER13
PICTURE "." PICTURE "."
END END
NUMBER F_STASSA14 15 NUMBER F_STASSA14 15
BEGIN BEGIN
PROMPT 2 10 "14 Soprattassa su IRPEF saldo 94 e prima rata acconto 95 " PROMPT 2 10 "14 Soprattassa su IRPEF saldo 94 e prima rata acconto 95 "
FIELD LF_QUAA1->STASSA14 FIELD LF_QUAA1->STASSA14
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 12 "@bSaldo C.S.S.N. per il 1994" PROMPT 1 12 "@bSaldo C.S.S.N. per il 1994"
END END
NUMBER F_CONTRIMB15 15 NUMBER F_CONTRIMB15 15
BEGIN BEGIN
PROMPT 2 13 "15 Cont. a rimborso" PROMPT 2 13 "15 Cont. a rimborso"
FIELD LF_QUAA1->CONTRIMB15 FIELD LF_QUAA1->CONTRIMB15
PICTURE "." PICTURE "."
HELP "Contributo a rimborso" HELP "Contributo a rimborso"
END END
NUMBER F_CONTVERS16 15 NUMBER F_CONTVERS16 15
BEGIN BEGIN
PROMPT 45 13 "16 Cont.versato " PROMPT 45 13 "16 Cont.versato "
FIELD LF_QUAA1->CONTVERS16 FIELD LF_QUAA1->CONTVERS16
PICTURE "." PICTURE "."
HELP "Contributo versato" HELP "Contributo versato"
END END
NUMBER F_INTER17 15 NUMBER F_INTER17 15
BEGIN BEGIN
PROMPT 2 14 "17 Interessi " PROMPT 2 14 "17 Interessi "
FIELD LF_QUAA1->INTER17 FIELD LF_QUAA1->INTER17
PICTURE "." PICTURE "."
END END
ENDPAGE ENDPAGE
PAGE "2" -1 -1 78 21 PAGE "2" -1 -1 78 21
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
FLAGS "H" FLAGS "H"
GROUP 1 GROUP 1
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 2 GROUP 2
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 5 GROUP 5
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1995" PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1995"
END END
NUMBER F_CONTVER18 15 NUMBER F_CONTVER18 15
BEGIN BEGIN
PROMPT 2 4 "18 Contributo vers." PROMPT 2 4 "18 Contributo vers."
FIELD LF_QUAA1->CONTVER18 FIELD LF_QUAA1->CONTVER18
PICTURE "." PICTURE "."
END END
NUMBER F_INTER19 15 NUMBER F_INTER19 15
BEGIN BEGIN
PROMPT 45 4 "19 Interessi " PROMPT 45 4 "19 Interessi "
FIELD LF_QUAA1->INTER19 FIELD LF_QUAA1->INTER19
PICTURE "." PICTURE "."
END END
NUMBER F_STASSA20 15 NUMBER F_STASSA20 15
BEGIN BEGIN
PROMPT 2 5 "20 Soprattassa su C.S.S.N. saldo 94 e prima rata acconto 95" PROMPT 2 5 "20 Soprattassa su C.S.S.N. saldo 94 e prima rata acconto 95"
FIELD LF_QUAA1->STASSA20 FIELD LF_QUAA1->STASSA20
PICTURE "." PICTURE "."
END END
STRING F_CONNEFF21 1 STRING F_CONNEFF21 1
BEGIN BEGIN
PROMPT 2 6 "21 Cong. n/effet. " PROMPT 2 6 "21 Cong. n/effet. "
FIELD LF_QUAA1->CONNEFF21 FIELD LF_QUAA1->CONNEFF21
HELP "Conguagli non effettuati" HELP "Conguagli non effettuati"
SHEET "Codice|Descrizione@85" SHEET "Codice|Descrizione@85"
INPUT F_CONNEFF21 INPUT F_CONNEFF21
ITEM " |Niente" ITEM " |Niente"
ITEM "A|Cessazione del rapporto di lavoro" ITEM "A|Cessazione del rapporto di lavoro"
ITEM "B|Aspettativa senza retribuzione" ITEM "B|Aspettativa senza retribuzione"
ITEM "C|Decesso" ITEM "C|Decesso"
ITEM "D|Richiesta di minore secondo acconto" ITEM "D|Richiesta di minore secondo acconto"
ITEM "E|Retribuzione insufficiente" ITEM "E|Retribuzione insufficiente"
ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici"
ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente" ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente"
OUTPUT F_CONNEFF21 OUTPUT F_CONNEFF21
FLAGS "U" FLAGS "U"
END END
STRING F_TIPOCONG22 1 STRING F_TIPOCONG22 1
BEGIN BEGIN
PROMPT 45 6 "22 Tipo cong. " PROMPT 45 6 "22 Tipo cong. "
FIELD LF_QUAA1->TIPOCONG22 FIELD LF_QUAA1->TIPOCONG22
SHEET "Codice|Descrizione@155" SHEET "Codice|Descrizione@155"
INPUT F_TIPOCONG22 INPUT F_TIPOCONG22
ITEM " |Niente" ITEM " |Niente"
ITEM "R|conguaglio tardivo derivante da Mod.730/93 rettificativo ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94 rettificativo" ITEM "R|conguaglio tardivo derivante da Mod.730/93 rettificativo ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94 rettificativo"
ITEM "S|Conguaglio tardivo derivante da comunicazione Mod.730/94 pervenuta entro i termini" ITEM "S|Conguaglio tardivo derivante da comunicazione Mod.730/94 pervenuta entro i termini"
ITEM "T|Conguaglio tardivo derivante da Mod.730/93 ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94" ITEM "T|Conguaglio tardivo derivante da Mod.730/93 ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94"
ITEM "U|Conguaglio conseguente ad incapienza della retribuzione corrisposta nei periodi di paga precedenti ovvero insufficienza del monte ritenute e/o contributi" ITEM "U|Conguaglio conseguente ad incapienza della retribuzione corrisposta nei periodi di paga precedenti ovvero insufficienza del monte ritenute e/o contributi"
OUTPUT F_TIPOCONG22 OUTPUT F_TIPOCONG22
FLAGS "U" FLAGS "U"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 9 "@bDati identificativi del C.A.A.F che ha prestato assistenza " PROMPT 1 9 "@bDati identificativi del C.A.A.F che ha prestato assistenza "
END END
NUMBER F_CODCAAF 5 NUMBER F_CODCAAF 5
BEGIN BEGIN
PROMPT 2 10 "Codice " PROMPT 2 10 "Codice "
FIELD LF_QUAA1->CODCAAF FIELD LF_QUAA1->CODCAAF
USE %CAF USE %CAF
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB F_CODCAAF INPUT CODTAB F_CODCAAF
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "N.ro iscrizione" I1 DISPLAY "N.ro iscrizione" I1
DISPLAY "Codice fiscale@16" S1 DISPLAY "Codice fiscale@16" S1
OUTPUT F_CODCAAF CODTAB OUTPUT F_CODCAAF CODTAB
OUTPUT F_DENCAAF S0 OUTPUT F_DENCAAF S0
OUTPUT F_NISCRA I1 OUTPUT F_NISCRA I1
OUTPUT F_CODFISCAAF S1 OUTPUT F_CODFISCAAF S1
END END
STRING F_DENCAAF 50 STRING F_DENCAAF 50
BEGIN BEGIN
PROMPT 26 10 "" PROMPT 26 10 ""
FLAGS "DU" FLAGS "DU"
END END
STRING F_CODFISCAAF 16 STRING F_CODFISCAAF 16
BEGIN BEGIN
PROMPT 2 11 "23 Cod.fiscale " PROMPT 2 11 "23 Cod.fiscale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NISCRA 5 NUMBER F_NISCRA 5
BEGIN BEGIN
PROMPT 50 11 "25 N.iscrizione albo " PROMPT 50 11 "25 N.iscrizione albo "
FLAGS "D" FLAGS "D"
END END
DATE F_DATARIC29 DATE F_DATARIC29
BEGIN BEGIN
PROMPT 2 12 "26 Data ricezione Modello 730-5 " PROMPT 2 12 "26 Data ricezione Modello 730-5 "
FIELD LF_QUAA1->DATARIC26 FIELD LF_QUAA1->DATARIC26
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

254
m770/771200e.uml
View File

@ -1,128 +1,128 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
#include <toolbar.h> #include <toolbar.h>
BUTTON QA2F_ALLEG_A2 24 2 BUTTON QA2F_ALLEG_A2 24 2
BEGIN BEGIN
PROMPT -13 -3 "~Allegati 730/95" PROMPT -13 -3 "~Allegati 730/95"
END END
ENDPAGE ENDPAGE
#define G_DIPEND 1 #define G_DIPEND 1
#define G_QUADROA 2 #define G_QUADROA 2
PAGE "Quadro A2" -1 -1 78 21 PAGE "Quadro A2" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA2->CODDITTA FIELD LF_QUAA2->CODDITTA
END END
STRING QAF_RAGDITTA 50 STRING QAF_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_ANNODIC 4 NUMBER QAF_ANNODIC 4
BEGIN BEGIN
PROMPT 52 3 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati dipendente" PROMPT 1 7 "@bDati dipendente"
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA2->CODDIP FIELD LF_QUAA2->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER F_CODANAGDIP 6 NUMBER F_CODANAGDIP 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
FLAGS "H" FLAGS "H"
GROUP G_DIPEND GROUP G_DIPEND
END END
NUMBER F_CODANAGDIPQA 6 NUMBER F_CODANAGDIPQA 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIPQA CODDIP OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
GROUP G_QUADROA GROUP G_QUADROA
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 8 "" PROMPT 49 8 ""
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 1 10 "@bNumero " PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
INPUT NPROG QAF_NPROG INPUT NPROG QAF_NPROG
DISPLAY "Codice@10" CODDIP DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODIP CODDIP OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA2->NPROG FIELD LF_QUAA2->NPROG
KEY 1 KEY 1
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

834
m770/771200f.uml
View File

@ -1,418 +1,418 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "1" -1 -1 78 21 PAGE "1" -1 -1 78 21
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA2->CODDITTA FIELD LF_QUAA2->CODDITTA
KEY 1 KEY 1
MESSAGE COPY,1@ MESSAGE COPY,1@
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
USE LF_DIPEND KEY 1 USE LF_DIPEND KEY 1
FIELD LF_QUAA2->CODDIP FIELD LF_QUAA2->CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,2@ MESSAGE COPY,2@
KEY 1 KEY 1
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,3@ MESSAGE COPY,3@
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,4@ MESSAGE COPY,4@
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FIELD LF_QUAA2->NPROG FIELD LF_QUAA2->NPROG
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
MESSAGE COPY,5@ MESSAGE COPY,5@
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 3 "@bASSISTENZA 1995 " PROMPT 1 3 "@bASSISTENZA 1995 "
END END
STRING QA2F_CNEFF 1 STRING QA2F_CNEFF 1
BEGIN BEGIN
PROMPT 2 4 "8 Conguagli non effettuati " PROMPT 2 4 "8 Conguagli non effettuati "
FIELD LF_QUAA2->CONEFF FIELD LF_QUAA2->CONEFF
FLAGS "U" FLAGS "U"
HELP "Conguagli non effettuati relativi all'assistenza 1995" HELP "Conguagli non effettuati relativi all'assistenza 1995"
SHEET "Codice|Descrizione@85" SHEET "Codice|Descrizione@85"
INPUT QA2F_CNEFF INPUT QA2F_CNEFF
ITEM " |Niente" ITEM " |Niente"
ITEM "A|Cessazione del rapporto di lavoro" ITEM "A|Cessazione del rapporto di lavoro"
ITEM "B|Decesso" ITEM "B|Decesso"
ITEM "C|Richiesta di minore secondo acconto" ITEM "C|Richiesta di minore secondo acconto"
ITEM "D|Retribuzione insufficiente" ITEM "D|Retribuzione insufficiente"
ITEM "E|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" ITEM "E|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici"
ITEM "F|Rimborso non effettuato o rimborso effettuato parzialmente" ITEM "F|Rimborso non effettuato o rimborso effettuato parzialmente"
OUTPUT QA2F_CNEFF OUTPUT QA2F_CNEFF
GROUP G_ALL GROUP G_ALL
END END
STRING QA2F_RETCON 1 STRING QA2F_RETCON 1
BEGIN BEGIN
PROMPT 38 4 "9 Rettifica conguaglio " PROMPT 38 4 "9 Rettifica conguaglio "
FIELD LF_QUAA2->RETCON FIELD LF_QUAA2->RETCON
SHEET "Codice|Descrizione@65" SHEET "Codice|Descrizione@65"
INPUT QA2F_RETCON INPUT QA2F_RETCON
ITEM " | " ITEM " | "
ITEM "A|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)" ITEM "A|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)"
ITEM "B|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)" ITEM "B|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)"
ITEM "C|Conguaglio tardivamente effettuato nel mese di luglio" ITEM "C|Conguaglio tardivamente effettuato nel mese di luglio"
OUTPUT QA2F_RETCON OUTPUT QA2F_RETCON
FLAGS "U" FLAGS "U"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 " PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "10 Imp.ver/tr.IRPEF" PROMPT 2 7 "10 Imp.ver/tr.IRPEF"
GROUP G_730 GROUP G_730
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "10 Imposta rimbor. " PROMPT 2 7 "10 Imposta rimbor. "
GROUP G_770 GROUP G_770
END END
NUMBER F_IIRPEFVER8 15 NUMBER F_IIRPEFVER8 15
BEGIN BEGIN
PROMPT 21 7 "" PROMPT 21 7 ""
FIELD LF_QUAA2->SIRPEFRIMB FIELD LF_QUAA2->SIRPEFRIMB
PICTURE "." PICTURE "."
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 7 "11 Imp.da rim.IRPEF" PROMPT 41 7 "11 Imp.da rim.IRPEF"
GROUP G_730 GROUP G_730
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 7 "11 Imposta versata " PROMPT 41 7 "11 Imposta versata "
GROUP G_770 GROUP G_770
END END
NUMBER F_IIRPEFRI9 15 NUMBER F_IIRPEFRI9 15
BEGIN BEGIN
PROMPT 61 7 "" PROMPT 61 7 ""
FIELD LF_QUAA2->VIRPEF FIELD LF_QUAA2->VIRPEF
PICTURE "." PICTURE "."
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 8 "12 Interessi " PROMPT 2 8 "12 Interessi "
GROUP G_770 GROUP G_770
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 8 "12 1rata ac.IRPEF95" PROMPT 2 8 "12 1rata ac.IRPEF95"
GROUP G_730 GROUP G_730
END END
NUMBER F_INTER11 15 NUMBER F_INTER11 15
BEGIN BEGIN
PROMPT 21 8 "" PROMPT 21 8 ""
FIELD LF_QUAA2->INTIRPEF FIELD LF_QUAA2->INTIRPEF
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 " PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "13 Imposta versata " PROMPT 2 11 "13 Imposta versata "
GROUP G_770 GROUP G_770
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "13 2rata ac.IRPEF95" PROMPT 2 11 "13 2rata ac.IRPEF95"
GROUP G_730 GROUP G_730
END END
NUMBER F_PRIRPEF10 15 NUMBER F_PRIRPEF10 15
BEGIN BEGIN
// PROMPT 2 11 "Imposta versata " // PROMPT 2 11 "Imposta versata "
PROMPT 21 11 "" PROMPT 21 11 ""
FIELD LF_QUAA2->AIRPEFIV FIELD LF_QUAA2->AIRPEFIV
PICTURE "." PICTURE "."
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 11 "14 Interessi " PROMPT 41 11 "14 Interessi "
GROUP G_770 GROUP G_770
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 11 "14 I.v.trat.CSSN " PROMPT 41 11 "14 I.v.trat.CSSN "
GROUP G_730 GROUP G_730
END END
NUMBER F_INTER11 15 NUMBER F_INTER11 15
BEGIN BEGIN
// PROMPT 41 11 "Interessi " // PROMPT 41 11 "Interessi "
PROMPT 61 11 "" PROMPT 61 11 ""
FIELD LF_QUAA2->AIRPEFINT FIELD LF_QUAA2->AIRPEFINT
PICTURE "." PICTURE "."
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 13 "15 Soprattasse IRPEF saldo 94 e prima rata acc.95 " PROMPT 2 13 "15 Soprattasse IRPEF saldo 94 e prima rata acc.95 "
GROUP G_770 GROUP G_770
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 13 "15 Importo da rimborsare CSSN " PROMPT 2 13 "15 Importo da rimborsare CSSN "
GROUP G_730 GROUP G_730
END END
NUMBER F_STASSA12 15 NUMBER F_STASSA12 15
BEGIN BEGIN
PROMPT 61 13 "" PROMPT 61 13 ""
FIELD LF_QUAA2->STASSA15 FIELD LF_QUAA2->STASSA15
PICTURE "." PICTURE "."
END END
ENDPAGE ENDPAGE
PAGE "2" -1 -1 78 21 PAGE "2" -1 -1 78 21
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
FLAGS "H" FLAGS "H"
GROUP 1 GROUP 1
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 2 GROUP 2
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 5 GROUP 5
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 4 "@bSALDO C.S.S.N. PER IL 1994 " PROMPT 1 4 "@bSALDO C.S.S.N. PER IL 1994 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 5 "16 Cont.a rimborso " PROMPT 2 5 "16 Cont.a rimborso "
GROUP G_770 GROUP G_770
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 5 "16 1r.acc.CSSN 95 " PROMPT 2 5 "16 1r.acc.CSSN 95 "
GROUP G_730 GROUP G_730
END END
NUMBER QA2F_CSSNCRIMB 15 NUMBER QA2F_CSSNCRIMB 15
BEGIN BEGIN
PROMPT 21 5 "" PROMPT 21 5 ""
FIELD LF_QUAA2->CONTR16 FIELD LF_QUAA2->CONTR16
PICTURE "." PICTURE "."
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 5 "17 Cont. versato " PROMPT 41 5 "17 Cont. versato "
GROUP G_770 GROUP G_770
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 41 5 "17 2r.acc.CSSN 95 " PROMPT 41 5 "17 2r.acc.CSSN 95 "
GROUP G_730 GROUP G_730
END END
NUMBER QA2F_CSSNCVER 15 NUMBER QA2F_CSSNCVER 15
BEGIN BEGIN
// PROMPT 41 5 "Contr. versato " // PROMPT 41 5 "Contr. versato "
PROMPT 61 5 "" PROMPT 61 5 ""
FIELD LF_QUAA2->CONTRVER FIELD LF_QUAA2->CONTRVER
PICTURE "." PICTURE "."
END END
NUMBER QA2F_CSSNINT 15 NUMBER QA2F_CSSNINT 15
BEGIN BEGIN
PROMPT 2 6 "18 Interessi " PROMPT 2 6 "18 Interessi "
FIELD LF_QUAA2->INTER18 FIELD LF_QUAA2->INTER18
PICTURE "." PICTURE "."
GROUP G_ALL GROUP G_ALL
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 8 "@bPRIMA RATA ACCONTO C.S.S.N. PER IL 1995 " PROMPT 1 8 "@bPRIMA RATA ACCONTO C.S.S.N. PER IL 1995 "
END END
NUMBER QA2F_CSSNAIV 15 NUMBER QA2F_CSSNAIV 15
BEGIN BEGIN
PROMPT 2 9 "19 Contrib.versato " PROMPT 2 9 "19 Contrib.versato "
FIELD LF_QUAA2->CONTV19 FIELD LF_QUAA2->CONTV19
PICTURE "." PICTURE "."
GROUP G_ALL GROUP G_ALL
END END
NUMBER QA2F_CSSNAINT 15 NUMBER QA2F_CSSNAINT 15
BEGIN BEGIN
PROMPT 41 9 "20 Interessi " PROMPT 41 9 "20 Interessi "
FIELD LF_QUAA2->INTE20 FIELD LF_QUAA2->INTE20
PICTURE "." PICTURE "."
GROUP G_ALL GROUP G_ALL
END END
NUMBER QA2F_STCSSN 15 NUMBER QA2F_STCSSN 15
BEGIN BEGIN
PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 " PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 "
FIELD LF_QUAA2->SOPRAT21 FIELD LF_QUAA2->SOPRAT21
PICTURE "." PICTURE "."
GROUP G_ALL GROUP G_ALL
END END
STRING QA2F_730NLIQ 2 STRING QA2F_730NLIQ 2
BEGIN BEGIN
PROMPT 2 12 "22 Mod.730/95 non liquidabile " PROMPT 2 12 "22 Mod.730/95 non liquidabile "
SHEET "Codice|Descrizione@80" SHEET "Codice|Descrizione@80"
INPUT QA2F_730NLIQ INPUT QA2F_730NLIQ
ITEM "|" ITEM "|"
ITEM "01|Errata o incompleta compilazione dei dati anagrafici e di residenza del dichiarante" ITEM "01|Errata o incompleta compilazione dei dati anagrafici e di residenza del dichiarante"
ITEM "02|Errata o incompleta compilazione dei dati del coniuge e familiari a carico" ITEM "02|Errata o incompleta compilazione dei dati del coniuge e familiari a carico"
ITEM "03|Errata o incompleta compilazione dei dati anagrafici e di residenza del coniuge" ITEM "03|Errata o incompleta compilazione dei dati anagrafici e di residenza del coniuge"
ITEM "04|Errata o incompleta dichiarazione del quadro A Mod.730/95 del dichiarante" ITEM "04|Errata o incompleta dichiarazione del quadro A Mod.730/95 del dichiarante"
ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/95 del coniuge" ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/95 del coniuge"
ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/95 del dichiarante" ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/95 del dichiarante"
ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/95 del coniuge" ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/95 del coniuge"
ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/95 del dichiarante" ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/95 del dichiarante"
ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/95 del dichiarante" ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/95 del dichiarante"
ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/95 del dichiarante" ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/95 del dichiarante"
ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/95 del coniuge" ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/95 del coniuge"
ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/95 del dichiarante" ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/95 del dichiarante"
ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/95 del coniuge" ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/95 del coniuge"
FIELD LF_QUAA2->M730NLIQ FIELD LF_QUAA2->M730NLIQ
FLAGS "Z" FLAGS "Z"
OUTPUT QA2F_730NLIQ OUTPUT QA2F_730NLIQ
GROUP G_ALL GROUP G_ALL
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 14 "@bDati identificativi del C.A.A.F che ha prestato assistenza " PROMPT 1 14 "@bDati identificativi del C.A.A.F che ha prestato assistenza "
END END
NUMBER F_CODCAAF 5 NUMBER F_CODCAAF 5
BEGIN BEGIN
PROMPT 2 15 "Codice " PROMPT 2 15 "Codice "
FIELD LF_QUAA2->CODCAAF FIELD LF_QUAA2->CODCAAF
USE %CAF USE %CAF
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB F_CODCAAF INPUT CODTAB F_CODCAAF
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "N.ro iscrizione" I1 DISPLAY "N.ro iscrizione" I1
DISPLAY "Codice fiscale@16" S1 DISPLAY "Codice fiscale@16" S1
OUTPUT F_CODCAAF CODTAB OUTPUT F_CODCAAF CODTAB
OUTPUT F_DENCAAF S0 OUTPUT F_DENCAAF S0
OUTPUT F_NISCRA I1 OUTPUT F_NISCRA I1
OUTPUT F_CODFISCAAF S1 OUTPUT F_CODFISCAAF S1
GROUP G_ALL GROUP G_ALL
END END
STRING F_DENCAAF 50 STRING F_DENCAAF 50
BEGIN BEGIN
PROMPT 26 15 "" PROMPT 26 15 ""
FLAGS "DU" FLAGS "DU"
END END
STRING F_CODFISCAAF 16 STRING F_CODFISCAAF 16
BEGIN BEGIN
PROMPT 2 16 "23 Cod.fiscale " PROMPT 2 16 "23 Cod.fiscale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NISCRA 5 NUMBER F_NISCRA 5
BEGIN BEGIN
PROMPT 50 16 "25 N.iscrizione albo " PROMPT 50 16 "25 N.iscrizione albo "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

244
m770/771200g.uml
View File

@ -1,122 +1,122 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
#include <toolbar.h> #include <toolbar.h>
BUTTON F_BASEOCCUPA 24 2 BUTTON F_BASEOCCUPA 24 2
BEGIN BEGIN
PROMPT -13 -3 "~Base occupazionale" PROMPT -13 -3 "~Base occupazionale"
END END
ENDPAGE ENDPAGE
#define G_DIPEND 1 #define G_DIPEND 1
#define G_QUADROA 2 #define G_QUADROA 2
PAGE "Quadro A3" -1 -1 78 18 PAGE "Quadro A3" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA3->CODDITTA FIELD LF_QUAA3->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING QAF_RAGDITTA 50 STRING QAF_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_ANNODIC 4 NUMBER QAF_ANNODIC 4
BEGIN BEGIN
PROMPT 52 3 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bCodice " PROMPT 1 7 "@bCodice "
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_CODANAGDIP 6 NUMBER F_CODANAGDIP 6
BEGIN BEGIN
PROMPT 10 7 "" PROMPT 10 7 ""
USE LF_DIPEND KEY 1 SELECT (CODDITTA=#QAF_CODDITTA) USE LF_DIPEND KEY 1 SELECT (CODDITTA=#QAF_CODDITTA)
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
MESSAGE COPY, F_CODIPQUADRO MESSAGE COPY, F_CODIPQUADRO
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
GROUP G_DIPEND GROUP G_DIPEND
FLAGS "H" FLAGS "H"
FIELD LF_QUAA3->CODDIP FIELD LF_QUAA3->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER F_CODIPQUADRO 6 NUMBER F_CODIPQUADRO 6
BEGIN BEGIN
PROMPT 10 7 "" PROMPT 10 7 ""
USE LF_QUAA3 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA) && (NPROG="1")) USE LF_QUAA3 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA) && (NPROG="1"))
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIPQUADRO INPUT CODDIP F_CODIPQUADRO
DISPLAY "Codice" CODDIP DISPLAY "Codice" CODDIP
DISPLAY "N.ro" NPROG DISPLAY "N.ro" NPROG
DISPLAY "Inizio rapporto" DIRAPTI DISPLAY "Inizio rapporto" DIRAPTI
DISPLAY "gg.incremento" NGINC15 DISPLAY "gg.incremento" NGINC15
DISPLAY "Reddito corrisposto" REDCOR16 DISPLAY "Reddito corrisposto" REDCOR16
DISPLAY "gg.incremento" NGINC17 DISPLAY "gg.incremento" NGINC17
DISPLAY "Reddito corrisposto" REDCOR18 DISPLAY "Reddito corrisposto" REDCOR18
OUTPUT F_CODIPQUADRO CODDIP OUTPUT F_CODIPQUADRO CODDIP
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
MESSAGE COPY, F_CODANAGDIP MESSAGE COPY, F_CODANAGDIP
GROUP G_QUADROA GROUP G_QUADROA
FIELD LF_QUAA3->CODDIP FIELD LF_QUAA3->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FIELD LF_QUAA3->NPROG FIELD LF_QUAA3->NPROG
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 21 7 "" PROMPT 21 7 ""
FLAGS "D" FLAGS "D"
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 45 7 "" PROMPT 45 7 ""
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

450
m770/771200h.uml
View File

@ -1,225 +1,225 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 19 0 3 TOOLBAR "" 0 19 0 3
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Quadro A3" -1 -1 78 18 PAGE "Quadro A3" -1 -1 78 18
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA3->CODDITTA FIELD LF_QUAA3->CODDITTA
KEY 1 KEY 1
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
FIELD LF_QUAA3->CODDIP FIELD LF_QUAA3->CODDIP
MESSAGE COPY,F_CODIP2 MESSAGE COPY,F_CODIP2
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
MESSAGE COPY,1@ MESSAGE COPY,1@
END END
NUMBER F_CODIP2 5 NUMBER F_CODIP2 5
BEGIN BEGIN
USE LF_DIPEND KEY 1 USE LF_DIPEND KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "HG" FLAGS "HG"
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,2@ MESSAGE COPY,2@
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,3@ MESSAGE COPY,3@
END END
NUMBER QAF_NPROG 1 NUMBER QAF_NPROG 1
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "DG" FLAGS "DG"
FIELD LF_QUAA3->NPROG FIELD LF_QUAA3->NPROG
END END
DATE F_DIRAPTI DATE F_DIRAPTI
BEGIN BEGIN
PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato " PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato "
FIELD LF_QUAA3->DIRAPTI FIELD LF_QUAA3->DIRAPTI
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA" PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
END END
NUMBER F_NGINC15 3 NUMBER F_NGINC15 3
BEGIN BEGIN
PROMPT 1 8 "9 Num. giorni in incremento " PROMPT 1 8 "9 Num. giorni in incremento "
FIELD LF_QUAA3->NGINC15 FIELD LF_QUAA3->NGINC15
END END
NUMBER F_REDCOR16 15 NUMBER F_REDCOR16 15
BEGIN BEGIN
PROMPT 1 9 "10 Reddito corrisposto " PROMPT 1 9 "10 Reddito corrisposto "
FIELD LF_QUAA3->REDCOR16 FIELD LF_QUAA3->REDCOR16
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95" PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
END END
NUMBER F_NGINC17 3 NUMBER F_NGINC17 3
BEGIN BEGIN
PROMPT 1 12 "11 Num. giorni in incremento" PROMPT 1 12 "11 Num. giorni in incremento"
FIELD LF_QUAA3->NGINC17 FIELD LF_QUAA3->NGINC17
END END
NUMBER F_REDCOR18 15 NUMBER F_REDCOR18 15
BEGIN BEGIN
PROMPT 1 13 "12 Reddito corrisposto " PROMPT 1 13 "12 Reddito corrisposto "
FIELD LF_QUAA3->REDCOR18 FIELD LF_QUAA3->REDCOR18
PICTURE "." PICTURE "."
END END
ENDPAGE ENDPAGE
PAGE "Societa' trasformata" -1 -1 78 21 PAGE "Societa' trasformata" -1 -1 78 21
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER F_CODDITTA_2 5 NUMBER F_CODDITTA_2 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
KEY 1 KEY 1
END END
NUMBER F_CODIP_2 6 NUMBER F_CODIP_2 6
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
MESSAGE COPY,F_CODIP2 MESSAGE COPY,F_CODIP2
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
GROUP 1 GROUP 1
END END
NUMBER F_CODIP2_2 5 NUMBER F_CODIP2_2 5
BEGIN BEGIN
USE LF_DIPEND KEY 1 USE LF_DIPEND KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "HG" FLAGS "HG"
END END
STRING F_COGNOME_2 24 STRING F_COGNOME_2 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 2 GROUP 2
END END
STRING F_NOME_2 20 STRING F_NOME_2 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
NUMBER F_NPROG_2 1 NUMBER F_NPROG_2 1
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "DG" FLAGS "DG"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 3 "@bSocieta' trasformata " PROMPT 1 3 "@bSocieta' trasformata "
END END
STRING F_DENTRASF 40 STRING F_DENTRASF 40
BEGIN BEGIN
PROMPT 25 3 "" PROMPT 25 3 ""
FLAGS "D" FLAGS "D"
END END
STRING F_COGNTRASF 30 STRING F_COGNTRASF 30
BEGIN BEGIN
PROMPT 25 3 "" PROMPT 25 3 ""
FLAGS "D" FLAGS "D"
END END
STRING F_NOMETRASF 20 STRING F_NOMETRASF 20
BEGIN BEGIN
PROMPT 56 3 "" PROMPT 56 3 ""
FLAGS "D" FLAGS "D"
END END
DATE F_DIRAPTI_2 DATE F_DIRAPTI_2
BEGIN BEGIN
PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato " PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato "
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA" PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
END END
NUMBER F_NGINC15_2 3 NUMBER F_NGINC15_2 3
BEGIN BEGIN
PROMPT 1 8 "9 Num. giorni in incremento " PROMPT 1 8 "9 Num. giorni in incremento "
END END
NUMBER F_REDCOR16_2 15 NUMBER F_REDCOR16_2 15
BEGIN BEGIN
PROMPT 1 9 "10 Reddito corrisposto " PROMPT 1 9 "10 Reddito corrisposto "
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95" PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
END END
NUMBER F_NGINC17_2 3 NUMBER F_NGINC17_2 3
BEGIN BEGIN
PROMPT 1 12 "11 Num. giorni in incremento" PROMPT 1 12 "11 Num. giorni in incremento"
END END
NUMBER F_REDCOR18_2 15 NUMBER F_REDCOR18_2 15
BEGIN BEGIN
PROMPT 1 13 "12 Reddito corrisposto " PROMPT 1 13 "12 Reddito corrisposto "
PICTURE "." PICTURE "."
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

214
m770/771200i.uml
View File

@ -1,107 +1,107 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2 BUTTON DLG_SAVEREC 8 2
BEGIN BEGIN
PROMPT -16 -1 "" PROMPT -16 -1 ""
FLAGS "D" FLAGS "D"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_NEWREC 8 2 BUTTON DLG_NEWREC 8 2
BEGIN BEGIN
PROMPT -26 -1 "~Nuovo" PROMPT -26 -1 "~Nuovo"
MESSAGE EXIT,K_INS MESSAGE EXIT,K_INS
FLAGS "D" FLAGS "D"
PICTURE BMP_NEWREC PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN PICTURE BMP_NEWRECDN
END END
BUTTON DLG_DELREC 8 2 BUTTON DLG_DELREC 8 2
BEGIN BEGIN
PROMPT -36 -1 "~Elimina" PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_FINDREC 8 2 BUTTON DLG_FINDREC 8 2
BEGIN BEGIN
PROMPT -46 -1 "Ri~cerca" PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9 MESSAGE EXIT,K_F9
FLAGS "D" FLAGS "D"
PICTURE BMP_FINDREC PICTURE BMP_FINDREC
END END
BUTTON DLG_CANCEL 8 2 BUTTON DLG_CANCEL 8 2
BEGIN BEGIN
PROMPT -56 -1 "" PROMPT -56 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -66 -1 "" PROMPT -66 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Base occupazionale" -1 -1 78 21 PAGE "Base occupazionale" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_BASEBIS->CODDITTA FIELD LF_BASEBIS->CODDITTA
END END
STRING QAF_RAGDITTA 50 STRING QAF_RAGDITTA 50
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 4 "" PROMPT 1 4 ""
END END
NUMBER F_BSE_CONSBASOCC 5 NUMBER F_BSE_CONSBASOCC 5
BEGIN BEGIN
PROMPT 2 5 "Consistenza base occupazionale al 12/06/94 " PROMPT 2 5 "Consistenza base occupazionale al 12/06/94 "
FIELD LF_BASEBIS->CONSBASOCC FIELD LF_BASEBIS->CONSBASOCC
FLAGS "R" FLAGS "R"
END END
NUMBER F_BSE_LAVDIPCIN 5 NUMBER F_BSE_LAVDIPCIN 5
BEGIN BEGIN
PROMPT 2 6 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 " PROMPT 2 6 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 "
FIELD LF_BASEBIS->LAVDIPCIN FIELD LF_BASEBIS->LAVDIPCIN
END END
DATE F_BSE_DATAINPI DATE F_BSE_DATAINPI
BEGIN BEGIN
PROMPT 2 7 "Periodo d'imposta dal " PROMPT 2 7 "Periodo d'imposta dal "
FIELD LF_BASEBIS->PIMPINI FIELD LF_BASEBIS->PIMPINI
END END
DATE F_BSE_DATAFINPI DATE F_BSE_DATAFINPI
BEGIN BEGIN
PROMPT 36 7 " al " PROMPT 36 7 " al "
FIELD LF_BASEBIS->PIMPFINE FIELD LF_BASEBIS->PIMPFINE
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

722
m770/771234a.uml
View File

@ -1,362 +1,362 @@
#include "771234a.h" #include "771234a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2 BUTTON DLG_SAVEREC 8 2
BEGIN BEGIN
PROMPT -16 -1 "" PROMPT -16 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_DISTINTA 8 2 BUTTON DLG_DISTINTA 8 2
BEGIN BEGIN
PROMPT -26 -1 "~Distinta" PROMPT -26 -1 "~Distinta"
// MESSAGE EXIT,K_SAVE // MESSAGE EXIT,K_SAVE
END END
BUTTON DLG_DELREC 8 2 BUTTON DLG_DELREC 8 2
BEGIN BEGIN
PROMPT -36 -1 "~Elimina" PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_FINDREC 8 2 BUTTON DLG_FINDREC 8 2
BEGIN BEGIN
PROMPT -46 -1 "Ri~cerca" PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9 MESSAGE EXIT,K_F9
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_CANCEL 8 2 BUTTON DLG_CANCEL 8 2
BEGIN BEGIN
PROMPT -56 -1 "" PROMPT -56 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -66 -1 "" PROMPT -66 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro G" -1 -1 78 18 PAGE "Modello 770 - Quadro G" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGDITTA RAGSOC OUTPUT F_RAGDITTA RAGSOC
FIELD LF_QUAG->CODDITTA FIELD LF_QUAG->CODDITTA
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "GR" FLAGS "GR"
MESSAGE COPY,1@ MESSAGE COPY,1@
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
MESSAGE COPY,2@ MESSAGE COPY,2@
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 3 "@bPROSPETTO N. 1 DETERMINAZIONE DELL'AMMONTARE DEGLI UTILI " PROMPT 1 3 "@bPROSPETTO N. 1 DETERMINAZIONE DELL'AMMONTARE DEGLI UTILI "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 4 "I - UTILI IN DENARO" PROMPT 1 4 "I - UTILI IN DENARO"
END END
SPREADSHEET F_P1 0 6 SPREADSHEET F_P1 0 6
BEGIN BEGIN
PROMPT 0 5 "" PROMPT 0 5 ""
ITEM "Data delib." ITEM "Data delib."
ITEM "Titolo distribuzione" ITEM "Titolo distribuzione"
ITEM "Data pagam." ITEM "Data pagam."
ITEM "Ammontare azione" ITEM "Ammontare azione"
ITEM "Numero azioni" ITEM "Numero azioni"
ITEM "Ammontare comp." ITEM "Ammontare comp."
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 11 "II - UTILI IN NATURA" PROMPT 1 11 "II - UTILI IN NATURA"
END END
DATE F_DATADELIB DATE F_DATADELIB
BEGIN BEGIN
PROMPT 1 12 "Data delibera " PROMPT 1 12 "Data delibera "
FIELD LF_QUAG->P2DATADE FIELD LF_QUAG->P2DATADE
END END
DATE F_DATADISTR DATE F_DATADISTR
BEGIN BEGIN
PROMPT 30 12 "Data distribuzione " PROMPT 30 12 "Data distribuzione "
FIELD LF_QUAG->P2DATADI FIELD LF_QUAG->P2DATADI
END END
//SPREADSHEET F_PII 0 6 //SPREADSHEET F_PII 0 6
SPREADSHEET F_PII 78 5 SPREADSHEET F_PII 78 5
BEGIN BEGIN
PROMPT 0 13 "" PROMPT 0 13 ""
ITEM "Descrizione dei beni distribuiti@35" ITEM "Descrizione dei beni distribuiti@35"
ITEM "Data@10" ITEM "Data@10"
ITEM "Valore ultimo bilancio@15" ITEM "Valore ultimo bilancio@15"
END END
NUMBER F_P1II_35 15 NUMBER F_P1II_35 15
BEGIN BEGIN
PROMPT 12 18 "IMPORTO IMPUTABILE A CIASCUNA AZIONE O QUOTA " PROMPT 12 18 "IMPORTO IMPUTABILE A CIASCUNA AZIONE O QUOTA "
PICTURE "." PICTURE "."
FIELD LF_QUAG->P2IMPQ FIELD LF_QUAG->P2IMPQ
END END
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro G" -1 -1 78 18 PAGE "Modello 770 - Quadro G" -1 -1 78 18
#define COL1 0 #define COL1 0
#define COL2 16 #define COL2 16
#define COL3 32 #define COL3 32
#define COL4 48 #define COL4 48
#define COL5 63 #define COL5 63
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL1 1 "@bPROSPETTO N. 2 PROSPETTO UTILI PAGATI " PROMPT COL1 1 "@bPROSPETTO N. 2 PROSPETTO UTILI PAGATI "
END END
SPREADSHEET F_P2 0 8 SPREADSHEET F_P2 0 8
BEGIN BEGIN
PROMPT 0 3 "" PROMPT 0 3 ""
ITEM "Delibera@20" ITEM "Delibera@20"
ITEM "Importo@15" ITEM "Importo@15"
ITEM "Utili corrisp. 31-12-94" ITEM "Utili corrisp. 31-12-94"
ITEM "Utili da corr. 31-12-94" ITEM "Utili da corr. 31-12-94"
ITEM "Utili corrisp. 31-12-95" ITEM "Utili corrisp. 31-12-95"
ITEM "Utili da corr. 31-12-95" ITEM "Utili da corr. 31-12-95"
END END
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro G" -1 -1 78 18 PAGE "Modello 770 - Quadro G" -1 -1 78 18
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bPROSPETTO N. 3 PROSPETTO DELLE RITENUTE " PROMPT 1 1 "@bPROSPETTO N. 3 PROSPETTO DELLE RITENUTE "
END END
SPREADSHEET F_PIII 0 15 SPREADSHEET F_PIII 0 15
BEGIN BEGIN
PROMPT 0 3 "" PROMPT 0 3 ""
ITEM "Delibera@21" ITEM "Delibera@21"
ITEM "Utili corr. nel 1995" ITEM "Utili corr. nel 1995"
ITEM "Importo" ITEM "Importo"
ITEM "Aliquota" ITEM "Aliquota"
ITEM "Rit.acconto" ITEM "Rit.acconto"
ITEM "Rit.imposta" ITEM "Rit.imposta"
ITEM "Utili non assog.a ritenuta" ITEM "Utili non assog.a ritenuta"
END END
ENDPAGE ENDPAGE
#define CP31 1 #define CP31 1
#define CP32 12 #define CP32 12
#define CP33 29 #define CP33 29
#define CP34 36 #define CP34 36
#define CP35 53 #define CP35 53
PAGE "Modello 770 - Quadro G" -1 -1 78 18 PAGE "Modello 770 - Quadro G" -1 -1 78 18
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bPROSPETTO N. 4 PROSPETTO DEI VERSAMENTI DELLE RITENUTE " PROMPT 1 1 "@bPROSPETTO N. 4 PROSPETTO DEI VERSAMENTI DELLE RITENUTE "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 2 "Causale dei versamenti Importo versato " PROMPT CP31 2 "Causale dei versamenti Importo versato "
END END
NUMBER F_P411 15 NUMBER F_P411 15
BEGIN BEGIN
PROMPT CP35 4 "" PROMPT CP35 4 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P421 FIELD LF_QUAG->P421
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P412 15 NUMBER F_P412 15
BEGIN BEGIN
PROMPT CP35 7 "" PROMPT CP35 7 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P422 FIELD LF_QUAG->P422
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P413 15 NUMBER F_P413 15
BEGIN BEGIN
PROMPT CP35 8 "" PROMPT CP35 8 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P423 FIELD LF_QUAG->P423
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P414 15 NUMBER F_P414 15
BEGIN BEGIN
PROMPT CP35 10 "" PROMPT CP35 10 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P424 FIELD LF_QUAG->P424
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P415 15 NUMBER F_P415 15
BEGIN BEGIN
PROMPT CP35 11 "" PROMPT CP35 11 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P425 FIELD LF_QUAG->P425
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P416 15 NUMBER F_P416 15
BEGIN BEGIN
PROMPT CP35 12 "" PROMPT CP35 12 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P426 FIELD LF_QUAG->P426
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P417 15 NUMBER F_P417 15
BEGIN BEGIN
PROMPT CP35 13 "" PROMPT CP35 13 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P427 FIELD LF_QUAG->P427
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P418 15 NUMBER F_P418 15
BEGIN BEGIN
PROMPT CP35 16 "" PROMPT CP35 16 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P428 FIELD LF_QUAG->P428
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P419 15 NUMBER F_P419 15
BEGIN BEGIN
PROMPT CP35 17 "" PROMPT CP35 17 ""
PICTURE "." PICTURE "."
FIELD LF_QUAG->P429 FIELD LF_QUAG->P429
MESSAGE K_TAB,F_P41TOT MESSAGE K_TAB,F_P41TOT
END END
NUMBER F_P41TOT 15 NUMBER F_P41TOT 15
BEGIN BEGIN
PROMPT CP35 18 "" PROMPT CP35 18 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
FIELD LF_QUAG->P42TOT FIELD LF_QUAG->P42TOT
NUM_CALC {#F_P411+#F_P412+#F_P413+#F_P414-#F_P415+#F_P416-#F_P417+#F_P418+#F_P419} NUM_CALC {#F_P411+#F_P412+#F_P413+#F_P414-#F_P415+#F_P416-#F_P417+#F_P418+#F_P419}
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 3 "1) Ritenute 10% sugli utili di cui e' stata " PROMPT CP31 3 "1) Ritenute 10% sugli utili di cui e' stata "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 4 " deliberata la distribuzione nel 1995" PROMPT CP31 4 " deliberata la distribuzione nel 1995"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 5 "2) Ritenute 10%,12,50,15%,30%,32,4% o 50% sugli utili in denaro " PROMPT CP31 5 "2) Ritenute 10%,12,50,15%,30%,32,4% o 50% sugli utili in denaro "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 6 " o in natura, su azioni di risparmio ..." PROMPT CP31 6 " o in natura, su azioni di risparmio ..."
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 7 " a) effettuate nel primo semestre 1995 " PROMPT CP31 7 " a) effettuate nel primo semestre 1995 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 8 " b) effettuate nel secondo semestre 1995 " PROMPT CP31 8 " b) effettuate nel secondo semestre 1995 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 9 "3) Versamento di conguaglio su utili in denaro " PROMPT CP31 9 "3) Versamento di conguaglio su utili in denaro "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 10 " a) effettuate nel primo semestre 1995 " PROMPT CP31 10 " a) effettuate nel primo semestre 1995 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 11 " meno recuperi " PROMPT CP31 11 " meno recuperi "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 12 " b) effettuate nel secondo semestre 1995 " PROMPT CP31 12 " b) effettuate nel secondo semestre 1995 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 13 " meno recuperi " PROMPT CP31 13 " meno recuperi "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 14 "4) Ritenuta 10% sugli utili corrisposti da società" PROMPT CP31 14 "4) Ritenuta 10% sugli utili corrisposti da società"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 15 " cooperative ai soci persone fisiche " PROMPT CP31 15 " cooperative ai soci persone fisiche "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 16 " a) effettuate nel primo semestre 1995 " PROMPT CP31 16 " a) effettuate nel primo semestre 1995 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP31 17 " b) effettuate nel secondo semestre 1995 " PROMPT CP31 17 " b) effettuate nel secondo semestre 1995 "
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT CP34 18 "@bTOTALE " PROMPT CP34 18 "@bTOTALE "
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
#include "771234b.uml" #include "771234b.uml"
#include "77_g_p2.uml" #include "77_g_p2.uml"
#include "771234c.uml" #include "771234c.uml"
#include "77_g_p3.uml" #include "77_g_p3.uml"

2780
m770/771300a.uml
View File

File diff suppressed because it is too large Load Diff

1050
m770/771400a.uml
View File

File diff suppressed because it is too large Load Diff

984
m770/771400b.uml
View File

@ -1,492 +1,492 @@
// Prospetto dati generali - soggetto dichiarante // Prospetto dati generali - soggetto dichiarante
#include "771300.h" #include "771300.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -15 -1 "" PROMPT -15 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Prospetto dati generali" -1 -1 78 18 PAGE "Prospetto dati generali" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 1 "Ditta "
FLAGS "DGR" FLAGS "DGR"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
MESSAGE COPY,1@ MESSAGE COPY,1@
FIELD LF_BASEBIS->CODDITTA FIELD LF_BASEBIS->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
MESSAGE COPY,2@ MESSAGE COPY,2@
END END
LISTBOX F_TIPOQUA1 12 LISTBOX F_TIPOQUA1 12
BEGIN BEGIN
PROMPT 90 90 "" PROMPT 90 90 ""
ITEM "D|Dichiarante" ITEM "D|Dichiarante"
FLAGS "D" FLAGS "D"
KEY 1 KEY 1
FIELD LF_BASEBIS->TIPOQUA FIELD LF_BASEBIS->TIPOQUA
// CHECKTYPE REQUIRED // CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 78 15 GROUPBOX DLG_NULL 78 15
BEGIN BEGIN
PROMPT 0 3 "" PROMPT 0 3 ""
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 4 "Il sottoscritto dichiara di aver corrisposto a dipendenti e terzi nell'anno" PROMPT 1 4 "Il sottoscritto dichiara di aver corrisposto a dipendenti e terzi nell'anno"
END END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 1 5 "" PROMPT 1 5 ""
FLAGS "RD" FLAGS "RD"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 7 5 "le somme e i valori e di aver effettuato le ritenute indicate" PROMPT 7 5 "le somme e i valori e di aver effettuato le ritenute indicate"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 7 6 "nei quadri:" PROMPT 7 6 "nei quadri:"
END END
#define RA 8 #define RA 8
#define RB 9 #define RB 9
#define RC0 11 #define RC0 11
#define RC1 12 #define RC1 12
#define RD 13 #define RD 13
BOOLEAN F_QCOMPA BOOLEAN F_QCOMPA
BEGIN BEGIN
PROMPT 2 RA "A" PROMPT 2 RA "A"
FIELD LF_BASEBIS->QCOMP[1,1] FIELD LF_BASEBIS->QCOMP[1,1]
END END
BOOLEAN F_QCOMPA3 BOOLEAN F_QCOMPA3
BEGIN BEGIN
PROMPT 8 RA "A3" PROMPT 8 RA "A3"
FIELD LF_BASEBIS->QCOMP[25,1] FIELD LF_BASEBIS->QCOMP[25,1]
END END
BOOLEAN F_QCOMPB BOOLEAN F_QCOMPB
BEGIN BEGIN
PROMPT 14 RA "B" PROMPT 14 RA "B"
FIELD LF_BASEBIS->QCOMP[2,1] FIELD LF_BASEBIS->QCOMP[2,1]
END END
BOOLEAN F_QCOMPB1 BOOLEAN F_QCOMPB1
BEGIN BEGIN
PROMPT 20 RA "B1" PROMPT 20 RA "B1"
FIELD LF_BASEBIS->QCOMP[3,1] FIELD LF_BASEBIS->QCOMP[3,1]
END END
BOOLEAN F_QCOMPC BOOLEAN F_QCOMPC
BEGIN BEGIN
PROMPT 26 RA "C" PROMPT 26 RA "C"
FIELD LF_BASEBIS->QCOMP[4,1] FIELD LF_BASEBIS->QCOMP[4,1]
END END
BOOLEAN F_QCOMPD BOOLEAN F_QCOMPD
BEGIN BEGIN
PROMPT 32 RA "D" PROMPT 32 RA "D"
FIELD LF_BASEBIS->QCOMP[5,1] FIELD LF_BASEBIS->QCOMP[5,1]
END END
BOOLEAN F_QCOMPD1 BOOLEAN F_QCOMPD1
BEGIN BEGIN
PROMPT 38 RA "D1" PROMPT 38 RA "D1"
FIELD LF_BASEBIS->QCOMP[6,1] FIELD LF_BASEBIS->QCOMP[6,1]
END END
BOOLEAN F_QCOMPE BOOLEAN F_QCOMPE
BEGIN BEGIN
PROMPT 44 RA "E" PROMPT 44 RA "E"
FIELD LF_BASEBIS->QCOMP[7,1] FIELD LF_BASEBIS->QCOMP[7,1]
END END
BOOLEAN F_QCOMPE1 BOOLEAN F_QCOMPE1
BEGIN BEGIN
PROMPT 50 RA "E1" PROMPT 50 RA "E1"
FIELD LF_BASEBIS->QCOMP[8,1] FIELD LF_BASEBIS->QCOMP[8,1]
END END
BOOLEAN F_QCOMPE2 BOOLEAN F_QCOMPE2
BEGIN BEGIN
PROMPT 56 RA "E2" PROMPT 56 RA "E2"
FIELD LF_BASEBIS->QCOMP[9,1] FIELD LF_BASEBIS->QCOMP[9,1]
END END
BOOLEAN F_QCOMPF BOOLEAN F_QCOMPF
BEGIN BEGIN
PROMPT 62 RA "F" PROMPT 62 RA "F"
FIELD LF_BASEBIS->QCOMP[10,1] FIELD LF_BASEBIS->QCOMP[10,1]
END END
BOOLEAN F_QCOMPF1 BOOLEAN F_QCOMPF1
BEGIN BEGIN
PROMPT 68 RA "F1" PROMPT 68 RA "F1"
FIELD LF_BASEBIS->QCOMP[11,1] FIELD LF_BASEBIS->QCOMP[11,1]
END END
BOOLEAN F_QCOMPF2 BOOLEAN F_QCOMPF2
BEGIN BEGIN
PROMPT 2 RB "F2" PROMPT 2 RB "F2"
FIELD LF_BASEBIS->QCOMP[12,1] FIELD LF_BASEBIS->QCOMP[12,1]
END END
BOOLEAN F_QCOMPG BOOLEAN F_QCOMPG
BEGIN BEGIN
PROMPT 8 RB "G" PROMPT 8 RB "G"
FIELD LF_BASEBIS->QCOMP[13,1] FIELD LF_BASEBIS->QCOMP[13,1]
END END
BOOLEAN F_QCOMPG1 BOOLEAN F_QCOMPG1
BEGIN BEGIN
PROMPT 14 RB "G1" PROMPT 14 RB "G1"
FIELD LF_BASEBIS->QCOMP[14,1] FIELD LF_BASEBIS->QCOMP[14,1]
END END
BOOLEAN F_QCOMPH BOOLEAN F_QCOMPH
BEGIN BEGIN
PROMPT 20 RB "H" PROMPT 20 RB "H"
FIELD LF_BASEBIS->QCOMP[15,1] FIELD LF_BASEBIS->QCOMP[15,1]
END END
BOOLEAN F_QCOMPI BOOLEAN F_QCOMPI
BEGIN BEGIN
PROMPT 26 RB "I" PROMPT 26 RB "I"
FIELD LF_BASEBIS->QCOMP[16,1] FIELD LF_BASEBIS->QCOMP[16,1]
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 RC0 "Inoltre dichiara di aver effettuato i conguagli conseguenti all'assistenza" PROMPT 1 RC0 "Inoltre dichiara di aver effettuato i conguagli conseguenti all'assistenza"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 RC1 "fiscale indicati nel quadro A e nei quadri" PROMPT 1 RC1 "fiscale indicati nel quadro A e nei quadri"
END END
BOOLEAN F_QCOMPA1 BOOLEAN F_QCOMPA1
BEGIN BEGIN
PROMPT 2 RD "A1" PROMPT 2 RD "A1"
FIELD LF_BASEBIS->QCOMP[23,1] FIELD LF_BASEBIS->QCOMP[23,1]
END END
BOOLEAN F_QCOMPA2 BOOLEAN F_QCOMPA2
BEGIN BEGIN
PROMPT 8 RD "A2" PROMPT 8 RD "A2"
FIELD LF_BASEBIS->QCOMP[24,1] FIELD LF_BASEBIS->QCOMP[24,1]
END END
BOOLEAN F_QCOMPN BOOLEAN F_QCOMPN
BEGIN BEGIN
PROMPT 14 RD "N" PROMPT 14 RD "N"
FIELD LF_BASEBIS->QCOMP[17,1] FIELD LF_BASEBIS->QCOMP[17,1]
END END
BOOLEAN F_QCOMPP BOOLEAN F_QCOMPP
BEGIN BEGIN
PROMPT 20 RD "P" PROMPT 20 RD "P"
FIELD LF_BASEBIS->QCOMP[18,1] FIELD LF_BASEBIS->QCOMP[18,1]
END END
BOOLEAN F_QCOMPQ BOOLEAN F_QCOMPQ
BEGIN BEGIN
PROMPT 26 RD "Q" PROMPT 26 RD "Q"
FIELD LF_BASEBIS->QCOMP[19,1] FIELD LF_BASEBIS->QCOMP[19,1]
END END
BOOLEAN F_QCOMPR BOOLEAN F_QCOMPR
BEGIN BEGIN
PROMPT 32 RD "R" PROMPT 32 RD "R"
FIELD LF_BASEBIS->QCOMP[20,1] FIELD LF_BASEBIS->QCOMP[20,1]
END END
BOOLEAN F_QCOMPS BOOLEAN F_QCOMPS
BEGIN BEGIN
PROMPT 38 RD "S" PROMPT 38 RD "S"
FIELD LF_BASEBIS->QCOMP[21,1] FIELD LF_BASEBIS->QCOMP[21,1]
END END
BOOLEAN F_QCOMPT BOOLEAN F_QCOMPT
BEGIN BEGIN
PROMPT 44 RD "T" PROMPT 44 RD "T"
FIELD LF_BASEBIS->QCOMP[22,1] FIELD LF_BASEBIS->QCOMP[22,1]
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 15 "Dichiara altresì di aver eseguito i versamenti risultanti dai quadri L,P,Q," PROMPT 1 15 "Dichiara altresì di aver eseguito i versamenti risultanti dai quadri L,P,Q,"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 16 "S,T e da n. " PROMPT 1 16 "S,T e da n. "
END END
NUMBER F_H0NQLAGG 4 NUMBER F_H0NQLAGG 4
BEGIN BEGIN
PROMPT 13 16 "" PROMPT 13 16 ""
FIELD LF_BASEBIS->H0NQLAGG FIELD LF_BASEBIS->H0NQLAGG
FLAGS "R" FLAGS "R"
//FLAGS "D" //FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 19 16 "quadri aggiuntivi." PROMPT 19 16 "quadri aggiuntivi."
END END
ENDPAGE ENDPAGE
PAGE "Prospetto dati generali" -1 -1 78 18 PAGE "Prospetto dati generali" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER DLG_NULL 5 NUMBER DLG_NULL 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 1 "Ditta "
FLAGS "RDG" FLAGS "RDG"
GROUP 1 GROUP 1
END END
STRING DLG_NULL 50 STRING DLG_NULL 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
GROUP 2 GROUP 2
END END
GROUPBOX DLG_NULL 78 10 GROUPBOX DLG_NULL 78 10
BEGIN BEGIN
PROMPT 0 3 "" PROMPT 0 3 ""
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 4 "Il sottoscritto dichiara di aver presentato i quadri" PROMPT 1 4 "Il sottoscritto dichiara di aver presentato i quadri"
END END
BOOLEAN F_QSUPPA BOOLEAN F_QSUPPA
BEGIN BEGIN
PROMPT 2 6 "A" PROMPT 2 6 "A"
FIELD LF_BASEBIS->QSUPPINV[1,1] FIELD LF_BASEBIS->QSUPPINV[1,1]
END END
BOOLEAN F_QSUPPA1 BOOLEAN F_QSUPPA1
BEGIN BEGIN
PROMPT 8 6 "A1" PROMPT 8 6 "A1"
FIELD LF_BASEBIS->QSUPPINV[2,1] FIELD LF_BASEBIS->QSUPPINV[2,1]
END END
BOOLEAN F_QSUPPA2 BOOLEAN F_QSUPPA2
BEGIN BEGIN
PROMPT 14 6 "A2" PROMPT 14 6 "A2"
FIELD LF_BASEBIS->QSUPPINV[3,1] FIELD LF_BASEBIS->QSUPPINV[3,1]
END END
BOOLEAN F_QSUPPA3 BOOLEAN F_QSUPPA3
BEGIN BEGIN
PROMPT 20 6 "A3" PROMPT 20 6 "A3"
FIELD LF_BASEBIS->QSUPPINV[4,1] FIELD LF_BASEBIS->QSUPPINV[4,1]
END END
BOOLEAN F_QSUPPB BOOLEAN F_QSUPPB
BEGIN BEGIN
PROMPT 26 6 "B" PROMPT 26 6 "B"
FIELD LF_BASEBIS->QSUPPINV[5,1] FIELD LF_BASEBIS->QSUPPINV[5,1]
END END
BOOLEAN F_QSUPPB1 BOOLEAN F_QSUPPB1
BEGIN BEGIN
PROMPT 32 6 "B1" PROMPT 32 6 "B1"
FIELD LF_BASEBIS->QSUPPINV[6,1] FIELD LF_BASEBIS->QSUPPINV[6,1]
END END
BOOLEAN F_QSUPPC BOOLEAN F_QSUPPC
BEGIN BEGIN
PROMPT 38 6 "C" PROMPT 38 6 "C"
FIELD LF_BASEBIS->QSUPPINV[7,1] FIELD LF_BASEBIS->QSUPPINV[7,1]
END END
BOOLEAN F_QSUPPD BOOLEAN F_QSUPPD
BEGIN BEGIN
PROMPT 44 6 "D" PROMPT 44 6 "D"
FIELD LF_BASEBIS->QSUPPINV[8,1] FIELD LF_BASEBIS->QSUPPINV[8,1]
END END
BOOLEAN F_QSUPPD1 BOOLEAN F_QSUPPD1
BEGIN BEGIN
PROMPT 50 6 "D1" PROMPT 50 6 "D1"
FIELD LF_BASEBIS->QSUPPINV[9,1] FIELD LF_BASEBIS->QSUPPINV[9,1]
END END
BOOLEAN F_QSUPPE BOOLEAN F_QSUPPE
BEGIN BEGIN
PROMPT 56 6 "E" PROMPT 56 6 "E"
FIELD LF_BASEBIS->QSUPPINV[10,1] FIELD LF_BASEBIS->QSUPPINV[10,1]
END END
BOOLEAN F_QSUPPE1 BOOLEAN F_QSUPPE1
BEGIN BEGIN
PROMPT 62 6 "E1" PROMPT 62 6 "E1"
FIELD LF_BASEBIS->QSUPPINV[11,1] FIELD LF_BASEBIS->QSUPPINV[11,1]
END END
BOOLEAN F_QSUPPE2 BOOLEAN F_QSUPPE2
BEGIN BEGIN
PROMPT 68 6 "E2" PROMPT 68 6 "E2"
FIELD LF_BASEBIS->QSUPPINV[12,1] FIELD LF_BASEBIS->QSUPPINV[12,1]
END END
BOOLEAN F_QSUPPF BOOLEAN F_QSUPPF
BEGIN BEGIN
PROMPT 2 7 "F" PROMPT 2 7 "F"
FIELD LF_BASEBIS->QSUPPINV[13,1] FIELD LF_BASEBIS->QSUPPINV[13,1]
END END
BOOLEAN F_QSUPPF1 BOOLEAN F_QSUPPF1
BEGIN BEGIN
PROMPT 8 7 "F1" PROMPT 8 7 "F1"
FIELD LF_BASEBIS->QSUPPINV[14,1] FIELD LF_BASEBIS->QSUPPINV[14,1]
END END
BOOLEAN F_QSUPPF2 BOOLEAN F_QSUPPF2
BEGIN BEGIN
PROMPT 14 7 "F2" PROMPT 14 7 "F2"
FIELD LF_BASEBIS->QSUPPINV[15,1] FIELD LF_BASEBIS->QSUPPINV[15,1]
END END
BOOLEAN F_QSUPPG BOOLEAN F_QSUPPG
BEGIN BEGIN
PROMPT 20 7 "G" PROMPT 20 7 "G"
FIELD LF_BASEBIS->QSUPPINV[16,1] FIELD LF_BASEBIS->QSUPPINV[16,1]
END END
BOOLEAN F_QSUPPG1 BOOLEAN F_QSUPPG1
BEGIN BEGIN
PROMPT 26 7 "G1" PROMPT 26 7 "G1"
FIELD LF_BASEBIS->QSUPPINV[17,1] FIELD LF_BASEBIS->QSUPPINV[17,1]
END END
BOOLEAN F_QSUPPH BOOLEAN F_QSUPPH
BEGIN BEGIN
PROMPT 32 7 "H" PROMPT 32 7 "H"
FIELD LF_BASEBIS->QSUPPINV[18,1] FIELD LF_BASEBIS->QSUPPINV[18,1]
END END
BOOLEAN F_QSUPPI BOOLEAN F_QSUPPI
BEGIN BEGIN
PROMPT 38 7 "I" PROMPT 38 7 "I"
FIELD LF_BASEBIS->QSUPPINV[19,1] FIELD LF_BASEBIS->QSUPPINV[19,1]
END END
BOOLEAN F_QSUPPL BOOLEAN F_QSUPPL
BEGIN BEGIN
PROMPT 44 7 "L" PROMPT 44 7 "L"
FIELD LF_BASEBIS->QSUPPINV[20,1] FIELD LF_BASEBIS->QSUPPINV[20,1]
END END
BOOLEAN F_QSUPPN BOOLEAN F_QSUPPN
BEGIN BEGIN
PROMPT 50 7 "N" PROMPT 50 7 "N"
FIELD LF_BASEBIS->QSUPPINV[21,1] FIELD LF_BASEBIS->QSUPPINV[21,1]
END END
BOOLEAN F_QSUPPP BOOLEAN F_QSUPPP
BEGIN BEGIN
PROMPT 56 7 "P" PROMPT 56 7 "P"
FIELD LF_BASEBIS->QSUPPINV[22,1] FIELD LF_BASEBIS->QSUPPINV[22,1]
END END
BOOLEAN F_QSUPPQ BOOLEAN F_QSUPPQ
BEGIN BEGIN
PROMPT 62 7 "Q" PROMPT 62 7 "Q"
FIELD LF_BASEBIS->QSUPPINV[23,1] FIELD LF_BASEBIS->QSUPPINV[23,1]
END END
BOOLEAN F_QSUPPR BOOLEAN F_QSUPPR
BEGIN BEGIN
PROMPT 68 7 "R" PROMPT 68 7 "R"
FIELD LF_BASEBIS->QSUPPINV[24,1] FIELD LF_BASEBIS->QSUPPINV[24,1]
END END
BOOLEAN F_QSUPPS BOOLEAN F_QSUPPS
BEGIN BEGIN
PROMPT 2 8 "S" PROMPT 2 8 "S"
FIELD LF_BASEBIS->QSUPPINV[25,1] FIELD LF_BASEBIS->QSUPPINV[25,1]
END END
BOOLEAN F_QSUPPT BOOLEAN F_QSUPPT
BEGIN BEGIN
PROMPT 8 8 "T" PROMPT 8 8 "T"
FIELD LF_BASEBIS->QSUPPINV[26,1] FIELD LF_BASEBIS->QSUPPINV[26,1]
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 10 "mediante n. " PROMPT 1 10 "mediante n. "
END END
NUMBER F_NSUPPM 4 NUMBER F_NSUPPM 4
BEGIN BEGIN
PROMPT 13 10 "" PROMPT 13 10 ""
FIELD LF_BASEBIS->NSUPPM FIELD LF_BASEBIS->NSUPPM
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 19 10 "supporti magnetici." PROMPT 19 10 "supporti magnetici."
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

316
m770/775100.cpp
View File

@ -1,158 +1,158 @@
// 775100.cpp - Gestione archivio percipienti // 775100.cpp - Gestione archivio percipienti
#include <relapp.h> #include <relapp.h>
#include <config.h> #include <config.h>
#include "77lib.h" #include "77lib.h"
#include "775100a.h" #include "775100a.h"
class TGestionePercipienti : public TRelation_application class TGestionePercipienti : public TRelation_application
{ {
private: private:
TRelation* _rel; TRelation* _rel;
TMask* _msk; TMask* _msk;
long _codditta; long _codditta;
char _tipoa; char _tipoa;
long _codanagr; long _codanagr;
bool _auto_posiz, _deleted; bool _auto_posiz, _deleted;
int _anno_dic; int _anno_dic;
protected: protected:
virtual void on_config_change(); virtual void on_config_change();
virtual void init_query_mode(TMask& m); virtual void init_query_mode(TMask& m);
virtual void init_modify_mode(TMask& m); virtual void init_modify_mode(TMask& m);
void init_mask(TMask& m); void init_mask(TMask& m);
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual TRelation* get_relation() const { return _rel; } virtual TRelation* get_relation() const { return _rel; }
virtual TMask* get_mask(int mode) { return _msk; } virtual TMask* get_mask(int mode) { return _msk; }
virtual bool changing_mask(int mode) { return FALSE; } virtual bool changing_mask(int mode) { return FALSE; }
virtual bool remove(); virtual bool remove();
static bool codditta_handler(TMask_field& f, KEY k); static bool codditta_handler(TMask_field& f, KEY k);
public: public:
TGestionePercipienti(const long codditta=0L, const char tipoa='\0', const long codanagr=0L); TGestionePercipienti(const long codditta=0L, const char tipoa='\0', const long codanagr=0L);
virtual ~TGestionePercipienti() {}; virtual ~TGestionePercipienti() {};
}; };
inline TGestionePercipienti& app() { return (TGestionePercipienti&) main_app(); } inline TGestionePercipienti& app() { return (TGestionePercipienti&) main_app(); }
bool TGestionePercipienti::remove() bool TGestionePercipienti::remove()
{ {
bool ok1 = FALSE, ok2 = FALSE, ha_schede = FALSE; bool ok1 = FALSE, ok2 = FALSE, ha_schede = FALSE;
int err; int err;
TPercipiente perc(_rel->curr()); TPercipiente perc(_rel->curr());
ha_schede = perc.esiste_scheda(); ha_schede = perc.esiste_scheda();
if (ha_schede) if (ha_schede)
ok1 = yesno_box("Esistono in archivio delle schede riguardanti il percipiente selezionato\nEliminare ugualmente?"); ok1 = yesno_box("Esistono in archivio delle schede riguardanti il percipiente selezionato\nEliminare ugualmente?");
if (!ok1) if (!ok1)
return TRUE; return TRUE;
err = _rel->remove(); err = _rel->remove();
// Non ri-compilare i dati in init_query_mode() // Non ri-compilare i dati in init_query_mode()
_deleted = TRUE; _deleted = TRUE;
if (err != NOERR) if (err != NOERR)
return TRUE; return TRUE;
if (ha_schede) if (ha_schede)
{ {
ok2 = yesno_box("Eliminare anche le schede collegate?"); ok2 = yesno_box("Eliminare anche le schede collegate?");
err = perc.elimina_schede(); err = perc.elimina_schede();
} }
return TRUE; return TRUE;
} }
void TGestionePercipienti::init_mask(TMask& m) void TGestionePercipienti::init_mask(TMask& m)
{ {
TString16 tipo; TString16 tipo;
m.set(F_ANNODIC, _anno_dic); m.set(F_ANNODIC, _anno_dic);
tipo << _tipoa; tipo << _tipoa;
m.set(F_TIPOA, tipo); m.set(F_TIPOA, tipo);
} }
void TGestionePercipienti::init_query_mode(TMask& m) void TGestionePercipienti::init_query_mode(TMask& m)
{ {
init_mask(m); init_mask(m);
if (_auto_posiz && !_deleted) if (_auto_posiz && !_deleted)
{ {
TString16 dit, tipo, coda; TString16 dit, tipo, coda;
dit << _codditta; dit << _codditta;
tipo << _tipoa; tipo << _tipoa;
coda << _codanagr; coda << _codanagr;
m.set(F_CODDITTA, dit); m.set(F_CODDITTA, dit);
m.set(F_TIPOA, tipo); m.set(F_TIPOA, tipo);
m.set(F_CODANAGR, coda); m.set(F_CODANAGR, coda);
m.send_key(K_AUTO_ENTER, 0); m.send_key(K_AUTO_ENTER, 0);
} }
} }
void TGestionePercipienti::init_modify_mode(TMask& m) void TGestionePercipienti::init_modify_mode(TMask& m)
{ {
init_mask(m); init_mask(m);
} }
TGestionePercipienti::TGestionePercipienti(const long codditta, const char tipoa, const long codanagr) TGestionePercipienti::TGestionePercipienti(const long codditta, const char tipoa, const long codanagr)
: _codditta(codditta), _tipoa(tipoa), _codanagr(codanagr), _auto_posiz(FALSE) : _codditta(codditta), _tipoa(tipoa), _codanagr(codanagr), _auto_posiz(FALSE)
{ {
_auto_posiz = _codanagr != 0L; _auto_posiz = _codanagr != 0L;
_deleted = FALSE; _deleted = FALSE;
} }
void TGestionePercipienti::on_config_change() void TGestionePercipienti::on_config_change()
{ {
TConfig conf(CONFIG_STUDIO); TConfig conf(CONFIG_STUDIO);
_anno_dic = (int)conf.get_long(ANNO_SEL, NULL); _anno_dic = (int)conf.get_long(ANNO_SEL, NULL);
} }
bool TGestionePercipienti::codditta_handler(TMask_field& f, KEY k) bool TGestionePercipienti::codditta_handler(TMask_field& f, KEY k)
{ {
if (k == K_TAB && !(f.mask().is_running()) ) if (k == K_TAB && !(f.mask().is_running()) )
{ {
TString16 codditta; codditta << app()._codditta; TString16 codditta; codditta << app()._codditta;
if (codditta != "0") if (codditta != "0")
{ {
f.set(codditta); f.set(codditta);
f.check(); f.check();
} }
} }
return TRUE; return TRUE;
} }
bool TGestionePercipienti::user_create() bool TGestionePercipienti::user_create()
{ {
_rel = new TRelation(LF_PERC); _rel = new TRelation(LF_PERC);
_msk = new TMask("775100a"); _msk = new TMask("775100a");
if (!_auto_posiz) if (!_auto_posiz)
_codditta = get_firm_770(); _codditta = get_firm_770();
_msk->set_handler(F_CODDITTA, codditta_handler); _msk->set_handler(F_CODDITTA, codditta_handler);
set_search_field(F_CODANAGR); set_search_field(F_CODANAGR);
return TRUE; return TRUE;
} }
bool TGestionePercipienti::user_destroy() bool TGestionePercipienti::user_destroy()
{ {
delete _rel; delete _msk; delete _rel; delete _msk;
return TRUE; return TRUE;
} }
// 775 -0 10001 F 10 // 775 -0 10001 F 10
int GestPerc(int argc, char* argv[]) int GestPerc(int argc, char* argv[])
{ {
long codditta = 0L; long codditta = 0L;
char tipoa = 'F'; char tipoa = 'F';
long codanagr = 0L; long codanagr = 0L;
if (argc >= 5) if (argc >= 5)
{ {
codditta = atol(argv[2]); codditta = atol(argv[2]);
tipoa = *argv[3]; tipoa = *argv[3];
codanagr = atol(argv[4]); codanagr = atol(argv[4]);
} }
TGestionePercipienti a(codditta, tipoa, codanagr); TGestionePercipienti a(codditta, tipoa, codanagr);
a.run(argc, argv, "Gestione percipienti"); a.run(argc, argv, "Gestione percipienti");
return 0; return 0;
} }

182
m770/775100a.uml
View File

@ -1,91 +1,91 @@
#include "775100a.h" #include "775100a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Gestione percipienti" -1 -1 78 21 PAGE "Gestione percipienti" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "RDG" FLAGS "RDG"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGDITTA RAGSOC OUTPUT F_RAGDITTA RAGSOC
FIELD LF_PERC->CODDITTA FIELD LF_PERC->CODDITTA
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 52 4 "Anno dichiarazione " PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati percipiente" PROMPT 1 7 "@bDati percipiente"
END END
LISTBOX F_TIPOA 1 9 LISTBOX F_TIPOA 1 9
BEGIN BEGIN
PROMPT 1 8 "" PROMPT 1 8 ""
FIELD LF_PERC->TIPOA FIELD LF_PERC->TIPOA
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
KEY 1 KEY 1
END END
NUMBER F_CODANAGR 5 NUMBER F_CODANAGR 5
BEGIN BEGIN
PROMPT 15 8 "" PROMPT 15 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA==#F_CODDITTA)&&(TIPOA==#F_TIPOA)) USE LF_PERC KEY 1 SELECT ((CODDITTA==#F_CODDITTA)&&(TIPOA==#F_TIPOA))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR INPUT CODANAGR F_CODANAGR
DISPLAY "Tipo " TIPOA DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR DISPLAY "Codice " CODANAGR
DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGR CODANAGR OUTPUT F_CODANAGR CODANAGR
OUTPUT F_RAGSOC LF_ANAG->RAGSOC OUTPUT F_RAGSOC LF_ANAG->RAGSOC
FIELD LF_PERC->CODANAGR FIELD LF_PERC->CODANAGR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_FATTBIL 15 NUMBER F_FATTBIL 15
BEGIN BEGIN
PROMPT 1 14 "Fatture da ricevere " PROMPT 1 14 "Fatture da ricevere "
PICTURE "." PICTURE "."
FIELD LF_PERC->FATTBIL FIELD LF_PERC->FATTBIL
FLAGS "R" FLAGS "R"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2476
m770/776100b.uml
View File

File diff suppressed because it is too large Load Diff

322
m770/776500a.uml
View File

@ -1,162 +1,162 @@
#include "776500.h" #include "776500.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Prospetto dati generali" -1 -1 78 18 PAGE "Prospetto dati generali" -1 -1 78 18
#define G_ABICAB 1 #define G_ABICAB 1
#define G_DISTINTA 2 #define G_DISTINTA 2
#define G_CC 3 #define G_CC 3
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 1 "Ditta "
FLAGS "RD" FLAGS "RD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
FIELD LF_BASE->CODDITTA FIELD LF_BASE->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
TEXT 96 TEXT 96
BEGIN BEGIN
PROMPT 2 13 "Numero serie " PROMPT 2 13 "Numero serie "
GROUP G_DISTINTA GROUP G_DISTINTA
END END
TEXT 97 TEXT 97
BEGIN BEGIN
PROMPT 2 13 "Codice ABI " PROMPT 2 13 "Codice ABI "
GROUP G_ABICAB GROUP G_ABICAB
END END
TEXT 98 TEXT 98
BEGIN BEGIN
PROMPT 46 13 "Numero quietanza " PROMPT 46 13 "Numero quietanza "
GROUP G_DISTINTA G_CC GROUP G_DISTINTA G_CC
END END
TEXT 99 TEXT 99
BEGIN BEGIN
PROMPT 46 13 "Codice CAB " PROMPT 46 13 "Codice CAB "
GROUP G_ABICAB GROUP G_ABICAB
END END
DATE F_DATAVERS DATE F_DATAVERS
BEGIN BEGIN
PROMPT 2 7 "Data versamento " PROMPT 2 7 "Data versamento "
FIELD LF_BASE->DATAVERS FIELD LF_BASE->DATAVERS
FLAGS "A" FLAGS "A"
END END
RADIOBUTTON F_LUOVERS 25 RADIOBUTTON F_LUOVERS 25
BEGIN BEGIN
PROMPT 2 8 "Luogo versamento " PROMPT 2 8 "Luogo versamento "
ITEM "C|Concessione" ITEM "C|Concessione"
ITEM "T|Tesoreria" ITEM "T|Tesoreria"
FIELD LF_BASE->LUOVERS FIELD LF_BASE->LUOVERS
END END
RADIOBUTTON F_TIPOVERS 26 RADIOBUTTON F_TIPOVERS 26
BEGIN BEGIN
PROMPT 46 7 "Tipo versamento " PROMPT 46 7 "Tipo versamento "
ITEM "B|Delega bancaria" ITEM "B|Delega bancaria"
MESSAGE RESET,G_DISTINTA@|CLEAR,F_CCQUIETANZA|HIDE,G_DISTINTA@|HIDE,G_CC@|SHOW,G_ABICAB@ MESSAGE RESET,G_DISTINTA@|CLEAR,F_CCQUIETANZA|HIDE,G_DISTINTA@|HIDE,G_CC@|SHOW,G_ABICAB@
ITEM "D|Distinta" ITEM "D|Distinta"
MESSAGE RESET,G_ABICAB@|CLEAR,F_CCQUIETANZA|HIDE,G_ABICAB@|HIDE,G_CC@|SHOW,G_DISTINTA@ MESSAGE RESET,G_ABICAB@|CLEAR,F_CCQUIETANZA|HIDE,G_ABICAB@|HIDE,G_CC@|SHOW,G_DISTINTA@
ITEM "C|C/C Postale" ITEM "C|C/C Postale"
MESSAGE RESET,G_ABICAB@|HIDE,G_ABICAB@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_CC@|ENABLE,G_CC@ MESSAGE RESET,G_ABICAB@|HIDE,G_ABICAB@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_CC@|ENABLE,G_CC@
FIELD LF_BASE->TIPOVERS FIELD LF_BASE->TIPOVERS
END END
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 18 13 "" PROMPT 18 13 ""
FIELD LF_BASE->SERIE FIELD LF_BASE->SERIE
FLAGS "Z" FLAGS "Z"
GROUP G_ABICAB GROUP G_ABICAB
END END
NUMBER F_CAB 5 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 63 13 "" PROMPT 63 13 ""
FIELD LF_BASE->NUMERO[1,5] FIELD LF_BASE->NUMERO[1,5]
FLAGS "Z" FLAGS "Z"
GROUP G_ABICAB GROUP G_ABICAB
END END
NUMBER F_PROGBANCA 6 NUMBER F_PROGBANCA 6
BEGIN BEGIN
PROMPT 69 13 "" PROMPT 69 13 ""
FLAGS "Z" FLAGS "Z"
FIELD LF_BASE->NUMERO[6,11] FIELD LF_BASE->NUMERO[6,11]
GROUP G_ABICAB GROUP G_ABICAB
END END
STRING F_SERIE 5 STRING F_SERIE 5
BEGIN BEGIN
PROMPT 18 13 "" PROMPT 18 13 ""
FIELD LF_BASE->SERIE FIELD LF_BASE->SERIE
GROUP G_DISTINTA GROUP G_DISTINTA
END END
STRING F_NUMERO 11 STRING F_NUMERO 11
BEGIN BEGIN
PROMPT 63 13 "" PROMPT 63 13 ""
FIELD LF_BASE->NUMERO FIELD LF_BASE->NUMERO
GROUP G_DISTINTA GROUP G_DISTINTA
END END
STRING F_CCQUIETANZA 11 STRING F_CCQUIETANZA 11
BEGIN BEGIN
PROMPT 63 13 "" PROMPT 63 13 ""
FIELD LF_BASE->NUMERO FIELD LF_BASE->NUMERO
GROUP G_CC GROUP G_CC
END END
GROUPBOX DLG_NULL 78 11 GROUPBOX DLG_NULL 78 11
BEGIN BEGIN
PROMPT 0 5 "Dati relativi ai versamenti con codice 1015" PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

394
m770/776600.cpp
View File

@ -1,197 +1,197 @@
// 776600.cpp - Gestione estinti // 776600.cpp - Gestione estinti
#include <applicat.h> #include <applicat.h>
#include <mask.h> #include <mask.h>
#include <isam.h> #include <isam.h>
#include <relation.h> #include <relation.h>
#include <sheet.h> #include <sheet.h>
#include <urldefid.h> #include <urldefid.h>
#include "776600a.h" #include "776600a.h"
#include "77lib.h" #include "77lib.h"
// //
// Lista modifiche // Lista modifiche
// 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione // 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione
// anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro // anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro
// //
class TEstinti_app : public TApplication class TEstinti_app : public TApplication
{ {
long _codditta; long _codditta;
TMask* _msk; TMask* _msk;
TLocalisamfile* _base, *_basebis; TLocalisamfile* _base, *_basebis;
TRelation* _rel; TRelation* _rel;
TCursor* _cur; TCursor* _cur;
TBrowse_sheet* _estint_sheet; TBrowse_sheet* _estint_sheet;
TRectype& _rec; TRectype& _rec;
static bool show_estinti(TMask_field& f, KEY k); static bool show_estinti(TMask_field& f, KEY k);
void force_output(int dlg, const long cod); void force_output(int dlg, const long cod);
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
bool save(TMask& m, const long coddic_prec); bool save(TMask& m, const long coddic_prec);
bool set_codditta(TMask_field& f); bool set_codditta(TMask_field& f);
bool main_loop(); bool main_loop();
}; };
TEstinti_app& app() { return (TEstinti_app&) main_app(); } TEstinti_app& app() { return (TEstinti_app&) main_app(); }
bool TEstinti_app::set_codditta(TMask_field& f) bool TEstinti_app::set_codditta(TMask_field& f)
{ {
TString16 codditta; TString16 codditta;
codditta << get_firm_770(); codditta << get_firm_770();
if (codditta != "0") if (codditta != "0")
{ {
f.set(codditta); f.set(codditta);
// f.set_dirty(); // f.set_dirty();
f.check(); f.check();
} }
return TRUE; return TRUE;
} }
bool TEstinti_app::show_estinti(TMask_field& f, KEY k) bool TEstinti_app::show_estinti(TMask_field& f, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
app()._estint_sheet->run(); app()._estint_sheet->run();
return TRUE; return TRUE;
} }
bool TEstinti_app::create() bool TEstinti_app::create()
{ {
TApplication::create(); TApplication::create();
_base = new TLocalisamfile(LF_BASE); _base = new TLocalisamfile(LF_BASE);
_basebis = new TLocalisamfile(LF_BASEBIS); _basebis = new TLocalisamfile(LF_BASEBIS);
_msk = new TMask("776600a"); _msk = new TMask("776600a");
_rel = new TRelation(LF_BASE); _rel = new TRelation(LF_BASE);
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA"); _rel->add(LF_NDITTE, "CODDITTA=CODDITTA");
_codditta = get_firm_770(); _codditta = get_firm_770();
set_codditta(_msk->field(F_CODDITTA)); set_codditta(_msk->field(F_CODDITTA));
TString16 filt; TString16 filt;
filt.format("CODDIC=%ld", _codditta); filt.format("CODDIC=%ld", _codditta);
_cur = new TCursor(_rel, filt); _cur = new TCursor(_rel, filt);
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY); TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY);
TToken_string siblings; TToken_string siblings;
_estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti", _estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti",
"Codice|Ragione sociale@50", 8, &dummy, siblings); "Codice|Ragione sociale@50", 8, &dummy, siblings);
_msk->set_handler(F_ESTINTI, show_estinti); _msk->set_handler(F_ESTINTI, show_estinti);
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;
} }
bool TEstinti_app::destroy() bool TEstinti_app::destroy()
{ {
delete _estint_sheet; delete _estint_sheet;
delete _rel; delete _cur; delete _rel; delete _cur;
delete _msk; delete _base; delete _basebis; delete _msk; delete _base; delete _basebis;
return TApplication::destroy(); return TApplication::destroy();
} }
void TEstinti_app::force_output(int dlg, const long codditta) void TEstinti_app::force_output(int dlg, const long codditta)
{ {
TLocalisamfile ditte(LF_NDITTE); TLocalisamfile ditte(LF_NDITTE);
ditte.zero(); ditte.zero();
ditte.put("CODDITTA", (long)codditta); ditte.put("CODDITTA", (long)codditta);
int ret = ditte.read(_isequal); int ret = ditte.read(_isequal);
if (ret == NOERR) if (ret == NOERR)
{ {
TString80 ragsoc(ditte.get("RAGSOC")); TString80 ragsoc(ditte.get("RAGSOC"));
_msk->set(dlg, ragsoc); _msk->set(dlg, ragsoc);
} }
} }
bool TEstinti_app::save(TMask& m, const long codic_prec) bool TEstinti_app::save(TMask& m, const long codic_prec)
{ {
const long new_codic = m.get_long(F_CODDIC); const long new_codic = m.get_long(F_CODDIC);
_rec = _base->curr(); _rec = _base->curr();
_rec.zero(); _rec.zero();
_rec.put("TIPOQUA", ' '); _rec.put("TIPOQUA", ' ');
_rec.put("CODDITTA",(long)_codditta); _rec.put("CODDITTA",(long)_codditta);
_base->read(_rec); _base->read(_rec);
_rec.put("CODDIC",(long)new_codic); _rec.put("CODDIC",(long)new_codic);
_base->rewrite(_rec); _base->rewrite(_rec);
// Stessa cosa su basebis // Stessa cosa su basebis
_basebis->zero(); _basebis->zero();
_basebis->put("CODDITTA", (long)_codditta); _basebis->put("CODDITTA", (long)_codditta);
_basebis->put("CODDIC", (long)new_codic); _basebis->put("CODDIC", (long)new_codic);
_basebis->rewrite(); _basebis->rewrite();
// Crea il record globale per il dichiarante scelto se non esiste // Crea il record globale per il dichiarante scelto se non esiste
// 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare // 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare
// il dichiarante crea un record duplicato! // il dichiarante crea un record duplicato!
if (new_codic != 0L) if (new_codic != 0L)
if (!exist_dichiar_770(new_codic, TRUE)) if (!exist_dichiar_770(new_codic, TRUE))
enter_dichiar_770(new_codic, anno_770(), TRUE); enter_dichiar_770(new_codic, anno_770(), TRUE);
return TRUE; return TRUE;
} }
bool TEstinti_app::main_loop() bool TEstinti_app::main_loop()
{ {
KEY tasto = K_ESC; KEY tasto = K_ESC;
const long codditta = _msk->get_long(F_CODDITTA); const long codditta = _msk->get_long(F_CODDITTA);
_base->zero(); _base->zero();
_base->setkey(1); _base->setkey(1);
_base->put("CODDITTA", (long)codditta); _base->put("CODDITTA", (long)codditta);
_base->read(); _base->read();
_msk->open_modal(); _msk->open_modal();
while (tasto != K_QUIT) while (tasto != K_QUIT)
{ {
const bool dichiarante = sogg_dic(_codditta); const bool dichiarante = sogg_dic(_codditta);
long coddic = 0L; long coddic = 0L;
if (!dichiarante) if (!dichiarante)
{ {
coddic = sogg_estinto(_codditta); coddic = sogg_estinto(_codditta);
if (coddic > 0L && coddic < COD_QUA_I_DIC) if (coddic > 0L && coddic < COD_QUA_I_DIC)
{ {
_msk->set(F_CODDIC, coddic); _msk->set(F_CODDIC, coddic);
// _msk->field(F_CODDIC).check(); // _msk->field(F_CODDIC).check();
force_output(F_RAGSOC, coddic); force_output(F_RAGSOC, coddic);
} }
} }
_msk->enable(F_CODDIC, !dichiarante); _msk->enable(F_CODDIC, !dichiarante);
_msk->enable(F_ESTINTI, dichiarante); _msk->enable(F_ESTINTI, dichiarante);
_msk->enable(DLG_SAVEREC,!dichiarante); _msk->enable(DLG_SAVEREC,!dichiarante);
tasto = _msk->run(); tasto = _msk->run();
switch (tasto) { switch (tasto) {
case K_ENTER: case K_ENTER:
if (_msk->dirty()) if (_msk->dirty())
// Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare // Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare
if (!dichiarante) if (!dichiarante)
save(*_msk, coddic); save(*_msk, coddic);
break; break;
case K_ESC : case K_ESC :
tasto = K_QUIT; tasto = K_QUIT;
break; break;
case K_QUIT : case K_QUIT :
break; break;
case K_SAVE : case K_SAVE :
if (!dichiarante) if (!dichiarante)
save(*_msk, coddic); save(*_msk, coddic);
break; break;
default: default:
break; break;
} }
} }
_msk->close(); _msk->close();
return FALSE; return FALSE;
} }
bool TEstinti_app::menu(MENU_TAG m) bool TEstinti_app::menu(MENU_TAG m)
{ {
if (m == BAR_ITEM(1)) if (m == BAR_ITEM(1))
return main_loop(); return main_loop();
return FALSE; return FALSE;
} }
int Estinti(int argc, char* argv[]) int Estinti(int argc, char* argv[])
{ {
TEstinti_app a; TEstinti_app a;
a.run(argc, argv, "Gestione dichiarante / estinti"); a.run(argc, argv, "Gestione dichiarante / estinti");
return 0; return 0;
} }

196
m770/776600a.uml
View File

@ -1,98 +1,98 @@
// 776600a.uml - Gestione estinti-dichiaranti // 776600a.uml - Gestione estinti-dichiaranti
#include "776600a.h" #include "776600a.h"
PAGE "Gestione dichiarante / estinti" -1 -1 78 8 PAGE "Gestione dichiarante / estinti" -1 -1 78 8
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
USE LF_BASE KEY 1 USE LF_BASE KEY 1
JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_CODDIC CODDITTA OUTPUT F_CODDIC CODDITTA
OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC
FLAGS "DG" FLAGS "DG"
FIELD LF_BASE->CODDITTA FIELD LF_BASE->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
// serve solo per costruire un Browse_sheet. v. 776600.cpp // serve solo per costruire un Browse_sheet. v. 776600.cpp
NUMBER F_CODDIC_DUMMY 5 NUMBER F_CODDIC_DUMMY 5
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
USE LF_BASE KEY 2 USE LF_BASE KEY 2
JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_CODDIC CODDITTA OUTPUT F_CODDIC CODDITTA
FLAGS "HG" FLAGS "HG"
END END
NUMBER F_CODDIC 5 NUMBER F_CODDIC 5
BEGIN BEGIN
PROMPT 1 3 "Soggetto dichiarante " PROMPT 1 3 "Soggetto dichiarante "
USE LF_BASE KEY 1 SELECT ((CODDITTA!=#F_CODDITTA)&&(CODDIC="")&&(TIPOQUA!="D")) USE LF_BASE KEY 1 SELECT ((CODDITTA!=#F_CODDITTA)&&(CODDIC="")&&(TIPOQUA!="D"))
JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
INPUT TIPOQUA F_TIPOQUA INPUT TIPOQUA F_TIPOQUA
INPUT CODDITTA F_CODDIC INPUT CODDITTA F_CODDIC
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_CODDIC CODDITTA OUTPUT F_CODDIC CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
FIELD LF_BASE->CODDIC FIELD LF_BASE->CODDIC
WARNING "Ditta dichiarante non valida" WARNING "Ditta dichiarante non valida"
HELP "Indicare la ditta dichiarante" HELP "Indicare la ditta dichiarante"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 4 "Ragione " PROMPT 1 4 "Ragione "
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_SAVEREC 9 2 BUTTON DLG_SAVEREC 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
BUTTON F_ESTINTI 16 2 BUTTON F_ESTINTI 16 2
BEGIN BEGIN
PROMPT -33 -1 "~Soggetti estinti" PROMPT -33 -1 "~Soggetti estinti"
END END
STRING F_TIPOQUA 2 STRING F_TIPOQUA 2
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FIELD LF_BASE->TIPOQUA FIELD LF_BASE->TIPOQUA
KEY 1 KEY 1
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

96
m770/77qaall.uml
View File

@ -1,48 +1,48 @@
// 77qaall.uml - A,A2 - allegati 730 // 77qaall.uml - A,A2 - allegati 730
#include "77qaall.h" #include "77qaall.h"
PAGE "Allegati 730 " -1 14 60 7 PAGE "Allegati 730 " -1 14 60 7
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 2 "Il sottoscritto allega n. " PROMPT 2 2 "Il sottoscritto allega n. "
END END
NUMBER QA_NUM_ALL 5 NUMBER QA_NUM_ALL 5
BEGIN BEGIN
PROMPT 28 2 "" PROMPT 28 2 ""
END END
NUMBER QA2_NUM_ALL 5 NUMBER QA2_NUM_ALL 5
BEGIN BEGIN
PROMPT 28 2 "" PROMPT 28 2 ""
END END
TEXT QA2_ANNO_ALL TEXT QA2_ANNO_ALL
BEGIN BEGIN
PROMPT 35 2 "mod.730/95 completi" PROMPT 35 2 "mod.730/95 completi"
END END
TEXT QA_ANNO_ALL TEXT QA_ANNO_ALL
BEGIN BEGIN
PROMPT 35 2 "mod.730/96 completi" PROMPT 35 2 "mod.730/96 completi"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1" PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK