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

Aggiustamenti per nuova release con XI

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4007 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1996-12-16 08:24:31 +00:00
parent 7a8a961291
commit edd3ea61d2
15 changed files with 64 additions and 110 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
m770/771100.cpp
View File

@ -82,7 +82,7 @@ TDati_anagrafici::TDati_anagrafici(char anagrafica) : _titolo(50), _ana(toupper(
_titolo = "Scritture contabili";
if (DatiCAAF())
_titolo = "Dati C.A.A.F.";
_titolo = "Dati C.A.A.";
if (DirProf())
_titolo = "Direttore / Professionista";
@ -521,9 +521,10 @@ bool TDati_anagrafici::destroy()
bool TDati_anagrafici::main_loop()
{
KEY tasto;
do
KEY tasto = K_ESC;
_msk->open_modal();
while (tasto != K_QUIT)
{
_rel->lfile().put("CODDITTA", _codditta);
_rel->read();
@ -543,7 +544,8 @@ bool TDati_anagrafici::main_loop()
break;
}
}
while (tasto != K_QUIT);
_msk->close();
return FALSE;
}

4
m770/771100b.uml
View File

@ -33,7 +33,7 @@ END
ENDPAGE
PAGE "Altri soggetti" -1 -1 78 18
PAGE "Dichiarante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
@ -237,7 +237,7 @@ END
ENDPAGE
PAGE "Altri soggetti" -1 -1 78 18
PAGE "Dichiarante pagina 2" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN

4
m770/771230i.uml
View File

@ -61,7 +61,7 @@ BEGIN
ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF
FIELD LF_QUAE1->TIPOA
CHECKTYPE REQUIRED
//CHECKTYPE REQUIRED
FLAGS "D"
KEY 1
END
@ -85,7 +85,7 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA="F"))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA

2
m770/771230m.uml
View File

@ -53,7 +53,7 @@ END
STRING PE1F_CODCAUS2 2
BEGIN
PROMPT 3 4 "Causale "
USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0=" ")
USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0=" "))
INPUT CODTAB PE1F_CODCAUS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione @60" S0

2
m770/772.cpp
View File

@ -1,6 +1,6 @@
#include <xvt.h>
#include <checks.h>
#include "770.h"
// #include "770.h" (sembra non servire)
#include "772.h"
#define usage "Error - usage : %s -{0|1|2|3|4}"

2
m770/776100a.h
View File

@ -5,6 +5,6 @@
#define F_RAGDITTA 102
#define F_ANNODIC 103
#define F_TIPOQUA 104
#define F_CODDIC 105
#define F_BUTPREC 106
#endif

23
m770/776100a.uml
View File

@ -7,33 +7,20 @@ BEGIN
PROMPT 90 90 ""
KEY 1
FIELD LF_BASE->TIPOQUA
FLAGS "D"
END
/*
NUMBER F_CODDIC 6
BEGIN
PROMPT 1 3 "Codic "
// FLAGS "D"
KEY 1
FIELD LF_BASE->CODDIC
// CHECKTYPE REQUIRED
END
*/
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Codice "
HELP "Codice della ditta da selezionare"
// FLAGS "R"
USE LF_BASE KEY 1 SELECT (TIPOQUA!="D")
JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
JOIN LF_NDITTE INTO CODDITTA=CODDITTA
INPUT TIPOQUA F_TIPOQUA
INPUT CODDITTA F_CODDITTA
// INPUT CODDIC F_CODDIC
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_TIPOQUA TIPOQUA
// OUTPUT F_CODDIC CODDIC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC
FIELD LF_BASE->CODDITTA
@ -48,7 +35,7 @@ STRING F_RAGDITTA 50
BEGIN
PROMPT 1 2 "Rag. Soc. "
USE LF_NDITTE KEY 2
JOIN LF_BASE TO LF_NDITTE KEY 1 INTO CODDITTA=CODDITTA
JOIN LF_BASE INTO CODDITTA=CODDITTA
HELP "Ragione sociale della ditta da selezionare"
INPUT RAGSOC F_RAGDITTA
DISPLAY "Ragione sociale@50" RAGSOC
@ -70,9 +57,9 @@ BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_NULL 20 2
BUTTON F_BUTPREC 20 2
BEGIN
PROMTP -22 -1 "Menu' precedente"
PROMPT -22 -1 "Menu precedente"
MESSAGE EXIT,K_QUIT
END

1
m770/776100b.h
View File

@ -155,6 +155,5 @@
#define T_H 251
#define B_H 252
#define DLG_STOPREC_SP 253
#define DLG_STOPREC_DG 254
#endif

20
m770/776100b.uml
View File

@ -1,10 +1,10 @@
// Menu' manutenzione quadri
// Menu manutenzione quadri
#include "776100b.h"
TOOLBAR "" 0 19 0 0
BUTTON DLG_CANCEL 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
PROMPT -22 -11 "Menu precedente"
GROUP 1
END
@ -15,21 +15,21 @@ END
BUTTON DLG_CANCEL_MENU 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
PROMPT -22 -11 "Menu precedente"
GROUP 2
FLAGS "H"
END
BUTTON DLG_CANCEL_MENU_ST 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
PROMPT -22 -11 "Menu precedente"
GROUP 3
FLAGS "H"
END
BUTTON DLG_CANCEL_MENU_SD 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
PROMPT -22 -11 "Menu precedente"
GROUP 4
FLAGS "H"
END
@ -38,7 +38,7 @@ END
BUTTON DLG_CANCEL_MENUSTQ 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
PROMPT -22 -11 "Menu precedente"
GROUP 5
FLAGS "H"
MESSAGE HIDE,5@|SHOW,3@
@ -85,7 +85,7 @@ BEGIN
GROUP 1
END
// Il menu' viene richiamato nell'handler di questo bottone
// Il menu viene richiamato nell'handler di questo bottone
BUTTON DLG_MANUTENZ 1 1
BEGIN
PROMPT 1 5 ""
@ -688,7 +688,7 @@ END
TEXT DLG_NULL_SOCTRA
BEGIN
PROMPT 5 12 "Manutenzione dati societa' trasformate"
PROMPT 5 12 "Manutenzione dati società trasformate"
FLAGS "HD"
GROUP 2
END
@ -697,7 +697,7 @@ BUTTON DLG_STOPREC_SOCTRA 1 1
BEGIN
PROMPT 1 12 ""
PICTURE 123
MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati societa' trasformate"
MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati società trasformate"
FLAGS "H"
GROUP 2
END
@ -771,7 +771,7 @@ END
TEXT DLG_NULL_STQD
BEGIN
PROMPT 5 9 "Menu' stampe dichiarazioni"
PROMPT 5 9 "Menu stampe dichiarazioni"
FLAGS "H"
GROUP 3
END

11
m770/776300.cpp
View File

@ -81,10 +81,10 @@ bool TSelezioneDich::user_create()
_studio_cnf = new TConfig(CONFIG_STUDIO);
_nditte = new TLocalisamfile(LF_NDITTE);
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
_ditte = new TArray_sheet(11, 1, 67, 20, "Seleziona dichiarazioni",
"@1|Cod.@5|Ragione Sociale@50");
_ditte_sel = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
_ditte_sel = new TArray_sheet(11, 1, 67, 20, "Dichiarazioni selezionate",
"@1|Cod.@5|Ragione Sociale@50", 0);
_builded_nomiditte = FALSE;
@ -153,9 +153,6 @@ bool TSelezioneDich::preprocess_config (TMask& m, TConfig& config)
m.set_handler (F_ANNULLA, mask_azzera);
m.set_handler (A_CODICE, to_ditt_handler);
m.set_handler (DA_CODICE, fr_ditt_handler);
m.set_handler (BUT_DTO, to_butt_handler);
m.set_handler (BUT_DFR, fr_butt_handler);
m.set_handler (F_TUTTE, tutte_handler);
m.set_handler (F_DICSEL, dicsel_handler);
@ -243,7 +240,7 @@ bool TSelezioneDich::to_ditt_handler(TMask_field& f, KEY key)
TMask& m = f.mask();
if (key == K_F9)
{
app().to_butt_handler(m.field(BUT_DTO), K_SPACE);
app().to_butt_handler(f, K_SPACE);
}
if (key == K_TAB && f.focusdirty())
{
@ -259,7 +256,7 @@ bool TSelezioneDich::fr_ditt_handler(TMask_field& f, KEY key)
TMask& m = f.mask();
if (key == K_F9)
{
app().fr_butt_handler(m.field(BUT_DFR), K_SPACE);
app().fr_butt_handler(f, K_SPACE);
}
else if (key == K_TAB && f.focusdirty())
{

6
m770/776300a.h
View File

@ -3,14 +3,12 @@
#define F_ANNODIC 101
#define DA_CODICE 102
#define A_CODICE 103
#define BUT_DFR 104
#define BUT_DTO 105
#define F_SELECT 106
#define F_ANNULLA 107
#define F_VERIFICA 108
#define DLG_SELECT_2 109
#define F_TUTTE 110
#define F_DICSEL 111
#define RADIO1 112
#define RADIO2 113
#define RADIO1 112
#define RADIO2 113

81
m770/776300a.uml
View File

@ -1,93 +1,65 @@
// 776300a.uml
// Selezione dichiarazioni
// SELEZIONE DICHIARAZIONI
// SI COMPONE DI TRE SEZIONI :
// - LE SEGUENTI DICHIARAZIONI..
// - SELEZIONE FRA LIMITI..
// - TUTTE..
// OGNUNA DELLE QUALI DEVE DISABILITARE LE ALTRE
#include "776300a.h"
#include "776300a.h"
PAGE " Nuova Selezione " -1 -1 70 16
/*
GROUPBOX DLG_NULL 39 5
BEGIN
PROMPT 16 2 "Scelta ditte"
END
*/
// SEZIONE "LE SEGUENTI DICHIARAZIONI"
BOOLEAN RADIO1
BEGIN
PROMPT 2 2 ""
MESSAGE TRUE ENABLE,DLG_SELECT_2|FALSE,RADIO2|FALSE,F_TUTTE
PROMPT 2 2 " Le seguenti dichiarazioni"
MESSAGE TRUE ENABLE,DLG_SELECT_2|" ",RADIO2|" ",F_TUTTE|DISABLE,2@
MESSAGE FALSE DISABLE,DLG_SELECT_2
END
TEXT DLG_NULL
BEGIN
PROMPT 9 2 "Le seguenti dichiarazioni"
END
BUTTON DLG_SELECT_2 25 1
BEGIN
PROMPT 38 2 "~Seleziona dichiarazioni"
HELP "Indicare le dichiarazioni da selezionare per la stampa"
FLAGS "D"
END
END
// SEZIONE "SELEZIONE FRA LIMITI"
BOOLEAN RADIO2
BEGIN
PROMPT 2 4 ""
MESSAGE TRUE ENABLE,BUT_DFR|ENABLE,BUT_DTO|FALSE,RADIO1|DISABLE,DLG_SELECT_2|FALSE,F_TUTTE
MESSAGE FALSE DISABLE,BUT_DFR|DISABLE,BUT_DTO|ENABLE,DLG_SELECT_2
END
TEXT DLG_NULL
BEGIN
PROMPT 9 4 "Fra limiti di codici"
FLAGS "D"
GROUP 2
PROMPT 2 4 " Fra limiti di codici"
MESSAGE TRUE ENABLE,2@|" ",RADIO1|" ",F_TUTTE|DISABLE,DLG_SELECT_2
MESSAGE FALSE DISABLE,2@
END
NUMBER DA_CODICE 6
BEGIN
PROMPT 38 4 "da "
FLAGS "D"
GROUP 2
FLAGS "BD"
HELP "Codice dichiarazione di inizio selezione"
END
BUTTON BUT_DFR 2 1
BEGIN
PROMPT 48 4 "*"
FLAGS "D"
PICTURE 109
GROUP 2
GROUP 2
END
NUMBER A_CODICE 6
BEGIN
PROMPT 53 4 "a "
FLAGS "D"
FLAGS "BD"
HELP "Codice ditta di fine selezione"
GROUP 2
HELP "Codice ditta di fine selezione"
END
BUTTON BUT_DTO 2 1
BEGIN
PROMPT 62 4 "*"
// FLAGS "D"
PICTURE 109
GROUP 2
END
// SEZIONE "SELEZIONE TUTTE"
BOOLEAN F_TUTTE
BEGIN
PROMPT 2 6 " Tutte "
MESSAGE TRUE FALSE,RADIO1|FALSE,RADIO2|DISABLE,DLG_SELECT_2|DISABLE,BUT_DFR|DISABLE,BUT_DTO
PROMPT 2 6 " Tutte"
MESSAGE TRUE " ",RADIO1|" ",RADIO2|DISABLE,DLG_SELECT_2|DISABLE,2@
HELP "Seleziona tutte le dichiarazioni"
END
END
STRING F_SELECT 5
BEGIN
PROMPT 2 8 "Dichiarazioni selezionate "
// FLAGS "DP"
FLAGS "D"
END
@ -108,8 +80,7 @@ END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
// MESSAGE EXIT,K_ENTER
PROMPT -13 -1 ""
END
BUTTON F_ANNULLA 10 2
@ -122,7 +93,7 @@ END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
END
END
ENDPAGE

2
m770/77lib.h
View File

@ -6,7 +6,7 @@
#include <real.h>
#include <sheet.h>
#include "770101.h"
// #include "770101.h" (sembra non servire)
class TSchedaP;

2
m770/77lib01.cpp
View File

@ -11,7 +11,7 @@
#include "rpag.h"
#include "quadrol.h"
#include "dipend.h" // per is_erede
#include "770101.h" // per TSchedaPE
// #include "770101.h" // per TSchedaPE (sembra non servire)
#include "77lib.h"
HIDDEN real __dep;

2
m770/batbent.uml
View File

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