Patch level : 10.0 nopatch
Files correlati : pc0001.exe Ricompilazione Demo : [ ] Commento : Gestione Commesse GAM git-svn-id: svn://10.65.10.50/trunk@17024 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
80d1dfcd68
commit
539886a225
15
ps/pc0001.cpp
Executable file
15
ps/pc0001.cpp
Executable file
@ -0,0 +1,15 @@
|
||||
#include <xvt.h>
|
||||
#include "pc0001.h"
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
const int n = argc > 1 ? argv[1][1]-'0' : 0;
|
||||
switch (n)
|
||||
{
|
||||
case 0:
|
||||
default:
|
||||
pc0001100(argc, argv); // Commesse
|
||||
break;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
1
ps/pc0001.h
Executable file
1
ps/pc0001.h
Executable file
@ -0,0 +1 @@
|
||||
int pc0001100(int argc, char* argv[]);
|
||||
259
ps/pc0001100.cpp
Executable file
259
ps/pc0001100.cpp
Executable file
@ -0,0 +1,259 @@
|
||||
#include "../ve/velib.h"
|
||||
#include "../ve/sconti.h"
|
||||
#include "../mg/mglib.h"
|
||||
|
||||
#include "../ve/vepriv.h"
|
||||
#include "../ve/veuml.h"
|
||||
|
||||
#include <automask.h>
|
||||
#include <defmask.h>
|
||||
#include <execp.h>
|
||||
#include <agasys.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "../mg/anamag.h"
|
||||
#include "../ve/ve0100.h"
|
||||
#include "../ve/veini.h"
|
||||
#include "../ve/veuml.h"
|
||||
#include "../ve/veuml1.h"
|
||||
#include "../ve/verig.h"
|
||||
|
||||
#include <clifo.h>
|
||||
#include "pc0001.h"
|
||||
|
||||
class TCommesse_mask : public TDocumento_mask
|
||||
{
|
||||
TBit_array _modified_rows;
|
||||
TBit_array _deleted_rows;
|
||||
int _last_row;
|
||||
|
||||
protected:
|
||||
static bool cc_notify(TSheet_field& ss, int r, KEY key);
|
||||
|
||||
|
||||
public:
|
||||
TBit_array & modified_rows() { return _modified_rows;}
|
||||
TBit_array & deleted_rows() {return _deleted_rows;}
|
||||
void reset_last_row() { _last_row = -1;}
|
||||
void set_last_row(int r) { _last_row = r;}
|
||||
int last_row() const { return _last_row;}
|
||||
bool modified(long idriga) const{ return _modified_rows[(int)idriga];}
|
||||
bool deleted(long idriga) const {return _deleted_rows[(int)idriga];}
|
||||
TCommesse_mask(const char* tipodoc);
|
||||
virtual ~TCommesse_mask() {}
|
||||
};
|
||||
|
||||
bool TCommesse_mask::cc_notify( TSheet_field& ss, int r, KEY key )
|
||||
{
|
||||
TCommesse_mask& m = (TCommesse_mask&)ss.mask();
|
||||
TDocumento& doc = m.doc();
|
||||
|
||||
if ( key == K_ENTER )
|
||||
{
|
||||
TRiga_documento& riga = doc[r + 1];
|
||||
const long idriga = riga.get_long(RDOC_IDRIGA);
|
||||
|
||||
m.modified_rows().set(idriga);
|
||||
}
|
||||
else
|
||||
if ( key == K_TAB && m.is_running() && m.last_row() != r)
|
||||
{
|
||||
m.set_last_row(r);
|
||||
TRiga_documento& riga = doc[r + 1];
|
||||
const long idriga = riga.get_long(RDOC_IDRIGA);
|
||||
|
||||
if (!m.modified(idriga))
|
||||
{
|
||||
TToken_string key;
|
||||
key.add(riga.get(RDOC_CODNUM));
|
||||
key.add(riga.get(RDOC_ANNO));
|
||||
key.add(riga.get(RDOC_PROVV));
|
||||
key.add(riga.get(RDOC_NDOC));
|
||||
for (int i = 1; ; i++)
|
||||
{
|
||||
key.add(i, 4);
|
||||
|
||||
const TRectype& rec = cache().get(LF_RIGHEDOC, key);
|
||||
|
||||
if (rec.empty()) break;
|
||||
if (rec.get_long(RDOC_IDRIGA) == idriga)
|
||||
{
|
||||
TDocumento::copy_data(riga, rec);
|
||||
riga.autoload(ss);
|
||||
ss.check_row(r, 0x2);
|
||||
ss.force_update(r);
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
if ( key == K_DEL ) // Cancellazione
|
||||
{
|
||||
TRiga_documento& riga = doc[r + 1];
|
||||
const long idriga = riga.get_long(RDOC_IDRIGA);
|
||||
|
||||
m.deleted_rows().set(idriga);
|
||||
m.modified_rows().set(idriga, false);
|
||||
}
|
||||
else
|
||||
if (key == K_CTRL + K_INS)
|
||||
{
|
||||
doc.set_row_ids();
|
||||
TRiga_documento & riga = doc[r + 1];
|
||||
const long idriga = riga.get_long(RDOC_IDRIGA);
|
||||
|
||||
m.modified_rows().set(idriga);
|
||||
}
|
||||
return TDocumento_mask::ss_notify(ss, r,key);
|
||||
}
|
||||
|
||||
TCommesse_mask::TCommesse_mask(const char* tipodoc):
|
||||
TDocumento_mask(tipodoc), _last_row(-1)
|
||||
{
|
||||
sfield(F_SHEET).set_notify( cc_notify );
|
||||
}
|
||||
|
||||
// Definizione della classe dell'applicazione motore
|
||||
class TCommesse_application : public TMotore_application
|
||||
{
|
||||
TAssoc_array _masks; // assoc_array delle maschere da utilizzare
|
||||
TString4 _tipodoc;
|
||||
TBit_array _modified;
|
||||
|
||||
protected:
|
||||
virtual TMask* get_mask( int mode );
|
||||
virtual int read( TMask& m );
|
||||
virtual int rewrite( const TMask& m );
|
||||
|
||||
public:
|
||||
virtual TMask & query_mask();
|
||||
virtual TDocumento_mask & edit_mask() const;
|
||||
|
||||
TCommesse_application() {}
|
||||
};
|
||||
|
||||
inline TCommesse_application& pcapp() { return (TCommesse_application &) main_app(); };
|
||||
|
||||
TMask& TCommesse_application::query_mask()
|
||||
{
|
||||
TMask* m = (TMask*) _masks.objptr("pc0001100a");
|
||||
if (m == NULL)
|
||||
{
|
||||
m = new TMask("pc0001100a");
|
||||
_masks.add("pc0001100a", m);
|
||||
}
|
||||
return *m;
|
||||
}
|
||||
|
||||
TDocumento_mask& TCommesse_application::edit_mask() const
|
||||
{
|
||||
TDocumento_mask* m = (TDocumento_mask*) _masks.objptr(_tipodoc);
|
||||
if (m == NULL)
|
||||
{
|
||||
m = new TCommesse_mask(_tipodoc);
|
||||
((TAssoc_array&)_masks).add(_tipodoc, m);
|
||||
}
|
||||
return *m;
|
||||
}
|
||||
|
||||
TMask* TCommesse_application::get_mask( int mode )
|
||||
{
|
||||
TMask* m = NULL;
|
||||
if (mode == MODE_MOD || mode == MODE_INS)
|
||||
{
|
||||
_tipodoc = query_mask().get(F_TIPODOC);
|
||||
m = &edit_mask();
|
||||
}
|
||||
else
|
||||
m = &query_mask();
|
||||
return m;
|
||||
}
|
||||
|
||||
// maschera di ricerca
|
||||
// maschera di edit
|
||||
int TCommesse_application::read(TMask& m )
|
||||
{
|
||||
TCommesse_mask & mask = (TCommesse_mask &) m;
|
||||
mask.modified_rows().reset();
|
||||
mask.deleted_rows().reset();
|
||||
mask.reset_last_row();
|
||||
|
||||
const int err = TMotore_application::read(m);
|
||||
if (err == NOERR)
|
||||
((TDocumento_mask &) m).doc().read(_isequal, _unlock);
|
||||
return err;
|
||||
}
|
||||
|
||||
int TCommesse_application::rewrite( const TMask& m )
|
||||
{
|
||||
int err = NOERR;
|
||||
const TCommesse_mask & mask = (const TCommesse_mask &) m;
|
||||
const TDocumento & maskdoc = mask.doc();
|
||||
TDocumento outdoc = maskdoc;
|
||||
while ((err = outdoc.read(_isequal, _testandlock)) == _islocked)
|
||||
xvt_sys_sleep (500);
|
||||
if (err == NOERR)
|
||||
{
|
||||
for (int p = mask.fields()-1; p >= 0; p--)
|
||||
{
|
||||
TMask_field& f = mask.fld(p);
|
||||
const TFieldref* fr = f.field();
|
||||
if (fr != NULL)
|
||||
fr->write(f.get(), outdoc);
|
||||
}
|
||||
|
||||
int outrows = outdoc.physical_rows();
|
||||
|
||||
for (int j = outrows; j > 1; j--)
|
||||
{
|
||||
TRiga_documento & outrow = outdoc[j];
|
||||
const long idriga = outrow.get_long(RDOC_IDRIGA);
|
||||
|
||||
if (mask.deleted(idriga))
|
||||
outdoc.destroy_row(j, true);
|
||||
}
|
||||
outrows = outdoc.physical_rows();
|
||||
const int rows = maskdoc.physical_rows();
|
||||
for (int i = 1; i <= rows; i++)
|
||||
{
|
||||
const TRiga_documento & row = maskdoc[i];
|
||||
const long idriga = row.get_long(RDOC_IDRIGA);
|
||||
|
||||
if (mask.modified(idriga))
|
||||
{
|
||||
bool newrow = true;
|
||||
|
||||
for (int j = 1; newrow && j <= outrows; j++)
|
||||
{
|
||||
TRiga_documento & outrow = outdoc[j];
|
||||
|
||||
if (idriga == outrow.get_int(RDOC_IDRIGA))
|
||||
{
|
||||
TDocumento::copy_data(outrow, row);
|
||||
newrow = false;
|
||||
}
|
||||
}
|
||||
if (newrow)
|
||||
{
|
||||
outdoc.insert_row(i);
|
||||
|
||||
TRiga_documento & outrow = outdoc[i];
|
||||
|
||||
TDocumento::copy_data(outrow, row);
|
||||
}
|
||||
}
|
||||
}
|
||||
err = outdoc.rewrite();
|
||||
}
|
||||
return err;
|
||||
}
|
||||
|
||||
int pc0001100( int argc, char* argv[])
|
||||
{
|
||||
TCommesse_application a;
|
||||
|
||||
a.run( argc, argv, TR("Commesse GAM"));
|
||||
return 0;
|
||||
}
|
||||
176
ps/pc0001100a.uml
Executable file
176
ps/pc0001100a.uml
Executable file
@ -0,0 +1,176 @@
|
||||
#include "..\ve\veuml.h"
|
||||
|
||||
TOOLBAR "" 0 -2 0 2
|
||||
#include "toolbar.h"
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Estremi del documento" 1 1 60 14
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bDitta"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 2 "Codice "
|
||||
FLAGS "FD"
|
||||
USE LF_NDITTE
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOCDITTA RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOCDITTA 50
|
||||
BEGIN
|
||||
PROMPT 17 2 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 7
|
||||
BEGIN
|
||||
PROMPT 1 4 "Estremi del documento"
|
||||
END
|
||||
|
||||
LISTBOX F_PROVV 14
|
||||
BEGIN
|
||||
FIELD PROVV
|
||||
PROMPT 46 7 "Tipo "
|
||||
ITEM "D|Definitiva "
|
||||
ITEM "P|Provvisoria"
|
||||
KEY 1 2
|
||||
FLAGS "DPG"
|
||||
END
|
||||
|
||||
LISTBOX F_CODNUM 4
|
||||
BEGIN
|
||||
PROMPT 2 5 "Numerazione "
|
||||
FIELD CODNUM
|
||||
ITEM "COM|COM"
|
||||
HELP "Codice numerazione"
|
||||
FLAG "D"
|
||||
WARNING "Numerazione assente"
|
||||
KEY 1 2
|
||||
END
|
||||
|
||||
LISTBOX F_DESNUM 50
|
||||
BEGIN
|
||||
PROMPT 24 5 ""
|
||||
ITEM "COM|Commesse"
|
||||
HELP "Descrizione numerazione"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LISTBOX F_TIPODOC 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Tipo "
|
||||
FIELD TIPODOC
|
||||
ITEM "COM|COM"
|
||||
HELP "Codice tipo documento"
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
LISTBOX F_DESTIPODOC 50
|
||||
BEGIN
|
||||
PROMPT 24 6 ""
|
||||
ITEM "COM|Commessa"
|
||||
HELP "Descrizione tipo documento"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Esercizio "
|
||||
FIELD ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
NUM_EXPR #F_ANNO>0
|
||||
FLAG "AP"
|
||||
KEY 1 2
|
||||
WARNING "Inserire un anno valido"
|
||||
END
|
||||
|
||||
NUMBER F_NDOC 6
|
||||
BEGIN
|
||||
PROMPT 24 7 "Numero "
|
||||
FIELD NDOC
|
||||
USE LF_DOC
|
||||
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
INPUT PROVV F_PROVV SELECT
|
||||
INPUT ANNO F_ANNO SELECT
|
||||
INPUT CODNUM F_CODNUM SELECT
|
||||
INPUT NDOC F_NDOC
|
||||
DISPLAY "Num." CODNUM
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Provv" PROVV
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "N.Doc. " NDOC
|
||||
DISPLAY "Stato@R" STATO
|
||||
DISPLAY "Data\ndocumento" DATADOC
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT F_NDOC NDOC
|
||||
OUTPUT F_STATO STATO
|
||||
OUTPUT F_TIPODOC TIPODOC
|
||||
OUTPUT F_PROVV PROVV
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1 2
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_STATO 1
|
||||
BEGIN
|
||||
PROMPT 69 7 "Stato "
|
||||
FIELD STATO
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 12
|
||||
BEGIN
|
||||
PROMPT 2 8 "Tipo "
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
KEY 2
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 24 8 "Codice "
|
||||
USE LF_DOC KEY 2 SELECT (CODNUM==#F_CODNUM) && (PROVV==#F_PROVV) && (ANNO==#F_ANNO)
|
||||
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
INPUT PROVV F_PROVV
|
||||
INPUT ANNO F_ANNO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
DISPLAY "Partita IVA@12" LF_CLIFO->PAIV
|
||||
DISPLAY "Num." CODNUM
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Provv" PROVV
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "N.Doc. " NDOC
|
||||
DISPLAY "Data\ndocumento" DATADOC
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Totale\ndocumento@18V" G1:TOTDOC
|
||||
COPY OUTPUT F_NDOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
CHECKTYPE NORMAL
|
||||
KEY 2
|
||||
END
|
||||
|
||||
STRING F_NUMDOCRIF 7
|
||||
BEGIN
|
||||
PROMPT 46 8 "Riferimento "
|
||||
FLAGS "B"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCSEARCH 50
|
||||
BEGIN
|
||||
PROMPT 2 9 "Ragione Sociale "
|
||||
FLAGS "B"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user