CU 2015
git-svn-id: svn://10.65.10.50/branches/R_10_00@23072 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
8d493f3da9
commit
9f33a265d6
83
m770/777200.h
Normal file
83
m770/777200.h
Normal file
@ -0,0 +1,83 @@
|
||||
#ifndef __777200_H
|
||||
#define __777200_H
|
||||
|
||||
#ifndef __REPUTILS_H
|
||||
#include <reputils.h>
|
||||
#endif
|
||||
|
||||
class TRecordCU;
|
||||
|
||||
class TTrasferimentoCU : public TRecordset
|
||||
{
|
||||
TFilename _name;
|
||||
TArray _data;
|
||||
|
||||
long _cod_ditta, _codan_dic;
|
||||
TString8 _codatt_dic;
|
||||
char _tipoa_dic;
|
||||
TString16 _codfis_dic, _codfis_rap, _codfis_int;
|
||||
TString _ragsoc_dic;
|
||||
bool _save_headers;
|
||||
int _anno;
|
||||
TDate _data_imp; // Data impegno alla trasmissione
|
||||
TDate _data_tra; // Data trasmissione
|
||||
long _certificazione; // Sempre > 0
|
||||
char _tipo_operazione; // Annullamento o sostituzione
|
||||
TString _identificativo; // solo per ann. o sost.
|
||||
|
||||
TRecnotype _cur_pos;
|
||||
|
||||
protected:
|
||||
virtual void requery() { _cur_pos = -1; }
|
||||
|
||||
public: // TAS400_recordset
|
||||
const TRecordCU& cur_rec() const { return (const TRecordCU&)_data[_cur_pos]; }
|
||||
virtual TRecnotype items() const { return _data.items(); }
|
||||
virtual bool move_to(TRecnotype pos)
|
||||
{
|
||||
const bool done = pos >= 0 && pos < items();
|
||||
if (done) _cur_pos = pos;
|
||||
return done;
|
||||
}
|
||||
virtual TRecnotype current_row() const { return _cur_pos; }
|
||||
virtual const TString& query_text() const { return _name; };
|
||||
virtual unsigned int columns() const;
|
||||
virtual const TRecordset_column_info& column_info(unsigned int column) const;
|
||||
virtual const TVariant& get(unsigned int column) const;
|
||||
virtual const TVariant& get_var(const char* name) const;
|
||||
bool set_field(int n, const TVariant& var);
|
||||
|
||||
public:
|
||||
|
||||
bool load(const char* path = "");
|
||||
bool save(const char* path = "");
|
||||
|
||||
TTrasferimentoCU& operator<<(const TRecordCU& rec);
|
||||
TTrasferimentoCU& operator>>(TRecordCU& rec);
|
||||
bool eof() const { return _cur_pos >= items(); }
|
||||
|
||||
const TString& read_codfis_dic(const TRectype& rec);
|
||||
const TString& cod_fis_dic() const { return _codfis_dic; }
|
||||
|
||||
TRecnotype conta_certificazioni() const;
|
||||
|
||||
bool split(const char* dest_path);
|
||||
void remove();
|
||||
|
||||
void save_headers(bool s) { _save_headers = s; }
|
||||
bool save_headers() const { return _save_headers; }
|
||||
void set_inter(const TString& interm, const TDate& dtimp, int year) { _codfis_int = interm; _data_imp = dtimp; _anno = year; }
|
||||
void set_operazione(char t, const TString& iden);
|
||||
|
||||
bool append_record_b();
|
||||
bool append_record_d(const TRectype& rec, TLog_report& log);
|
||||
bool append_record_h(const TRectype& rec, TLog_report& log);
|
||||
|
||||
TTrasferimentoCU(const char* name, char mode);
|
||||
virtual ~TTrasferimentoCU();
|
||||
};
|
||||
|
||||
void print_cu(const TFilename& datafile, int quality);
|
||||
void edit_cu(const TFilename& datafile, int quality);
|
||||
|
||||
#endif
|
||||
15
m770/777200a.h
Normal file
15
m770/777200a.h
Normal file
@ -0,0 +1,15 @@
|
||||
#define F_PATH 102
|
||||
#define F_ANNO 104
|
||||
#define F_DADITTA 105
|
||||
#define F_DADESC 106
|
||||
#define F_ADITTA 107
|
||||
#define F_ADESC 108
|
||||
#define F_QUALITY 110
|
||||
|
||||
#define F_INVIO 115
|
||||
#define F_IDENTIFICATIVO 116
|
||||
|
||||
#define F_INTER_CODFIS 120
|
||||
#define F_INTER_RAGSOC 121
|
||||
#define F_INTER_DATA 122
|
||||
|
||||
157
m770/777200a.uml
Normal file
157
m770/777200a.uml
Normal file
@ -0,0 +1,157 @@
|
||||
#include "777200a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 2 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Elabora"
|
||||
PICTURE TOOL_ELABORA
|
||||
END
|
||||
|
||||
BUTTON DLG_PREVIEW 2 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Anteprima"
|
||||
PICTURE TOOL_PREVIEW
|
||||
END
|
||||
|
||||
BUTTON DLG_EDIT 2 2
|
||||
BEGIN
|
||||
PROMPT 3 1 "Modifica"
|
||||
PICTURE TOOL_EDIT
|
||||
END
|
||||
|
||||
#include <helpbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Invio Certificazione Unica 2015" -1 -1 72 8
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bIntermediario"
|
||||
END
|
||||
|
||||
STRING F_INTER_CODFIS 16
|
||||
BEGIN
|
||||
PROMPT 2 2 "Intermediario "
|
||||
USE LF_CLIFO KEY 4 SELECT LEN(COFI)==16
|
||||
INPUT TIPOCF "F"
|
||||
INPUT COFI F_INTER_CODFIS
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA" PAIV
|
||||
DISPLAY "Codice" CODCF
|
||||
OUTPUT F_INTER_CODFIS COFI
|
||||
OUTPUT F_INTER_RAGSOC RAGSOC
|
||||
CHECKTYPE SEARCH
|
||||
ADD RUN cg0 -1 F
|
||||
MESSAGE EMPTY CLEAR,F_INTER_DATA
|
||||
MESSAGE ENABLE,F_INTER_DATA
|
||||
END
|
||||
|
||||
STRING F_INTER_RAGSOC 50 52
|
||||
BEGIN
|
||||
PROMPT 16 3 ""
|
||||
USE LF_CLIFO KEY 2 SELECT LEN(COFI)==16
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_INTER_RAGSOC
|
||||
COPY DISPLAY F_INTER_CODFIS
|
||||
COPY OUTPUT F_INTER_CODFIS
|
||||
CHECKTYPE SEARCH
|
||||
ADD RUN cg0 -1 F
|
||||
END
|
||||
|
||||
DATE F_INTER_DATA
|
||||
BEGIN
|
||||
PROMPT 2 4 "Data di impegno alla trasmissione "
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 46 2 "Anno dichiarazione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 10
|
||||
BEGIN
|
||||
PROMPT 1 6 "@bParametri di generazione"
|
||||
END
|
||||
|
||||
STRING F_PATH 260 52
|
||||
BEGIN
|
||||
PROMPT 2 7 "Destinazione "
|
||||
DSELECT
|
||||
CHECTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_DADITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 8 "Da ditta "
|
||||
USE LF_BASE
|
||||
JOIN LF_NDITTE INTO CODDITTA=CODDITTA
|
||||
INPUT CODDITTA F_DADITTA
|
||||
DISPLAY "Ditta" CODDITTA
|
||||
DISPLAY "Anno" ANNODIC
|
||||
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
|
||||
OUTPUT F_DADITTA CODDITTA
|
||||
OUTPUT F_DADESC LF_NDITTE->RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DADESC 50
|
||||
BEGIN
|
||||
PROMPT 21 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ADITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 9 "A ditta "
|
||||
COPY USE F_DADITTA
|
||||
INPUT CODDITTA F_ADITTA
|
||||
COPY DISPLAY F_DADITTA
|
||||
OUTPUT F_ADITTA CODDITTA
|
||||
OUTPUT F_ADESC LF_NDITTE->RAGSOC
|
||||
CHECKTYPE SEARCH
|
||||
NUM_EXPR (#F_ADITTA=0)||(#F_ADITTA>=#F_DADITTA)
|
||||
WARNING "La ditta finale deve seguire quella iniziale"
|
||||
END
|
||||
|
||||
STRING F_ADESC 50
|
||||
BEGIN
|
||||
PROMPT 21 9 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_QUALITY
|
||||
BEGIN
|
||||
PROMPT 2 11 "Stampa sfondi colorati del modulo"
|
||||
END
|
||||
|
||||
LIST F_INVIO 1 12
|
||||
BEGIN
|
||||
PROMPT 2 13 "Tipo operazione "
|
||||
ITEM " |Normale" MESSAGE DISABLE,F_IDENTIFICATIVO
|
||||
ITEM "A|Annullamento" MESSAGE ENABLE,F_IDENTIFICATIVO
|
||||
ITEM "S|Sostituzione" MESSAGE ENABLE,F_IDENTIFICATIVO
|
||||
END
|
||||
|
||||
STRING F_IDENTIFICATIVO 17
|
||||
BEGIN
|
||||
PROMPT 2 14 "Identificativo invio "
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING DLG_PROFILE 260
|
||||
BEGIN
|
||||
PROMPT 1 -1 ""
|
||||
PSELECT
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
89
m770/777200b.uml
Normal file
89
m770/777200b.uml
Normal file
@ -0,0 +1,89 @@
|
||||
#include "777200a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
|
||||
BUTTON DLG_SAVEREC 2 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
PICTURE TOOL_SAVEREC
|
||||
END
|
||||
|
||||
BUTTON DLG_PREVIEW 2 2
|
||||
BEGIN
|
||||
PROMPT 3 1 "Anteprima"
|
||||
PICTURE TOOL_PREVIEW
|
||||
END
|
||||
|
||||
BUTTON DLG_NULL 2 2
|
||||
BEGIN
|
||||
PROMPT -1 1 ""
|
||||
PICTURE 0
|
||||
END
|
||||
|
||||
#include <navbar.h>
|
||||
#include <helpbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Certificazione Unica 2015" -1 -1 72 8
|
||||
|
||||
SPREADSHEET F_PATH
|
||||
BEGIN
|
||||
PROMPT 0 1 ""
|
||||
ITEM "Codice@8"
|
||||
ITEM "Tipo"
|
||||
ITEM "Valore@50"
|
||||
ITEM "Descrizione@50"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Riga" -1 -1 78 6
|
||||
|
||||
STRING 101 8
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice "
|
||||
FLAGS "DR"
|
||||
END
|
||||
|
||||
LISTBOX 102 1 2
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
ITEM " |AN"
|
||||
ITEM "B|CB"
|
||||
ITEM "D|DT"
|
||||
ITEM "N|NU"
|
||||
ITEM "V|VP"
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING 103 64 50
|
||||
BEGIN
|
||||
PROMPT 22 2 ""
|
||||
END
|
||||
|
||||
MEMO 104 75 3
|
||||
BEGIN
|
||||
PROMPT 1 3 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 2 2
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 2 2
|
||||
BEGIN
|
||||
PROMPT 2 1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user