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

Patch level : 10.0 no ptach

Browse Source 
Files correlati     : pd6342.exe
Ricompilazione Demo : [ ]
Commento            :


Sheet Habilita 1 versione


git-svn-id: svn://10.65.10.50/branches/R_10_00@21095 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-11-01 14:53:42 +00:00
parent cc6ecac0aa
commit 483ab33c65
4 changed files with 969 additions and 471 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
ps/pd6342300.cpp
View File

@ -121,121 +121,6 @@ TCSV_recset::TCSV_recset(TAssoc_array & calc) : TCSV_recordset("CSV(;)\n")
}
}
/*
bool TCSV_recset::save_as_html(const char* path)
{
TProgind pi(items(), TR("Esportazione in corso..."), true, true);
ofstream out(path);
out << "<html>" << endl;
save_html_head(out, main_app().title());
out << "<body>" << endl;
TString qry; parsed_text(qry);
if (qry.full())
{
for (int i = qry.find('\n'); i > 0; i = qry.find('\n', i+1))
qry.insert("<br/>", i+1);
out << "<p><b>" << qry << "</b></p>" << endl;
}
out << "<table border=\"1\">";
out << " <caption>" << main_app().title() << "</caption>" << endl;
const unsigned int cols = columns();
if (cols > 0)
{
out << " <thead>" << endl;
for (unsigned int c = 0; c < cols; c++)
{
const TRecordset_column_info& ci = column_info(c);
out << " <col ";
switch (ci._type)
{
case _intfld :
case _longfld:
case _realfld: out << "align=\"right\""; break;
case _boolfld: out << "align=\"center\""; break;
default : out << "style=\"mso-number-format:\\@\""; break;
}
out << " />" << endl;
}
TXmlItem tr; tr.SetTag("tr");
tr.SetColorAttr("bgcolor", BTN_BACK_COLOR);
tr.Write(out, 2);
out << endl;
for (unsigned int c = 0; c < cols; c++)
{
const TRecordset_column_info& ci = column_info(c);
TToken_string header(ci._name, '\n');
TString str;
FOR_EACH_TOKEN(header, tok)
{
if (str.not_empty())
str << "<br/>";
str << tok;
}
out << " <th>" << str << "</th>" << endl;
}
out << " </tr>" << endl;
out << " </thead>" << endl;
}
out << " <tbody>" << endl;
TString val;
for (bool ok = move_first(); ok; ok = move_next())
{
if (!pi.addstatus(1))
break;
out << " <tr>" << endl;
for (unsigned int c = 0; c < cols; c++)
{
const TRecordset_column_info& ci = column_info(c);
out << " <td>";
switch (ci._type)
{
case _intfld:
case _longfld:
{
const long r = get(c).as_int();
val.cut(0);
if (r != 0)
val << r;
}
break;
case _realfld:
{
const real r = get(c).as_real();
if (r.is_zero())
val.cut(0);
else
val = r.stringe();
}
break;
default:
get(c).as_string(val);
break;
}
if (val.full())
{
val.rtrim();
out << val;
}
out << "</td>" << endl;
}
out << " </tr>" << endl;
}
out << " </tbody>" << endl;
out << "</table>" << endl;
out << "</body>" << endl;
out << "</html>" << endl;
return !pi.iscancelled();
}
*/
//--------------------------------------------------------------------
// APPLICAZIONE
//--------------------------------------------------------------------

973
ps/pd6342500.cpp
View File

File diff suppressed because it is too large Load Diff

47
ps/pd6342500a.h
View File

@ -1,43 +1,6 @@
//Definizione campi per maschera pd6342500 - programma saldi di analitica
#define F_DADATA 201
#define F_ADATA 202
#define F_CDC1 203
#define F_CDC2 204
#define F_CDC3 205
#define F_CDC4 206
#define F_CDC5 207
#define F_CDC6 208
#define F_CDC7 209
#define F_CDC8 210
#define F_CDC9 211
#define F_CDC10 212
#define F_CDC11 213
#define F_CDC12 214
#define F_CDC13 215
#define F_CDC14 216
#define F_CDC15 217
#define F_CDC16 218
#define F_SHEET 301
#define S_DARE 101
#define S_AVERE 102
#define S_DESCR 103
#define S_CDC1 104
#define S_CDC2 105
#define S_CDC3 106
#define S_CDC4 107
#define S_CDC5 108
#define S_CDC6 109
#define S_CDC7 110
#define S_CDC8 111
#define S_CDC9 112
#define S_CDC10 113
#define S_CDC11 114
#define S_CDC12 115
#define S_CDC13 116
#define S_CDC14 117
#define S_CDC15 118
#define S_CDC16 119
#define S_NUMREG 120
#define S_NUMRIGA 121
#define F_ADATA 101
#define F_ANNO 102
#define F_PATH 103
#define F_NAME 104
#define F_TIPO 105

305
ps/pd6342500a.uml
View File

@ -1,289 +1,76 @@
#include "pd6342500a.h"
TOOLBAR "" 0 0 0 2
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_FINDREC
#include <elabar.h>
ENDPAGE
TOOLBAR "" 0 -2 0 2
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 1 "Cerca"
PICTURE TOOL_FINDREC
PROMPT 9 -11 "Profilo "
PSELECT
END
BUTTON DLG_SAVEREC
BEGIN
PROMPT 1 1 "Salva"
PICTURE TOOL_SAVEREC
END
BUTTON DLG_CANCEL
BEGIN
PROMPT 1 1 "Annulla"
PICTURE TOOL_CANCEL
END
#include <stdbar.h>
ENDPAGE
PAGE "Quadra movimenti" -1 -1 80 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 "@bFiltro righe analitiche"
PROMPT 1 0 "@bBilancio per "
END
DATE F_DADATA
NUMBER F_ANNO 4
BEGIN
PROMPT 2 1 "Considera i movimenti dal "
PROMPT 2 1 "Codice esercizio "
HELP "Esercizio di cui si vuole ottenere il bilancio"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
FLAGS "Z"
CHECKTYPE REQUIRED
WARNING "L'esercizio non esiste"
ADD RUN cg0 -5 esc
MESSAGE EMPTY CLEAR,4@
MESSAGE ENABLE,4@
END
RADIOBUTTON F_TIPO 28
BEGIN
PROMPT 2 3 "@bTipo stampa"
HELP "Indicare il tipo di stampa"
ITEM "1|Per date limite" MESSAGE SHOW,F_ADATA|ENABLE,F_ADATA
ITEM "2|All'ultima immissione" MESSAGE HIDE,F_ADATA|RESET,F_ADATA
END
DATE F_ADATA
BEGIN
PROMPT 42 1 "al "
FLAGS "A"
CHECKTYPE REQUIRED
PROMPT 41 4 "Al "
END
GROUPBOX DLG_NULL 78 5
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 3 "@bParametri per la quadratura"
PROMPT 1 7 "@bFoglio Excel del calcolo"
END
SPREADSHEET F_SHEET 39 0
STRING F_PATH 255 50
BEGIN
PROMPT 41 8 ""
ITEM "Dare@9"
ITEM "Avere@9"
ITEM "Descrizione@15"
ITEM "CDC1"
ITEM "CDC2"
ITEM "CDC3"
ITEM "CDC4"
ITEM "CDC5"
ITEM "CDC6"
ITEM "CDC7"
ITEM "CDC8"
ITEM "CDC9"
ITEM "CDC10"
ITEM "CDC11"
ITEM "CDC12"
ITEM "CDC13"
ITEM "CDC14"
ITEM "CDC15"
ITEM "CDC16"
ITEM "Reg@5"
ITEM "Riga@5"
PROMPT 2 8 "Cartella "
DSELECT
END
STRING F_NAME 255 50
BEGIN
PROMPT 2 9 "File "
FSELECT "*.xls"
END
ENDPAGE
ENDMASK
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Sposta"
PICTURE BMP_LINK
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 3 1 ""
END
ENDPAGE
ENDMASK
PAGE "Riga analitica" -1 -1 78 13
CURRENCY S_DARE 15
BEGIN
PROMPT 2 1 "Dare "
END
CURRENCY S_AVERE 15
BEGIN
PROMPT 43 1 "Avere "
END
STRING S_DESCR 50
BEGIN
PROMPT 2 2 "Descrizione "
END
STRING S_CDC1 20
BEGIN
PROMPT 2 3 "Cdc 1"
USE LF_CDC
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC2 20
BEGIN
PROMPT 2 3 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC3 20
BEGIN
PROMPT 2 3 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC4 20
BEGIN
PROMPT 2 3 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC5 20
BEGIN
PROMPT 2 3 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC6 20
BEGIN
PROMPT 2 3 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC7 20
BEGIN
PROMPT 2 4 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC8 20
BEGIN
PROMPT 2 4 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC9 20
BEGIN
PROMPT 2 4 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC10 20
BEGIN
PROMPT 2 4 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC11 20
BEGIN
PROMPT 2 4 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC12 20
BEGIN
PROMPT 2 4 "Cdc 2"
COPY USE S_CDC1
CHECKTYPE NORMAL
FLAGS "H"
END
STRING S_CDC13 20
BEGIN
PROMPT 2 5 "Con 1"
USE LF_PCON
CHECKTYPE NORMAL
GROUP 1
FLAGS "H"
END
STRING S_CDC14 20
BEGIN
PROMPT 21 5 "Con 2"
COPY USE S_CONT1
CHECKTYPE NORMAL
GROUP 1
FLAGS "H"
END
STRING S_CDC15 20
BEGIN
PROMPT 41 5 "Con 3"
COPY USE S_CONT1
CHECKTYPE NORMAL
GROUP 1
FLAGS "H"
END
STRING S_CDC16 20
BEGIN
PROMPT 61 5 "Con 4"
COPY USE S_CONT1
CHECKTYPE NORMAL
GROUP 1
FLAGS "H"
END
NUMBER S_NUMREG 10
BEGIN
PROMPT 2 7 "Num. registrazione"
FLAGS "D"
END
NUMBER S_NUMRIGA 10
BEGIN
PROMPT 33 7 "Num. riga"
FLAGS "D"
END
BUTTON DLG_USER 2 2
BEGIN
PROMPT 200 200 ""
END
ENDPAGE
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Sposta"
PICTURE BMP_LINK
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 3 1 ""
END
ENDPAGE
ENDMASK