Patch level : 10.0 patch 767
Files correlati : or1.exe Ricompilazione Demo : [ ] Commento : modifica per cigno: generazione doc. di carico Dalla versione 3.2 git-svn-id: svn://10.65.10.50/trunk@20593 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
39b4c1f647
commit
a0d9292683
344
or/or1400.cpp
344
or/or1400.cpp
@ -101,6 +101,7 @@ private:
|
||||
void load_user_defs();
|
||||
void update_sheet();
|
||||
void update_orders();
|
||||
void reconstruction(const TDocumento& doc2delete);
|
||||
|
||||
protected:
|
||||
bool on_sheet_event(TOperable_field& o, TField_event e, long jolly);
|
||||
@ -123,9 +124,11 @@ class TCreazione_ordini : public TSkeleton_application
|
||||
|
||||
protected:
|
||||
TString_array _userfld;
|
||||
void generate_orders();
|
||||
void aggiorna_stato_doc_orig(const TRectype& rdoc);
|
||||
|
||||
public:
|
||||
void generate_orders();
|
||||
void generate_carics();
|
||||
virtual bool create();
|
||||
virtual void main_loop();
|
||||
virtual bool destroy();
|
||||
@ -153,7 +156,7 @@ void TGenera_ordini_mask::update_sheet()
|
||||
const int pos = query.find("KEY ");
|
||||
TArticolo_giacenza art;
|
||||
TString8 codmag(get(F_MAG));
|
||||
const TString8 codnum(get(F_CODNUM));
|
||||
const TString4 codnum(get(F_CODNUM));
|
||||
const bool check_expr = codnum == _disable_num;
|
||||
int anno = get_int(F_ANNO);
|
||||
if (anno <= 0)
|
||||
@ -324,7 +327,8 @@ void TGenera_ordini_mask::update_orders()
|
||||
TString query;
|
||||
query << "USE RDOC\n";
|
||||
query << "SELECT (CODARTMAG!=\"\")&&(CODCMS==#CODCMS)"
|
||||
<< "&&(BETWEEN(33.STATO,#DASTATO,#ASTATO))\n";
|
||||
<< "&&(BETWEEN(33.STATO,#DASTATO,#ASTATO))"
|
||||
<< "&&(RIGAEVASA=\"\")\n";
|
||||
query << "JOIN ANAMAG INTO CODART==CODART\n";
|
||||
query << "JOIN DOC INTO PROVV==PROVV ANNO==ANNO CODNUM==CODNUM NDOC==NDOC\n";
|
||||
query << "JOIN CLIFO TO DOC INTO TIPOCF=\"F\" CODCF==CODCF\n";
|
||||
@ -343,6 +347,8 @@ void TGenera_ordini_mask::update_orders()
|
||||
|
||||
TMask& m = sh.sheet_mask();
|
||||
TRelation& rel = *orders.cursor()->relation();
|
||||
|
||||
const int status_pos = sh.cid2index(S_STATODOC);
|
||||
for (bool ok = orders.move_first(); ok; ok = orders.move_next())
|
||||
{
|
||||
TToken_string& row = sh.row(-1);
|
||||
@ -350,15 +356,19 @@ void TGenera_ordini_mask::update_orders()
|
||||
{
|
||||
const TFieldref* fr = f->field();
|
||||
if (fr != NULL)
|
||||
row.add(fr->read(rel));
|
||||
{
|
||||
const int j = sh.cid2index(f->dlg());
|
||||
row.add(fr->read(rel), j);
|
||||
}
|
||||
}
|
||||
const int nrow = sh.items()-1;
|
||||
switch (row.get_int(2))
|
||||
switch (row.get_int(status_pos))
|
||||
{
|
||||
case 1: sh.set_back_and_fore_color(NORMAL_BACK_COLOR, NORMAL_COLOR, nrow); break;
|
||||
case 2: sh.set_back_and_fore_color(REQUIRED_BACK_COLOR, NORMAL_COLOR, nrow); break;
|
||||
default: sh.set_back_and_fore_color(DISABLED_BACK_COLOR, DISABLED_COLOR, nrow); break;
|
||||
}
|
||||
sh.check_row(nrow);
|
||||
}
|
||||
sh.force_update();
|
||||
}
|
||||
@ -401,6 +411,43 @@ bool TGenera_ordini_mask::on_sheet_event(TOperable_field& o, TField_event e, lon
|
||||
return true;
|
||||
}
|
||||
|
||||
void TGenera_ordini_mask::reconstruction(const TDocumento& doc2delete)
|
||||
{
|
||||
const char* const defpar = "or";
|
||||
TConfig c(CONFIG_USER, defpar);
|
||||
const char statoini = c.get_char("OR14_STATOINI");
|
||||
|
||||
const int rows = doc2delete.rows();
|
||||
for (int i=1; i<=rows; i++)
|
||||
{
|
||||
const TRiga_documento& r = doc2delete[i];
|
||||
const TRectype* original_doc = r.find_original_doc();
|
||||
if (original_doc != NULL)
|
||||
{
|
||||
TDocumento d(*original_doc);
|
||||
const long nriga = r.get_long(RDOC_DAIDRIGA);
|
||||
if (nriga != 0)
|
||||
{
|
||||
TRiga_documento& original_row = d[nriga];
|
||||
const real qta = r.quantita();
|
||||
const TString& name = original_row.field_qtaevasa();
|
||||
real qtaevasa = original_row.get_real(name) - qta;
|
||||
if (qtaevasa < ZERO)
|
||||
qtaevasa = ZERO;
|
||||
original_row.put(name, qtaevasa);
|
||||
if (qtaevasa < original_row.quantita())
|
||||
original_row.zero(RDOC_RIGAEVASA);
|
||||
else
|
||||
original_row.put(RDOC_RIGAEVASA, "X");
|
||||
if (statoini != ' ')
|
||||
d.stato(statoini);
|
||||
d.rewrite();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
bool TGenera_ordini_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
bool ok = true;
|
||||
@ -424,6 +471,14 @@ bool TGenera_ordini_mask::on_field_event(TOperable_field& o, TField_event e, lon
|
||||
_filter_changed = true;
|
||||
}
|
||||
break;
|
||||
case F_TIPODOC:
|
||||
if (e == fe_init || e == fe_modify)
|
||||
{
|
||||
const TTipo_documento tipodoc(o.get());
|
||||
const bool is_ordine = tipodoc.is_ordine();
|
||||
enable(DLG_ELABORA, is_ordine);
|
||||
}
|
||||
break;
|
||||
case F_ANNO:
|
||||
if (e == fe_init && o.empty())
|
||||
{
|
||||
@ -523,6 +578,7 @@ bool TGenera_ordini_mask::on_field_event(TOperable_field& o, TField_event e, lon
|
||||
for (*c = 0; c->pos() < items; ++(*c)) if (sht.checked(c->pos()))
|
||||
{
|
||||
TDocumento doc(c->curr());
|
||||
reconstruction(doc); // funzione che ricostruisce la situazione precedente al documento
|
||||
doc.remove();
|
||||
}
|
||||
update_sheet();
|
||||
@ -531,6 +587,24 @@ bool TGenera_ordini_mask::on_field_event(TOperable_field& o, TField_event e, lon
|
||||
ok = false; // Non uscire
|
||||
}
|
||||
break;
|
||||
case DLG_OK:
|
||||
if (e == fe_button && jolly == 0)
|
||||
{
|
||||
capp().generate_orders();
|
||||
update_orders();
|
||||
update_sheet();
|
||||
ok = false;
|
||||
}
|
||||
break;
|
||||
case DLG_ELABORA:
|
||||
if (e == fe_button && jolly == 0)
|
||||
{
|
||||
capp().generate_carics();
|
||||
update_orders();
|
||||
update_sheet();
|
||||
ok = false;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
if (o.is_kind_of(CLASS_SHEET_FIELD))
|
||||
ok = on_sheet_event(o, e, jolly);
|
||||
@ -600,6 +674,7 @@ TGenera_ordini_mask::TGenera_ordini_mask()
|
||||
_doc_filter = c.get("OR14_FILTER");
|
||||
if (_doc_filter.empty() && !field(F_CDCT).empty())
|
||||
_doc_filter = "CODCMS=#CODCMS"; // Utile al Cigno
|
||||
|
||||
_days_interval = c.get_int("OR14_DAYS");
|
||||
TSheet_field& sh = sfield(F_ARTICLES);
|
||||
TMask& sh_mask = sh.sheet_mask();
|
||||
@ -685,6 +760,259 @@ void TCreazione_ordini::print_doc(const TRectype & doc)
|
||||
interattivo.run();
|
||||
}
|
||||
|
||||
void TCreazione_ordini::aggiorna_stato_doc_orig(const TRectype& rdoc)
|
||||
{
|
||||
const char provv = rdoc.get_char(RDOC_PROVV);
|
||||
const int anno = rdoc.get_int(RDOC_ANNO);
|
||||
const TString8 codnum = rdoc.get(RDOC_CODNUM);
|
||||
const long ndoc = rdoc.get_long(RDOC_NDOC);
|
||||
TDocumento doc_orig(provv, anno, codnum, ndoc);
|
||||
if (doc_orig.is_evaso())
|
||||
{
|
||||
const char* const defpar = "or";
|
||||
TConfig c(CONFIG_USER, defpar);
|
||||
const char statoevaso = c.get_char("OR14_STATOEVASO");
|
||||
if (statoevaso != ' ')
|
||||
{
|
||||
doc_orig.stato(statoevaso);
|
||||
doc_orig.rewrite();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void TCreazione_ordini::generate_carics()
|
||||
{
|
||||
TGenera_ordini_mask& mask = *_mask;
|
||||
TSheet_field& sf = mask.sfield(F_ORDERS);
|
||||
|
||||
long minforn = 999999L;
|
||||
long maxforn = 0L;
|
||||
TAssoc_array orders;
|
||||
|
||||
if (sf.items() > 0)
|
||||
{
|
||||
const TDate datadoc = mask.get_date(F_DATADOCCAR);
|
||||
|
||||
const char* const defpar = "or";
|
||||
TConfig c(CONFIG_USER, defpar);
|
||||
const TString& codnum = c.get("OR14_NUMCAR");
|
||||
const TString& tipodoc = c.get("OR14_TIPCAR");
|
||||
|
||||
const TTipo_documento tipo(tipodoc);
|
||||
|
||||
//const bool ultimo_prezzo = mask.get(F_PREZZO) == "U";
|
||||
const TString& commessat = mask.get(F_CDCT);
|
||||
const TString& faset = mask.get(F_FSCT);
|
||||
|
||||
//TString8 codmag(mask.get(F_MAG));
|
||||
//codmag.right_just(3);
|
||||
//codmag << mask.get(F_DEP);
|
||||
|
||||
//TString8 codmagc(mask.get(F_MAGC));
|
||||
//codmagc.right_just(3);
|
||||
//codmagc << mask.get(F_DEPC);
|
||||
|
||||
TLocalisamfile righedoc(LF_RIGHEDOC);
|
||||
|
||||
TProgind pi(sf.items(), TR("Generazione documenti di carico"), true, true);
|
||||
FOR_EACH_SHEET_ROW(sf, n, row)
|
||||
{
|
||||
if (!pi.setstatus(n))
|
||||
break;
|
||||
if (row->get_char(sf.cid2index(S_DAEVADERE) == 'X'))
|
||||
{
|
||||
const real qta = row->get(sf.cid2index(S_QTADAEVADERE));
|
||||
if (!qta.is_zero())
|
||||
{
|
||||
const TString8 codforn(row->get(sf.cid2index(S_FORNITORE)));
|
||||
const long cod = atol(codforn);
|
||||
TString8 key; key.format("F|%ld", cod);
|
||||
const TRectype& forn = cache().get(LF_CLIFO, key);
|
||||
const TDate datacons(row->get(sf.cid2index(S_DATACONS)));
|
||||
const TString4 codval(forn.get(CLI_CODVAL));
|
||||
const TRectype& forven = cache().get(LF_CFVEN, key);
|
||||
const TString4 codiva(forven.get(CFV_ASSFIS));
|
||||
const TString commessa = row->get(sf.cid2index(S_CDC));
|
||||
const TString fase = row->get(sf.cid2index(S_FSC));
|
||||
|
||||
TDocumento* d = (TDocumento*)orders.objptr(codforn);
|
||||
if (d == NULL)
|
||||
{
|
||||
d = new TDocumento('D', datadoc.year(), codnum, 0L);
|
||||
d->put(DOC_TIPODOC, tipodoc);
|
||||
d->put(DOC_TIPOCF, "F");
|
||||
d->put(DOC_CODCF, codforn);
|
||||
d->put(DOC_DATADOC, datadoc);
|
||||
d->put(DOC_DATACONS, datacons);
|
||||
d->put(DOC_CODVAL, codval);
|
||||
d->put(DOC_CODLIN, forn.get(CLI_CODLIN));
|
||||
d->put(DOC_CODPAG, forn.get(CLI_CODPAG));
|
||||
d->put(DOC_CODABIA, forn.get(CLI_CODABI));
|
||||
d->put(DOC_CODCABA, forn.get(CLI_CODCAB));
|
||||
d->put(DOC_IBAN, forn.get(CLI_IBAN));
|
||||
d->put(DOC_CODABIP, forven.get(CFV_CODABIPR));
|
||||
d->put(DOC_CODCABP, forven.get(CFV_CODCABPR));
|
||||
d->put(DOC_RAGGR, forven.get(CFV_RAGGDOC));
|
||||
d->put(DOC_RAGGREFF, forven.get(CFV_RAGGEFF));
|
||||
d->put(DOC_CODINDSP, forven.get(CFV_CODINDSP));
|
||||
d->put(DOC_CODAG, forven.get(CFV_CODAG));
|
||||
d->put(DOC_ZONA, forven.get(CFV_CODZONA));
|
||||
d->put(DOC_CODSPMEZZO, forven.get(CFV_CODSPMEZZO));
|
||||
d->put(DOC_CODPORTO, forven.get(CFV_CODPORTO));
|
||||
d->put(DOC_CODNOTESP1, forven.get(CFV_CODNOTESP1));
|
||||
d->put(DOC_CODNOTESP2, forven.get(CFV_CODNOTESP2));
|
||||
d->put(DOC_CODNOTE, forven.get(CFV_CODNOTE));
|
||||
d->put(DOC_CODVETT1, forven.get(CFV_CODVETT1));
|
||||
d->put(DOC_CODVETT2, forven.get(CFV_CODVETT2));
|
||||
d->put(DOC_CODVETT3, forven.get(CFV_CODVETT3));
|
||||
d->put(DOC_PERCSPINC, forven.get(CFV_PERCSPINC));
|
||||
d->put(DOC_ADDBOLLI, forven.get(CFV_ADDBOLLI));
|
||||
d->put(DOC_CATVEN, forven.get(CFV_CATVEN));
|
||||
d->put(DOC_CODLIST, forven.get(CFV_CODLIST));
|
||||
d->put(DOC_CODCMS, commessat);
|
||||
// le note non dovrebbero servire
|
||||
//d->put(DOC_NOTE, mask.get(F_NOTE));
|
||||
|
||||
const TString& causmag = tipo.caus_mov();
|
||||
d->put(DOC_CAUSMAG, causmag);
|
||||
|
||||
orders.add(codforn, d);
|
||||
if (cod < minforn)
|
||||
minforn = cod;
|
||||
if (cod > maxforn)
|
||||
maxforn = cod;
|
||||
}
|
||||
|
||||
TRiga_documento& rdoc = d->new_row("01");
|
||||
|
||||
|
||||
/* guy si e' molto arrabbiato nel leggere queste righe di pseudo codice (attenzione, morde!)
|
||||
const TString codart(row->get(sf.cid2index(S_CODART)));
|
||||
|
||||
//rdoc.put(RDOC_CODMAG, codmag);
|
||||
//rdoc.put(RDOC_CODMAGC, codmagc);
|
||||
rdoc.put(RDOC_CODART, codart);
|
||||
rdoc.put(RDOC_CODARTMAG, codart);
|
||||
rdoc.put(RDOC_CHECKED, "X");
|
||||
rdoc.put(RDOC_DESCR, row->get(sf.cid2index(S_DESCART)));
|
||||
|
||||
//const TString descr_agg(row->get(sf.cid2index(S_DESCRAGG)));
|
||||
//if (descr_agg.full())
|
||||
//{
|
||||
// rdoc.put(RDOC_DESCLUNGA, "X");
|
||||
// rdoc.put(RDOC_DESCEST, descr_agg);
|
||||
//}
|
||||
|
||||
rdoc.put(RDOC_UMQTA, row->get(sf.cid2index(S_UM)));
|
||||
rdoc.put(RDOC_QTA, qta);
|
||||
rdoc.put(RDOC_DATACONS, datacons);
|
||||
|
||||
const TRectype& articolo = cache().get(LF_ANAMAG, codart);
|
||||
//TPrice prezzo;
|
||||
//if (ultimo_prezzo)
|
||||
// prezzo = articolo.get_real(ANAMAG_ULTCOS1);
|
||||
//else
|
||||
// prezzo = articolo.get_real(ANAMAG_COSTSTD);
|
||||
//prezzo.change_value(codval);
|
||||
//rdoc.put(RDOC_PREZZO, prezzo.get_num());
|
||||
if (codiva.full())
|
||||
rdoc.put(RDOC_CODIVA, codiva);
|
||||
else
|
||||
rdoc.put(RDOC_CODIVA, articolo.get(ANAMAG_CODIVA));
|
||||
rdoc.put(RDOC_CODCMS, commessa);
|
||||
rdoc.put(RDOC_FASCMS, fase);
|
||||
|
||||
for (int i = 0; i < 10 ; i++)
|
||||
if (_userfld.row(i).full())
|
||||
rdoc.put(_userfld.row(i), mask.get(F_USER1 + i));
|
||||
|
||||
rdoc.put(RDOC_CODAGG1, row->get(sf.cid2index(F_CODAGG1)));
|
||||
rdoc.put(RDOC_CODAGG2, row->get(sf.cid2index(F_CODAGG2)));
|
||||
*/
|
||||
const TDate dataord = row->get(sf.cid2index(S_DATADOC));
|
||||
const long ndoc = row->get_long(sf.cid2index(S_NUMDOC));
|
||||
const int nriga = row->get_int(sf.cid2index(S_NUMRIGA));
|
||||
TRectype& rigord = righedoc.curr();
|
||||
rigord.put(RDOC_PROVV, 'D');
|
||||
rigord.put(RDOC_ANNO, dataord.year());
|
||||
rigord.put(RDOC_CODNUM, mask.get(F_CODNUM));
|
||||
rigord.put(RDOC_NDOC, ndoc);
|
||||
rigord.put(RDOC_NRIGA, nriga);
|
||||
int err = righedoc.read(_isequal, _lock);
|
||||
if (err == NOERR)
|
||||
{
|
||||
d->copy_data(rdoc, rigord);
|
||||
rdoc.put(rdoc.field_qta(), qta);
|
||||
rigord.add(rdoc.field_qtaevasa(), qta);
|
||||
if (rigord.get_real(rdoc.field_qtaevasa()) >= rigord.get_real(rdoc.field_qta()))
|
||||
rigord.put(RDOC_RIGAEVASA, true);
|
||||
rdoc.put(RDOC_DACODNUM, rigord.get(RDOC_CODNUM));
|
||||
rdoc.put(RDOC_DAANNO, rigord.get(RDOC_ANNO));
|
||||
rdoc.put(RDOC_DAPROVV, rigord.get(RDOC_PROVV));
|
||||
rdoc.put(RDOC_DANDOC, rigord.get(RDOC_NDOC));
|
||||
rdoc.put(RDOC_DAIDRIGA, rigord.get(RDOC_NRIGA));
|
||||
err = righedoc.rewrite();
|
||||
if (err == NOERR)
|
||||
aggiorna_stato_doc_orig(rigord);
|
||||
|
||||
}
|
||||
if (err != NOERR)
|
||||
error_box(FR("Impossibile aggiornare la riga %d del doc. %ld"), nriga, ndoc);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (orders.items() > 0)
|
||||
{
|
||||
TProgind pi(orders.items(), TR("Registrazione documenti di carico"), true, true);
|
||||
TString cmdline;
|
||||
int cnt = 0;
|
||||
TString8 key;
|
||||
long mindoc = 0, maxdoc = 0;
|
||||
for (long cod = minforn; cod <= maxforn; cod++)
|
||||
{
|
||||
key.format("%ld", cod);
|
||||
TDocumento* d = (TDocumento*)orders.objptr(key);
|
||||
if (d != NULL)
|
||||
{
|
||||
if (!pi.addstatus(1))
|
||||
break;
|
||||
if (d->write() == NOERR)
|
||||
{
|
||||
if (cmdline.blank())
|
||||
{
|
||||
const TTipo_documento& tipo = d->tipo();
|
||||
TFilename rep(tipo.main_print_profile());
|
||||
|
||||
rep.ext("rep");
|
||||
|
||||
if (rep.custom_path()) // Esiste il nuovo report :-)
|
||||
cmdline = "ve1 -2";
|
||||
else // Esiste il vecchio form :-(
|
||||
cmdline = "ve1 -0";
|
||||
}
|
||||
cnt++;
|
||||
const long ndoc = d->get_long(DOC_NDOC);
|
||||
if (mindoc <= 0 || ndoc < mindoc)
|
||||
mindoc = ndoc;
|
||||
if (ndoc > maxdoc)
|
||||
maxdoc = ndoc;
|
||||
}
|
||||
}
|
||||
}
|
||||
if (yesno_box(TR("Sono stati generati %d documenti:\nSi desidera stamparli ora?"), cnt))
|
||||
{
|
||||
const TString& codnum = mask.get(F_CODNUM);
|
||||
const TDate datadoc(TODAY);
|
||||
const int anno = datadoc.year();
|
||||
cmdline << " " << codnum << ' ' << anno << " D " << mindoc << ' ' << maxdoc;
|
||||
TExternal_app prg(cmdline);
|
||||
prg.run(true, true, false);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void TCreazione_ordini::generate_orders()
|
||||
{
|
||||
TGenera_ordini_mask& mask = *_mask;
|
||||
@ -878,8 +1206,10 @@ void TCreazione_ordini::generate_orders()
|
||||
|
||||
void TCreazione_ordini::main_loop()
|
||||
{
|
||||
while (_mask->run() == K_ENTER)
|
||||
generate_orders();
|
||||
|
||||
KEY tasto = K_ENTER;
|
||||
while (tasto == K_ENTER)
|
||||
tasto = _mask->run();
|
||||
}
|
||||
|
||||
int or1400(int argc, char** argv)
|
||||
|
31
or/or1400a.h
31
or/or1400a.h
@ -34,6 +34,7 @@
|
||||
#define F_DASTATO 201
|
||||
#define F_ASTATO 202
|
||||
#define F_ANNO 203
|
||||
#define F_DATADOCCAR 204
|
||||
#define F_ORDERS 210
|
||||
|
||||
#define F_CODART 101
|
||||
@ -66,13 +67,23 @@
|
||||
|
||||
#define S_DATADOC 101
|
||||
#define S_NUMDOC 102
|
||||
#define S_STATODOC 103
|
||||
#define S_CODART 104
|
||||
#define S_DESCART 105
|
||||
#define S_UM 106
|
||||
#define S_QTA 107
|
||||
#define S_DATACONS 108
|
||||
#define S_FORNITORE 109
|
||||
#define S_RAGSOC 110
|
||||
#define S_CDC 111
|
||||
#define S_FSC 112
|
||||
#define S_NUMRIGA 103
|
||||
#define S_STATODOC 104
|
||||
#define S_CODART 105
|
||||
#define S_DESCART 106
|
||||
#define S_UM 107
|
||||
#define S_QTA 108
|
||||
#define S_QTAEVASA 109
|
||||
#define S_RESIDUO 110
|
||||
#define S_DAEVADERE 111
|
||||
#define S_QTADAEVADERE 112
|
||||
#define S_DATACONS 113
|
||||
#define S_FORNITORE 114
|
||||
#define S_RAGSOC 115
|
||||
#define S_CDC 116
|
||||
#define S_FSC 117
|
||||
#define S_DESCRAGG 118
|
||||
#define S_PPCONF 119
|
||||
#define S_TAGLIE 120
|
||||
|
||||
|
||||
|
124
or/or1400a.uml
124
or/or1400a.uml
@ -26,11 +26,23 @@ BEGIN
|
||||
PICTURE TOOL_DELREC
|
||||
END
|
||||
|
||||
BUTTON DLG_NULL 10 2
|
||||
BEGIN
|
||||
PROMPT -57 -11 "Stampa ~Inv."
|
||||
MESSAGE RUN,MG4,-1
|
||||
END
|
||||
|
||||
BUTTON DLG_ELABORA 10 2
|
||||
BEGIN
|
||||
PROMPT -67 -11 "~Carichi"
|
||||
MESSAGE K_ENTER
|
||||
END
|
||||
|
||||
#include <helpbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Ordini fornitori" 0 2 0 0
|
||||
PAGE "Gestione Documenti" 0 2 0 0
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
@ -104,23 +116,36 @@ BEGIN
|
||||
FIELD OR14_ANNO
|
||||
END
|
||||
|
||||
DATE F_DATADOCCAR
|
||||
BEGIN
|
||||
PROMPT 65 1 "Data doc. "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
SPREADSHEET F_ORDERS
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ordini"
|
||||
ITEM "Data\nOrdine@10"
|
||||
ITEM "Numero\nOrdine"
|
||||
ITEM "Stato\nOrdine"
|
||||
ITEM "Data\nOrdine@10"
|
||||
ITEM "Numero\nOrdine"
|
||||
ITEM "Riga\nOrdine"
|
||||
ITEM "Stato\nOrdine"
|
||||
ITEM "Codice\nArticolo@20"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "UM"
|
||||
ITEM "Quantità@15"
|
||||
ITEM "Qta evasa@15"
|
||||
ITEM "Residuo@15"
|
||||
ITEM "DaEvadere"
|
||||
ITEM "Qta da evadere@15"
|
||||
ITEM "Data di\nconsegna@10"
|
||||
ITEM "Fornitore"
|
||||
ITEM "Ragione sociale@50"
|
||||
ITEM "Commessa@20"
|
||||
ITEM "Fase@10"
|
||||
FLAGS "D"
|
||||
ITEM "Descrizione aggiuntiva@50"
|
||||
ITEM "Pezzi\nper conf."
|
||||
ITEM "Taglie@10"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
@ -514,7 +539,7 @@ END
|
||||
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 2 6 "Codice fornitore "
|
||||
PROMPT 2 6 "Codice fornitore "
|
||||
FIELD CODCF
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
@ -678,9 +703,9 @@ ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Ordini" -1 -1 68 16
|
||||
PAGE "Ordini" -1 -1 80 20
|
||||
|
||||
GROUPBOX DLG_NULL 66 3
|
||||
GROUPBOX DLG_NULL 80 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@bEstremi del documento"
|
||||
END
|
||||
@ -693,17 +718,23 @@ END
|
||||
|
||||
NUMBER S_NUMDOC 6
|
||||
BEGIN
|
||||
PROMPT 30 1 "Numero "
|
||||
PROMPT 25 1 "Numero "
|
||||
FIELD NDOC
|
||||
END
|
||||
|
||||
NUMBER S_NUMRIGA 4
|
||||
BEGIN
|
||||
PROMPT 43 1 "Riga "
|
||||
FIELD NRIGA
|
||||
END
|
||||
|
||||
STRING S_STATODOC 1
|
||||
BEGIN
|
||||
PROMPT 57 1 "Stato "
|
||||
FIELD 33.STATO
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 66 5
|
||||
GROUPBOX DLG_NULL 80 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bArticolo"
|
||||
END
|
||||
@ -730,54 +761,105 @@ END
|
||||
NUMBER S_QTA 13 5
|
||||
BEGIN
|
||||
PROMPT 18 6 ""
|
||||
FIELD QTA
|
||||
FIELD QTA
|
||||
END
|
||||
|
||||
NUMBER S_QTAEVASA 13 5
|
||||
BEGIN
|
||||
PROMPT 34 6 "Evasa "
|
||||
FIELD QTAEVASA
|
||||
FLAGS "D"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER S_RESIDUO 13 5
|
||||
BEGIN
|
||||
PROMPT 56 6 "Residuo "
|
||||
NUM_CALC #S_QTA-#S_QTAEVASA
|
||||
FLAGS "D"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN S_DAEVADERE
|
||||
BEGIN
|
||||
PROMPT 2 7 "Da evadere"
|
||||
MESSAGE TRUE ENABLE,S_QTADAEVADERE | COPY, S_RESIDUO
|
||||
MESSAGE FALSE CLEAR, S_QTADAEVADERE | DISABLE,S_QTADAEVADERE
|
||||
END
|
||||
|
||||
NUMBER S_QTADAEVADERE 13 5
|
||||
BEGIN
|
||||
PROMPT 16 7 "Qta da evadere"
|
||||
END
|
||||
|
||||
DATA S_DATACONS
|
||||
BEGIN
|
||||
PROMPT 37 6 "Data di consegna "
|
||||
PROMPT 47 7 "Data di consegna "
|
||||
FIELD DATACONS
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 66 3
|
||||
GROUPBOX DLG_NULL 80 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "@bFornitore"
|
||||
PROMPT 1 9 "@bFornitore"
|
||||
END
|
||||
|
||||
NUMBER S_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 2 9 ""
|
||||
PROMPT 2 10 ""
|
||||
FIELD 33.CODCF
|
||||
END
|
||||
|
||||
STRING S_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 14 9 ""
|
||||
PROMPT 14 10 ""
|
||||
FIELD 20.RAGSOC
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 66 4
|
||||
GROUPBOX DLG_NULL 80 4
|
||||
BEGIN
|
||||
PROMPT 1 11 "@bCentro di costo/Commessa"
|
||||
PROMPT 1 12 "@bCentro di costo/Commessa"
|
||||
END
|
||||
|
||||
STRING S_CDC 20
|
||||
BEGIN
|
||||
PROMPT 2 12 "Codice "
|
||||
PROMPT 2 13 "Codice "
|
||||
FLAGS "UZ"
|
||||
FIELD CODCMS
|
||||
END
|
||||
|
||||
STRING S_FSC 10
|
||||
BEGIN
|
||||
PROMPT 2 13 "Fase "
|
||||
PROMPT 2 14 "Fase "
|
||||
FLAGS "UZ"
|
||||
FIELD FASCMS
|
||||
END
|
||||
|
||||
STRING S_DESCRAGG 50
|
||||
BEGIN
|
||||
PROMPT 2 16 "Descr. agg. "
|
||||
FIELD 47.DESCRAGG[1,50]
|
||||
END
|
||||
|
||||
NUMBER S_PPCONF 15
|
||||
BEGIN
|
||||
PROMPT 2 17 "P.per conf. "
|
||||
FIELD 47.PPCONF
|
||||
END
|
||||
|
||||
STRING S_TAGLIE 20
|
||||
BEGIN
|
||||
PROMPT 42 17 "Taglie "
|
||||
FIELD 47.USER2
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -11 -1 ""
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
Loading…
x
Reference in New Issue
Block a user