Prima versione delle stampe

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

pr/pr1.cpp

@@ -0,0 +1,28 @@
+#include <xvt.h>
+#include <checks.h>
+
+#include "pr1.h"
+
+const char* const usage = "Errore - uso : %s -{0|1|2|3}";
+
+int main(int argc,char** argv)
+{
+  const int n = argc > 1 ? atoi(argv[1]+1) : -1;
+
+  switch (n)
+  {
+  case 0:
+    pr1100(argc,argv); break; // stampa agenti
+  case 1:
+    pr1200(argc,argv); break; // stampa archivio percentuali di provvigione
+  case 2:
+    pr1300(argc,argv); break; // stampa schede di provvigione
+  case 3:
+    pr1400(argc,argv); break; // stampa statistiche
+  default:
+    error_box(usage, argv[0]);
+  }
+  exit(0);
+  return 0;
+}
+

pr/pr1.h

@@ -0,0 +1,10 @@
+#ifndef __PR1_H
+#define __PR1_H
+
+int pr1100(int argc, char** argv); 
+int pr1200(int argc, char** argv);
+int pr1300(int argc, char** argv);
+int pr1400(int argc, char** argv);
+
+#endif // __PR1_H
+

pr/pr1.url

@@ -0,0 +1,49 @@
+#include <default.url>
+
+/* pr0 -0 Gestione tabelle */
+
+MENU TASK_MENUBAR
+    SUBMENU MENU_FILE "~File"
+
+/* pr0 -1 Stampa tabelle */
+MENUBAR MENU_BAR(1)
+
+MENU MENU_BAR(1)
+    SUBMENU MENU_FILE "~File"
+
+/* pr0 -2 Parametri studio */
+
+MENUBAR MENU_BAR(2)
+
+MENU MENU_BAR(2)
+    SUBMENU MENU_FILE "~File"
+
+/* pr0 -3 Parametri ditta */
+
+MENUBAR MENU_BAR(3)
+
+MENU MENU_BAR(3)
+    SUBMENU MENU_FILE "~File"
+
+/* pr0 -4 Gestione agenti */
+
+MENUBAR MENU_BAR(4)
+
+MENU MENU_BAR(4)
+    SUBMENU MENU_FILE "~File"
+
+/* pr0 -5 Gestione percentuali di provvigione */
+
+MENUBAR MENU_BAR(5)
+
+MENU MENU_BAR(5)
+    SUBMENU MENU_FILE "~File"
+
+/* pr0 -6 Gestione provvigioni */
+
+MENUBAR MENU_BAR(6)
+
+MENU MENU_BAR(6)
+    SUBMENU MENU_FILE "~File"
+
+    

pr/pr1100.cpp

@@ -0,0 +1,78 @@
+#include <applicat.h>
+#include <config.h>
+#include <mask.h>   
+//#include <printer.h>
+#include <relation.h>
+#include <tabutil.h>
+#include <urldefid.h>
+#include <utility.h>
+#include <form.h>
+#include "agenti.h"
+#include "pr1100.h"
+
+class TStampa_agenti : public TApplication
+{
+  TArray _files;
+  TMask * _mask;
+  TForm * _form; 
+
+  int _codicees;
+  bool _raggmag;
+  TString _daart,_aart,_damag,_amag;
+  TDate _dadata,_adata;
+protected:
+  virtual bool create();
+  virtual bool destroy();
+};
+
+bool TStampa_agenti::create()
+{
+  _files.add(new TLocalisamfile(LF_AGENTI));
+  _files.add(new TLocalisamfile(LF_CLIFO));
+  _files.add(new TLocalisamfile(LF_TAB));
+
+  TRectype darec(LF_AGENTI),arec(LF_AGENTI);
+  _mask = new TMask("pr1100");
+  while (_mask->run() == K_ENTER) {
+  _form = new TForm("pr1100a", "");
+    TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor();
+  
+    TString sortexp;
+    TString filter;
+
+    darec.zero(' ');
+    arec.zero(' ');
+    if (*_mask->get(F_ORDINAMENTO)=='C')
+    {
+      darec.put(AGE_CODAGE,_mask->get(F_DAAGE));
+      arec.put(AGE_CODAGE,_mask->get(F_AAGE));
+      cur.setkey(1);
+    }
+    else
+    {
+      darec.put(AGE_RAGSOC,_mask->get(F_DADES));
+      arec.put(AGE_RAGSOC,_mask->get(F_ADES));
+      cur.setkey(2);
+    }
+    cur.setregion(darec,arec);
+    _form->print();
+  delete _form;
+  } // while true  
+  return FALSE;
+}
+
+bool TStampa_agenti::destroy()
+{
+  delete _mask;
+  return TRUE;
+}
+
+
+
+
+int pr1100(int argc, char** argv)
+{
+  TStampa_agenti a;
+  a.run(argc,argv,"Stampa agenti");
+  return 0;
+}

pr/pr1100.h

@@ -0,0 +1,7 @@
+#define  F_DAAGE   101
+#define  F_AAGE    102
+#define  F_DADES   103
+#define  F_ADES    104
+#define  F_ORDINAMENTO 105
+#define G_CODAGE 1
+#define G_RAGSOC 2

pr/pr1100.uml

@@ -0,0 +1,72 @@
+#include "pr1100.h"
+PAGE "Stampa agenti" -1 -1 78 20
+
+LISTBOX F_ORDINAMENTO 16
+BEGIN
+        PROMPT 2 5 "Ordinamento per "
+        FLAGS "U"
+        ITEM "C|Codice"
+        MESSAGE HIDE,G_RAGSOC@|SHOW,G_CODAGE@
+        ITEM "R|Ragione sociale"
+        MESSAGE SHOW,G_RAGSOC@|HIDE,G_CODAGE@
+END
+
+STRING F_DAAGE 6
+BEGIN
+        PROMPT 2 7 "Dall'agente     "
+        FLAGS "U"
+        USE LF_AGENTI
+        INPUT CODAGE F_DAAGE
+        DISPLAY "Codice" CODAGE
+        DISPLAY "Descr@50" RAGSOC
+        OUTPUT F_DAAGE CODAGE
+        GROUP G_CODAGE
+END
+
+STRING F_AAGE 6
+BEGIN
+        PROMPT 2 9 " all'agente     "
+	FLAGS "U"
+        COPY USE F_DAAGE
+        INPUT CODART F_AAGE
+        COPY DISPLAY F_DAAGE
+        OUTPUT F_AAGE CODART
+        GROUP G_CODAGE
+END
+
+STRING F_DADES 50
+BEGIN
+        PROMPT 2 7 "Dall'agente     "
+	FLAGS "U"
+        USE LF_AGENTI KEY 2
+        INPUT RAGSOC F_DADES
+        DISPLAY "Descr@50" RAGSOC
+        DISPLAY "Codice" CODAGE
+        OUTPUT F_DADES RAGSOC
+        GROUP G_RAGSOC
+END
+
+STRING F_ADES 50
+BEGIN
+        PROMPT 2 9 " all'agente     "
+	FLAGS "U"
+	COPY USE F_DADES
+        INPUT RAGSOC F_ADES
+	COPY DISPLAY F_DADES
+        OUTPUT F_ADES RAGSOC
+        GROUP G_RAGSOC
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+
+ENDPAGE
+ENDMASK

pr/pr1100a.frm

@@ -0,0 +1,311 @@
+#include "pr0500a.h"
+USE LF_AGENTI KEY 1 
+JOIN LF_CLIFO INTO  TIPOCF=="F" CODCF==CODFORN
+END
+	
+DESCRIPTION
+BEGIN
+END
+
+GENERAL
+BEGIN
+    OFFSET 0 0
+    FONT "Courier New"
+    SIZE 10
+    CARATTERE "X"
+    INIZIALE 5 1
+    FINALE 133
+END
+
+
+SECTION HEADER ODD 5
+
+STRINGA 1 40 1
+BEGIN
+ KEY "nome ditta"
+ PROMPT  1 1 "Ditta "
+ MESSAGE _DITTA, !RAGSOC
+END
+
+STRINGA 2 10
+BEGIN
+ KEY "Data"
+ PROMPT  120 1 "Data "
+ MESSAGE _TODAY
+END
+
+NUMERO 3 7
+BEGIN
+ KEY "Nr. pagina"
+ PROMPT  137 1 "Pagina "
+ MESSAGE _PAGENO
+END
+
+NUMERO 4 32
+BEGIN
+ KEY "Intestazione stampa"
+ PROMPT  45 2 "Stampa archivio agenti"
+END
+
+STRINGA 5 146
+BEGIN
+  KEY "Separatore (iniziale)"
+  PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
+END
+END
+
+
+
+
+
+SECTION BODY ODD 12
+
+LISTBOX F_TIPO 20
+BEGIN
+  PROMPT 2 1 ""
+  FIELD TIPO
+  ITEM "A|Agente         :"
+  ITEM "C|Capozona       :"
+  ITEM "S|Subagente      :"
+END
+
+STRING F_CODAGE 12
+BEGIN
+  PROMPT 18 1 ""
+  FIELD CODAGE
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 2 2   "Ragione sociale:"
+  FIELD RAGSOC
+END
+
+NUMBER F_CODFORN 22
+BEGIN
+  PROMPT 3 4 "Cod. fornitore "
+  FIELD CODFORN
+END
+
+STRING F_DESCRFORN 50
+BEGIN
+  PROMPT 30 4 ""
+  FIELD LF_CLIFO->RAGSOC
+END
+
+SECTION RIC1 5 1 2 STREXPR LF_AGENTI->CODCAPO!=""
+        STRING F_CODCAPO 20
+        BEGIN
+          PROMPT 3 1 "Capozona:"
+          FIELD CODCAPO
+        END
+        
+        STRING F_DESCRCAPO 50
+        BEING
+          PROMPT 27 1 ""
+        END
+        NUMBER F_PERCCAPO 80
+        BEGIN
+          PROMPT 3 2 "Perc. della provvigione del capozona percepita sulle provvigioni: "
+          FIELD PERCCAPO
+          PICTURE "###,##"
+        END
+END
+
+
+NUMBER F_PERCFATT 78
+BEGIN
+  PROMPT 3 6 "Perc. della provvigione liquidabile alla fatturazione:"
+  FIELD PERCFATT
+  PICTURE "###,##"
+END
+
+NUMBER F_PERCPAG 78
+BEGIN
+  PROMPT 3 7 "Perc. della provvigione liquidabile al pagamento     :"
+  MESSAGE _NUMEXPR,(100-#F_PERCFATT)
+  PICTURE "###,##"
+END
+
+LISTBOX F_TIPOIMP 70
+BEGIN
+  PROMPT 3 8 ""
+  FIELD TIPOIMP
+  ITEM "L|Calcolo della provvigione sul lordo"
+  ITEM "N|Calcolo della provvigione sul netto"
+END
+
+LISTBOX F_TIPOCAL 20
+BEGIN
+  PROMPT 39 8 ""
+  FIELD TIPOCAL
+  ITEM "D|del documento"
+  ITEM "R|della riga"
+END
+
+NUMBER F_PERCPROVV 70
+BEGIN
+  PROMPT 3 9 "Perc. provvigione fissa:"
+  FIELD PERCPROVV
+  PICTURE "###,##"
+END
+
+SECTION RIC1 10 1 1 STREXPR LF_AGENTI->SEQRIC[1,1]!="-"
+STRING 0 40
+BEGIN
+  PROMPT 6 1 "Ricerca perc. di provvigione su : "
+END
+
+LISTBOX F_SEQRIC1 22
+BEGIN
+  PROMPT 40 1 ""
+  FIELD SEQRIC[1,1]
+  ITEM "A|Agente"                 
+  ITEM "V|Categoria di vendita"   
+  ITEM "M|Articolo di magazzino"  
+  ITEM "C|Cliente"                
+  ITEM "O|Condizione di vendita"  
+  ITEM "1|Archivio % provvigioni" 
+END
+
+STRING F_CODRICPR1 2
+BEGIN
+  PROMPT 61 2 ""
+  FIELD CODRICPR1
+END
+END
+
+SECTION RIC2 10 1 1 STREXPR LF_AGENTI->SEQRIC[2,2]!="-"
+LISTBOX F_SEQRIC2 22
+BEGIN
+  PROMPT 40 1 ""
+  FIELD SEQRIC[2,2]
+  ITEM "-|Nessuno"                
+  ITEM "A|Agente"                 
+  ITEM "V|Categoria di vendita"   
+  ITEM "M|Articolo di magazzino"  
+  ITEM "C|Cliente"                
+  ITEM "O|Condizione di vendita"  
+  ITEM "2|Archivio % provvigioni" 
+END
+
+STRING F_CODRICPR2 2
+BEGIN
+  PROMPT 59 1 ""
+  FIELD CODRICPR2
+END
+END
+
+SECTION RIC3 10 1 1 STREXPR LF_AGENTI->SEQRIC[3,3]!="-"
+LISTBOX F_SEQRIC3 22
+BEGIN
+  PROMPT 40 1 ""
+  FIELD SEQRIC[3,3]
+  ITEM "-|Nessuno"                   
+  ITEM "A|Agente"                    
+  ITEM "V|Categoria di vendita"      
+  ITEM "M|Articolo di magazzino"     
+  ITEM "C|Cliente"                   
+  ITEM "O|Condizione di vendita"     
+  ITEM "3|Archivio % provvigioni"    
+END
+
+STRING F_CODRICPR3 2
+BEGIN
+  PROMPT 59 1 ""
+  FIELD CODRICPR3
+END
+END
+
+SECTION RIC4 10 1 1 STREXPR LF_AGENTI->SEQRIC[4,4]!="-"
+LISTBOX F_SEQRIC4 22
+BEGIN
+  PROMPT 40 5 ""
+  FIELD SEQRIC[4,4]
+  ITEM "-|Nessuno"                
+  ITEM "A|Agente"                 
+  ITEM "V|Categoria di vendita"   
+  ITEM "M|Articolo di magazzino"  
+  ITEM "C|Cliente"                
+  ITEM "O|Condizione di vendita"  
+  ITEM "4|Archivio % provvigioni" 
+END
+
+STRING F_CODRICPR4 2
+BEGIN
+  PROMPT 59 5 ""
+  FIELD CODRICPR4
+END
+END
+
+SECTION RICAGG1 10 1 1 STREXPR LF_AGENTI->SEQALT[1,1]!="-"
+STRING 0 40
+BEGIN
+  PROMPT 6 1 "Ricerca perc. aggiuntiva su     : "
+END
+LISTBOX F_SEQALT1 22
+BEGIN
+  PROMPT 40 1 ""
+  FIELD SEQALT[1,1]
+  ITEM "-|Nessuno"                
+  ITEM "A|Agente"                 
+  ITEM "1|Archivio % provvigioni" 
+END
+
+STRING F_CODALTPR1 2
+BEGIN
+  PROMPT 65 1 ""
+  FIELD CODALTPR1
+END
+END
+
+SECTION RICAGG2 10 1 1 STREXPR LF_AGENTI->SEQALT[2,2]!="-"
+LISTBOX F_SEQALT2 22
+BEGIN
+  PROMPT 40 1 ""
+  FIELD SEQALT[2,2]
+  ITEM "-|Nessuno"                
+  ITEM "A|Agente"                 
+  ITEM "2|Archivio % provvigioni" 
+END
+
+STRING F_CODALTPR2 2
+BEGIN
+  PROMPT 65 1 ""
+  FIELD CODALTPR2
+END
+END
+
+
+SECTION RICAGG3 10 1 1 STREXPR LF_AGENTI->SEQALT[3,3]!="-"
+LISTBOX F_SEQALT3 22
+BEGIN
+  PROMPT 40 1 ""
+  FIELD SEQALT[3,3]
+END
+
+STRING F_CODALTPR3 2
+BEGIN
+  PROMPT 65 1 ""
+  FIELD CODALTPR3
+END
+END
+
+SECTION RICAGG4 10 1 1 STREXPR LF_AGENTI->SEQALT[4,4]!="-"
+LISTBOX F_SEQALT4 22
+BEGIN
+  PROMPT 40 1 ""
+  FIELD SEQALT[4,4]
+  ITEM "-|Nessuno"                
+  ITEM "A|Agente"                 
+  ITEM "4|Archivio % provvigioni" 
+END
+
+STRING F_CODALTPR4 2
+BEGIN
+  PROMPT 65 1 ""
+  FIELD CODALTPR4
+END
+END
+END // Section body
+

pr/pr1200.cpp

@@ -0,0 +1,5 @@
+
+int pr1200(int argc, char** argv)
+{
+  return 0;
+}

pr/pr1300.cpp

@@ -0,0 +1,5 @@
+
+int pr1300(int argc, char** argv)
+{
+  return 0;
+}

pr/pr1400.cpp

@@ -0,0 +1,5 @@
+
+int pr1400(int argc, char** argv)
+{
+  return 0;
+}