Aggiornata gestione quadri F, F1, F2
git-svn-id: svn://10.65.10.50/trunk@4505 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
b19e702cf5
commit
1ef0a57f4c
956
m770/771231.cpp
956
m770/771231.cpp
File diff suppressed because it is too large
Load Diff
@ -1,25 +1,39 @@
|
||||
// 771231a.h - quadro F
|
||||
// *NOTA* gli identificatori fino al 119 sono per spreadsheet
|
||||
|
||||
#define F_A1 120
|
||||
#define F_A2 121
|
||||
#define F_A3 122
|
||||
#define F_A4 123
|
||||
#define E_CAMBIAL 124
|
||||
#define E_PROVENTI 125
|
||||
#define E_ALI 126
|
||||
#define E_ROP 127
|
||||
#define F_DESCRCAUS 128
|
||||
#define F_ALI 129
|
||||
#define F_SOGG 130
|
||||
#define F_ROP 131
|
||||
#define F_CODCAU 132
|
||||
#define DLG_AZZERA 133
|
||||
#define F_CODDITTA 134
|
||||
#define F_RAGDITTA 135
|
||||
#define F_A 136
|
||||
#define F_B 137
|
||||
#define F_C 138
|
||||
#define F_D 139
|
||||
#define PROSP_A -11
|
||||
#define PROSP_B -12
|
||||
#define PROSP_C -13
|
||||
#define PROSP_D -14
|
||||
#define PROSP_E -15
|
||||
#define PROSP_F -16
|
||||
#define PROSP_G -17
|
||||
#define PROSP_H -18
|
||||
|
||||
#define DLG_AZZERA 120
|
||||
#define DLG_CODDITTA 121
|
||||
#define DLG_RAGDITTA 122
|
||||
|
||||
#define D_CAMBIAL 130
|
||||
#define D_PROVENTI 131
|
||||
#define D_ALI 132
|
||||
#define D_ROP 133
|
||||
|
||||
#define E_SOGG 140
|
||||
#define E_ROP 141
|
||||
|
||||
#define F_PLUSVAL 160
|
||||
#define F_ROP 161
|
||||
|
||||
#define G_PROVENTI 150
|
||||
#define G_ROP 151
|
||||
|
||||
#define H_PLUSVAL 170
|
||||
#define H_ROP 171
|
||||
|
||||
#define F_A1 181
|
||||
#define F_A2 182
|
||||
|
||||
#define F_A 201
|
||||
#define F_B 202
|
||||
#define F_C 203
|
||||
|
||||
417
m770/771231a.uml
417
m770/771231a.uml
@ -8,19 +8,19 @@ TOOLBAR "" 0 20 0 2
|
||||
#include "toolbar.h"
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Prospetto A" -1 -1 78 18
|
||||
PAGE "Prospetto A,B" -1 -1 78 18
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
NUMBER DLG_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGDITTA RAGSOC
|
||||
INPUT CODDITTA DLG_CODDITTA
|
||||
OUTPUT DLG_RAGDITTA RAGSOC
|
||||
FIELD LF_QUAF->CODDITTA
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
@ -28,7 +28,7 @@ BEGIN
|
||||
MESSAGE COPY,1@
|
||||
END
|
||||
|
||||
STRING F_RAGDITTA 50
|
||||
STRING DLG_RAGDITTA 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
@ -40,75 +40,36 @@ BEGIN
|
||||
PROMPT 1 3 "@bProspetto A"
|
||||
END
|
||||
|
||||
SPREADSHEET F_A 78 8
|
||||
SPREADSHEET F_A 0 6
|
||||
BEGIN
|
||||
PROMPT 0 4 ""
|
||||
ITEM "Causale"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Descrizione@35"
|
||||
ITEM "Aliquota"
|
||||
ITEM "Sogg. a rit.@15"
|
||||
ITEM "Somme sogg.a rit.@15"
|
||||
ITEM "Ritenuta@15"
|
||||
ITEM "Totale acconti@15"
|
||||
ITEM "Vers. a saldo@15"
|
||||
ITEM "Somma versata@15"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 0 6
|
||||
BEGIN
|
||||
PROMPT 1 13 ""
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 14 "A1 Importo di col.7 ..."
|
||||
PROMPT 1 12 "@bProspetto B"
|
||||
END
|
||||
|
||||
NUMBER F_A1 15
|
||||
SPREADSHEET F_B 0 6
|
||||
BEGIN
|
||||
PROMPT 60 14 ""
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->A1
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 15 "A2 Importo di col.7 di cui si chiede il rimborso"
|
||||
END
|
||||
|
||||
NUMBER F_A2 15
|
||||
BEGIN
|
||||
PROMPT 60 15 ""
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->A2
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 16 "A3 Somme soggette a ritenuta ..."
|
||||
END
|
||||
|
||||
NUMBER F_A3 15
|
||||
BEGIN
|
||||
PROMPT 60 16 ""
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->A3
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 17 "A4 Ritenute operate ..."
|
||||
END
|
||||
|
||||
NUMBER F_A4 15
|
||||
BEGIN
|
||||
PROMPT 60 17 ""
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->A4
|
||||
PROMPT 0 13 ""
|
||||
ITEM "Causale"
|
||||
ITEM "Descrizione@35"
|
||||
ITEM "Aliquota"
|
||||
ITEM "Somme sogg.a rit.@15"
|
||||
ITEM "Ritenuta@15"
|
||||
ITEM "Somma versata@15"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Prospetto B,C" -1 -1 78 18
|
||||
PAGE "Prospetti C,D,E" -1 -1 78 18
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
@ -131,177 +92,297 @@ END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bProspetto B"
|
||||
PROMPT 1 3 "@bProspetto C"
|
||||
END
|
||||
|
||||
SPREADSHEET F_B 78 6
|
||||
SPREADSHEET F_C 0 6
|
||||
BEGIN
|
||||
PROMPT 0 4 ""
|
||||
ITEM "Causale"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Descrizione@35"
|
||||
ITEM "Aliquota"
|
||||
ITEM "Somme sogg.a rit.@15"
|
||||
ITEM "Ritenuta@15"
|
||||
ITEM "Somma versata@15"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "@bProspetto C"
|
||||
END
|
||||
|
||||
SPREADSHEET F_C 78 6
|
||||
BEGIN
|
||||
PROMPT 0 12 ""
|
||||
ITEM "Causale"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Aliquota"
|
||||
ITEM "Somme sogg.a rit.@15"
|
||||
ITEM "Ritenuta@15"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Prospetto D,E,F" -1 -1 78 18
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
PROMPT 1 12 "@bProspetto D"
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "RD"
|
||||
PROMPT 1 80 "CODDITTA"
|
||||
FLAGS "D"
|
||||
FIELD PROSP_D->CODDITTA
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING DLG_NULL 50
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
PROMPT 1 80 "TIPOPRO"
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
ITEM "D|D"
|
||||
FIELD PROSP_D->TIPOPRO
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "NPROG"
|
||||
FLAGS "D"
|
||||
ITEM "1|1"
|
||||
FIELD PROSP_D->NPROG
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bProspetto D"
|
||||
PROMPT 2 13 "Importo complessivo delle cambiali "
|
||||
END
|
||||
|
||||
SPREADSHEET F_D 78 6
|
||||
BEGIN
|
||||
PROMPT 0 4 ""
|
||||
ITEM "Causale"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Aliquota"
|
||||
ITEM "Somme sogg.a rit.@15"
|
||||
ITEM "Ritenuta@15"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 0 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "@bProspetto E"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 12 "Importo complessivo delle cambiali "
|
||||
END
|
||||
|
||||
NUMBER E_CAMBIAL 15
|
||||
BEGIN
|
||||
PROMPT 60 12 ""
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->E_CAMBIALI
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 13 "Proventi soggetti a ritenuta "
|
||||
END
|
||||
|
||||
NUMBER E_PROVENTI 15
|
||||
NUMBER D_CAMBIAL 15
|
||||
BEGIN
|
||||
PROMPT 60 13 ""
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->E_SOGRIT
|
||||
FIELD PROSP_D->IMPCAMB
|
||||
END
|
||||
|
||||
NUMBER E_ALI 5
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 14 "Proventi soggetti a ritenuta "
|
||||
END
|
||||
|
||||
NUMBER D_PROVENTI 15
|
||||
BEGIN
|
||||
PROMPT 60 14 ""
|
||||
PICTURE "."
|
||||
FIELD PROSP_D->SOGRIT
|
||||
END
|
||||
|
||||
NUMBER D_ALI 5
|
||||
BEGINE
|
||||
PROMPT 2 14 "Aliquota "
|
||||
FIELD LF_QUAF->E_ALIQUOTA
|
||||
PROMPT 2 15 "Aliquota "
|
||||
FIELD PROSP_D->ALIQUOTA
|
||||
PICTURE ".2"
|
||||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||||
NUM_EXPR {(#D_ALI>=0) && (#D_ALI<=100)}
|
||||
END
|
||||
|
||||
NUMBER D_ROP 15
|
||||
BEGIN
|
||||
PROMPT 43 15 "Ritenuta operata "
|
||||
PICTURE "."
|
||||
FIELD PROSP_D->ROPE
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 17 "@bProspetto E"
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 5
|
||||
BEGIN
|
||||
PROMPT 1 80 "CODDITTA"
|
||||
FLAGS "D"
|
||||
FIELD PROSP_E->CODDITTA
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "TIPOPRO"
|
||||
FLAGS "D"
|
||||
ITEM "E|E"
|
||||
FIELD PROSP_E->TIPOPRO
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "NPROG"
|
||||
FLAGS "D"
|
||||
ITEM "1|1"
|
||||
FIELD PROSP_E->NPROG
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 18 "Ammontare dei proventi imponibili"
|
||||
END
|
||||
|
||||
NUMBER E_SOGG 15
|
||||
BEGIN
|
||||
PROMPT 60 18 ""
|
||||
PICTURE "."
|
||||
FIELD PROSP_E->SOGRIT
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 19 "Ritenuta operata"
|
||||
END
|
||||
|
||||
NUMBER E_ROP 15
|
||||
BEGIN
|
||||
PROMPT 43 14 "Ritenuta operata "
|
||||
PROMPT 60 19 ""
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->E_ROPE
|
||||
FIELD PROSP_E->ROPE
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 0 5
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Prospetti F,G,H" -1 -1 78 18
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 16 "@bProspetto F"
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
STRING F_CODCAU 2
|
||||
NUMBER DLG_NULL 5
|
||||
BEGIN
|
||||
PROMPT 2 17 "Causale "
|
||||
USE %CA7 SELECT (S1="F")
|
||||
VALIDATE REQIF_FUNC 3 F_SOGG F_ALI F_ROP
|
||||
INPUT CODTAB F_CODCAU
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione @60" S0
|
||||
DISPLAY "Codice tributo" I0
|
||||
DISPLAY "Articolo di bilancio" I3
|
||||
DISPLAY "C.T." B2
|
||||
DISPLAY "I.C." B1
|
||||
DISPLAY "R.A." B0
|
||||
OUTPUT F_CODCAU CODTAB
|
||||
OUTPUT F_DESCRCAUS S0
|
||||
OUTPUT F_ALI R0
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN 773mod -3 %CA7
|
||||
FIELD LF_QUAF->F_CODCAUS
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "RD"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 60
|
||||
STRING DLG_NULL 50
|
||||
BEGIN
|
||||
PROMPT 16 17 ""
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_SOGG 15
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 2 18 "Somme soggette a ritenuta "
|
||||
PROMPT 1 3 "@bProspetto F"
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 5
|
||||
BEGIN
|
||||
PROMPT 1 80 "CODDITTA"
|
||||
FLAGS "D"
|
||||
FIELD PROSP_F->CODDITTA
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "TIPOPRO"
|
||||
FLAGS "D"
|
||||
ITEM "F|F"
|
||||
FIELD PROSP_F->TIPOPRO
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "NPROG"
|
||||
FLAGS "D"
|
||||
ITEM "1|1"
|
||||
FIELD PROSP_F->NPROG
|
||||
END
|
||||
|
||||
NUMBER F_PLUSVAL 15
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ammontare delle plusvalenze imponibili "
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->F_SOGRIT
|
||||
END
|
||||
|
||||
NUMBER F_ALI 5
|
||||
BEGIN
|
||||
PROMPT 51 18 "Aliquota "
|
||||
PICTURE ".2"
|
||||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||||
FIELD LF_QUAF->F_ALIQUOTA
|
||||
FIELD PROSP_F->SOGRIT
|
||||
END
|
||||
|
||||
NUMBER F_ROP 15
|
||||
BEGIN
|
||||
PROMPT 2 19 "Ritenuta operata "
|
||||
PROMPT 2 5 "Ritenuta operata "
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF->F_ROPE
|
||||
FIELD PROSP_F->ROPE
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 8 "@bProspetto G"
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 5
|
||||
BEGIN
|
||||
PROMPT 1 80 "CODDITTA"
|
||||
FLAGS "D"
|
||||
FIELD PROSP_G->CODDITTA
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "TIPOPRO"
|
||||
FLAGS "D"
|
||||
ITEM "G|G"
|
||||
FIELD PROSP_G->TIPOPRO
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "NPROG"
|
||||
FLAGS "D"
|
||||
ITEM "1|1"
|
||||
FIELD PROSP_G->NPROG
|
||||
END
|
||||
|
||||
NUMBER G_PROVENTI 15
|
||||
BEGIN
|
||||
PROMPT 2 9 "Ammontare dei proventi imponibili "
|
||||
PICTURE "."
|
||||
FIELD PROSP_G->SOGRIT
|
||||
END
|
||||
|
||||
NUMBER G_ROP 15
|
||||
BEGIN
|
||||
PROMPT 2 10 "Ritenuta operata "
|
||||
PICTURE "."
|
||||
FIELD PROSP_G->ROPE
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 13 "@bProspetto H"
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 5
|
||||
BEGIN
|
||||
PROMPT 1 80 "CODDITTA"
|
||||
FLAGS "D"
|
||||
FIELD PROSP_H->CODDITTA
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "TIPOPRO"
|
||||
FLAGS "D"
|
||||
ITEM "H|H"
|
||||
FIELD PROSP_H->TIPOPRO
|
||||
END
|
||||
|
||||
LIST DLG_NULL 1
|
||||
BEGIN
|
||||
PROMPT 1 80 "NPROG"
|
||||
FLAGS "D"
|
||||
ITEM "1|1"
|
||||
FIELD PROSP_H->NPROG
|
||||
END
|
||||
|
||||
NUMBER H_PLUSVAL 15
|
||||
BEGIN
|
||||
PROMPT 2 14 "Ammontare delle plusvalenze imponibili "
|
||||
PICTURE "."
|
||||
FIELD PROSP_H->SOGRIT
|
||||
END
|
||||
|
||||
NUMBER H_ROP 15
|
||||
BEGIN
|
||||
PROMPT 2 15 "Prelievo operato "
|
||||
PICTURE "."
|
||||
FIELD PROSP_H->ROPE
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "771231b.uml" // mask prospetto A
|
||||
#include "771231c.uml" // prospetto B
|
||||
#include "771231c.uml" // prospetto C
|
||||
#include "771231c.uml" // prospetto D
|
||||
#include "771231b.uml" // prospetto A
|
||||
#include "771231b.uml" // prospetto B
|
||||
#include "771231b.uml" // prospetto C
|
||||
|
||||
@ -1,30 +1,39 @@
|
||||
// 771231b.uml - quadro F prospetto A
|
||||
// 771231b.uml - quadro F prospetto A-B-C
|
||||
|
||||
PAGE "Prospetto A" -1 -1 76 12
|
||||
PAGE "" -1 -1 52 9
|
||||
|
||||
NUMBER 101 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Causale "
|
||||
USE %CA7 SELECT (S1="F")
|
||||
VALIDATE REQIF_FUNC 6 102 103 104 105 106 107
|
||||
INPUT CODTAB 101
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione @60" S0
|
||||
DISPLAY "Descrizione @35" S0
|
||||
DISPLAY "Codice tributo" I0
|
||||
DISPLAY "Articolo di bilancio" I3
|
||||
OUTPUT 101 CODTAB
|
||||
OUTPUT 102 S0
|
||||
OUTPUT 103 R0
|
||||
CHECKTYPE SEARCH
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD CODTAB
|
||||
ADD RUN 773mod -3 %CA7
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 102 60
|
||||
STRING 102 35
|
||||
BEGIN
|
||||
PROMPT 15 1 ""
|
||||
FLAGS "D"
|
||||
USE %CA7 KEY 2 SELECT (S1="F")
|
||||
INPUT S0 102
|
||||
DISPLAY "Descrizione @35" S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Codice tributo" I0
|
||||
DISPLAY "Articolo di bilancio" I3
|
||||
COPY OUTPUT 101
|
||||
VALIDATE REQIF_FUNC 2 103 104
|
||||
FIELD S0
|
||||
WARNING "Descrizione obbligatoria"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -32,7 +41,8 @@ NUMBER 103 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Aliquota applicata "
|
||||
PICTURE ".2"
|
||||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||||
NUM_EXPR {(#103>=0) && (#103<=100)}
|
||||
FIELD R0
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -52,36 +62,23 @@ END
|
||||
|
||||
NUMBER 106 15
|
||||
BEGIN
|
||||
PROMPT 1 6 "Totale acconti "
|
||||
PROMPT 1 6 "Somma versata "
|
||||
FLAGS "D"
|
||||
PICTURE "."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER 107 15
|
||||
BEGIN
|
||||
PROMPT 1 7 "Versamento a saldo "
|
||||
PICTURE "."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER 108 15
|
||||
BEGIN
|
||||
PROMPT 1 8 "Somma versata in eccedenza "
|
||||
PICTURE "."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_AZZERA 9 2
|
||||
BUTTON DLG_AZZERA 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "A~zzera"
|
||||
MESSAGE RESET,1@
|
||||
|
||||
@ -11,60 +11,40 @@ BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
NUMBER DLG_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGDITTA RAGSOC
|
||||
INPUT CODDITTA DLG_CODDITTA
|
||||
OUTPUT DLG_RAGDITTA RAGSOC
|
||||
FIELD LF_QUAF1->CODDITTA
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "GRD"
|
||||
END
|
||||
|
||||
STRING F_RAGDITTA 50
|
||||
STRING DLG_RAGDITTA 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 0 4
|
||||
SPREADSHEET F_A 0 15
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bProspetto A"
|
||||
END
|
||||
|
||||
NUMBER F_A1 15
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ammontare complessivo delle plusvalenze imponibili "
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF1->F1_A1
|
||||
END
|
||||
|
||||
NUMBER F_A2 15
|
||||
BEGIN
|
||||
PROMPT 2 5 "Ritenuta operata "
|
||||
PICTURE "."
|
||||
FIELD LF_QUAF1->F1_A2
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 7 "@bProspetto B"
|
||||
END
|
||||
|
||||
SPREADSHEET F_B 78 8
|
||||
BEGIN
|
||||
PROMPT 0 8 ""
|
||||
PROMPT 0 4 ""
|
||||
ITEM "Tipo"
|
||||
ITEM "Codice"
|
||||
ITEM "Denominazione@50"
|
||||
ITEM "Causale"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Descrizione@35"
|
||||
ITEM "Aliquota"
|
||||
ITEM "Sogg. a rit.@15"
|
||||
ITEM "Ritenuta@15"
|
||||
ITEM "Somma versata@15"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "771232b.uml" // mask prospetto B
|
||||
#include "771232b.uml" // mask prospetto A
|
||||
|
||||
102
m770/771232b.uml
102
m770/771232b.uml
@ -1,66 +1,120 @@
|
||||
// 771232b.uml - quadro F1 prospetto B
|
||||
// 771232b.uml - quadro F1 prospetto A
|
||||
|
||||
PAGE "Prospetto B" -1 -1 76 9
|
||||
PAGE "" -1 -1 54 10
|
||||
|
||||
NUMBER 101 2
|
||||
LIST 101 10
|
||||
BEGIN
|
||||
PROMPT 1 1 "Causale "
|
||||
PROMPT 1 1 "Tipo persona "
|
||||
ITEM "F|Fisica"
|
||||
ITEM "G|Giuridica"
|
||||
END
|
||||
|
||||
NUMBER 102 5
|
||||
BEGIN
|
||||
PROMPT 39 1 "Codice "
|
||||
USE LF_ANAG
|
||||
INPUT TIPOA 101 SELECT
|
||||
INPUT CODANAGR 102
|
||||
DISPLAY "Tipo" TIPOA
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Denominazione@50" RAGSOC
|
||||
OUTPUT 102 CODANAGR
|
||||
OUTPUT 103 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ba4 -1
|
||||
END
|
||||
|
||||
STRING 103 50
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
USE LF_ANAG KEY 2
|
||||
INPUT TIPOA 101 SELECT
|
||||
INPUT RAGSOC 103
|
||||
DISPLAY "Tipo" TIPOA
|
||||
DISPLAY "Denominazione@50" RAGSOC
|
||||
DISPLAY "Codice" CODANAGR
|
||||
COPY OUTPUT 102
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ba4 -1
|
||||
END
|
||||
|
||||
NUMBER 104 2
|
||||
BEGIN
|
||||
PROMPT 1 3 "Causale "
|
||||
USE %CA7 SELECT (S1="F1")
|
||||
VALIDATE REQIF_FUNC 3 102 103 104
|
||||
INPUT CODTAB 101
|
||||
INPUT CODTAB 104
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione @60" S0
|
||||
DISPLAY "Descrizione @35" S0
|
||||
DISPLAY "Codice tributo" I0
|
||||
DISPLAY "Articolo di bilancio" I3
|
||||
OUTPUT 101 CODTAB
|
||||
OUTPUT 102 S0
|
||||
OUTPUT 103 R0
|
||||
OUTPUT 104 CODTAB
|
||||
OUTPUT 105 S0
|
||||
OUTPUT 106 R0
|
||||
CHECKTYPE SEARCH
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
FIELD CODTAB
|
||||
ADD RUN 773mod -3 %CA7
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 102 60
|
||||
STRING 105 35
|
||||
BEGIN
|
||||
PROMPT 15 1 ""
|
||||
FLAGS "D"
|
||||
PROMPT 16 3 ""
|
||||
USE %CA7 KEY 2 SELECT (S1="F1")
|
||||
INPUT S0 105
|
||||
DISPLAY "Descrizione @35" S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Codice tributo" I0
|
||||
DISPLAY "Articolo di bilancio" I3
|
||||
COPY OUTPUT 104
|
||||
VALIDATE REQIF_FUNC 2 106 107
|
||||
FIELD S0
|
||||
WARNING "Descrizione obbligatoria"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER 103 6
|
||||
NUMBER 106 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Aliquota applicata "
|
||||
PROMPT 1 4 "Aliquota applicata "
|
||||
PICTURE ".2"
|
||||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||||
NUM_EXPR {(#106>=0) && (#106<=100)}
|
||||
FIELD R0
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER 104 15
|
||||
NUMBER 107 15
|
||||
BEGIN
|
||||
PROMPT 1 4 "Somme soggette a ritenuta "
|
||||
PROMPT 1 5 "Somme soggette a ritenuta "
|
||||
PICTURE "."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER 105 15
|
||||
NUMBER 108 15
|
||||
BEGIN
|
||||
PROMPT 1 5 "Ritenuta operata "
|
||||
PROMPT 1 6 "Ritenuta operata "
|
||||
PICTURE "."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
NUMBER 109 15
|
||||
BEGIN
|
||||
PROMPT 1 7 "Somme corrisposte "
|
||||
PICTURE "."
|
||||
GROUP 1
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_AZZERA 9 2
|
||||
BUTTON DLG_AZZERA 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "A~zzera"
|
||||
MESSAGE RESET,1@
|
||||
|
||||
@ -11,19 +11,19 @@ BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
NUMBER DLG_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGDITTA RAGSOC
|
||||
INPUT CODDITTA DLG_CODDITTA
|
||||
OUTPUT DLG_RAGDITTA RAGSOC
|
||||
FIELD LF_QUAF2->CODDITTA
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "GRD"
|
||||
END
|
||||
|
||||
STRING F_RAGDITTA 50
|
||||
STRING DLG_RAGDITTA 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
@ -34,14 +34,15 @@ BEGIN
|
||||
PROMPT 1 3 "@bProspetto delle somme soggette a ritenuta e delle ritenute operate "
|
||||
END
|
||||
|
||||
SPREADSHEET F_B 0 8
|
||||
SPREADSHEET F_A 0 16
|
||||
BEGIN
|
||||
PROMPT 0 4 ""
|
||||
ITEM "Causale"
|
||||
ITEM "Denominazione del fondo@60"
|
||||
ITEM "Denominazione del fondo@35"
|
||||
ITEM "Aliquota"
|
||||
ITEM "Sogg. a rit.@15"
|
||||
ITEM "Ritenuta@15"
|
||||
ITEM "Somma versata@15"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
// 771232b.uml - quadro F2 prospetto B
|
||||
// 771232b.uml - quadro F2 prospetto
|
||||
|
||||
PAGE "Prospetto B" -1 -1 76 9
|
||||
PAGE "Prospetto" -1 -1 76 9
|
||||
|
||||
NUMBER 101 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Causale "
|
||||
USE %CA7 SELECT (S1="F2")
|
||||
VALIDATE REQIF_FUNC 4 102 103 104 105
|
||||
USE %CA7 SELECT S1="F2"
|
||||
VALIDATE REQIF_FUNC 3 103 104 105
|
||||
INPUT CODTAB 101
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione @60" S0
|
||||
@ -15,6 +15,7 @@ BEGIN
|
||||
OUTPUT 101 CODTAB
|
||||
OUTPUT 102 S0
|
||||
OUTPUT 103 R0
|
||||
CHECKTYPE SEARCH
|
||||
FLAGS "Z"
|
||||
WARNING "Manca la causale"
|
||||
ADD RUN 773mod -3 %CA7
|
||||
@ -24,7 +25,15 @@ END
|
||||
STRING 102 60
|
||||
BEGIN
|
||||
PROMPT 15 1 ""
|
||||
FLAGS "D"
|
||||
FIELD DENCAUS
|
||||
USE %CA7 KEY 2 SELECT S1="F2"
|
||||
INPUT S0 102
|
||||
DISPLAY "Descrizione @35" S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Codice tributo" I0
|
||||
DISPLAY "Articolo di bilancio" I3
|
||||
COPY OUTPUT 101
|
||||
ADD RUN 773mod -3 %CA7
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -32,7 +41,8 @@ NUMBER 103 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Aliquota applicata "
|
||||
PICTURE ".2"
|
||||
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
||||
FIELD ALIQUOTA
|
||||
NUM_EXPR {(#103>=0) && (#103<=100)}
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -50,17 +60,25 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
NUMBER 106 15
|
||||
BEGIN
|
||||
PROMPT 1 5 "Somma versata "
|
||||
FLAGS "D"
|
||||
PICTURE "."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_AZZERA 9 2
|
||||
BUTTON DLG_AZZERA 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "A~zzera"
|
||||
MESSAGE RESET,1@
|
||||
|
||||
@ -1547,19 +1547,18 @@ void TRiporti::calcola_riporti_E2(TCursor* cur, const long dich)
|
||||
|
||||
void TRiporti::calcola_riporti_F(TCursor* cur, const long dich)
|
||||
{
|
||||
return; // Per ora non devo riportare una minchia: Tracciati della bega.
|
||||
|
||||
TLocalisamfile basebis (LF_BASEBIS);
|
||||
TLocalisamfile* rf;
|
||||
TRecord_array* _prosp_a, *_prosp_b, *_prosp_c, *_prosp_d;
|
||||
real a_sogrit, a_rope, a_totacc, f_rope, e_rope, f_sogrit, e_sogrit;
|
||||
real b_sogrit, b_rope, c_sogrit, c_rope, d_sogrit, d_rope;
|
||||
TRecord_array* _prosp_a, *_prosp_b, *_prosp_c;
|
||||
|
||||
real a_sogrit, a_rope, b_sogrit, b_rope, c_sogrit, c_rope;
|
||||
real e_sogrit, e_rope, f_rope, f_sogrit;
|
||||
real g_sogrit, g_rope, h_rope, h_sogrit;
|
||||
|
||||
real i20_1, i20_2, i20_3, i20_4, i20_5, i20_6, i21_1, i21_2, i21_3;
|
||||
bool almeno_una_riga = FALSE;
|
||||
|
||||
a_sogrit = a_rope = a_totacc = ZERO;
|
||||
b_sogrit = b_rope = c_sogrit = c_rope = d_sogrit = d_rope = ZERO;
|
||||
f_rope = e_rope = f_sogrit = e_sogrit = ZERO;
|
||||
i20_1 = i20_2 = i20_3 = i20_4 = i20_5 = i20_6 = i21_1 = i21_2 = i21_3 = ZERO;
|
||||
|
||||
(*cur) = 0L;
|
||||
TRecnotype items = cur->items();
|
||||
|
||||
@ -1581,9 +1580,9 @@ void TRiporti::calcola_riporti_F(TCursor* cur, const long dich)
|
||||
i21_1 != ZERO || e_sogrit != ZERO || f_sogrit != ZERO || e_rope != ZERO ||
|
||||
f_rope != ZERO;
|
||||
|
||||
rf = new TLocalisamfile(LF_RIGHEF);
|
||||
TLocalisamfile rf(LF_RIGHEF);
|
||||
|
||||
TRectype dep(rf->curr());
|
||||
TRectype dep(rf.curr());
|
||||
dep.zero();
|
||||
dep.put("CODDITTA", _codditta);
|
||||
dep.put("TIPOPRO", "A");
|
||||
@ -1595,11 +1594,8 @@ void TRiporti::calcola_riporti_F(TCursor* cur, const long dich)
|
||||
dep.put("TIPOPRO", "C");
|
||||
_prosp_c = new TRecord_array(dep, "NPROG");
|
||||
_prosp_c->read(dep);
|
||||
dep.put("TIPOPRO", "D");
|
||||
_prosp_d = new TRecord_array(dep, "NPROG");
|
||||
_prosp_d->read(dep);
|
||||
|
||||
items = _prosp_a->last_row() + _prosp_b->last_row() + _prosp_c->last_row() + _prosp_d->last_row();
|
||||
items = _prosp_a->last_row() + _prosp_b->last_row() + _prosp_c->last_row();
|
||||
TProgind progn(items, scritta, FALSE, TRUE);
|
||||
|
||||
for (int i = 1; i <= _prosp_a->last_row(); i++)
|
||||
@ -1607,20 +1603,18 @@ void TRiporti::calcola_riporti_F(TCursor* cur, const long dich)
|
||||
TRectype& r = _prosp_a->row(i, TRUE);
|
||||
a_sogrit += r.get_real(RQF0_SOGRIT);
|
||||
a_rope += r.get_real(RQF0_ROPE);
|
||||
a_totacc += r.get_real(RQF0_TOTACC);
|
||||
if (!almeno_una_riga) almeno_una_riga = TRUE;
|
||||
almeno_una_riga = TRUE;
|
||||
progn.addstatus(1);
|
||||
}
|
||||
i20_1 = a_sogrit;
|
||||
i20_2 = a_rope;
|
||||
i20_3 = a_totacc;
|
||||
|
||||
for (i = 1; i <= _prosp_b->last_row(); i++)
|
||||
{
|
||||
TRectype& r = _prosp_b->row(i, TRUE);
|
||||
b_sogrit += r.get_real(RQF0_SOGRIT);
|
||||
b_rope += r.get_real(RQF0_ROPE);
|
||||
if (!almeno_una_riga) almeno_una_riga = TRUE;
|
||||
almeno_una_riga = TRUE;
|
||||
progn.addstatus(1);
|
||||
}
|
||||
|
||||
@ -1629,21 +1623,12 @@ void TRiporti::calcola_riporti_F(TCursor* cur, const long dich)
|
||||
TRectype& r = _prosp_c->row(i, TRUE);
|
||||
c_sogrit += r.get_real(RQF0_SOGRIT);
|
||||
c_rope += r.get_real(RQF0_ROPE);
|
||||
if (!almeno_una_riga) almeno_una_riga = TRUE;
|
||||
almeno_una_riga = TRUE;
|
||||
progn.addstatus(1);
|
||||
}
|
||||
|
||||
for (i = 1; i <= _prosp_d->last_row(); i++)
|
||||
{
|
||||
TRectype& r = _prosp_d->row(i, TRUE);
|
||||
d_sogrit += r.get_real(RQF0_SOGRIT);
|
||||
d_rope += r.get_real(RQF0_ROPE);
|
||||
if (!almeno_una_riga) almeno_una_riga = TRUE;
|
||||
progn.addstatus(1);
|
||||
}
|
||||
|
||||
i21_2 += b_sogrit + c_sogrit + d_sogrit + e_sogrit + f_sogrit;
|
||||
i21_3 += b_rope + c_rope + d_rope + e_rope + f_rope;
|
||||
i21_2 += b_sogrit + c_sogrit + e_sogrit + f_sogrit;
|
||||
i21_3 += b_rope + c_rope + e_rope + f_rope;
|
||||
|
||||
basebis.setkey(1);
|
||||
basebis.zero();
|
||||
@ -1701,21 +1686,18 @@ void TRiporti::calcola_riporti_F1(TCursor* cur, const long dich)
|
||||
TRectype dep(rf->curr());
|
||||
dep.zero();
|
||||
dep.put("CODDITTA", _codditta);
|
||||
dep.put("TIPOPRO", "B");
|
||||
// dep.put("TIPOPRO", "B");
|
||||
_prosp_b = new TRecord_array(dep, "NPROG");
|
||||
_prosp_b->read(dep);
|
||||
|
||||
items = _prosp_b->last_row();
|
||||
TProgind progn(items, scritta, FALSE, TRUE);
|
||||
|
||||
i22_1 = cur->curr().get_real(QF1_A1);
|
||||
i22_2 = cur->curr().get_real(QF1_A2);
|
||||
|
||||
for (int i = 1; i <= _prosp_b->last_row(); i++)
|
||||
{
|
||||
TRectype& r = _prosp_b->row(i, TRUE);
|
||||
b_sogrit += r.get_real(RQF1_SOGRIT);
|
||||
b_rope += r.get_real(RQF1_ROPE);
|
||||
b_sogrit += r.get_real(QUF_SOGRIT);
|
||||
b_rope += r.get_real(QUF_ROPE);
|
||||
if (!almeno_una_riga) almeno_una_riga = TRUE;
|
||||
progn.addstatus(1);
|
||||
}
|
||||
|
||||
@ -3,11 +3,9 @@
|
||||
#define RQF2_SOGRIT "SOGRIT"
|
||||
#define RQF2_ROPE "ROPE"
|
||||
// righe f1
|
||||
#define RQF1_SOGRIT "SOGRIT"
|
||||
#define RQF1_ROPE "ROPE"
|
||||
// f1
|
||||
#define QF1_A1 "F1_A1"
|
||||
#define QF1_A2 "F1_A2"
|
||||
#define RQF1_TIPOA "TIPOA"
|
||||
#define RQF1_CODANAGR "CODANAGR"
|
||||
|
||||
// righe f
|
||||
#define RQF0_SOGRIT "SOGRIT"
|
||||
#define RQF0_ROPE "ROPE"
|
||||
@ -25,6 +23,7 @@
|
||||
#define QUF_CODDITTA "CODDITTA"
|
||||
#define QUF_TIPOPRO "TIPOPRO"
|
||||
#define QUF_CODCAUS "CODCAUS"
|
||||
#define QUF_DENCAUS "DENCAUS"
|
||||
#define QUF_ALIQUOTA "ALIQUOTA"
|
||||
#define QUF_SOGRIT "SOGRIT"
|
||||
#define QUF_ROPE "ROPE"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user