Patch level :2.1 nopatch

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :inizio delle stampe anagrafiche con i nuovi rep


git-svn-id: svn://10.65.10.50/trunk@12205 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2004-06-25 08:01:33 +00:00
parent 0845d50a74
commit a24894fd1c
6 changed files with 535 additions and 0 deletions

92
ba/ba6300.cpp Executable file
View File

@ -0,0 +1,92 @@
//Programma per la stampa anagrafiche utilizzando i files .rep (21/06/2004)
#include <applicat.h>
#include <mask.h>
#include <relation.h>
#include <reprint.h>
#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;
}

17
ba/ba6300a.h Executable file
View File

@ -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

239
ba/ba6300a.uml Executable file
View File

@ -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

66
ba/ba63ed.rep Executable file
View File

@ -0,0 +1,66 @@
<report name="ba63ed" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" width="4" text="Data">
<font italic="1" face="Courier New" bold="1" size="10" />
</field>
<field type="Testo" align="center" width="96" text="ELENCO DITTE">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="5" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="86" type="Testo" width="4" text="Pag.">
<font italic="1" face="Courier New" bold="1" size="10" />
</field>
<field x="90" type="Numero" align="right" width="5">
<source>#PAGE</source>
</field>
<field border="1" x="1" y="1.5" type="Linea" width="93" height="0" />
<field x="1" y="2" type="Testo" width="6" height="2" text="Codice Anagr.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="46" y="2" type="Testo" width="5" height="2" text="Tipo pers.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="8" y="3" type="Testo" width="21" text="Denominazione Sociale">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="52" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="60" y="3" type="Testo" width="30" text="Cognome e Nome/Ragione sociale">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field type="Stringa" hidden="1" link="ANAGR.TIPOA" width="1">
<source>TIPOA</source>
</field>
<field x="1" type="Numero" align="right" link="NDITTE.CODANAGR" width="5">
<source>CODDITTA</source>
</field>
<field x="7" type="Stringa" dynamic_height="1" width="40" height="2">
<source>RAGSOC</source>
</field>
<field x="49" type="Stringa" align="right" link="ANAGR.TIPOA" width="1">
<source>TIPOA</source>
</field>
<field x="53" type="Numero" align="right" link="ANAGR.CODANAGR" width="5" hide_zero="1">
<source>CODANAGR</source>
</field>
<field x="60" type="Stringa" dynamic_height="1" width="30" height="2">
<source>ANAGR.RAGSOC</source>
</field>
</section>
<section keep_with_next="1" type="Foot" />
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE NDITTE
JOIN ANAGR INTO TIPOA==TIPOA CODANAGR==CODANAGR
</sql>
</report>

60
ba/ba63ef.rep Executable file
View File

@ -0,0 +1,60 @@
<report name="ba63fe" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" align="center" width="96" text="ELENCO PERSONE FISICHE">
<font face="Courier New" bold="1" size="14" />
</field>
<field type="Testo" width="4" text="Data">
<font italic="1" face="Courier New" bold="1" size="10" />
</field>
<field x="5" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="86" type="Testo" width="4" text="Pag.">
<font italic="1" face="Courier New" bold="1" size="10" />
</field>
<field x="90" type="Numero" align="right" width="5">
<source>#PAGE</source>
</field>
<field border="1" x="1" y="1.5" type="Linea" width="93" height="0" />
<field x="1" y="2" type="Testo" width="6" height="2" text="Codice Anagr.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="50" y="2" type="Testo" width="6" height="2" text="Codice Ditta">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="3" type="Testo" width="14" text="Cognome e Nome">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="59" y="3" type="Testo" width="21" text="Denominazione Sociale">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field type="Stringa" hidden="1" link="ANAGR.TIPOA" width="1">
<source>TIPOA</source>
</field>
<field x="1" type="Numero" align="right" link="ANAGR.CODANAGR" width="5">
<source>CODANAGR</source>
</field>
<field x="10" type="Stringa" dynamic_height="1" width="30" height="2">
<source>TRIM(ANAGR.RAGSOC[1,30])+" "+TRIM(ANAGR.RAGSOC[31,50])</source>
</field>
<field x="50" type="Numero" align="right" link="NDITTE.CODDITTA" width="5" hide_zero="1">
<source>NDITTE.CODDITTA</source>
</field>
<field x="59" type="Stringa" dynamic_height="1" width="30" height="2">
<source>NDITTE.RAGSOC</source>
</field>
</section>
<section keep_with_next="1" type="Foot" />
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE ANAFIS
JOIN ANAGR INTO TIPOA=='F' CODANAGR==CODANAGR
JOIN NDITTE KEY 4 INTO TIPOA=='F' CODANAGR==CODANAGR
</sql>
</report>

61
ba/ba63eg.rep Executable file
View File

@ -0,0 +1,61 @@
<report name="ba63eg" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" align="center" width="96" text="ELENCO PERSONE GIURIDICHE">
<font face="Courier New" bold="1" size="14" />
</field>
<field type="Testo" width="4" text="Data">
<font italic="1" face="Courier New" bold="1" size="10" />
</field>
<field x="5" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="86" type="Testo" width="4" text="Pag.">
<font italic="1" face="Courier New" bold="1" size="10" />
</field>
<field x="90" type="Numero" align="right" width="5">
<source>#PAGE</source>
</field>
<field border="1" x="1" y="1.5" type="Linea" width="93" height="0" />
<field x="1" y="2" type="Testo" width="5" height="2" text="Cod.
Anag.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="57" y="2" type="Testo" width="6" height="2" text="Codice Ditta">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="7" y="3" type="Testo" width="14" text="Cognome e Nome">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="64" y="3" type="Testo" width="21" text="Denominazione Sociale">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field type="Stringa" hidden="1" link="ANAGR.TIPOA" width="1">
<source>TIPOA</source>
</field>
<field x="1" type="Numero" align="right" link="ANAGR.CODANAGR" width="5">
<source>CODANAGR</source>
</field>
<field x="7" type="Stringa" width="50">
<source>ANAGR.RAGSOC</source>
</field>
<field x="58" type="Numero" align="right" link="NDITTE.CODDITTA" width="5" hide_zero="1">
<source>NDITTE.CODDITTA</source>
</field>
<field x="64" type="Stringa" dynamic_height="1" width="30" height="2">
<source>NDITTE.RAGSOC</source>
</field>
</section>
<section keep_with_next="1" type="Foot" />
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE ANAGIU
JOIN ANAGR INTO TIPOA=='G' CODANAGR==CODANAGR
JOIN NDITTE KEY 4 INTO TIPOA=='G' CODANAGR==CODANAGR
</sql>
</report>