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

Estratta query da programma ed inserita nel report

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22623 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2012-04-10 07:42:50 +00:00
parent c0b49e5aa8
commit 992b4beb15
4 changed files with 18 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ha/ha3700.cpp
View File

@ -4,7 +4,7 @@
#include <recarray.h>
#include <relation.h>
#include <report.h>
#include <textset.h>
#include "../ba/ba8500.h"
@ -48,50 +48,14 @@ public:
void TPrint_storico_mask::elabora()
{
//prende un tot di dati dalla maschera per stabilire la query
const TString& codag = get(F_CODAG);
const long codcf = get_long(F_CODCF);
const int codindsp = get_int(F_CODINDSP);
const TString& codart = get(F_CODART);
const long progressivo = get_long(F_PROGRESSIVO);
TString16 codtab;
codtab.format("%-5s%07d", (const char*)codart, progressivo);
const TString& matricola = get(F_MATRICOLA);
const TString& tipo = get(F_TIPO);
//genera la query parametrica
TString query;
query << "USE &HAHIS";
query << "\nSELECT (BETWEEN(S7[1,1];#TIPO;#TIPO))&&(BETWEEN(TRIM(401@->S0[6,20]);#MATRICOLA;#MATRICOLA))&&(BETWEEN(122->CODAGE,#CODAG,#CODAG))&&(BETWEEN(I0,#CODCF,#CODCF))&&(BETWEEN(I1,#INDSPED,#INDSPED))";
query << "\nBY 122->CODAGE I0 I1 CODTAB[1,12]";
query << "\nJOIN &HAATT ALIAS 401 INTO CODTAB=CODTAB[1,12]";
query << "\nJOIN CFVEN INTO TIPOCF=\"C\" CODCF==I0";
query << "\nJOIN AGENTI TO CFVEN INTO CODAGE==CODAG";
query << "\nFROM CODTAB=#CODART";
query << "\nTO CODTAB=#CODART";
/*TISAM_recordset recset(query);
recset.set_var("#MATRICOLA", matricola);
recset.set_var("#CODAG", codag);
recset.set_var("#CODCF", codcf);
recset.set_var("#CODTAB", codtab);*/
//const long recset_items = recset.items();
//appiccia il recordset al report
TPrint_storico_report rep;
rep.set_recordset(query);
rep.mask2report(*this);
rep.preview();
rep.print_or_preview();
}
bool TPrint_storico_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
/*switch (o.dlg())
{
}*/
return true;
}

10
ha/ha3700a.rep
View File

@ -173,4 +173,14 @@ MESSAGE ADD,F1.110</prescript>
</field>
<field x="97" type="Valuta" align="right" width="11" id="110" pattern="1" text="#########,@@" />
</section>
<sql>
USE &#26;HAHIS
SELECT (BETWEEN(S7[1,1];#TIPO;#TIPO))&#26;&#26;(BETWEEN(TRIM(401@->S0[1,20]);#CODART;#CODART))&#26;&#26;(BETWEEN(122->CODAGE,#CODAG,#CODAG))&#26;&#26;(BETWEEN(I0,#CODCF,#CODCF))&#26;&#26;(BETWEEN(I1,#INDSPED,#INDSPED))
BY 122->CODAGE I0 I1 CODTAB
JOIN &#26;HAATT ALIAS 401 INTO CODTAB==CODTAB
JOIN CFVEN INTO TIPOCF="C" CODCF==I0
JOIN AGENTI TO CFVEN INTO CODAGE==CODAG
FROM CODTAB=#MATRICOLA
TO CODTAB=#MATRICOLA
</sql>
</report>

3
ha/verigH01.ini Normal file
View File

@ -0,0 +1,3 @@
[MAIN]
SELCLIFO = X

3
ha/verigH02.ini Normal file
View File

@ -0,0 +1,3 @@
[MAIN]
SELCLIFO = X