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

Con questo spero di aver terminato l'adeguamento a XI (LA)

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4077 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1997-01-15 14:38:42 +00:00
parent 70e923b00a
commit 32ddf6cbf0
32 changed files with 397 additions and 499 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
m770/770100b.uml
View File

@ -61,7 +61,7 @@ STRING F_CODCAUS 2
BEGIN BEGIN
FIELD LF_SCPERC->CODCAUS FIELD LF_SCPERC->CODCAUS
PROMPT 0 1 "" PROMPT 0 1 ""
USE %CA7 SELECT (I0!="1015")&&((S1="C")||(S1="D")||(S1="D1")||(S1="E")||(S1="E1")||(S1="E2")) USE %CA7 SELECT (I0!="1015")&&((S1="C")||(S1="D")||(S1="D1")||(S1="E")||(S1="E1")||(S1="E2")||(S1="G")||(S1="G1"))
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB F_CODCAUS INPUT CODTAB F_CODCAUS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB

1
m770/771200.h
View File

@ -108,6 +108,7 @@
#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_AIRPEFINT 253
#define F_STASSA12 254 #define F_STASSA12 254
#define F_CONTR13 255 #define F_CONTR13 255
#define F_CONTR14 256 #define F_CONTR14 256

56
m770/771200b.uml
View File

@ -231,28 +231,28 @@ BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER F_CODIP 6 NUMBER DLG_NULL 6
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 2 GROUP 2
END END
STRING QAF_COGNOME 24 STRING DLG_NULL 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER DLG_NULL 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"
@ -427,36 +427,28 @@ BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
/* NUMBER DLG_NULL 6
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
GROUP 1
END
*/
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 DLG_NULL 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER DLG_NULL 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"
@ -598,36 +590,28 @@ BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
/* NUMBER DLG_NULL 6
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
GROUP 1
END
*/
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 DLG_NULL 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER DLG_NULL 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"
@ -840,36 +824,28 @@ BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
/* NUMBER DLG_NULL 6
NUMBER QAF_CODDITTA 5
BEGIN
FLAGS "H"
GROUP 1
END
*/
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 DLG_NULL 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER DLG_NULL 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"

15
m770/771200d.uml
View File

@ -16,7 +16,6 @@ BEGIN
FLAGS "D" FLAGS "D"
FIELD LF_QUAA1->CODDITTA FIELD LF_QUAA1->CODDITTA
KEY 1 KEY 1
MESSAGE COPY,1@
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
@ -162,34 +161,28 @@ BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QAF_CODDITTA 5 NUMBER DLG_NULL 6
BEGIN
FLAGS "H"
GROUP 1
END
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 DLG_NULL 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER DLG_NULL 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"

18
m770/771200f.uml
View File

@ -16,7 +16,6 @@ BEGIN
FLAGS "D" FLAGS "D"
FIELD LF_QUAA2->CODDITTA FIELD LF_QUAA2->CODDITTA
KEY 1 KEY 1
MESSAGE COPY,1@
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
@ -196,9 +195,8 @@ BEGIN
GROUP G_730 GROUP G_730
END END
NUMBER F_INTER11 15 NUMBER F_AIRPEFINT 15
BEGIN BEGIN
// PROMPT 41 11 "Interessi "
PROMPT 61 11 "" PROMPT 61 11 ""
FIELD LF_QUAA2->AIRPEFINT FIELD LF_QUAA2->AIRPEFINT
PICTURE "." PICTURE "."
@ -232,34 +230,28 @@ BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QAF_CODDITTA 5 NUMBER DLG_NULL 6
BEGIN
FLAGS "H"
GROUP 1
END
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 DLG_NULL 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 3 GROUP 3
END END
STRING QAF_NOME 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
GROUP 4 GROUP 4
END END
NUMBER QAF_NPROG 4 NUMBER DLG_NULL 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FLAGS "DG" FLAGS "DG"

1
m770/771231.cpp
View File

@ -10,6 +10,7 @@
#include <tabutil.h> #include <tabutil.h>
#include <progind.h> #include <progind.h>
#include <defmask.h> #include <defmask.h>
#include <recarray.h>
#include "77lib.h" #include "77lib.h"
#include "scperc.h" #include "scperc.h"
#include "rpag.h" #include "rpag.h"

2
m770/771290.cpp
View File

@ -134,7 +134,7 @@ bool TQuadro_H_app::dettaglio(TMask_field& f , KEY k)
TString appname = "771mod -4"; TString appname = "771mod -4";
TToken_string body; TToken_string body;
body << F_ANNO << "|"; body << F_DATAVERS << "|";
body << F_ANNO << "=" << f.mask().get(F_H1ANNO) << "|"; body << F_ANNO << "=" << f.mask().get(F_H1ANNO) << "|";
body << F_CODDITTA << "=" << f.mask().get(F_CODDITTA) << "|"; body << F_CODDITTA << "=" << f.mask().get(F_CODDITTA) << "|";
body << F_ENTE << "=" << f.mask().get(F_ENTE); body << F_ENTE << "=" << f.mask().get(F_ENTE);

2
m770/771295.cpp
View File

@ -83,7 +83,7 @@ bool TDettaglio_H_app::user_create()
_msk->set_handler(F_ENTE, descr_ente); _msk->set_handler(F_ENTE, descr_ente);
set_search_field(F_ANNO); set_search_field(F_DATAVERS);
return TRUE; return TRUE;
} }

60
m770/771295a.uml
View File

@ -16,7 +16,7 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FRD" FLAGS "FRDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
FIELD LF_DETH->CODDITTA FIELD LF_DETH->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -30,7 +30,7 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "DP"
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
@ -38,20 +38,8 @@ BEGIN
PROMPT 52 3 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FIELD LF_DETH->ANNO FIELD LF_DETH->ANNO
KEY 1 KEY 1
USE LF_DETH KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (ANNO=#F_ANNO) && (ENTE=#F_ENTE))
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA FLAGS "RDP"
INPUT ANNO F_ANNO
DISPLAY "Ditta" CODDITTA
DISPLAY "Anno" ANNO
DISPLAY "Ente@33" ENTE
DISPLAY "Data versamento" DATAVERS
DISPLAY "Numero versamento" NUMVERS
OUTPUT F_ANNO ANNO
OUTPUT F_ENTE ENTE
OUTPUT F_DATAVERS DATAVERS
OUTPUT F_NUMVERS NUMVERS
FLAGS "RD"
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -62,36 +50,36 @@ END
NUMBER F_ENTE 2 NUMBER F_ENTE 2
BEGIN BEGIN
PROMPT 2 8 "" PROMPT 2 8 ""
COPY USE F_ANNO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
INPUT ANNO F_ANNO
INPUT ENTE F_ENTE
COPY DISPLAY F_ANNO
COPY OUTPUT F_ANNO
FIELD LF_DETH->ENTE FIELD LF_DETH->ENTE
VALIDATE NOT_EMPTY_FUNC FLAGS "GDP"
FLAGS "GD"
KEY 1 KEY 1
END END
STRING F_DESCRENTE 60 STRING F_DESCRENTE 60
BEGIN BEGIN
PROMPT 7 8 "" PROMPT 7 8 ""
FLAGS "D" FLAGS "DP"
END END
DATE F_DATAVERS DATE F_DATAVERS
BEGIN BEGIN
PROMPT 2 10 "Data versamento " PROMPT 2 10 "Data versamento "
COPY USE F_ANNO USE LF_DETH
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA SELECT
INPUT ANNO F_ANNO INPUT ANNO F_ANNO SELECT
INPUT ENTE F_ENTE INPUT ENTE F_ENTE SELECT
INPUT DATAVERS F_DATAVERS INPUT DATAVERS F_DATAVERS
COPY DISPLAY F_ANNO DISPLAY "Ditta" CODDITTA
COPY OUTPUT F_ANNO DISPLAY "Anno" ANNO
DISPLAY "Ente@33" ENTE
DISPLAY "Data versamento" DATAVERS
DISPLAY "Numero versamento" NUMVERS
OUTPUT F_ANNO ANNO
OUTPUT F_ENTE ENTE
OUTPUT F_DATAVERS DATAVERS
OUTPUT F_NUMVERS NUMVERS
FIELD LF_DETH->DATAVERS FIELD LF_DETH->DATAVERS
KEY 1 KEY 1
END END
@ -99,15 +87,15 @@ END
NUMBER F_NUMVERS 5 NUMBER F_NUMVERS 5
BEGIN BEGIN
PROMPT 2 11 "Numero versamento " PROMPT 2 11 "Numero versamento "
COPY USE F_ANNO COPY USE F_DATAVERS
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA SELECT
INPUT ANNO F_ANNO INPUT ANNO F_ANNO SELECT
INPUT ENTE F_ENTE INPUT ENTE F_ENTE SELECT
INPUT DATAVERS F_DATAVERS INPUT DATAVERS F_DATAVERS
INPUT NUMVERS F_NUMVERS INPUT NUMVERS F_NUMVERS
COPY DISPLAY F_ANNO COPY DISPLAY F_DATAVERS
COPY OUTPUT F_ANNO COPY OUTPUT F_DATAVERS
FIELD LF_DETH->NUMVERS FIELD LF_DETH->NUMVERS
FLAGS "R" FLAGS "R"
KEY 1 KEY 1

19
m770/771300.cpp
View File

@ -107,6 +107,7 @@ void TQuadroI::init_query_mode(TMask& m)
void TQuadroI::init_modify_mode(TMask& m) void TQuadroI::init_modify_mode(TMask& m)
{ {
setta_ditta(m); setta_ditta(m);
_msk->disable(DLG_DELREC);
if (_quadro == 'W' || _quadro == '2') if (_quadro == 'W' || _quadro == '2')
{ {
@ -235,22 +236,34 @@ bool TQuadroI::user_create()
_rel = new TRelation (LF_BASE); _rel = new TRelation (LF_BASE);
_rel->add(LF_BASEBIS,"TIPOQUA=\"D\"&&CODDITTA=CODDITTA",1); _rel->add(LF_BASEBIS,"TIPOQUA=\"D\"&&CODDITTA=CODDITTA",1);
_msk = new TMask("771300a"); _msk = new TMask("771300a");
_msk->disable(DLG_NEWREC);
_msk->disable(DLG_DELREC);
_msk->disable(DLG_FINDREC);
break; break;
case 'I': case 'I':
_rel = new TRelation (LF_BASE); _rel = new TRelation (LF_BASE);
_rel->add(LF_BASEBIS,"CODDITTA=CODDITTA",1); _rel->add(LF_BASEBIS,"CODDITTA=CODDITTA",1);
_msk = new TMask("771300a"); _msk = new TMask("771300a");
_msk->disable(DLG_NEWREC);
_msk->disable(DLG_DELREC);
_msk->disable(DLG_FINDREC);
break; break;
case 'W': case 'W':
_rel = new TRelation (LF_BASEBIS);
_msk = new TMask("771400a"); _msk = new TMask("771400a");
_msk->disable(DLG_NEWREC);
_msk->disable(DLG_DELREC);
_msk->disable(DLG_FINDREC);
_msk->set_handler(F_M3, PDGcalcolaM6); _msk->set_handler(F_M3, PDGcalcolaM6);
_msk->set_handler(F_M4, PDGcalcolaM6); _msk->set_handler(F_M4, PDGcalcolaM6);
_msk->set_handler(F_M5, PDGcalcolaM6); _msk->set_handler(F_M5, PDGcalcolaM6);
_rel = new TRelation (LF_BASEBIS);
break; break;
case '2': case '2':
_msk = new TMask("771400b");
_rel = new TRelation (LF_BASEBIS); _rel = new TRelation (LF_BASEBIS);
_msk = new TMask("771400b");
_msk->disable(DLG_NEWREC);
_msk->disable(DLG_DELREC);
_msk->disable(DLG_FINDREC);
break; break;
default: default:
break; break;
@ -301,7 +314,7 @@ int m71300(int argc, char* argv[])
{ {
case 'I': case 'I':
case '1': case '1':
title = "Gestione quadro I"; title = "Quadro I";
break; break;
case 'W': case 'W':
case '2': case '2':

27
m770/771300.h
View File

@ -108,7 +108,6 @@
#define F_G0UNSRIT3 200 #define F_G0UNSRIT3 200
#define F_G0USPE 201 #define F_G0USPE 201
#define F_G0NPER 202 #define F_G0NPER 202
#define F_G0UPAG 212
#define F_G1UCOR 203 #define F_G1UCOR 203
#define F_G1USRIT 204 #define F_G1USRIT 204
#define F_G1RACC 206 #define F_G1RACC 206
@ -133,12 +132,13 @@
#define F_F2CRIMPRAS 224 #define F_F2CRIMPRAS 224
#define F_G0CRIMPRAS 225 #define F_G0CRIMPRAS 225
#define F_G1CRIMPRAS 226 #define F_G1CRIMPRAS 226
#define F_G0UPAG 227
// Quadro A-3 // Quadro A-3
#define F_A3NFCOM 218 #define F_A3NFCOM 228
#define F_A3NUMPER 219 #define F_A3NUMPER 229
#define F_A3REPT10 220 #define F_A3REPT10 230
#define F_A3REPT12 221 #define F_A3REPT12 231
// Campi maschera prospetto dati generali // Campi maschera prospetto dati generali
#define F_DATLAV 250 #define F_DATLAV 250
@ -176,6 +176,14 @@
#define F_QCOMPS 279 #define F_QCOMPS 279
#define F_QCOMPT 280 #define F_QCOMPT 280
// P.dati generali
#define F_M1 300
#define F_M2 301
#define F_M3 302
#define F_M4 303
#define F_M5 304
#define F_M6 305
#define F_QSUPPA 400 #define F_QSUPPA 400
#define F_QSUPPA1 401 #define F_QSUPPA1 401
#define F_QSUPPA2 402 #define F_QSUPPA2 402
@ -203,15 +211,6 @@
#define F_QSUPPS 424 #define F_QSUPPS 424
#define F_QSUPPT 425 #define F_QSUPPT 425
// P.dati generali
#define F_M1 300
#define F_M2 301
#define F_M3 302
#define F_M4 303
#define F_M5 304
#define F_M6 305
#define F_TIPOQUA1 430 #define F_TIPOQUA1 430
#define F_TIPOQUA2 431 #define F_TIPOQUA2 431
#define F_TIPOQUA 432 #define F_TIPOQUA 432

51
m770/771300a.uml
View File

@ -1,26 +1,11 @@
// Quadro I // Quadro I
#include "771300.h" #include "771300.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2 #include "toolbar.h"
BEGIN
PROMPT -13 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "A" -1 -1 78 18
LISTBOX F_TIPOQUA1 12 LISTBOX F_TIPOQUA1 12
BEGIN BEGIN
@ -30,31 +15,27 @@ BEGIN
FLAGS "D" FLAGS "D"
KEY 1 KEY 1
FIELD LF_BASEBIS->CODDIC FIELD LF_BASEBIS->CODDIC
// CHECKTYPE REQUIRED
END END
LISTBOX F_TIPOQUA2 12 LISTBOX F_TIPOQUA2 12
BEGIN BEGIN
PROMPT 90 90 "" PROMPT 90 90 ""
// PROMPT 10 3 ""
ITEM " |Normale" ITEM " |Normale"
ITEM "D|Dichiarante" ITEM "D|Dichiarante"
FLAGS "D" FLAGS "D"
KEY 1 KEY 1
FIELD LF_BASE->CODDIC FIELD LF_BASE->CODDIC
// CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 1 0 ""
FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "RG" FLAGS "RGD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
@ -66,7 +47,7 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
@ -228,7 +209,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "A..A3" -1 -1 78 18
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
@ -382,7 +363,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "B" -1 -1 78 18
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
@ -536,7 +517,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "B1..C" -1 -1 78 18
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
@ -667,7 +648,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "D..D1" -1 -1 78 18
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
@ -805,7 +786,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "E..E2" -1 -1 78 18
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
@ -995,7 +976,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "F..F2" -1 -1 78 18
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
@ -1159,7 +1140,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "G..G1" -1 -1 78 18
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
@ -1360,7 +1341,7 @@ END
ENDPAGE ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "H" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN

2
m770/771310.cpp
View File

@ -474,7 +474,7 @@ bool M71310_application::user_destroy()
int m71310(int argc, char* argv[]) int m71310(int argc, char* argv[])
{ {
M71310_application a; M71310_application a;
a.run(argc, argv, "Gestione quadro L"); a.run(argc, argv, "Quadro L");
return 0; return 0;
} }

34
m770/771310a.uml
View File

@ -1,5 +1,6 @@
// 771310a.uml - Quadro L // 771310a.uml - Quadro L
#include "771310.h" #include "771310.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
BUTTON F_GENERA 21 2 BUTTON F_GENERA 21 2
BEGIN BEGIN
@ -14,17 +15,16 @@ END
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "QUADRO L" -1 -1 78 18 PAGE "Quadro L" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 1 0 ""
FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "RDG" FLAGS "RDG"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
FIELD LF_QUAL->CODDITTA FIELD LF_QUAL->CODDITTA
@ -38,7 +38,7 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
@ -49,7 +49,7 @@ END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 2 4 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
END END
NUMBER F_QLANNOPAG 4 NUMBER F_QLANNOPAG 4
@ -93,7 +93,7 @@ END
LIST F_QLMESEPAG 2 13 LIST F_QLMESEPAG 2 13
BEGIN BEGIN
PROMPT 46 6 "Mese pagamento " PROMPT 45 6 "Mese pagamento "
FIELD LF_QUAL->QLMP FIELD LF_QUAL->QLMP
ITEM " |Indefinito" ITEM " |Indefinito"
FLAGS "M" FLAGS "M"
@ -109,7 +109,7 @@ END
LIST F_QLLUOVERS 11 LIST F_QLLUOVERS 11
BEGIN BEGIN
PROMPT 46 7 "Luogo versamento " PROMPT 45 7 "Luogo versamento "
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "C|Concessione" ITEM "C|Concessione"
ITEM "T|Tesoreria" ITEM "T|Tesoreria"
@ -134,7 +134,7 @@ END
NUMBER F_QLCODTRIB 4 NUMBER F_QLCODTRIB 4
BEGIN BEGIN
PROMPT 46 8 "Codice tributo " PROMPT 45 8 "Codice tributo "
FIELD LF_QUAL->QLCT FIELD LF_QUAL->QLCT
KEY 1 KEY 1
END END
@ -154,13 +154,13 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 46 10 "Numero " PROMPT 45 10 "Numero "
GROUP G_DISTINTA GROUP G_DISTINTA
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 46 10 "Quietanza " PROMPT 45 10 "Quietanza "
GROUP G_CC GROUP G_CC
END END
@ -172,7 +172,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 46 10 "Codice CAB " PROMPT 45 10 "Codice CAB "
GROUP G_ABICAB GROUP G_ABICAB
END END
@ -186,7 +186,7 @@ END
STRING F_QLNUMERO 11 STRING F_QLNUMERO 11
BEGIN BEGIN
PROMPT 63 10 "" PROMPT 62 10 ""
FIELD LF_QUAL->QLNUMERO FIELD LF_QUAL->QLNUMERO
GROUP G_DISTINTA GROUP G_DISTINTA
KEY 1 KEY 1
@ -194,7 +194,7 @@ END
STRING F_CCQUIETANZA 11 STRING F_CCQUIETANZA 11
BEGIN BEGIN
PROMPT 63 10 "" PROMPT 62 10 ""
FIELD LF_QUAL->QLNUMERO FIELD LF_QUAL->QLNUMERO
GROUP G_CC GROUP G_CC
KEY 1 KEY 1
@ -211,7 +211,7 @@ END
NUMBER F_CAB 5 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 63 10 "" PROMPT 62 10 ""
FIELD LF_QUAL->QLNUMERO[1,5] FIELD LF_QUAL->QLNUMERO[1,5]
FLAGS "Z" FLAGS "Z"
GROUP G_ABICAB GROUP G_ABICAB
@ -220,7 +220,7 @@ END
NUMBER F_NPROG 6 NUMBER F_NPROG 6
BEGIN BEGIN
PROMPT 69 10 "" PROMPT 68 10 ""
FIELD LF_QUAL->QLNUMERO[6,11] FIELD LF_QUAL->QLNUMERO[6,11]
FLAGS "Z" FLAGS "Z"
GROUP G_ABICAB GROUP G_ABICAB

56
m770/771400a.uml
View File

@ -2,40 +2,19 @@
#include "771300.h" #include "771300.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include "toolbar.h"
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE ENDPAGE
PAGE "Prospetto dati generali" -1 -1 78 18 PAGE "Quadro M" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 1 0 ""
FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "DGR" FLAGS "DGR"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
@ -50,7 +29,7 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
MESSAGE COPY,2@ MESSAGE COPY,2@
END END
@ -106,7 +85,6 @@ BEGIN
FIELD LF_BASEBIS->CRIMPIVA FIELD LF_BASEBIS->CRIMPIVA
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
NUMBER F_M5 15 NUMBER F_M5 15
@ -127,24 +105,23 @@ END
ENDPAGE ENDPAGE
PAGE "Prospetto dati generali" -1 -1 78 18 PAGE "Quadri compilati" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 1 0 ""
FLAGS "R"
END END
NUMBER DLG_NULL 5 NUMBER DLG_NULL 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 3 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 17 1 "Ragione "
FLAGS "D" FLAGS "D"
GROUP 2 GROUP 2
END END
@ -341,24 +318,23 @@ END
ENDPAGE ENDPAGE
PAGE "Prospetto dati generali" -1 -1 78 18 PAGE "Quadri inviati" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 1 0 ""
FLAGS "R"
END END
NUMBER DLG_NULL 5 NUMBER DLG_NULL 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 3 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 17 1 "Ragione "
FLAGS "D" FLAGS "D"
GROUP 2 GROUP 2
END END

7
m770/772200a.uml
View File

@ -54,8 +54,6 @@ LISTBOX F_A 10
BEGIN BEGIN
PROMPT 37 6 "A " PROMPT 37 6 "A "
FLAGS "M" FLAGS "M"
STR_EXPR (#THIS_FIELD >= #F_DA) //Non funziona!!!
WARNING "Limite superiore errato"
END END
STRING F_TIPODA 1 STRING F_TIPODA 1
@ -121,9 +119,8 @@ BEGIN
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_CODA CODANAGR OUTPUT F_CODA CODANAGR
OUTPUT F_RAGA LF_ANAG->RAGSOC OUTPUT F_RAGA LF_ANAG->RAGSOC
WARNING "Percipiente inesistente" NUM_EXPR {(#F_CODA==0)||(#F_CODA>=#F_CODDA)}
// NUM_EXPR {(#F_CODA==0)||(#F_CODA>=#F_CODDA)} WARNING "Limite superiore errato"
// WARNING "Limite superiore errato"
END END
STRING F_RAGA 50 STRING F_RAGA 50

1
m770/774200.cpp
View File

@ -25,6 +25,7 @@
#include <utility.h> #include <utility.h>
#include <config.h> #include <config.h>
#include <urldefid.h> #include <urldefid.h>
#include <recarray.h>
#include "774200.h" #include "774200.h"
#include "quadroa.h" #include "quadroa.h"
#include "quadroa3.h" #include "quadroa3.h"

6
m770/776100b.uml
View File

@ -132,6 +132,7 @@ END
BUTTON DLG_STOPREC_SP 1 1 BUTTON DLG_STOPREC_SP 1 1
BEGIN BEGIN
PROMPT 1 8 "" PROMPT 1 8 ""
PICTURE 123
GROUP 1 GROUP 1
MESSAGE RUN,770,-0 MESSAGE RUN,770,-0
END END
@ -166,6 +167,7 @@ END
BUTTON DLG_STOPREC_DG 1 1 BUTTON DLG_STOPREC_DG 1 1
BEGIN BEGIN
PROMPT 39 7 "" PROMPT 39 7 ""
PICTURE 123
MESSAGE RUN,771MOD,-2,W|K_TAB,RILEGGI_QUADRI MESSAGE RUN,771MOD,-2,W|K_TAB,RILEGGI_QUADRI
GROUP 1 GROUP 1
END END
@ -222,9 +224,8 @@ END
TEXT DLG_NULL_A2 TEXT DLG_NULL_A2
BEGIN BEGIN
PROMPT 5 12 "Quadro A2" PROMPT 5 12 ""
GROUP 1 GROUP 1
FLAGS "D"
END END
BUTTON DLG_STOPREC_A2 1 1 BUTTON DLG_STOPREC_A2 1 1
@ -356,7 +357,6 @@ END
TEXT DLG_NULL_E2 TEXT DLG_NULL_E2
BEGIN BEGIN
PROMPT 24 14 "Quadro E-2" PROMPT 24 14 "Quadro E-2"
FLAGS "D"
GROUP 1 GROUP 1
END END

31
m770/776500a.uml
View File

@ -30,16 +30,15 @@ PAGE "Prospetto dati generali" -1 -1 78 18
#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 3
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 1 0 ""
FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "RD" FLAGS "RDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
FIELD LF_BASE->CODDITTA FIELD LF_BASE->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -52,29 +51,34 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "DP"
END END
TEXT 96 GROUPBOX DLG_NULL 78 11
BEGIN
PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
END
TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 13 "Numero serie " PROMPT 2 13 "Numero serie "
GROUP G_DISTINTA GROUP G_DISTINTA
END END
TEXT 97 TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 13 "Codice ABI " PROMPT 2 13 "Codice ABI "
GROUP G_ABICAB GROUP G_ABICAB
END END
TEXT 98 TEXT DLG_NULL
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 DLG_NULL
BEGIN BEGIN
PROMPT 46 13 "Codice CAB " PROMPT 46 13 "Codice CAB "
GROUP G_ABICAB GROUP G_ABICAB
@ -152,11 +156,6 @@ BEGIN
GROUP G_CC GROUP G_CC
END END
GROUPBOX DLG_NULL 78 11
BEGIN
PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

35
m770/77qn.uml
View File

@ -1,10 +1,11 @@
// Quadro N // Quadro N
#include "77qn.h" #include "77qn.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "MODULO 770 - QUADRO N" -1 -1 78 18 PAGE "Quadro N" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -14,7 +15,7 @@ END
NUMBER QNF_CODDITTA 5 NUMBER QNF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QNF_CODDITTA INPUT CODDITTA QNF_CODDITTA
OUTPUT QNF_RAGDITTA RAGSOC OUTPUT QNF_RAGDITTA RAGSOC
@ -23,11 +24,23 @@ BEGIN
KEY 1 KEY 1
END END
STRING QNF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QNF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
NUMBER QNF_NPROG 4 NUMBER QNF_NPROG 4
BEGIN BEGIN
PROMPT 1 5 "@bNumero " PROMPT 1 5 "Numero "
FIELD LF_QUAN->NPROG FIELD LF_QUAN->NPROG
USE LF_QUAN SELECT (CODDITTA=#QNF_CODDITTA) USE LF_QUAN
INPUT CODDITTA QNF_CODDITTA SELECT INPUT CODDITTA QNF_CODDITTA SELECT
INPUT NPROG QNF_NPROG INPUT NPROG QNF_NPROG
DISPLAY "N°" NPROG DISPLAY "N°" NPROG
@ -44,21 +57,9 @@ BEGIN
KEY 1 KEY 1
END END
STRING QNF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QNF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bPeriodo di riferimento " PROMPT 1 7 "Periodo di riferimento "
END END
GROUPBOX DLG_NULL 26 4 GROUPBOX DLG_NULL 26 4

83
m770/77qp.uml
View File

@ -1,5 +1,6 @@
// Quadro P // Quadro P
#include "77qp.h" #include "77qp.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
@ -12,7 +13,7 @@ ENDPAGE
#define G_DISTINTA 8 #define G_DISTINTA 8
#define G_CC 9 #define G_CC 9
PAGE "MODULO 770 - QUADRO N" -1 -1 78 18 PAGE "Quadro P" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -22,7 +23,7 @@ END
NUMBER QPF_CODDITTA 5 NUMBER QPF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QPF_CODDITTA INPUT CODDITTA QPF_CODDITTA
OUTPUT QPF_RAGDITTA RAGSOC OUTPUT QPF_RAGDITTA RAGSOC
@ -31,9 +32,21 @@ BEGIN
KEY 1 KEY 1
END END
STRING QPF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QPF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
NUMBER QPF_NPROG 4 NUMBER QPF_NPROG 4
BEGIN BEGIN
PROMPT 1 5 "@bNumero " PROMPT 1 5 "Numero "
FIELD LF_QUAP->NPROG FIELD LF_QUAP->NPROG
USE LF_QUAP SELECT (CODDITTA=#QPF_CODDITTA) USE LF_QUAP SELECT (CODDITTA=#QPF_CODDITTA)
INPUT CODDITTA QPF_CODDITTA SELECT INPUT CODDITTA QPF_CODDITTA SELECT
@ -52,18 +65,6 @@ BEGIN
KEY 1 KEY 1
END END
STRING QPF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QPF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "Imposta o soprattassa" PROMPT 2 7 "Imposta o soprattassa"
@ -118,30 +119,6 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
TEXT 96
BEGIN
PROMPT 2 14 "Numero serie "
GROUP G_DISTINTA
END
TEXT 97
BEGIN
PROMPT 2 14 "Codice ABI "
GROUP G_ABICAB
END
TEXT 98
BEGIN
PROMPT 40 14 "Numero quietanza "
GROUP G_DISTINTA G_CC
END
TEXT 99
BEGIN
PROMPT 42 14 "Codice CAB "
GROUP G_ABICAB
END
GROUPBOX DLG_NULL 0 6 GROUPBOX DLG_NULL 0 6
BEGIN BEGIN
PROMPT 1 10 "" PROMPT 1 10 ""
@ -168,18 +145,30 @@ END
NUMBER QPF_CODTRIB 4 NUMBER QPF_CODTRIB 4
BEGIN BEGIN
PROMPT 22 12 "Codice tributo " PROMPT 23 12 "Codice tributo "
FIELD LF_QUAP->CODTRIB FIELD LF_QUAP->CODTRIB
END END
DATE QPF_DATAVERS DATE QPF_DATAVERS
BEGIN BEGIN
PROMPT 43 12 "Data versamento " PROMPT 44 12 "Data versamento "
FIELD LF_QUAP->DATAVERS FIELD LF_QUAP->DATAVERS
WARNING "Manca la data versamento" WARNING "Manca la data versamento"
VALIDATE REQIF_FUNC 1 QPF_TIPOVERS VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
END END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "Numero serie "
GROUP G_DISTINTA
END
TEXT DLG_NULL
BEGIN
PROMPT 40 14 "Numero quietanza "
GROUP G_DISTINTA G_CC
END
STRING QPF_SERIE 5 STRING QPF_SERIE 5
BEGIN BEGIN
PROMPT 23 14 "" PROMPT 23 14 ""
@ -198,6 +187,12 @@ BEGIN
GROUP G_DISTINTA GROUP G_DISTINTA
END END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "Codice ABI "
GROUP G_ABICAB
END
NUMBER QPF_ABI 5 NUMBER QPF_ABI 5
BEGIN BEGIN
PROMPT 23 14 "" PROMPT 23 14 ""
@ -208,6 +203,12 @@ BEGIN
GROUP G_ABICAB GROUP G_ABICAB
END END
TEXT DLG_NULL
BEGIN
PROMPT 42 14 "Codice CAB "
GROUP G_ABICAB
END
NUMBER QPF_CAB 5 NUMBER QPF_CAB 5
BEGIN BEGIN
PROMPT 58 14 "" PROMPT 58 14 ""

33
m770/77qq.uml
View File

@ -1,10 +1,11 @@
// Quadro Q // Quadro Q
#include "77qq.h" #include "77qq.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "MODULO 770 - QUADRO Q" -1 -1 78 18 PAGE "Quadro Q" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -14,7 +15,7 @@ END
NUMBER QQF_CODDITTA 5 NUMBER QQF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QQF_CODDITTA INPUT CODDITTA QQF_CODDITTA
OUTPUT QQF_RAGDITTA RAGSOC OUTPUT QQF_RAGDITTA RAGSOC
@ -23,9 +24,21 @@ BEGIN
KEY 1 KEY 1
END END
STRING QQF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QQF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
NUMBER QQF_NPROG 4 NUMBER QQF_NPROG 4
BEGIN BEGIN
PROMPT 1 5 "@bNumero " PROMPT 1 5 "Numero "
FIELD LF_QUAQ->NPROG FIELD LF_QUAQ->NPROG
USE LF_QUAQ SELECT (CODDITTA=#QQF_CODDITTA) USE LF_QUAQ SELECT (CODDITTA=#QQF_CODDITTA)
INPUT CODDITTA QQF_CODDITTA SELECT INPUT CODDITTA QQF_CODDITTA SELECT
@ -44,21 +57,9 @@ BEGIN
KEY 1 KEY 1
END END
STRING QQF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QQF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bPeriodo di paga" PROMPT 1 7 "Periodo di paga"
END END
GROUPBOX DLG_NULL 26 4 GROUPBOX DLG_NULL 26 4

33
m770/77qr.uml
View File

@ -1,10 +1,11 @@
// Quadro R // Quadro R
#include "77qr.h" #include "77qr.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "MODULO 770 - QUADRO R" -1 -1 78 18 PAGE "Quadro R" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -14,7 +15,7 @@ END
NUMBER QRF_CODDITTA 5 NUMBER QRF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QRF_CODDITTA INPUT CODDITTA QRF_CODDITTA
OUTPUT QRF_RAGDITTA RAGSOC OUTPUT QRF_RAGDITTA RAGSOC
@ -23,9 +24,21 @@ BEGIN
KEY 1 KEY 1
END END
STRING QRF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QRF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
NUMBER QRF_NPROG 4 NUMBER QRF_NPROG 4
BEGIN BEGIN
PROMPT 1 5 "@bNumero " PROMPT 1 5 "Numero "
FIELD LF_QUAR->NPROG FIELD LF_QUAR->NPROG
USE LF_QUAR SELECT (CODDITTA=#QRF_CODDITTA) USE LF_QUAR SELECT (CODDITTA=#QRF_CODDITTA)
INPUT CODDITTA QRF_CODDITTA SELECT INPUT CODDITTA QRF_CODDITTA SELECT
@ -44,21 +57,9 @@ BEGIN
KEY 1 KEY 1
END END
STRING QRF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QRF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bPeriodo di riferimento " PROMPT 1 7 "Periodo di riferimento "
END END
GROUPBOX DLG_NULL 26 4 GROUPBOX DLG_NULL 26 4

83
m770/77qs.uml
View File

@ -1,5 +1,6 @@
// Quadro S // Quadro S
#include "77qs.h" #include "77qs.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
@ -12,7 +13,7 @@ ENDPAGE
#define G_DISTINTA 8 #define G_DISTINTA 8
#define G_CC 9 #define G_CC 9
PAGE "MODULO 770 - QUADRO S" -1 -1 78 18 PAGE "Quadro S" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -22,7 +23,7 @@ END
NUMBER QSF_CODDITTA 5 NUMBER QSF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QSF_CODDITTA INPUT CODDITTA QSF_CODDITTA
OUTPUT QSF_RAGDITTA RAGSOC OUTPUT QSF_RAGDITTA RAGSOC
@ -31,9 +32,21 @@ BEGIN
KEY 1 KEY 1
END END
STRING QSF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QSF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
NUMBER QSF_NPROG 4 NUMBER QSF_NPROG 4
BEGIN BEGIN
PROMPT 1 5 "@bNumero " PROMPT 1 5 "Numero "
FIELD LF_QUAS->NPROG FIELD LF_QUAS->NPROG
USE LF_QUAS SELECT (CODDITTA=#QSF_CODDITTA) USE LF_QUAS SELECT (CODDITTA=#QSF_CODDITTA)
INPUT CODDITTA QSF_CODDITTA SELECT INPUT CODDITTA QSF_CODDITTA SELECT
@ -52,18 +65,6 @@ BEGIN
KEY 1 KEY 1
END END
STRING QSF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QSF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "Imposta o soprattassa" PROMPT 2 7 "Imposta o soprattassa"
@ -118,30 +119,6 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
TEXT 96
BEGIN
PROMPT 2 14 "Numero serie "
GROUP G_DISTINTA
END
TEXT 97
BEGIN
PROMPT 2 14 "Codice ABI "
GROUP G_ABICAB
END
TEXT 98
BEGIN
PROMPT 42 14 "Numero quietanza "
GROUP G_DISTINTA G_CC
END
TEXT 99
BEGIN
PROMPT 42 14 "Codice CAB "
GROUP G_ABICAB
END
GROUPBOX DLG_NULL 0 6 GROUPBOX DLG_NULL 0 6
BEGIN BEGIN
PROMPT 1 10 "" PROMPT 1 10 ""
@ -152,6 +129,30 @@ BEGIN
PROMPT 2 11 "Modalità versamento " PROMPT 2 11 "Modalità versamento "
END END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "Numero serie "
GROUP G_DISTINTA
END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "Codice ABI "
GROUP G_ABICAB
END
TEXT DLG_NULL
BEGIN
PROMPT 40 14 "Numero quietanza "
GROUP G_DISTINTA G_CC
END
TEXT DLG_NULL
BEGIN
PROMPT 42 14 "Codice CAB "
GROUP G_ABICAB
END
LIST QSF_TIPOVERS 1 18 LIST QSF_TIPOVERS 1 18
BEGIN BEGIN
PROMPT 2 12 "" PROMPT 2 12 ""
@ -168,13 +169,13 @@ END
NUMBER QSF_CODTRIB 4 NUMBER QSF_CODTRIB 4
BEGIN BEGIN
PROMPT 22 12 "Codice tributo " PROMPT 23 12 "Codice tributo "
FIELD LF_QUAS->CODTRIB FIELD LF_QUAS->CODTRIB
END END
DATE QSF_DATAVERS DATE QSF_DATAVERS
BEGIN BEGIN
PROMPT 43 12 "Data versamento " PROMPT 44 12 "Data versamento "
FIELD LF_QUAS->DATAVERS FIELD LF_QUAS->DATAVERS
WARNING "Manca la data versamento" WARNING "Manca la data versamento"
VALIDATE REQIF_FUNC 1 QSF_TIPOVERS VALIDATE REQIF_FUNC 1 QSF_TIPOVERS

33
m770/77qt.uml
View File

@ -1,10 +1,11 @@
// Quadro T // Quadro T
#include "77qt.h" #include "77qt.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "MODULO 770 - QUADRO Q" -1 -1 78 18 PAGE "Quadro T" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -14,7 +15,7 @@ END
NUMBER QTF_CODDITTA 5 NUMBER QTF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QTF_CODDITTA INPUT CODDITTA QTF_CODDITTA
OUTPUT QTF_RAGDITTA RAGSOC OUTPUT QTF_RAGDITTA RAGSOC
@ -23,9 +24,21 @@ BEGIN
KEY 1 KEY 1
END END
STRING QTF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QTF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
NUMBER QTF_NPROG 4 NUMBER QTF_NPROG 4
BEGIN BEGIN
PROMPT 1 5 "@bNumero " PROMPT 1 5 "Numero "
FIELD LF_QUAT->NPROG FIELD LF_QUAT->NPROG
USE LF_QUAT SELECT (CODDITTA=#QTF_CODDITTA) USE LF_QUAT SELECT (CODDITTA=#QTF_CODDITTA)
INPUT CODDITTA QTF_CODDITTA SELECT INPUT CODDITTA QTF_CODDITTA SELECT
@ -44,21 +57,9 @@ BEGIN
KEY 1 KEY 1
END END
STRING QTF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QTF_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bPeriodo di paga" PROMPT 1 7 "Periodo di paga"
END END
GROUPBOX DLG_NULL 26 4 GROUPBOX DLG_NULL 26 4

1
m770/77stq.h
View File

@ -13,6 +13,7 @@
#include <urldefid.h> #include <urldefid.h>
#include <nditte.h> #include <nditte.h>
#include <anagr.h> #include <anagr.h>
#include <recarray.h>
#include "quadroc.h" #include "quadroc.h"
#include "quadrod.h" #include "quadrod.h"
#include "quadrod1.h" #include "quadrod1.h"

2
m770/batbca7.uml
View File

@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella causali modello 770" -1 -1 78 18 PAGE "Tabella causali " -1 -1 78 18
GROUPBOX DLG_NULL 77 8 GROUPBOX DLG_NULL 77 8
BEGIN BEGIN

8
m770/batbcaf.uml
View File

@ -4,17 +4,17 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella codici C.A.A.F." -1 -1 78 18 PAGE "Tabella C.A.A." -1 -1 78 18
NUMBER F_CODCAAF 5 NUMBER F_CODCAAF 5
BEGIN BEGIN
PROMPT 4 1 "Codice CAAF " PROMPT 4 1 "Codice CAA "
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
HELP "Inserire il codice CAAF" HELP "Inserire il codice CAA"
USE %CAF USE %CAF
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB F_CODCAAF INPUT CODTAB F_CODCAAF
DISPLAY "Codice CAAF " CODTAB DISPLAY "Codice CAA " CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT F_CODCAAF CODTAB OUTPUT F_CODCAAF CODTAB
KEY 1 KEY 1

2
m770/batbent.uml
View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE ENDPAGE
PAGE "Tabella Enti Previdenziali Quadro H" -1 -1 78 18 PAGE "Tabella enti previdenziali" -1 -1 78 18
NUMBER F_CODENTE 2 NUMBER F_CODENTE 2
BEGIN BEGIN

46
m770/quadn_t.cpp
View File

@ -15,7 +15,6 @@
class TQuadriNT_application : public TRelation_application class TQuadriNT_application : public TRelation_application
{ {
static bool codditta77_handler (TMask_field& m, KEY k);
static bool nprog_handler (TMask_field& m, KEY k); static bool nprog_handler (TMask_field& m, KEY k);
static bool anno_handler (TMask_field& m, KEY k); static bool anno_handler (TMask_field& m, KEY k);
static bool mese_handler (TMask_field& f, KEY k); static bool mese_handler (TMask_field& f, KEY k);
@ -41,7 +40,9 @@ class TQuadriNT_application : public TRelation_application
bool QuadroPoS() const { return _num == LF_QUAP || _num == LF_QUAS; } bool QuadroPoS() const { return _num == LF_QUAP || _num == LF_QUAS; }
bool QuadroQoT() const { return _num == LF_QUAQ || _num == LF_QUAT; } bool QuadroQoT() const { return _num == LF_QUAQ || _num == LF_QUAT; }
bool CheckImporti(const TMask& m); bool CheckImporti(const TMask& m);
long Get_newprog();
long _codditta; long _codditta;
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
@ -111,10 +112,9 @@ bool TQuadriNT_application::user_create()
{ {
_msk = new TMask(_maskname); _msk = new TMask(_maskname);
_rel = new TRelation(_num); _rel = new TRelation(_num);
_codditta = get_firm_770(); _codditta = get_firm_770();
_msk->set_handler(CODDITTA77, codditta77_handler);
_msk->set_handler(QNF_NPROG, nprog_handler); _msk->set_handler(QNF_NPROG, nprog_handler);
_msk->field(CODDITTA77).set(_codditta);
if (QuadroNoR()) if (QuadroNoR())
{ {
@ -211,18 +211,9 @@ void TQuadriNT_application::init_insert_mode(TMask& m)
void TQuadriNT_application::init_query_insert_mode(TMask& m) void TQuadriNT_application::init_query_insert_mode(TMask& m)
{ {
init_mask(m); init_mask(m);
} TMask_field& f = m.field(QNF_NPROG);
f.set(Get_newprog());
bool TQuadriNT_application::codditta77_handler(TMask_field& f, KEY k) m.send_key(K_TAB,QNF_NPROG);
{
TString16 codditta; codditta << app()._codditta;
TMask& m = f.mask();
if (codditta != "0")
{
m.set(CODDITTA77, codditta);
m.field(CODDITTA77).check();
}
return TRUE;
} }
@ -303,17 +294,13 @@ bool TQuadriNT_application::codtrib_handler(TMask_field& f, KEY k)
bool TQuadriNT_application::nprog_handler(TMask_field& f, KEY k) bool TQuadriNT_application::nprog_handler(TMask_field& f, KEY k)
{ {
if (k == K_CTRL+K_TAB) if (k == K_TAB)
{
f.set_dirty(); f.set_dirty();
return TRUE; return TRUE;
} }
if (k == K_TAB) // ritorna nuovo progressivo da utilizzare
{ long TQuadriNT_application::Get_newprog()
TMask& m = f.mask();
// Propone il primo numero disponibile quando la maschera e' ancora "off"
if (!m.is_running())
{ {
long nprog = 0L; long nprog = 0L;
TLocalisamfile qnr(app()._num); TLocalisamfile qnr(app()._num);
@ -325,20 +312,7 @@ bool TQuadriNT_application::nprog_handler(TMask_field& f, KEY k)
if (qnr.curr() > dep) break; if (qnr.curr() > dep) break;
nprog = qnr.get_long(QN_NPROG); nprog = qnr.get_long(QN_NPROG);
} }
nprog++; return ++nprog;
TString16 nprog_str; nprog_str << nprog;
f.mask().set(QNF_NPROG, nprog_str);
}
/*
// Quando la maschera e' running, se c'e' NPROG la chiude
else
{
TString nprogstr(f.get());
if (nprogstr.not_empty())
m.stop_run(K_AUTO_ENTER);
} */
}
return TRUE;
} }
bool TQuadriNT_application::tipo(TMask_field& f , KEY k) bool TQuadriNT_application::tipo(TMask_field& f , KEY k)