This commit was generated by cvs2svn to compensate for changes in r7803,
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://10.65.10.50/trunk@7804 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
0b19fdebbc
commit
76a80dd0e5
3
in/f133.dir
Executable file
3
in/f133.dir
Executable file
@ -0,0 +1,3 @@
|
||||
133
|
||||
0
|
||||
$intra|0|0|80|0|Movimenti intrastat|||
|
||||
13
in/f133.trr
Executable file
13
in/f133.trr
Executable file
@ -0,0 +1,13 @@
|
||||
133
|
||||
9
|
||||
NUMREG|3|7|0|Numero di registrazione
|
||||
DATAREG|5|8|0|Data registrazione
|
||||
TIPOMOV|1|1|0|Tipo Movimento
|
||||
TIPOCF|1|1|0|Tipo Cliente/Fornitore
|
||||
CODCF|3|5|0|Codice Cliente/Fornitore
|
||||
TOTDOC|4|18|2|Totale documento
|
||||
TOTDOCIMM|4|18|2|Totale documento immesso
|
||||
CODVAL|1|3|0|Codice valuta
|
||||
CAMBIO|4|18|5|Cambio
|
||||
1
|
||||
NUMREG|
|
||||
3
in/f134.dir
Executable file
3
in/f134.dir
Executable file
@ -0,0 +1,3 @@
|
||||
134
|
||||
0
|
||||
$rintra|0|0|94|0|Righe movimenti intra|||
|
||||
17
in/f134.trr
Executable file
17
in/f134.trr
Executable file
@ -0,0 +1,17 @@
|
||||
134
|
||||
13
|
||||
NUMREG|3|7|0|Numero registrazione
|
||||
NUMRIG|2|3|0|Numero di riga
|
||||
AMMLIRE|4|18|2|Ammontare in lire
|
||||
AMMVALUTA|4|18|2|Ammontare in valuta
|
||||
TRASPORTO|6|1|0|Tipo di trasporto
|
||||
NOMENCL|1|8|0|Nomenclatura
|
||||
MASSAKG|4|13|5|Massa in Kilogrammi
|
||||
MASSAUMS|4|13|6|Massa nell'unita' di misura specificata
|
||||
UMS|1|2|0|Unita' di misura
|
||||
VALSTAT|2|4|0|Valore statistico
|
||||
REGIME|2|2|0|Regime
|
||||
PAESEDEST|1|2|0|Paese di destinazione
|
||||
PROVORIG|1|2|0|Provincia d'origine
|
||||
1
|
||||
NUMREG+NUMRIG|
|
||||
16
in/in0.cpp
Executable file
16
in/in0.cpp
Executable file
@ -0,0 +1,16 @@
|
||||
#include <xvt.h>
|
||||
|
||||
#include "in0.h"
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
const int n = (argc > 1) ? (argv[1][1]-'0') : 0;
|
||||
switch (n)
|
||||
{
|
||||
case 4 : is0500(argc, argv); break; // Immissione movimenti
|
||||
default:
|
||||
break;
|
||||
}
|
||||
exit(0);
|
||||
return 0;
|
||||
}
|
||||
9
in/in0.url
Executable file
9
in/in0.url
Executable file
@ -0,0 +1,9 @@
|
||||
#define APPNAME campo
|
||||
#define QAPPNAME "campo"
|
||||
#define QFIRMNAME "A.G.A. Informatica Srl"
|
||||
|
||||
#include <default.url>
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
104
in/in0500.cpp
Executable file
104
in/in0500.cpp
Executable file
@ -0,0 +1,104 @@
|
||||
#include <automask.h>
|
||||
#include <currency.h>
|
||||
#include <relapp.h>
|
||||
|
||||
#include "in0.h"
|
||||
#include "in0500a.h"
|
||||
|
||||
class TImmissione_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
TImmissione_mask() : TAutomask("in0500a") { }
|
||||
virtual ~TImmissione_mask() { }
|
||||
};
|
||||
|
||||
bool TImmissione_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
switch (o.dlg())
|
||||
{
|
||||
case F_VALUTA:
|
||||
if (e == fe_modify)
|
||||
{
|
||||
TEdit_field& cambio = efield(F_CAMBIO);
|
||||
if (cambio.empty())
|
||||
{
|
||||
TCursor* cur = efield(F_VALUTA).browse()->cursor();
|
||||
cambio.set(cur->curr().get("S4"));
|
||||
}
|
||||
}
|
||||
break;
|
||||
case F_AMM_LIRE:
|
||||
if (e == fe_modify)
|
||||
{
|
||||
TMask& m = o.mask();
|
||||
if (m.get_real(F_AMM_VALUTA).is_zero())
|
||||
{
|
||||
TCurrency curr(real(o.get()), "_FIRM");
|
||||
curr.change_value(get(F_VALUTA), get_real(F_CAMBIO));
|
||||
m.set(F_AMM_VALUTA, curr.string(), TRUE);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case F_AMM_VALUTA:
|
||||
if (e == fe_modify)
|
||||
{
|
||||
TMask& m = o.mask();
|
||||
if (m.get_real(F_AMM_LIRE).is_zero())
|
||||
{
|
||||
TCurrency curr(real(o.get()), get(F_VALUTA), get_real(F_CAMBIO));
|
||||
curr.change_value("_FIRM");
|
||||
m.set(F_AMM_LIRE, curr.string(), TRUE);
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Applicazione principale
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TImmissione_intra : public TRelation_application
|
||||
{
|
||||
TRelation* _rel;
|
||||
TImmissione_mask* _msk;
|
||||
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
virtual TRelation* get_relation() const { return _rel; }
|
||||
virtual TMask* get_mask(int) { return _msk; }
|
||||
virtual bool changing_mask(int mode) { return FALSE; }
|
||||
virtual bool user_destroy();
|
||||
|
||||
public:
|
||||
};
|
||||
|
||||
bool TImmissione_intra::user_create()
|
||||
{
|
||||
open_files(LF_TABCOM, LF_TAB, LF_CLIFO, LF_MOV,
|
||||
LF_INTRA, LF_RINTRA, 0);
|
||||
_rel = new TRelation(LF_INTRA);
|
||||
_msk = new TImmissione_mask;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TImmissione_intra::user_destroy()
|
||||
{
|
||||
delete _msk;
|
||||
delete _rel;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
int is0500(int argc, char* argv[])
|
||||
{
|
||||
TImmissione_intra a;
|
||||
a.run(argc, argv, "Immissione movimenti");
|
||||
return 0;
|
||||
}
|
||||
38
in/in0500a.h
Executable file
38
in/in0500a.h
Executable file
@ -0,0 +1,38 @@
|
||||
#define F_DITTA 201
|
||||
#define F_DITTA_DESCR 202
|
||||
|
||||
#define F_NUM_REG 203
|
||||
#define F_DATA_DOC 204
|
||||
#define F_NUM_DOC 205
|
||||
|
||||
#define F_DATA_REG 207
|
||||
#define F_TIPO_MOV 208
|
||||
|
||||
#define F_TIPO_CF 210
|
||||
#define F_CLIFO 211
|
||||
#define F_RAGSOC 212
|
||||
|
||||
#define F_STATO 215
|
||||
#define F_PARTITA_IVA 216
|
||||
|
||||
#define F_TOT_DOC 220
|
||||
#define F_TOT_IMM 221
|
||||
#define F_DIF 222
|
||||
|
||||
#define F_VALUTA 230
|
||||
#define F_CAMBIO 231
|
||||
|
||||
#define F_RIGHE 250
|
||||
|
||||
#define F_AMM_LIRE 101
|
||||
#define F_AMM_VALUTA 102
|
||||
#define F_TRASPORTO 103
|
||||
#define F_NOMENCLATURA 104
|
||||
#define F_MASSA_KG 105
|
||||
#define F_MASSA_UMS 106
|
||||
#define F_UMS 107
|
||||
#define F_VALORE_STAT 108
|
||||
#define F_REGIME 109
|
||||
#define F_PAESE_DEST 110
|
||||
#define F_PROV_ORIG 111
|
||||
|
||||
323
in/in0500a.uml
Executable file
323
in/in0500a.uml
Executable file
@ -0,0 +1,323 @@
|
||||
#include "in0500a.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 -3 0 3
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Immissione Movimenti" -1 -1 78 18
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bDitta"
|
||||
END
|
||||
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 2 ""
|
||||
FLAGS "DF"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
OUTPUT F_DITTA_DESCR RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DITTA_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 10 2 "Ragione Sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NUM_REG 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero registrazione "
|
||||
USE LF_MOV
|
||||
INPUT NUMREG F_NUM_REG
|
||||
DISPLAY "Numero" NUMREG
|
||||
DISPLAY "Data Doc.@10" DATADOC
|
||||
DISPLAY "Num. Doc." NUMDOC
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_NUM_REG NUMREG
|
||||
OUTPUT F_DATA_DOC DATADOC
|
||||
OUTPUT F_NUM_DOC NUMDOC
|
||||
CHECKTYPE SEARCH
|
||||
KEY 1
|
||||
FIELD NUMREG
|
||||
END
|
||||
|
||||
DATA F_DATA_DOC
|
||||
BEGIN
|
||||
PROMPT 32 4 "Documento: data "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATA F_NUM_DOC
|
||||
BEGIN
|
||||
PROMPT 61 4 "Numero "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATA F_DATA_REG
|
||||
BEGIN
|
||||
PROMPT 1 5 "Data di registrazione "
|
||||
FLAGS "A"
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD DATAREG
|
||||
END
|
||||
|
||||
LIST F_TIPO_MOV 1 12
|
||||
BEGIN
|
||||
PROMPT 49 5 "Tipo movimento "
|
||||
ITEM "A|Acquisto"
|
||||
MESSAGE "F",F_TIPO_CF
|
||||
ITEM "C|Cessione"
|
||||
MESSAGE "C",F_TIPO_CF
|
||||
FIELD TIPOMOV
|
||||
END
|
||||
|
||||
LISTA F_TIPO_CF 1 10
|
||||
BEGIN
|
||||
PROMPT 1 6 ""
|
||||
FLAGS "D"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FIELD TIPOCF
|
||||
END
|
||||
|
||||
NUMBER F_CLIFO 5
|
||||
BEGIN
|
||||
PROMPT 16 6 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPO_CF SELECT
|
||||
INPUT CODCF F_CLIFO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Stato" STATOPAIV
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CLIFO CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_STATO STATOPAIV
|
||||
OUTPUT F_PARTITA_IVA PAIV
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN CG0 -1
|
||||
FIELD CODCF
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 26 6 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPO_CF SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Stato" STATOPAIV
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
COPY OUTPUT F_CLIFO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LIST F_STATO 2 14
|
||||
BEGIN
|
||||
PROMPT 1 7 "Stato CEE "
|
||||
ITEM "BE|Belgio"
|
||||
ITEM "DE|Germania"
|
||||
ITEM "DK|Danimarca"
|
||||
ITEM "EL|Grecia"
|
||||
ITEM "ES|Spagna"
|
||||
ITEM "FR|Francia"
|
||||
ITEM "GB|Gran Bretagna"
|
||||
ITEM "IE|Irlanda"
|
||||
ITEM "IT|Italia"
|
||||
ITEM "LU|Lussemburgo"
|
||||
ITEM "NL|Olanda"
|
||||
ITEM "PT|Portogallo"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_PARTITA_IVA 12
|
||||
BEGIN
|
||||
PROMPT 49 7 "Partita IVA "
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF F_TIPO_CF SELECT
|
||||
INPUT STATOPAIV F_STATO
|
||||
INPUT PAIV F_PARTITA_IVA
|
||||
DISPLAY "Stato" STATOPAIV
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
COPY OUTPUT F_CLIFO
|
||||
VALIDATE PI_FUNC F_STATO
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Lunghezza partita IVA errata"
|
||||
END
|
||||
|
||||
CURRENCY F_TOT_DOC 18
|
||||
BEGIN
|
||||
PROMPT 1 8 "Totale documento da controllare "
|
||||
FIELD TOTDOC
|
||||
END
|
||||
|
||||
CURRENCY F_TOT_IMM 18
|
||||
BEGIN
|
||||
PROMPT 1 9 "Totale documento immesso "
|
||||
FIELD TOTDOCIMM
|
||||
END
|
||||
|
||||
STRING F_VALUTA 3
|
||||
BEGIN
|
||||
PROMPT 66 8 "Valuta "
|
||||
FLAGS "U"
|
||||
USE %VAL
|
||||
INPUT CODTAB F_VALUTA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_VALUTA CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODVAL
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 18 5
|
||||
BEGIN
|
||||
PROMPT 53 9 "Cambio "
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CAMBIO
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 0 11 ""
|
||||
ITEM "Amm. Lire@18"
|
||||
ITEM "Amm. Valuta@18"
|
||||
ITEM "Tras.@4"
|
||||
ITEM "Nomenclatura"
|
||||
ITEM "Mas.Kg@13"
|
||||
ITEM "Mas.Ums@13"
|
||||
ITEM "UMS"
|
||||
ITEM "Stat."
|
||||
ITEM "R"
|
||||
ITEM "Paese"
|
||||
ITEM "Prov."
|
||||
FLAGS "A"
|
||||
USE LF_RINTRA KEY NUMRIG
|
||||
INPUT NUMREG F_NUM_REG
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Righe" -1 -1 68 10
|
||||
|
||||
CURRENCY F_AMM_LIRE 18
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ammontare in lire "
|
||||
FIELD AMMLIRE
|
||||
END
|
||||
|
||||
CURRENCY F_AMM_VALUTA 18
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ammontare in valuta "
|
||||
DRIVENBY -F_VALUTA
|
||||
FIELD AMMVALUTA
|
||||
END
|
||||
|
||||
LISTA F_TRASPORTO 1 20
|
||||
BEGIN
|
||||
PROMPT 1 3 "Trasporto "
|
||||
ITEM "1|Marittimo"
|
||||
ITEM "2|Ferroviario"
|
||||
ITEM "3|Stradale"
|
||||
ITEM "4|Aereo"
|
||||
ITEM "5|Spedizione postale"
|
||||
ITEM "7|Installazioni fisse"
|
||||
ITEM "8|Via acqua"
|
||||
ITEM "9|Propulsione propria"
|
||||
FIELD TRASPORTO
|
||||
END
|
||||
|
||||
NUMBER F_NOMENCLATURA 8
|
||||
BEGIN
|
||||
PROMPT 36 3 "Nomenclatura "
|
||||
FLAGS "Z"
|
||||
USE %NOC
|
||||
INPUT CODTAB F_NOMENCLATURA
|
||||
DISPLAY "Codice@8" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_NOMENCLATURA CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD NOMENCL
|
||||
END
|
||||
|
||||
NUMBER F_MASSA_KG 13 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Massa Kg. "
|
||||
PICTURE ".5"
|
||||
FIELD MASSAKG
|
||||
END
|
||||
|
||||
NUMBER F_MASSA_UMS 13 5
|
||||
BEGIN
|
||||
PROMPT 36 4 "Massa "
|
||||
PICTURE ".5"
|
||||
FIELD MASSAUMS
|
||||
END
|
||||
|
||||
STRING F_UMS 2
|
||||
BEGIN
|
||||
PROMPT 59 4 "UMS "
|
||||
FLAGS "U"
|
||||
USE %UMS
|
||||
INPUT CODTAB F_UMS
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_UMS CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
FIELD UMS
|
||||
END
|
||||
|
||||
NUBER F_VALORE_STAT 4
|
||||
BEGIN
|
||||
PROMPT 1 5 "Valore statistico "
|
||||
FIELD VALSTAT
|
||||
END
|
||||
|
||||
NUMBER F_REGIME 2
|
||||
BEGIN
|
||||
PROMPT 36 5 "Regime "
|
||||
FIELD REGIME
|
||||
END
|
||||
|
||||
STRING F_PAESE_DEST 2
|
||||
BEGIN
|
||||
PROMPT 1 6 "Pase di destinazione "
|
||||
FLAGS "U"
|
||||
FIELD PAESEDEST
|
||||
END
|
||||
|
||||
STRING F_PROV_ORIG 2
|
||||
BEGIN
|
||||
PROMPT 36 6 "Provincia d'origine "
|
||||
FLAGS "U"
|
||||
FIELD PROVORIG
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user