diff --git a/cm/cm1100.cpp b/cm/cm1100.cpp index 88c9d25e6..f404e4829 100755 --- a/cm/cm1100.cpp +++ b/cm/cm1100.cpp @@ -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; diff --git a/cm/cm1100.h b/cm/cm1100.h index c59864920..40769b433 100755 --- a/cm/cm1100.h +++ b/cm/cm1100.h @@ -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 diff --git a/cm/cm1100a.frm b/cm/cm1100a.frm index a49460b14..19941190b 100755 --- a/cm/cm1100a.frm +++ b/cm/cm1100a.frm @@ -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