diff --git a/ba/ba6300.cpp b/ba/ba6300.cpp new file mode 100755 index 000000000..d05307bfb --- /dev/null +++ b/ba/ba6300.cpp @@ -0,0 +1,92 @@ +//Programma per la stampa anagrafiche utilizzando i files .rep (21/06/2004) + +#include +#include +#include +#include + +#include "ba6300a.h" + +class TPrint_anagraph : public TSkeleton_application +{ + TMask* _mask; + +protected: + virtual void main_loop(); + virtual bool create(); + virtual bool destroy(); + +public: + bool get_rep_name(TFilename& repname) const; +}; + + +bool TPrint_anagraph::create() +{ + _mask = new TMask("ba6300a"); + return TSkeleton_application::create(); +} + +bool TPrint_anagraph::destroy() +{ + delete _mask; + return TSkeleton_application::destroy(); +} + +bool TPrint_anagraph::get_rep_name(TFilename& repname) const +{ + return repname.custom_path(); +} + +void TPrint_anagraph::main_loop() +{ + KEY key = K_ENTER; + while (key != K_QUIT) + { + key = _mask->run(); + TFilename rep_name = _mask->get(F_PERSREP); + if (rep_name.empty()) + { + rep_name = "ba63"; + rep_name << _mask->get(F_TIPOSTAMPA); + rep_name << _mask->get(F_TIPO); + } + rep_name.ext("rep"); + + if (rep_name.custom_path()) + { + TReport rep; rep.load(rep_name); + TReport_book book; + book.add(rep); + book.print_or_preview(); + } + else + error_box(FR("Il file %s non esiste"), (const char*)rep_name); + } +} + + +int ba6300(int argc, char* argv[]) +{ + TPrint_anagraph app; + app.run(argc, argv, TR("Stampa Anagrafiche")); + return 0; +} + + + + + + + + + + + + + + + + + + diff --git a/ba/ba6300a.h b/ba/ba6300a.h new file mode 100755 index 000000000..b598c65b3 --- /dev/null +++ b/ba/ba6300a.h @@ -0,0 +1,17 @@ +#define F_TIPO 100 +#define F_SORT 101 +#define F_DACOD_F 102 +#define F_DARAGSOC_F 103 +#define F_ACOD_F 104 +#define F_ARAGSOC_F 105 +#define F_DACOD_G 106 +#define F_DARAGSOC_G 107 +#define F_ACOD_G 108 +#define F_ARAGSOC_G 109 +#define F_DACOD_D 110 +#define F_DARAGSOC_D 111 +#define F_ACOD_D 112 +#define F_ARAGSOC_D 113 +#define F_TIPOSTAMPA 114 +#define F_PERSREP 115 +#define F_INCLDI 116 diff --git a/ba/ba6300a.uml b/ba/ba6300a.uml new file mode 100755 index 000000000..4d00ec2ec --- /dev/null +++ b/ba/ba6300a.uml @@ -0,0 +1,239 @@ +#include "ba6300a.h" + +TOOLBAR "" 0 -3 0 3 + +BUTTON DLG_NEWREC 10 2 +BEGIN + PROMPT -14 -11 "" + PICTURE BMP_NEWREC + PICTURE BMP_NEWRECDN +END + +BUTTON DLG_EDIT 10 2 +BEGIN + PROMPT -24 -11 "" + PICTURE BMP_EDIT +END + +BUTTON DLG_PRINT 10 2 +BEGIN + PROMPT -34 -11 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -44 -11 "" +END + +ENDPAGE + +PAGE "Definizione Stampe Anagrafiche" -1 -1 78 14 + +GROUPBOX DLG_NULL 76 11 +BEGIN + PROMPT 1 1 "@bSelezione" +END + +RADIOBUTTON F_TIPO 25 +BEGIN + PROMPT 2 2 "Oggetto" + ITEM "F|Persone Fisiche" + MESSAGE ENABLE,F_INCLDI + MESSAGE HIDE,2@|HIDE,3@|SHOW,1@ + ITEM "G|Persone Giuridiche" + MESSAGE ENABLE,F_INCLDI + MESSAGE HIDE,1@|HIDE,3@|SHOW,2@ + ITEM "D|Ditte" + MESSAGE DISABLE,F_INCLDI + MESSAGE HIDE,1@|HIDE,2@|SHOW,3@ +END + +RADIOBUTTON F_SORT 25 +BEGIN + PROMPT 35 2 "Ordinamento" + HELP "Selezionare il tipo di ordinamento dei record stampati" + ITEM "1|per Codice" + MESSAGE DISABLE,5@|ENABLE,4@|RESET,5@ + ITEM "2|per Ragione Sociale" + MESSAGE DISABLE,4@|ENABLE,5@|RESET,4@ +END + +NUMBER F_DACOD_F 5 +BEGIN + PROMPT 2 7 "Da codice " + USE LF_ANAG KEY 1 + INPUT TIPOA "F" + INPUT CODANAGR F_DACOD_F + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale@16" COFI + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_DACOD_F CODANAGR + OUTPUT F_DARAGSOC_F RAGSOC + FLAGS "R" + GROUP 1 4 +END + +STRING F_DARAGSOC_F 50 +BEGIN + PROMPT 23 7 "" + USE LF_ANAG KEY 2 + INPUT TIPOA "F" + INPUT RAGSOC F_DARAGSOC_F + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale@16" COFI + COPY OUTPUT F_DACOD_F + GROUP 1 5 +END + +NUMBER F_ACOD_F 5 +BEGIN + PROMPT 2 8 "A codice " + COPY USE F_DACOD_F + INPUT TIPOA "F" + INPUT CODANAGR F_ACOD_F + COPY DISPLAY F_DACOD_F + OUTPUT F_ACOD_F CODANAGR + OUTPUT F_ARAGSOC_F RAGSOC + FLAGS "R" + GROUP 1 4 +END + +STRING F_ARAGSOC_F 50 +BEGIN + PROMPT 23 8 "" + COPY USE F_DARAGSOC_F + INPUT TIPOA "F" + INPUT RAGSOC F_ARAGSOC_F + COPY DISPLAY F_DARAGSOC_F + COPY OUTPUT F_ACOD_F + GROUP 1 5 +END + +NUMBER F_DACOD_G 5 +BEGIN + PROMPT 2 7 "Da codice " + USE LF_ANAG KEY 1 + INPUT TIPOA "G" + INPUT CODANAGR F_DACOD_G + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale@16" COFI + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_DACOD_G CODANAGR + OUTPUT F_DARAGSOC_G RAGSOC + FLAGS "R" + GROUP 2 4 +END + +STRING F_DARAGSOC_G 50 +BEGIN + PROMPT 23 7 "" + USE LF_ANAG KEY 2 + INPUT TIPOA "G" + INPUT RAGSOC F_DARAGSOC_G + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale@16" COFI + COPY OUTPUT F_DACOD_G + GROUP 2 5 +END + +NUMBER F_ACOD_G 5 +BEGIN + PROMPT 2 8 "A codice " + COPY USE F_DACOD_G + INPUT TIPOA "G" + INPUT CODANAGR F_ACOD_G + COPY DISPLAY F_DACOD_G + OUTPUT F_ACOD_G CODANAGR + OUTPUT F_ARAGSOC_G RAGSOC + FLAGS "R" + GROUP 2 4 +END + +STRING F_ARAGSOC_G 50 +BEGIN + PROMPT 23 8 "" + COPY USE F_DARAGSOC_G + INPUT TIPOA "G" + INPUT RAGSOC F_ARAGSOC_G + COPY DISPLAY F_DARAGSOC_G + COPY OUTPUT F_ACOD_G + GROUP 2 5 +END + +STRING F_DACOD_D 5 +BEGIN + PROMPT 2 7 "Da codice " + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_DACOD_D + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Persona Rif.@20" PERRIF + OUTPUT F_DACOD_D CODDITTA + OUTPUT F_DARAGSOC_D RAGSOC + GROUP 3 4 +END + +STRING F_DARAGSOC_D 50 +BEGIN + PROMPT 23 7 "" + USE LF_NDITTE KEY 2 + INPUT RAGSOC F_DARAGSOC_D + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Persona Rif.@20" PERRIF + COPY OUTPUT F_DACOD_D + GROUP 3 5 +END + +STRING F_ACOD_D 5 +BEGIN + PROMPT 2 8 "A codice " + COPY USE F_DACOD_D + INPUT CODDITTA F_ACOD_D + COPY DISPLAY F_DACOD_D + OUTPUT F_ACOD_D CODDITTA + OUTPUT F_ARAGSOC_D RAGSOC + GROUP 3 4 +END + +STRING F_ARAGSOC_D 50 +BEGIN + PROMPT 23 8 "" + COPY USE F_DARAGSOC_D + INPUT CODDITTA F_ARAGSOC_D + COPY DISPLAY F_DARAGSOC_D + COPY OUTPUT F_ACOD_D + GROUP 3 5 +END + +BOOLEAN F_INCLDI +BEGIN + PROMPT 2 10 "Includi ditte" +END + +RADIOBUTTON F_TIPOSTAMPA 15 +BEGIN + PROMPT 2 12 "@bTipo Stampa" + ITEM "E|Elenco" + MESSAGE DISABLE,F_PERSREP + ITEM "S|Schede" + MESSAGE DISABLE,F_PERSREP + ITEM "R|Rubriche" + MESSAGE DISABLE,F_PERSREP + ITEM "T|Etichette" + MESSAGE DISABLE,F_PERSREP + ITEM "P|Personalizzato" + MESSAGE ENABLE,F_PERSREP +END + +STRING F_PERSREP 255 43 +BEGIN + PROMPT 2 19 "Report personalizzato" +END + + + +ENDPAGE +ENDMASK diff --git a/ba/ba63ed.rep b/ba/ba63ed.rep new file mode 100755 index 000000000..6874e67ce --- /dev/null +++ b/ba/ba63ed.rep @@ -0,0 +1,66 @@ + + + +
+ + + + + + + + #SYSTEM.DATE + + + + + + #PAGE + + + + + + + + + + + + + + + + + + +
+
+
+
+ + + CODDITTA + + + RAGSOC + + + TIPOA + + + CODANAGR + + + ANAGR.RAGSOC + +
+
+
+ USE NDITTE +JOIN ANAGR INTO TIPOA==TIPOA CODANAGR==CODANAGR + + + \ No newline at end of file diff --git a/ba/ba63ef.rep b/ba/ba63ef.rep new file mode 100755 index 000000000..04885e9ce --- /dev/null +++ b/ba/ba63ef.rep @@ -0,0 +1,60 @@ + + + +
+ + + + + + + + #SYSTEM.DATE + + + + + + #PAGE + + + + + + + + + + + + + + + +
+
+
+
+ + + CODANAGR + + + TRIM(ANAGR.RAGSOC[1,30])+" "+TRIM(ANAGR.RAGSOC[31,50]) + + + NDITTE.CODDITTA + + + NDITTE.RAGSOC + +
+
+
+ USE ANAFIS +JOIN ANAGR INTO TIPOA=='F' CODANAGR==CODANAGR +JOIN NDITTE KEY 4 INTO TIPOA=='F' CODANAGR==CODANAGR + + \ No newline at end of file diff --git a/ba/ba63eg.rep b/ba/ba63eg.rep new file mode 100755 index 000000000..4abe9f31d --- /dev/null +++ b/ba/ba63eg.rep @@ -0,0 +1,61 @@ + + + +
+ + + + + + + + #SYSTEM.DATE + + + + + + #PAGE + + + + + + + + + + + + + + + +
+
+
+
+ + + CODANAGR + + + ANAGR.RAGSOC + + + NDITTE.CODDITTA + + + NDITTE.RAGSOC + +
+
+
+ USE ANAGIU +JOIN ANAGR INTO TIPOA=='G' CODANAGR==CODANAGR +JOIN NDITTE KEY 4 INTO TIPOA=='G' CODANAGR==CODANAGR + + \ No newline at end of file