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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :stampa commesse in formato adolfico


git-svn-id: svn://10.65.10.50/trunk@16624 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-05-14 15:49:00 +00:00
parent 7b08573aea
commit 281f048803
3 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ca/ca1600.cpp
View File

@ -33,6 +33,16 @@ TMask_print_cms::TMask_print_cms()
acms.set_group(2);
acms.check_type(CHECK_NORMAL);
}
//ci potrebbe essere pure il centro di costo (es. Dinamica con cdc=SEDE)
TConfig& ini = ca_config();
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
{
ca_create_fields(*this, 0, LF_CDC, 3, 15, F_CDC, F_DESCDC);
}
}
}
bool TMask_print_cms::on_field_event(TOperable_field& o, TField_event e, long jolly)
@ -98,7 +108,9 @@ void TPrint_cms::main_loop()
const int anno = m.get_int(F_ANNO);
const TDate dadata = m.get_date(F_DADATA);
const TDate adata = m.get_date(F_ADATA);
const TString cdc = m.get(F_CDC);
TString cdc;
for (short cdc_id = F_CDC; m.id2pos(cdc_id) > 0; cdc_id++)
cdc << m.get(cdc_id);
if (anno > 0 || dadata.ok() || adata.ok() || cdc.full())
{
TString query;
@ -126,6 +138,15 @@ void TPrint_cms::main_loop()
//inserisce la USE e la SELECT all'inizio (tecnica per aggirare il problema degli && ignoti)
query.insert("USE COMMESSE\nSELECT ");
//e se la commessa fosse strutturata?
TString codcms;
for (short codcms_id = F_DACMS; m.id2pos(codcms_id) > 0; codcms_id++)
codcms << m.get(codcms_id);
query << "/n" << "FROM CODCMS='" << codcms << "'";
for (short codcms_id = F_ACMS; m.id2pos(codcms_id) > 0; codcms_id++)
codcms << m.get(codcms_id);
query << "/n" << "TO CODCMS='" << codcms << "'";
//cabia la query al report
rep.set_recordset(query);
}

2
ca/ca1600a.h
View File

@ -4,5 +4,5 @@
#define F_DADATA 110
#define F_ADATA 111
#define F_CDC 112
#define F_DESCDC 113
#define F_DESCDC 116
#define F_REPORT 120

23
ca/ca1600a.uml
View File

@ -26,7 +26,7 @@ BEGIN
PROMPT 2 7 "@bA commessa"
END
GROUPBOX DLG_NULL 77 4
GROUPBOX DLG_NULL 77 7
BEGIN
PROMPT 2 13 "@bParametri"
END
@ -59,27 +59,6 @@ BEGIN
PROMPT 40 14 "A data "
END
STRING F_CDC 20
BEGIN
PROMPT 3 15 "C. di costo "
USE LF_CDC
INPUT CODCOSTO F_CDC
DISPLAY "Centro di costo@20" CODCOSTO
DISPLAY "Descrizione@50" DESCRIZ
OUTPUT F_CDC CODCOSTO
OUTPUT F_DESCDC DESCRIZ
END
STRING F_DESCDC 50 37
BEGIN
PROMPT 38 15 ""
USE LF_CDC KEY 2
INPUT DESCRIZ F_DESCDC
DISPLAY "Descrizione@50" DESCRIZ
DISPLAY "Centro di costo@20" CODCOSTO
COPY OUTPUT F_CDC
END
STRING F_REPORT 20
BEGIN
PROMPT 2 -1 "Report alternativo "