Patch level :2.0 p@rtners

Files correlati     :cg3.exe,cg3800a.msk/frm
Ricompilazione Demo : [ ]
Commento            :aggiunto programma stampa fatture doppie (da finire: manca la stampa
vera e propria)


git-svn-id: svn://10.65.10.50/trunk@11746 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2004-02-04 11:41:44 +00:00
parent d1a8ebeed0
commit 6820f85b66
5 changed files with 442 additions and 0 deletions

219
cg/cg3800.cpp Executable file
View File

@ -0,0 +1,219 @@
#include <applicat.h>
#include <automask.h>
#include <form.h>
#include <printer.h>
#include <progind.h>
#include <mov.h>
#include <partite.h>
#include <rmov.h>
#include <rmoviva.h>
#include "..\cg\cgsaldac.h"
#include "..\ve\velib.h"
#include "cg3800a.h"
#include "cg3800.h"
//===============================================================================================
//maschera
class TDouble_fatt_mask: public TAutomask
{
public:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
TDouble_fatt_mask():TAutomask("cg3800a") {}
};
bool TDouble_fatt_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
/* switch (o.dlg())
{
default: break;
}*/
return true;
}
//===============================================================================================
//form
class TDouble_fatt_form : public TForm
{
protected:
bool validate(TForm_item &cf, TToken_string &s);
public:
void print(const TMask& m);
TDouble_fatt_form();
virtual ~TDouble_fatt_form();
};
bool TDouble_fatt_form::validate(TForm_item &cf, TToken_string &s)
{
/* if (s == "_NEXTPAG")
{
_curr_pag ++; //aggiorna il contatore pagamenti quando ne trova uno sull'arrayone
return true;
}*/
return TForm::validate(cf,s);
}
void TDouble_fatt_form::print(const TMask& m)
{
TPrint_section& header = section('H', odd_page);
header.find_field(FR_DADATA).set(m.get(F_DADATA));
header.find_field(FR_ADATA).set(m.get(F_ADATA));
TForm::print(); //chiama la vera print dopo aver azzerato il contatore
}
TDouble_fatt_form::TDouble_fatt_form() :TForm ("cg3800a")
{
}
TDouble_fatt_form::~TDouble_fatt_form()
{
}
//===============================================================================================
//Applicazione
class TDouble_fatt : public TSkeleton_application
{
TAssoc_array _movimenti; //assocarray con tutti i movimenti
TPointer_array _duplicati;
TDouble_fatt_mask* _mask;
TDouble_fatt_form* _form;
protected:
virtual void main_loop();
virtual bool create();
virtual bool destroy();
static bool mov_callback(const TRelation& rel, void* pJolly);
void store_mov(const TRectype& mov);
public:
};
bool TDouble_fatt::create()
{
_mask = new TDouble_fatt_mask;
_form = new TDouble_fatt_form();
return TSkeleton_application::create();
}
bool TDouble_fatt::destroy()
{
delete _mask;
delete _form;
return TRUE;
}
// Mettere in libreria al piu' presto!!!!
typedef bool (*SCAN_FUNC)(const TRelation& rel, void* pJolly);
bool scan_cursor(TCursor& cur, const char* msg, SCAN_FUNC func, void* pJolly)
{
TRecnotype items = 0; // Temporarily
TProgind pi(items, msg, true, true);
{
TWait_cursor hourglass;
items = cur.items();
}
bool ok = true;
if (items > 0)
{
cur.freeze();
pi.setmax(items);
for (cur = 0; cur.pos() < items; ++cur)
{
pi.addstatus(1);
if (pi.iscancelled())
{
ok = false;
break;
}
if (!func(*cur.relation(), pJolly))
{
ok = false;
break;
}
}
cur.freeze(false);
}
return ok;
}
void TDouble_fatt::store_mov(const TRectype& mov)
{
TString key;
key << mov.get(MOV_CODCF) << '_' << mov.get_date(MOV_DATADOC).year() << '_' << mov.get(MOV_NUMDOC);
const long numreg = mov.get_long(MOV_NUMREG);
TPointer_array* pa = (TPointer_array*)_movimenti.objptr(key); //elemento dell' assocarray
if (pa == NULL) //se non c'e' il valore lo aggiungo all'assocarray
{
pa = new TPointer_array;
_movimenti.add(key,pa);
}
pa->add_long(numreg);
if (pa->items() > 1)
_duplicati.add(pa);
}
bool TDouble_fatt::mov_callback(const TRelation& rel, void* pJolly)
{
TDouble_fatt* app = (TDouble_fatt*)pJolly;
app -> store_mov(rel.curr());
return true;
}
void TDouble_fatt::main_loop()
{
TDate d(TODAY);
_mask->set(F_ADATA, d);
d.set_day(1); d.set_month(1);
_mask->set(F_DADATA, d);
while (_mask->run() == K_ENTER)
{
TRelation rel(LF_MOV);
TRectype darec(LF_MOV), arec(LF_MOV);
const TDate dataini(1,1,_mask->get_date(F_DADATA).year()-1);
const TDate datafin(31,12,_mask->get_date(F_ADATA).year()+1);
darec.put(MOV_DATAREG, dataini);
arec.put(MOV_DATAREG, datafin);
TCursor cur(&rel, "TIPO=='F'", 2, &darec, &arec);
_movimenti.destroy();
scan_cursor(cur, "Ricerca fatture doppie...", mov_callback, this);
}
}
int cg3800(int argc, char* argv[])
{
TDouble_fatt a;
a.run(argc,argv,TR("Stampa lista fatture doppie"));
return 0;
}

7
cg/cg3800.h Executable file
View File

@ -0,0 +1,7 @@
// campi del form cg3800a.frm
#define FR_DADATA 11
#define FR_ADATA 12

159
cg/cg3800a.frm Executable file
View File

@ -0,0 +1,159 @@
#include "cg3800.h"
SECTION GRAPHICS ODD
LINEA -1 132 1
BEGIN
PROMPT 1 5 "@b"
END
LINEA -1 132 1
BEGIN
PROMPT 1 7 "@b"
END
END
// intestazione generale stampa pagato per commessa
SECTION HEADER ODD 7
NUMERO -1
BEGIN
KEY "Nr. pagina"
PROMPT 1 1 "Pag. "
MESSAGE _PAGENO
END
STRINGA -1
BEGIN
KEY "Data"
PROMPT 115 1 "Data "
MESSAGE _TODAY
END
STRINGA -1
BEGIN
KEY "Intestazione stampa"
PROMPT 56 2 "@bLISTA FATTURE DOPPIE"
END
DATA FR_DADATA
BEGIN
KEY "Parametri stampa: data iniziale"
PROMPT 1 3 "@bMovimenti dal "
END
DATA FR_ADATA
BEGIN
KEY "Parametri stampa: data finale"
PROMPT 40 3 "al "
END
LINEA -1 132 1
BEGIN
PROMPT 1 4 "B"
END
STRINGA -1
BEGIN
KEY "anno documento"
PROMPT 1 5 "@bANNO"
END
STRINGA -1
BEGIN
KEY "numero documento"
PROMPT 6 5 "@bNUM. DOC. "
END
STRING -1
BEGIN
KEY "codice fornitore"
PROMPT 18 5 "@bFORNITORE"
END
STRING -1
BEGIN
KEY "ragione sociale"
PROMPT 28 5 "@bRAGIONE SOCIALE"
END
STRING -1
BEGIN
KEY "numero registrazione"
PROMPT 6 6 "@bNum.Reg."
END
STRING -1
BEGIN
KEY "data registrazione"
PROMPT 15 6 "@bData Reg."
END
STRING -1
BEGIN
KEY "descrizione registrazione"
PROMPT 26 6 "@bDescrizione"
END
LINEA -1 132 1
BEGIN
PROMPT 1 7 "B"
END
END // section header odd
// riga di stampa (utilizzata per ogni movimento)
SECTION BODY ODD 1
NUMERO FR_ANNODOC 4
BEGIN
KEY "anno doc"
PROMPT
END
STRINGA FR_NDOC 7
BEGIN
KEY "num doc"
END
NUMERO FR_CODCF 6
BEGIN
KEY "codice clifo"
END
STRINGA FR_RAGSOC 50
BEGIN
KEY "ragsoc"
END
SECTION REGISTRAZIONI 2 1 1 FILE LF_MOV GROUP LF_MOV->
NUMERO FR_NUMREG
BEGIN
KEY "numero registrazione"
PROMPT ""
END
DATA FR_DATAREG
BEGIN
KEY "data registrazione"
PROMPT ""
END
STRINGA FR_DESCREG 50
BEGIN
KEY "descrizione registrazione"
PROMPT ""
END
END //end section registrazioni
END // section body odd
SECTION FOOTER ODD 1
END
END // form

6
cg/cg3800a.h Executable file
View File

@ -0,0 +1,6 @@
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_DADATA 103
#define F_ADATA 104

51
cg/cg3800a.uml Executable file
View File

@ -0,0 +1,51 @@
#include "cg3800a.h"
PAGE "Stampa lista fatture doppie" -1 -1 64 8
GROUPBOX DLG_NULL 62 4
BEGIN
PROMPT 1 0 "@bDitta"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Codice "
FLAGS "DFR"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Rag.Soc. "
FLAGS "D"
END
DATE F_DADATA
BEGIN
PROMPT 2 4 "Dal "
CHECKTYPE REQUIRED
END
DATE F_ADATA
BEGIN
PROMPT 2 5 "Al "
VALIDATE DATE_CMP_FUNC >= F_DADATA
WARNING "Data finale non valida"
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK