Correzioni varie, per avere maggiori informazioni guardarsi il file crono.doc
git-svn-id: svn://10.65.10.50/trunk@4166 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
8fd5b60ec9
commit
fe0ff9aaaa
@ -900,19 +900,18 @@ void TSchedaPercipienti::mask2rel(const TMask& m)
|
|||||||
|
|
||||||
TString16 serie(row.get(4));
|
TString16 serie(row.get(4));
|
||||||
TString numero(row.get(5));
|
TString numero(row.get(5));
|
||||||
const long ProgBanca = row.get_long(6);
|
const long ProgBanca(row.get_long(6));
|
||||||
real ritenuta (row.get(7));
|
real ritenuta (row.get(7));
|
||||||
const int numvers (row.get_int(8));
|
const int numvers (row.get_int(8));
|
||||||
|
|
||||||
r.put("VERS1015", vers1015);
|
r.put("VERS1015",vers1015);
|
||||||
r.put("DATAVERS", dataver);
|
r.put("DATAVERS",dataver);
|
||||||
r.put("LUOVERS", luogo);
|
r.put("LUOVERS", luogo);
|
||||||
r.put("TIPOVERS", tipo);
|
r.put("TIPOVERS",tipo);
|
||||||
|
|
||||||
r.put("SERIE", serie);
|
r.put("SERIE", serie);
|
||||||
r.put("NUMERO", numero);
|
r.put("NUMERO", numero);
|
||||||
r.put("PROGBANC", (long)ProgBanca);
|
r.put("PROGBANC",ProgBanca);
|
||||||
r.put("RITENUTA", ritenuta);
|
r.put("RITENUTA",ritenuta);
|
||||||
// r.put("NUMVERS", (long)nriga);
|
// r.put("NUMVERS", (long)nriga);
|
||||||
// r.put("NUMVERS", (long)numvers);
|
// r.put("NUMVERS", (long)numvers);
|
||||||
}
|
}
|
||||||
|
2506
m770/770102.cpp
2506
m770/770102.cpp
File diff suppressed because it is too large
Load Diff
@ -61,8 +61,9 @@ BEGIN
|
|||||||
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
|
||||||
JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F"
|
CHECKTYPE NORMAL
|
||||||
|
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
|
||||||
|
1953
m770/771200b.uml
1953
m770/771200b.uml
File diff suppressed because it is too large
Load Diff
599
m770/771200d.uml
599
m770/771200d.uml
@ -1,300 +1,301 @@
|
|||||||
#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
|
||||||
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 DLG_NULL 6
|
NUMBER DLG_NULL 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 17 1 ""
|
PROMPT 17 1 ""
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 24
|
STRING DLG_NULL 24
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 1 ""
|
PROMPT 25 1 ""
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 20
|
STRING DLG_NULL 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 49 1 ""
|
PROMPT 49 1 ""
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
GROUP 4
|
GROUP 4
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER DLG_NULL 4
|
NUMBER DLG_NULL 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@60"
|
SHEET "Codice|Descrizione@60"
|
||||||
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|Situaz. per le quali dovrebbero essere indicati piu' codici"
|
ITEM "F|Situaz. 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@60"
|
SHEET "Codice|Descrizione@60"
|
||||||
INPUT F_TIPOCONG22
|
INPUT F_TIPOCONG22
|
||||||
ITEM " |Niente"
|
ITEM " |Niente"
|
||||||
ITEM "R|Cong. tardivo derivante da Mod.730/93 rettificativo..."
|
ITEM "R|Cong. tardivo derivante da Mod.730/93 rettificativo..."
|
||||||
ITEM "S|Cong. tardivo derivante da comunicaz. Mod.730/94..."
|
ITEM "S|Cong. tardivo derivante da comunicaz. Mod.730/94..."
|
||||||
ITEM "T|Cong. tardivo deriv. da Mod.730/93 ov. comunic. tardiva Mod.730/94"
|
ITEM "T|Cong. tardivo deriv. da Mod.730/93 ov. comunic. tardiva Mod.730/94"
|
||||||
ITEM "U|Cong. conseguente ad incapienza della retribuz..."
|
ITEM "U|Cong. conseguente ad incapienza della retribuz..."
|
||||||
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
|
FLAGS "Z"
|
||||||
|
END
|
||||||
STRING F_DENCAAF 50
|
|
||||||
BEGIN
|
STRING F_DENCAAF 50
|
||||||
PROMPT 26 10 ""
|
BEGIN
|
||||||
FLAGS "DU"
|
PROMPT 26 10 ""
|
||||||
END
|
FLAGS "DU"
|
||||||
|
END
|
||||||
STRING F_CODFISCAAF 16
|
|
||||||
BEGIN
|
STRING F_CODFISCAAF 16
|
||||||
PROMPT 2 11 "23 Cod.fiscale "
|
BEGIN
|
||||||
FLAGS "D"
|
PROMPT 2 11 "23 Cod.fiscale "
|
||||||
END
|
FLAGS "D"
|
||||||
|
END
|
||||||
NUMBER F_NISCRA 5
|
|
||||||
BEGIN
|
NUMBER F_NISCRA 5
|
||||||
PROMPT 50 11 "25 N.iscrizione albo "
|
BEGIN
|
||||||
FLAGS "D"
|
PROMPT 50 11 "25 N.iscrizione albo "
|
||||||
END
|
FLAGS "D"
|
||||||
|
END
|
||||||
DATE F_DATARIC29
|
|
||||||
BEGIN
|
DATE F_DATARIC29
|
||||||
PROMPT 2 12 "26 Data ricezione Modello 730-5 "
|
BEGIN
|
||||||
FIELD LF_QUAA1->DATARIC26
|
PROMPT 2 12 "26 Data ricezione Modello 730-5 "
|
||||||
END
|
FIELD LF_QUAA1->DATARIC26
|
||||||
|
END
|
||||||
ENDPAGE
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
819
m770/771200f.uml
819
m770/771200f.uml
@ -1,410 +1,411 @@
|
|||||||
#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
|
||||||
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@60"
|
SHEET "Codice|Descrizione@60"
|
||||||
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|Situaz. per le quali dovrebbero essere indicati piu' codici"
|
ITEM "E|Situaz. 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@60"
|
SHEET "Codice|Descrizione@60"
|
||||||
INPUT QA2F_RETCON
|
INPUT QA2F_RETCON
|
||||||
ITEM " | "
|
ITEM " | "
|
||||||
ITEM "A|Rettifica importi da conguagliare... (I num. d'ordine)"
|
ITEM "A|Rettifica importi da conguagliare... (I num. d'ordine)"
|
||||||
ITEM "B|Rettifica importi da conguagliare... (II num. d'ordine)"
|
ITEM "B|Rettifica importi da conguagliare... (II num. 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_AIRPEFINT 15
|
NUMBER F_AIRPEFINT 15
|
||||||
BEGIN
|
BEGIN
|
||||||
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 DLG_NULL 6
|
NUMBER DLG_NULL 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 17 1 ""
|
PROMPT 17 1 ""
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 24
|
STRING DLG_NULL 24
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 1 ""
|
PROMPT 25 1 ""
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 20
|
STRING DLG_NULL 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 49 1 ""
|
PROMPT 49 1 ""
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
GROUP 4
|
GROUP 4
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER DLG_NULL 4
|
NUMBER DLG_NULL 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@60"
|
SHEET "Codice|Descrizione@60"
|
||||||
INPUT QA2F_730NLIQ
|
INPUT QA2F_730NLIQ
|
||||||
ITEM "|"
|
ITEM "|"
|
||||||
ITEM "01|Errata o incomp. compilaz. dati anagr. e di res. del dich."
|
ITEM "01|Errata o incomp. compilaz. dati anagr. e di res. del dich."
|
||||||
ITEM "02|Errata o incomp. compilaz. dati del coniuge e fam. a carico"
|
ITEM "02|Errata o incomp. compilaz. dati del coniuge e fam. a carico"
|
||||||
ITEM "03|Errata o incomp. compilaz. dati anagr. e di res. del coniuge"
|
ITEM "03|Errata o incomp. compilaz. dati anagr. e di res. del coniuge"
|
||||||
ITEM "04|Errata o incomp. dichiaraz. q. A Mod.730/95 del dich."
|
ITEM "04|Errata o incomp. dichiaraz. q. A Mod.730/95 del dich."
|
||||||
ITEM "05|Errata o incomp. dichiaraz. q. A Mod.730/95 del coniuge"
|
ITEM "05|Errata o incomp. dichiaraz. q. A Mod.730/95 del coniuge"
|
||||||
ITEM "06|Errata o incomp. dichiaraz. q. B Mod.730/95 del dich."
|
ITEM "06|Errata o incomp. dichiaraz. q. B Mod.730/95 del dich."
|
||||||
ITEM "07|Errata o incomp. dichiaraz. q. B Mod.730/95 del coniuge"
|
ITEM "07|Errata o incomp. dichiaraz. q. B Mod.730/95 del coniuge"
|
||||||
ITEM "08|Errata o incomp. dichiaraz. q. C Mod.730/95 del dich."
|
ITEM "08|Errata o incomp. dichiaraz. q. C Mod.730/95 del dich."
|
||||||
ITEM "09|Errata o incomp. dichiaraz. q. D Mod.730/95 del dich."
|
ITEM "09|Errata o incomp. dichiaraz. q. D Mod.730/95 del dich."
|
||||||
ITEM "10|Errata o incomp. dichiaraz. q. E Mod.730/95 del dich."
|
ITEM "10|Errata o incomp. dichiaraz. q. E Mod.730/95 del dich."
|
||||||
ITEM "11|Errata o incomp. dichiaraz. q. E Mod.730/95 del coniuge"
|
ITEM "11|Errata o incomp. dichiaraz. q. E Mod.730/95 del coniuge"
|
||||||
ITEM "12|Errata o incomp. dichiaraz. q. F Mod.730/95 del dich."
|
ITEM "12|Errata o incomp. dichiaraz. q. F Mod.730/95 del dich."
|
||||||
ITEM "13|Errata o incomp. dichiaraz. q. F Mod.730/95 del coniuge"
|
ITEM "13|Errata o incomp. dichiaraz. q. 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
|
FLAGS "Z"
|
||||||
|
END
|
||||||
STRING F_DENCAAF 50
|
|
||||||
BEGIN
|
STRING F_DENCAAF 50
|
||||||
PROMPT 26 15 ""
|
BEGIN
|
||||||
FLAGS "DU"
|
PROMPT 26 15 ""
|
||||||
END
|
FLAGS "DU"
|
||||||
|
END
|
||||||
STRING F_CODFISCAAF 16
|
|
||||||
BEGIN
|
STRING F_CODFISCAAF 16
|
||||||
PROMPT 2 16 "23 Cod.fiscale "
|
BEGIN
|
||||||
FLAGS "D"
|
PROMPT 2 16 "23 Cod.fiscale "
|
||||||
END
|
FLAGS "D"
|
||||||
|
END
|
||||||
NUMBER F_NISCRA 5
|
|
||||||
BEGIN
|
NUMBER F_NISCRA 5
|
||||||
PROMPT 50 16 "25 N.iscrizione albo "
|
BEGIN
|
||||||
FLAGS "D"
|
PROMPT 50 16 "25 N.iscrizione albo "
|
||||||
END
|
FLAGS "D"
|
||||||
|
END
|
||||||
ENDPAGE
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
@ -65,9 +65,14 @@ BEGIN
|
|||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
|
TEXT DLG_NULL
|
||||||
|
BEGIN
|
||||||
|
PROMPT 3 2 "Causale"
|
||||||
|
END
|
||||||
|
|
||||||
STRING F_CODCAUS 2
|
STRING F_CODCAUS 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 3 "Causale "
|
PROMPT 3 3 ""
|
||||||
USE %CA7 SELECT ((I0!="1015")&&(S1="D"))
|
USE %CA7 SELECT ((I0!="1015")&&(S1="D"))
|
||||||
INPUT CODTAB F_CODCAUS
|
INPUT CODTAB F_CODCAUS
|
||||||
DISPLAY "Codice " CODTAB
|
DISPLAY "Codice " CODTAB
|
||||||
@ -89,20 +94,16 @@ END
|
|||||||
|
|
||||||
NUMBER F_CODTRIB 4
|
NUMBER F_CODTRIB 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 4 ""
|
PROMPT 8 3 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING QDF_CODCAUSD 1
|
STRING QDF_CODCAUSD 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 9 4 ""
|
PROMPT 14 3 ""
|
||||||
FLAGS "D"
|
SHEET "Codice|Descrizione@60"
|
||||||
END
|
INPUT QDF_CODCAUSD
|
||||||
|
ITEM " | "
|
||||||
LISTBOX F_DESCRCAUS 60
|
|
||||||
BEGIN
|
|
||||||
PROMPT 12 4 ""
|
|
||||||
ITEM "|"
|
|
||||||
ITEM "A|prestaz. di lav. aut. ... nell’es. arti o prof. abituale"
|
ITEM "A|prestaz. di lav. aut. ... nell’es. arti o prof. abituale"
|
||||||
ITEM "B|prestaz. rese da amministratori, sindaci e revisori..."
|
ITEM "B|prestaz. rese da amministratori, sindaci e revisori..."
|
||||||
ITEM "C|prestaz. rese da collaboratori a giornali, riviste, ..."
|
ITEM "C|prestaz. rese da collaboratori a giornali, riviste, ..."
|
||||||
@ -120,6 +121,14 @@ BEGIN
|
|||||||
ITEM "R|indennità corrisp. per la cessaz. di attività sportiva prof"
|
ITEM "R|indennità corrisp. per la cessaz. di attività sportiva prof"
|
||||||
ITEM "S|indennità di trasf. o di rimborso forfettario di spese..."
|
ITEM "S|indennità di trasf. o di rimborso forfettario di spese..."
|
||||||
ITEM "T|altro titolo diverso dai precedenti"
|
ITEM "T|altro titolo diverso dai precedenti"
|
||||||
|
OUTPUT QDF_CODCAUSD
|
||||||
|
OUTPUT F_DESCRCAUS
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESCRCAUS 60
|
||||||
|
BEGIN
|
||||||
|
PROMPT 17 3 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
@ -71,8 +71,8 @@ END
|
|||||||
|
|
||||||
NUMBER F_ENTE 2
|
NUMBER F_ENTE 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 ""
|
PROMPT 2 8 ""
|
||||||
COPY USE F_H1ANNO
|
USE LF_QUAH
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA SELECT
|
INPUT CODDITTA F_CODDITTA SELECT
|
||||||
INPUT H1ANNO F_H1ANNO SELECT
|
INPUT H1ANNO F_H1ANNO SELECT
|
||||||
@ -81,13 +81,14 @@ BEGIN
|
|||||||
COPY OUTPUT F_H1ANNO
|
COPY OUTPUT F_H1ANNO
|
||||||
FIELD LF_QUAH->H1ENTE
|
FIELD LF_QUAH->H1ENTE
|
||||||
MESSAGE COPY,F_ENTEBIS
|
MESSAGE COPY,F_ENTEBIS
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
FLAGS "Z"
|
||||||
|
END
|
||||||
|
|
||||||
NUMBER F_ENTEBIS 2
|
NUMBER F_ENTEBIS 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 ""
|
PROMPT 2 8 ""
|
||||||
FLAGS "G"
|
FLAGS "GZ"
|
||||||
USE %ENT
|
USE %ENT
|
||||||
CHECKTYPE FORCED
|
CHECKTYPE FORCED
|
||||||
INPUT CODTAB F_ENTEBIS
|
INPUT CODTAB F_ENTEBIS
|
||||||
|
950
m770/771310.cpp
950
m770/771310.cpp
@ -1,474 +1,476 @@
|
|||||||
// 771310.cpp - Modello 770 - Gestione quadro L
|
// 771310.cpp - Modello 770 - Gestione quadro L
|
||||||
#include <applicat.h>
|
#include <applicat.h>
|
||||||
#include <mask.h>
|
#include <mask.h>
|
||||||
#include <msksheet.h>
|
#include <msksheet.h>
|
||||||
#include <relapp.h>
|
#include <relapp.h>
|
||||||
#include <relation.h>
|
#include <relation.h>
|
||||||
#include <tabutil.h>
|
#include <tabutil.h>
|
||||||
#include <urldefid.h>
|
#include <urldefid.h>
|
||||||
#include <config.h>
|
#include <config.h>
|
||||||
#include <utility.h>
|
#include <utility.h>
|
||||||
#include <mailbox.h>
|
#include <mailbox.h>
|
||||||
#include <execp.h>
|
#include <execp.h>
|
||||||
|
|
||||||
#include "771310.h"
|
#include "771310.h"
|
||||||
#include "774100.h"
|
#include "774100.h"
|
||||||
#include "774200.h"
|
#include "774200.h"
|
||||||
#include "77lib.h"
|
#include "77lib.h"
|
||||||
#include "scperc.h"
|
#include "scperc.h"
|
||||||
#include "rver.h"
|
#include "rver.h"
|
||||||
#include "rpag.h"
|
#include "rpag.h"
|
||||||
#include "quadrol.h"
|
#include "quadrol.h"
|
||||||
|
|
||||||
class M71310_application : public TRelation_application
|
class M71310_application : public TRelation_application
|
||||||
{
|
{
|
||||||
TRelation* _rel;
|
TRelation* _rel;
|
||||||
TMask* _msk;
|
TMask* _msk;
|
||||||
TGenera _app;
|
TGenera* _app;
|
||||||
TConfig* _cnf;
|
TConfig* _cnf;
|
||||||
int _anno;
|
int _anno;
|
||||||
|
|
||||||
protected:
|
protected:
|
||||||
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 void init_query_mode(TMask&);
|
virtual void init_query_mode(TMask&);
|
||||||
virtual void init_modify_mode(TMask&);
|
virtual void init_modify_mode(TMask&);
|
||||||
virtual void init_insert_mode(TMask&);
|
virtual void init_insert_mode(TMask&);
|
||||||
virtual void on_config_change();
|
virtual void on_config_change();
|
||||||
virtual int rewrite(const TMask& m);
|
virtual int rewrite(const TMask& m);
|
||||||
virtual int write(const TMask& m);
|
virtual int write(const TMask& m);
|
||||||
void build_note(const TMask& m);
|
void build_note(const TMask& m);
|
||||||
void set_field_note(TMask& m);
|
void set_field_note(TMask& m);
|
||||||
bool changed_anno_dic(TMask& m);
|
bool changed_anno_dic(TMask& m);
|
||||||
real arrotonda(const TMask& m);
|
real arrotonda(const TMask& m);
|
||||||
static bool generazione (TMask_field& f, KEY k);
|
static bool generazione (TMask_field& f, KEY k);
|
||||||
static bool genera_para (TMask_field& f, KEY k);
|
static bool genera_para (TMask_field& f, KEY k);
|
||||||
static bool tipo (TMask_field& f, KEY k);
|
static bool tipo (TMask_field& f, KEY k);
|
||||||
static bool luogo (TMask_field& f, KEY k);
|
static bool luogo (TMask_field& f, KEY k);
|
||||||
static bool auto_premi (TMask_field& f, KEY k);
|
static bool auto_premi (TMask_field& f, KEY k);
|
||||||
static bool mese (TMask_field& f, KEY k);
|
static bool mese (TMask_field& f, KEY k);
|
||||||
static bool anno (TMask_field& f, KEY k);
|
static bool anno (TMask_field& f, KEY k);
|
||||||
static bool cod_tributo (TMask_field& f, KEY k);
|
static bool cod_tributo (TMask_field& f, KEY k);
|
||||||
static bool codditta_hnd(TMask_field& f, KEY k);
|
static bool codditta_hnd(TMask_field& f, KEY k);
|
||||||
static bool artbil_hnd(TMask_field& f, KEY k);
|
static bool artbil_hnd(TMask_field& f, KEY k);
|
||||||
|
|
||||||
public:
|
public:
|
||||||
M71310_application() {}
|
M71310_application() {}
|
||||||
};
|
};
|
||||||
|
|
||||||
M71310_application& app() { return (M71310_application&) main_app(); }
|
M71310_application& app() { return (M71310_application&) main_app(); }
|
||||||
|
|
||||||
bool M71310_application::generazione(TMask_field& f , KEY k)
|
bool M71310_application::generazione(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
if (k == K_SPACE)
|
if (k == K_SPACE)
|
||||||
app()._app.set(get_firm_770(), app()._cnf);
|
app()._app->set(get_firm_770(), app()._cnf);
|
||||||
|
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::genera_para(TMask_field& f , KEY k)
|
bool M71310_application::genera_para(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
if (k == K_SPACE)
|
if (k == K_SPACE)
|
||||||
{
|
{
|
||||||
TString appname("776mod -4 d");
|
TString appname("776mod -4 d");
|
||||||
TExternal_app a(appname);
|
TExternal_app a(appname);
|
||||||
a.run();
|
a.run();
|
||||||
f.mask().set_focus();
|
f.mask().set_focus();
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::codditta_hnd(TMask_field& f, KEY k)
|
bool M71310_application::codditta_hnd(TMask_field& f, KEY k)
|
||||||
{
|
{
|
||||||
if (k == K_TAB && !(f.mask().is_running()) )
|
if (k == K_TAB && !(f.mask().is_running()) )
|
||||||
{
|
{
|
||||||
TString16 codditta; codditta << get_firm_770();
|
TString16 codditta; codditta << get_firm_770();
|
||||||
if (codditta != "0")
|
if (codditta != "0")
|
||||||
{
|
{
|
||||||
f.set(codditta);
|
f.set(codditta);
|
||||||
f.check();
|
f.check();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::mese(TMask_field& f , KEY k)
|
bool M71310_application::mese(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
// is_running() serve per fare il controllo solo quando la maschera sta andando
|
// is_running() serve per fare il controllo solo quando la maschera sta andando
|
||||||
// In questo modo tutti i K_TAB che ricevono i campi durante la costruzione della maschera
|
// In questo modo tutti i K_TAB che ricevono i campi durante la costruzione della maschera
|
||||||
// vengono ignorati.
|
// vengono ignorati.
|
||||||
// Il K_TAB mi fa scattare il controllo quando lascio il campo
|
// Il K_TAB mi fa scattare il controllo quando lascio il campo
|
||||||
// Il K_ENTER mi serve per fare i controlli quando uso uno dei tasti della bottoniera
|
// Il K_ENTER mi serve per fare i controlli quando uso uno dei tasti della bottoniera
|
||||||
|
|
||||||
if (k == K_TAB || k == K_ENTER)
|
if (k == K_TAB || k == K_ENTER)
|
||||||
{
|
{
|
||||||
int mese = f.mask().get_int(F_QLMESEPAG);
|
int mese = f.mask().get_int(F_QLMESEPAG);
|
||||||
|
|
||||||
if (mese == 0)
|
if (mese == 0)
|
||||||
return f.error_box("Il mese di pagamento deve essere indicato obbligatoriamente");
|
return f.error_box("Il mese di pagamento deve essere indicato obbligatoriamente");
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::anno(TMask_field& f , KEY k)
|
bool M71310_application::anno(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
// is_running() serve per fare il controllo solo quando la maschera sta andando
|
// is_running() serve per fare il controllo solo quando la maschera sta andando
|
||||||
// In questo modo tutti i K_TAB che ricevono i campi durante la costruzione della maschera
|
// In questo modo tutti i K_TAB che ricevono i campi durante la costruzione della maschera
|
||||||
// vengono ignorati.
|
// vengono ignorati.
|
||||||
// Il K_TAB mi fa scattare il controllo quando lascio il campo
|
// Il K_TAB mi fa scattare il controllo quando lascio il campo
|
||||||
// Il K_ENTER mi serve per fare i controlli quando uso uno dei tasti della bottoniera
|
// Il K_ENTER mi serve per fare i controlli quando uso uno dei tasti della bottoniera
|
||||||
|
|
||||||
if ((k == K_TAB && f.mask().is_running()) || k == K_ENTER)
|
if ((k == K_TAB && f.mask().is_running()) || k == K_ENTER)
|
||||||
{
|
{
|
||||||
int anno = f.mask().get_int(F_QLANNOPAG);
|
int anno = f.mask().get_int(F_QLANNOPAG);
|
||||||
|
|
||||||
if (anno == 0)
|
if (anno == 0)
|
||||||
return f.error_box("L'anno di pagamento deve essere indicato obbligatoriamente");
|
return f.error_box("L'anno di pagamento deve essere indicato obbligatoriamente");
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::cod_tributo(TMask_field& f , KEY k)
|
bool M71310_application::cod_tributo(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
// is_running() serve per fare il controllo solo quando la maschera sta andando
|
// is_running() serve per fare il controllo solo quando la maschera sta andando
|
||||||
// In questo modo tutti i K_TAB che ricevono i campi durante la costruzione della maschera
|
// In questo modo tutti i K_TAB che ricevono i campi durante la costruzione della maschera
|
||||||
// vengono ignorati.
|
// vengono ignorati.
|
||||||
// Il K_TAB mi fa scattare il controllo quando lascio il campo
|
// Il K_TAB mi fa scattare il controllo quando lascio il campo
|
||||||
// Il K_ENTER mi serve per fare i controlli quando uso uno dei tasti della bottoniera
|
// Il K_ENTER mi serve per fare i controlli quando uso uno dei tasti della bottoniera
|
||||||
|
|
||||||
if ((k == K_TAB && f.mask().is_running()) || k == K_ENTER)
|
if ((k == K_TAB && f.mask().is_running()) || k == K_ENTER)
|
||||||
{
|
{
|
||||||
int tributo = f.mask().get_int(F_QLCODTRIB);
|
int tributo = f.mask().get_int(F_QLCODTRIB);
|
||||||
if (tributo == 0)
|
if (tributo == 0)
|
||||||
return f.error_box("Il codice tributo deve essere indicato obbligatoriamente");
|
return f.error_box("Il codice tributo deve essere indicato obbligatoriamente");
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
// "auto-premimento"
|
// "auto-premimento"
|
||||||
// Sia da F_ABI che da F_NUMERO
|
// Sia da F_ABI che da F_NUMERO
|
||||||
bool M71310_application::auto_premi(TMask_field& f, KEY k)
|
bool M71310_application::auto_premi(TMask_field& f, KEY k)
|
||||||
{
|
{
|
||||||
if (k == K_CTRL+K_TAB && f.mask().is_running())
|
if (k == K_CTRL+K_TAB && f.mask().is_running())
|
||||||
{
|
{
|
||||||
f.set_dirty();
|
f.set_dirty();
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
// if (k == K_TAB && f.mask().is_running())
|
// if (k == K_TAB && f.mask().is_running())
|
||||||
// f.mask().stop_run(K_AUTO_ENTER);
|
// f.mask().stop_run(K_AUTO_ENTER);
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::tipo(TMask_field& f , KEY k)
|
bool M71310_application::tipo(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
if (k == K_SPACE)
|
if (k == K_SPACE)
|
||||||
{
|
{
|
||||||
TMask& m = f.mask();
|
TMask& m = f.mask();
|
||||||
TString16 tipo = m.get(F_QLTIPOVERS);
|
TString16 tipo = m.get(F_QLTIPOVERS);
|
||||||
TString16 luogo = m.get(F_QLLUOVERS);
|
TString16 luogo = m.get(F_QLLUOVERS);
|
||||||
|
|
||||||
if (tipo.not_empty() && luogo.not_empty())
|
if (tipo.not_empty() && luogo.not_empty())
|
||||||
if (tipo == "D" && luogo == "T")
|
if (tipo == "D" && luogo == "T")
|
||||||
{
|
{
|
||||||
m.reset(-G_DISTINTA_TESORERIA);
|
m.reset(-G_DISTINTA_TESORERIA);
|
||||||
m.disable(-G_DISTINTA_TESORERIA);
|
m.disable(-G_DISTINTA_TESORERIA);
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
m.enable(-G_DISTINTA_TESORERIA);
|
m.enable(-G_DISTINTA_TESORERIA);
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::luogo(TMask_field& f , KEY k)
|
bool M71310_application::luogo(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
if (k == K_SPACE)
|
if (k == K_SPACE)
|
||||||
{
|
{
|
||||||
TMask& m = f.mask();
|
TMask& m = f.mask();
|
||||||
TString16 tipo = m.get(F_QLTIPOVERS);
|
TString16 tipo = m.get(F_QLTIPOVERS);
|
||||||
TString16 luogo = m.get(F_QLLUOVERS);
|
TString16 luogo = m.get(F_QLLUOVERS);
|
||||||
|
|
||||||
if (tipo.not_empty())
|
if (tipo.not_empty())
|
||||||
if (tipo == "D" && luogo == "T")
|
if (tipo == "D" && luogo == "T")
|
||||||
{
|
{
|
||||||
m.reset(-G_DISTINTA_TESORERIA);
|
m.reset(-G_DISTINTA_TESORERIA);
|
||||||
m.disable(-G_DISTINTA_TESORERIA);
|
m.disable(-G_DISTINTA_TESORERIA);
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
m.enable(-G_DISTINTA_TESORERIA);
|
m.enable(-G_DISTINTA_TESORERIA);
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
// Tenta di mandare il focus al campo visibile invece che a quello
|
// Tenta di mandare il focus al campo visibile invece che a quello
|
||||||
// nascosto
|
// nascosto
|
||||||
bool M71310_application::artbil_hnd(TMask_field& f , KEY k)
|
bool M71310_application::artbil_hnd(TMask_field& f , KEY k)
|
||||||
{
|
{
|
||||||
if (k == K_TAB)
|
if (k == K_TAB)
|
||||||
{
|
{
|
||||||
TMask& m = f.mask();
|
TMask& m = f.mask();
|
||||||
const char tipo = m.get(F_QLTIPOVERS)[0];
|
const char tipo = m.get(F_QLTIPOVERS)[0];
|
||||||
const char luogo = m.get(F_QLLUOVERS)[0];
|
const char luogo = m.get(F_QLLUOVERS)[0];
|
||||||
|
|
||||||
// Determina chi ha il focus in questo momento
|
// Determina chi ha il focus in questo momento
|
||||||
TMask_field& fld = m.focus_field();
|
TMask_field& fld = m.focus_field();
|
||||||
|
|
||||||
// Se il focus e' sull'ultimo campo prima di F_ABI
|
// Se il focus e' sull'ultimo campo prima di F_ABI
|
||||||
if (fld.dlg() == F_ARTBIL)
|
if (fld.dlg() == F_ARTBIL)
|
||||||
{
|
{
|
||||||
// WINDOW win;
|
// WINDOW win;
|
||||||
// Determina chi ce lo dovrebbe avere dopo..
|
// Determina chi ce lo dovrebbe avere dopo..
|
||||||
if (tipo == 'B')
|
if (tipo == 'B')
|
||||||
{
|
{
|
||||||
TMask_field& fabi = m.field(F_ABI);
|
TMask_field& fabi = m.field(F_ABI);
|
||||||
fabi.set_focus();
|
fabi.set_focus();
|
||||||
// win = m.field(F_ABI).win();
|
// win = m.field(F_ABI).win();
|
||||||
// m.set_focus_win(win, TRUE);
|
// m.set_focus_win(win, TRUE);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
void M71310_application::on_config_change()
|
void M71310_application::on_config_change()
|
||||||
{
|
{
|
||||||
TConfig conf(CONFIG_STUDIO);
|
TConfig conf(CONFIG_STUDIO);
|
||||||
_anno = (int) conf.get_long(ANNO_SEL);
|
_anno = (int) conf.get_long(ANNO_SEL);
|
||||||
}
|
}
|
||||||
|
|
||||||
// Determina se l'utente ha cambiato l'anno di dichiarazione
|
// Determina se l'utente ha cambiato l'anno di dichiarazione
|
||||||
// impostato. Se si' non bisogna toccarlo
|
// impostato. Se si' non bisogna toccarlo
|
||||||
bool M71310_application::changed_anno_dic(TMask& m)
|
bool M71310_application::changed_anno_dic(TMask& m)
|
||||||
{
|
{
|
||||||
const int anno_corr = m.get_int(F_ANNODIC);
|
const int anno_corr = m.get_int(F_ANNODIC);
|
||||||
return anno_corr ? anno_corr != _anno : FALSE;
|
return anno_corr ? anno_corr != _anno : FALSE;
|
||||||
}
|
}
|
||||||
|
|
||||||
void M71310_application::init_insert_mode(TMask& m)
|
void M71310_application::init_insert_mode(TMask& m)
|
||||||
{
|
{
|
||||||
if (!changed_anno_dic(m))
|
if (!changed_anno_dic(m))
|
||||||
m.set(F_ANNODIC, _anno);
|
m.set(F_ANNODIC, _anno);
|
||||||
m.disable(F_ANNODIC);
|
m.disable(F_ANNODIC);
|
||||||
m.disable(F_GENERA);
|
m.disable(F_GENERA);
|
||||||
m.enable (F_QLRITEFF);
|
m.enable (F_QLRITEFF);
|
||||||
m.enable (F_QLRITVER);
|
m.enable (F_QLRITVER);
|
||||||
m.enable (F_QLRSS);
|
m.enable (F_QLRSS);
|
||||||
//m.enable (F_QLNOTE);
|
//m.enable (F_QLNOTE);
|
||||||
m.enable (F_NOTEA);
|
m.enable (F_NOTEA);
|
||||||
m.enable (F_NOTEB);
|
m.enable (F_NOTEB);
|
||||||
m.enable (F_NOTEC);
|
m.enable (F_NOTEC);
|
||||||
m.enable (F_NOTED);
|
m.enable (F_NOTED);
|
||||||
m.enable (F_NOTEE);
|
m.enable (F_NOTEE);
|
||||||
m.enable (F_NOTEF);
|
m.enable (F_NOTEF);
|
||||||
m.enable (F_NOTEG);
|
m.enable (F_NOTEG);
|
||||||
}
|
}
|
||||||
|
|
||||||
void M71310_application::init_query_mode(TMask& m)
|
void M71310_application::init_query_mode(TMask& m)
|
||||||
{
|
{
|
||||||
if (!changed_anno_dic(m))
|
if (!changed_anno_dic(m))
|
||||||
m.set(F_ANNODIC, _anno);
|
m.set(F_ANNODIC, _anno);
|
||||||
m.enable(F_ANNODIC);
|
m.enable(F_ANNODIC);
|
||||||
m.enable (F_GENERA);
|
m.enable (F_GENERA);
|
||||||
m.disable(F_QLRITEFF);
|
m.disable(F_QLRITEFF);
|
||||||
m.disable(F_QLRITVER);
|
m.disable(F_QLRITVER);
|
||||||
m.disable(F_QLRSS);
|
m.disable(F_QLRSS);
|
||||||
//m.disable(F_QLNOTE);
|
//m.disable(F_QLNOTE);
|
||||||
m.disable(F_NOTEA);
|
m.disable(F_NOTEA);
|
||||||
m.disable(F_NOTEB);
|
m.disable(F_NOTEB);
|
||||||
m.disable(F_NOTEC);
|
m.disable(F_NOTEC);
|
||||||
m.disable(F_NOTED);
|
m.disable(F_NOTED);
|
||||||
m.disable(F_NOTEE);
|
m.disable(F_NOTEE);
|
||||||
m.disable(F_NOTEF);
|
m.disable(F_NOTEF);
|
||||||
m.disable(F_NOTEG);
|
m.disable(F_NOTEG);
|
||||||
}
|
}
|
||||||
|
|
||||||
void M71310_application::init_modify_mode(TMask& m)
|
void M71310_application::init_modify_mode(TMask& m)
|
||||||
{
|
{
|
||||||
if (!changed_anno_dic(m))
|
if (!changed_anno_dic(m))
|
||||||
m.set(F_ANNODIC, _anno);
|
m.set(F_ANNODIC, _anno);
|
||||||
m.disable(F_ANNODIC);
|
m.disable(F_ANNODIC);
|
||||||
set_field_note(m);
|
set_field_note(m);
|
||||||
|
|
||||||
m.disable(F_GENERA);
|
m.disable(F_GENERA);
|
||||||
m.enable (F_QLRITEFF);
|
m.enable (F_QLRITEFF);
|
||||||
m.enable (F_QLRITVER);
|
m.enable (F_QLRITVER);
|
||||||
m.enable (F_QLRSS);
|
m.enable (F_QLRSS);
|
||||||
//m.enable (F_QLNOTE);
|
//m.enable (F_QLNOTE);
|
||||||
m.enable (F_NOTEA);
|
m.enable (F_NOTEA);
|
||||||
m.enable (F_NOTEB);
|
m.enable (F_NOTEB);
|
||||||
m.enable (F_NOTEC);
|
m.enable (F_NOTEC);
|
||||||
m.enable (F_NOTED);
|
m.enable (F_NOTED);
|
||||||
m.enable (F_NOTEE);
|
m.enable (F_NOTEE);
|
||||||
m.enable (F_NOTEF);
|
m.enable (F_NOTEF);
|
||||||
m.enable (F_NOTEG);
|
m.enable (F_NOTEG);
|
||||||
}
|
}
|
||||||
|
|
||||||
void M71310_application::set_field_note(TMask& m)
|
void M71310_application::set_field_note(TMask& m)
|
||||||
{
|
{
|
||||||
TString note = _rel->lfile().get(QUL_QLNOTE);
|
TString note = _rel->lfile().get(QUL_QLNOTE);
|
||||||
|
|
||||||
if (note != "")
|
if (note != "")
|
||||||
{
|
{
|
||||||
char A,B,C,D,E,F,G;
|
char A,B,C,D,E,F,G;
|
||||||
|
|
||||||
int p = note.len() - 1;
|
int p = note.len() - 1;
|
||||||
|
|
||||||
A = note[0];
|
A = note[0];
|
||||||
if (p >= 1)
|
if (p >= 1)
|
||||||
B = note[1];
|
B = note[1];
|
||||||
if (p >= 2)
|
if (p >= 2)
|
||||||
C = note[2];
|
C = note[2];
|
||||||
if (p >= 3)
|
if (p >= 3)
|
||||||
D = note[3];
|
D = note[3];
|
||||||
if (p >= 4)
|
if (p >= 4)
|
||||||
E = note[4];
|
E = note[4];
|
||||||
if (p >= 5)
|
if (p >= 5)
|
||||||
F = note[5];
|
F = note[5];
|
||||||
if (p >= 6)
|
if (p >= 6)
|
||||||
G = note[6];
|
G = note[6];
|
||||||
|
|
||||||
if (A == 'A')
|
if (A == 'A')
|
||||||
m.set(F_NOTEA, "X");
|
m.set(F_NOTEA, "X");
|
||||||
|
|
||||||
if (B == 'B')
|
if (B == 'B')
|
||||||
m.set(F_NOTEB, "X");
|
m.set(F_NOTEB, "X");
|
||||||
|
|
||||||
if (C == 'C')
|
if (C == 'C')
|
||||||
m.set(F_NOTEC, "X");
|
m.set(F_NOTEC, "X");
|
||||||
|
|
||||||
if (D == 'D')
|
if (D == 'D')
|
||||||
m.set(F_NOTED, "X");
|
m.set(F_NOTED, "X");
|
||||||
|
|
||||||
if (E == 'E')
|
if (E == 'E')
|
||||||
m.set(F_NOTEE, "X");
|
m.set(F_NOTEE, "X");
|
||||||
|
|
||||||
if (F == 'F')
|
if (F == 'F')
|
||||||
m.set(F_NOTEF, "X");
|
m.set(F_NOTEF, "X");
|
||||||
|
|
||||||
if (G == 'G')
|
if (G == 'G')
|
||||||
m.set(F_NOTEG, "X");
|
m.set(F_NOTEG, "X");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void M71310_application::build_note(const TMask& m)
|
void M71310_application::build_note(const TMask& m)
|
||||||
{
|
{
|
||||||
char A = m.get(F_NOTEA)[0];
|
char A = m.get(F_NOTEA)[0];
|
||||||
char B = m.get(F_NOTEB)[0];
|
char B = m.get(F_NOTEB)[0];
|
||||||
char C = m.get(F_NOTEC)[0];
|
char C = m.get(F_NOTEC)[0];
|
||||||
char D = m.get(F_NOTED)[0];
|
char D = m.get(F_NOTED)[0];
|
||||||
char E = m.get(F_NOTEE)[0];
|
char E = m.get(F_NOTEE)[0];
|
||||||
char F = m.get(F_NOTEF)[0];
|
char F = m.get(F_NOTEF)[0];
|
||||||
char G = m.get(F_NOTEG)[0];
|
char G = m.get(F_NOTEG)[0];
|
||||||
|
|
||||||
TString16 note;
|
TString16 note;
|
||||||
|
|
||||||
if (A == 'X')
|
if (A == 'X')
|
||||||
note[0] = 'A';
|
note[0] = 'A';
|
||||||
else
|
else
|
||||||
note[0] = ' ';
|
note[0] = ' ';
|
||||||
|
|
||||||
if (B == 'X')
|
if (B == 'X')
|
||||||
note[1] = 'B';
|
note[1] = 'B';
|
||||||
else
|
else
|
||||||
note[1] = ' ';
|
note[1] = ' ';
|
||||||
|
|
||||||
if (C == 'X')
|
if (C == 'X')
|
||||||
note[2] = 'C';
|
note[2] = 'C';
|
||||||
else
|
else
|
||||||
note[2] = ' ';
|
note[2] = ' ';
|
||||||
|
|
||||||
if (D == 'X')
|
if (D == 'X')
|
||||||
note[3] = 'D';
|
note[3] = 'D';
|
||||||
else
|
else
|
||||||
note[3] = ' ';
|
note[3] = ' ';
|
||||||
|
|
||||||
if (E == 'X')
|
if (E == 'X')
|
||||||
note[4] = 'E';
|
note[4] = 'E';
|
||||||
else
|
else
|
||||||
note[4] = ' ';
|
note[4] = ' ';
|
||||||
|
|
||||||
if (F == 'X')
|
if (F == 'X')
|
||||||
note[5] = 'F';
|
note[5] = 'F';
|
||||||
else
|
else
|
||||||
note[5] = ' ';
|
note[5] = ' ';
|
||||||
|
|
||||||
if (G == 'X')
|
if (G == 'X')
|
||||||
note[6] = 'G';
|
note[6] = 'G';
|
||||||
else
|
else
|
||||||
note[6] = ' ';
|
note[6] = ' ';
|
||||||
|
|
||||||
note [7] = '\0';
|
note [7] = '\0';
|
||||||
|
|
||||||
_rel->lfile().put(QUL_QLNOTE, note);
|
_rel->lfile().put(QUL_QLNOTE, note);
|
||||||
}
|
}
|
||||||
|
|
||||||
// Arrotonda l'importo versato
|
// Arrotonda l'importo versato
|
||||||
real M71310_application::arrotonda(const TMask& m)
|
real M71310_application::arrotonda(const TMask& m)
|
||||||
{
|
{
|
||||||
real rImpVers = m.get_real(F_QLRITVER);
|
real rImpVers = m.get_real(F_QLRITVER);
|
||||||
real rImpArr = round_770(rImpVers);
|
real rImpArr = round_770(rImpVers);
|
||||||
return rImpArr;
|
return rImpArr;
|
||||||
}
|
}
|
||||||
|
|
||||||
int M71310_application::rewrite(const TMask& m)
|
int M71310_application::rewrite(const TMask& m)
|
||||||
{
|
{
|
||||||
real rImpVersArr;
|
real rImpVersArr;
|
||||||
build_note(m);
|
build_note(m);
|
||||||
m.autosave(*_rel);
|
m.autosave(*_rel);
|
||||||
rImpVersArr = arrotonda(m);
|
rImpVersArr = arrotonda(m);
|
||||||
_rel->lfile().put(QUL_QLRITVER, rImpVersArr);
|
_rel->lfile().put(QUL_QLRITVER, rImpVersArr);
|
||||||
return _rel->rewrite();
|
return _rel->rewrite();
|
||||||
}
|
}
|
||||||
|
|
||||||
int M71310_application::write(const TMask& m)
|
int M71310_application::write(const TMask& m)
|
||||||
{
|
{
|
||||||
real rImpVersArr;
|
real rImpVersArr;
|
||||||
build_note(m);
|
build_note(m);
|
||||||
m.autosave(*_rel);
|
m.autosave(*_rel);
|
||||||
rImpVersArr = arrotonda(m);
|
rImpVersArr = arrotonda(m);
|
||||||
_rel->lfile().put(QUL_QLRITVER, rImpVersArr);
|
_rel->lfile().put(QUL_QLRITVER, rImpVersArr);
|
||||||
return _rel->write();
|
return _rel->write();
|
||||||
}
|
}
|
||||||
|
|
||||||
bool M71310_application::user_create()
|
bool M71310_application::user_create()
|
||||||
{
|
{
|
||||||
_cnf = new TConfig(CONFIG_STUDIO);
|
_cnf = new TConfig(CONFIG_STUDIO);
|
||||||
_rel = new TRelation (LF_QUAL);
|
_rel = new TRelation (LF_QUAL);
|
||||||
_msk = new TMask("771310a");
|
_msk = new TMask("771310a");
|
||||||
|
_app = new TGenera('d');
|
||||||
set_search_field(F_QLANNOPAG);
|
|
||||||
_msk->set_handler (F_GENERA, generazione);
|
set_search_field(F_QLANNOPAG);
|
||||||
_msk->set_handler (F_PARAMETRI, genera_para);
|
_msk->set_handler (F_GENERA, generazione);
|
||||||
_msk->set_handler (F_CODDITTA, codditta_hnd);
|
_msk->set_handler (F_PARAMETRI, genera_para);
|
||||||
_msk->set_handler (F_QLTIPOVERS, tipo);
|
_msk->set_handler (F_CODDITTA, codditta_hnd);
|
||||||
_msk->set_handler (F_QLLUOVERS, luogo);
|
_msk->set_handler (F_QLTIPOVERS, tipo);
|
||||||
_msk->set_handler (F_QLMESEPAG, mese);
|
_msk->set_handler (F_QLLUOVERS, luogo);
|
||||||
_msk->set_handler (F_QLANNOPAG, anno);
|
_msk->set_handler (F_QLMESEPAG, mese);
|
||||||
_msk->set_handler (F_QLCODTRIB, cod_tributo);
|
_msk->set_handler (F_QLANNOPAG, anno);
|
||||||
_msk->set_handler (F_QLNUMERO, auto_premi);
|
_msk->set_handler (F_QLCODTRIB, cod_tributo);
|
||||||
_msk->set_handler (F_CCQUIETANZA, auto_premi);
|
_msk->set_handler (F_QLNUMERO, auto_premi);
|
||||||
_msk->set_handler (F_NPROG, auto_premi);
|
_msk->set_handler (F_CCQUIETANZA, auto_premi);
|
||||||
_msk->set_handler (F_ARTBIL, artbil_hnd);
|
_msk->set_handler (F_NPROG, auto_premi);
|
||||||
|
_msk->set_handler (F_ARTBIL, artbil_hnd);
|
||||||
return TRUE;
|
|
||||||
}
|
return TRUE;
|
||||||
|
}
|
||||||
bool M71310_application::user_destroy()
|
|
||||||
{
|
bool M71310_application::user_destroy()
|
||||||
delete _msk;
|
{
|
||||||
delete _rel;
|
delete _msk;
|
||||||
delete _cnf;
|
delete _rel;
|
||||||
return TRUE;
|
delete _cnf;
|
||||||
}
|
delete _app;
|
||||||
|
return TRUE;
|
||||||
int m71310(int argc, char* argv[])
|
}
|
||||||
{
|
|
||||||
M71310_application a;
|
int m71310(int argc, char* argv[])
|
||||||
a.run(argc, argv, "Quadro L");
|
{
|
||||||
return 0;
|
M71310_application a;
|
||||||
}
|
a.run(argc, argv, "Quadro L");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
1068
m770/774100.cpp
1068
m770/774100.cpp
File diff suppressed because it is too large
Load Diff
110
m770/774100.h
110
m770/774100.h
@ -1,55 +1,55 @@
|
|||||||
#ifndef __774100_H
|
#ifndef __774100_H
|
||||||
#define __774100_H
|
#define __774100_H
|
||||||
|
|
||||||
#include <mailbox.h>
|
#include <mailbox.h>
|
||||||
#include "77lib.h"
|
#include "77lib.h"
|
||||||
|
|
||||||
// Usato in generazione per evitare di leggere due volte lo stesso versamento
|
// Usato in generazione per evitare di leggere due volte lo stesso versamento
|
||||||
class TVersamenti : public TAssoc_array
|
class TVersamenti : public TAssoc_array
|
||||||
{
|
{
|
||||||
TString80 _key;
|
TString80 _key;
|
||||||
public:
|
public:
|
||||||
bool find (TSchedaP& sch, const long numvers);
|
bool find (TSchedaP& sch, const long numvers);
|
||||||
void set (TSchedaP& scheda, const long numvers);
|
void set (TSchedaP& scheda, const long numvers);
|
||||||
|
|
||||||
TVersamenti() {}
|
TVersamenti() {}
|
||||||
};
|
};
|
||||||
|
|
||||||
bool filter_func(const TRelation *);
|
bool filter_func(const TRelation *);
|
||||||
|
|
||||||
class TGenera
|
class TGenera
|
||||||
{
|
{
|
||||||
friend bool filter_func(const TRelation *);
|
friend bool filter_func(const TRelation *);
|
||||||
|
|
||||||
TVersamenti* _righe_gia_presenti;
|
TVersamenti* _righe_gia_presenti;
|
||||||
|
|
||||||
TRecnotype _items_rpag;
|
TRecnotype _items_rpag;
|
||||||
int _annodic,_annopag,_mesepag,_causale,_artbil;
|
int _annodic,_annopag,_mesepag,_causale,_artbil;
|
||||||
int _ab1015, _ct1015, _codtrib;
|
int _ab1015, _ct1015, _codtrib;
|
||||||
long _codditta;
|
long _codditta;
|
||||||
real _riteff,_ritver;
|
real _riteff,_ritver;
|
||||||
TDate _datavers;
|
TDate _datavers;
|
||||||
char _luovers,_tipover;
|
char _luovers,_tipover,_liv;
|
||||||
TString _serie,_numero,_codqua,_cq1015,_rss,_note,_sNprog;
|
TString _serie,_numero,_codqua,_cq1015,_rss,_note,_sNprog;
|
||||||
bool _ver1015;
|
bool _ver1015;
|
||||||
|
|
||||||
bool azzera_quadroL();
|
bool azzera_quadroL();
|
||||||
bool causale1015 (int codcaus);
|
bool causale1015 (int codcaus);
|
||||||
void causale (int causale);
|
void causale (int causale);
|
||||||
void genera_riga (TCursor*);
|
bool genera_riga (TCursor*);
|
||||||
void dati_rver (TLocalisamfile&, TSchedaP& scheda, long numvers);
|
void dati_rver (TLocalisamfile&, TSchedaP& scheda, long numvers);
|
||||||
void dati_scperc (TSchedaP& scheda);
|
void dati_scperc (TSchedaP& scheda);
|
||||||
int controllo_parametri();
|
int controllo_parametri();
|
||||||
|
|
||||||
public:
|
public:
|
||||||
bool set(const long codditta, TConfig* cnf, const char* section="77");
|
bool set(const long codditta, TConfig* cnf, const char* section="77");
|
||||||
void arrotonda();
|
void arrotonda();
|
||||||
|
|
||||||
TGenera() : _annodic(0),_annopag(0),_mesepag(0),_causale(0),_artbil(0),
|
TGenera(char livello) : _liv(toupper(livello)),_annodic(0),_annopag(0),
|
||||||
_ab1015(0), _ct1015(0), _codtrib(0) {}
|
_mesepag(0),_causale(0),_artbil(0),_ab1015(0), _ct1015(0), _codtrib(0) {}
|
||||||
|
|
||||||
virtual ~TGenera() {}
|
virtual ~TGenera() {}
|
||||||
};
|
};
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
@ -424,13 +424,16 @@ void TSelezioneDich::build_nomiditte()
|
|||||||
|
|
||||||
for (_nditte->first(); !_nditte->eof(); _nditte->next())
|
for (_nditte->first(); !_nditte->eof(); _nditte->next())
|
||||||
{
|
{
|
||||||
prg.addstatus(1);
|
prg.addstatus(1);
|
||||||
_n_ditte++;
|
if (exist_dichiar_770(dt.get_long("CODDITTA")))
|
||||||
TToken_string* d = new TToken_string(64);
|
{
|
||||||
d->add(" "); // spazio per la selezione
|
_n_ditte++;
|
||||||
d->add(dt.get("CODDITTA"));
|
TToken_string* d = new TToken_string(64);
|
||||||
d->add(dt.get("RAGSOC"));
|
d->add(" "); // spazio per la selezione
|
||||||
_nomiditte.add(d);
|
d->add(dt.get("CODDITTA"));
|
||||||
|
d->add(dt.get("RAGSOC"));
|
||||||
|
_nomiditte.add(d);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
166
m770/776500.cpp
166
m770/776500.cpp
@ -12,6 +12,21 @@
|
|||||||
#include "776.h"
|
#include "776.h"
|
||||||
#include "776500.h"
|
#include "776500.h"
|
||||||
#include "77lib.h"
|
#include "77lib.h"
|
||||||
|
|
||||||
|
// derivazione della classe Tmask per reimplementare
|
||||||
|
// la funzione membro can_be_closed() in modo da poter
|
||||||
|
// avvertire l'utente in caso di pressione del tasto ALT+F4
|
||||||
|
class TMaskDerived : public TMask
|
||||||
|
{
|
||||||
|
|
||||||
|
public:
|
||||||
|
// @cmember Controlla se la maschera puo' essere chiusa (TRUE se puo' esserlo)
|
||||||
|
virtual bool can_be_closed() const;
|
||||||
|
// @cmember Costruttore (crea la maschera leggendo la descrizione dal file .msk)
|
||||||
|
TMaskDerived(const char* title) : TMask(title) {};
|
||||||
|
// @cmember Distruttore
|
||||||
|
virtual ~TMaskDerived(){};
|
||||||
|
};
|
||||||
|
|
||||||
class TParametri_genera : public TApplication
|
class TParametri_genera : public TApplication
|
||||||
{
|
{
|
||||||
@ -37,9 +52,19 @@ class TParametri_genera : public TApplication
|
|||||||
|
|
||||||
HIDDEN TParametri_genera& app() { return (TParametri_genera&) main_app(); }
|
HIDDEN TParametri_genera& app() { return (TParametri_genera&) main_app(); }
|
||||||
|
|
||||||
|
// implementazione della funzione TMaskDerived::can_be_closed()
|
||||||
|
// per segnalare all'utente l'interruzione del processo di generazione
|
||||||
|
bool TMaskDerived::can_be_closed() const
|
||||||
|
{
|
||||||
|
bool ok = TRUE;
|
||||||
|
if (is_running())
|
||||||
|
ok = yesno_box("Annullare la generazione dei versamenti?");
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
void TParametri_genera::on_config_change()
|
void TParametri_genera::on_config_change()
|
||||||
{
|
{
|
||||||
TConfig conf(_liv == 'S' ? CONFIG_USER : CONFIG_STUDIO);
|
TConfig conf(CONFIG_STUDIO);
|
||||||
_anno_dic = (int)conf.get_long(ANNO_SEL, _section);
|
_anno_dic = (int)conf.get_long(ANNO_SEL, _section);
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -61,90 +86,45 @@ KEY TParametri_genera::registra(TMask& m, bool check_dirty)
|
|||||||
|
|
||||||
bool TParametri_genera::main_loop()
|
bool TParametri_genera::main_loop()
|
||||||
{
|
{
|
||||||
long codditta, codditta_prec;
|
long codditta;
|
||||||
int i = 0;
|
int i = 0;
|
||||||
|
|
||||||
KEY tasto;
|
KEY tasto;
|
||||||
TMask msk("776500a");
|
|
||||||
msk.open_modal();
|
TMaskDerived msk("776500a");
|
||||||
|
msk.open_modal();
|
||||||
// da dichiarazioni selezionate
|
codditta = get_firm_770();
|
||||||
if (_liv == 'S')
|
_rel->lfile().put("CODDITTA", codditta);
|
||||||
{
|
_rel->read();
|
||||||
codditta_prec = get_firm_770();
|
msk.autoload(*_rel);
|
||||||
tasto = K_TAB;
|
tasto = K_TAB;
|
||||||
|
_risposta = 0;
|
||||||
// loop di scansione dichiarazioni selezionate
|
|
||||||
while ((codditta = _cnf->get_long(DITTE_SEL, _section, i++)) != 0L
|
// loop di gestione maschera
|
||||||
&& tasto != K_QUIT)
|
while (tasto != K_ESC && tasto != K_QUIT)
|
||||||
|
{
|
||||||
|
tasto = msk.run();
|
||||||
|
switch (tasto)
|
||||||
{
|
{
|
||||||
set_firm_770(codditta);
|
case K_ESC:
|
||||||
_rel->lfile().put("CODDITTA", codditta);
|
if (registra(msk,TRUE) == K_ESC)
|
||||||
_rel->read();
|
tasto = K_TAB;
|
||||||
msk.autoload(*_rel);
|
_risposta = 1;
|
||||||
tasto = K_TAB;
|
break;
|
||||||
|
case K_QUIT:
|
||||||
// loop di gestione maschera
|
if (yesno_box("Annullare la generazione dei versamenti?"))
|
||||||
while (tasto != K_ESC && tasto != K_QUIT)
|
_risposta = 0;
|
||||||
{
|
else tasto = K_TAB;
|
||||||
tasto = msk.run();
|
break;
|
||||||
switch (tasto)
|
case K_SAVE:
|
||||||
{
|
registra(msk,FALSE);
|
||||||
case K_ESC:
|
_risposta = 1;
|
||||||
if (registra(msk,TRUE) == K_ESC)
|
default:
|
||||||
tasto = K_TAB;
|
break;
|
||||||
break;
|
}
|
||||||
case K_QUIT:
|
} // endloop di gestione maschera
|
||||||
if (registra(msk,TRUE) == K_ESC)
|
msk.close_modal();
|
||||||
tasto = K_TAB;
|
|
||||||
break;
|
|
||||||
case K_SAVE:
|
|
||||||
registra(msk,FALSE);
|
|
||||||
default:
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
} // endloop di gestione maschera
|
|
||||||
|
|
||||||
} // endloop di scansione dichiarazioni selezionate
|
|
||||||
|
|
||||||
set_firm_770(codditta_prec);
|
|
||||||
}
|
|
||||||
|
|
||||||
// dalla manutenzione dichiarazione
|
|
||||||
else
|
|
||||||
{
|
|
||||||
codditta = get_firm_770();
|
|
||||||
_rel->lfile().put("CODDITTA", codditta);
|
|
||||||
_rel->read();
|
|
||||||
msk.autoload(*_rel);
|
|
||||||
tasto = K_TAB;
|
|
||||||
|
|
||||||
// loop di gestione maschera
|
|
||||||
while (tasto != K_ESC && tasto != K_QUIT)
|
|
||||||
{
|
|
||||||
tasto = msk.run();
|
|
||||||
switch (tasto)
|
|
||||||
{
|
|
||||||
case K_ESC:
|
|
||||||
if (registra(msk,TRUE) == K_ESC)
|
|
||||||
tasto = K_TAB;
|
|
||||||
_risposta = 1;
|
|
||||||
break;
|
|
||||||
case K_QUIT:
|
|
||||||
if (registra(msk,TRUE) == K_ESC)
|
|
||||||
tasto = K_TAB;
|
|
||||||
_risposta = 0;
|
|
||||||
break;
|
|
||||||
case K_SAVE:
|
|
||||||
registra(msk,FALSE);
|
|
||||||
_risposta = 1;
|
|
||||||
default:
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
} // endloop di gestione maschera
|
|
||||||
}
|
|
||||||
|
|
||||||
msk.close_modal();
|
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -163,17 +143,21 @@ bool TParametri_genera::create()
|
|||||||
bool TParametri_genera::destroy()
|
bool TParametri_genera::destroy()
|
||||||
{
|
{
|
||||||
delete _rel;
|
delete _rel;
|
||||||
delete _cnf;
|
delete _cnf;
|
||||||
|
|
||||||
if (_liv == 'D')
|
TString appname;
|
||||||
{
|
TString body = "";
|
||||||
TString appname = "771mod -3";
|
|
||||||
TString body = "";
|
if (_liv == 'D')
|
||||||
body << _risposta;
|
appname = "771mod -3";
|
||||||
TMessage msg (appname,"",(const char*) body);
|
else
|
||||||
TMailbox mb;
|
appname = "774 -0";
|
||||||
mb.send(msg);
|
|
||||||
}
|
body << _risposta;
|
||||||
|
TMessage msg (appname,"",(const char*) body);
|
||||||
|
TMailbox mb;
|
||||||
|
mb.send(msg);
|
||||||
|
|
||||||
return TApplication::destroy();
|
return TApplication::destroy();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -13,13 +13,11 @@ END
|
|||||||
BUTTON DLG_CANCEL 10 2
|
BUTTON DLG_CANCEL 10 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -23 -1 ""
|
PROMPT -23 -1 ""
|
||||||
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
|
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
@ -31,9 +31,9 @@ BEGIN
|
|||||||
PROMPT -23 -1 ""
|
PROMPT -23 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_NULL 9 2
|
BUTTON DLG_AZZERA 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -33 -1 "Azzera"
|
PROMPT -33 -1 "A~zzera"
|
||||||
MESSAGE RESET,1@
|
MESSAGE RESET,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
|
@ -60,9 +60,9 @@ BEGIN
|
|||||||
PROMPT -23 -1 ""
|
PROMPT -23 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_NULL 9 2
|
BUTTON DLG_AZZERA 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -33 -1 "Azzera"
|
PROMPT -33 -1 "A~zzera"
|
||||||
MESSAGE RESET,1@
|
MESSAGE RESET,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
|
@ -1,5 +1,10 @@
|
|||||||
USE 42
|
USE 42
|
||||||
JOIN 37 INTO CODDITTA=CODDITTA
|
JOIN 37 INTO CODDITTA=CODDITTA
|
||||||
|
JOIN 9 INTO CODDITTA==CODDITTA
|
||||||
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
|
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||||
|
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||||
|
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||||
END
|
END
|
||||||
|
|
||||||
DESCRIPTION
|
DESCRIPTION
|
||||||
@ -24,7 +29,7 @@ STRINGA 1
|
|||||||
BEGIN
|
BEGIN
|
||||||
KEY "Cod.Conc.1"
|
KEY "Cod.Conc.1"
|
||||||
PROMPT 41 1 ""
|
PROMPT 41 1 ""
|
||||||
FIELD 37->L0CCONC1
|
FIELD 213@->UFFCONC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 2
|
STRINGA 2
|
||||||
|
@ -1,4 +1,5 @@
|
|||||||
// 77qg1a.h
|
// 77qg1a.h
|
||||||
#define F_CODDITTA 101
|
#define F_CODDITTA 101
|
||||||
#define F_RAGDITTA 102
|
#define F_RAGDITTA 102
|
||||||
#define F_PI 103
|
#define F_PI 103
|
||||||
|
#define DLG_AZZERA 150
|
||||||
|
@ -60,9 +60,9 @@ BEGIN
|
|||||||
PROMPT -23 -1 ""
|
PROMPT -23 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_NULL 9 2
|
BUTTON DLG_AZZERA 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -33 -1 "Azzera"
|
PROMPT -33 -1 "A~zzera"
|
||||||
MESSAGE RESET,1@
|
MESSAGE RESET,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
|
@ -43,7 +43,7 @@ BEGIN
|
|||||||
USE LF_QUAN
|
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 "Num." NPROG
|
||||||
DISPLAY "Mese" MESERIF
|
DISPLAY "Mese" MESERIF
|
||||||
DISPLAY "Anno" ANNORIF
|
DISPLAY "Anno" ANNORIF
|
||||||
DISPLAY "Imposta rimborsata" IMPOSTA
|
DISPLAY "Imposta rimborsata" IMPOSTA
|
||||||
|
@ -51,7 +51,7 @@ BEGIN
|
|||||||
USE LF_QUAP SELECT (CODDITTA=#QPF_CODDITTA)
|
USE LF_QUAP SELECT (CODDITTA=#QPF_CODDITTA)
|
||||||
INPUT CODDITTA QPF_CODDITTA SELECT
|
INPUT CODDITTA QPF_CODDITTA SELECT
|
||||||
INPUT NPROG QPF_NPROG
|
INPUT NPROG QPF_NPROG
|
||||||
DISPLAY "N°" NPROG
|
DISPLAY "Num." NPROG
|
||||||
DISPLAY "Imposta versata" IMPOSTA
|
DISPLAY "Imposta versata" IMPOSTA
|
||||||
DISPLAY "Interessi dipendente" INTERDIP
|
DISPLAY "Interessi dipendente" INTERDIP
|
||||||
DISPLAY "Interessi datore di lavoro" INTERDAT
|
DISPLAY "Interessi datore di lavoro" INTERDAT
|
||||||
|
@ -43,7 +43,7 @@ BEGIN
|
|||||||
USE LF_QUAQ SELECT (CODDITTA=#QQF_CODDITTA)
|
USE LF_QUAQ SELECT (CODDITTA=#QQF_CODDITTA)
|
||||||
INPUT CODDITTA QQF_CODDITTA SELECT
|
INPUT CODDITTA QQF_CODDITTA SELECT
|
||||||
INPUT NPROG QQF_NPROG
|
INPUT NPROG QQF_NPROG
|
||||||
DISPLAY "N°" NPROG
|
DISPLAY "Num." NPROG
|
||||||
DISPLAY "Mese" MESEPAG
|
DISPLAY "Mese" MESEPAG
|
||||||
DISPLAY "Anno" ANNOPAG
|
DISPLAY "Anno" ANNOPAG
|
||||||
DISPLAY "Contributo versato" CONTVERS
|
DISPLAY "Contributo versato" CONTVERS
|
||||||
|
@ -43,7 +43,7 @@ BEGIN
|
|||||||
USE LF_QUAR SELECT (CODDITTA=#QRF_CODDITTA)
|
USE LF_QUAR SELECT (CODDITTA=#QRF_CODDITTA)
|
||||||
INPUT CODDITTA QRF_CODDITTA SELECT
|
INPUT CODDITTA QRF_CODDITTA SELECT
|
||||||
INPUT NPROG QRF_NPROG
|
INPUT NPROG QRF_NPROG
|
||||||
DISPLAY "N°" NPROG
|
DISPLAY "Num." NPROG
|
||||||
DISPLAY "Mese" MESERIF
|
DISPLAY "Mese" MESERIF
|
||||||
DISPLAY "Anno" ANNORIF
|
DISPLAY "Anno" ANNORIF
|
||||||
DISPLAY "Imposta rimborsata" IMPRIMB
|
DISPLAY "Imposta rimborsata" IMPRIMB
|
||||||
|
@ -51,7 +51,7 @@ BEGIN
|
|||||||
USE LF_QUAS SELECT (CODDITTA=#QSF_CODDITTA)
|
USE LF_QUAS SELECT (CODDITTA=#QSF_CODDITTA)
|
||||||
INPUT CODDITTA QSF_CODDITTA SELECT
|
INPUT CODDITTA QSF_CODDITTA SELECT
|
||||||
INPUT NPROG QSF_NPROG
|
INPUT NPROG QSF_NPROG
|
||||||
DISPLAY "N°" NPROG
|
DISPLAY "Num." NPROG
|
||||||
DISPLAY "Imposta versata" IMPOSTA
|
DISPLAY "Imposta versata" IMPOSTA
|
||||||
DISPLAY "Interessi dipendente" INTERDIP
|
DISPLAY "Interessi dipendente" INTERDIP
|
||||||
DISPLAY "Interessi datore di lavoro" INTERDAT
|
DISPLAY "Interessi datore di lavoro" INTERDAT
|
||||||
|
@ -43,7 +43,7 @@ BEGIN
|
|||||||
USE LF_QUAT SELECT (CODDITTA=#QTF_CODDITTA)
|
USE LF_QUAT SELECT (CODDITTA=#QTF_CODDITTA)
|
||||||
INPUT CODDITTA QTF_CODDITTA SELECT
|
INPUT CODDITTA QTF_CODDITTA SELECT
|
||||||
INPUT NPROG QTF_NPROG
|
INPUT NPROG QTF_NPROG
|
||||||
DISPLAY "N°" NPROG
|
DISPLAY "Num." NPROG
|
||||||
DISPLAY "Mese" MESEPAG
|
DISPLAY "Mese" MESEPAG
|
||||||
DISPLAY "Anno" ANNOPAG
|
DISPLAY "Anno" ANNOPAG
|
||||||
DISPLAY "Contributo versato" CONTVERS
|
DISPLAY "Contributo versato" CONTVERS
|
||||||
|
Loading…
x
Reference in New Issue
Block a user