Patch level : no patch per roberto
Files correlati : si0.exe Ricompilazione Demo : [ ] Commento : MOdulo personalizzazioni Ass. Agricoltori di Ravenna git-svn-id: svn://10.65.10.50/trunk@9968 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
7a6ba70158
commit
d6ca44f622
18
si/art.ini
Executable file
18
si/art.ini
Executable file
@ -0,0 +1,18 @@
|
|||||||
|
[MAIN]
|
||||||
|
FIELDSEP =
|
||||||
|
RECORDSEP =
|
||||||
|
RECORDSIZE =
|
||||||
|
SKIPLINES =
|
||||||
|
TYPEFIELD = -1
|
||||||
|
|
||||||
|
[RECORD]
|
||||||
|
FIELD(0) = CODART
|
||||||
|
FIELD(1) = DESCR
|
||||||
|
LENGTH(0) = 10
|
||||||
|
LENGTH(1) = 50
|
||||||
|
NAME(0) = Codice Articolo
|
||||||
|
NAME(1) = Descrizione
|
||||||
|
POSITION(0) = 0
|
||||||
|
POSITION(1) = 10
|
||||||
|
USE = 47
|
||||||
|
|
||||||
47
si/cli.ini
Executable file
47
si/cli.ini
Executable file
@ -0,0 +1,47 @@
|
|||||||
|
[MAIN]
|
||||||
|
FIELDSEP =
|
||||||
|
RECORDSEP =
|
||||||
|
RECORDSIZE = 0
|
||||||
|
SKIPLINES = 0
|
||||||
|
TYPEFIELD = -1
|
||||||
|
|
||||||
|
[RECORD]
|
||||||
|
FIELD(0) =
|
||||||
|
FIELD(1) = CODCF
|
||||||
|
FIELD(2) = RAGSOC
|
||||||
|
FIELD(3) = INDCF
|
||||||
|
FIELD(4) = CAPCF
|
||||||
|
FIELD(5) =
|
||||||
|
FIELD(6) = COFI
|
||||||
|
FIELD(7) = PAIV
|
||||||
|
FIELD(8) = LOCALITACF
|
||||||
|
LENGTH(0) = 1
|
||||||
|
LENGTH(1) = 6
|
||||||
|
LENGTH(2) = 50
|
||||||
|
LENGTH(3) = 51
|
||||||
|
LENGTH(4) = 5
|
||||||
|
LENGTH(5) = 2
|
||||||
|
LENGTH(6) = 16
|
||||||
|
LENGTH(7) = 11
|
||||||
|
LENGTH(8) = 20
|
||||||
|
NAME(0) =
|
||||||
|
NAME(1) = Codice
|
||||||
|
NAME(2) = Ragione sociale
|
||||||
|
NAME(3) = Indirizzo
|
||||||
|
NAME(4) = CAP
|
||||||
|
NAME(5) =
|
||||||
|
NAME(6) = Codice fiscale
|
||||||
|
NAME(7) = Partita IVA
|
||||||
|
NAME(8) = Loacalita'
|
||||||
|
POSITION(0) = 0
|
||||||
|
POSITION(1) = 1
|
||||||
|
POSITION(2) = 7
|
||||||
|
POSITION(3) = 57
|
||||||
|
POSITION(4) = 108
|
||||||
|
POSITION(5) = 113
|
||||||
|
POSITION(6) = 115
|
||||||
|
POSITION(7) = 131
|
||||||
|
POSITION(8) = 142
|
||||||
|
POSITION(9) = 0
|
||||||
|
USE = 20
|
||||||
|
|
||||||
42
si/pag.ini
Executable file
42
si/pag.ini
Executable file
@ -0,0 +1,42 @@
|
|||||||
|
[MAIN]
|
||||||
|
FIELDSEP =
|
||||||
|
RECORDSEP =
|
||||||
|
RECORDSIZE =
|
||||||
|
SKIPLINES =
|
||||||
|
TYPEFIELD = -1
|
||||||
|
|
||||||
|
[RECORD]
|
||||||
|
FIELD(0) =
|
||||||
|
FIELD(1) = NDOC
|
||||||
|
FIELD(2) = CODART
|
||||||
|
FIELD(3) = QTA
|
||||||
|
FIELD(4) = PREZZO
|
||||||
|
FIELD(5) =
|
||||||
|
FIELD(6) =
|
||||||
|
FIELD(7) =
|
||||||
|
LENGTH(0) = 1
|
||||||
|
LENGTH(1) = 6
|
||||||
|
LENGTH(2) = 10
|
||||||
|
LENGTH(3) = 4
|
||||||
|
LENGTH(4) = 13
|
||||||
|
LENGTH(5) = 2
|
||||||
|
LENGTH(6) = 1
|
||||||
|
LENGTH(7) = 1
|
||||||
|
NAME(0) =
|
||||||
|
NAME(1) = N. documento
|
||||||
|
NAME(2) = Codice articolo, codice spesa o codice prestazione
|
||||||
|
NAME(3) = Quantita'
|
||||||
|
NAME(4) = Prezzo o valore
|
||||||
|
NAME(5) =
|
||||||
|
NAME(6) =
|
||||||
|
NAME(7) =
|
||||||
|
POSITION(0) = 0
|
||||||
|
POSITION(1) = 1
|
||||||
|
POSITION(2) = 7
|
||||||
|
POSITION(3) = 17
|
||||||
|
POSITION(4) = 21
|
||||||
|
POSITION(5) = 34
|
||||||
|
POSITION(6) = 36
|
||||||
|
POSITION(7) = 37
|
||||||
|
USE = 34
|
||||||
|
|
||||||
24
si/si0.cpp
Executable file
24
si/si0.cpp
Executable file
@ -0,0 +1,24 @@
|
|||||||
|
#include <xvt.h>
|
||||||
|
#include "si0.h"
|
||||||
|
|
||||||
|
int main( int argc, char** argv )
|
||||||
|
{
|
||||||
|
int rt = -1;
|
||||||
|
const int r = (argc > 1) ? atoi( &argv[1][1] ) : 1;
|
||||||
|
|
||||||
|
switch (r)
|
||||||
|
{
|
||||||
|
case 2:
|
||||||
|
rt = si0200( argc, argv ); // Stampe varie
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
rt = si0300( argc, argv ); // per realplast
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
rt = si0100( argc, argv ); // Ricezione dati
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
exit(rt);
|
||||||
|
return rt;
|
||||||
|
}
|
||||||
|
|
||||||
9
si/si0.h
Executable file
9
si/si0.h
Executable file
@ -0,0 +1,9 @@
|
|||||||
|
#ifndef __SI0_H
|
||||||
|
#define __SI0_H
|
||||||
|
|
||||||
|
int si0100(int argc, char* argv[]); // Ricezione dati
|
||||||
|
int si0200(int argc, char* argv[]); // Stampe varie
|
||||||
|
int si0300(int argc, char* argv[]); // temp
|
||||||
|
|
||||||
|
#endif // __SI0_H
|
||||||
|
|
||||||
3
si/si0.url
Executable file
3
si/si0.url
Executable file
@ -0,0 +1,3 @@
|
|||||||
|
#include <default.url>
|
||||||
|
|
||||||
|
#include <mainmenu.url>
|
||||||
398
si/si0100.cpp
Executable file
398
si/si0100.cpp
Executable file
@ -0,0 +1,398 @@
|
|||||||
|
#include <applicat.h>
|
||||||
|
#include <filetext.h>
|
||||||
|
#include <form.h>
|
||||||
|
#include <mask.h>
|
||||||
|
#include <relation.h>
|
||||||
|
#include <tabutil.h>
|
||||||
|
#include <printer.h>
|
||||||
|
#include <progind.h>
|
||||||
|
#include <utility.h>
|
||||||
|
#include <lffiles.h>
|
||||||
|
|
||||||
|
#include "..\ve\velib.h"
|
||||||
|
#include "si0100a.h"
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////
|
||||||
|
// Classe TPag_file customizzata dalla TFile_text //
|
||||||
|
/////////////////////////////////////////////////////
|
||||||
|
class TPag_file: public TFile_text
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual void validate(TCursor& cur,TRecord_text &rec, TToken_string &val, TString& str);
|
||||||
|
|
||||||
|
public:
|
||||||
|
TPag_file(const TString& file_name, const TString& config_name);
|
||||||
|
virtual ~TPag_file() { }
|
||||||
|
};
|
||||||
|
|
||||||
|
// gestione dei messaggi estesi nei campi
|
||||||
|
void TPag_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str)
|
||||||
|
{
|
||||||
|
const TString code(s.get(0));
|
||||||
|
TString valore;
|
||||||
|
str = valore;
|
||||||
|
}
|
||||||
|
|
||||||
|
TPag_file::TPag_file(const TString& file_name, const TString& config_name)
|
||||||
|
: TFile_text(file_name, config_name)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////
|
||||||
|
// Classe TCli_file customizzata dalla TFile_text //
|
||||||
|
/////////////////////////////////////////////////////
|
||||||
|
class TCli_file: public TFile_text
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual void validate(TCursor& cur,TRecord_text &rec, TToken_string &val, TString& str);
|
||||||
|
|
||||||
|
public:
|
||||||
|
TCli_file(const TString& file_name, const TString& config_name);
|
||||||
|
virtual ~TCli_file() { }
|
||||||
|
};
|
||||||
|
|
||||||
|
// gestione dei messaggi estesi nei campi
|
||||||
|
void TCli_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str)
|
||||||
|
{
|
||||||
|
const TString code(s.get(0));
|
||||||
|
TString valore;
|
||||||
|
str = valore;
|
||||||
|
}
|
||||||
|
|
||||||
|
TCli_file::TCli_file(const TString& file_name, const TString& config_name)
|
||||||
|
: TFile_text(file_name, config_name)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////
|
||||||
|
// Classe TArt_file customizzata dalla TFile_text //
|
||||||
|
/////////////////////////////////////////////////////
|
||||||
|
class TArt_file: public TFile_text
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual void validate(TCursor& cur,TRecord_text &rec, TToken_string &val, TString& str);
|
||||||
|
|
||||||
|
public:
|
||||||
|
TArt_file(const TString& file_name, const TString& config_name);
|
||||||
|
virtual ~TArt_file() { }
|
||||||
|
};
|
||||||
|
|
||||||
|
// gestione dei messaggi estesi nei campi
|
||||||
|
void TArt_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str)
|
||||||
|
{
|
||||||
|
const TString code(s.get(0));
|
||||||
|
TString valore;
|
||||||
|
str = valore;
|
||||||
|
}
|
||||||
|
|
||||||
|
TArt_file::TArt_file(const TString& file_name, const TString& config_name)
|
||||||
|
: TFile_text(file_name, config_name)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
class TImport: public TSkeleton_application
|
||||||
|
{
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual bool create(void);
|
||||||
|
virtual void main_loop();
|
||||||
|
virtual bool destroy(void) ;
|
||||||
|
void transfer(void);
|
||||||
|
bool check_seq(TConfig & c);
|
||||||
|
bool localita2comune(const TString & cap, const TString & localita, TString & codice);
|
||||||
|
void update_cli(TCli_file & in, TRecord_text & r, TLocalisamfile & cli);
|
||||||
|
void update_art(TArt_file & in, TRecord_text & r, TLocalisamfile & art, TLocalisamfile & umart);
|
||||||
|
void update_doc(TPag_file & in, TRecord_text & r, TDocumento &doc, const char * codnum, const char * tipodoc,
|
||||||
|
const char * tiporiga, const char * codiva);
|
||||||
|
virtual const char * extra_modules() const { return "BA"; }
|
||||||
|
|
||||||
|
public:
|
||||||
|
TImport() {}
|
||||||
|
virtual ~TImport() {}
|
||||||
|
};
|
||||||
|
|
||||||
|
// restituisce un riferimento all' applicazione
|
||||||
|
inline TImport& app() { return (TImport&) main_app();}
|
||||||
|
|
||||||
|
// creazione dell'applicazione
|
||||||
|
bool TImport::create()
|
||||||
|
{
|
||||||
|
open_files(LF_DOC, LF_RIGHEDOC, LF_CONDV, LF_RCONDV, LF_ANAMAG, LF_SCONTI, LF_UMART,
|
||||||
|
LF_TAB, LF_TABCOM, LF_CLIFO, LF_CFVEN, LF_INDSP, LF_OCCAS, LF_PCON,
|
||||||
|
LF_MOVMAG, LF_RMOVMAG, LF_MAG, LF_SVRIEP, LF_AGENTI, LF_PERCPROV, LF_ATTIV, LF_CAUSALI, 0);
|
||||||
|
|
||||||
|
return TSkeleton_application::create();
|
||||||
|
}
|
||||||
|
|
||||||
|
// distruzione dell'applicazione
|
||||||
|
bool TImport::destroy()
|
||||||
|
{
|
||||||
|
return TSkeleton_application::destroy();
|
||||||
|
}
|
||||||
|
|
||||||
|
// carica la maschera
|
||||||
|
void TImport::main_loop()
|
||||||
|
{
|
||||||
|
transfer();
|
||||||
|
}
|
||||||
|
|
||||||
|
// trasferimento dati su file per ct bo
|
||||||
|
void TImport::transfer()
|
||||||
|
{
|
||||||
|
TMask msk("si0100a");
|
||||||
|
TConfig c(CONFIG_STUDIO, "sipag");
|
||||||
|
msk.set(F_FILESEQ, c.get("FileSeq"));
|
||||||
|
msk.set(F_FILEPAG, c.get("FilePag"));
|
||||||
|
msk.set(F_FILECLI, c.get("FileCli"));
|
||||||
|
msk.set(F_FILEART, c.get("FileArt"));
|
||||||
|
|
||||||
|
while (msk.run() != K_QUIT)
|
||||||
|
{
|
||||||
|
c.set("FileSeq", msk.get(F_FILESEQ));
|
||||||
|
c.set("FilePag", msk.get(F_FILEPAG));
|
||||||
|
c.set("FileCli", msk.get(F_FILECLI));
|
||||||
|
c.set("FileArt", msk.get(F_FILEART));
|
||||||
|
|
||||||
|
if (check_seq(c))
|
||||||
|
{
|
||||||
|
TRecord_text rec;
|
||||||
|
TProgind p(3L, "Trasferimento da AS/400");
|
||||||
|
TFilename clisrc(msk.get(F_FILECLI));
|
||||||
|
|
||||||
|
if (clisrc.exist())
|
||||||
|
{
|
||||||
|
TCli_file clifile(clisrc, "cli.ini");
|
||||||
|
TLocalisamfile clienti(LF_CLIFO);
|
||||||
|
|
||||||
|
clifile.open(clisrc,'r');
|
||||||
|
while (clifile.read(rec) == NOERR)
|
||||||
|
update_cli(clifile, rec, clienti);
|
||||||
|
clifile.close();
|
||||||
|
}
|
||||||
|
p.addstatus(1L);
|
||||||
|
|
||||||
|
TFilename artsrc(msk.get(F_FILEART));
|
||||||
|
|
||||||
|
if (artsrc.exist())
|
||||||
|
{
|
||||||
|
TArt_file artfile(artsrc, "art.ini");
|
||||||
|
TLocalisamfile articoli(LF_ANAMAG);
|
||||||
|
TLocalisamfile umart(LF_UMART);
|
||||||
|
|
||||||
|
artfile.open(artsrc,'r');
|
||||||
|
while (artfile.read(rec) == NOERR)
|
||||||
|
update_art(artfile, rec, articoli, umart);
|
||||||
|
artfile.close();
|
||||||
|
}
|
||||||
|
p.addstatus(1L);
|
||||||
|
|
||||||
|
TFilename pagsrc(msk.get(F_FILEPAG));
|
||||||
|
|
||||||
|
if (pagsrc.exist())
|
||||||
|
{
|
||||||
|
TPag_file pagfile(pagsrc, "pag.ini");
|
||||||
|
TDocumento doc;
|
||||||
|
TString codnum(c.get("CodNum"));
|
||||||
|
TString tipodoc(c.get("TipoDoc"));
|
||||||
|
TString tiporiga(c.get("TipoRiga"));
|
||||||
|
TString codiva(c.get("CodIva"));
|
||||||
|
|
||||||
|
|
||||||
|
pagfile.open(pagsrc,'r');
|
||||||
|
while (pagfile.read(rec) == NOERR)
|
||||||
|
update_doc(pagfile, rec, doc, codnum, tipodoc, tiporiga, codiva);
|
||||||
|
pagfile.close();
|
||||||
|
}
|
||||||
|
p.addstatus(1L);
|
||||||
|
|
||||||
|
message_box("Operazione terminata");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
//inizializza il cursore
|
||||||
|
bool TImport::check_seq(TConfig & c)
|
||||||
|
{
|
||||||
|
TScanner seq(c.get("FileSeq"));
|
||||||
|
const int expected_seq = c.get_int("Seq") + 1;
|
||||||
|
const int seqnum = seq.integer();
|
||||||
|
|
||||||
|
if (expected_seq != seqnum)
|
||||||
|
return error_box("Il numero di sequenza trovato %d\nnon coincide con quello atteso %d", seqnum, expected_seq);
|
||||||
|
c.set("Seq", seqnum);
|
||||||
|
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
int si0100(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TImport a ;
|
||||||
|
a.run(argc, argv, "Ricezione da AS/400");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TImport::localita2comune(const TString & caporig, const TString & localita, TString & codice)
|
||||||
|
{
|
||||||
|
TLocalisamfile comuni (LF_COMUNI);
|
||||||
|
TString16 cap = caporig;
|
||||||
|
bool found = FALSE;
|
||||||
|
|
||||||
|
if (cap.mid(2,1) == "1")
|
||||||
|
{
|
||||||
|
cap = cap.left(3);
|
||||||
|
cap << "00";
|
||||||
|
}
|
||||||
|
|
||||||
|
comuni.setkey(3);
|
||||||
|
comuni.zero();
|
||||||
|
comuni.put("CAPCOM", cap);
|
||||||
|
|
||||||
|
TRectype com (comuni.curr());
|
||||||
|
codice = "";
|
||||||
|
|
||||||
|
for (comuni.read(_isgteq); !comuni.eof() && !found; comuni.next())
|
||||||
|
{
|
||||||
|
if (comuni.curr() != com)
|
||||||
|
break;
|
||||||
|
|
||||||
|
found = localita.left(3) == comuni.get("DENCOM").left(3);
|
||||||
|
if (found)
|
||||||
|
codice = comuni.get("COM");
|
||||||
|
}
|
||||||
|
return found;
|
||||||
|
}
|
||||||
|
|
||||||
|
void TImport::update_cli(TCli_file & in, TRecord_text & r, TLocalisamfile & cli)
|
||||||
|
{
|
||||||
|
cli.zero();
|
||||||
|
cli.put("TIPOCF", "C");
|
||||||
|
cli.put("CODCF", in.get_field(r, 1));
|
||||||
|
bool newrec = cli.read() != NOERR;
|
||||||
|
if (newrec)
|
||||||
|
{
|
||||||
|
cli.zero();
|
||||||
|
cli.put("TIPOCF", "C");
|
||||||
|
cli.put("CODCF", in.get_field(r, 1));
|
||||||
|
}
|
||||||
|
|
||||||
|
cli.put("RAGSOC", in.get_field(r, 2));
|
||||||
|
TString80 ind(in.get_field(r, 3));
|
||||||
|
TString80 loc;
|
||||||
|
|
||||||
|
int p = ind.find('-');
|
||||||
|
if (p > 0)
|
||||||
|
{
|
||||||
|
loc = ind.mid(p+1);
|
||||||
|
loc.strip("-");
|
||||||
|
loc.trim();
|
||||||
|
ind.cut(p);
|
||||||
|
ind.trim();
|
||||||
|
}
|
||||||
|
|
||||||
|
p = ind.rfind(',');
|
||||||
|
if (p > 0)
|
||||||
|
{
|
||||||
|
cli.put("INDCF", ind.left(p));
|
||||||
|
cli.put("CIVCF", ind.mid(p+1));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
cli.put("INDCF", ind.left(35));
|
||||||
|
|
||||||
|
TString16 cap(in.get_field(r, 4));
|
||||||
|
|
||||||
|
cli.put("CAPCF", cap);
|
||||||
|
cli.put("COFI", in.get_field(r, 6));
|
||||||
|
cli.put("PAIV", in.get_field(r, 7));
|
||||||
|
|
||||||
|
TString80 localita(in.get_field(r, 8));
|
||||||
|
TString16 codice;
|
||||||
|
|
||||||
|
if (localita2comune(cap, localita, codice) == TRUE)
|
||||||
|
localita = "";
|
||||||
|
|
||||||
|
localita.insert(loc);
|
||||||
|
cli.put("COMCF", codice);
|
||||||
|
cli.put("LOCALITACF", localita);
|
||||||
|
|
||||||
|
if (newrec)
|
||||||
|
cli.write();
|
||||||
|
else
|
||||||
|
cli.rewrite();
|
||||||
|
}
|
||||||
|
|
||||||
|
void TImport::update_art(TArt_file & in, TRecord_text & r, TLocalisamfile & art, TLocalisamfile & umart)
|
||||||
|
{
|
||||||
|
art.zero();
|
||||||
|
art.put("CODART", in.get_field(r, 0));
|
||||||
|
bool newrec = art.read() != NOERR;
|
||||||
|
if (newrec)
|
||||||
|
{
|
||||||
|
art.zero();
|
||||||
|
art.put("CODART", in.get_field(r, 0));
|
||||||
|
}
|
||||||
|
|
||||||
|
art.put("DESCR", in.get_field(r, 1));
|
||||||
|
|
||||||
|
if (newrec)
|
||||||
|
{
|
||||||
|
art.write();
|
||||||
|
umart.zero();
|
||||||
|
umart.put("CODART", in.get_field(r, 0));
|
||||||
|
umart.put("NRIGA", "1");
|
||||||
|
umart.put("UM", "N.");
|
||||||
|
umart.put("FC", "1.00");
|
||||||
|
umart.write();
|
||||||
|
}
|
||||||
|
else
|
||||||
|
art.rewrite();
|
||||||
|
}
|
||||||
|
|
||||||
|
void TImport::update_doc(TPag_file & in, TRecord_text & r, TDocumento &doc, const char * codnum, const char * tipodoc,
|
||||||
|
const char * tiporiga, const char * codiva)
|
||||||
|
{
|
||||||
|
doc.zero();
|
||||||
|
const bool newdoc = doc.read('D', TDate(TODAY).year(), codnum, atol(in.get_field(r, 1))) != NOERR;
|
||||||
|
const TDate oggi(TODAY);
|
||||||
|
|
||||||
|
if (newdoc)
|
||||||
|
{
|
||||||
|
doc.zero();
|
||||||
|
|
||||||
|
TDocumento::set_key(doc, 'D', oggi.year(), codnum, atol(in.get_field(r, 1)));
|
||||||
|
doc.set_tipo(tipodoc);
|
||||||
|
doc.put("TIPOCF", "C");
|
||||||
|
doc.put("CODCF", in.get_field(r, 1));
|
||||||
|
doc.put("DATADOC", oggi);
|
||||||
|
doc.put("DATACONS", oggi);
|
||||||
|
}
|
||||||
|
|
||||||
|
TRiga_documento & riga = doc.new_row(tiporiga);
|
||||||
|
|
||||||
|
const TString & cod = in.get_field(r, 2);
|
||||||
|
riga.put("CODART", cod);
|
||||||
|
riga.put("CODARTMAG", cod);
|
||||||
|
|
||||||
|
TString80 descr = cache().get(LF_ANAMAG, cod, "DESCR");
|
||||||
|
|
||||||
|
riga.put("DESCR", descr);
|
||||||
|
riga.put("CHECKED", "X");
|
||||||
|
doc.put("DATACONS", oggi);
|
||||||
|
|
||||||
|
|
||||||
|
real qta(in.get_field(r, 3));
|
||||||
|
|
||||||
|
if (qta == ZERO)
|
||||||
|
qta = 1.00;
|
||||||
|
|
||||||
|
riga.put("UMQTA", "N.");
|
||||||
|
riga.put("QTA", qta);
|
||||||
|
|
||||||
|
const real prezzo(in.get_field(r, 4));
|
||||||
|
riga.put("PREZZO", prezzo);
|
||||||
|
riga.put("CODIVA", codiva);
|
||||||
|
|
||||||
|
if (newdoc)
|
||||||
|
doc.write();
|
||||||
|
else
|
||||||
|
doc.rewrite();
|
||||||
|
}
|
||||||
5
si/si0100a.h
Executable file
5
si/si0100a.h
Executable file
@ -0,0 +1,5 @@
|
|||||||
|
#define F_FILESEQ 101
|
||||||
|
#define F_FILEPAG 102
|
||||||
|
#define F_FILECLI 103
|
||||||
|
#define F_FILEART 104
|
||||||
|
|
||||||
61
si/si0100a.uml
Executable file
61
si/si0100a.uml
Executable file
@ -0,0 +1,61 @@
|
|||||||
|
#include "si0100a.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
|
BUTTON DLG_OK 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -11 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -11 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Ricezione dati da AS/400" -1 -1 78 20
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 77 11
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Selezioni per la ricezione"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_FILESEQ 52
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "Nome file sequenza "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
VALIDATE FILENAME_FUNC
|
||||||
|
FLAGS "A"
|
||||||
|
WARNING "E' necessario specificare un nome di file"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_FILEPAG 52
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 5 "Nome file pagamenti "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
VALIDATE FILENAME_FUNC
|
||||||
|
FLAGS "A"
|
||||||
|
WARNING "E' necessario specificare un nome di file"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_FILECLI 52
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 7 "Nome file clienti "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
VALIDATE FILENAME_FUNC
|
||||||
|
FLAGS "A"
|
||||||
|
WARNING "E' necessario specificare un nome di file"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_FILEART 52
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 9 "Nome file servizi "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
VALIDATE FILENAME_FUNC
|
||||||
|
FLAGS "A"
|
||||||
|
WARNING "E' necessario specificare un nome di file"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
ENDMASK
|
||||||
1543
si/si0200.cpp
Executable file
1543
si/si0200.cpp
Executable file
File diff suppressed because it is too large
Load Diff
29
si/si0200.h
Executable file
29
si/si0200.h
Executable file
@ -0,0 +1,29 @@
|
|||||||
|
#define F_CODNUM 101
|
||||||
|
#define F_ANNO 102
|
||||||
|
#define F_PROVV 103
|
||||||
|
#define F_NCOPIE 104
|
||||||
|
|
||||||
|
#define F_DATA_O_NUM 105
|
||||||
|
|
||||||
|
#define F_DA_NDOC 106
|
||||||
|
#define F_A_NDOC 107
|
||||||
|
|
||||||
|
#define F_DA_DATADOC 108
|
||||||
|
#define F_A_DATADOC 109
|
||||||
|
|
||||||
|
#define F_TIPOCF 110
|
||||||
|
#define F_CODFR 111
|
||||||
|
#define F_CODTO 112
|
||||||
|
#define F_SELECTED 113
|
||||||
|
#define BUT_SEL 114
|
||||||
|
#define BUT_ANN 115
|
||||||
|
#define F_SELVAL 116
|
||||||
|
#define F_VALUTA 117
|
||||||
|
#define F_DETTAGLIO 118
|
||||||
|
#define F_DESCR_CLI 119
|
||||||
|
|
||||||
|
#define F_SHEETNUMS 201
|
||||||
|
|
||||||
|
#define GROUP_PRICES 29
|
||||||
|
#define GROUP_QTA 30
|
||||||
|
#define GROUP_IMPORTI 31
|
||||||
6
si/si0200a.h
Executable file
6
si/si0200a.h
Executable file
@ -0,0 +1,6 @@
|
|||||||
|
// trasferimento dati a CT Bologna
|
||||||
|
// definizione campi per maschera di selezione
|
||||||
|
|
||||||
|
//#define F_TRASFERIMENTO 101 // trasferimento totale o parziale
|
||||||
|
#define F_DATAINI 101 // data inizio modifiche per trasferimento parziale
|
||||||
|
#define F_FILENAME 102 // nome del file dove scaricare i dati
|
||||||
237
si/si0200a.uml
Executable file
237
si/si0200a.uml
Executable file
@ -0,0 +1,237 @@
|
|||||||
|
TO "" 0 -3 0 2
|
||||||
|
ST 30 70 50
|
||||||
|
BE
|
||||||
|
PR 2 -3 "Profilo "
|
||||||
|
PSELECT
|
||||||
|
GR 1
|
||||||
|
EN
|
||||||
|
BU 24 10 2
|
||||||
|
BE
|
||||||
|
PR -12 -1 "~Stampa"
|
||||||
|
ME EXIT,13
|
||||||
|
EN
|
||||||
|
BU 2 10 2
|
||||||
|
BE
|
||||||
|
PR -22 -1 ""
|
||||||
|
EN
|
||||||
|
EN
|
||||||
|
|
||||||
|
PA "Stampe Pagamenti" -1 2 80 20
|
||||||
|
NU 102 4 0
|
||||||
|
BE
|
||||||
|
PR 2 1 "Anno "
|
||||||
|
FLAG "P"
|
||||||
|
CH REQUIRED
|
||||||
|
EN
|
||||||
|
LI 103 12
|
||||||
|
BE
|
||||||
|
PR 25 1 "Tipo numerazione "
|
||||||
|
IT "D|Definitiva"
|
||||||
|
IT "P|Provvisoria"
|
||||||
|
FLAG "P"
|
||||||
|
EN
|
||||||
|
SPREADSHEET 201 78 4
|
||||||
|
BE
|
||||||
|
PR 1 2 ""
|
||||||
|
IT "Cod. num."
|
||||||
|
IT "Stato 1"
|
||||||
|
IT "Stato 2"
|
||||||
|
IT "Stato 3"
|
||||||
|
IT "Stato 4"
|
||||||
|
IT "Stato 5"
|
||||||
|
IT "Stato 6"
|
||||||
|
EN
|
||||||
|
|
||||||
|
LI 110 1 9
|
||||||
|
BE
|
||||||
|
PR 2 7 "Tipo "
|
||||||
|
IT "C|Clienti"
|
||||||
|
IT "F|Fornitori"
|
||||||
|
EN
|
||||||
|
|
||||||
|
NU 111 6
|
||||||
|
BE
|
||||||
|
PR 68 8 ""
|
||||||
|
FL "B"
|
||||||
|
EN
|
||||||
|
NU 112 6
|
||||||
|
BE
|
||||||
|
PR 68 9 ""
|
||||||
|
FL "B"
|
||||||
|
EN
|
||||||
|
|
||||||
|
ST 119 50 50
|
||||||
|
BE
|
||||||
|
PR 2 8 "Dal Cliente "
|
||||||
|
US 20 KE 2
|
||||||
|
IN TIPOCF 110
|
||||||
|
IN RAGSOC 119
|
||||||
|
DI "Ragione Sociale@50" RAGSOC
|
||||||
|
DI "Codice " CODCF
|
||||||
|
OU 111 CODCF
|
||||||
|
OU 119 RAGSOC
|
||||||
|
EN
|
||||||
|
ST 120 50 50
|
||||||
|
BE
|
||||||
|
PR 2 9 "Al Cliente "
|
||||||
|
US 20 KE 2
|
||||||
|
IN TIPOCF 110
|
||||||
|
IN RAGSOC 120
|
||||||
|
DI "Ragione Sociale@50" RAGSOC
|
||||||
|
DI "Codice " CODCF
|
||||||
|
OU 112 CODCF
|
||||||
|
OU 120 RAGSOC
|
||||||
|
EN
|
||||||
|
ST 121 20
|
||||||
|
BE
|
||||||
|
PR 2 10 "Dal Servizio "
|
||||||
|
US 47 KE 1
|
||||||
|
IN CODART 121
|
||||||
|
DI "Codice " CODART
|
||||||
|
DI "Descrizione@50" DESCR
|
||||||
|
OU 121 CODART
|
||||||
|
EN
|
||||||
|
ST 122 20
|
||||||
|
BE
|
||||||
|
PR 2 11 "Al Servizio "
|
||||||
|
US 47 KE 1
|
||||||
|
IN CODART 122
|
||||||
|
DI "Codice " CODART
|
||||||
|
DI "Descrizione@50" DESCR
|
||||||
|
OU 122 CODART
|
||||||
|
EN
|
||||||
|
|
||||||
|
DA 108
|
||||||
|
BE
|
||||||
|
PR 2 12 "Dalla Data "
|
||||||
|
EN
|
||||||
|
DA 109
|
||||||
|
BE
|
||||||
|
PR 27 12 "Alla Data "
|
||||||
|
EN
|
||||||
|
|
||||||
|
|
||||||
|
ST 113 5
|
||||||
|
BE
|
||||||
|
PR 25 16 "Scelte n. "
|
||||||
|
FL "DR"
|
||||||
|
EN
|
||||||
|
|
||||||
|
BU 114 10 2
|
||||||
|
BE
|
||||||
|
PR 45 16 "~Selezione"
|
||||||
|
PI 115
|
||||||
|
EN
|
||||||
|
BU 115 10
|
||||||
|
BE
|
||||||
|
PR 45 18 "A~zzera"
|
||||||
|
EN
|
||||||
|
RA 116 20
|
||||||
|
BE
|
||||||
|
PR 2 15 "Stampa documenti"
|
||||||
|
IT "1|Valuta ditta"
|
||||||
|
ME CLEAR,117
|
||||||
|
IT "2|In valuta"
|
||||||
|
ME ENABLE,117
|
||||||
|
IT "3|Tutti"
|
||||||
|
ME CLEAR,117
|
||||||
|
EN
|
||||||
|
ST 117 3
|
||||||
|
BE
|
||||||
|
PR 25 17 "Cod. val. "
|
||||||
|
FL "U"
|
||||||
|
US %VAL
|
||||||
|
IN CODTAB 117
|
||||||
|
DI "Codice" CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 117 CODTAB
|
||||||
|
CH REQUIRED
|
||||||
|
EN
|
||||||
|
BO 118
|
||||||
|
BE
|
||||||
|
PR 25 18 "Dettaglio righe"
|
||||||
|
EN
|
||||||
|
EN
|
||||||
|
ENDMASK
|
||||||
|
PA "" -1 -1 75 10
|
||||||
|
ST 101 4
|
||||||
|
BE
|
||||||
|
PR 1 1 "Codice numerazione "
|
||||||
|
FLAG "U"
|
||||||
|
US %NUM
|
||||||
|
IN CODTAB 101
|
||||||
|
DI "Cod. Num." CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 101 CODTAB
|
||||||
|
CH NORMAL
|
||||||
|
EN
|
||||||
|
ST 102 1
|
||||||
|
BE
|
||||||
|
PR 1 3 "Stato 1 "
|
||||||
|
US %STD
|
||||||
|
IN CODTAB 102
|
||||||
|
DI "Stato" CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 102 CODTAB
|
||||||
|
CH NORMAL
|
||||||
|
EN
|
||||||
|
ST 103 1
|
||||||
|
BE
|
||||||
|
PR 1 4 "Stato 2 "
|
||||||
|
US %STD
|
||||||
|
IN CODTAB 103
|
||||||
|
DI "Stato" CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 103 CODTAB
|
||||||
|
CH NORMAL
|
||||||
|
EN
|
||||||
|
ST 104 1
|
||||||
|
BE
|
||||||
|
PR 1 5 "Stato 3 "
|
||||||
|
US %STD
|
||||||
|
IN CODTAB 104
|
||||||
|
DI "Stato" CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 104 CODTAB
|
||||||
|
CH NORMAL
|
||||||
|
EN
|
||||||
|
ST 105 1
|
||||||
|
BE
|
||||||
|
PR 1 6 "Stato 4 "
|
||||||
|
US %STD
|
||||||
|
IN CODTAB 105
|
||||||
|
DI "Stato" CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 105 CODTAB
|
||||||
|
CH NORMAL
|
||||||
|
EN
|
||||||
|
ST 106 1
|
||||||
|
BE
|
||||||
|
PR 1 7 "Stato 5 "
|
||||||
|
US %STD
|
||||||
|
IN CODTAB 106
|
||||||
|
DI "Stato" CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 106 CODTAB
|
||||||
|
CH NORMAL
|
||||||
|
EN
|
||||||
|
ST 107 1
|
||||||
|
BE
|
||||||
|
PR 1 8 "Stato 6 "
|
||||||
|
US %STD
|
||||||
|
IN CODTAB 107
|
||||||
|
DI "Stato" CODTAB
|
||||||
|
DI "Descrizione@50" S0
|
||||||
|
OU 107 CODTAB
|
||||||
|
CH NORMAL
|
||||||
|
EN
|
||||||
|
BU 1 9 2
|
||||||
|
BE
|
||||||
|
PR -12 -1 ""
|
||||||
|
EN
|
||||||
|
BU 2 9 2
|
||||||
|
BE
|
||||||
|
PR -22 -1 ""
|
||||||
|
EN
|
||||||
|
EN
|
||||||
|
ENDMASK
|
||||||
78
si/si0300.cpp
Executable file
78
si/si0300.cpp
Executable file
@ -0,0 +1,78 @@
|
|||||||
|
//////////////////////////////////////////////////////////////
|
||||||
|
// Stampa documenti
|
||||||
|
//////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
#include <applicat.h>
|
||||||
|
#include <config.h>
|
||||||
|
#include <defmask.h>
|
||||||
|
#include <form.h>
|
||||||
|
#include <msksheet.h>
|
||||||
|
#include <printer.h>
|
||||||
|
#include <progind.h>
|
||||||
|
#include <sheet.h>
|
||||||
|
|
||||||
|
#include "si0200.h"
|
||||||
|
|
||||||
|
class TAggart_application: public TSkeleton_application
|
||||||
|
{
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual bool create();
|
||||||
|
virtual bool destroy();
|
||||||
|
virtual void main_loop();
|
||||||
|
virtual const char * extra_modules() const { return "BA"; }
|
||||||
|
|
||||||
|
public:
|
||||||
|
TAggart_application() {};
|
||||||
|
virtual ~TAggart_application() {};
|
||||||
|
};
|
||||||
|
|
||||||
|
inline TAggart_application& app() { return (TAggart_application&) main_app(); }
|
||||||
|
|
||||||
|
bool TAggart_application::create()
|
||||||
|
{
|
||||||
|
return TSkeleton_application::create();
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TAggart_application::destroy()
|
||||||
|
{
|
||||||
|
return TApplication::destroy();
|
||||||
|
}
|
||||||
|
|
||||||
|
void TAggart_application::main_loop()
|
||||||
|
{
|
||||||
|
TRelation * r = new TRelation(LF_ANAMAG);
|
||||||
|
TCursor c(r);
|
||||||
|
const long items = c.items();
|
||||||
|
|
||||||
|
for (c = 0L; c.pos() < items; ++c)
|
||||||
|
{
|
||||||
|
TRectype & rec = c.curr();
|
||||||
|
TString descr = rec.get("DESCRAGG");
|
||||||
|
descr.trim();
|
||||||
|
if (descr.not_empty())
|
||||||
|
{
|
||||||
|
const int p= descr.find("ST/");
|
||||||
|
if (p > 0)
|
||||||
|
{
|
||||||
|
TString stampo(descr.mid(p+3));
|
||||||
|
rec.put("USER2", stampo);
|
||||||
|
descr.cut(p);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
rec.put("USER2", "");
|
||||||
|
rec.put("USER1", descr);
|
||||||
|
rec.put("DESCRAGG", "");
|
||||||
|
rec.rewrite(r->lfile());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Do all the work!
|
||||||
|
int si0300(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TAggart_application a;
|
||||||
|
a.run(argc, argv, "modifica descr");
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
x
Reference in New Issue
Block a user