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

Correzione alla gestione dello sheet degli inidirizzi di spedizione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@208 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-09 13:06:44 +00:00
parent ae0cec1973
commit 7dabc361d9
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cg/cg0200.cpp
View File

@ -431,6 +431,7 @@ void CG0200_application::common_f(const TMask& m)
{ {
TToken_string& row=(TToken_string&)rows[i]; TToken_string& row=(TToken_string&)rows[i];
TRectype& rec=_rel->indirizzo(i); TRectype& rec=_rel->indirizzo(i);
row.restart();
rec.zero(); rec.zero();
rec.put("TIPOCF",tipocf); rec.put("TIPOCF",tipocf);
rec.put("CODCF",codcf); rec.put("CODCF",codcf);
@ -439,7 +440,7 @@ void CG0200_application::common_f(const TMask& m)
rec.put("CIV",row.get()); rec.put("CIV",row.get());
rec.put("LOCALITA",row.get()); rec.put("LOCALITA",row.get());
rec.put("CAP",row.get()); rec.put("CAP",row.get());
rec.put("STATO",atoi(row.get())); rec.put("STATO",row.get_int());
rec.put("COM",row.get()); rec.put("COM",row.get());
rec.put("PTEL",row.get()); rec.put("PTEL",row.get());
rec.put("TEL",row.get()); rec.put("TEL",row.get());
@ -476,7 +477,7 @@ bool CG0200_application::indsp_notify(int r, KEY key)
return FALSE; // Refuse Permission return FALSE; // Refuse Permission
} else } else
// To avoid inserts in the middle of the sheet // To avoid inserts in the middle of the sheet
if (indsp.items()>r) if (r != -1 && indsp.items() > r)
{ {
error_box("Si possono aggiungere indirizzi solo alla fine"); error_box("Si possono aggiungere indirizzi solo alla fine");
return FALSE; //Refuse permission return FALSE; //Refuse permission

20
cg/cg0200b.uml
View File

@ -65,7 +65,7 @@ BEGIN
OUTPUT 105 CAPCOM OUTPUT 105 CAPCOM
OUTPUT 106 STATO OUTPUT 106 STATO
OUTPUT 107 COM OUTPUT 107 COM
OUTPUT 108 DENCOM OUTPUT F_DENCOMI DENCOM
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Comune assente" WARNING "Comune assente"
ADD MASK ba4100a ADD MASK ba4100a
@ -73,12 +73,12 @@ BEGIN
GROUP 1 GROUP 1
END END
STRING 108 40 STRING F_DENCOMI 40
BEGIN BEGIN
PROMPT 33 6 "" PROMPT 33 6 ""
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT DENCOM 108 INPUT DENCOM F_DENCOMI
DISPLAY "Comune@50" DENCOM DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO DISPLAY "Stato" STATO
DISPLAY "Codice" COM DISPLAY "Codice" COM
COPY OUTPUT 107 COPY OUTPUT 107
@ -91,40 +91,40 @@ BEGIN
PROMPT 1 8 "Numeri Telefonici" PROMPT 1 8 "Numeri Telefonici"
END END
STRING 109 10 STRING 108 10
BEGIN BEGIN
PROMPT 2 9 "Telefono " PROMPT 2 9 "Telefono "
HELP "Inserire il prefisso ed il numero di telefono" HELP "Inserire il prefisso ed il numero di telefono"
GROUP 1 GROUP 1
END END
STRING 110 30 STRING 109 30
BEGIN BEGIN
PROMPT 40 9 "" PROMPT 40 9 ""
GROUP 1 GROUP 1
END END
STRING 111 10 STRING 110 10
BEGIN BEGIN
PROMPT 2 10 "Fax " PROMPT 2 10 "Fax "
HELP "Inserire il prefisso del numero di fax" HELP "Inserire il prefisso del numero di fax"
GROUP 1 GROUP 1
END END
STRING 112 30 STRING 111 30
BEGIN BEGIN
PROMPT 40 10 "" PROMPT 40 10 ""
GROUP 1 GROUP 1
END END
BOOLEAN 113 BOOLEAN 112
BEGIN BEGIN
PROMPT 2 13 "Riduzione IVA" PROMPT 2 13 "Riduzione IVA"
HELP "Flag per la riduzione IVA" HELP "Flag per la riduzione IVA"
GROUP 1 GROUP 1
END END
NUMBER 114 3 NUMBER 113 3
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
END END