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

Patch level : 10.0 332

Browse Source 
Files correlati     : mg1.exe
Ricompilazione Demo : [ ]
Commento            :
0001327: inserimento movimenti di magazzino
Dopo aver registrato un documento, non legato ad altro movimento, la riga viene disabilitata e non è più possibile modificare nulla.


git-svn-id: svn://10.65.10.50/trunk@19006 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-06-11 08:32:00 +00:00
parent 259d007550
commit 1a9f9fe3b8
3 changed files with 29 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mg/mg1.cpp
View File

@ -1,5 +1,5 @@
#include <xvt.h>
//
// Modulo di gestione movimenti
#include "mg1.h"
@ -9,16 +9,10 @@ int main(int argc, char** argv)
switch (r)
{
case 1:
mg1200(argc,argv) ; break; // ricostruzione saldi
case 2:
// mg1300(argc,argv) ; break; // gestione movimenti DA DOCUMENTI
case 3:
mg1400(argc,argv) ; break; // gestione aperture/chiusure
default:
mg1100(argc,argv) ; break; // gestione interattiva movimenti
case 1: mg1200(argc,argv); break; // ricostruzione saldi
case 3: mg1400(argc,argv); break; // gestione aperture/chiusure
default: mg1100(argc,argv); break; // gestione interattiva movimenti
}
exit(0);
return 0;
}

43
mg/mg4200.cpp
View File

@ -129,36 +129,42 @@ void TForm_inventario::add_colval(int tipo)
bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t)
{
TRectype & magrec=relation()->lfile(LF_MAG).curr();
TString annoes(magrec.get(MAG_ANNOES));
TPrice prezzo(ZERO,"_FIRM");
const TRectype& magrec = relation()->curr(LF_MAG);
const TString4 annoes = magrec.get(MAG_ANNOES);
const real giac_corretta = curr_art().giacenza_corretta(magrec, false,_valcomp);
real p;
switch (t)
{
case valorizz_ultcos:
prezzo.set_num(curr_art().ultimo_costo(annoes));
p = prezzo.get_num();
{
const TPrice prezzo(curr_art().ultimo_costo(annoes));
p = prezzo.get_num();
}
break;
case valorizz_mediacos:
prezzo.set_num(curr_art().media_costi(annoes));
p = prezzo.get_num();
{
const TPrice prezzo(curr_art().media_costi(annoes));
p = prezzo.get_num();
}
break;
case valorizz_przlist:
prezzo.set_num(CENTO / (CENTO + curr_art().get_real(ANAMAG_PERCRIC)) * curr_art().prezzo_listino(annoes,_catven,_codlist));
p = prezzo.get_num();
{
const TPrice prezzo(CENTO / (CENTO + curr_art().get_real(ANAMAG_PERCRIC)) * curr_art().prezzo_listino(annoes,_catven,_codlist));
p = prezzo.get_num();
}
break;
case valorizz_coststd:
prezzo.set_num(curr_art().costo_standard(annoes));
p = prezzo.get_num();
{
const TPrice prezzo(curr_art().costo_standard(annoes));
p = prezzo.get_num();
}
break;
case valorizz_costmediopond:
{
const TString4 codmag = magrec.get(MAG_CODMAG).left(3);
const TString80 livello(magrec.get(MAG_LIVELLO));
prezzo.set_num(curr_art().costo_mediopond(annoes,codmag,livello));
const TPrice prezzo(curr_art().costo_mediopond(annoes,codmag,livello));
p = prezzo.get_num();
}
break;
@ -166,8 +172,7 @@ bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t)
{
const TString4 codmag = magrec.get(MAG_CODMAG).left(3);
const TString80 livello(magrec.get(MAG_LIVELLO));
prezzo.set_num(curr_art().costo_medio(annoes,codmag,livello));
const TPrice prezzo(curr_art().costo_medio(annoes,codmag,livello));
p = prezzo.get_num();
}
break;
@ -182,7 +187,6 @@ bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t)
{
const TString4 codmag = magrec.get(MAG_CODMAG).left(3);
const TString80 livello(magrec.get(MAG_LIVELLO));
p = curr_art().FIFO(annoes,codmag,livello, false,_valcomp);
}
break;
@ -190,16 +194,14 @@ bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t)
{
const TString4 codmag = magrec.get(MAG_CODMAG).left(3);
const TString80 livello(magrec.get(MAG_LIVELLO));
p = curr_art().LIFO_annuale(annoes,codmag,livello, false,_valcomp);
p = curr_art().LIFO_annuale(annoes,codmag,livello, false, _valcomp);
}
break;
case valorizz_FIFOa:
{
const TString4 codmag = magrec.get(MAG_CODMAG).left(3);
const TString80 livello(magrec.get(MAG_LIVELLO));
p = curr_art().FIFO_annuale(annoes,codmag,livello, false,_valcomp);
p = curr_art().FIFO_annuale(annoes,codmag,livello, false, _valcomp);
}
break;
default:
@ -207,7 +209,6 @@ bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t)
}
const TCurrency valore(real(p * giac_corretta));
cf.set(valore.get_num().string());
return true;
}

6
mg/mglib03.cpp
View File

@ -1,4 +1,3 @@
#include <dongle.h>
#include <diction.h>
#include <modaut.h>
@ -11,8 +10,9 @@ void TForm_stampemg::add_giaclev(TString &levname, int from, int to)
{
to=(to==0 ? (_tolivgiac ? _tolivgiac:livelli_giacenza().last_level()) : to);
int lv=(from==0 ? 1: from );
for (; lv <to ; lv++) {
const TString & piece = livelli_giacenza().unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),lv);
for (; lv <to ; lv++)
{
const TString& piece = livelli_giacenza().unpack_grpcode(relation()->curr(LF_MAG).get("LIVELLO"),lv);
if (piece.not_empty())
levname << '/' << piece ;
}