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

Modifiche apportate allo Spreadsheet, corretta scrittura records,

Browse Source 
aggiunti identificatori campi per maschera cg0200b.uml


git-svn-id: svn://10.65.10.50/trunk@210 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1994-09-09 13:34:55 +00:00
parent a0f487eecb
commit d229bb7f58
3 changed files with 43 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cg/cg0200.cpp
View File

@ -463,9 +463,9 @@ bool CG0200_application::indsp_notify(int r, KEY key)
// Disable field # 101 (CODIND) update # of row
TMask& m = indsp.sheet_mask();
if (m.get_int(114)==0) // Is it a new row ?
m.set(114,(long)(r+1));
m.disable(114);
if (m.get_int(F_CODINDI)==0) // Is it a new row ?
m.set(F_CODINDI,(long)(r+1));
m.disable(F_CODINDI);
}
break;
case K_INS:

20
cg/cg0200.h
View File

@ -125,4 +125,24 @@
#define DLG_RIC 300
#define DLG_CST 301
//////////////////////////////////////
// Identificatori per cg0200b.uml //
//////////////////////////////////////
#define F_RAGSOCI 101
#define F_INDIRI 102
#define F_CIVI 103
#define F_LOCALI 104
#define F_CAPI 105
#define F_STATOI 106
#define F_COMI 107
#define F_PTELI 108
#define F_TELI 109
#define F_PFAXI 110
#define F_FAXI 111
#define F_IVARIDI 112
#define F_CODINDI 113
#define F_DENCOMI 114
#endif // __CG0200_H

39
cg/cg0200b.uml
View File

@ -2,57 +2,57 @@
PAGE "" -1 -1 76 16
STRING 101 50
STRING F_RAGSOCI 50
BEGIN
PROMPT 1 2 "Rag. soc. "
HELP "Inserire la ragione sociale"
GROUP 1
END
STRING 102 35
STRING F_INDIRI 35
BEGIN
PROMPT 1 4 "Indirizzo "
HELP "Inserire l'indirizzo"
GROUP 1
END
STRING 103 10
STRING F_CIVI 10
BEGIN
PROMPT 54 4 "N. "
HELP "Inserire il numero civico"
GROUP 1
END
STRING 104 35
STRING F_LOCALI 35
BEGIN
PROMPT 1 5 "Localita "
HELP "Inserire la localita"
GROUP 1
END
STRING 105 5
STRING F_CAPI 5
BEGIN
PROMPT 54 5 "CAP "
HELP "Inserire il Codice di Avviamento Postale"
GROUP 1
END
NUMBER 106 3
NUMBER F_STATOI 3
BEGIN
PROMPT 1 6 "Stato "
FLAGS "RZ"
USE %STA
INPUT CODTAB 106
INPUT CODTAB F_STATOI
DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0
OUTPUT 106 CODTAB
OUTPUT F_STATOI CODTAB
CHECKTYPE NORMAL
WARNING "Stato assente"
HELP "Inserire il codice dello stato"
GROUP 1
END
STRING 107 4
STRING F_COMI 4
BEGIN
PROMPT 18 6 "Comune "
FLAGS "U"
@ -62,9 +62,9 @@ BEGIN
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
DISPLAY "Comune@50" DENCOM
OUTPUT 105 CAPCOM
OUTPUT 106 STATO
OUTPUT 107 COM
OUTPUT F_CAPI CAPCOM
OUTPUT F_STATOI STATO
OUTPUT F_COMI COM
OUTPUT F_DENCOMI DENCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
@ -81,7 +81,8 @@ BEGIN
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT 107
COPY OUTPUT F_COMI
CHECKTYPE NORMAL
ADD MASK ba4100a
GROUP 1
END
@ -91,40 +92,40 @@ BEGIN
PROMPT 1 8 "Numeri Telefonici"
END
STRING 108 10
STRING F_PTELI 10
BEGIN
PROMPT 2 9 "Telefono "
HELP "Inserire il prefisso ed il numero di telefono"
GROUP 1
END
STRING 109 30
STRING F_TELI 30
BEGIN
PROMPT 40 9 ""
GROUP 1
END
STRING 110 10
STRING F_PFAXI 10
BEGIN
PROMPT 2 10 "Fax "
HELP "Inserire il prefisso del numero di fax"
GROUP 1
END
STRING 111 30
STRING F_FAXI 30
BEGIN
PROMPT 40 10 ""
GROUP 1
END
BOOLEAN 112
BOOLEAN F_IVARIDI
BEGIN
PROMPT 2 13 "Riduzione IVA"
HELP "Flag per la riduzione IVA"
GROUP 1
END
NUMBER 113 3
NUMBER F_CODINDI 3
BEGIN
PROMPT 1 1 "Codice "
END