From 02de80282eb4dbabdda07331d1285d7f393f0306 Mon Sep 17 00:00:00 2001 From: "(no author)" <(no author)@c028cbd2-c16b-5b4b-a496-9718f37d4682> Date: Wed, 20 Apr 2011 13:59:53 +0000 Subject: [PATCH] This commit was manufactured by cvs2svn to create branch 'R_10_00'. git-svn-id: svn://10.65.10.50/branches/R_10_00@21996 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ha/ha3700.cpp | 131 ++++++++++++++++++++++++++++++++++++ ha/ha3700a.h | 12 ++++ ha/ha3700a.rep | 149 ++++++++++++++++++++++++++++++++++++++++ ha/ha3700a.uml | 179 +++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 471 insertions(+) create mode 100755 ha/ha3700.cpp create mode 100755 ha/ha3700a.h create mode 100755 ha/ha3700a.rep create mode 100755 ha/ha3700a.uml diff --git a/ha/ha3700.cpp b/ha/ha3700.cpp new file mode 100755 index 000000000..7e41c1651 --- /dev/null +++ b/ha/ha3700.cpp @@ -0,0 +1,131 @@ +#include +#include +#include +#include +#include +#include +#include + +#include "../ba/ba8500.h" + +#include "ha3700a.h" + + +/////////////////////////////////////////////////////////// +// Report +/////////////////////////////////////////////////////////// + +class TPrint_storico_report : public TReport +{ +protected: + virtual bool use_mask() { return false; } + +public: + TPrint_storico_report(); +}; + +TPrint_storico_report::TPrint_storico_report() +{ + load("ha3700a"); +} + + +/////////////////////////////////////////////////////////// +// Maschera +/////////////////////////////////////////////////////////// + +class TPrint_storico_mask : public TAutomask +{ +protected: + virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); + +public: + void elabora(); + TPrint_storico_mask(); + virtual ~TPrint_storico_mask() {} +}; + + +void TPrint_storico_mask::elabora() +{ + //prende un tot di dati dalla maschera per stabilire la query + const TString& codag = get(F_CODAG); + const long codcf = get_long(F_CODCF); + const int codindsp = get_int(F_CODINDSP); + + const TString& codart = get(F_CODART); + const long progressivo = get_long(F_PROGRESSIVO); + TString16 codtab; + codtab.format("%-5s%07d", (const char*)codart, progressivo); + const TString& matricola = get(F_MATRICOLA); + const TString& tipo = get(F_TIPO); + + //genera la query parametrica + TString query; + query << "USE &HAHIS"; + query << "\nSELECT (BETWEEN(S7[1,1];#TIPO;#TIPO))&&(BETWEEN(TRIM(401@->S0[6,20]);#MATRICOLA;#MATRICOLA))&&(BETWEEN(122->CODAGE,#CODAG,#CODAG))&&(BETWEEN(I0,#CODCF,#CODCF))&&(BETWEEN(I1,#INDSPED,#INDSPED))"; + query << "\nBY 122->CODAGE I0 I1 CODTAB[1,12]"; + query << "\nJOIN &HAATT ALIAS 401 INTO CODTAB=CODTAB[1,12]"; + query << "\nJOIN CFVEN INTO TIPOCF=\"C\" CODCF==I0"; + query << "\nJOIN AGENTI TO CFVEN INTO CODAGE==CODAG"; + query << "\nFROM CODTAB=#CODART"; + query << "\nTO CODTAB=#CODART"; + + /*TISAM_recordset recset(query); + recset.set_var("#MATRICOLA", matricola); + recset.set_var("#CODAG", codag); + recset.set_var("#CODCF", codcf); + recset.set_var("#CODTAB", codtab);*/ + + //const long recset_items = recset.items(); + + //appiccia il recordset al report + TPrint_storico_report rep; + rep.set_recordset(query); + rep.mask2report(*this); + rep.preview(); +} + + +bool TPrint_storico_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) +{ + /*switch (o.dlg()) + { + }*/ + return true; +} + + +TPrint_storico_mask::TPrint_storico_mask() : TAutomask("ha3700a") +{ +} + +/////////////////////////////////////////////////////////// +// Applicazione +/////////////////////////////////////////////////////////// + +class TPrint_storico : public TKlarkKent_app +{ +protected: + +public: + virtual void main_loop(); +}; + + +void TPrint_storico::main_loop() +{ + TPrint_storico_mask mask; + + while (mask.run() == K_ENTER) + { + mask.elabora(); + } +} + +int ha3700(int argc, char* argv[]) +{ + TPrint_storico app; + app.run(argc, argv, TR("Stampa storico attrezzature")); + return 0; +} \ No newline at end of file diff --git a/ha/ha3700a.h b/ha/ha3700a.h new file mode 100755 index 000000000..b567aba4a --- /dev/null +++ b/ha/ha3700a.h @@ -0,0 +1,12 @@ +#define F_CODAG 201 +#define F_DESCRAG 202 +#define F_CODCF 203 +#define F_RAGSOC 204 +#define F_CODINDSP 205 +#define F_INDSP 206 +#define F_RAGSOCINDSP 207 +#define F_CODART 208 +#define F_DESART 209 +#define F_PROGRESSIVO 210 +#define F_MATRICOLA 211 +#define F_TIPO 212 diff --git a/ha/ha3700a.rep b/ha/ha3700a.rep new file mode 100755 index 000000000..34e047f64 --- /dev/null +++ b/ha/ha3700a.rep @@ -0,0 +1,149 @@ + + + Storico attrezzature + +
+
+ MESSAGE RESET,F1 + + + +
+
+ 122-E;CODAGE + + MESSAGE RESET,F2 + + + 122-E;CODAGE + + + MESSAGE ISAMREAD,122,CODAGE=#101,RAGSOC + + +
+
+ STR(I0)+STR(I1) + + MESSAGE RESET,F3 + + + I0 + + + + + + + + + + + + + + MESSAGE ISAMREAD,13,COM=#106,DENCOM + +
+
+ CODTAB[1,12] + + MESSAGE RESET,F4 + + CODTAB[1,5] + + + CODTAB[6,12] + + + 401@-E;S0[6,20] + + + MESSAGE ISAMREAD,47,CODART=#101,DESCR + +
+
+
+ + S7[1,1] + +
  • +
  • +
  • +
  • +
  • + + + + B0 + + + D0 + + + S0 + + + S6[1,2] + + + R0 + + + R1 + MESSAGE ADD,F4.110 +MESSAGE ADD,F3.110 +MESSAGE ADD,F2.110 +MESSAGE ADD,F1.110 + +
    • +
    +
    +
    + + + + + H2.101 + + + H2.102 + + +
    +
    + + + + + H3.101 + + + H3.103 + + +
    +
    + + + + H4.103 + + + H4.104 + + + H4.101 + + + H4.102 + + +
    + \ No newline at end of file diff --git a/ha/ha3700a.uml b/ha/ha3700a.uml new file mode 100755 index 000000000..42cbe1095 --- /dev/null +++ b/ha/ha3700a.uml @@ -0,0 +1,179 @@ +#include "ha3700a.h" + +PAGE "Storico attrezzature" -1 -1 78 12 + +STRING F_CODAG 5 +BEGIN + PROMPT 1 1 "Agente " + USE LF_AGENTI + INPUT CODAGE F_CODAG + DISPLAY "Codice@8R" CODAGE + DISPLAY "Descrizione@50" RAGSOC + OUTPUT F_CODAG CODAGE + OUTPUT F_DESCRAG RAGSOC + CHECKTYPE NORMAL + FLAGS "UZ" + FIELD #CODAG +END + +STRING F_DESCRAG 50 +BEGIN + PROMPT 20 1 "" + USE LF_AGENTI KEY 2 + INPUT RAGSOC F_DESCRAG + DISPLAY "Descrizione@50" RAGSOC + DISPLAY "Codice@5R" CODAGE + COPY OUTPUT F_CODAG + CHECKTYPE NORMAL +END + +NUMBER F_CODCF 6 +BEGIN + PROMPT 1 2 "Cliente " + FLAGS "U" + USE LF_CLIFO + INPUT TIPOCF "C" + INPUT CODCF F_CODCF + DISPLAY "Codice" CODCF + DISPLAY "Descrizione@50" RAGSOC + OUTPUT F_CODCF CODCF + OUTPUT F_RAGSOC RAGSOC + CHECKTYPE NORMAL + FIELD #CODCF +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 20 2 "" + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC F_RAGSOC + DISPLAY "Descrizione@50" RAGSOC + DISPLAY "Codice" CODCF + COPY OUTPUT F_CODCF + CHECKTYPE NORMAL +END + +NUMBER F_CODINDSP 3 +BEGIN + PROMPT 1 3 "Sede " + USE LF_INDSP + INPUT TIPOCF "C" + INPUT CODCF F_CODCF SELECT + INPUT CODIND F_CODINDSP + DISPLAY "Cod." CODIND + DISPLAY "Indirizzo@35" INDIR + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODCF CODCF + OUTPUT F_CODINDSP CODIND + OUTPUT F_INDSP INDIR + OUTPUT F_RAGSOCINDSP RAGSOC + CHECKTYPE NORMAL + FIELD #INDSPED +END + +STRING F_INDSP 35 +BEGIN + PROMPT 20 3 "" + FLAGS "D" + CHECKTYPE SEARCH +END + +STRING F_RAGSOCINDSP 50 +BEGIN + PROMPT 1 4 "Ragsoc. " + FLAGS "D" + CHECKTYPE SEARCH +END + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 1 6 "@bAttrezzatura" +END + +STRING F_CODART 5 +BEGIN + PROMPT 2 7 "Articolo " + FLAGS "U" + USE LF_ANAMAG SELECT (GRMERC="50")&&(SOSPESO!="X") + INPUT CODART F_CODART + DISPLAY "Codice" CODART + DISPLAY "Descrizione@50" DESCR + OUPUT F_CODART CODART + OUPUT F_DESART DESCR + CHECKTYPE NORMAL + FIELD #CODART +END + +STRING F_DESART 50 +BEGIN + PROMPT 23 7 "" + USE LF_ANAMAG KEY 2 SELECT (GRMERC="50")&&(SOSPESO!="X") + INPUT DESCR F_DESART + DISPLAY "Descrizione@50" DESCR + DISPLAY "Codice" CODART + COPY OUTPUT F_CODART + CHECKTYPE NORMAL +END + +NUMBER F_PROGRESSIVO 7 +BEGIN + PROMPT 2 8 "Progres. " + FLAGS "UZ" + USE &ATT + JOIN LF_ANAMAG INTO CODART=CODTAB[1,5] + INPUT CODTAB[1,5] F_CODART + INPUT CODTAB[6,12] F_PROGRESSIVO + DISPLAY "Progressivo" CODTAB[6,12] + DISPLAY "Articolo" CODTAB[1,5] + DISPLAY "Matricola@15" S0[6,20] + DISPLAY "Descrizione@50" LF_ANAMAG->DESCR + DISPLAY "Cespite@10" S1[1,10] + OUTPUT F_CODART CODTAB[1,5] + OUTPUT F_PROGRESSIVO CODTAB[6,12] + OUTPUT F_MATRICOLA S0[6,20] + //OUTPUT F_CESPITE S1[1,10] + OUTPUT F_CODCF I0 + CHECKTYPE SEARCH + FIELD #PROGRESSIVO +END + +STRING F_MATRICOLA 15 +BEGIN + PROMPT 23 8 "Matricola " + FLAGS "U" + USE &ATT KEY 2 + JOIN LF_ANAMAG INTO CODART=CODTAB[1,5] + INPUT S0[1,5] F_CODART + INPUT S0[6,20] F_MATRICOLA + DISPLAY "Codice@5" S0[1,5] + DISPLAY "Matricola@15" S0[6,20] + DISPLAY "Progressivo" CODTAB[6,12] + DISPLAY "Descrizione@50" LF_ANAMAG->DESCR + DISPLAY "Cespite@10" S1[1,10] + DISPLAY "Cliente" I0 + COPY OUTPUT F_PROGRESSIVO + CHECKTYPE SEARCH + FIELD #MATRICOLA +END + +LISTBOX F_TIPO 1 16 +BEGIN + PROMPT 1 10 "Tipo intervento" + ITEM " |Tutti" + ITEM "C|Comodato d'uso" + ITEM "D|Descrittivo" + ITEM "I|Insegne nuove" + ITEM "R|Riparazione" + ITEM "V|Varie" + FIELD #TIPO +END + +ENDPAGE + + +TOOLBAR "" 0 0 0 2 +#include "printbar.h" +ENDPAGE + +ENDMAK \ No newline at end of file