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

Patch level : 2.2

Browse Source 
Files correlati     : ci1
Ricompilazione Demo : [ ]
Commento            :

Aggiunte stampe contabilita' industriale (Ruffo)


git-svn-id: svn://10.65.10.50/trunk@13170 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2005-06-01 17:27:27 +00:00
parent 4b9323466b
commit 6faf37ea72
14 changed files with 1908 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ci/ci0.cpp
View File

@ -19,6 +19,5 @@ int main(int argc, char** argv)
// ci0100(argc,argv); // gestione tabelle
break;
}
exit(0);
return 0;
}

32
ci/ci0400a.uml
View File

@ -45,7 +45,7 @@ ENDPAGE
PAGE "Pagina 1" -1 -1 80 20
ALMANAC F_AL01 76 16
ALMANAC F_AL01 70 16
BEGIN
PROMPT -3 1 ""
END
@ -54,7 +54,7 @@ ENDPAGE
PAGE "Pagina 2" -1 -1 80 20
ALMANAC F_AL02 76 16
ALMANAC F_AL02 70 16
BEGIN
PROMPT -3 1 ""
END
@ -63,7 +63,7 @@ ENDPAGE
PAGE "Pagina 3" -1 -1 80 20
ALMANAC F_AL03 76 16
ALMANAC F_AL03 70 16
BEGIN
PROMPT -3 1 ""
END
@ -72,7 +72,7 @@ ENDPAGE
PAGE "Pagina 4" -1 -1 80 20
ALMANAC F_AL04 76 16
ALMANAC F_AL04 70 16
BEGIN
PROMPT -3 1 ""
END
@ -81,7 +81,7 @@ ENDPAGE
PAGE "Pagina 5" -1 -1 80 20
ALMANAC F_AL05 76 16
ALMANAC F_AL05 70 16
BEGIN
PROMPT -3 1 ""
END
@ -90,7 +90,7 @@ ENDPAGE
PAGE "Pagina 6" -1 -1 80 20
ALMANAC F_AL06 76 16
ALMANAC F_AL06 70 16
BEGIN
PROMPT -3 1 ""
END
@ -99,7 +99,7 @@ ENDPAGE
PAGE "Pagina 7" -1 -1 80 20
ALMANAC F_AL07 76 16
ALMANAC F_AL07 70 16
BEGIN
PROMPT -3 1 ""
END
@ -108,7 +108,7 @@ ENDPAGE
PAGE "Pagina 8" -1 -1 80 20
ALMANAC F_AL08 76 16
ALMANAC F_AL08 70 16
BEGIN
PROMPT -3 1 ""
END
@ -117,7 +117,7 @@ ENDPAGE
PAGE "Pagina 9" -1 -1 80 20
ALMANAC F_AL09 76 16
ALMANAC F_AL09 70 16
BEGIN
PROMPT -3 1 ""
END
@ -126,7 +126,7 @@ ENDPAGE
PAGE "Pagina 10" -1 -1 80 20
ALMANAC F_AL10 76 16
ALMANAC F_AL10 70 16
BEGIN
PROMPT -3 1 ""
END
@ -135,7 +135,7 @@ ENDPAGE
PAGE "Pagina 11" -1 -1 80 20
ALMANAC F_AL11 76 16
ALMANAC F_AL11 70 16
BEGIN
PROMPT -3 1 ""
END
@ -144,7 +144,7 @@ ENDPAGE
PAGE "Pagina 12" -1 -1 80 20
ALMANAC F_AL12 76 16
ALMANAC F_AL12 70 16
BEGIN
PROMPT -3 1 ""
END
@ -153,7 +153,7 @@ ENDPAGE
PAGE "Pagina 13" -1 -1 80 20
ALMANAC F_AL13 76 16
ALMANAC F_AL13 70 16
BEGIN
PROMPT -3 1 ""
END
@ -162,7 +162,7 @@ ENDPAGE
PAGE "Pagina 14" -1 -1 80 20
ALMANAC F_AL14 76 16
ALMANAC F_AL14 70 16
BEGIN
PROMPT -3 1 ""
END
@ -171,7 +171,7 @@ ENDPAGE
PAGE "Pagina 15" -1 -1 80 20
ALMANAC F_AL15 76 16
ALMANAC F_AL15 70 16
BEGIN
PROMPT -3 1 ""
END
@ -180,7 +180,7 @@ ENDPAGE
PAGE "Pagina 16" -1 -1 80 20
ALMANAC F_AL16 76 16
ALMANAC F_AL16 70 16
BEGIN
PROMPT -3 1 ""
END

17
ci/ci1.cpp Executable file
View File

@ -0,0 +1,17 @@
#include <xvt.h>
#include "ci1.h"
int main(int argc, char** argv)
{
const int op = (argc > 1) ? argv[1][1] - '0' : 0;
switch (op)
{
case 1:
ci1200(argc,argv); // stampa
break;
default:
break;
}
exit(0);
return 0;
}

7
ci/ci1.h Executable file
View File

@ -0,0 +1,7 @@
#ifndef __CI1_H
#define __CI1_H
int ci1200(int argc, char* argv[]); // stampe
#endif // __CI1_H

332
ci/ci1200.cpp Executable file
View File

@ -0,0 +1,332 @@
#include <applicat.h>
#include <automask.h>
#include <reprint.h>
#include "ci1200.h"
#include "../ca/calib01.h"
#include "../ca/rmovana.h"
#include "../include/doc.h"
#include "../include/rdoc.h"
///////////////////////////////////////////////////////////
// TMask_rdoc
///////////////////////////////////////////////////////////
class TMask_rdoc : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
int create_sheet_fields(int lf, int& y, short& dlg, bool required);
void create_sheet();
public:
TMask_rdoc();
};
int TMask_rdoc::create_sheet_fields(int lf, int& y, short& dlg, bool required)
{
TSheet_field& sf = sfield(F_COMMESSE);
TMask& sm = sf.sheet_mask();
const int h = ca_create_fields(sm, 0, lf, 1, y, dlg, dlg+50);
for (int i = 0; i < h; i++)
{
TEdit_field& fld = sm.efield(dlg+i);
int logic = lf;
if (logic == LF_FASI)
{
const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI);
if (fasinfo.parent() != 0)
{
const TMultilevel_code_info& parinfo = ca_multilevel_code_info(fasinfo.parent());
if (i < parinfo.levels())
logic = fasinfo.parent();
}
}
fld.check_type(required ? CHECK_REQUIRED : CHECK_NORMAL);
TEdit_field& dfld = sm.efield(dlg+50+i);
dfld.set_field(EMPTY_STRING); // Toglie campi che fan saltare gli output!
}
y += h+1;
dlg += h;
return h;
}
void TMask_rdoc::create_sheet()
{
TSheet_field& sf = sfield(F_COMMESSE);
TMask& sm = sf.sheet_mask();
sm.hide(-1);
const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI);
TConfig_anal ini;
const bool fsc_req = ini.get_bool("FscRequired");
int y = 1;
short dlg = S_CDC1 + 100; // id del primo campo da generare
for (int i = 0; i < 2; i++)
{
const TString& level = ini.get("Level", NULL, i+1); // Legge il livello 1 o 2
if (level == "CDC") // Crea centro di costo
{
if (fasinfo.parent() == LF_CDC)
create_sheet_fields(LF_FASI, y, dlg, fsc_req);
else
{
const bool cdc_req = ini.get_bool("CdcRequired");
create_sheet_fields(LF_CDC, y, dlg, cdc_req);
}
} else
if (level == "CMS") // Crea commessa
{
if (fasinfo.parent() == LF_COMMESSE)
create_sheet_fields(LF_FASI, y, dlg, fsc_req);
else
{
const bool cms_req = ini.get_bool("CmsRequired");
create_sheet_fields(LF_COMMESSE, y, dlg, cms_req);
}
}
}
if (fasinfo.levels() > 0 && fasinfo.parent() <= 0)
create_sheet_fields(LF_FASI, y, dlg, fsc_req);
for (short id = S_CDC12; id >= S_CDC1; id--)
{
const int pos = sm.id2pos(id+100);
if (pos >= 0)
{
TMask_field& f = sm.fld(pos);
const int size = f.size();
const TString& prompt = f.prompt();
sf.set_column_header(id, prompt);
sf.set_column_justify(id, f.is_kind_of(CLASS_REAL_FIELD));
sf.set_column_width(id, (max(3+size, prompt.len()+1)) * CHARX);
}
else
sf.delete_column(id);
sm.hide(id); // Nasconde il campo "segnaposto"
}
}
bool TMask_rdoc::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
return true;
}
TMask_rdoc::TMask_rdoc() : TAutomask("ci1200")
{
create_sheet();
}
///////////////////////////////////////////////////////////
// TRecordset_rdoc
///////////////////////////////////////////////////////////
class TRecordset_rdoc : public TISAM_recordset
{
TDate _da_data, _a_data;
long _da_clifo, _a_clifo;
TString _da_codart, _a_codart;
TString _codcosto, _codcms, _codfas;
TString_array _tipidoc;
protected:
static bool rdoc_filter(const TRelation* rel);
bool valid_record(const TRelation& rel) const;
virtual void set_custom_filter(TCursor& cur) const;
public:
void set_filter(const TMask_rdoc& msk, int cms_row);
TRecordset_rdoc(const TString& sql) : TISAM_recordset(sql) { }
};
static const TRecordset_rdoc* myself = NULL;
bool TRecordset_rdoc::valid_record(const TRelation& rel) const
{
const TRectype& doc = rel.curr(LF_DOC);
const TDate data = doc.get(DOC_DATADOC);
if (data < _da_data || (_a_data.ok() && data > _a_data))
return false;
const long clifo = doc.get_long(DOC_CODCF);
if (clifo < _da_clifo || (_a_clifo > 0 && clifo > _a_clifo))
return false;
const TRectype& rdoc = rel.curr(LF_RIGHEDOC);
const TString& codart = rdoc.get(RDOC_CODART);
if (codart < _da_codart || (_a_codart.not_empty() && codart.compare(_a_codart, _a_codart.len()) > 0))
return false;
if (_tipidoc.items() > 0)
{
const TString4 codnum = doc.get(DOC_CODNUM);
const TString4 tipodoc = doc.get(DOC_TIPODOC);
bool found = false;
FOR_EACH_ARRAY_ROW(_tipidoc, i, row)
{
const TString4 cn = row->get(0);
const TString4 td = row->get();
if ((cn.blank() || cn == codnum) && (td.blank() || td == tipodoc))
{
found = true;
break;
}
}
if (!found)
return false;
}
if (_codcosto.not_empty())
{
const TString& cos = rdoc.get(RDOC_CODCOSTO);
if (cos != _codcosto)
return false;
}
if (_codcms.not_empty())
{
const TString& cms = rdoc.get(RDOC_CODCMS);
if (cms != _codcms)
return false;
}
if (_codfas.not_empty())
{
const TString& fas = rdoc.get(RDOC_FASCMS);
if (fas != _codfas)
return false;
}
return true;
}
bool TRecordset_rdoc::rdoc_filter(const TRelation* rel)
{
return myself->valid_record(*rel);
}
void TRecordset_rdoc::set_custom_filter(TCursor& cur) const
{
myself = this;
cur.set_filterfunction(rdoc_filter, true);
}
void TRecordset_rdoc::set_filter(const TMask_rdoc& msk, int cms_row)
{
_codcosto = _codcms = _codfas = "";
if (cms_row >= 0)
{
TSheet_field& sf = msk.sfield(F_COMMESSE);
TMask& sm = sf.sheet_mask();
sf.update_mask(cms_row);
TRelation rel(LF_RMOVANA);
sm.autosave(rel);
_codcosto = rel.curr().get(RMOVANA_CODCCOSTO);
_codcms = rel.curr().get(RMOVANA_CODCMS);
_codfas = rel.curr().get(RMOVANA_CODFASE);
}
set_var("#S_CMS", TVariant(_codcms), true);
_tipidoc.destroy();
TSheet_field& sf = msk.sfield(F_TIPI);
FOR_EACH_SHEET_ROW(sf, i, row)
{
TToken_string str;
str.add(row->get(0), 0);
str.add(row->get(2), 1);
_tipidoc.add(str);
}
_da_data = msk.get_date(F_DA_DATA);
_a_data = msk.get_date(F_A_DATA);
set_var("#S_DATEFROM", _da_data, true);
set_var("#S_DATETO", _a_data, true);
_da_clifo = msk.get_long(F_DA_CLIFO);
_a_clifo = msk.get_long(F_A_CLIFO);
_da_codart = msk.get(F_DA_CODART);
_a_codart = msk.get(F_A_CODART);
}
///////////////////////////////////////////////////////////
// TReport_rdoc
///////////////////////////////////////////////////////////
class TReport_rdoc : public TReport
{
protected:
virtual bool set_recordset(const TString& sql);
public:
void set_filter(const TMask_rdoc& msk, int cms_row);
TReport_rdoc() { }
};
bool TReport_rdoc::set_recordset(const TString& sql)
{
TRecordset_rdoc* rs = new TRecordset_rdoc(sql);
return TReport::set_recordset(rs);
}
void TReport_rdoc::set_filter(const TMask_rdoc& msk, int cms_row)
{
TRecordset_rdoc* rs = (TRecordset_rdoc*)recordset();
rs->set_filter(msk, cms_row);
}
///////////////////////////////////////////////////////////
// TStampa_rdoc
///////////////////////////////////////////////////////////
class TStampa_rdoc : public TSkeleton_application
{
protected:
virtual void main_loop();
};
void TStampa_rdoc::main_loop()
{
TMask_rdoc m;
while (m.run() != K_QUIT)
{
TReport_book book;
TReport_rdoc rep;
const TString& repname = m.get(F_REPORT);
rep.load(repname);
TSheet_field& sf = m.sfield(F_COMMESSE);
if (sf.items() == 0)
sf.row(-1);
for (int i = 0; i < sf.items(); i++)
{
rep.set_filter(m, i);
book.add(rep);
}
book.print_or_preview();
}
}
int ci1200(int argc, char* argv[])
{
TStampa_rdoc sd;
sd.run(argc, argv, "Stampa documenti");
return 0;
}

17
ci/ci1200.h Executable file
View File

@ -0,0 +1,17 @@
#define F_REPORT 101
#define F_DA_DATA 103
#define F_A_DATA 104
#define F_TIPOCF 105
#define F_DA_CLIFO 106
#define F_A_CLIFO 107
#define F_DA_CODART 108
#define F_A_CODART 109
#define F_TIPI 201
#define F_COMMESSE 202
#define S_CDC1 101
#define S_CDC12 112

307
ci/ci1200.uml Executable file
View File

@ -0,0 +1,307 @@
#include "ci1200.h"
TOOLBAR "Toolbar" 0 -3 0 3
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 0 "Profilo "
PSELECT
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Documenti" 0 0 0 -3
STRING F_REPORT 32
BEGIN
PROMPT 1 0 "Tipo di stampa "
RSELECT "ci1200"
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 20 4
BEGIN
PROMPT 1 1 "@bData"
END
DATA F_DA_DATA
BEGIN
PROMPT 2 2 "Dal "
END
DATA F_A_DATA
BEGIN
PROMPT 2 3 "Al "
END
GROUPBOX DLG_NULL 20 4
BEGIN
PROMPT 22 1 ""
END
LIST F_TIPOCF 1 9
BEGIN
PROMPT 22 1 ""
ITEM "C|Clienti"
ITEM "F|Fornitori"
END
NUMBER F_DA_CLIFO 6
BEGIN
PROMPT 23 2 "Dal "
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_DA_CLIFO
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_DA_CLIFO CODCF
CHECKTYPE NORMAL
END
NUMBER F_A_CLIFO 6
BEGIN
PROMPT 23 3 "Al "
COPY USE F_DA_CLIFO
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_DA_CLIFO
COPY DISPLAY F_DA_CLIFO
OUTPUT F_A_CLIFO CODCF
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 35 4
BEGIN
PROMPT 43 1 "@bArticolo"
END
STRING F_DA_CODART 20
BEGIN
PROMPT 44 2 "Dal "
USE LF_ANAMAG
INPUT CODART F_DA_CODART
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DA_CODART CODART
CHECKTYPE SEARCH
END
STRING F_A_CODART 20
BEGIN
PROMPT 44 3 "Al "
COPY USE F_DA_CODART
INPUT CODART F_A_CODART
COPY DISPLAY F_DA_CODART
OUTPUT F_A_CODART CODART
CHECKTYPE SEARCH
END
TEXT DLG_NULL
BEGIN
PROMPT 1 5 "@bTipi documento"
END
SPREADSHEET F_TIPI 0 5
BEGIN
PROMPT 0 6 ""
ITEM "Numerazione"
ITEM "Descrizione@50"
ITEM "Tipo"
ITEM "Descrizione@50"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 11 "@bCommesse"
END
SPREADSHEET F_COMMESSE
BEGIN
PROMPT 0 12 ""
ITEM "Cdc1@20"
ITEM "Cdc2@20"
ITEM "Cdc3@20"
ITEM "Cdc4@20"
ITEM "Cdc5@20"
ITEM "Cdc6@20"
ITEM "Cdc7@20"
ITEM "Cdc8@20"
ITEM "Cdc9@20"
ITEM "Cdc10@20"
ITEM "Cdc11@20"
ITEM "Cdc12@20"
END
ENDPAGE
ENDMASK
PAGE "Tipi" -1 -1 68 7
STRING 101 4
BEGIN
PROMPT 1 1 "Numerazione "
USE %NUM
INPUT CODTAB 101
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 101 CODTAB
OUTPUT 102 S0
CHECKTYPE NORMAL
END
STRING 102 50
BEGIN
PROMPT 13 2 ""
USE %NUM KEY 2
INPUT S0 102
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT 101
CHECKTYPE NORMAL
END
STRING 103 4
BEGIN
PROMPT 1 3 "Tipo documento "
USE %TIP
INPUT CODTAB 103
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 103 CODTAB
OUTPUT 104 S0
CHECKTYPE NORMAL
END
STRING 104 50
BEGIN
PROMPT 13 4 ""
USE %TIP KEY 2
INPUT S0 104
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT 103
CHECKTYPE NORMAL
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Commesse" -1 -1 78 14
STRING 101 20
BEGIN
PROMPT 1 1 "Cdc1 "
FLAGS "B"
END
STRING 102 20
BEGIN
PROMPT 1 2 "Cdc2 "
FLAGS "B"
END
STRING 103 20
BEGIN
PROMPT 1 3 "Cdc3 "
FLAGS "B"
END
STRING 104 20
BEGIN
PROMPT 1 4 "Cdc4 "
FLAGS "B"
END
STRING 105 20
BEGIN
PROMPT 1 5 "Cdc5 "
FLAGS "B"
END
STRING 106 20
BEGIN
PROMPT 1 6 "Cdc6 "
FLAGS "B"
END
STRING 107 20
BEGIN
PROMPT 1 7 "Cdc7 "
FLAGS "B"
END
STRING 108 20
BEGIN
PROMPT 1 8 "Cdc8 "
FLAGS "B"
END
STRING 109 20
BEGIN
PROMPT 1 9 "Cdc9 "
FLAGS "B"
END
STRING 110 20
BEGIN
PROMPT 1 10 "Cdc10 "
FLAGS "B"
END
STRING 111 20
BEGIN
PROMPT 1 11 "Cdc11 "
FLAGS "B"
END
STRING 112 20
BEGIN
PROMPT 1 12 "Cdc12 "
FLAGS "B"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK

154
ci/ci1200a.rep Executable file
View File

@ -0,0 +1,154 @@
<report libraries="ci1200" name="ci1200a" lpi="6">
<description>Stampa Analitica Risorse</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Testo" align="center" width="60" pattern="1" text="Stampa Analitica Risorse">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="64" type="Data" width="13" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="78.5" type="Stringa" width="7.5" pattern="1" text="Pag. ">
<source>#REPORT.PAGE</source>
</field>
<field x="86" type="Testo" width="1" pattern="1" text="&#2F;" />
<field x="87" type="Numero" align="right" width="3" pattern="1">
<source>#BOOKPAGES</source>
</field>
<field x="1" y="1" type="Testo" hidden="1" width="10" height="0" pattern="1" text="Cantiere" />
<field y="2" type="Testo" width="10" pattern="1" text="Cantiere:" />
<field x="16" y="2" type="Stringa" width="50" pattern="1">
<prescript description="H0.0 PRESCRIPT">MESSAGE _ISAMREAD,147,CODCMS=#10,DESCRIZ</prescript>
</field>
<field y="3" type="Stringa" width="30" pattern="1" text="Da Data: ">
<source>#S_DATEFROM</source>
</field>
<field x="31" y="3" type="Stringa" width="30" pattern="1" text="a Data: ">
<source>#S_DATETO</source>
</field>
<field border="1" y="5" type="Linea" width="90" height="0" pattern="1" />
<field border="1" x="10.8" y="5" type="Linea" pattern="1" />
<field x="11.5" y="5" type="Testo" width="6.5" pattern="1" text="Data">
<font face="Courier New" size="8" />
</field>
<field border="1" x="18" y="5" type="Linea" pattern="1" />
<field x="18.5" y="5" type="Testo" width="8" pattern="1" text="Codice">
<font face="Courier New" size="8" />
</field>
<field border="1" x="30.8" y="5" type="Linea" pattern="1" />
<field x="31" y="5" type="Testo" width="30" pattern="1" text="Risorsa">
<font face="Courier New" size="8" />
</field>
<field border="1" x="61.8" y="5" type="Linea" pattern="1" />
<field x="62" y="5" type="Testo" width="4" pattern="1" text="U.M.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="65.8" y="5" type="Linea" pattern="1" />
<field x="66" y="5" type="Testo" width="4" pattern="1" text="Qt&#E0;">
<font face="Courier New" size="8" />
</field>
<field border="1" x="69.8" y="5" type="Linea" pattern="1" />
<field x="70" y="5" type="Testo" width="10" pattern="1" text="Costo Uni.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="79.8" y="5" type="Linea" pattern="1" />
<field x="80" y="5" type="Testo" width="10" pattern="1" text="Totale">
<font face="Courier New" size="8" />
</field>
<field border="1" y="6" type="Linea" width="90" height="0" pattern="1" />
<field x="9.5" y="2" type="Stringa" width="6" id="10" pattern="1">
<source>#S_CMS</source>
</field>
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.330</prescript>
</section>
<section type="Head" level="2">
<groupby>.</groupby>
</section>
<section type="Head" level="3">
<groupby>DOC.TIPODOC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.110|RESET,F3.130</prescript>
<field type="Stringa" hidden="1" width="20" pattern="1" text="Cliente: ">
<font face="Courier New" size="8" />
<source>DOC.TIPODOC</source>
<prescript description="H3.0 PRESCRIPT">MESSAGE COPY,F3.511</prescript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>RDOC.CODART!='' &#26;&#26; RDOC.CODART!=' '</condition>
<field x="4.5" type="Numero" align="right" width="6" pattern="1">
<font face="Courier New" size="7" />
<source>NDOC</source>
</field>
<field border="1" x="10.8" type="Linea" pattern="1" />
<field x="11.3" type="Stringa" width="7" pattern="1">
<font face="Courier New" size="7" />
<source>DOC.DATADOC</source>
</field>
<field border="1" x="18" type="Linea" pattern="1" />
<field x="18.5" type="Stringa" width="12" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODART</source>
</field>
<field border="1" x="30.8" type="Linea" pattern="1" />
<field x="31" type="Stringa" width="30" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.DESCR</source>
</field>
<field border="1" x="61.8" type="Linea" pattern="1" />
<field x="62" type="Stringa" align="center" width="4" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.UMQTA</source>
</field>
<field border="1" x="65.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="79.8" type="Linea" pattern="1" />
<field x="66" type="Numero" align="right" width="3.6" id="1" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.QTA</source>
</field>
<field x="70" type="Valuta" align="right" width="9.6" id="2" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>RDOC.PREZZO</source>
</field>
<field x="80" type="Valuta" align="right" width="9.6" id="3" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>#1*#2</source>
<prescript description="B1.3 PRESCRIPT">MESSAGE ADD,F3.130|ADD,F2.230|ADD,F1.330</prescript>
</field>
</section>
<section type="Foot">
<field border="1" y="0.5" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Foot" level="1">
<field y="1" type="Testo" width="18" pattern="1" text="Totale Generale">
<font face="Courier New" bold="1" size="8" />
</field>
<field x="64" y="1" type="Valuta" align="right" width="25.6" id="330" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="2" />
<section type="Foot" level="3">
<field border="1" x="10.8" type="Linea" width="79.2" height="0" pattern="1" />
<field border="1" x="10.8" type="Linea" pattern="1" />
<field x="11" type="Stringa" width="40" pattern="1" text="Totale Tipologia: ">
<font face="Courier New" size="7" />
<prescript description="F3.0 PRESCRIPT">MESSAGE _TABLEREAD,%TIP,#511,S0</prescript>
</field>
<field border="1" x="10.8" y="1" type="Linea" width="79.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
</field>
<field x="1" type="Stringa" width="5" id="511" pattern="1">
<font face="Courier New" size="7" />
</field>
</section>
<sql>USE RDOC KEY 2
BY 33.TIPODOC 33.DATADOC
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
</sql>
</report>

184
ci/ci1200b.rep Executable file
View File

@ -0,0 +1,184 @@
<report libraries="ci1200" name="ci1200b" lpi="6">
<description>Stampa Analitica Risorse per Cliente</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Testo" align="center" width="90" pattern="1" text="Stampa Analitica Risorse per Cliente">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="67" type="Data" width="11.5" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="79" type="Stringa" align="right" width="10" pattern="1" text="Pag. ">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Testo" width="9" pattern="1" text="Cantiere" />
<field x="15.37" y="2.06" type="Stringa" width="50" pattern="1">
<prescript>MESSAGE _ISAMREAD,147,CODCMS=#10,DESCRIZ</prescript>
</field>
<field y="3" type="Stringa" width="30" pattern="1" text="Da Data: ">
<source>#S_DATEFROM</source>
</field>
<field x="31" y="3" type="Stringa" width="30" pattern="1" text="a Data: ">
<source>#S_DATETO</source>
</field>
<field y="5" type="Testo" width="8" pattern="1" text="Cliente">
<font face="Courier New" size="8" />
</field>
<field border="1" y="5" type="Linea" width="90" height="0" pattern="1" />
<field border="1" x="10.8" y="5" type="Linea" pattern="1" />
<field x="11" y="5" type="Testo" width="10" pattern="1" text="Data">
<font face="Courier New" size="8" />
</field>
<field border="1" x="20.8" y="5" type="Linea" pattern="1" />
<field x="21" y="5" type="Testo" width="15" pattern="1" text="Codice">
<font face="Courier New" size="8" />
</field>
<field border="1" x="30.8" y="5" type="Linea" pattern="1" />
<field x="31" y="5" type="Testo" width="30" pattern="1" text="Risorsa">
<font face="Courier New" size="8" />
</field>
<field border="1" x="61.8" y="5" type="Linea" pattern="1" />
<field x="62" y="5" type="Testo" width="4" pattern="1" text="U.M.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="65.8" y="5" type="Linea" pattern="1" />
<field x="66" y="5" type="Testo" width="4" pattern="1" text="Qt&#E0;">
<font face="Courier New" size="8" />
</field>
<field border="1" x="69.8" y="5" type="Linea" pattern="1" />
<field x="70" y="5" type="Testo" width="10" pattern="1" text="Costo Uni.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="79.8" y="5" type="Linea" pattern="1" />
<field x="80" y="5" type="Testo" width="10" pattern="1" text="Totale">
<font face="Courier New" size="8" />
</field>
<field border="1" y="6" type="Linea" width="90" height="0" pattern="1" />
<field x="9.5" y="2" type="Stringa" width="5.5" id="10" pattern="1">
<source>#S_CMS</source>
</field>
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.330</prescript>
</section>
<section keep_with_next="1" type="Head" level="2">
<groupby>DOC.CODCF</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.230</prescript>
<field type="Stringa" width="80" pattern="1" text="Cliente: ">
<font face="Courier New" bold="1" size="8" />
<source>IF(CLIFO.RAGSOC="","(Cod. "+DOC.CODCF+")",DOC.CODCF+' - '+CLIFO.RAGSOC)</source>
<prescript description="H2.0 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
<field border="1" x="10.8" y="1" type="Linea" width="79.2" height="0" pattern="1" />
</section>
<section keep_with_next="1" type="Head" level="3">
<groupby>DOC.NDOC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.110|RESET,F3.130</prescript>
<field type="Stringa" hidden="1" width="20" pattern="1" text="Cliente: ">
<font face="Courier New" size="8" />
<source>DOC.TIPODOC</source>
<prescript description="H3.0 PRESCRIPT">MESSAGE COPY,F3.511</prescript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>RDOC.CODART!='' &#26;&#26; RDOC.CODART!=' '</condition>
<field x="5" type="Stringa" align="right" width="5.5" pattern="1">
<font face="Courier New" size="7" />
<source>DOC.NDOC</source>
</field>
<field border="1" x="10.8" type="Linea" pattern="1" />
<field x="11" type="Stringa" width="7.5" pattern="1">
<font face="Courier New" size="7" />
<source>DOC.DATADOC</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE</postscript>
</field>
<field border="1" x="18.8" type="Linea" pattern="1" />
<field x="19" type="Stringa" width="11.5" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODART</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE SHOW,10|HIDE,20
MESSAGE EMPTY SHOW,20|HIDE,10</prescript>
</field>
<field border="1" x="30.8" type="Linea" pattern="1" />
<field border="1" x="61.8" type="Linea" pattern="1" />
<field x="62" type="Stringa" align="center" width="4" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.UMQTA</source>
</field>
<field border="1" x="65.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="79.8" type="Linea" pattern="1" />
<field y="1" type="Stringa" hidden="1" width="10" id="1" pattern="1">
<source>DESCR</source>
<prescript description="B1.1 PRESCRIPT">MESSAGE COPY,10</prescript>
</field>
<field x="11" y="1" deactivated="1" type="Stringa" hidden="1" width="10" id="2" pattern="1">
<source>DESCEST</source>
<prescript description="B1.2 PRESCRIPT">MESSAGE APPEND,10</prescript>
</field>
<field x="31" type="Stringa" hidden="1" dynamic_height="1" width="30" height="2" id="10" pattern="1">
<font face="Courier New" size="7" />
</field>
<field x="31" type="Stringa" hidden="1" width="30" id="20" pattern="1">
<font face="Courier New" bold="1" size="7" />
<source>RDOC.DESCR</source>
</field>
<field x="66" type="Numero" align="right" width="3.6" id="50" pattern="1" hide_zero="1">
<font face="Courier New" size="7" />
<source>RDOC.QTA</source>
<postscript description="B1.50 POSTSCRIPT">MESSAGE RESET,2</postscript>
</field>
<field x="70" type="Valuta" align="right" width="9.6" id="80" pattern="1" hide_zero="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>RDOC.PREZZO</source>
</field>
<field x="80" type="Valuta" align="right" width="9.6" id="100" pattern="1" hide_zero="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>#50*#80</source>
<prescript description="B1.100 PRESCRIPT">MESSAGE ADD,F3.130|ADD,F2.230|ADD,F1.330</prescript>
</field>
</section>
<section type="Foot">
<field border="1" y="0.5" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Foot" level="1">
<field y="1" type="Testo" width="18" pattern="1" text="Totale Generale">
<font face="Courier New" bold="1" size="8" />
</field>
<field x="64" y="1" type="Valuta" align="right" width="25.6" id="330" pattern="1" text="#########,@@">
<font face="Courier New" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="2">
<field border="1" x="10.8" type="Linea" pattern="1" />
<field border="1" x="10.8" type="Linea" width="79.2" height="0" pattern="1" />
<field border="3" x="10.8" y="1" type="Linea" width="79.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="230" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="11" type="Stringa" width="60" id="521" pattern="1" text="Totale Cliente ">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="3">
<field border="1" x="10.8" type="Linea" pattern="1" />
<field border="1" x="10.8" type="Linea" width="79.2" height="0" pattern="1" />
<field x="11" type="Stringa" width="40" pattern="1" text="Totale Tipologia: ">
<font face="Courier New" size="7" />
<prescript description="F3.0 PRESCRIPT">MESSAGE _TABLEREAD,%TIP,#511,S0</prescript>
</field>
<field border="1" x="10.8" y="1" type="Linea" width="79.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="1" type="Stringa" width="5" id="511" pattern="1">
<font face="Courier New" size="7" />
</field>
</section>
<sql>USE RDOC KEY 2 SELECT (((CODNUM=#S_CODNUM)||(CODNUM='MNI')||(CODNUM='DFNI')||(CODNUM='FCI'))&#26;&#26;STR(CODCMS=#S_CMS)&#26;&#26;NUM(ANSI(33.DATADOC)&#3E;=ANSI(#S_DATEFROM))&#26;&#26;NUM(ANSI(33.DATADOC)&#3C;=#S_DATETO)&#26;&#26;(33.CODCF&#3E;=#DACF)&#26;&#26;(33.CODCF&#3C;=#ACF))
BY 20.RAGSOC 33.NDOC 33.DATADOC NRIGA
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN CLIFO TO DOC INTO CODCF=CODCF TIPOCF=TIPOCF
</sql>
</report>

170
ci/ci1200c.rep Executable file
View File

@ -0,0 +1,170 @@
<report libraries="ci1200" name="ci1200c" lpi="6">
<description>Stampa Analitica Risorse e Cantiere</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Testo" width="10" height="0" pattern="1" text="Cantiere" />
<field type="Testo" align="center" width="120" pattern="1" text="Stampa Analitica Risorse e Cantiere">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="97" type="Data" width="14" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="112" type="Numero" align="right" width="8" pattern="1" text="Pag. ">
<source>#REPORT.PAGE</source>
</field>
<field y="3" type="Stringa" width="30" pattern="1" text="Da Data: ">
<source>#S_DATEFROM</source>
</field>
<field x="31" y="3" type="Stringa" width="30" pattern="1" text="a Data: ">
<source>#S_DATETO</source>
</field>
<field border="1" y="5" type="Linea" width="120" height="0" pattern="1" />
<field border="1" x="10.8" y="5" type="Linea" pattern="1" />
<field x="11" y="5" type="Testo" width="10" pattern="1" text="Data">
<font face="Courier New" size="8" />
</field>
<field border="1" x="20.8" y="5" type="Linea" pattern="1" />
<field x="21" y="5" type="Testo" width="15" pattern="1" text="Codice">
<font face="Courier New" size="8" />
</field>
<field border="1" x="30.8" y="5" type="Linea" pattern="1" />
<field x="31" y="5" type="Testo" width="30" pattern="1" text="Risorsa">
<font face="Courier New" size="8" />
</field>
<field border="1" x="61.8" y="5" type="Linea" pattern="1" />
<field x="62" y="5" type="Testo" width="4" pattern="1" text="U.M.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="65.8" y="5" type="Linea" pattern="1" />
<field x="66" y="5" type="Testo" width="4" pattern="1" text="Qt&#E0;">
<font face="Courier New" size="8" />
</field>
<field border="1" x="69.8" y="5" type="Linea" pattern="1" />
<field x="70" y="5" type="Testo" width="10" pattern="1" text="Costo Uni.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="79.8" y="5" type="Linea" pattern="1" />
<field x="80" y="5" type="Testo" width="10" pattern="1" text="Totale">
<font face="Courier New" size="8" />
</field>
<field border="1" x="89.8" y="5" type="Linea" pattern="1" />
<field x="90" y="5" type="Testo" width="10" pattern="1" text="Cantiere">
<font face="Courier New" size="8" />
</field>
<field border="1" y="6" type="Linea" width="120" height="0" pattern="1" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.330</prescript>
</section>
<section type="Head" level="2" />
<section keep_with_next="1" type="Head" level="3">
<groupby>DOC.TIPODOC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.110|RESET,F3.130</prescript>
<field type="Stringa" hidden="1" width="20" pattern="1" text="Cliente: ">
<font face="Courier New" size="8" />
<source>DOC.TIPODOC</source>
<prescript description="H3.0 PRESCRIPT">MESSAGE COPY,F3.511</prescript>
</field>
<field border="1" x="10.8" y="1" type="Linea" width="109.2" height="0" pattern="1" />
</section>
<section keep_with_next="1" type="Head" level="4">
<groupby>RDOC.CODART</groupby>
<field type="Stringa" hidden="1" width="20" pattern="1" text="Codice Articolo: ">
<font face="Courier New" size="8" />
<source>RDOC.CODART</source>
<prescript description="H4.0 PRESCRIPT">MESSAGE COPY,F4.501</prescript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>RDOC.CODART!='' &#26;&#26; RDOC.CODART!=' '</condition>
<field border="1" x="10.8" type="Linea" pattern="1" />
<field x="11" type="Stringa" width="10" pattern="1">
<font face="Courier New" size="7" />
<source>DOC.DATADOC</source>
</field>
<field border="1" x="20.8" type="Linea" pattern="1" />
<field x="21" type="Stringa" width="10" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODART</source>
</field>
<field border="1" x="30.8" type="Linea" pattern="1" />
<field x="31" type="Stringa" width="30" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.DESCR</source>
</field>
<field border="1" x="61.8" type="Linea" pattern="1" />
<field x="62" type="Stringa" align="center" width="4" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.UMQTA</source>
</field>
<field border="1" x="65.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="79.8" type="Linea" pattern="1" />
<field border="1" x="89.8" type="Linea" pattern="1" />
<field x="90" type="Stringa" width="10" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODCMS</source>
</field>
<field x="100" type="Stringa" width="20" pattern="1">
<font face="Courier New" size="7" />
<source>COMMESSE.DESCRIZ</source>
</field>
<field x="66" type="Numero" align="right" width="3.6" id="1" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.QTA</source>
</field>
<field x="70" type="Valuta" align="right" width="9.6" id="2" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>RDOC.PREZZO</source>
</field>
<field x="80" type="Valuta" align="right" width="9.6" id="3" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>#1*#2</source>
<prescript description="B1.3 PRESCRIPT">MESSAGE ADD,F3.130|ADD,F2.230|ADD,F1.330</prescript>
</field>
</section>
<section type="Foot">
<field border="1" y="0.5" type="Linea" width="120" height="0" pattern="1" />
</section>
<section type="Foot" level="1">
<field y="1" type="Testo" width="18" pattern="1" text="Totale Generale">
<font face="Courier New" bold="1" size="8" />
</field>
<field x="64" y="1" type="Valuta" align="right" width="25.6" id="330" pattern="1" text="#########,@@">
<font face="Courier New" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="2" />
<section type="Foot" level="3">
<field border="1" x="10.8" type="Linea" pattern="1" />
<field border="1" x="10.8" type="Linea" width="109.2" height="0" pattern="1" />
<field x="11" type="Stringa" width="40" pattern="1" text="Totale Tipologia: ">
<font face="Courier New" size="7" />
<prescript description="F3.0 PRESCRIPT">MESSAGE _TABLEREAD,%TIP,#511,S0</prescript>
</field>
<field border="3" x="10.8" y="1" type="Linea" width="109.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="1" type="Stringa" hidden="1" width="5" id="511" pattern="1">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="4">
<field border="1" x="10.8" type="Linea" pattern="1" />
<field border="1" x="10.8" type="Linea" width="109.2" height="0" pattern="1" />
<field border="1" x="10.8" y="1" type="Linea" width="109.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="11" type="Stringa" width="40" id="501" pattern="1" text="Totale Articolo: ">
<font face="Courier New" size="7" />
</field>
</section>
<sql>USE RDOC KEY 2 SELECT ((CODNUM=#S_CODNUM)&#26;&#26;NUM(ANSI(33.DATADOC)&#3E;=ANSI(#S_DATEFROM))&#26;&#26;NUM(ANSI(33.DATADOC)&#3C;=#S_DATETO))
BY 33.TIPODOC CODART CODCMS 33.DATADOC
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN COMMESSE INTO CODCMS=CODCMS
</sql>
</report>

173
ci/ci1200d.rep Executable file
View File

@ -0,0 +1,173 @@
<report libraries="ci1200" name="ci1200d" lpi="6">
<description>Stampa Analitica Risorse e Cantiere per Cliente</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Testo" width="10" height="0" pattern="1" text="Cantiere" />
<field type="Testo" align="center" width="120" pattern="1" text="Stampa Analitica Risorse e Cantiere per Cliente">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="97" type="Data" width="14" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="112" type="Data" width="8" pattern="1" text="Pag. ">
<source>#REPORT.PAGE</source>
</field>
<field y="3" type="Stringa" width="30" pattern="1" text="Da Data: ">
<source>#S_DATEFROM</source>
</field>
<field x="31" y="3" type="Stringa" width="30" pattern="1" text="a Data: ">
<source>#S_DATETO</source>
</field>
<field y="5" type="Testo" width="8" pattern="1" text="Cliente">
<font face="Courier New" size="8" />
</field>
<field border="1" y="5" type="Linea" width="120" height="0" pattern="1" />
<field border="1" x="10.8" y="5" type="Linea" pattern="1" />
<field x="11" y="5" type="Testo" width="10" pattern="1" text="Data">
<font face="Courier New" size="8" />
</field>
<field border="1" x="20.8" y="5" type="Linea" pattern="1" />
<field x="21" y="5" type="Testo" width="15" pattern="1" text="Codice">
<font face="Courier New" size="8" />
</field>
<field border="1" x="30.8" y="5" type="Linea" pattern="1" />
<field x="31" y="5" type="Testo" width="30" pattern="1" text="Risorsa">
<font face="Courier New" size="8" />
</field>
<field border="1" x="61.8" y="5" type="Linea" pattern="1" />
<field x="62" y="5" type="Testo" width="4" pattern="1" text="U.M.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="65.8" y="5" type="Linea" pattern="1" />
<field x="66" y="5" type="Testo" width="4" pattern="1" text="Qt&#E0;">
<font face="Courier New" size="8" />
</field>
<field border="1" x="69.8" y="5" type="Linea" pattern="1" />
<field x="70" y="5" type="Testo" width="10" pattern="1" text="Costo Uni.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="79.8" y="5" type="Linea" pattern="1" />
<field x="80" y="5" type="Testo" width="10" pattern="1" text="Totale">
<font face="Courier New" size="8" />
</field>
<field border="1" x="89.8" y="5" type="Linea" pattern="1" />
<field x="90" y="5" type="Testo" width="10" pattern="1" text="Cantiere">
<font face="Courier New" size="8" />
</field>
<field border="1" y="6" type="Linea" width="120" height="0" pattern="1" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.330</prescript>
</section>
<section keep_with_next="1" type="Head" level="2">
<groupby>DOC.CODCF</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.230</prescript>
<field type="Stringa" width="80" pattern="1" text="Cliente: ">
<font face="Courier New" size="8" />
<source>IF(CLIFO.RAGSOC="","(Cod. "+DOC.CODCF+")",CLIFO.RAGSOC)</source>
<prescript description="H2.0 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
<field border="1" x="10.8" y="1" type="Linea" width="109.2" height="0" pattern="1" />
</section>
<section keep_with_next="1" type="Head" level="3">
<groupby>DOC.TIPODOC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.110|RESET,F3.130</prescript>
<field type="Stringa" hidden="1" width="20" pattern="1" text="Cliente: ">
<font face="Courier New" size="8" />
<source>DOC.TIPODOC</source>
<prescript description="H3.0 PRESCRIPT">MESSAGE COPY,F3.511</prescript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>RDOC.CODART!='' &#26;&#26; RDOC.CODART!=' '</condition>
<field border="1" x="10.8" type="Linea" pattern="1" />
<field x="11" type="Stringa" width="10" pattern="1">
<font face="Courier New" size="7" />
<source>DOC.DATADOC</source>
</field>
<field border="1" x="20.8" type="Linea" pattern="1" />
<field x="21" type="Stringa" width="10" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODART</source>
</field>
<field border="1" x="30.8" type="Linea" pattern="1" />
<field x="31" type="Stringa" width="30" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.DESCR</source>
</field>
<field border="1" x="61.8" type="Linea" pattern="1" />
<field x="62" type="Stringa" align="center" width="4" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.UMQTA</source>
</field>
<field border="1" x="65.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="79.8" type="Linea" pattern="1" />
<field border="1" x="89.8" type="Linea" pattern="1" />
<field x="90" type="Stringa" width="10" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODCMS</source>
</field>
<field x="100" type="Stringa" width="20" pattern="1">
<font face="Courier New" size="7" />
<source>COMMESSE.DESCRIZ</source>
</field>
<field x="66" type="Numero" align="right" width="3.6" id="1" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.QTA</source>
</field>
<field x="70" type="Valuta" align="right" width="9.6" id="2" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>RDOC.PREZZO</source>
</field>
<field x="80" type="Valuta" align="right" width="9.6" id="3" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>#1*#2</source>
<prescript description="B1.3 PRESCRIPT">MESSAGE ADD,F3.130|ADD,F2.230|ADD,F1.330</prescript>
</field>
</section>
<section type="Foot">
<field border="1" y="0.5" type="Linea" width="120" height="0" pattern="1" />
</section>
<section type="Foot" level="1">
<field y="1" type="Testo" width="18" pattern="1" text="Totale Generale">
<font face="Courier New" bold="1" size="8" />
</field>
<field x="64" y="1" type="Valuta" align="right" width="25.6" id="330" pattern="1" text="#########,@@">
<font face="Courier New" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="2">
<field border="1" x="10.8" type="Linea" pattern="1" />
<field border="1" x="10.8" type="Linea" width="109.2" height="0" pattern="1" />
<field border="3" x="10.8" y="1" type="Linea" width="109.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="230" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="11" type="Stringa" width="60" id="521" pattern="1" text="Totale Cliente ">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="3">
<field border="1" x="10.8" type="Linea" pattern="1" />
<field border="1" x="10.8" type="Linea" width="109.2" height="0" pattern="1" />
<field x="11" type="Stringa" width="40" pattern="1" text="Totale Tipologia: ">
<font face="Courier New" size="7" />
<prescript description="F3.0 PRESCRIPT">MESSAGE _TABLEREAD,%TIP,#511,S0</prescript>
</field>
<field border="1" x="10.8" y="1" type="Linea" width="109.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="1" type="Stringa" hidden="1" width="5" id="511" pattern="1">
<font face="Courier New" size="7" />
</field>
</section>
<sql>USE RDOC KEY 2 SELECT ((CODNUM=#S_CODNUM)&#26;&#26;NUM(ANSI(33.DATADOC)&#3E;=ANSI(#S_DATEFROM))&#26;&#26;NUM(ANSI(33.DATADOC)&#3C;=#S_DATETO))
BY 20.RAGSOC 33.TIPODOC 34.CODCMS 33.DATADOC
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN CLIFO TO DOC INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN COMMESSE INTO CODCMS=CODCMS
</sql>
</report>

131
ci/ci1200e.rep Executable file
View File

@ -0,0 +1,131 @@
<report libraries="ci1200" name="ci1200e" lpi="6">
<description>Stampa Riepilogativa Risorse</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Testo" align="center" width="90" pattern="1" text="Stampa Riepilogativa Risorse">
<font face="Courier New" bold="1" size="10" />
</field>
<field type="Testo" width="10" height="0" pattern="1" text="Cantiere" />
<field x="67" type="Data" width="14" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="82" type="Numero" align="right" width="8" pattern="1" text="Pag. ">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Stringa" width="30" pattern="1" text="Da Cantiere: ">
<source>#S_CMSFROM</source>
</field>
<field x="31" y="2" type="Stringa" width="30" pattern="1" text="a Cantiere: ">
<source>#S_CMSTO</source>
</field>
<field y="3" type="Stringa" width="30" pattern="1" text="Da Data: ">
<source>#S_DATEFROM</source>
</field>
<field x="31" y="3" type="Stringa" width="30" pattern="1" text="a Data: ">
<source>#S_DATETO</source>
</field>
<field y="5" type="Testo" width="8" pattern="1" text="Cantiere">
<font face="Courier New" size="8" />
</field>
<field border="1" y="5" type="Linea" width="90" height="0" pattern="1" />
<field border="1" x="61.8" y="5" type="Linea" pattern="1" />
<field x="80" y="5" type="Testo" width="10" pattern="1" text="Totale">
<font face="Courier New" size="8" />
</field>
<field border="1" y="6" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.330</prescript>
</section>
<section keep_with_next="1" type="Head" level="2">
<groupby>CODCMS</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.230</prescript>
<field border="1" x="20.8" y="1" type="Linea" width="69.2" height="0" pattern="1" />
<field y="2" type="Stringa" hidden="1" width="20" id="901" pattern="1">
<font face="Courier New" size="8" />
<source>DOC.CODCMS</source>
<prescript description="H2.901 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
<field x="21" y="2" type="Stringa" hidden="1" width="20" id="902" pattern="1">
<font face="Courier New" size="8" />
<source>COMMESSE.DESCRIZ</source>
<prescript description="H2.902 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
<field type="Stringa" width="80" id="903" pattern="1" text="Cantiere: ">
<font face="Courier New" size="8" />
<source>iF(#901!="",#901+" - "+#902,"Non Specificato")</source>
<prescript description="H2.903 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
</section>
<section keep_with_next="1" type="Head" level="3">
<groupby>DOC.TIPODOC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.110|RESET,F3.130</prescript>
<field y="0.06" type="Stringa" hidden="1" width="20" pattern="1">
<font face="Courier New" size="8" />
<source>DOC.TIPODOC</source>
<prescript description="H3.0 PRESCRIPT">MESSAGE COPY,F3.511</prescript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>RDOC.CODART!='' &#26;&#26; RDOC.CODART!=' '</condition>
<field x="66.12" type="Numero" hidden="1" align="right" width="4" id="1" pattern="1">
<font face="Courier New" size="8" />
<source>RDOC.QTA</source>
<prescript description="B1.1 PRESCRIPT">MESSAGE ADD,F4.10|ADD,F3.110</prescript>
</field>
<field x="70.12" type="Valuta" hidden="1" align="right" width="10" id="2" pattern="1" text="#########,@@">
<font face="Courier New" size="8" />
<source>RDOC.PREZZO</source>
</field>
<field x="80.12" type="Valuta" hidden="1" align="right" width="10" id="3" pattern="1" text="#########,@@">
<font face="Courier New" size="8" />
<source>#1*#2</source>
<prescript description="B1.3 PRESCRIPT">MESSAGE ADD,F3.130|ADD,F2.230|ADD,F1.330</prescript>
</field>
</section>
<section type="Foot">
<field border="1" y="0.5" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Foot" level="1">
<field y="1" type="Testo" width="18" pattern="1" text="Totale Generale">
<font face="Courier New" bold="1" size="8" />
</field>
<field x="64" y="1" type="Valuta" align="right" width="25.6" id="330" pattern="1" text="#########,@@">
<font face="Courier New" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="2">
<field border="1" x="20.8" type="Linea" pattern="1" />
<field border="1" x="20.8" type="Linea" width="69.2" height="0" pattern="1" />
<field border="3" x="20.8" y="1" type="Linea" width="69.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="230" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="21" type="Stringa" width="50" id="521" pattern="1" text="Totale Cantiere: ">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="3">
<field border="1" x="20.8" type="Linea" width="69.2" height="0" pattern="1" />
<field border="1" x="20.8" type="Linea" pattern="1" />
<field x="21" type="Stringa" width="40" pattern="1" text="Totale Tipologia: ">
<font face="Courier New" size="7" />
<prescript description="F3.0 PRESCRIPT">MESSAGE _TABLEREAD,%TIP,#511,S0</prescript>
</field>
<field border="1" x="61.8" type="Linea" pattern="1" />
<field border="1" x="20.8" y="1" type="Linea" width="69.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="16" type="Stringa" width="5" id="511" pattern="1">
<font face="Courier New" size="7" />
</field>
</section>
<sql>USE RDOC KEY 2 SELECT (((CODNUM=#S_CODNUM)||(CODNUM='MNI')||(CODNUM='DFNI')||(CODNUM='FCI'))&#26;&#26;STR(CODCMS&#3E;=#S_CMSFROM)&#26;&#26;STR(CODCMS&#3C;=#S_CMSTO)&#26;&#26;NUM(ANSI(33.DATADOC)&#3E;=ANSI(#S_DATEFROM))&#26;&#26;NUM(ANSI(33.DATADOC)&#3C;=#S_DATETO)&#26;&#26;(33.TIPODOC!=''))
BY CODCMS 33.TIPODOC[2,4]
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN COMMESSE INTO CODCMS=CODCMS
</sql>
</report>

200
ci/ci1200f.rep Executable file
View File

@ -0,0 +1,200 @@
<report libraries="ci1200" name="ci1200f" lpi="6">
<description>Stampa Sintetica Risorse</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Testo" width="10" height="0" pattern="1" text="Cantiere" />
<field type="Testo" align="center" width="90" pattern="1" text="Stampa Sintetica Risorse">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="67" type="Data" width="14" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="82" type="Data" width="8" pattern="1" text="Pag. ">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Stringa" width="30" pattern="1" text="Da Cantiere: ">
<source>#S_CMSFROM</source>
</field>
<field x="31" y="2" type="Stringa" width="30" pattern="1" text="a Cantiere: ">
<source>#S_CMSTO</source>
</field>
<field y="3" type="Stringa" width="30" pattern="1" text="Da Data: ">
<source>#S_DATEFROM</source>
</field>
<field x="31" y="3" type="Stringa" width="30" pattern="1" text="a Data: ">
<source>#S_DATETO</source>
</field>
<field border="1" y="5" type="Linea" width="90" height="0" pattern="1" />
<field y="5" type="Testo" width="8" pattern="1" text="Cantiere">
<font face="Courier New" size="8" />
</field>
<field border="1" x="20.8" y="5" type="Linea" pattern="1" />
<field x="21" y="5" type="Testo" width="15" pattern="1" text="Codice">
<font face="Courier New" size="8" />
</field>
<field border="1" x="30.8" y="5" type="Linea" pattern="1" />
<field x="31" y="5" type="Testo" width="30" pattern="1" text="Risorsa">
<font face="Courier New" size="8" />
</field>
<field border="1" x="61.8" y="5" type="Linea" pattern="1" />
<field x="62" y="5" type="Testo" width="4" pattern="1" text="U.M.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="65.8" y="5" type="Linea" pattern="1" />
<field x="66" y="5" type="Testo" width="4" pattern="1" text="Qt&#E0;">
<font face="Courier New" size="8" />
</field>
<field border="1" x="69.8" y="5" type="Linea" pattern="1" />
<field x="70" y="5" type="Testo" width="10" pattern="1" text="Costo Med.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="79.8" y="5" type="Linea" pattern="1" />
<field x="80" y="5" type="Testo" width="10" pattern="1" text="Totale">
<font face="Courier New" size="8" />
</field>
<field border="1" y="6" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.330</prescript>
</section>
<section keep_with_next="1" type="Head" level="2">
<groupby>DOC.CODCMS</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.230</prescript>
<field border="1" x="20.8" y="1" type="Linea" width="69.2" height="0" pattern="1" />
<field y="2" type="Stringa" hidden="1" width="20" id="901" pattern="1">
<font face="Courier New" size="8" />
<source>DOC.CODCMS</source>
<prescript description="H2.901 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
<field x="21" y="2" type="Stringa" hidden="1" width="20" id="902" pattern="1">
<font face="Courier New" size="8" />
<source>COMMESSE.DESCRIZ</source>
<prescript description="H2.902 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
<field type="Stringa" width="80" id="903" pattern="1" text="Cantiere: ">
<font face="Courier New" size="8" />
<source>iF(#901!="",#901+" - "+#902,"Non Specificato")</source>
<prescript description="H2.903 PRESCRIPT">MESSAGE COPY,F2.521</prescript>
</field>
</section>
<section keep_with_next="1" type="Head" level="3">
<groupby>DOC.TIPODOC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.110|RESET,F3.130</prescript>
<field y="0.06" type="Stringa" hidden="1" width="20" pattern="1">
<font face="Courier New" size="8" />
<source>DOC.TIPODOC</source>
<prescript description="H3.0 PRESCRIPT">MESSAGE COPY,F3.511</prescript>
</field>
</section>
<section keep_with_next="1" type="Head" level="4">
<groupby>RDOC.CODART</groupby>
<prescript description="H4 PRESCRIPT">MESSAGE RESET,F4.10|RESET,F4.20|RESET,F4.30</prescript>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>RDOC.CODART!='' &#26;&#26; RDOC.CODART!=' '</condition>
<field x="21" type="Stringa" hidden="1" width="15" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODART</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE COPY,F4.501</prescript>
</field>
<field x="31" type="Stringa" hidden="1" width="30" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.DESCR</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE COPY,F4.502</prescript>
</field>
<field x="62" type="Stringa" hidden="1" align="center" width="4" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.UMQTA</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE COPY,F4.503</prescript>
</field>
<field x="66.12" type="Numero" hidden="1" align="right" width="4" id="1" pattern="1">
<font face="Courier New" size="8" />
<source>RDOC.QTA</source>
<prescript description="B1.1 PRESCRIPT">MESSAGE ADD,F4.10|ADD,F3.110</prescript>
</field>
<field x="70.12" type="Valuta" hidden="1" align="right" width="10" id="2" pattern="1" text="#########,@@">
<font face="Courier New" size="8" />
<source>RDOC.PREZZO</source>
</field>
<field x="80.12" type="Valuta" hidden="1" align="right" width="10" id="3" pattern="1" text="#########,@@">
<font face="Courier New" size="8" />
<source>#1*#2</source>
<prescript description="B1.3 PRESCRIPT">MESSAGE ADD,F4.30|ADD,F3.130|ADD,F2.230|ADD,F1.330</prescript>
</field>
</section>
<section type="Foot">
<field border="1" y="0.5" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Foot" level="1">
<field y="1" type="Testo" width="18" pattern="1" text="Totale Generale">
<font face="Courier New" bold="1" size="8" />
</field>
<field x="64" y="1" type="Valuta" align="right" width="25.6" id="330" pattern="1" text="#########,@@">
<font face="Courier New" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="2">
<field border="1" x="20.8" type="Linea" width="69.2" height="0" pattern="1" />
<field border="1" x="20.8" type="Linea" pattern="1" />
<field border="3" x="20.8" y="1" type="Linea" width="69.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="230" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="21" type="Stringa" width="50" id="521" pattern="1" text="Totale Cantiere: ">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="3">
<field border="1" x="20.8" type="Linea" width="69.2" height="0" pattern="1" />
<field border="1" x="20.8" type="Linea" pattern="1" />
<field x="21" type="Stringa" width="40" pattern="1" text="Totale Tipologia: ">
<font face="Courier New" size="7" />
<prescript description="F3.0 PRESCRIPT">MESSAGE _TABLEREAD,%TIP,#511,S0</prescript>
</field>
<field border="1" x="61.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="20.8" y="1" type="Linea" width="69.2" height="0" pattern="1" />
<field x="63" type="Numero" align="right" width="6.6" id="110" pattern="1">
<font face="Courier New" size="7" />
</field>
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="17" type="Stringa" width="4" id="511" pattern="1">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="4">
<field border="1" x="20.8" type="Linea" pattern="1" />
<field border="1" x="30.8" type="Linea" pattern="1" />
<field border="1" x="61.8" type="Linea" pattern="1" />
<field border="1" x="65.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="79.8" type="Linea" pattern="1" />
<field x="66" type="Numero" align="right" width="3.6" id="10" pattern="1">
<font face="Courier New" size="7" />
</field>
<field x="70" type="Valuta" align="right" width="9.6" id="20" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>#30&#2F;IF(#10&#3E;0,#10,1)</source>
</field>
<field x="80" type="Valuta" align="right" width="9.6" id="30" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
<field x="21" type="Stringa" width="15" id="501" pattern="1">
<font face="Courier New" size="7" />
</field>
<field x="31" type="Stringa" width="30" id="502" pattern="1">
<font face="Courier New" size="7" />
</field>
<field x="62" type="Stringa" align="center" width="4" id="503" pattern="1">
<font face="Courier New" size="7" />
</field>
</section>
<sql>USE RDOC KEY 2 SELECT (((CODNUM=#S_CODNUM)||(CODNUM="MNI"))&#26;&#26;STR(CODCMS&#3E;=#S_CMSFROM)&#26;&#26;STR(CODCMS&#3C;=#S_CMSTO)&#26;&#26;NUM(ANSI(33.DATADOC)&#3E;=ANSI(#S_DATEFROM))&#26;&#26;NUM(ANSI(33.DATADOC)&#3C;=#S_DATETO))
BY 33.CODCMS 33.TIPODOC CODART
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN COMMESSE INTO CODCMS=CODCMS
</sql>
</report>

200
ci/ci1200g.rep Executable file
View File

@ -0,0 +1,200 @@
<report libraries="ci1200" name="ci1200g" lpi="6">
<description>Stampa Sintetica per Commessa&#2F;Cantiere</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Testo" align="center" width="90" pattern="1" text="Stampa Sintetica per Cantiere">
<font face="Courier New" bold="1" size="10" />
</field>
<field type="Testo" width="10" height="0" pattern="1" text="Cantiere" />
<field x="67" type="Data" width="14" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="82" type="Data" width="8" pattern="1" text="Pag. ">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Stringa" width="30" pattern="1" text="Da Cantiere: ">
<source>#S_CMSFROM</source>
</field>
<field x="31" y="2" type="Stringa" width="30" pattern="1" text="a Cantiere: ">
<source>#S_CMSTO</source>
</field>
<field y="3" type="Stringa" width="30" pattern="1" text="Da Data: ">
<source>#S_DATEFROM</source>
</field>
<field x="31" y="3" type="Stringa" width="30" pattern="1" text="a Data: ">
<source>#S_DATETO</source>
</field>
<field y="5" type="Testo" width="8" pattern="1" text="Cantiere">
<font face="Courier New" size="8" />
</field>
<field border="1" y="5" type="Linea" width="90" height="0" pattern="1" />
<field border="1" x="27.8" y="5" type="Linea" pattern="1" />
<field x="28" y="5" type="Testo" width="8" pattern="1" text="Codice">
<font face="Courier New" size="8" />
</field>
<field border="1" x="35.8" y="5" type="Linea" pattern="1" />
<field x="36" y="5" type="Testo" width="26" pattern="1" text="Risorsa">
<font face="Courier New" size="8" />
</field>
<field border="1" x="61.8" y="5" type="Linea" pattern="1" />
<field x="62" y="5" type="Testo" width="4" pattern="1" text="U.M.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="65.8" y="5" type="Linea" pattern="1" />
<field x="66" y="5" type="Testo" width="4" pattern="1" text="Qt&#E0;">
<font face="Courier New" size="8" />
</field>
<field border="1" x="69.8" y="5" type="Linea" pattern="1" />
<field x="70" y="5" type="Testo" width="10" pattern="1" text="Costo Med.">
<font face="Courier New" size="8" />
</field>
<field border="1" x="79.8" y="5" type="Linea" pattern="1" />
<field x="80" y="5" type="Testo" width="10" pattern="1" text="Totale">
<font face="Courier New" size="8" />
</field>
<field border="1" y="6" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.330</prescript>
</section>
<section type="Head" level="2">
<groupby>DOC.CODCMS</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.230</prescript>
<field type="Stringa" width="27" pattern="1" text="Cantiere: ">
<font face="Courier New" size="8" />
<source>DOC.CODCMS</source>
</field>
<field border="1" x="27.8" type="Linea" pattern="1" />
<field border="1" x="35.8" type="Linea" pattern="1" />
<field border="1" x="61.8" type="Linea" pattern="1" />
<field border="1" x="65.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="79.8" type="Linea" pattern="1" />
</section>
<section type="Head" level="3">
<groupby>DOC.TIPODOC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.110|RESET,F3.130</prescript>
</section>
<section type="Head" level="4">
<groupby>RDOC.CODART</groupby>
<prescript description="H4 PRESCRIPT">MESSAGE RESET,F4.10|RESET,F4.20|RESET,F4.30</prescript>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>RDOC.CODART!='' &#26;&#26; RDOC.CODART!=' '</condition>
<field x="66.12" type="Numero" hidden="1" align="right" width="4" id="1" pattern="1">
<font face="Courier New" size="8" />
<source>RDOC.QTA</source>
<prescript description="B1.1 PRESCRIPT">MESSAGE ADD,F4.10|ADD,F3.110</prescript>
</field>
<field x="70.12" type="Valuta" hidden="1" align="right" width="10" id="2" pattern="1" text="#########,@@">
<font face="Courier New" size="8" />
<source>RDOC.PREZZO</source>
</field>
<field x="80.12" type="Valuta" hidden="1" align="right" width="10" id="3" pattern="1" text="#########,@@">
<font face="Courier New" size="8" />
<source>#1*#2</source>
<prescript description="B1.3 PRESCRIPT">MESSAGE ADD,F4.30|ADD,F3.130|ADD,F2.230|ADD,F1.330</prescript>
</field>
</section>
<section type="Foot">
<field border="2" y="0.5" type="Linea" width="90" height="0.01" pattern="1" />
</section>
<section type="Foot" level="1">
<field border="1" x="-52.2" y="0.06" type="Linea" pattern="1" />
<field x="-52" y="0.06" type="Testo" width="8" pattern="1" text="RDOC.CODART">
<font face="Courier New" size="8" />
</field>
<field border="1" x="-44.2" y="0.06" type="Linea" pattern="1" />
<field x="-44" y="0.06" type="Stringa" width="26" pattern="1" text="Risorsa">
<font face="Courier New" size="8" />
<source>RDOC.DESCR</source>
</field>
<field border="1" x="-18.2" y="0.06" type="Linea" pattern="1" />
<field x="-18" y="0.06" type="Stringa" align="right" width="4" pattern="1" text="U.M.">
<font face="Courier New" size="8" />
<source>RDOC.UMQTA</source>
</field>
<field border="1" x="-14.2" y="0.06" type="Linea" pattern="1" />
<field border="1" x="-10.2" y="0.06" type="Linea" pattern="1" />
<field border="1" x="-0.2" y="0.06" type="Linea" pattern="1" />
<field y="0.06" type="Testo" width="18" pattern="1" text="Totale Generale">
<font face="Courier New" size="8" />
</field>
<field x="-14" y="0.06" type="Numero" align="right" width="4" id="10" pattern="1" text="Qt&#E0;">
<font face="Courier New" size="8" />
<source>RDOC.QTA</source>
</field>
<field x="-10" y="0.06" type="Valuta" align="right" width="10" id="20" pattern="1" text="###.###.###,@@">
<font face="Courier New" size="8" />
</field>
<field x="64" type="Valuta" align="right" width="25.6" id="330" pattern="1" text="#########,@@">
<font face="Courier New" size="8" />
</field>
</section>
<section type="Foot" level="2">
<field border="1" x="27.8" type="Linea" width="62.2" height="0" pattern="1" />
<field border="1" x="27.8" type="Linea" pattern="1" />
<field x="28" type="Stringa" width="36" pattern="1" text="Totale Cantiere: ">
<font face="Courier New" size="7" />
<source>DOC.CODCMS</source>
</field>
<field border="1" x="27.8" y="1" type="Linea" width="62.2" height="0" pattern="1" />
<field x="74" type="Valuta" align="right" width="15.6" id="230" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="3">
<field border="1" x="27.8" type="Linea" width="62.2" height="0" pattern="1" />
<field border="1" x="27.8" type="Linea" pattern="1" />
<field x="28" type="Stringa" width="34" pattern="1" text="Totale Tipologia: ">
<font face="Courier New" size="7" />
<source>DOC.TIPODOC</source>
</field>
<field border="1" x="61.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="27.8" y="1" type="Linea" width="62.2" height="0" pattern="1" />
<field x="63" type="Numero" align="right" width="6.6" id="110" pattern="1">
<font face="Courier New" size="7" />
</field>
<field x="74" type="Valuta" align="right" width="15.6" id="130" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="4">
<field border="1" x="27.8" type="Linea" pattern="1" />
<field x="28" type="Stringa" width="8" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.CODART</source>
</field>
<field border="1" x="35.8" type="Linea" pattern="1" />
<field x="36" type="Stringa" width="26" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.DESCR</source>
</field>
<field border="1" x="61.8" type="Linea" pattern="1" />
<field x="62" type="Stringa" align="center" width="4" pattern="1">
<font face="Courier New" size="7" />
<source>RDOC.UMQTA</source>
</field>
<field border="1" x="65.8" type="Linea" pattern="1" />
<field border="1" x="69.8" type="Linea" pattern="1" />
<field border="1" x="79.8" type="Linea" pattern="1" />
<field x="66" type="Numero" align="right" width="3.6" id="10" pattern="1">
<font face="Courier New" size="7" />
</field>
<field x="70" type="Valuta" align="right" width="9.6" id="20" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>#30&#2F;IF(#10&#3E;0,#10,1)</source>
</field>
<field x="80" type="Valuta" align="right" width="9.6" id="30" pattern="1" text="#########,@@">
<font face="Courier New" size="7" />
</field>
</section>
<sql>USE DOC KEY 3 SELECT ((CODNUM=#S_CODNUM)&#26;&#26;STR(CODCMS&#3E;=#S_CMSFROM)&#26;&#26;STR(CODCMS&#3C;=#S_CMSTO))
BY CODCMS TIPODOC
JOIN RDOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
FROM DATADOC=#S_DATEFROM
TO DATADOC=#S_DATETO
</sql>
</report>