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_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));
const TRectype& dacms = cache().get("CMS", m.get(F_DACDC));
TString80 des = dacms.get("S0");
@ -393,6 +388,20 @@ void TPag_per_cms_form::print(const TMask& m)
des = acms.get("S0");
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)
header.find_field(FR_HO_FORNCMS).set("Commessa");
else
@ -516,10 +525,10 @@ bool TPag_per_cms::cms_in_range(const TString& codcms, const TString& codfase) c
if (codfase.empty())
return true;
const TString& dallaf = _mask->get(F_DAFSC);
if (dallaf.not_empty() && codcms < dallaf)
if (dallaf.not_empty() && codfase < dallaf)
return false;
const TString& allaf = _mask->get(F_AFSC);
if (allaf.not_empty() && codcms < allaf)
if (allaf.not_empty() && codfase > allaf)
return false;
return true;

16
cm/cm1100.h
View File

@ -6,13 +6,17 @@
#define FR_HO_DADESC 14
#define FR_HO_ACDC 15
#define FR_HO_ADESC 16
#define FR_HO_DACODFOR 17
#define FR_HO_DADESFOR 18
#define FR_HO_ACODFOR 19
#define FR_HO_ADESFOR 20
#define FR_HO_FORNCMS 21
#define FR_HO_DACFSC 17
#define FR_HO_DADESFSC 18
#define FR_HO_ACFSC 19
#define FR_HO_ADESFSC 20
#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_DESC 32

62
cm/cm1100a.frm
View File

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