Correzione errore MI1102: stampa condizioni di pagamento.

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

ba/ba3.cpp

@@ -3,7 +3,7 @@
 
 #include "ba3.h"
 
-#define usage   "Error - usage : %s -{0|1|2|3|4|5}"
+#define usage   "Error - usage : %s -{0|1|2|3|4|5|6|7|8|9}"
 
 int main(int argc, char** argv)
 {
@@ -30,6 +30,8 @@ int main(int argc, char** argv)
     rt = ba3800(argc,argv) ; break;
   case 8:
     rt = ba3900(argc,argv) ; break;
+  case 9:
+    rt = ba3a00(argc,argv) ; break;
   default:
     error_box(usage, argv[0]) ; break;
   }

ba/ba3.h

@@ -10,5 +10,6 @@ int ba3600(int argc, char* argv[]);
 int ba3700(int argc, char* argv[]);
 int ba3800(int argc, char* argv[]);
 int ba3900(int argc, char* argv[]);
+int ba3a00(int argc, char* argv[]);
 
 #endif // __BA3_H

ba/ba3.url

@@ -62,3 +62,12 @@ MENUBAR MENU_BAR(8)
 MENU MENU_BAR(8)
 	SUBMENU MENU_FILE   "~File"
 
+/*
+ * ba3 -9
+ */
+
+MENUBAR MENU_BAR(9)
+
+MENU MENU_BAR(9)
+	SUBMENU MENU_FILE   "~File"
+

ba/ba3a00.cpp

@@ -0,0 +1,179 @@
+// Stampa condizioni di pagamento
+#include <printapp.h>
+#include <mask.h>
+#include <tabutil.h>
+#include <utility.h>
+
+#include <nditte.h>
+#include "ba3a00a.h"
+
+class Stampa_condizioni_pagamento_application : public TPrintapp
+{
+  TRelation     *_rel;                      // Relazione di lavoro...
+  int           _cur;                       // Identificatori dei cursori di lavoro... 
+  TMask         *_msk;
+  TString       _mese_com;                  // Contiene Si o No se e' mese commerciale
+  TString       _inizio_cal;                // Contiene "Data fattura", "Fine mese" o "Da impostare"
+public:
+
+  virtual bool user_create() ;
+  virtual bool user_destroy();
+  virtual bool set_print(int);
+  
+  virtual bool preprocess_page  (int,int);
+  virtual print_action postprocess_page (int,int);
+  
+  virtual void set_page(int,int);
+  void print_header();
+  void set_page_cpg();
+  
+  Stampa_condizioni_pagamento_application() {};
+};
+
+bool Stampa_condizioni_pagamento_application::preprocess_page(int file, int counter)
+{
+  TRectype &rc = current_cursor()->curr(LF_TABCOM);
+  const bool ms_cm = rc.get_bool("B0");
+  _inizio_cal  = rc.get("S1");
+  
+  if (ms_cm ) _mese_com = "Si";
+  else _mese_com = "No";
+  
+  if (_inizio_cal == "F") _inizio_cal = "Data fattura";
+  else
+    if (_inizio_cal == "M") _inizio_cal = "Fine mese";
+    else
+      if (_inizio_cal == "I") _inizio_cal = "Da impostare";
+  
+  return TRUE;
+}
+
+print_action Stampa_condizioni_pagamento_application::postprocess_page(int file, int counter)
+{
+  TPrintrow pr;
+  TTable rpg("%RPG");
+  TRectype &rc = current_cursor()->curr(LF_TABCOM);
+  TString codtab1(rc.get("CODTAB")), codtab2, ultcl,st;
+  int nrata, giorni=0, td;
+  real perc;
+  rpg.zero(); rpg.put("CODTAB",codtab1);
+  rpg.read(_isgteq);
+  
+  do
+  {
+    codtab2 = rpg.get("CODTAB");
+    nrata  = atoi(codtab2.right(3)) +1;
+    codtab2.cut(codtab2.len()-3);
+    if (codtab1 == codtab2)
+    {
+      giorni = giorni + rpg.get_int("I0");
+      td = rpg.get_int("I1");
+      ultcl = rpg.get("S1");
+      perc = rpg.get_real("R0");
+      st.format("%3d  %4d  %6s %2d  %3s", nrata, giorni, perc.string(3,2), td, (const char*)ultcl);
+      pr.reset();
+      pr.put(st,100,st.len());
+      printer().print(pr);
+      rpg.next();
+    }
+  } while (codtab1 == codtab2 && rpg.good());
+  
+  return NEXT_PAGE;
+}
+
+void Stampa_condizioni_pagamento_application::print_header()
+// Setta le righe dell'intestazione
+{
+  int soh = 1;    
+  const long firm = get_firm();
+
+  reset_header ();
+  TLocalisamfile ditte(LF_NDITTE);
+  ditte.zero();
+  ditte.put(NDT_CODDITTA, firm);
+  ditte.read();
+  if (ditte.bad()) ditte.zero();
+
+  TString s;
+  TString256 rw;
+  TString NomeTabella("CONDIZIONI DI PAGAMENTO");
+  s = ditte.get(NDT_RAGSOC);    
+
+  rw.spaces(131);
+  rw.overwrite(format("Ditta %4ld %s", firm,(const char *)s));
+  rw.overwrite ("Data @< Pag. @#", rw.len()-22);
+  set_header (soh++, "%s", (const char *)rw);
+  NomeTabella.left_just (132);
+  set_header (soh++, "");
+  set_header (soh++, "@b%s", (const char *)NomeTabella);
+  set_header (soh++, "");
+  set_header (soh++, "@47gTp    @53gInizio    @66gMese @73gGiorni@89gIntervallo@108gScadenze");
+  set_header (soh++, "Cod.   @12gDescrizione @47gdoc.@53gcalcolo@66gcomm. @73gsc. fissa@92grate@103gNr.  gg.  %%    Td.  ult. cl.");
+  set_header(soh,"");
+  set_background(format("W2l{1,4,132,4}l{1,%d,132,%d}", soh, soh));
+}                          
+
+void Stampa_condizioni_pagamento_application::set_page_cpg()
+{ 
+  set_row(1,"");
+  set_row(2,"@b@5s@12g@35s@r",FLD("%CPG","CODTAB"),FLD("%CPG","S0"));
+  set_row(2,"@48g@2s@53g#8t",FLD("%CPG","S4"),&_inizio_cal);
+  set_row(2,"@66g#2t",&_mese_com);
+  set_row(2,"@73g@2s @77g@2s @81g@2s",FLD("%CPG","I0"),FLD("%CPG","I1"),FLD("%CPG","I2"));
+  set_row(2,"@93g@2s",FLD("%CPG","I3"));
+}
+
+void Stampa_condizioni_pagamento_application::set_page(int file, int counter)
+{ 
+  print_header();
+  set_page_cpg();
+}
+
+bool Stampa_condizioni_pagamento_application::set_print(int)
+{       
+  bool rt = FALSE;
+  const KEY tasto = _msk->run();
+  if (tasto == K_ENTER)
+  {
+    TRectype from(_rel->lfile().curr()); from.zero();
+    from.put("COD","CPG");
+    TRectype to  (from);
+    TString da,a;
+  
+    reset_files();
+    reset_print();
+    add_file(LF_TABCOM);
+    da = _msk->get(F_INIZIO);
+    a  = _msk->get(F_FINE);
+    
+    if (da.not_empty()) from.put("CODTAB",da);
+    if (a.not_empty()) to.put("CODTAB",a);
+    get_cursor(_cur)->setregion (from, to);
+    rt = TRUE;
+  }
+  return rt;
+}
+
+bool Stampa_condizioni_pagamento_application::user_create()
+{
+  _msk = new TMask("ba3a00a");
+  _rel = new TRelation("%CPG");
+  _cur = add_cursor(new TCursor(_rel));
+  return TRUE;
+}
+
+bool Stampa_condizioni_pagamento_application::user_destroy()
+{
+  delete _rel;
+  delete _msk;
+  return TRUE;
+}
+
+int ba3a00 (int argc, char* argv[])
+{
+
+  Stampa_condizioni_pagamento_application a;
+
+  a.run(argc, argv, "Stampa condizioni di pagamento");
+  return 0;
+}

ba/ba3a00a.h

@@ -0,0 +1,6 @@
+
+#define F_INIZIO  101
+#define F_FINE    102
+
+
+

ba/ba3a00a.uml

@@ -0,0 +1,43 @@
+
+#include "ba3a00a.h"
+
+PAGE "Stampa condizioni di pagamento" -1 -1 35 6
+STRING F_INIZIO 4
+BEGIN
+  PROMPT 2 1 "Da codice "
+  FLAGS "UZ"
+  HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
+  FIELD CODTAB
+  USE %CPG 
+  INPUT CODTAB F_INIZIO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_INIZIO CODTAB
+  GROUP 1
+END
+
+STRING F_FINE 4
+BEGIN
+  PROMPT 2 3 "A codice  "
+  FLAGS "UZ"
+  HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
+  FIELD CODTAB
+  COPY USE F_INIZIO
+  INPUT CODTAB F_FINE
+  COPY DISPLAY F_INIZIO
+  OUTPUT F_FINE CODTAB
+  GROUP 2
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK