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

12
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);
@ -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);
} }
} }
} }
@ -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);

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