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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21925 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-04-11 15:33:07 +00:00
parent e87ed0d8f2
commit 0cc89b3ed1
7 changed files with 143 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ha/ha0200a.h
View File

@ -50,11 +50,13 @@
#define F_CODICI_IVA 270
//------------------------------
//campi sheet aliqute-codici iva
//campi sheet aliquote-codici iva
#define S_ALIQUOTA_IVA 101
#define S_CAMPO_CODIVA 102
#define S_CAMPO_CODIVA_DES 103
//==============================
//pagina 3
// configurazione Procedura Esselunga
#define F_E_PATH 301
#define F_E_PIVA_HARDY 302
@ -63,3 +65,15 @@
#define F_E_COD_ESSELUNGA 305
#define F_E_TIPOEMISSIONE 306
#define F_E_DATACONF 307
//==============================
//pagina 4
//parametri documenti per generazione storico attrezzature
#define F_TIPO_DOC2ELAB 401
#define F_TIPO_DOC2ELAB_DESCR 402
#define F_STATO_DOC2ELAB 403
#define F_STATO_DOC2ELAB_DESCR 404
#define F_CAUSMAG_APERTURA 405
#define F_CAUSMAG_APERTURA_DESCR 406
#define F_CAUSMAG_CHIUSURA 407
#define F_CAUSMAG_CHIUSURA_DESCR 408

124
ha/ha0200a.uml
View File

@ -4,7 +4,8 @@ TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Contratti e NAC" -1 -1 78 23
//----------------------------
PAGE "Contratti e NAC" 0 2 0 0
GROUPBOX DLG_NULL 76 4
BEGIN
@ -320,7 +321,9 @@ END
ENDPAGE
PAGE "Trasferimenti" -1 -1 78 23
//----------------------------
PAGE "Trasferimenti" 0 2 0 0
GROUPBOX DLG_NULL 76 7
BEGIN
@ -519,7 +522,9 @@ END
ENDPAGE
PAGE "Configurazione Esselunga" -1 -1 78 23
//-------------------------------------
PAGE "Configurazione Esselunga" 0 2 0 0
STRING F_E_PATH 255 39
BEGIN
@ -575,10 +580,119 @@ END
ENDPAGE
//------------------------------------
PAGE "Cartellini attrezzature" 0 2 0 0
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 1 1 "@bParametri documenti"
END
STRING F_TIPO_DOC2ELAB 4
BEGIN
PROMPT 2 2 "Tipo "
USE %TIP
INPUT CODTAB F_TIPO_DOC2ELAB
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPO_DOC2ELAB CODTAB
OUTPUT F_TIPO_DOC2ELAB_DESCR S0
FLAGS "U"
CHECKTYPE REQUIRED
FIELD Doc2ElabTip
END
STRING F_TIPO_DOC2ELAB_DESCR 50
BEGIN
PROMPT 20 2 ""
USE %TIP KEY 2
INPUT S0 F_TIPO_DOC2ELAB_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPO_DOC2ELAB
CHECKTYPE NORMAL
END
STRING F_STATO_DOC2ELAB 1
BEGIN
PROMPT 2 3 "Stato "
USE %STD
INPUT CODTAB F_STATO_DOC2ELAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATO_DOC2ELAB CODTAB
OUTPUT F_STATO_DOC2ELAB_DESCR S0
FLAGS "U"
CHECKTYPE REQUIRED
FIELD Doc2ElabSta
END
STRING F_STATO_DOC2ELAB_DESCR 50
BEGIN
PROMPT 20 3 ""
USE %STD KEY 2
INPUT S0 F_STATO_DOC2ELAB_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_STATO_DOC2ELAB
CHECKTYPE NORMAL
END
STRING F_CAUSMAG_APERTURA 5
BEGIN
PROMPT 2 4 "Causale apertura "
USE MAG
INPUT CODTAB F_CAUSMAG_APERTURA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CAUSMAG_APERTURA CODTAB
OUTPUT F_CAUSMAG_APERTURA_DESCR S0
CHECKTYPE REQUIRED
FLAGS "U"
FIELD CausOpen
END
STRING F_CAUSMAG_APERTURA_DESCR 50 46
BEGIN
PROMPT 28 4 ""
USE MAG KEY 2
INPUT S0 F_CAUSMAG_APERTURA_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CAUSMAG_APERTURA
CHECKTYPE NORMAL
END
STRING F_CAUSMAG_CHIUSURA 5
BEGIN
PROMPT 2 5 "Causale chiusura "
COPY USE F_CAUSMAG_APERTURA
INPUT CODTAB F_CAUSMAG_CHIUSURA
COPY DISPLAY F_CAUSMAG_APERTURA
OUTPUT F_CAUSMAG_CHIUSURA CODTAB
OUTPUT F_CAUSMAG_CHIUSURA_DESCR S0
CHECKTYPE REQUIRED
FLAGS "U"
FIELD CausClose
END
STRING F_CAUSMAG_CHIUSURA_DESCR 50 46
BEGIN
PROMPT 28 5 ""
COPY USE F_CAUSMAG_APERTURA_DESCR
INPUT S0 F_CAUSMAG_CHIUSURA_DESCR
COPY DISPLAY F_CAUSMAG_APERTURA_DESCR
COPY OUTPUT F_CAUSMAG_CHIUSURA
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK
//---------------------------------------------------
//maschera di riga dello sheet 2 (Codici iva)
//--------------------------------------------------------------
//maschera di riga dello sheet pagina trasferimenti (Codici iva)
PAGE "Riga" -1 -1 64 4

5
ha/ha3.cpp
View File

@ -3,7 +3,7 @@
#include "ha3.h"
#define usage "Error - usage : %s -{0|8}"
#define usage "Error - usage : %s -{0|7|8}"
int main(int argc,char** argv)
{
@ -13,7 +13,8 @@ int main(int argc,char** argv)
switch (r)
{
case 0: rt = ha3100(argc, argv); break; //Gestione giri
case 8: rt = ha3900(argc, argv); break; //Gestione attrezzature
case 7: rt = ha3800(argc, argv); break; //Inserimento righe storico da documenti
case 8: rt = ha3900(argc, argv); break; //Gestione storico attrezzature
default: error_box(usage, argv[0]); break;
}
return rt;

3
ha/ha3.h
View File

@ -1,2 +1,3 @@
int ha3100(int argc, char* argv[]);
int ha3900(int argc, char* argv[]);
int ha3800(int argc, char* argv[]);
int ha3900(int argc, char* argv[]);

3
ha/ha3800.cpp
View File

@ -234,8 +234,7 @@ void TInserimento_storico::elabora(const TMask& mask)
tab_his.put("R1", importo);
tab_his.write_rewrite();
} //if (caus==caus_open || ...
} //if (caus==caus_open || ..
} //for (bool ok = rdoc_recset.move_first()...

2
ha/ha3900.cpp
View File

@ -457,6 +457,6 @@ void TGestione_attrezzature::main_loop()
int ha3900(int argc, char* argv[])
{
TGestione_attrezzature app;
app.run(argc, argv, TR("Gestione attrezzature"));
app.run(argc, argv, TR("Gestione storico attrezzature"));
return 0;
}

3
ha/hamenu.men
View File

@ -65,4 +65,5 @@ Picture = <ha01>
Module = 46
Flags = "F"
Item_01 = "Tabella attrezzature", "ha0 -0 &ATT", ""
Item_02 = "Gestione attrezzature", "ha3 -8", "F"
Item_02 = "Gestione attrezzature", "ha3 -8", ""
Item_03 = "Generazione storico da documenti", "ha3 -7", ""