root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni alla stampa tabella IV direttiva

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@539 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1994-11-07 09:52:23 +00:00
parent e885112992
commit 3670e60f42
4 changed files with 1907 additions and 1862 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

206
ba/ba3800.cpp
View File

@ -233,7 +233,7 @@ void BA3800_application::crea_sort_piano_conti()
for (pconti.first(); !pconti.eof(); pconti.next()) for (pconti.first(); !pconti.eof(); pconti.next())
{ {
// _prog->addstatus(1); // _prog->addstatus(1);
g = pconti.get_int (PCN_GRUPPO); g = pconti.get_int (PCN_GRUPPO);
c = pconti.get_int (PCN_CONTO); c = pconti.get_int (PCN_CONTO);
s = pconti.get_long(PCN_SOTTOCONTO); s = pconti.get_long(PCN_SOTTOCONTO);
@ -738,86 +738,86 @@ void BA3800_application::stampa_totali_ditta()
} }
else else
{ {
if (_let_stamp != 'Z') if (_let_stamp != 'Z')
{
if (_sez_stamp != '5')
{ {
if (_cont_gcs != 0)//(_cont_gcs >= 2) if (_sez_stamp != '5')
{ {
//Fai il totale del numero arabo e stampalo if (_cont_gcs != 0)//(_cont_gcs >= 2)
if (_num != 0)
{ {
set_row (_i,"@18gTotale@25g%2d@27g)", _num); //Fai il totale del numero arabo e stampalo
set_row (_i++,"@86g%s", (const char*) _totale); if (_num != 0)
{
set_row (_i,"@18gTotale@25g%2d@27g)", _num);
set_row (_i++,"@86g%s", (const char*) _totale);
}
} }
} if (_cont_num != 0)//(_cont_num >= 2)
if (_cont_num != 0)//(_cont_num >= 2)
{
//Fai il totale del numero romano e stampalo
int numeror = atoi(_numr);
TString numrom = itor(numeror);
if (numrom != "")
{ {
set_row (_i,"@14gTotale@21g%s", (const char*) numrom); //Fai il totale del numero romano e stampalo
set_row (_i++,"@86g%s", (const char*) _totale); int numeror = atoi(_numr);
TString numrom = itor(numeror);
if (numrom != "")
{
set_row (_i,"@14gTotale@21g%s", (const char*) numrom);
set_row (_i++,"@86g%s", (const char*) _totale);
}
} }
} if (_cont_numr != 0)//(_cont_numr >= 2)
if (_cont_numr != 0)//(_cont_numr >= 2)
{
//Fai il totale della lettera e stampalo
if (_let != ' ')
{ {
set_row (_i,"@3gTotale@10g%c@12g)", _let); //Fai il totale della lettera e stampalo
set_row (_i++,"@86g%s", (const char*) _totale); if (_let != ' ')
{
set_row (_i,"@3gTotale@10g%c@12g)", _let);
set_row (_i++,"@86g%s", (const char*) _totale);
}
} }
} }
} }
}
if ((_sez_stamp == '1')&&(_let_da_stamp == 'Z')) if ((_sez_stamp == '1')&&(_let_da_stamp == 'Z'))
{
char app = ' ';
set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE ATTIVO");
set_row (_i++,"@86g%s", (const char*) _totale);
_totale_attivita_gia_stampato = TRUE;
}
if ((_sez_stamp == '2')&&(_let_da_stamp == 'Z'))
{
char app = ' ';
set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE PASSIVO");
set_row (_i++,"@86g%s", (const char*) _totale);
_totale_passivita_gia_stampato = TRUE;
}
if ((_sez_stamp == '1')&&(_let_stamp == 'Z'))
{
char app = ' ';
set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE CONTI D' ORDINE ATTIVI");
set_row (_i++,"@86g%s", (const char*) _totale);
gia_stampato_conto_ord = TRUE;
}
if ((_sez_stamp == '2')&&(_let_stamp == 'Z'))
{
char app = ' ';
set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE CONTI D' ORDINE PASSIVI");
set_row (_i++,"@86g%s", (const char*) _totale);
_i++;
gia_stampato_conto_ord = TRUE;
if (!_attivo_o_passivo)
{ {
set_row (_i++,"@0gSALDO CONTI D' ORDINE"); char app = ' ';
set_row (_i,"@0gSBILANCIO"); set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE ATTIVO");
set_row (_i++,"@86g%s", (const char*) _totale); set_row (_i++,"@86g%s", (const char*) _totale);
_sbilancio_ordine = TRUE; _totale_attivita_gia_stampato = TRUE;
_sbilancio_patr_gia_stampato = TRUE; }
if ((_sez_stamp == '2')&&(_let_da_stamp == 'Z'))
{
char app = ' ';
set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE PASSIVO");
set_row (_i++,"@86g%s", (const char*) _totale);
_totale_passivita_gia_stampato = TRUE;
}
if ((_sez_stamp == '1')&&(_let_stamp == 'Z'))
{
char app = ' ';
set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE CONTI D' ORDINE ATTIVI");
set_row (_i++,"@86g%s", (const char*) _totale);
gia_stampato_conto_ord = TRUE;
}
if ((_sez_stamp == '2')&&(_let_stamp == 'Z'))
{
char app = ' ';
set_row (_i++,"@0g%c", app);
set_row (_i,"@0gTOTALE CONTI D' ORDINE PASSIVI");
set_row (_i++,"@86g%s", (const char*) _totale);
_i++;
gia_stampato_conto_ord = TRUE;
if (!_attivo_o_passivo)
{
set_row (_i++,"@0gSALDO CONTI D' ORDINE");
set_row (_i,"@0gSBILANCIO");
set_row (_i++,"@86g%s", (const char*) _totale);
_sbilancio_ordine = TRUE;
_sbilancio_patr_gia_stampato = TRUE;
}
} }
}
} }
_cont_gcs = 0; _cont_gcs = 0;
_cont_num = 0; _cont_num = 0;
@ -989,10 +989,10 @@ print_action BA3800_application::postprocess_page(int file, int counter)
{ {
if (_sez_da_stamp == '9') if (_sez_da_stamp == '9')
{ {
reset_print(); reset_print();
_i = 1; _i = 1;
setta_righe_studio("CONTO ECONOMICO"); setta_righe_studio("CONTO ECONOMICO");
_reset_righe_stampa = FALSE; _reset_righe_stampa = FALSE;
} }
} }
@ -1083,19 +1083,19 @@ bool BA3800_application::preprocess_studio(int counter)
if (counter) if (counter)
{ {
_sez_stamp = _sez_da_stamp; _sez_stamp = _sez_da_stamp;
_let_stamp = _let_da_stamp; _let_stamp = _let_da_stamp;
_numr_stamp = _numr_da_stamp; _numr_stamp = _numr_da_stamp;
_num_stamp = _num_da_stamp; _num_stamp = _num_da_stamp;
_sez_tot = _sez_da_stamp; _sez_tot = _sez_da_stamp;
_let_tot = _let_da_stamp; _let_tot = _let_da_stamp;
_numr_tot = _numr_da_stamp; _numr_tot = _numr_da_stamp;
_num_tot = _num_da_stamp; _num_tot = _num_da_stamp;
} }
if (_tabivd->eof()) if (_tabivd->eof())
{ {
stampa_totali_studio(); stampa_totali_studio();
_sez_da_stamp = ' '; _sez_da_stamp = ' ';
_sez_stamp = ' '; _sez_stamp = ' ';
return TRUE; return TRUE;
@ -1105,7 +1105,7 @@ bool BA3800_application::preprocess_studio(int counter)
{ {
TString16 codtab; TString16 codtab;
// _classe_da_stampare = format ("%1c%1c%8s%2d",bil->sez,bil->let,(const char*) bil->numr,bil->num); // _classe_da_stampare = format ("%1c%1c%8s%2d",bil->sez,bil->let,(const char*) bil->numr,bil->num);
codtab = _tabivd->get("CODTAB"); codtab = _tabivd->get("CODTAB");
_sez_da_stamp = *(codtab.mid(0,1)); _sez_da_stamp = *(codtab.mid(0,1));
@ -1298,21 +1298,21 @@ void BA3800_application::setta_righe_studio(const char * titolo)
set_row(_i,"@0g%c", _let_da_stamp); set_row(_i,"@0g%c", _let_da_stamp);
_descr = (const char*) descr_let; _descr = (const char*) descr_let;
setta_righe_descr(_descr,lettera,lettera2); setta_righe_descr(_descr,lettera,lettera2);
// set_row(_i++,"@1g)@3g%s", (const char*) descr_let); // set_row(_i++,"@1g)@3g%s", (const char*) descr_let);
} }
if (numrom != "") if (numrom != "")
{ {
set_row(_i,"@3g%8s", (const char*) numrom); set_row(_i,"@3g%8s", (const char*) numrom);
_descr = (const char*) descr_numr; _descr = (const char*) descr_numr;
setta_righe_descr(_descr,numr,numr2); setta_righe_descr(_descr,numr,numr2);
// set_row(_i++,"@12g-@14g%s", (const char*) descr_numr); // set_row(_i++,"@12g-@14g%s", (const char*) descr_numr);
} }
if (numero != 0) if (numero != 0)
{ {
set_row(_i,"@13g%s", (const char*) _num_da_stamp); set_row(_i,"@13g%s", (const char*) _num_da_stamp);
_descr = (const char*) descr_num; _descr = (const char*) descr_num;
setta_righe_descr(_descr,num,num2); setta_righe_descr(_descr,num,num2);
// set_row(_i++,"@15g)@18g%s", (const char*) descr_num); // set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
} }
} }
} }
@ -1332,7 +1332,7 @@ void BA3800_application::setta_righe_studio(const char * titolo)
set_row(_i,"@0g%c", _let_da_stamp); set_row(_i,"@0g%c", _let_da_stamp);
_descr = (const char*) descr_let; _descr = (const char*) descr_let;
setta_righe_descr(_descr,lettera,lettera2); setta_righe_descr(_descr,lettera,lettera2);
// set_row(_i++,"@1g)@3g%s", (const char*) descr_let); // set_row(_i++,"@1g)@3g%s", (const char*) descr_let);
} }
if (numrom != "") if (numrom != "")
{ {
@ -1411,7 +1411,7 @@ void BA3800_application::setta_righe_ditta(const char* titolo)
numeror = atoi(bil->numr); numeror = atoi(bil->numr);
numrom = itor(numeror); numrom = itor(numeror);
numero = atoi(bil->num); numero = atoi(bil->num);
// num = bil->num; // num = bil->num;
gruppo = atoi(bil->gruppo); gruppo = atoi(bil->gruppo);
conto = atoi(bil->conto); conto = atoi(bil->conto);
sottoc = atoi(bil->sottoc); sottoc = atoi(bil->sottoc);
@ -1440,12 +1440,12 @@ void BA3800_application::setta_righe_ditta(const char* titolo)
} }
else else
if ((_sez_da_stamp == '1')&&(_let_da_stamp != 'Z')) if ((_sez_da_stamp == '1')&&(_let_da_stamp != 'Z'))
{ {
char app = ' '; char app = ' ';
set_row (_i++,"@0g%c", app); set_row (_i++,"@0g%c", app);
set_row (_i++,"@0gATTIVO"); set_row (_i++,"@0gATTIVO");
set_row (_i++,"@0g%c", app); set_row (_i++,"@0g%c", app);
} }
if ((_sez_da_stamp == '2')&&(_let_da_stamp == 'Z')) if ((_sez_da_stamp == '2')&&(_let_da_stamp == 'Z'))
{ {
@ -1580,19 +1580,19 @@ void BA3800_application::setta_righe_ditta(const char* titolo)
setta_righe_descr(_descr,num,num2); setta_righe_descr(_descr,num,num2);
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num); //set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
//_cont_num += 1; //_cont_num += 1;
_cont_gcs = 1; _cont_gcs = 1;
} }
} }
if (bil->gruppo[0] != 'Z') if (bil->gruppo[0] != 'Z')
{ {
_cont_gcs += 1; _cont_gcs += 1;
set_row (_i,"@18g%s", bil->gruppo); set_row (_i,"@18g%s", bil->gruppo);
set_row (_i,"@22g%s", bil->conto); set_row (_i,"@22g%s", bil->conto);
set_row (_i,"@26g%s", bil->sottoc); set_row (_i,"@26g%s", bil->sottoc);
set_row (_i,"@33g%s", (const char*) descr_sottoc); set_row (_i,"@33g%s", (const char*) descr_sottoc);
set_row (_i,"@86g%s", (const char*) _totale); set_row (_i,"@86g%s", (const char*) _totale);
_i++; _i++;
} }
} }
void BA3800_application::setta_righe_descr(TParagraph_string& str,const TString& formato,const TString& formato2) void BA3800_application::setta_righe_descr(TParagraph_string& str,const TString& formato,const TString& formato2)

2
ba/ba3800.h
View File

@ -3,3 +3,5 @@
#define TAB_IVD "%IVD" #define TAB_IVD "%IVD"
#define F_DATASTAMPA 101 #define F_DATASTAMPA 101
#define F_CODDITTA 102
#define F_RAGSOC 103

43
ba/ba3800b.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ba3800.h"
PAGE "Stampa Tabella IV Direttiva CEE" -1 -1 70 6
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 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 2 2 "Ragione sociale "
FLAGS "D"
END
DATE F_DATASTAMPA
BEGIN
PROMPT 40 1 "Data di stampa "
FLAGS "A"
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK