Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@21811 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
f50543a411
commit
01f69a6474
26
cg/cg7.cpp
Executable file
26
cg/cg7.cpp
Executable file
@ -0,0 +1,26 @@
|
||||
#include <xvt.h>
|
||||
#include <checks.h>
|
||||
|
||||
#include "cg7.h"
|
||||
|
||||
#define usage "Error - usage : %s -{0|1}"
|
||||
|
||||
int main(int argc,char** argv)
|
||||
|
||||
{
|
||||
int rt = -1 ;
|
||||
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
|
||||
|
||||
switch (r)
|
||||
{
|
||||
case 0:
|
||||
rt = cg7100(argc, argv) ; break; //gestore stampe generico modulo FE (stampe particolari CG)
|
||||
break;
|
||||
case 1:
|
||||
rt = cg7200(argc, argv) ; break; //lista fatture per imponibile
|
||||
break;
|
||||
default:
|
||||
error_box(usage, argv[0]) ; break;
|
||||
}
|
||||
return rt;
|
||||
}
|
||||
2
cg/cg7.h
Executable file
2
cg/cg7.h
Executable file
@ -0,0 +1,2 @@
|
||||
int cg7100(int argc, char* argv[]);
|
||||
int cg7200(int argc, char* argv[]);
|
||||
30
cg/cg7100.cpp
Executable file
30
cg/cg7100.cpp
Executable file
@ -0,0 +1,30 @@
|
||||
#include <applicat.h>
|
||||
#include <report.h>
|
||||
#include <strings.h>
|
||||
|
||||
#include "../ba/ba8500.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TBruceWayne_app
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TBruceWayne_app : public TKlarkKent_app
|
||||
{
|
||||
protected:
|
||||
virtual TReport* create_report(const char* name) const;
|
||||
};
|
||||
|
||||
TReport* TBruceWayne_app::create_report(const char* name) const
|
||||
{
|
||||
TReport* rep = new TReport;
|
||||
rep->load(name);
|
||||
const TFilename rep_name = name;
|
||||
return rep;
|
||||
}
|
||||
|
||||
int cg7100(int argc, char* argv[])
|
||||
{
|
||||
TBruceWayne_app app;
|
||||
app.run(argc, argv, TR("Stampa Report Contabilita'"));
|
||||
return 0;
|
||||
}
|
||||
111
cg/cg7200.cpp
Executable file
111
cg/cg7200.cpp
Executable file
@ -0,0 +1,111 @@
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <report.h>
|
||||
#include <strings.h>
|
||||
|
||||
#include "../ba/ba8500.h"
|
||||
|
||||
#include "../cg/cg7200a.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Report
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TPrint_x_imponibile_report : public TReport
|
||||
{
|
||||
protected:
|
||||
virtual bool use_mask() { return false; }
|
||||
|
||||
public:
|
||||
TPrint_x_imponibile_report();
|
||||
};
|
||||
|
||||
TPrint_x_imponibile_report::TPrint_x_imponibile_report()
|
||||
{
|
||||
load("cg7200a");
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Maschera
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TPrint_x_imponibile_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
void elabora();
|
||||
TPrint_x_imponibile_mask();
|
||||
virtual ~TPrint_x_imponibile_mask() {}
|
||||
};
|
||||
|
||||
|
||||
void TPrint_x_imponibile_mask::elabora()
|
||||
{
|
||||
const char tipodate = get(F_TIPODATE)[0];
|
||||
const char tipoelenco = get(F_TIPOELENCO)[0];
|
||||
const long codcf = get_long(F_CODCF);
|
||||
const int anno = get_int(F_ANNO);
|
||||
|
||||
TString query;
|
||||
|
||||
if (tipodate == 'R') //per data di 'R'egistrazione
|
||||
{
|
||||
query << "USE MOV KEY 3";
|
||||
query << "\nSELECT (ANNOIVA=" << anno << ")";
|
||||
query << "\nFROM TIPO=" << tipoelenco;
|
||||
if (codcf > 0L)
|
||||
query << " CODCF=" << codcf;
|
||||
query << "\nTO TIPO=" << tipoelenco;
|
||||
if (codcf > 0L)
|
||||
query << " CODCF=" << codcf;
|
||||
}
|
||||
else //per data 'D'ocumento
|
||||
{
|
||||
}
|
||||
|
||||
TPrint_x_imponibile_report rep;
|
||||
rep.set_recordset(query);
|
||||
|
||||
}
|
||||
|
||||
bool TPrint_x_imponibile_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
|
||||
TPrint_x_imponibile_mask::TPrint_x_imponibile_mask() : TAutomask("cg7200a")
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Applicazione
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TPrint_x_imponibile : public TKlarkKent_app
|
||||
{
|
||||
protected:
|
||||
|
||||
public:
|
||||
virtual void main_loop();
|
||||
};
|
||||
|
||||
|
||||
void TPrint_x_imponibile::main_loop()
|
||||
{
|
||||
TPrint_x_imponibile_mask mask;
|
||||
|
||||
while (mask.run() == K_ENTER)
|
||||
{
|
||||
mask.elabora();
|
||||
}
|
||||
}
|
||||
|
||||
int cg7200(int argc, char* argv[])
|
||||
{
|
||||
TPrint_x_imponibile app;
|
||||
app.run(argc, argv, TR("Lista fatture per imponibile"));
|
||||
return 0;
|
||||
}
|
||||
10
cg/cg7200a.h
Executable file
10
cg/cg7200a.h
Executable file
@ -0,0 +1,10 @@
|
||||
#define F_CODDITTA 201
|
||||
#define F_RAGSOC 202
|
||||
#define F_DATASTAMPA 203
|
||||
#define F_ANNO 204
|
||||
#define F_TIPODATE 205
|
||||
#define F_DATAINI 206
|
||||
#define F_DATAFIN 207
|
||||
#define F_TIPOELENCO 208
|
||||
#define F_CODCF 209
|
||||
#define F_DESCF 210
|
||||
103
cg/cg7200a.rep
Executable file
103
cg/cg7200a.rep
Executable file
@ -0,0 +1,103 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<report name="cg7200a" lpi="6">
|
||||
<description>Lista fatture per imponibile</description>
|
||||
<font face="Arial" size="8" />
|
||||
<section type="Head" pattern="1" />
|
||||
<section type="Head" level="1" pattern="1">
|
||||
<field type="Stringa" width="1" id="101" pattern="1">
|
||||
<source>#TIPOELENCO</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Head" level="2" pattern="1">
|
||||
<groupby>CODCF</groupby>
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
|
||||
<field x="8" type="Stringa" width="50" pattern="1">
|
||||
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#102,RAGSOC</prescript>
|
||||
</field>
|
||||
<field x="1" type="Numero" align="right" width="6" id="102" pattern="1">
|
||||
<source>CODCF</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" pattern="1" />
|
||||
<section type="Body" level="1" pattern="1" />
|
||||
<section type="Head" level="11" pattern="1">
|
||||
<prescript description="H11 PRESCRIPT">MESSAGE RESET,F11</prescript>
|
||||
</section>
|
||||
<section type="Body" level="11" pattern="1">
|
||||
<sql>USE RMOVIVA
|
||||
FROM NUMREG=#PARENT.NUMREG
|
||||
TO NUMREG=#PARENT.NUMREG</sql>
|
||||
<field x="3" type="Numero" align="right" width="3" pattern="1">
|
||||
<source>NUMRIG</source>
|
||||
</field>
|
||||
<field x="7" type="Valuta" align="right" width="10" pattern="1" text="#########,@@">
|
||||
<source>IMPONIBILE</source>
|
||||
</field>
|
||||
<field x="18" type="Valuta" align="right" width="10" pattern="1" text="#########,@@">
|
||||
<source>IMPOSTA</source>
|
||||
</field>
|
||||
<field x="29" type="Stringa" width="4" pattern="1">
|
||||
<source>CODIVA</source>
|
||||
</field>
|
||||
<field x="34" type="Array" width="15" pattern="1">
|
||||
<prescript description="B11.0 PRESCRIPT">MESSAGE TABLEREAD,%IVA,CODIVA,S1</prescript>
|
||||
<list>
|
||||
<li Value="Normale"> "IMPONIBILE" @ "F11.201" +! "IMPOSTA" @ "F11.202" +!</li>
|
||||
<li Value="Non soggetto" Code="NS"> "IMPONIBILE" @ "F11.211" +! "IMPOSTA" @ "F11.212" +!</li>
|
||||
<li Value="Esente" Code="ES"> "IMPONIBILE" @ "F11.221" +! "IMPOSTA" @ "F11.222" +!</li>
|
||||
<li Value="Non imponibile" Code="NI"> "IMPONIBILE" @ "F11.231" +! "IMPOSTA" @ "F11.232" +!</li>
|
||||
</list>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Foot" level="11" hidden="1" pattern="1">
|
||||
<prescript description="F11 PRESCRIPT">#241 @
|
||||
3000 C; IF
|
||||
"F11" HIDE
|
||||
ELSE
|
||||
"F11" SHOW
|
||||
THEN</prescript>
|
||||
<field x="2" type="Numero" align="right" width="7" pattern="1">
|
||||
<source>NUMREG</source>
|
||||
</field>
|
||||
<field x="10" type="Data" width="10" pattern="1">
|
||||
<source>DATAREG</source>
|
||||
</field>
|
||||
<field x="21" type="Stringa" width="3" pattern="1">
|
||||
<source>REG</source>
|
||||
</field>
|
||||
<field x="25" type="Numero" align="right" width="6" pattern="1">
|
||||
<source>PROTIVA</source>
|
||||
</field>
|
||||
<field x="32" type="Stringa" align="right" width="7" pattern="1">
|
||||
<source>NUMDOC</source>
|
||||
</field>
|
||||
<field x="40" type="Data" width="10" pattern="1">
|
||||
<source>DATADOC</source>
|
||||
</field>
|
||||
<field x="51" type="Stringa" width="3" pattern="1">
|
||||
<source>CODCAUS</source>
|
||||
</field>
|
||||
<field x="84" type="Valuta" hidden="1" align="right" width="10" id="201" pattern="1" text="#########,@@" />
|
||||
<field x="94" type="Valuta" hidden="1" align="right" width="10" id="202" pattern="1" text="#########,@@" />
|
||||
<field x="106" type="Valuta" hidden="1" align="right" width="10" id="211" pattern="1" text="#########,@@" />
|
||||
<field x="116" type="Valuta" hidden="1" align="right" width="10" id="212" pattern="1" text="#########,@@" />
|
||||
<field x="128" type="Valuta" hidden="1" align="right" width="10" id="221" pattern="1" text="#########,@@" />
|
||||
<field x="138" type="Valuta" hidden="1" align="right" width="10" id="222" pattern="1" text="#########,@@" />
|
||||
<field x="150" type="Valuta" hidden="1" align="right" width="10" id="231" pattern="1" text="#########,@@" />
|
||||
<field x="160" type="Valuta" hidden="1" align="right" width="10" id="232" pattern="1" text="#########,@@" />
|
||||
<field x="60" type="Valuta" align="right" width="10" id="241" pattern="1" text="#########,@@">
|
||||
<source>#201+#211+#221+#231</source>
|
||||
</field>
|
||||
<field x="71" type="Valuta" align="right" width="10" id="242" pattern="1" text="#########,@@">
|
||||
<source>#202+#212+#222+#232</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Foot" pattern="1" />
|
||||
<section type="Foot" level="1" pattern="1" />
|
||||
<section type="Foot" level="2" pattern="1" />
|
||||
<sql>USE MOV KEY 3
|
||||
SELECT (ANNOIVA=2010)
|
||||
FROM TIPO=C
|
||||
TO TIPO=C</sql>
|
||||
</report>
|
||||
116
cg/cg7200a.uml
Executable file
116
cg/cg7200a.uml
Executable file
@ -0,0 +1,116 @@
|
||||
#include "cg7200a.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
#include <printbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Lista fatture per imponibile" 0 2 0 0
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 15 1 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 1 2 "Data stampa "
|
||||
HELP "Data in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 1 3 "Anno "
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD #ANNO
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "@bParametri movimenti"
|
||||
END
|
||||
|
||||
LIST F_TIPODATE 13
|
||||
BEGIN
|
||||
PROMPT 2 5 "Seleziona per data di: "
|
||||
HELP "Movimenti per data registrazione o data documento"
|
||||
ITEM "R|Registrazione"
|
||||
ITEM "D|Documento"
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 2 6 "Stampa movimenti dalla data "
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 50 6 "alla data "
|
||||
HELP "Data fino a cui eseguire la stampa"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 8 "@bParametri clienti/fornitori"
|
||||
END
|
||||
|
||||
LIST F_TIPOELENCO 9
|
||||
BEGIN
|
||||
PROMPT 2 9 "Tipo elenco "
|
||||
HELP "Indicare cosa includere nella stampa"
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
FIELD #TIPOELENCO
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Cliente/Fornitore "
|
||||
HELP "Indicare il codice da cui iniziare la stampa"
|
||||
GROUP 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_DESCF RAGSOC
|
||||
FLAGS "R"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCF 50 45
|
||||
BEGIN
|
||||
PROMPT 29 10 ""
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
INPUT RAGSOC F_DESCF
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user