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

Ricompilate personalizzazioni per Sicuri

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22818 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-03-03 21:51:37 +00:00
parent 9ad7adc80c
commit ff77324017
7 changed files with 409 additions and 110 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ps/pg0001.cpp
View File

@ -7,21 +7,12 @@ int main(int argc, char** argv)
int n = argc > 1 ? atoi(argv[1]+1) : 0; int n = argc > 1 ? atoi(argv[1]+1) : 0;
switch(n) switch(n)
{ {
case 1: case 1: pg0001200(argc, argv); break; // ricezione movimenti da .... e invio a TS (SIPAG)
pg0001200(argc, argv); break; // ricezione movimenti da .... e invio a TS (SIPAG) case 2: pg0001300(argc, argv); break; // conversione da excel a colonne fisse per studio vitali
case 2: case 3: pg0001400(argc, argv); break; // stampa bollettini postali Condeco
pg0001300(argc, argv); break; // conversione da excel a colonne fisse per studio vitali case 4: pg0001500(argc, argv); break; // copia movimenti magazzino AZ
case 3: case 5: pg0001600(argc, argv); break; // ricezione clienti e movimenti da paghe
pg0001400(argc, argv); break; // stampa bollettini postali Condeco default:pg0001100(argc, argv); break; // ricezione fatture da paghe (SIPAG)
case 4:
pg0001500(argc, argv); break; // copia movimenti magazzino AZ
case 5:
pg0001600(argc, argv); break; // ricezione clienti e movimenti da paghe
case 0:
default:
pg0001100(argc, argv);
break; //ricezione fatture da paghe (SIPAG)
} }
exit(0);
return 0; return 0;
} }

77
ps/pg0001100.cpp
View File

@ -17,6 +17,7 @@
#include "doc.h" #include "doc.h"
#include "rdoc.h" #include "rdoc.h"
#include "../cg/cfban.h"
#include "..\cg\cglib01.h" #include "..\cg\cglib01.h"
#include "..\ve\velib.h" #include "..\ve\velib.h"
@ -182,7 +183,6 @@ public:
virtual void main_loop(); virtual void main_loop();
void add_testata(const TRecordset& paghe, TConfig& doc); void add_testata(const TRecordset& paghe, TConfig& doc);
void add_riga_doc(const TRecordset& paghe, TConfig& doc, const int nriga, const TString& codivaes); void add_riga_doc(const TRecordset& paghe, TConfig& doc, const int nriga, const TString& codivaes);
TPaghe2Doc() {}
}; };
TPaghe2Doc& app() { return (TPaghe2Doc&) main_app(); } TPaghe2Doc& app() { return (TPaghe2Doc&) main_app(); }
@ -214,8 +214,39 @@ void TPaghe2Doc::add_testata(const TRecordset& paghe, TConfig& doc)
doc.set(DOC_TIPODOC, _tipodoc); doc.set(DOC_TIPODOC, _tipodoc);
doc.set(DOC_DATADOC, _datadoc); doc.set(DOC_DATADOC, _datadoc);
doc.set(DOC_TIPOCF, "C"); doc.set(DOC_TIPOCF, "C");
doc.set(DOC_CODCF, paghe.get("CLAZI").as_string());
const long codcli = paghe.get("CLAZI").as_int();
doc.set(DOC_CODCF, codcli);
doc.set(DOC_STATO, _stato); doc.set(DOC_STATO, _stato);
TToken_string key;
key = "C";
key.add(codcli);
key.add("V");
key.add("1");
const TRectype& cfban = cache().get(LF_CFBAN, key);
TString8 abi = cfban.get(CFBAN_ABI);
TString8 cab = cfban.get(CFBAN_CAB);
if (atol(abi) <= 0 || atol(cab) <= 0)
{
const TRectype& cfven = cache().get(LF_CFVEN, key);
abi = cfven.get(CFV_CODABIPR);
cab = cfven.get(CFV_CODCABPR);
}
if (atol(abi) > 0 && atol(cab) > 0)
{
doc.set(DOC_CODABIA, abi);
doc.set(DOC_CODCABA, cab);
}
else
{
TString msg; msg << "Il cliente " << codcli << " è privo di ABI/CAB";
_log->log(2, msg);
_errors_logged = true;
}
doc.set_paragraph(format("%d,%d",LF_RIGHEDOC, 1)); doc.set_paragraph(format("%d,%d",LF_RIGHEDOC, 1));
doc.set(RDOC_CHECKED, "X"); doc.set(RDOC_CHECKED, "X");
doc.set(RDOC_TIPORIGA, _rigadesc); doc.set(RDOC_TIPORIGA, _rigadesc);
@ -322,7 +353,7 @@ void TPaghe2Doc::main_loop()
delete docum; delete docum;
docum = NULL; docum = NULL;
} }
if (error) // cancello il file perch'e la transazione non e' andata bene if (error) // cancello il file perché la transazione non è andata bene
{ {
TFilename pgfile; pgfile.tempdir(); TFilename pgfile; pgfile.tempdir();
pgfile.add(format("pg000%03d.ini",ntransac)); pgfile.add(format("pg000%03d.ini",ntransac));
@ -341,16 +372,24 @@ void TPaghe2Doc::main_loop()
nriga = 1; nriga = 1;
// calcolo se cliente esente // calcolo se cliente esente
const long codcli = paghe.get("CLAZI").as_int(); const long codcli = paghe.get("CLAZI").as_int();
TString8 k; k.format("C|%ld", codcli);
const TRectype& cfven = cache().get(LF_CFVEN, k);
if (cfven.empty())
{
TString msg; msg << "Non esiste il cliente " << codcli;
_log->log(2, msg);
_errors_logged = true;
}
const TCli_for c('C', codcli); const TCli_for c('C', codcli);
const TCodiceIVA codes(c.vendite().get(CFV_ASSFIS)); const TCodiceIVA codes(c.vendite().get(CFV_ASSFIS));
const TString16 v_esenzione(c.vendite().get(CFV_VSPROT)); const TString16 v_esenzione(c.vendite().get(CFV_VSPROT));
const TString16 v_data_esenzione(c.vendite().get(CFV_VSDATAREG)); const TString16 v_data_esenzione(c.vendite().get(CFV_VSDATAREG));
const TString16 n_registrazione(c.vendite().get(CFV_NSPROT)); const TString16 n_registrazione(c.vendite().get(CFV_NSPROT));
const TString16 n_data_registrazione(c.vendite().get(CFV_NSDATAREG)); const TString16 n_data_registrazione(c.vendite().get(CFV_NSDATAREG));
esente = codes.tipo().not_empty() && v_esenzione.not_empty() && esente = codes.tipo().full() && v_esenzione.full() &&
v_data_esenzione.not_empty() && n_registrazione.not_empty() && v_data_esenzione.full() && n_registrazione.full() &&
n_data_registrazione.not_empty(); n_data_registrazione.full();
if (esente) if (esente)
codivaes = codes.codice(); codivaes = codes.codice();
else else
@ -360,11 +399,6 @@ void TPaghe2Doc::main_loop()
add_riga_doc(paghe, *docum, nriga, codivaes); add_riga_doc(paghe, *docum, nriga, codivaes);
} }
} }
if (docum != NULL)
{
delete docum;
docum = NULL;
}
if (error) // cancello il file perché la transazione non e' andata bene if (error) // cancello il file perché la transazione non e' andata bene
{ {
TFilename pgfile; pgfile.tempdir(); TFilename pgfile; pgfile.tempdir();
@ -372,18 +406,17 @@ void TPaghe2Doc::main_loop()
if (pgfile.exist()) if (pgfile.exist())
remove_file(pgfile); remove_file(pgfile);
} }
TReport_book book; _log->preview();
book.add(*_log); delete _log;
book.preview(); _log = NULL;
bool save = true; bool save = true;
if (_errors_logged) if (_errors_logged)
{ save = noyes_box(FR("Sono stati riscontrati uno o piu' errori:\n"
save = yesno_box(TR("Sono stati riscontrati uno o piu' errori:\n" "Si desidera creare %ld documenti ugualmente?"), ntransac);
"Si desidera creare i documenti ugualmente?")); else
} save = yesno_box(FR("Si desidera procedere con la generazione di %ld documenti?"), ntransac);
delete _log;
_log = NULL;
if (save) if (save)
{ {
TString applicat; TString applicat;

39
ps/ps0430400.cpp
View File

@ -97,7 +97,7 @@ bool TImport_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
class TImport_app : public TSkeleton_application class TImport_app : public TSkeleton_application
{ {
protected: protected:
virtual const char* extra_modules() const { return "ca|ve"; } virtual const char* extra_modules() const { return "cm|ve"; }
virtual void main_loop(); virtual void main_loop();
public: public:
@ -270,7 +270,10 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
curr.put(CLI_RAGSOC, ragsoc.get()); curr.put(CLI_RAGSOC, ragsoc.get());
curr.put(CLI_REFERENTE, curr.get(CLI_RAGSOC)); curr.put(CLI_REFERENTE, curr.get(CLI_RAGSOC));
curr.put(CLI_INDCF, cli.get(8).as_string()); const TString& indir = cli.get(8).as_string();
curr.put(CLI_INDCF, indir);
if (isdigit(indir.right(1)[0]))
curr.zero(CLI_CIVCF);
const TString80 loc = cli.get(10).as_string(); const TString80 loc = cli.get(10).as_string();
curr.put(CLI_LOCCF, loc); curr.put(CLI_LOCCF, loc);
@ -302,6 +305,7 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
const TString8 abi = cli.get(17).as_string(); const TString8 abi = cli.get(17).as_string();
const TString8 cab = cli.get(18).as_string(); const TString8 cab = cli.get(18).as_string();
const TString80 numcc = cli.get(23).as_string();
if (abi.len() == 5 && cab.len() == 5) if (abi.len() == 5 && cab.len() == 5)
{ {
TToken_string key; TToken_string key;
@ -312,7 +316,7 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
TRectype& rec = nsban.row(1, true); TRectype& rec = nsban.row(1, true);
rec.put(CFBAN_ABI, abi); rec.put(CFBAN_ABI, abi);
rec.put(CFBAN_CAB, cab); rec.put(CFBAN_CAB, cab);
rec.put(CFBAN_NUMCC, cli.get(23).as_string()); rec.put(CFBAN_NUMCC, numcc);
key.cut(0) << abi << cab; key.cut(0) << abi << cab;
const TString& iban = cache().get("BNP", key, "S3"); const TString& iban = cache().get("BNP", key, "S3");
@ -325,6 +329,11 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
str.cut(0) << TR("Impossibile aggiornare la banca di ") << ragsoc << TR(" alla riga ") << (cli.current_row()+1); str.cut(0) << TR("Impossibile aggiornare la banca di ") << ragsoc << TR(" alla riga ") << (cli.current_row()+1);
log.log(1, str); log.log(1, str);
} }
// Copialo anche sul cliente per tradizione
curr.put(CLI_CODABI, abi);
curr.put(CLI_CODCAB, cab);
curr.put(CLI_NUMCC, numcc);
} }
curr.put(CLI_CODPAG, cli.get(20).as_string()); curr.put(CLI_CODPAG, cli.get(20).as_string());
@ -386,9 +395,9 @@ const TString& TImport_app::get_periodo(const TCBA_recset& fat) const
TString80 periodo; TString80 periodo;
fat.get(10).as_string(periodo); fat.get(10).as_string(periodo);
if (periodo[0] >= '0' && periodo[0] <= '9') if (periodo[0] >= '0' && periodo[0] <= '9' && periodo.len() > 4)
{ {
const int mese = atoi(periodo.left(6 - periodo.len())); const int mese = atoi(periodo.left(periodo.len()-4));
if (mese >= 1 && mese < 12) if (mese >= 1 && mese < 12)
{ {
int anno = atoi(periodo.right(4)); int anno = atoi(periodo.right(4));
@ -421,7 +430,7 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
long codcf = 0; long codcf = 0;
TString4 codpag; TString4 codpag;
TString periodo; TString periodo;
TToken_string ospiti(80, '@'); TToken_string ospiti(256, '@');
TProgind pi(fat.items(), str); TProgind pi(fat.items(), str);
for (bool ok = fat.move_first(); ok && done; ok = fat.move_next()) for (bool ok = fat.move_first(); ok && done; ok = fat.move_next())
@ -430,9 +439,9 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
if (!done) if (!done)
break; break;
const TString4 tipo = fat.get(8).as_string(); const char tipo = fat.get(8).as_string()[0];
if (tipo == "T") if (tipo == 'T')
{ {
TString80 cofi_paiv = fat.get(14).as_string(); TString80 cofi_paiv = fat.get(14).as_string();
cofi_paiv.trim(); cofi_paiv.upper(); cofi_paiv.trim(); cofi_paiv.upper();
@ -454,7 +463,7 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
continue; continue;
} }
if (tipo != "N" || codcf <= 0) if (tipo != 'N' || codcf <= 0)
continue; // Considera solo le righe articolo di clienti validi continue; // Considera solo le righe articolo di clienti validi
const TDate datadoc = fat.get_date(5); const TDate datadoc = fat.get_date(5);
@ -546,8 +555,16 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
{ {
TParagraph_string p(desc, 50); TParagraph_string p(desc, 50);
rdoc.put(RDOC_DESCR, p.get()); rdoc.put(RDOC_DESCR, p.get());
rdoc.put(RDOC_DESCLUNGA, "X"); const int sep = p.find(p.separator());
rdoc.put(RDOC_DESCEST, p.get()); if (sep > 0)
{
rdoc.put(RDOC_DESCLUNGA, "X");
TString tmp = p.mid(sep+1);
tmp.replace(p.separator(), ' ');
tmp.strip_double_spaces();
tmp.insert("\n");
rdoc.put(RDOC_DESCEST, tmp);
}
} }
else else
rdoc.put(RDOC_DESCR, desc); rdoc.put(RDOC_DESCR, desc);

266
ps/ps0430500.cpp
View File

@ -1,13 +1,19 @@
#include <automask.h> #include <automask.h>
#include <applicat.h> #include <applicat.h>
#include <progind.h> #include <progind.h>
#include <recset.h> #include <reputils.h>
#include "../cg/cg2101.h" #include "../cg/cg2101.h"
#include "../cg/cglib01.h" #include "../cg/cglib02.h"
#include "../mg/mglib.h" #include "../mg/mglib.h"
#include "ps0430500a.h" #include "ps0430500a.h"
#include "../ca/calib01.h"
#include "../ca/commesse.h"
#include "../ca/movana.h"
#include "../ca/rmovana.h"
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TRimfin_mask // TRimfin_mask
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -32,11 +38,16 @@ bool TRimfin_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
class TRimfin_app : public TSkeleton_application class TRimfin_app : public TSkeleton_application
{ {
private:
virtual const char* extra_modules() const { return "cg|cm|mg"; }
protected: protected:
virtual const char* extra_modules() const { return "ca"; } void add_rmov(const TImporto& importo, const TString& codmag, const TCausale& caus, TMovimentoPN& mov) const;
virtual void main_loop(); void create_mov(const TString& codcaus, const TDate& datareg, TString_array& saldi, TLog_report& log) const;
void create_movana(const TRectype& movhead, TString_array& a, TLog_report& log) const;
public: public:
virtual void main_loop();
}; };
static bool scan_mag(const TRelation& rel, void* jolly) static bool scan_mag(const TRelation& rel, void* jolly)
@ -47,6 +58,10 @@ static bool scan_mag(const TRelation& rel, void* jolly)
if (qta.sign() <= 0) if (qta.sign() <= 0)
return true; return true;
TString16 key = rec.get("CODTAB").left(3);
if (cache().get("MAG", key).empty())
return true; // Ignora magazzini inesistenti
const TDate data = rec.get("D0"); const TDate data = rec.get("D0");
const TString& codart = rec.get("CODTAB").mid(5, 20); const TString& codart = rec.get("CODTAB").mid(5, 20);
const TArticolo_giacenza& art = cached_article_balances(codart); const TArticolo_giacenza& art = cached_article_balances(codart);
@ -55,14 +70,8 @@ static bool scan_mag(const TRelation& rel, void* jolly)
return true; return true;
TBill bill; TBill bill;
bill.set(rec.get_int("I3"), rec.get_int("I4"), rec.get_long("I5")); bill.set(rec.get_int("I0"), rec.get_int("I1"), rec.get_long("I2"));
#ifdef DBG key << '|' << bill.string();
if (!bill.ok())
bill.set(rec.get_int("I0"), rec.get_int("I1"), rec.get_long("I2"));
#endif
TString16 key;
key << rec.get("CODTAB").left(3) << '|' << bill.string(0x10);
TAssoc_array& saldi = *(TAssoc_array*)jolly; TAssoc_array& saldi = *(TAssoc_array*)jolly;
real* imp = (real*)saldi.objptr(key); real* imp = (real*)saldi.objptr(key);
@ -76,43 +85,238 @@ static bool scan_mag(const TRelation& rel, void* jolly)
return true; return true;
} }
void TRimfin_app::add_rmov(const TImporto& importo, const TString& codmag, const TCausale& caus, TMovimentoPN& mov) const
{
if (!importo.is_zero() && codmag.full())
{
TRectype& rmv = mov.cg(mov.cg_items());
rmv.put(RMV_SEZIONE, importo.sezione());
rmv.put(RMV_IMPORTO, importo.valore());
rmv.put(RMV_DESCR, cache().get("MAG", codmag, "S0"));
TString80 cms = codmag; cms.right_just(20, '0');
const TString& conto = cache().get(LF_COMMESSE, cms, COMMESSE_CODCONTO);
if (conto.full())
{
rmv.put(RMV_GRUPPO, conto.mid(0, 3));
rmv.put(RMV_CONTO, conto.mid(3, 3));
rmv.put(RMV_SOTTOCONTO, conto.mid(6, 6));
}
else
{
TBill b; caus.bill(2, b);
b.put(rmv);
}
}
}
void TRimfin_app::create_mov(const TString& codcaus, const TDate& datareg, TString_array& a, TLog_report& log) const
{
const TCausale caus(codcaus);
TEsercizi_contabili esercizi;
TMovimentoPN mov;
TRectype& head = mov.curr();
head.put(MOV_DATAREG, datareg);
head.put(MOV_DATACOMP, datareg);
head.put(MOV_CODCAUS, codcaus);
head.put(MOV_DESCR, caus.descrizione());
head.put(MOV_ANNOIVA, datareg.year());
head.put(MOV_ANNOES, esercizi.date2esc(datareg));
TString4 curmag;
TImporto tot;
TBill bill; caus.bill(1, bill);
TString msg;
if (bill.conto() <= 0)
{
msg.format("Non esiste il conto sulla prima riga della causale %s", (const char*)codcaus);
log.log(2, msg);
return;
}
FOR_EACH_ARRAY_ROW(a, i, r)
{
const TString4 codmag = r->get(0);
if (codmag != curmag)
{
tot.normalize();
add_rmov(tot, curmag, caus, mov);
curmag = codmag;
tot.reset();
}
const long sottoc = r->get_long(3);
bill.set(bill.gruppo(), bill.conto(), sottoc);
if (!bill.find())
{
msg.format("Non esiste il conto %d.%d.%ld", bill.gruppo(), bill.conto(), bill.sottoconto());
log.log(1, msg);
continue;
}
TRectype& rmv = mov.cg(mov.cg_items());
bill.put(rmv);
TImporto importo(caus.sezione(1), real(r->get(4)));
importo.normalize();
rmv.put(RMV_SEZIONE, importo.sezione());
rmv.put(RMV_IMPORTO, importo.valore());
tot -= importo;
}
tot.normalize();
add_rmov(tot, curmag, caus, mov);
if (mov.cg_items() >= 2)
{
const int err = mov.write();
if (err == NOERR)
{
TSaldo_agg saldo;
saldo.set_anno_es(head.get_int(MOV_ANNOES));
saldo.set_data_ulmov(datareg);
saldo.set_movimentato(true);
saldo.set_movprovv(false);
saldo.set_tipo_saldo(normale);
for (int i = 0; i < mov.cg_items(); i++)
saldo.aggiorna(mov.cg(i));
saldo.registra();
mov.last();
msg.format(FR("E' stato creato il movimento contabile %ld"), head.get_long(MOV_NUMREG));
log.log(0, msg);
}
else
{
msg.format(FR("Errore %d in creazione del movimento contabile"), err);
log.log(2, msg);
}
}
create_movana(head, a, log);
}
void TRimfin_app::create_movana(const TRectype& movhead, TString_array& a, TLog_report& log) const
{
const TString4 codcaus = movhead.get(MOV_CODCAUS);
const TCausale caus(codcaus);
TAnal_mov mov;
mov.put(MOVANA_DATAREG, movhead.get(MOV_DATAREG));
mov.put(MOVANA_DATACOMP, movhead.get(MOV_DATACOMP));
mov.put(MOVANA_DATADOC, movhead.get(MOV_DATADOC));
mov.put(MOVANA_CODCAUS, codcaus);
mov.put(MOVANA_ANNOES, movhead.get(MOV_ANNOES));
mov.put(MOVANA_NUMREGCG, movhead.get(MOV_NUMREG));
mov.put(MOVANA_DESCR, movhead.get(MOV_DESCR));
TImporto totdoc;
TRectype rmv(LF_RMOVANA);
TString80 codcms;
TString msg;
TBill bill; caus.bill(1, bill);
if (bill.conto() <= 0)
{
msg.format("Non esiste il conto sulla prima riga della causale %s", (const char*)codcaus);
log.log(2, msg);
return;
}
FOR_EACH_ARRAY_ROW(a, i, r)
{
const TString4 codmag = r->get(0);
codcms = codmag; codcms.right_just(20, '0');
TImporto importo(caus.sezione(1), real(r->get(4)));
importo.normalize();
rmv.put(RMOVANA_NUMRIG, i+1);
rmv.put(RMOVANA_SEZIONE, importo.sezione());
rmv.put(RMOVANA_IMPORTO, importo.valore());
rmv.put(RMOVANA_CODCMS, codcms);
rmv.put(RMOVANA_DESCR, cache().get(LF_COMMESSE, codcms, COMMESSE_DESCRIZ));
totdoc += importo;
const long sottoc = r->get_long(3);
bill.set(bill.gruppo(), bill.conto(), sottoc);
rmv.put(RMOVANA_CODCONTO, bill.string(0x8));
mov.body(LF_RMOVANA).add_row(rmv);
}
totdoc.normalize();
mov.put(MOVANA_SEZIONE, totdoc.sezione());
mov.put(MOVANA_TOTDOC, totdoc.valore());
TLocalisamfile movana(LF_MOVANA);
const int err = mov.write(movana);
if (err == NOERR)
{
movana.last();
msg.format(FR("E' stato creato il movimento analitico %ld"), movana.get_long(MOVANA_NUMREG));
log.log(0, msg);
}
else
{
msg.format(FR("Errore %d in creazione del movimento analitico"), err);
log.log(2, msg);
}
}
void TRimfin_app::main_loop() void TRimfin_app::main_loop()
{ {
TRimfin_mask m; TRimfin_mask m;
while (m.run() == K_ENTER) while (m.run() == K_ENTER)
{ {
TString query; TString query;
query << "USE &MGMAG"; // SELECT I5>0" query << "USE &MGMAG SELECT I2>0";
TISAM_recordset recset(query); TISAM_recordset recset(query);
TAssoc_array saldi; TAssoc_array saldi;
recset.cursor()->scan(scan_mag, &saldi, title()); recset.cursor()->scan(scan_mag, &saldi, title());
if (!saldi.empty())
TString_array a;
FOR_EACH_ASSOC_OBJECT(saldi, h, k, o)
{ {
const TFixed_string key(k); TString_array a;
TToken_string* r = new TToken_string; FOR_EACH_ASSOC_OBJECT(saldi, h, k, o)
*r = key.left(3); {
r->add(key.mid(3)); TToken_string* r = new TToken_string(k);
r->add(((real*)o)->string(0, 2)); r->add(((real*)o)->string(0, 2));
} a.add(r);
a.sort(); }
a.sort();
TMovimentoPN mov; TLog_report log; log.kill_duplicates();
mov.curr().put(MOV_DATAREG, m.get(F_DATAREG));
mov.curr().put(MOV_CODCAUS, m.get(F_CODCAUS)); log.log(0, "Rimanenze finali");
TString4 curmag; const TDate data_fin = m.get(F_DATAREG_FIN);
real imp; const TString& caus_fin = m.get(F_CODCAUS_FIN);
FOR_EACH_ARRAY_ROW(a, i, r) create_mov(caus_fin, data_fin, a, log);
{
log.log(0, "");
log.log(0, "Rimanenze iniziali");
const TDate data_ini = m.get(F_DATAREG_INI);
const TString& caus_ini = m.get(F_CODCAUS_INI);
create_mov(caus_ini, data_ini, a, log);
log.preview();
} }
else
warning_box(TR("Non esistono giacenze di articoli con conto acquisti"));
} }
} }
int ps0430500(int argc, char* argv[]) int ps0430500(int argc, char* argv[])
{ {
TRimfin_app a; TRimfin_app a;
a.run(argc, argv, TR("Generazione rimanenze finali")); a.run(argc, argv, TR("Generazione rimanenze"));
return 0; return 0;
} }

10
ps/ps0430500a.h
View File

@ -1,3 +1,7 @@
#define F_DATAREG 101 #define F_DATAREG_FIN 101
#define F_CODCAUS 102 #define F_CODCAUS_FIN 102
#define F_DESCAUS 103 #define F_DESCAUS_FIN 103
#define F_DATAREG_INI 111
#define F_CODCAUS_INI 112
#define F_DESCAUS_INI 113

102
ps/ps0430500a.uml
View File

@ -1,38 +1,79 @@
#include "ps0430500a.h" #include "ps0430500a.h"
PAGE "Generazione rimanenze finali" -1 -1 63 5 PAGE "Generazione rimanenze finali" -1 -1 60 9
DATE F_DATAREG GROUPBOX DLG_NULL 56 4
BEGIN BEGIN
PROMPT 1 1 "Data " PROMPT 1 1 "@bRimanenze finali"
END
STRING F_CODCAUS_FIN 3
BEGIN
PROMPT 2 2 "Causale "
USE LF_CAUSALI SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
INPUT CODCAUS F_CODCAUS_FIN
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCAUS_FIN CODCAUS
OUTPUT F_DESCAUS_FIN DESCR
ADD RUN cg0 -4
CHECKTYPE REQUIRED
END
STRING F_DESCAUS_FIN 50
BEGIN
PROMPT 2 3 ""
USE LF_CAUSALI KEY 2 SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
INPUT CODCAUS F_CODCAUS_FIN
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS_FIN
ADD RUN cg0 -4
CHECKTYPE REQUIRED
END
DATE F_DATAREG_FIN
BEGIN
PROMPT 37 2 "Data "
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 56 4
BEGIN
PROMPT 1 5 "@bRimanenze iniziali"
END
STRING F_CODCAUS_INI 3
BEGIN
PROMPT 2 6 "Causale "
COPY USE F_CODCAUS_FIN
INPUT CODCAUS F_CODCAUS_INI
COPY DISPLAY F_CODCAUS_FIN
OUTPUT F_CODCAUS_INI CODCAUS
OUTPUT F_DESCAUS_INI DESCR
ADD RUN cg0 -4
CHECKTYPE REQUIRED
END
STRING F_DESCAUS_INI 50
BEGIN
PROMPT 2 7 ""
COPY USE F_DESCAUS_FIN
INPUT CODCAUS F_CODCAUS_INI
COPY DISPLAY F_DESCAUS_FIN
COPY OUTPUT F_CODCAUS_INI
ADD RUN cg0 -4
CHECKTYPE REQUIRED
END
DATE F_DATAREG_INI
BEGIN
PROMPT 37 6 "Data "
FLAGS "A" FLAGS "A"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_CODCAUS 3
BEGIN
PROMPT 1 2 "Causale "
USE LF_CAUSALI SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCAUS DESCR
ADD RUN cg0 -4
CHECKTYPE REQUIRED
END
STRING F_DESCAUS 50
BEGIN
PROMPT 9 3 ""
USE LF_CAUSALI KEY 2 SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
INPUT CODCAUS F_CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS
ADD RUN cg0 -4
CHECKTYPE REQUIRED
END
STRING DLG_PROFILE 256 50 STRING DLG_PROFILE 256 50
BEGIN BEGIN
@ -44,7 +85,16 @@ END
ENDPAGE ENDPAGE
TOOLBAR "" 0 0 0 2 TOOLBAR "" 0 0 0 2
BUTTON DLG_SAVEREC 2 2
BEGIN
PROMPT 1 1 "Ricalcola"
PICTURE TOOL_SAVEREC
MESSAGE RUN,mg1,-2
END
#include <elabar.h> #include <elabar.h>
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
ps/ps0925.cpp
View File

@ -9,7 +9,7 @@ int main(int argc, char** argv)
{ {
case 0: case 0:
default: default:
ps0925100(argc, argv); break; //Stampa ordini di produzione DBService ps0925100(argc, argv); break; //Stampa estratti conto COSEA
} }
return 0; return 0;
} }