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

CU 2015

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@23072 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2015-04-29 10:07:58 +00:00
parent 8d493f3da9
commit 9f33a265d6
4 changed files with 344 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
m770/777200.h Normal file
View 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
View 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
View 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
View 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