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

Patch level :

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


git-svn-id: svn://10.65.10.50/trunk@18052 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2009-01-20 13:43:25 +00:00
parent 5fdb97f3cb
commit d39860a2ff
8 changed files with 1142 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lv/lv2.cpp
View File

@ -7,11 +7,12 @@ int main(int argc, char** argv)
const int r = (argc > 1) ? argv[1][1] - '0' : 0;
switch (r)
{
case 0: lv2100(argc, argv); break; //generazione automatica del planning
case 1: lv2200(argc, argv); break; //manipolazione e stampa del planning
case 2: lv2300(argc, argv); break; //Stampa Giri Giornaliero/Settimanale
case 3: lv2400(argc, argv); break; //generazione automatica bolle di consegna
case 4: lv2600(argc, argv); break; //acquisizione bolle di rientro
case 0: lv2100(argc, argv); break; //generazione automatica del planning
case 1: lv2200(argc, argv); break; //manipolazione e stampa del planning
case 2: lv2300(argc, argv); break; //Stampa Giri Giornaliero/Settimanale
case 3: lv2400(argc, argv); break; //generazione automatica bolle di consegna
case 4: lv2600(argc, argv); break; //acquisizione bolle di rientro
case 6: lv2700(argc, argv); break; //Riepilogo Bolle di Lavanderie
default: lv2100(argc, argv); break; //generazione automatica del planning
}
return 0;

3
lv/lv2.h
View File

@ -3,8 +3,9 @@
int lv2100(int argc, char* argv[]);
int lv2200(int argc, char* argv[]);
int lv2300(int argc, char* argv[]);
int lv2300(int argc, char* argv[]);//Stampa Giri -2
int lv2400(int argc, char* argv[]);
int lv2600(int argc, char* argv[]);
int lv2700(int argc, char* argv[]);//Riepilogo Bolle di Lavanderie -6
#endif // __LV2_H

302
lv/lv2700.cpp Executable file
View File

@ -0,0 +1,302 @@
#include <Textset.h>
#include <Applicat.h>
#include <Automask.h>
#include <Reprint.h>
#include "lv0.h"
#include "lv2700a.h"
class TRiepBolle_recordset: public TCSV_recordset
{
public:
TRiepBolle_recordset(): TCSV_recordset("CSV(\"\t\")") {}
};
struct TStruttura: public TObject
{
long _cliente;
TString _articolo;
TString _descr;
TDate _dataDoc;
int _numeroDoc;
long _qta;
TStruttura():_cliente(0),_articolo(""),_descr(""),_dataDoc(""),_numeroDoc(0),_qta(0) {}
TStruttura(long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc, long qta):_cliente(cliente),_articolo(articolo),_descr(descr),_dataDoc(dataDoc),_numeroDoc(numeroDoc),_qta(qta) {}
};
struct TStrutturaData: public TObject
{
TDate _dataDoc;
int _numeroDoc;
int _cliente;
int _posizione;
TStrutturaData():_cliente(0),_dataDoc(""),_numeroDoc(0),_posizione(0) {}
TStrutturaData(int posizione, int cliente,
TDate dataDoc, int numeroDoc):_posizione(posizione), _dataDoc(dataDoc),_numeroDoc(numeroDoc) {}
};
class TRiepBolle_mask: public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TRiepBolle_mask():TAutomask("lv2700a"){}
};
bool TRiepBolle_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
return true;
}
class TRiepBolle_report : public TReport
{
protected:
virtual bool use_mask() { return false; }
};
class TRiepBolle_app: public TSkeleton_application
{
protected:
virtual void main_loop();
void elabora(const TMask& mask) const;
};
class TRiepilogo: public TArray
{
public:
void add(int count,long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc, long qta);
TRiepilogo():TArray(9){}
};
class TRiepilogoData: public TArray
{
public:
void add(int posizione,int cliente, TDate dataDoc, int numeroDoc);
TRiepilogoData():TArray(){}
};
void TRiepilogo::add(int count,long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc, long qta)
{
TStruttura* struttura = new TStruttura(cliente,articolo, descr,dataDoc,numeroDoc,qta);
TArray::add(struttura,count);
}
void TRiepilogoData::add(int posizione,int cliente, TDate dataDoc, int numeroDoc)
{
TStrutturaData* strutturaData = new TStrutturaData(posizione,cliente, dataDoc,numeroDoc);
TArray::add(strutturaData,posizione);
}
void TRiepBolle_app:: elabora(const TMask& mask)const
{
TISAM_recordset riep("USE RDOC KEY 1 SELECT (BETWEEN(DOC.ZONA,#F_ZONA_FROM,#F_ZONA_FROM)&&(BETWEEN(DOC.DATADOC,#F_DATA_FROM,#F_DATA_TO))&&(BETWEEN(DOC.CODCF,#F_CODCF_FROM,#F_CODCF_TO)))\n"
"BY DOC.CODCF CODART DOC.DATADOC NDOC\n"
"JOIN DOC TO RDOC ALIAS 1000 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC\n"
"FROM CODNUM='B01'\n"
"TO CODNUM='B01'");
//inserire parametri filtri
riep.set_var("#F_DATA_FROM",mask.get_date(F_DATA_DA));
riep.set_var("#F_DATA_TO",mask.get_date(F_DATA_A));
riep.set_var("#F_CODCF_FROM",TVariant(mask.get(F_CODCF_DA)));
riep.set_var("#F_CODCF_TO",TVariant(mask.get(F_CODCF_A)));
riep.set_var("#F_ZONA_FROM",TVariant(mask.get(F_ZONA)));
TRiepilogo riepilogo;
TRiepilogoData riepilogoData;
TRiepilogoData riepilogoData2;
int count = 1;
for(bool ok = riep.move_first();ok;ok=riep.move_next())
{
TDate dataDoc = riep.get("DOC.DATADOC").as_date();
long cliente = riep.get("DOC.CODCF").as_int();
TString articolo = riep.get("CODART").as_string();
TString descr = riep.get("DESCR").as_string();
int numeroDoc = riep.get("NDOC").as_int();
long qta = riep.get("QTA").as_int();
riepilogo.add(count,cliente,articolo,descr,dataDoc,numeroDoc,qta);
count++;
}
TRiepBolle_report rep;
bool stampa = rep.load("lv2700a");
TRiepBolle_recordset* riep_set = new TRiepBolle_recordset();
rep.set_recordset(riep_set);
int clienteOld = 0;
TString articoloOld;
int contatore = 0;
FOR_EACH_ARRAY_ITEM(riepilogo,c,obj)//scandisce clienti e tiene
//buoni solo quelli valorizzati
{
TStruttura& s = *(TStruttura*) obj;
if(clienteOld!=s._cliente ||
articoloOld!=s._articolo)
{
riep_set->new_rec();
riep_set->set(0,TVariant(long (s._cliente)));//CAMPO DI ROTTURA
riep_set->set(1,TVariant(long (s._cliente)));
riep_set->set(2,TVariant(s._articolo));
riep_set->set(3,TVariant(s._descr));
contatore=4;
if(clienteOld!=s._cliente)
{
//Per ogni cliente creo una struttura di date. è necessario
//per il report.
TISAM_recordset dateDocAll("USE RDOC KEY 1 SELECT (BETWEEN(DOC.ZONA,#F_ZONA_FROM,#F_ZONA_FROM)&&(BETWEEN(DOC.DATADOC,#F_DATA_FROM,#F_DATA_TO))&&(BETWEEN(DOC.CODCF,#F_CODCF_FROM,#F_CODCF_TO)))\n"
"BY DOC.CODCF DOC.DATADOC NDOC\n"
"JOIN DOC TO RDOC ALIAS 1000 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC\n"
"FROM CODNUM='B01'\n"
"TO CODNUM='B01'");
//inserire parametri filtri
dateDocAll.set_var("#F_DATA_FROM",mask.get_date(F_DATA_DA));
dateDocAll.set_var("#F_DATA_TO",mask.get_date(F_DATA_A));
dateDocAll.set_var("#F_CODCF_FROM",TVariant(long (s._cliente)));
dateDocAll.set_var("#F_CODCF_TO",TVariant(long (s._cliente)));
dateDocAll.set_var("#F_ZONA_FROM",TVariant(mask.get(F_ZONA)));
TDate dateOld;
int numeroOld=0;
int cliente=0;
int posizione = 4;
for(bool ok = dateDocAll.move_first();ok;ok=dateDocAll.move_next())
{
TDate dataDocTot = dateDocAll.get("DOC.DATADOC").as_date();
int numeroDocTot = dateDocAll.get("NDOC").as_int();
int clientDocTot = dateDocAll.get("DOC.CODCF").as_int();
if(dateOld !=dataDocTot ||
numeroOld !=numeroDocTot ||
cliente!=clientDocTot )
{
dateOld=dataDocTot;
numeroOld=numeroDocTot;
cliente=clientDocTot;
riepilogoData.add(posizione,clientDocTot,dataDocTot,numeroDocTot);
riepilogoData2.add(posizione,clientDocTot,dataDocTot,numeroDocTot);
posizione=posizione+3;
}
}
}
clienteOld=s._cliente;
articoloOld=s._articolo;
}
FOR_EACH_ARRAY_ITEM(riepilogoData,f,obj)
{
TStrutturaData& sD = *(TStrutturaData*) obj;
//ogni primo record riporto come titolo tutte le date-numero
if(contatore==4)
{
FOR_EACH_ARRAY_ITEM(riepilogoData2,f,obj)
{
TStrutturaData& sD2 = *(TStrutturaData*) obj;
int contatore2 = sD2._posizione;
TString16 tt = sD2._dataDoc;
TString16 tt2 = tt.sub(0,5);
riep_set->set(contatore2,TVariant(tt2));
contatore2++;
riep_set->set(contatore2,TVariant(long (sD2._numeroDoc)));
contatore2++;
riep_set->set(contatore2,TVariant(long (0)));
contatore2++;
}
}
//posizionamento qta in base alla data-numero
if(s._dataDoc==sD._dataDoc && s._numeroDoc==sD._numeroDoc)
{
contatore = sD._posizione;
TString16 tt = s._dataDoc;
TString16 tt2 = tt.sub(0,5);
riep_set->set(contatore,TVariant(tt2));
contatore++;
riep_set->set(contatore,TVariant(long (s._numeroDoc)));
contatore++;
riep_set->set(contatore,TVariant(long (s._qta)));
contatore++;
TArray* p = (TArray*) obj;
int e = p->size();
e=e+1;
while(72>contatore)
{
contatore++;
contatore++;
riep_set->set(contatore,TVariant(long (0)));
contatore++;
}
break;
}
else
{
contatore++;
contatore++;
riep_set->set(contatore,TVariant(long (0)));
contatore++;
}
}
}
//Crea file che contiene il recordset
//riep_set->save_as("c:\\riepilogoBolla.txt");
if(stampa)
{
//carica tutte le variabili del report.
rep.mask2report(mask);
TReport_book b;
bool ok = b.add(rep);// Richiede parametri di stampa in base alla maschera omonima
if (ok)
{
if (b.pages() > 0)
b.print_or_preview(); // Stampa effettivamente
else
warning_box (TR("Nessun record estratto per i parametri inseriti"));
}
}
}
void TRiepBolle_app::main_loop()
{
TRiepBolle_mask m;
while(m.run()==K_ENTER)
{
elabora(m);
}
}
int lv2700(int argc, char* argv[])
{
TRiepBolle_app app;
app.run(argc, argv, TR("Stampa Riepilogo Bolle di Lavanderia"));
return 0;
}

9
lv/lv2700a.h Executable file
View File

@ -0,0 +1,9 @@
//Stampa Riepilogo Bolle di Lavanderie
#define F_CODCF_DA 203
#define F_RAGSOC_DA 204
#define F_CODCF_A 205
#define F_RAGSOC_A 206
#define F_DATA_DA 207
#define F_DATA_A 208
#define F_ZONA 209
#define F_DESZONA 210

285
lv/lv2700a.rep Executable file
View File

@ -0,0 +1,285 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="lv2700a" orientation="2" lpi="6">
<description>Stampa Riepilogo Bolle di Lavanderia</description>
<font face="Courier New" size="7" />
<section type="Head">
<field x="3" type="Testo" width="12" height="1.5" pattern="1" text="Data elab. :" />
<field x="15.5" type="Stringa" width="15" pattern="1">
<prescript description="H0.0 PRESCRIPT">MESSAGE _TODAY</prescript>
</field>
<field x="35.5" type="Testo" align="center" width="70" height="1.5" pattern="1" text="Stampa Riepilogo Bolle di Lavanderia">
<font face="Courier New" bold="1" size="12" />
</field>
<field x="113.37" y="0.12" type="Testo" width="5" height="1.5" pattern="1" text="Pag." />
<field x="118.5" y="0.12" type="Stringa" width="10" pattern="1">
<prescript description="H0.0 PRESCRIPT">MESSAGE _PAGENO</prescript>
</field>
</section>
<section type="Head" level="1" />
<section repeat="1" type="Head" level="2" height="4.5" page_break="1">
<groupby>A</groupby>
<field type="Testo" width="10" pattern="1" text="Cliente:">
<font face="Courier New" bold="1" size="7" />
</field>
<field x="9.5" type="Stringa" width="8" pattern="1">
<source>B</source>
</field>
<field x="18.5" type="Stringa" width="40" pattern="1">
<source>B</source>
<prescript description="H2.0 PRESCRIPT">MESSAGE _ISAMREAD,20,TIPOCF='C'!CODCF=#THIS,RAGSOC</prescript>
</field>
<field x="59" type="Stringa" width="40" pattern="1">
<source>B</source>
<prescript description="H2.0 PRESCRIPT">MESSAGE _ISAMREAD,20,TIPOCF='C'!CODCF=#THIS,INDCF</prescript>
</field>
<field x="101" type="Stringa" width="40" pattern="1">
<source>B</source>
<prescript description="H2.0 PRESCRIPT">MESSAGE _ISAMREAD,20,TIPOCF='C'!CODCF=#THIS,LOCALITACF</prescript>
</field>
<field border="1" y="1.5" type="Linea" width="192" height="0" pattern="1" />
<field x="50" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>E</source>
</field>
<field x="56" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>H</source>
</field>
<field x="62" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>K</source>
</field>
<field x="68" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>N</source>
</field>
<field x="74" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>Q</source>
</field>
<field x="80" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>T</source>
</field>
<field x="86" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>W</source>
</field>
<field x="92" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>Z</source>
</field>
<field x="98" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AC</source>
</field>
<field x="104" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AF</source>
</field>
<field x="110" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AI</source>
</field>
<field x="116" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AL</source>
</field>
<field x="122" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AO</source>
</field>
<field x="128" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AR</source>
</field>
<field x="134" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AU</source>
</field>
<field x="140" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>AX</source>
</field>
<field x="146" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>BA</source>
</field>
<field x="152" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>BD</source>
</field>
<field x="158" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>BG</source>
</field>
<field x="164" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>BJ</source>
</field>
<field x="170" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>BM</source>
</field>
<field x="176" y="1.75" type="Stringa" align="right" width="5" pattern="1">
<source>BP</source>
</field>
<field y="2.75" type="Testo" width="8" pattern="1" text="Codice:">
<font face="Courier New" bold="1" size="7" />
</field>
<field x="20.5" y="2.75" type="Testo" width="15" pattern="1" text="Descrizione:">
<font face="Courier New" bold="1" size="7" />
</field>
<field x="50" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>F</source>
</field>
<field x="56" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>I</source>
</field>
<field x="62" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>L</source>
</field>
<field x="68" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>O</source>
</field>
<field x="74" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>R</source>
</field>
<field x="80" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>U</source>
</field>
<field x="86" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>X</source>
</field>
<field x="92" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AA</source>
</field>
<field x="98" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AD</source>
</field>
<field x="104" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AG</source>
</field>
<field x="110" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AJ</source>
</field>
<field x="116" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AM</source>
</field>
<field x="122" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AP</source>
</field>
<field x="128" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AS</source>
</field>
<field x="134" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AV</source>
</field>
<field x="140" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AY</source>
</field>
<field x="146" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BB</source>
</field>
<field x="152" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BE</source>
</field>
<field x="158" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BH</source>
</field>
<field x="164" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BK</source>
</field>
<field x="170" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BN</source>
</field>
<field x="176" y="2.75" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BQ</source>
</field>
<field x="182" y="3" type="Testo" align="center" width="8" pattern="1" text="TOTALI">
<font face="Courier New" bold="1" size="7" />
</field>
<field border="1" y="4" type="Linea" width="192" height="0" pattern="1" />
</section>
<section type="Body" />
<section type="Body" level="1">
<field type="Stringa" width="20" pattern="1">
<source>C</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE RESET,1000</prescript>
</field>
<field x="21" type="Stringa" width="28" pattern="1">
<source>D</source>
</field>
<field x="50" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>G</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="56" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>J</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="62" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>M</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="68" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>P</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="74" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>S</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="80" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>V</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="86" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>Y</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="92" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AB</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="98" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AE</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="104" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AH</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="110" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AK</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="116" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AN</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="122" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AQ</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="128" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AT</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="134" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AW</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="140" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>AZ</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="146" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BC</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="152" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BF</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="158" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BI</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="164" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BL</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="170" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BO</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="176" type="Numero" align="right" width="5" pattern="1" hide_zero="1">
<source>BR</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,1000</prescript>
</field>
<field x="182" type="Numero" align="right" width="8" id="1000" pattern="1" hide_zero="1" />
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<section type="Foot" level="2" />
</report>

124
lv/lv2700a.uml Executable file
View File

@ -0,0 +1,124 @@
#include "lv2700a.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE
PAGE "Riepilogo Bolle di Lavanderie" -1 -1 40 5
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 1 "@b Parametri Cliente"
END
NUMBER F_CODCF_DA 6
BEGIN
PROMPT 2 2 "Da Cliente "
FLAGS "U"
KEY 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODCF_DA
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODCF_DA CODCF
OUTPUT F_RAGSOC_DA RAGSOC
FIELD #F_CODCF_FROM
END
STRING F_RAGSOC_DA 50
BEGIN
PROMPT 25 2 ""
KEY 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC_DA
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_CODCF_DA CODCF
OUTPUT F_RAGSOC_DA RAGSOC
END
NUMBER F_CODCF_A 6
BEGIN
PROMPT 2 3 "A Cliente "
FLAGS "U"
KEY 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODCF_A
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODCF_A CODCF
OUTPUT F_RAGSOC_A RAGSOC
FIELD #F_CODCF_TO
END
STRING F_RAGSOC_A 50
BEGIN
PROMPT 25 3 ""
KEY 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC_A
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_CODCF_A CODCF
OUTPUT F_RAGSOC_A RAGSOC
END
GROUPBOX DLG_NULL 80 3
BEGIN
PROMPT 1 5 "@b Parametri Data"
END
DATE F_DATA_DA
BEGIN
PROMPT 2 6 "Da Data "
FLAGS "A"
FIELD #F_DATA_FROM
END
DATE F_DATA_A
BEGIN
PROMPT 40 6 "A Data "
FLAGS "A"
FIELD #F_DATA_TO
VALITATE DATE_CMP_FUNC >= F_DATA_DA
WARNING "La data finale deve essere successiva a quella iniziale"
END
GROUPBOX DLG_NULL 80 3
BEGIN
PROMPT 1 8 "@b Parametri Zona"
END
STRING F_ZONA 2
BEGIN
PROMPT 2 9 "Codice Zona"
USE ZON
INPUT CODTAB F_ZONA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_ZONA CODTAB
OUTPUT F_DESZONA S0
CHECKTYPE NORMAL
FIELD #F_ZONA_FROM
END
STRING F_DESZONA 50
BEGIN
PROMPT 20 9 ""
USE ZON KEY 2
INPUT CODTAB F_ZONA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_ZONA CODTAB
OUTPUT F_DESZONA S0
END
ENDPAGE
ENDMASK

404
lv/lvbolla.rep Executable file
View File

@ -0,0 +1,404 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="ve1300" name="lvbolla" lpi="6">
<description>bolla lavanderia</description>
<font face="Courier New" size="9" />
<section type="Head" height="26.5">
<font face="Arial" size="10" />
<field y="6" type="Stringa" hidden="1" width="10" pattern="1">
<source>16.COM</source>
<prescript description="H0.0 PRESCRIPT">MESSAGE EMPTY DISABLE,69
MESSAGE ENABLE,69</prescript>
</field>
<field x="1" y="22.5" type="Stringa" hidden="1" width="92" pattern="1">
<source>33.NOTE</source>
</field>
<field x="90.5" y="18.25" type="Stringa" width="2" id="9" pattern="1">
<prescript description="H0.9 PRESCRIPT">MESSAGE _PAGENO</prescript>
</field>
<field x="77" y="18.25" type="Data" width="10" id="10" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.DATADOC</source>
</field>
<field x="67.5" y="18.25" type="Stringa" align="right" width="6.5" id="11" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.NDOC</source>
</field>
<field x="1" y="17.75" type="Stringa" hidden="1" width="5" id="12" pattern="1">
<source>34.CODMAG</source>
</field>
<field x="26.5" y="20.5" type="Stringa" width="16" id="13" pattern="1">
<prescript description="H0.13 PRESCRIPT">MESSAGE _CLIENTE,COFI</prescript>
</field>
<field x="82" y="20.5" type="Stringa" hidden="1" width="6" id="14" pattern="1">
<source>IF(33.CODVAL='','EURO',33.CODVAL)</source>
</field>
<field x="1" y="20.5" type="Stringa" align="right" width="6" id="15" pattern="1">
<source>33.CODCF</source>
</field>
<field x="11.5" y="20.5" type="Stringa" width="14" id="16" pattern="1">
<prescript description="H0.16 PRESCRIPT">MESSAGE _CLIENTE,PAIV</prescript>
</field>
<field x="49" y="10" type="Stringa" width="59" height="2" id="20" pattern="1">
<font face="Arial" bold="1" size="10" />
<prescript description="H0.20 PRESCRIPT">MESSAGE _CLIENTE,!RAGSOC</prescript>
</field>
<field x="49" y="12" type="Stringa" width="44" id="21" pattern="1">
<prescript description="H0.21 PRESCRIPT">MESSAGE _CLIENTE,!INDNUM</prescript>
</field>
<field x="49" y="13" type="Stringa" width="44" id="22" pattern="1">
<prescript description="H0.22 PRESCRIPT">MESSAGE _CLIENTE,LOCALITACF</prescript>
</field>
<field x="49" y="14" type="Stringa" width="5" id="23" pattern="1">
<prescript description="H0.23 PRESCRIPT">MESSAGE _CLIENTE,!CAP</prescript>
</field>
<field x="55" y="14" type="Stringa" hidden="1" width="30" height="2" id="24" pattern="1">
<prescript description="H0.24 PRESCRIPT">MESSAGE _CLIENTE,!COM-&#3E;DENCOM
MESSAGE COPY,26</prescript>
</field>
<field x="55" y="14" type="Stringa" hidden="1" width="2" id="25" pattern="1">
<prescript description="H0.25 PRESCRIPT">MESSAGE _CLIENTE,!COM-&#3E;PROVCOM
MESSAGE APPEND,26</prescript>
</field>
<field x="55" y="14" type="Stringa" width="38" height="2" id="26" pattern="1" />
<field x="49" y="15" type="Stringa" hidden="1" width="25" id="28" pattern="1">
<prescript description="H0.28 PRESCRIPT">MESSAGE _TABLEREAD,%STA,#27,S0
MESSAGE APPEND,26</prescript>
</field>
<field x="1" y="18.25" type="Stringa" width="35" id="31" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>210@.S0</source>
</field>
<field x="9" y="20.5" type="Stringa" width="2" id="33" pattern="1">
<prescript description="H0.33 PRESCRIPT">MESSAGE _CLIENTE,STATOPAIV</prescript>
</field>
<field x="43.5" y="20.5" type="Stringa" width="30" id="37" pattern="1">
<source>20.TEL</source>
</field>
<field x="1" y="16.25" type="Stringa" hidden="1" width="5" id="40" pattern="1">
<source>16.STATO</source>
<prescript description="H0.40 PRESCRIPT">#THIS @
STRLEN
DUP
1 =
IF
"00" #THIS @ + #THIS !
THEN
2 =
IF
"0" #THIS @ + #THIS !
THEN
</prescript>
</field>
<field type="Stringa" hidden="1" width="35" id="61" pattern="1">
<source>16.INDIR</source>
<prescript description="H0.61 PRESCRIPT">MESSAGE COPY,63</prescript>
</field>
<field y="1" type="Stringa" hidden="1" width="10" id="62" pattern="1">
<source>16.CIV</source>
<prescript description="H0.62 PRESCRIPT">MESSAGE APPEND,63</prescript>
</field>
<field x="49" y="3" type="Stringa" width="43.5" id="63" pattern="1">
<groups>11</groups>
</field>
<field x="49" y="4" type="Stringa" width="43.5" id="64" pattern="1">
<groups>11</groups>
<source>16.LOCALITA</source>
</field>
<field x="49" y="5" type="Stringa" width="5" id="65" pattern="1">
<source>16.CAP</source>
</field>
<field y="2" type="Stringa" hidden="1" width="25" id="67" pattern="1">
<source>13.DENCOM</source>
<prescript description="H0.67 PRESCRIPT">MESSAGE COPY,69</prescript>
</field>
<field y="3" type="Stringa" hidden="1" width="15" id="68" pattern="1">
<source>13.PROVCOM</source>
<prescript description="H0.68 PRESCRIPT">MESSAGE APPEND,69</prescript>
</field>
<field x="54.5" y="5" type="Stringa" width="38" height="2" id="69" pattern="1" />
<field x="6.5" y="16.25" type="Stringa" hidden="1" width="25" id="70" pattern="1">
<prescript description="H0.70 PRESCRIPT">MESSAGE _TABLEREAD,%STA,#40,S0
MESSAGE APPEND,69</prescript>
</field>
<field x="49" y="1" type="Stringa" width="43.5" height="2" id="100" pattern="1">
<font face="Arial" bold="1" size="10" />
<groups>11</groups>
<source>16.RAGSOC</source>
</field>
<field y="4" type="Stringa" hidden="1" width="5" id="119" pattern="1">
<source>CODINDSP</source>
<prescript description="H0.119 PRESCRIPT">MESSAGE EMPTY ENABLE,130|DISABLE,11@
MESSAGE DISABLE,130|ENABLE,11@</prescript>
</field>
<field x="49" y="1" deactivated="1" type="Testo" width="30" id="130" pattern="1" text="IDEM" />
</section>
<section type="Head" level="1" />
<section type="Body">
<field border="1" radius="100" x="47.5" y="0.25" type="Rettangolo" shade_offset="50" width="46" height="8" />
<field border="1" x="2" y="1" type="Rettangolo" bg_color="#C0C0C0" width="36" height="5" pattern="5" />
<field x="9.5" y="3.25" type="Testo" width="20" pattern="1" text="Logo Personalizzato">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="7" type="Testo" width="18" pattern="1" text="INTESTAZIONE DITTA">
<font face="Times New Roman" bold="1" size="9" />
</field>
<field x="2" y="7.75" type="Testo" width="13" pattern="1" text="Via ">
<font face="Times New Roman" size="8" />
</field>
<field x="2" y="8.5" type="Testo" width="33" pattern="1" text="CAP COMUNE PROV Italy">
<font face="Times New Roman" size="8" />
</field>
<field border="1" radius="100" x="47.5" y="8.75" type="Rettangolo" shade_offset="50" width="46" height="8" />
<field x="2" y="9.25" type="Testo" width="33" pattern="1" text="Tel. +39 xxxxxxx Fax +39 xxxxxxxxxxxxxxx">
<font face="Times New Roman" size="8" />
</field>
<field x="2" y="10" type="Testo" width="33" pattern="1" text="P.IVA 01234567890 Trib. XX n. 12345 CCIAA n. 123456">
<font face="Times New Roman" size="8" />
</field>
<field x="2" y="10.75" type="Testo" width="33" pattern="1" text="Cap. Soc. Euro 99.999 i.v.">
<font face="Times New Roman" size="8" />
</field>
<field x="2" y="11.5" type="Testo" width="33" pattern="1" text="www.vostraditta.com info@vostraditta.com">
<font face="Times New Roman" size="8" />
</field>
<field border="1" radius="100" x="0.25" y="17.25" type="Rettangolo" shade_offset="50" width="93.5" height="6.5" />
<field x="1" y="17.5" type="Testo" width="11" text="Tipo Documento">
<font italic="1" face="Arial" size="8" />
</field>
<field x="69.5" y="17.5" type="Testo" width="6" text="Numero">
<font italic="1" face="Arial" size="8" />
</field>
<field x="79" y="17.5" type="Testo" width="7" text="Data">
<font italic="1" face="Arial" size="8" />
</field>
<field x="87" y="17.5" type="Testo" width="5" text="Pagina">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.5" y="19.5" type="Linea" width="92" height="0" pattern="1" />
<field x="1" y="19.5" type="Testo" width="8" pattern="1" text="Cod.Cliente">
<font italic="1" face="Arial" size="8" />
</field>
<field x="10.25" y="19.5" type="Testo" width="6" pattern="1" text="P.IVA">
<font italic="1" face="Arial" size="8" />
</field>
<field x="26.5" y="19.5" type="Testo" width="10" pattern="1" text="Cod. Fisc.">
<font italic="1" face="Arial" size="8" />
</field>
<field x="43.75" y="19.5" type="Testo" width="8.5" pattern="1" text="Telefono">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.66" y="21.5" type="Linea" width="92" height="0" pattern="1" />
<field border="1" radius="100" x="0.25" y="24.5" type="Rettangolo" shade_offset="50" width="93.5" height="30" />
<field border="1" x="18.5" y="25" type="Linea" height="29" pattern="1" />
<field border="1" x="51" y="25" type="Linea" height="29" pattern="1" />
<field border="1" x="60" y="25" type="Linea" height="29" pattern="1" />
<field border="1" x="69" y="25" type="Linea" height="29" pattern="1" />
<field border="1" x="77.5" y="25" type="Linea" height="29" pattern="1" />
<field border="1" x="85.5" y="25" type="Linea" height="29" pattern="1" />
<field border="1" radius="100" x="0.25" y="55" type="Rettangolo" shade_offset="50" width="93.5" height="8.75" />
<field x="0.75" y="55" type="Testo" width="14.5" pattern="1" text="Trasporto a Mezzo">
<font italic="1" face="Arial" size="8" />
</field>
<field x="21.25" y="55" type="Testo" width="17.5" pattern="1" text="Aspetto Esteriore dei Beni">
<font italic="1" face="Arial" size="8" />
</field>
<field x="59.25" y="55" type="Testo" width="17" pattern="1" text="Causale del Trasporto">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.25" y="57.25" type="Linea" width="92" height="0" pattern="1" />
<field x="0.75" y="57.25" type="Testo" align="right" width="6.5" pattern="1" text="Colli">
<font italic="1" face="Arial" size="8" />
</field>
<field x="10" y="57.25" type="Testo" align="right" width="7" pattern="1" text="N.Palette">
<font italic="1" face="Arial" size="8" />
</field>
<field x="23" y="57.25" type="Testo" width="6.5" pattern="1" text="Peso Kg.">
<font italic="1" face="Arial" size="8" />
</field>
<field x="30" y="57.25" type="Testo" width="8.5" pattern="1" text="Porto">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="77.5" y="57.25" type="Linea" height="6.5" pattern="1" />
<field x="78.5" y="57.25" type="Testo" width="14" pattern="1" text="Firma Conducente">
<font italic="1" face="Arial" size="8" />
</field>
<field x="59.75" y="57.5" type="Testo" width="17" text="Data e Ora Inizio Trasporto">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.25" y="59.25" type="Linea" width="92" height="0" pattern="1" />
<field x="1" y="59.25" type="Testo" width="8" pattern="1" text="Annotazioni">
<font italic="1" face="Arial" size="8" />
</field>
<field x="78.5" y="59.25" type="Testo" width="14" pattern="1" text="Firma Destinatario">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.25" y="61.5" type="Linea" width="92" height="0" pattern="1" />
<field x="0.75" y="61.5" type="Testo" width="15.5" pattern="1" text="Incaricato del Trasporto">
<font italic="1" face="Arial" size="8" />
</field>
<field x="78.5" y="61.5" type="Testo" width="14" pattern="1" text="Firma Vettore">
<font italic="1" face="Arial" size="8" />
</field>
<field x="50" type="Testo" width="10" id="50" text=" Destinazione">
<font italic="1" face="Arial" size="8" />
</field>
<field x="49" y="8.5" type="Testo" width="10" id="50" text=" Destinatario">
<font italic="1" face="Arial" size="8" />
</field>
<field x="1.5" y="25" type="Testo" width="9.5" id="202" pattern="1" text="Articolo">
<font face="Arial" bold="1" size="8" />
</field>
<field x="19" y="25" type="Testo" width="28" id="203" pattern="1" text="Descrizione">
<font face="Arial" bold="1" size="8" />
</field>
<field x="51.5" y="25" type="Testo" width="8" id="204" pattern="1" text="Causale">
<font face="Arial" bold="1" size="8" />
</field>
<field x="61" y="25" type="Testo" width="7" id="209" pattern="1" text="Qt&#E0; Con.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="70" y="25" type="Testo" width="6" id="209" pattern="1" text="Qt&#E0; Rit.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="78.5" y="25" type="Testo" width="8" id="209" pattern="1" text="Dotazione">
<font face="Arial" bold="1" size="8" />
</field>
<field x="86" y="25" type="Testo" width="7" id="209" pattern="1" text="Prezzo">
<font face="Arial" bold="1" size="8" />
</field>
</section>
<section type="Body" level="1" can_break="1">
<condition>!((34.TIPORIGA='08'))</condition>
<font face="Arial" size="9" />
<field x="52" type="Stringa" width="5" pattern="1">
<font face="Arial" size="8" />
<source>34.CODAGG1</source>
</field>
<field x="68.5" type="Numero" align="right" width="9" pattern="1" hide_zero="1" text="##.###,@@">
<source>34.QTAGG1</source>
</field>
<field x="81.5" type="Numero" align="right" width="12" pattern="1" hide_zero="1" text="#.###.###,@@">
<source>34.PREZZO</source>
</field>
<field type="Stringa" hidden="1" bg_color="#E9E9E9" width="3.5" id="50" pattern="1">
<source>34.CODARTMAG</source>
<prescript description="B1.50 PRESCRIPT">MESSAGE EMPTY DISABLE,51
MESSAGE ENABLE,51</prescript>
</field>
<field x="0.5" type="Stringa" width="18.2" id="51" pattern="1">
<font face="Arial" size="8" />
<source>34.CODART</source>
</field>
<field x="19" type="Stringa" bg_color="#D4D4D4" dynamic_height="1" width="31" height="15" id="52" pattern="1">
<prescript description="B1.52 PRESCRIPT">MESSAGE _DESCRIGA</prescript>
</field>
<field x="122" type="Stringa" hidden="1" bg_color="#E6E6E6" width="3" id="53" pattern="1">
<source>34.UMQTA</source>
<prescript description="B1.53 PRESCRIPT">MESSAGE _ALIGN,#52,TOP</prescript>
</field>
<field x="59.5" type="Numero" align="right" bg_color="#00FFFF" width="9" id="54" pattern="1" hide_zero="1" text="##.###,@@">
<groups>30</groups>
<source>34.QTA</source>
<prescript description="B1.54 PRESCRIPT">MESSAGE _ALIGN,#52,TOP</prescript>
</field>
</section>
<section y="53" hidden_if_needed="1" type="Foot">
<font face="Arial" size="10" />
<field x="72" y="12" type="Testo" width="17" id="100" pattern="1" text="&#3E;&#3E;&#3E; SEGUE &#3E;&#3E;&#3E;">
<font italic="1" face="Arial" bold="1" size="10" />
</field>
</section>
<section y="54" type="Foot" level="1">
<field x="59" y="2" type="Stringa" width="22.5" id="34" pattern="1">
<source>207@.S0</source>
</field>
<field x="1.25" y="2" type="Array" width="19" id="101" pattern="1">
<source>CODSPMEZZO</source>
<list>
<li Value=" " Code=" " />
<li Value="DESTINATARIO" Code="D" />
<li Value="MITTENTE" Code="M" />
<li Value="VETTORE" Code="V" />
</list>
</field>
<field x="36" y="8.5" type="Stringa" hidden="1" width="29" id="105" pattern="1">
<source>TRIM(205@.S0)</source>
<prescript description="F1.105 PRESCRIPT">MESSAGE COPY,107</prescript>
</field>
<field x="27" y="7.5" type="Stringa" hidden="1" width="35" id="106" pattern="1">
<source>TRIM(205@.S1[1,35])</source>
<prescript description="F1.106 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="1" y="8.5" type="Stringa" width="76.5" id="107" pattern="1" />
<field x="45" y="7.5" type="Stringa" hidden="1" width="10" id="108" pattern="1">
<source>TRIM(205@.S1[36,45])</source>
<prescript description="F1.108 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="57.5" y="8" type="Stringa" hidden="1" width="5" id="110" pattern="1">
<source>TRIM(205@.S7)</source>
<prescript description="F1.110 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="18" y="8.5" type="Stringa" hidden="1" width="18" id="111" pattern="1">
<source>TRIM(205@.S1[46,70])</source>
<prescript description="F1.111 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="21" y="7.5" type="Stringa" hidden="1" width="5" id="112" pattern="1">
<source>205@.S9</source>
</field>
<field x="9" y="8.5" type="Stringa" hidden="1" width="35" id="113" pattern="1">
<prescript description="F1.113 PRESCRIPT">MESSAGE _ISAMREAD,13,COM=#112,DENCOM
MESSAGE APPEND,107</prescript>
</field>
<field x="15" y="7.5" type="Stringa" hidden="1" width="2" id="114" pattern="1">
<prescript description="F1.114 PRESCRIPT">MESSAGE _ISAMREAD,13,COM=#112,PROVCOM
MESSAGE APPEND,107</prescript>
</field>
<field x="51" y="8.5" deactivated="1" type="Stringa" width="38" id="115" pattern="1" />
<field x="69.75" y="4.25" type="Stringa" width="5" id="117" pattern="1" text="##:##">
<source>ORAPART</source>
</field>
<field x="59.75" y="4.25" type="Data" width="8" id="118" pattern="1">
<source>DATAPART</source>
</field>
<field x="20.75" y="2" type="Stringa" width="34.5" id="120" pattern="1">
<source>206@.S0</source>
</field>
<field x="16.5" y="4.25" type="Numero" align="right" width="12" id="121" pattern="1" text="#########">
<source>IF(33.PNETTO=0,TOTPESO,33.PNETTO)</source>
</field>
<field x="0.5" y="4.25" type="Numero" align="right" width="6" id="122" pattern="1">
<source>IF(33.NCOLLI=0,TOTCOLLI,33.NCOLLI)</source>
</field>
<field x="9" y="4.25" type="Numero" align="right" width="6" id="132" pattern="1">
<source>IF(33.NBANC=0,TOTBANC,33.NBANC)</source>
</field>
<field x="0.5" y="6.25" type="Stringa" width="76.5" id="157" pattern="1">
<source>33.NOTE</source>
</field>
<field x="30.25" y="4.25" type="Stringa" width="27.5" id="158" pattern="1">
<source>203@.S0</source>
</field>
</section>
<sql>USE 33
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN %CAU TO 34 ALIAS 1000 INTO CODTAB==CODAGG1
JOIN 17 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 13 TO 16 INTO STATO=STATO COM=COM
JOIN 47 TO 34 INTO CODART==CODART
JOIN 122 TO 33 INTO CODAGE==CODAG
JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1
JOIN %ABE TO 33 ALIAS 206 INTO CODTAB==ASPBENI1
JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP
JOIN %BAN TO 33 ALIAS 208 INTO CODTAB==CODABIA
JOIN %VAL TO 33 ALIAS 209 INTO CODTAB==CODVAL
JOIN %TIP TO 33 ALIAS 210 INTO CODTAB==TIPODOC
JOIN %MSP TO 33 ALIAS 211 INTO CODTAB==CODSPMEZZO
JOIN GCA TO 34 ALIAS 212 INTO CODTAB==3+CODART[7,12]
JOIN GCA TO 34 ALIAS 213 INTO CODTAB==5+CODART[17,18]
</sql>
</report>

11
lv/lvmenu.men
View File

@ -73,6 +73,7 @@ Flags = ""
Item_01 = "Contratti per cliente", "lv0 -1 lv0400c", "F"
Item_02 = "Passaggi per cliente", "lv0 -1 lv0500c", "F"
Item_03 = "Periodi di sospensione", "lv0 -1 lv0500d", "F"
Item_04 = "Elenco Clienti per Articolo", "lv0 -1 lv0400d", "F"
[LVMENU_030]
Caption = "Giri"
@ -96,7 +97,7 @@ Caption = "Stampe"
Picture = <ba03>
Module = 41
Flags = ""
Item_01 = "Giri del giorno", "lv0 -1 lv2200c", "F"
Item_01 = "Giri", "lv2 -2 lv2300a", "F"
[LVMENU_040]
Caption = "Documenti"
@ -108,3 +109,11 @@ Item_02 = "Documenti di Trasporto", "lv3 -0 -filtI1=1 -defNUM_GEN,TIPODOC_GEN,lv
Item_03 = "Fatture", "ve0 -1 -filtI1=2 -defNUM_FAT,TIPODOC_FAT,lv", "F"
Item_04 = "Ordini Fornitori", "ve0 -1 -filtI1=3 -defNUM_ORF,TIPODOC_ORF,lv", "F"
Item_05 = "Ordini Clienti", "ve0 -1 -filtI1=3 -defNUM_ORC,TIPODOC_ORC,lv", "F"
Item_06 = "Stampe", [LVMENU_050]
[LVMENU_050]
Caption = "Stampe"
Picture = <ba03>
Module = 41
Flags = ""
Item_01 = "Riepilogo Bolle di Lavanderie", "lv2 -6 lv2700a", "F"