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

Patch level :2.0 nopatch

Browse Source 
Files correlati     :cm1.exe, cm1100a.frm
Ricompilazione Demo : [ ]
Commento            :stampa pagato: aggiunto filtro per fase


git-svn-id: svn://10.65.10.50/trunk@11766 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2004-02-18 16:25:08 +00:00
parent 260f4e0c86
commit 49b851ce5a
3 changed files with 69 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cm/cm1100.cpp
View File

@ -379,11 +379,6 @@ void TPag_per_cms_form::print(const TMask& m)
header.find_field(FR_HO_DATAINI).set(m.get(F_DATAINI)); header.find_field(FR_HO_DATAINI).set(m.get(F_DATAINI));
header.find_field(FR_HO_DATAFIN).set(m.get(F_DATAFIN)); header.find_field(FR_HO_DATAFIN).set(m.get(F_DATAFIN));
header.find_field(FR_HO_DACODFOR).set(m.get(F_DACODFOR));
header.find_field(FR_HO_DADESFOR).set(m.get(F_DADESFOR));
header.find_field(FR_HO_ACODFOR).set(m.get(F_ACODFOR));
header.find_field(FR_HO_ADESFOR).set(m.get(F_ADESFOR));
header.find_field(FR_HO_DACDC).set(m.get(F_DACDC)); header.find_field(FR_HO_DACDC).set(m.get(F_DACDC));
const TRectype& dacms = cache().get("CMS", m.get(F_DACDC)); const TRectype& dacms = cache().get("CMS", m.get(F_DACDC));
TString80 des = dacms.get("S0"); TString80 des = dacms.get("S0");
@ -393,6 +388,20 @@ void TPag_per_cms_form::print(const TMask& m)
des = acms.get("S0"); des = acms.get("S0");
header.find_field(FR_HO_ADESC).set(des); header.find_field(FR_HO_ADESC).set(des);
header.find_field(FR_HO_DACFSC).set(m.get(F_DAFSC));
const TRectype& dafsc = cache().get("FSC", m.get(F_DAFSC));
des = dafsc.get("S0");
header.find_field(FR_HO_DADESFSC).set(des);
header.find_field(FR_HO_ACFSC).set(m.get(F_AFSC));
const TRectype& afsc = cache().get("FSC", m.get(F_AFSC));
des = afsc.get("S0");
header.find_field(FR_HO_ADESFSC).set(des);
header.find_field(FR_HO_DACODFOR).set(m.get(F_DACODFOR));
header.find_field(FR_HO_DADESFOR).set(m.get(F_DADESFOR));
header.find_field(FR_HO_ACODFOR).set(m.get(F_ACODFOR));
header.find_field(FR_HO_ADESFOR).set(m.get(F_ADESFOR));
if (TPag_per_cms_struct::_ordina_forn) if (TPag_per_cms_struct::_ordina_forn)
header.find_field(FR_HO_FORNCMS).set("Commessa"); header.find_field(FR_HO_FORNCMS).set("Commessa");
else else
@ -516,10 +525,10 @@ bool TPag_per_cms::cms_in_range(const TString& codcms, const TString& codfase) c
if (codfase.empty()) if (codfase.empty())
return true; return true;
const TString& dallaf = _mask->get(F_DAFSC); const TString& dallaf = _mask->get(F_DAFSC);
if (dallaf.not_empty() && codcms < dallaf) if (dallaf.not_empty() && codfase < dallaf)
return false; return false;
const TString& allaf = _mask->get(F_AFSC); const TString& allaf = _mask->get(F_AFSC);
if (allaf.not_empty() && codcms < allaf) if (allaf.not_empty() && codfase > allaf)
return false; return false;
return true; return true;

16
cm/cm1100.h
View File

@ -6,13 +6,17 @@
#define FR_HO_DADESC 14 #define FR_HO_DADESC 14
#define FR_HO_ACDC 15 #define FR_HO_ACDC 15
#define FR_HO_ADESC 16 #define FR_HO_ADESC 16
#define FR_HO_DACODFOR 17 #define FR_HO_DACFSC 17
#define FR_HO_DADESFOR 18 #define FR_HO_DADESFSC 18
#define FR_HO_ACODFOR 19 #define FR_HO_ACFSC 19
#define FR_HO_ADESFOR 20 #define FR_HO_ADESFSC 20
#define FR_HO_FORNCMS 21 #define FR_HO_DACODFOR 21
#define FR_HO_DADESFOR 22
#define FR_HO_ACODFOR 23
#define FR_HO_ADESFOR 24
#define FR_HO_FORNCMS 25
#define FR_HL_CODCMS 22 #define FR_HL_CODCMS 30
#define FR_BO_TIPORIGA 31 #define FR_BO_TIPORIGA 31
#define FR_BO_DESC 32 #define FR_BO_DESC 32

62
cm/cm1100a.frm
View File

@ -4,18 +4,18 @@ SECTION GRAPHICS ODD
LINEA -1 132 1 LINEA -1 132 1
BEGIN BEGIN
PROMPT 1 6 "@b" PROMPT 1 7 "@b"
END END
LINEA -1 132 1 LINEA -1 132 1
BEGIN BEGIN
PROMPT 1 8 "@b" PROMPT 1 9 "@b"
END END
END END
// intestazione generale stampa pagato per commessa // intestazione generale stampa pagato per commessa
SECTION HEADER ODD 8 SECTION HEADER ODD 9
NUMERO -1 NUMERO -1
BEGIN BEGIN
@ -40,19 +40,19 @@ END
DATA FR_HO_DATAINI DATA FR_HO_DATAINI
BEGIN BEGIN
KEY "Parametri stampa: data iniziale" KEY "Parametri stampa: data iniziale"
PROMPT 1 3 "@bMovimenti dal " PROMPT 1 3 "@bMovimenti dal@r "
END END
DATA FR_HO_DATAFIN DATA FR_HO_DATAFIN
BEGIN BEGIN
KEY "Parametri stampa: data finale" KEY "Parametri stampa: data finale"
PROMPT 40 3 "al " PROMPT 40 3 "@bal@r "
END END
STRINGA FR_HO_DACDC STRINGA FR_HO_DACDC
BEGIN BEGIN
KEY "da codice commessa" KEY "da codice commessa"
PROMPT 1 4 "@bDa comm. " PROMPT 1 4 "@bDa comm.@r "
END END
STRINGA FR_HO_DADESC 35 STRINGA FR_HO_DADESC 35
@ -64,7 +64,7 @@ END
STRINGA FR_HO_ACDC STRINGA FR_HO_ACDC
BEGIN BEGIN
KEY "a codice commessa" KEY "a codice commessa"
PROMPT 66 4 "A comm. " PROMPT 66 4 "@bA comm.@r "
END END
STRINGA FR_HO_ADESC 35 STRINGA FR_HO_ADESC 35
@ -73,70 +73,94 @@ BEGIN
PROMPT 93 4 "" PROMPT 93 4 ""
END END
STRINGA FR_HO_DACFSC
BEGIN
KEY "da codice fase"
PROMPT 1 5 "@bDa fase@r "
END
STRINGA FR_HO_DADESFSC 43
BEGIN
KEY "da descrizione fase"
PROMPT 20 5 ""
END
STRINGA FR_HO_ACFSC
BEGIN
KEY "a codice fase"
PROMPT 66 5 "@bA fase@r "
END
STRINGA FR_HO_ADESFSC
BEGIN
KEY "a descrizione fase"
PROMPT 81 5 ""
END
STRINGA FR_HO_DACODFOR STRINGA FR_HO_DACODFOR
BEGIN BEGIN
KEY "da codice fornitore" KEY "da codice fornitore"
PROMPT 1 5 "@bDal forn. " PROMPT 1 6 "@bDal forn.@r "
END END
STRINGA FR_HO_DADESFOR STRINGA FR_HO_DADESFOR 48
BEGIN BEGIN
KEY "da ragsoc" KEY "da ragsoc"
PROMPT 17 5 "" PROMPT 17 6 ""
END END
STRINGA FR_HO_ACODFOR STRINGA FR_HO_ACODFOR
BEGIN BEGIN
KEY "a codice fornitore" KEY "a codice fornitore"
PROMPT 68 5 "Al forn. " PROMPT 66 6 "@bAl forn.@r "
END END
STRINGA FR_HO_ADESFOR STRINGA FR_HO_ADESFOR
BEGIN BEGIN
KEY "a ragsoc" KEY "a ragsoc"
PROMPT 84 5 "" PROMPT 84 6 ""
END END
STRINGA -1 STRINGA -1
BEGIN BEGIN
KEY "numero registrazione" KEY "numero registrazione"
PROMPT 1 7 "@bN. reg." PROMPT 1 8 "@bN. reg."
END END
STRINGA -1 STRINGA -1
BEGIN BEGIN
KEY "data pagamento" KEY "data pagamento"
PROMPT 10 7 "@bData pag." PROMPT 10 8 "@bData pag."
END END
STRINGA -1 STRINGA -1
BEGIN BEGIN
KEY "descrizione pagamento" KEY "descrizione pagamento"
PROMPT 22 7 "@bDescrizione pagamento" PROMPT 22 8 "@bDescrizione pagamento"
END END
STRINGA FR_HO_FORNCMS STRINGA FR_HO_FORNCMS
BEGIN BEGIN
KEY "codice fornitore" KEY "codice fornitore"
PROMPT 63 7 "@b" PROMPT 63 8 "@b"
END END
STRINGA -1 STRINGA -1
BEGIN BEGIN
KEY "totale fattura" KEY "totale fattura"
PROMPT 85 7 "@bTotale fattura" PROMPT 85 8 "@bTotale fattura"
END END
STRINGA -1 STRINGA -1
BEGIN BEGIN
KEY "totale pagamento" KEY "totale pagamento"
PROMPT 101 7 "@bTotale pagamento" PROMPT 101 8 "@bTotale pagamento"
END END
STRINGA -1 STRINGA -1
BEGIN BEGIN
KEY "totale residuo" KEY "totale residuo"
PROMPT 118 7 "@bTotale residuo" PROMPT 118 8 "@bTotale residuo"
END END
END // section header odd END // section header odd