Patch level :2.0 partners nopatch

Files correlati     :cm1.exe cm1100a.frm
Ricompilazione Demo : [ ]
Commento            :programma stampa scaduto per commessa del CRPA


git-svn-id: svn://10.65.10.50/trunk@11665 c028cbd2-c16b-5b4b-a496-9718f37d4682

cm/cm1100.cpp

@@ -107,14 +107,42 @@ bool TPag_per_cms_form::validate(TForm_item &cf, TToken_string &s)
     if (cms != prev_cms())
     {
       if (_curr_pag > 0)
-      {
-        TPrintrow pr;
-        printer().print(pr);
-      }
-      cf.set(cms);
+        printer().formfeed();
+      TPrint_section& last_head = section('H', last_page);
+      last_head.find_field(FR_CODCMS).set(cms);
+      last_head.update();
+      for (word i = 0; i < last_head.height(); i++)        
+        printer().print(last_head.row(i));
+
     }
-    else
-      cf.set("");
+    return true;
+  }
+
+  if (s == "_NREG")
+  {
+    TString8 str;
+    str << curr()._nreg;
+    cf.set(str);
+    return true;
+  }
+
+  if (s == "_DATAPAG")
+  {
+    cf.set(curr()._datapag.string());
+    return true;
+  }
+
+  if (s == "_DESCRPAG")
+  {
+    cf.set(curr()._descrpagamento);
+    return true;
+  }
+
+  if (s == "_CODFORN")
+  {
+    TString8 str;
+    str << curr()._codforn;
+    cf.set(str);
     return true;
   }
 

cm/cm1100.h

@@ -4,4 +4,6 @@
 #define FR_DATAFIN    12
 #define FR_DACDC      13
 #define FR_ACDC       14
+#define FR_CODCMS     15
+
 

cm/cm1100a.frm

@@ -67,20 +67,54 @@ BEGIN
   PROMPT 1 6 "@bCodice commessa"
 END
 
+STRINGA -1
+BEGIN
+  KEY "numero registrazione"
+  PROMPT 1 6 "@bN. reg."
+END
+
+STRINGA -1
+BEGIN
+  KEY "data pagamento"
+  PROMPT 10 6 "@bData pag."
+END
+
+STRINGA -1
+BEGIN
+  KEY "descrizione pagamento"
+  PROMPT 22 6 "@bDescrizione pagamento"
+END
+
+STRINGA -1
+BEGIN
+  KEY "codice fornitore"
+  PROMPT 65 6 "@b Fornitore"
+END
+
 STRINGA -1
 BEGIN
   KEY "totale fattura"
-  PROMPT 24 6 "Totale fattura"
+  PROMPT 77 6 " Totale fattura"
 END
 
 STRINGA -1
 BEGIN
   KEY "totale pagamento"
-  PROMPT 39 6 "Totale pagamento"
+  PROMPT 94 6 "Totale pagamento"
 END
 
 END // section header odd
 
+// riga con solo il codice commessa ed una riga vuota
+SECTION HEADER LAST 2
+
+STRINGA FR_CODCMS
+BEGIN
+  KEY "codice commessa"
+  PROMPT 1 1 "@b"
+END
+
+END //section header last
 
 // riga di stampa (utilizzata per ogni gruppo/conto/sottoconto e per tutti i totali)
 SECTION BODY ODD 1
@@ -88,21 +122,50 @@ SECTION BODY ODD 1
 STRINGA -1
 BEGIN
   KEY "codice commessa"
-  PROMPT 1 1 ""
+  PROMPT 1 1 "@b"
   MESSAGE _CODCMS
+  FLAGS "H"
+END
+
+NUMERO -1 7
+BEGIN
+  KEY "numero registrazione"
+  PROMPT 1 1 ""
+  MESSAGE _NREG
+END
+
+DATA -1
+BEGIN
+  KEY "data pagamento"
+  PROMPT 10 1 ""
+  MESSAGE _DATAPAG
+END
+
+STRINGA -1 45
+BEGIN
+  KEY "descrizione pagamento"
+  PROMPT 22 1 ""
+  MESSAGE _DESCRPAG
+END
+
+NUMERO -1 6
+BEGIN
+  KEY "codice fornitore"
+  PROMPT 69 1 ""
+  MESSAGE _CODFORN
 END
 
 VALUTA -1 15
 BEGIN
   KEY "totale fattura"
-  PROMPT 23 1 ""
+  PROMPT 77 1 ""
   MESSAGE _TOTDOC
 END
 
 VALUTA -1 15
 BEGIN
   KEY "totale pagamento"
-  PROMPT 40 1 ""
+  PROMPT 94 1 ""
   MESSAGE _TOTPAG
 END