Patch level : 4.0
Files correlati : Ricompilazione Demo : [ ] Commento : Esportazione clienti/fornitori git-svn-id: svn://10.65.10.50/trunk@14988 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
c75c684458
commit
6c55aa3d2f
465
cg/cg3900.cpp
Executable file
465
cg/cg3900.cpp
Executable file
@ -0,0 +1,465 @@
|
||||
#include "cg3.h"
|
||||
#include "cg3900a.h"
|
||||
#include "cglib01.h"
|
||||
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <defmask.h>
|
||||
#include <progind.h>
|
||||
#include <recarray.h>
|
||||
#include <reprint.h>
|
||||
#include <textset.h>
|
||||
|
||||
#include <causali.h>
|
||||
#include <clifo.h>
|
||||
#include <comuni.h>
|
||||
#include <mov.h>
|
||||
#include <rmoviva.h>
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TAllegato_info
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
struct TAllegato_importi : public TObject
|
||||
{
|
||||
real _imp, _iva, _impNI, _impES, _impNA;
|
||||
};
|
||||
|
||||
class TAllegato_info : public TObject
|
||||
{
|
||||
char _tipo;
|
||||
long _codice;
|
||||
TAllegato_importi _curr, _prec;
|
||||
|
||||
public:
|
||||
char tipo() const { return _tipo; }
|
||||
long codice() const { return _codice; }
|
||||
const TRectype& clifo() const;
|
||||
|
||||
TAllegato_importi& importi(bool prec) { return prec ? _prec : _curr; }
|
||||
const TAllegato_importi& importi(bool prec) const { return prec ? _prec : _curr; }
|
||||
|
||||
TAllegato_info(char tipo, long codcf) : _tipo(tipo), _codice(codcf) { }
|
||||
TAllegato_info(const TRectype& rec);
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TAllegati_set
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TAllegati_set : public TAS400_recordset
|
||||
{
|
||||
protected:
|
||||
const TString& comune(const TRectype& clifo, const char* field) const;
|
||||
|
||||
public:
|
||||
void add(const TAllegato_info& info);
|
||||
TAllegati_set();
|
||||
};
|
||||
|
||||
const TString& TAllegati_set::comune(const TRectype& clifo, const char* field) const
|
||||
{
|
||||
TString8 key;
|
||||
key << clifo.get(CLI_STATOCF) << '|' << clifo.get(CLI_COMCF);
|
||||
const TString& s1 = cache().get(LF_COMUNI, key, field);
|
||||
if (s1.full())
|
||||
return s1;
|
||||
|
||||
key = " |";
|
||||
key << cap2comune(clifo.get(CLI_CAPCF), clifo.get(CLI_LOCCF));
|
||||
return cache().get(LF_COMUNI, key, field);
|
||||
}
|
||||
|
||||
void TAllegati_set::add(const TAllegato_info& info)
|
||||
{
|
||||
new_rec();
|
||||
|
||||
const TRectype& clifo = info.clifo();
|
||||
for (unsigned int i = 0; i < columns(); i++)
|
||||
{
|
||||
const TString& field = TAS400_recordset::column_info(i)._name;
|
||||
if (clifo.type(field) != _nullfld)
|
||||
set(field, TVariant(clifo.get(field)));
|
||||
else
|
||||
{
|
||||
if (field == "COMUNE")
|
||||
{
|
||||
const TVariant var = comune(clifo, COM_DENCOM);
|
||||
set(field, var);
|
||||
} else
|
||||
if (field == "PROVINCIA")
|
||||
{
|
||||
const TVariant var = comune(clifo, COM_PROVCOM);
|
||||
set(field, var);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (field.starts_with("C_") || field.starts_with("P_"))
|
||||
{
|
||||
const TAllegato_importi& allimp = info.importi(field[0] == 'P');
|
||||
const TString& impfield = field.mid(2);
|
||||
if (impfield == "IMP")
|
||||
set(field, allimp._imp); else
|
||||
if (impfield == "IVA")
|
||||
set(field, allimp._iva); else
|
||||
if (impfield == "NI")
|
||||
set(field, allimp._impNI); else
|
||||
if (impfield == "ES")
|
||||
set(field, allimp._impES); else
|
||||
if (impfield == "NA")
|
||||
set(field, allimp._impNA);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
TAllegati_set::TAllegati_set() : TAS400_recordset("AS400(512)")
|
||||
{
|
||||
const char* const campi[] = { CLI_TIPOCF, CLI_CODCF, CLI_RAGSOC, CLI_COFI, CLI_PAIV,
|
||||
CLI_INDCF, CLI_CIVCF, CLI_CAPCF, CLI_LOCCF, CLI_COMCF, NULL };
|
||||
TRectype clifo(LF_CLIFO);
|
||||
for (int i = 0; campi[i]; i++)
|
||||
{
|
||||
const char* f = campi[i];
|
||||
create_field(f, -1, clifo.length(f), clifo.type(f));
|
||||
}
|
||||
create_field("COMUNE", -1, 50, _alfafld);
|
||||
create_field("PROVINCIA", -1, 2, _alfafld);
|
||||
|
||||
for (int j = 0; j < 2; j++)
|
||||
{
|
||||
create_field(j ? "P_IMP" : "C_IMP", -1, 15, _realfld);
|
||||
create_field(j ? "P_IVA" : "C_IVA", -1, 15, _realfld);
|
||||
create_field(j ? "P_NI" : "C_NI", -1, 15, _realfld);
|
||||
create_field(j ? "P_ES" : "C_ES", -1, 15, _realfld);
|
||||
create_field(j ? "P_NA" : "C_NA", -1, 15, _realfld);
|
||||
}
|
||||
}
|
||||
|
||||
const TRectype& TAllegato_info::clifo() const
|
||||
{
|
||||
TString16 key; key.format("%c|%ld", tipo(), codice());
|
||||
return cache().get(LF_CLIFO, key);
|
||||
}
|
||||
|
||||
TAllegato_info::TAllegato_info(const TRectype& rec)
|
||||
: _tipo(rec.get_char(CLI_TIPOCF)), _codice(rec.get_long(CLI_CODCF))
|
||||
{ }
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TRegistri_cache
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TRegistri_cache : public TCache
|
||||
{
|
||||
protected:
|
||||
virtual TObject* key2obj(const char* key);
|
||||
|
||||
public:
|
||||
const TRegistro& registro(const char* codice, int anno);
|
||||
};
|
||||
|
||||
// key = AAAA|REG
|
||||
TObject* TRegistri_cache::key2obj(const char* key)
|
||||
{
|
||||
const int anno = atoi(key);
|
||||
const char* reg = key+5;
|
||||
return new TRegistro(reg, anno);
|
||||
}
|
||||
|
||||
const TRegistro& TRegistri_cache::registro(const char* codice, int anno)
|
||||
{
|
||||
TString8 key;
|
||||
key.format("%04d|%s", anno, codice);
|
||||
return *(TRegistro*)objptr(key);
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TCodiva_cache
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TCodiva_cache : public TCache
|
||||
{
|
||||
protected:
|
||||
virtual TObject* key2obj(const char* key);
|
||||
|
||||
public:
|
||||
const TCodiceIVA& codiva(const char* codice);
|
||||
};
|
||||
|
||||
TObject* TCodiva_cache::key2obj(const char* key)
|
||||
{
|
||||
return new TCodiceIVA(key);
|
||||
}
|
||||
|
||||
const TCodiceIVA& TCodiva_cache::codiva(const char* codice)
|
||||
{
|
||||
return *(TCodiceIVA*)objptr(codice);
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TAlleg_report
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TAlleg_report : public TReport
|
||||
{
|
||||
int _anno;
|
||||
|
||||
protected:
|
||||
virtual bool use_mask() { return false; }
|
||||
virtual bool get_usr_val(const TString& name, TVariant& var) const;
|
||||
|
||||
public:
|
||||
TAlleg_report(TRecordset* rs, int anno);
|
||||
};
|
||||
|
||||
bool TAlleg_report::get_usr_val(const TString& name, TVariant& var) const
|
||||
{
|
||||
if (name == "ANNO")
|
||||
{
|
||||
var.set(_anno);
|
||||
return true;
|
||||
}
|
||||
if (name == "PREC")
|
||||
{
|
||||
var.set(_anno-1);
|
||||
return true;
|
||||
}
|
||||
return TReport::get_usr_val(name, var);
|
||||
}
|
||||
|
||||
TAlleg_report::TAlleg_report(TRecordset* rs, int anno) : _anno(anno)
|
||||
{
|
||||
load("cg3900a");
|
||||
set_recordset(rs);
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TAlleg_mask
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TAlleg_mask : public TAutomask
|
||||
{
|
||||
TRegistri_cache _registri;
|
||||
TCodiva_cache _codiva;
|
||||
TAssoc_array _clifi;
|
||||
|
||||
protected:
|
||||
bool documento_corrispettivi(const TString& tipodoc) const;
|
||||
void scan_iva_rows(const TRecordset& mov);
|
||||
TRecordset* new_recordset();
|
||||
|
||||
public:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
TAlleg_mask();
|
||||
};
|
||||
|
||||
bool TAlleg_mask::documento_corrispettivi(const TString& tipodoc) const
|
||||
{
|
||||
const TRectype& tpd = cache().get("%TPD", tipodoc);
|
||||
bool corrisp = tpd.get_bool ("B0");
|
||||
if (corrisp)
|
||||
{
|
||||
const int natura_doc = tpd.get_int("I0");
|
||||
corrisp = natura_doc == 1 || natura_doc == 9;
|
||||
}
|
||||
return corrisp;
|
||||
}
|
||||
|
||||
void TAlleg_mask::scan_iva_rows(const TRecordset& mov)
|
||||
{
|
||||
TToken_string clifo_key;
|
||||
clifo_key << mov.get(MOV_TIPO) << '|' << mov.get(MOV_CODCF);
|
||||
const TRectype& clifo = cache().get(LF_CLIFO, clifo_key);
|
||||
if (clifo.empty())
|
||||
return;
|
||||
|
||||
const long codalleg = clifo.get_long(CLI_CODALLEG);
|
||||
if (codalleg > 0) // Aggiorno codice clifo con allegato
|
||||
clifo_key.add(codalleg,1);
|
||||
|
||||
TAllegato_info* ai = (TAllegato_info*)_clifi.objptr(clifo_key);
|
||||
if (ai == NULL)
|
||||
{
|
||||
ai = new TAllegato_info(clifo);
|
||||
_clifi.add(clifo_key, ai);
|
||||
}
|
||||
|
||||
const TDate datareg = mov.get(MOV_DATAREG).as_date();
|
||||
const TDate datadoc = mov.get(MOV_DATADOC).as_date();
|
||||
TAllegato_importi& allimp = ai->importi(datadoc.year() < datareg.year());
|
||||
|
||||
TISAM_recordset righe_iva("USE RMOVIVA\nFROM NUMREG=#NR\nTO NUMREG=#NR");
|
||||
righe_iva.set_var("#NR", mov.get(MOV_NUMREG));
|
||||
|
||||
for (bool ok = righe_iva.move_first(); ok; ok = righe_iva.move_next())
|
||||
{
|
||||
const TCodiceIVA& codiva = _codiva.codiva(righe_iva.get(RMI_CODIVA).as_string());
|
||||
const int allegato = codiva.allegato(clifo_key[0]);
|
||||
const real imponibile = righe_iva.get(RMI_IMPONIBILE).as_real();
|
||||
const real imposta = righe_iva.get(RMI_IMPOSTA).as_real();
|
||||
switch (allegato)
|
||||
{
|
||||
case 1: allimp._imp += imponibile; allimp._iva += imposta; break;
|
||||
case 2: allimp._impNI += imponibile; break;
|
||||
case 3: allimp._impES += imponibile; break;
|
||||
default: allimp._impNA += imponibile; break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
TRecordset* TAlleg_mask::new_recordset()
|
||||
{
|
||||
// Compito: tradurre in ISAM la seguente query:
|
||||
// SELECT * FROM MOV
|
||||
// WHERE TIPO=#TYPE AND ANNOIVA=#YEAR
|
||||
// ORDER BY TIPO,CODCF;
|
||||
TString query = "USE MOV KEY 3"; // La chiave 3 e' TIPO+CODCF+DATAREG+NUMREG
|
||||
query << "\nSELECT ANNOIVA=#YEAR"; // Seleziona solo l'anno desiderato
|
||||
query << "\nFROM TIPO=#TYPE CODCF=1"; // Salta tutti movimenti senza CODCF
|
||||
query << "\nTO TIPO=#TYPE"; // Inutile dire CODCF=999999
|
||||
TISAM_recordset mov(query);
|
||||
|
||||
const TString& tipo = get(F_TIPO);
|
||||
const int anno = get_int(F_ANNO);
|
||||
mov.set_var("#YEAR", TVariant(long(anno)));
|
||||
mov.set_var("#TYPE", TVariant(tipo));
|
||||
|
||||
TProgind pi(mov.items(), "Scansione movimenti", true, true);
|
||||
for (bool ok = mov.move_first(); ok; ok = mov.move_next())
|
||||
{
|
||||
if (!pi.addstatus(1))
|
||||
break;
|
||||
|
||||
// Controllo se registro e' compatibile (anche se lo e' sempre!)
|
||||
const TString& codreg = mov.get(MOV_REG).as_string();
|
||||
const TRegistro& reg = _registri.registro(codreg, anno);
|
||||
if (reg.corrispettivi())
|
||||
continue;
|
||||
|
||||
const TString& codcaus = mov.get(MOV_CODCAUS).as_string();
|
||||
const TRectype& caus = cache().get(LF_CAUSALI, codcaus);
|
||||
if (caus.get_bool(CAU_ALLEG)) // Controllo il flag di esclusione dagli allegati
|
||||
continue;
|
||||
|
||||
// Controllo inutilmente anche il tipo documento
|
||||
const TString& tipodoc = caus.get(CAU_TIPODOC);
|
||||
if (documento_corrispettivi(tipodoc))
|
||||
continue;
|
||||
|
||||
const TipoIVA tipoiva = reg.iva();
|
||||
bool keep = tipoiva == iva_vendite || tipoiva == iva_acquisti; // Voglio solo registri IVA
|
||||
if (keep)
|
||||
keep = (tipo == "C") ^ (tipoiva == iva_acquisti); // compatibile
|
||||
if (!keep)
|
||||
continue;
|
||||
|
||||
const TVariant& occas = mov.get(MOV_OCFPI);
|
||||
if (!occas.is_empty()) // Ignoro i clienti occasionali
|
||||
continue;
|
||||
|
||||
scan_iva_rows(mov);
|
||||
}
|
||||
|
||||
TAllegati_set* hullygully = new TAllegati_set;
|
||||
FOR_EACH_ASSOC_OBJECT(_clifi, h, k, o)
|
||||
hullygully->add(*(TAllegato_info*)o);
|
||||
hullygully->sort();
|
||||
|
||||
return hullygully;
|
||||
}
|
||||
|
||||
bool TAlleg_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
switch (o.dlg())
|
||||
{
|
||||
case DLG_SELECT:
|
||||
if (e == fe_button)
|
||||
{
|
||||
KEY k = K_ENTER;
|
||||
while (k == K_ENTER)
|
||||
{
|
||||
TRecordset* rs = new_recordset();
|
||||
TRecordset_sheet sheet(*rs, TR("Elenco di controllo"), 0x8);
|
||||
k = sheet.run();
|
||||
if (k == K_ENTER)
|
||||
{
|
||||
const long sel = sheet.selected();
|
||||
TToken_string& row = sheet.row(sel);
|
||||
TRectype clifo(LF_CLIFO);
|
||||
clifo.put(CLI_TIPOCF, row.get(0));
|
||||
clifo.put(CLI_CODCF, row.get(1));
|
||||
}
|
||||
delete rs;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
break;
|
||||
case DLG_EDIT:
|
||||
if (e == fe_button)
|
||||
{
|
||||
TRecordset* rs = new_recordset();
|
||||
TFilename fname = get(F_NAME);
|
||||
if (fname.blank())
|
||||
{
|
||||
fname.tempdir();
|
||||
fname.add("clifo");
|
||||
}
|
||||
fname.ext("xls");
|
||||
if (rs->save_as(fname, fmt_silk))
|
||||
xvt_sys_goto_url(fname, "open");
|
||||
delete rs;
|
||||
return false;
|
||||
}
|
||||
break;
|
||||
case DLG_PRINT:
|
||||
if (e == fe_button)
|
||||
{
|
||||
TRecordset* rs = new_recordset();
|
||||
TAlleg_report rep(rs, get_int(F_ANNO));
|
||||
TReport_book book;
|
||||
book.add(rep);
|
||||
book.print_or_preview();
|
||||
return false;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
TAlleg_mask::TAlleg_mask() : TAutomask("cg3900a")
|
||||
{
|
||||
const TDate oggi(TODAY);
|
||||
set(F_ANNO, oggi.year()-1);
|
||||
|
||||
TFilename fname; fname.tempdir();
|
||||
fname.add("clifo.xls");
|
||||
set(F_NAME, fname);
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TClifo_alleg_app
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TClifo_alleg_app : public TSkeleton_application
|
||||
{
|
||||
public:
|
||||
virtual void main_loop();
|
||||
};
|
||||
|
||||
|
||||
void TClifo_alleg_app::main_loop()
|
||||
{
|
||||
TAlleg_mask m;
|
||||
m.run();
|
||||
}
|
||||
|
||||
int cg3900(int argc, char* argv[])
|
||||
{
|
||||
TClifo_alleg_app app;
|
||||
app.run(argc, argv, TR("Elenco clienti/fornitori in allegato"));
|
||||
return 0;
|
||||
}
|
||||
3
cg/cg3900a.h
Executable file
3
cg/cg3900a.h
Executable file
@ -0,0 +1,3 @@
|
||||
#define F_TIPO 101
|
||||
#define F_ANNO 102
|
||||
#define F_NAME 103
|
||||
125
cg/cg3900a.rep
Executable file
125
cg/cg3900a.rep
Executable file
@ -0,0 +1,125 @@
|
||||
|
||||
<report name="cg3900a" orientation="2" lpi="6">
|
||||
<description>Stampa allegati clientiF;fornitori</description>
|
||||
<font face="Arial" size="8" />
|
||||
<section type="Head">
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<field x="67" type="Testo" width="15" pattern="1" text="P.I. F; C.F." />
|
||||
<field x="84" type="Testo" width="4" pattern="1" text="Anno" />
|
||||
<field x="89" type="Testo" align="right" width="15" pattern="1" text="Imponibile" />
|
||||
<field x="105" type="Testo" align="right" width="15" pattern="1" text="Imposta" />
|
||||
<field x="121" type="Testo" align="right" width="15" pattern="1" text="Non Imponibile" />
|
||||
<field x="137" type="Testo" align="right" width="15" pattern="1" text="Esenti" />
|
||||
<field x="153" type="Testo" align="right" width="15" pattern="1" text="Non in allegato" />
|
||||
<field border="3" y="1" type="Linea" width="168" height="0" pattern="1" />
|
||||
</section>
|
||||
<section type="Head" level="1" height="4">
|
||||
<field border="3" type="Stringa" valign="center" align="center" shade_offset="25" width="168" height="3">
|
||||
<font face="Arial" bold="1" size="24" />
|
||||
<source>IF(TIPOCF=="C";"Clienti";"Fornitori") + " movimentati nel " + ANNO</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" />
|
||||
<section type="Body" level="1">
|
||||
<field type="Numero" align="right" width="7" pattern="1">
|
||||
<source>CODCF</source>
|
||||
</field>
|
||||
<field x="10" type="Stringa" width="50" pattern="1">
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<source>RAGSOC</source>
|
||||
</field>
|
||||
<field x="63" type="Testo" width="4" pattern="1" text="P.I." />
|
||||
<field x="67" type="Stringa" width="15" pattern="1">
|
||||
<source>PAIV</source>
|
||||
</field>
|
||||
<field x="84" type="Numero" align="right" width="4" pattern="1">
|
||||
<source>ANNO</source>
|
||||
</field>
|
||||
<field x="89" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>C_IMP</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.101
|
||||
</prescript>
|
||||
</field>
|
||||
<field x="105" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>C_IVA</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.102</prescript>
|
||||
</field>
|
||||
<field x="121" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>C_NI</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.103</prescript>
|
||||
</field>
|
||||
<field x="137" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>C_ES</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.104</prescript>
|
||||
</field>
|
||||
<field x="153" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>C_NA</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.105</prescript>
|
||||
</field>
|
||||
<field y="1" type="Stringa" width="60" pattern="1">
|
||||
<source>TRIM(INDCF) + " " + CIVCF</source>
|
||||
</field>
|
||||
<field x="63" y="1" type="Testo" width="4" pattern="1" text="C.F." />
|
||||
<field x="67" y="1" type="Stringa" width="15" pattern="1">
|
||||
<source>COFI</source>
|
||||
</field>
|
||||
<field x="84" y="1" type="Numero" align="right" width="4" pattern="1">
|
||||
<source>PREC</source>
|
||||
</field>
|
||||
<field x="89" y="1" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>P_IMP</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.201</prescript>
|
||||
</field>
|
||||
<field x="105" y="1" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>P_IVA</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.202</prescript>
|
||||
</field>
|
||||
<field x="121" y="1" deactivated="1" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="#########,@@">
|
||||
<source>P_NI</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.203</prescript>
|
||||
</field>
|
||||
<field x="137" y="1" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>P_ES</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.204</prescript>
|
||||
</field>
|
||||
<field x="153" y="1" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<source>P_NA</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,#F1.205</prescript>
|
||||
</field>
|
||||
<field y="2" type="Numero" align="right" width="5" pattern="1">
|
||||
<source>CAPCF</source>
|
||||
</field>
|
||||
<field x="6" y="2" type="Stringa" width="50" pattern="1">
|
||||
<source>COMUNE</source>
|
||||
</field>
|
||||
<field x="58" y="2" type="Stringa" width="4" pattern="1">
|
||||
<source>PROVINCIA</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Foot" />
|
||||
<section type="Foot" level="1">
|
||||
<field border="2" y="0.37" type="Linea" width="168" height="0" pattern="1" />
|
||||
<field x="0.5" y="0.5" type="Testo" width="60" height="2" pattern="1" text="Totali">
|
||||
<font face="Arial" bold="1" size="12" />
|
||||
</field>
|
||||
<field x="84" y="0.56" type="Numero" align="right" width="4" pattern="1">
|
||||
<source>ANNO</source>
|
||||
</field>
|
||||
<field x="84.03" y="1.56" type="Numero" align="right" width="4" pattern="1">
|
||||
<source>PREC</source>
|
||||
</field>
|
||||
<field x="89" y="0.56" type="Valuta" align="right" width="15" id="101" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="105" y="0.56" type="Valuta" align="right" width="15" id="102" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="121" y="0.56" type="Valuta" align="right" width="15" id="103" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="137" y="0.56" type="Valuta" align="right" width="15" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="153" y="0.56" type="Valuta" align="right" width="15" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="89" y="1.56" type="Valuta" align="right" width="15" id="201" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="105" y="1.56" type="Valuta" align="right" width="15" id="202" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="121" y="1.56" type="Valuta" align="right" width="15" id="203" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="137" y="1.56" type="Valuta" align="right" width="15" id="204" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
<field x="153" y="1.56" type="Valuta" align="right" width="15" id="205" pattern="1" hide_zero="1" text="###.###.###,@@" />
|
||||
</section>
|
||||
<sql>USE CLIFO
|
||||
FROM TIPOCF="C"
|
||||
TO TIPOCF="C"</sql>
|
||||
</report>
|
||||
57
cg/cg3900a.uml
Executable file
57
cg/cg3900a.uml
Executable file
@ -0,0 +1,57 @@
|
||||
#include "cg3900a.h"
|
||||
|
||||
PAGE "Elenco Clienti/Fornitori" -1 -1 70 5
|
||||
|
||||
LIST F_TIPO 1 10
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo "
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 23 1 "Anno "
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_NAME 128 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "File "
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BUTTON DLG_SELECT 10 2
|
||||
BEGIN
|
||||
PROMPT -15 -1 ""
|
||||
PICTURE BMP_FINDREC
|
||||
END
|
||||
|
||||
BUTTON DLG_EDIT 10 2
|
||||
BEGIN
|
||||
PROMPT -25 -1 ""
|
||||
PICTURE BMP_EDIT
|
||||
END
|
||||
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -35 -1 ""
|
||||
PICTURE BMP_PRINT
|
||||
END
|
||||
|
||||
BUTTON DLG_ELABORA 10 2
|
||||
BEGIN
|
||||
PROMPT -45 -1 ""
|
||||
PICTURE BMP_ELABORA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -55 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user