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

Correzioni alla stampa registri

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@878 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-01-18 17:42:13 +00:00
parent 10e751b7cd
commit e92a8728f0
5 changed files with 689 additions and 603 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1137
cg/cg4400.cpp
View File

File diff suppressed because it is too large Load Diff

36
cg/cg4400.h
View File

@ -13,7 +13,7 @@
#include <sheet.h>
#include <config.h>
#include <prefix.h>
#include "conto.h"
#include <conto.h>
#include <nditte.h>
#include <anagr.h>
#include <comuni.h>
@ -23,7 +23,6 @@
#include <clifo.h>
#include <occas.h>
#include <causali.h>
#include "cglib03.h"
const int TABREG = (int)TTable::name2log("REG");
@ -31,8 +30,8 @@ const int TABREG = (int)TTable::name2log("REG");
class CG4400_application : public TPrintapp
{
TCursor * _cur;
TRelation *_rel;
TLocalisamfile *_clifo, *_nditte, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv;
TRelation *_rel, *_nditte;
TLocalisamfile *_clifo, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv;
TTable *_tabreg, *_tablbu, *_tabinl, *_tablim, *_tabpim, *_tablia, *_tabiva;
TTable *_tabpla, *_tabppa, *_tabvid;
TRigaiva_array _iva_array, _riga_rmi;
@ -40,7 +39,8 @@ class CG4400_application : public TPrintapp
TRiga_array _tot_iva_array;
TBit_array _selected;
TArray_sheet *_ditte;
TArray_sheet *_ditte;
TArray _nomiditte;
bool _st_liq[12];
TRecnotype _nrec;
bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa;
@ -49,7 +49,7 @@ class CG4400_application : public TPrintapp
char _frequiva, _tipo_riepilogativo;
TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg;
TDate _u_data;
long _n_ditte, _u_stampata, _primast, __firm, _uprotivap;
long _n_ditte, _u_stampata, _primast, __firm, _uprotivap, _ditta;
long _numini, _pagine_stampate;
int _fino_a_mese, _tipo_reg, _tipo_stampa, _cod_un_loc;
int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito;
@ -67,6 +67,7 @@ protected:
TRectype& ricerca_occ(const char*);
TRectype& ricerca_cf (char, long);
TRectype& look_comuni(const char*);
TArray_sheet* get_ditte_sheet() { return _ditte; }
int setta_riga (int, const TRigaiva&, real&, real&, real&, real&);
int riga_rmoviva();
bool set_print(int);
@ -78,11 +79,14 @@ protected:
bool stampo_liquidazione(int);
bool ventilazione(const char*);
bool cerca_libro_gio(TString&);
bool look_reg (long, int, TString&, int, const char*, int*);
bool look_regs(int, TString&, int, int*);
bool look_reg (int, int, TString&, int, const char*, int*, long);
bool look_regs(int, TString&, int, int*, long);
bool stampa_totali_finali();
bool stampa_datareg();
bool stampa_registri_IVA(const TMask&);
bool look_lia();
void set_choice_limits(TMask&);
void build_ditte_sheet();
void cerca_reg(const TString&, byte*);
void set_page_tot_reg();
void send_message(char, const TFilename&,int);
@ -93,7 +97,8 @@ protected:
bool user_destroy();
bool preprocess_page(int, int);
int stampa_intestazione();
int stampa_prospetto();
int stampa_prospetto();
long select_firm_range(long,long);
void stampa_plafonds(int);
void get_dati_ditta();
void stampa_vidi();
@ -103,11 +108,17 @@ protected:
//print_action postprocess_print(int, int);
print_action postprocess_page (int, int);
void preprocess_header();
void build_nomiditte();
void set_year(int y) { _annoes = y; }
static bool filter_func (const TRelation * r);
static bool mask_tipo_stampa (TMask_field&, KEY);
static bool mask_firm_to (TMask_field&, KEY);
//static bool mask_firm_to (TMask_field&, KEY);
static bool to_ditt_handler (TMask_field&, KEY);
static bool fr_ditt_handler (TMask_field&, KEY);
static bool to_butt_handler (TMask_field&, KEY);
static bool fr_butt_handler (TMask_field&, KEY);
static bool mask_cod (TMask_field&, KEY);
static bool mask_libun (TMask_field&, KEY);
static bool mask_data (TMask_field&, KEY);
@ -115,10 +126,11 @@ protected:
static bool mask_fino_a_mese (TMask_field&, KEY);
static bool mask_select (TMask_field&, KEY);
static bool mask_azzera (TMask_field&, KEY);
static bool year_handler (TMask_field&, KEY);
public:
CG4400_application() : TPrintapp(), _ditte(NULL) {}
CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100) {}
virtual ~CG4400_application() {}
};

20
cg/cg4400a.h
View File

@ -13,15 +13,17 @@
#define ANNO 111
#define DA_CODICE 112
#define A_CODICE 113
#define F_SELECT 114
#define F_ANNULLA 115
#define F_VERIFICA 116
#define CODICE_LIB_UN 117
#define MESE 118
#define CODICE_LIBRO_PROVA 119
#define RIF_VID 120
#define STAMPA_WIDTH 121
#define STAMPA_LEN 122
#define BUT_DFR 114
#define BUT_DTO 115
#define F_SELECT 116
#define F_ANNULLA 117
#define F_VERIFICA 118
#define CODICE_LIB_UN 119
#define MESE 120
#define CODICE_LIBRO_PROVA 121
#define RIF_VID 122
#define STAMPA_WIDTH 123
#define STAMPA_LEN 124

91
cg/cg4400a.uml
View File

@ -19,51 +19,61 @@ BEGIN
MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,4@|RESET,4@
END
GROUPBOX DLG_NULL 35 5
NUMBER ANNO 4
BEGIN
PROMPT 2 3 "Anno "
HELP "Anno di cui si vuole stampare il registro"
FLAGS "A"
WARNING "Inserire l'anno"
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 39 5
BEGIN
PROMPT 20 2 "Scelta ditte"
PROMPT 16 2 "Scelta ditte"
END
NUMBER DA_CODICE 6
BEGIN
PROMPT 21 3 "Da codice "
FLAGS "UR"
PROMPT 17 3 "Da codice "
//FLAGS "UR"
HELP "Codice ditta di inizio selezione"
USE LF_NDITTE KEY 1
//CHECKTYPE NORMAL
INPUT CODDITTA DA_CODICE
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT DA_CODICE CODDITTA
END
BUTTON BUT_DFR 2 1
BEGIN
PROMPT 34 3 "*"
PICTURE 109
END
NUMBER A_CODICE 6
BEGIN
PROMPT 21 4 "A codice "
FLAGS "UR"
PROMPT 17 4 "A codice "
//FLAGS "UR"
HELP "Codice ditta di fine selezione"
COPY USE DA_CODICE
//CHECKTYPE NORMAL
INPUT CODDITTA A_CODICE
COPY DISPLAY DA_CODICE
OUTPUT A_CODICE CODDITTA
END
STRING F_SELECT 6
BUTTON BUT_DTO 2 1
BEGIN
PROMPT 21 5 "Scelte n. "
FLAGS "DR"
PROMPT 34 4 "*"
PICTURE 109
END
BUTTON DLG_SELECT 9 2
STRING F_SELECT 5
BEGIN
PROMPT 42 3 "~Selezione"
PROMPT 17 5 "Scelte n. "
FLAGS "D"
END
BUTTON DLG_SELECT 10 2
BEGIN
PROMPT 41 3 "~Selezione"
HELP "Indicare le ditte da selezionare per la stampa"
END
BUTTON F_ANNULLA 9
BUTTON F_ANNULLA 10
BEGIN
PROMPT 42 5 "A~zzera"
PROMPT 41 5 "A~zzera"
HELP "Annullare la selezione delle ditte"
MESSAGE RESET,DA_CODICE|RESET,A_CODICE
END
@ -76,18 +86,9 @@ BEGIN
WARNING "Inserire la data di stampa"
END
NUMBER ANNO 4
BEGIN
PROMPT 2 3 "Anno "
HELP "Anno di cui si vuole stampare il registro"
FLAGS "A"
WARNING "Inserire l'anno"
CHECKTYPE REQUIRED
END
STRING CODICE_LIBRO 3
BEGIN
PROMPT 2 7 "Codice libro "
PROMPT 2 7 "Codice libro "
HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
USE REG SELECT (I0<"3") && (S6=="") && (CODTAB[1,4]==#111)
INPUT CODTAB[1,4] ANNO
@ -98,13 +99,14 @@ BEGIN
OUTPUT ANNO CODTAB[1,4]
OUTPUT CODICE_LIBRO CODTAB[5,7]
//CHECKTYPE NORMAL
FLAGS "UR"
FLAGS "U"
VALIDATE ZEROFILL_FUNC 3
GROUP 1
END
STRING CODICE_LIBRO_PROVA 3
BEGIN
PROMPT 2 7 "Codice libro "
PROMPT 2 7 "Codice libro "
HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
USE REG SELECT (I0<"3") && (CODTAB[1,4]==#111)
INPUT CODTAB[1,4] ANNO
@ -114,12 +116,13 @@ BEGIN
DISPLAY "Descrizione @40" S0
OUTPUT ANNO CODTAB[1,4]
OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7]
FLAGS "UR"
FLAGS "U"
VALIDATE ZEROFILL_FUNC 3
END
STRING CODICE_LIB_UN 3
BEGIN
PROMPT 2 7 "Libro unico "
PROMPT 2 7 "Libro unico "
HELP "Codice del libro unico su cui deve essere effettuata la stampa"
USE %LBU SELECT CODTAB[1,4]==#111
INPUT CODTAB[1,4] ANNO
@ -129,9 +132,10 @@ BEGIN
DISPLAY "Descrizione @40" S0
OUTPUT ANNO CODTAB[1,4]
OUTPUT CODICE_LIB_UN CODTAB[5,7]
FLAGS "UR"
FLAGS "U"
CHECKTYPE REQUIRED
WARNING "Inserire il codice del libro unico"
WARNING "Inserire il codice del libro unico"
VALIDATE ZEROFILL_FUNC 3
GROUP 2
END
@ -158,7 +162,7 @@ END
LISTBOX FINO_A_MESE 10
BEGIN
PROMPT 4 9 "Fino al mese "
PROMPT 3 9 "Fino al mese "
HELP "Mese fino al quale eseguire la stampa"
FLAGS "M"
GROUP 1
@ -166,7 +170,7 @@ END
LISTBOX MESE 10
BEGIN
PROMPT 4 9 "Mese "
PROMPT 4 9 "Mese "
HELP "Mese di cui eseguire la stampa"
FLAGS "M"
GROUP 2
@ -236,7 +240,8 @@ BEGIN
OUTPUT ANNO CODTAB[1,4]
OUTPUT CODICE_LIBRO_IVA CODTAB[5,7]
//CHECKTYPE NORMAL
FLAGS "UR"
FLAGS "U"
VALIDATE ZEROFILL_FUNC 3
GROUP 2
END

8
cg/cg4400b.uml
View File

@ -1,10 +1,11 @@
#include "cg4400b.h"
PAGE "Stampa registri IVA" -1 -1 58 10
PAGE "Stampa registri IVA" -1 -1 54 10
STRING COD_LIB 3
BEGIN
PROMPT 2 1 "Codice Libro "
FLAGS "D"
END
LISTBOX U_MESE 10
@ -22,16 +23,17 @@ END
DATE U_DATA
BEGIN
PROMPT 2 4 "Ultima data di stampa "
FLAGS "D"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 7 ""
PROMPT -12 7 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -23 7 ""
PROMPT -22 7 ""
END
ENDPAGE